Le deuligne de RetroPoke #02 ROCKECKET

*********************************

ROCKECKET (Tontongui)

*********************************

Ca fait un mois que le DeuuLigne a commencé et j’ai pleins d’idées en tête. Bon toutes les idées ne parviendront pas à rentrer sur 2 lignes de BASIC mais peu importe, l’important c’est que j’ apprend pleins de trucs de cette manière et ça me motive à fond pour le deuuligne du mois prochain.

Voici ROCKECKET de Tontongui.

RetroPoke

Listing :

10 MODE 1:BORDER 4:x=14:s=19:r=20:WHILE 1:s=s+(c MOD 20=0):w=s*2+3:x=MIN(41-w,MAX(1,x+INT(RND(1)*2)*2-1)):LOCATE x,1: PRINT CHR$(238);SPC(s*2+1);CHR$(238):LOCATE 1,1:PRINT CHR$(11):r=MIN(39,MAX(2,r-INKEY(8)+INKEY(1))):LOCATE r,25
20 IF COPYCHR$(#0)<>CHR$(32) THEN PRINT”CRASH! Votre score: “;c:END ELSE PRINT CHR$(239):c=c+1:WEND

Téléchargement : Deuligne 02 ROCKEKET(tontongui)

0 commentaire

Envoyer un commentaire Annuler la réponse

Vous devez vous connecter pour publier un commentaire.

Evènements

Live en cours Jeu 29 Oct · 12h Sortie de ùCPM #8 Autre
Aujourd'hui Lun 9 Nov · 20h30 Geekorex Twitch
À venir Ven 13 Nov · 22h Xyphoe YouTube
À venir Ven 17 Sep 2027 · 9h → dim 19 Sep 2027 · 18h Amstrad Connection 86120 Saint-Léger-de-Montbrillais