Jeu de boîte

Jeu de boîte

GW-Basic, utilisé par PC-Basic

Pur test de réflexes, Jeu de boîte vous présente une boîte flottante instable que vous devez déplacer de gauche à droite de l'écran, sans toucher le haut, le bas ou la gauche. Chaque fois que vous parvenez à terminer votre mission, vous recommencez, mais avec moins de temps.

Bonne chance !

Une grande randomisation – mouvements aléatoires à gauche et à droite, mouvements aléatoires de haut en bas – caractérise parfaitement le code de BOXGAME.BAS. Notez que la variable numérique GA définit la limite de temps de chaque « niveau ».

Imaginez si vous deviez non seulement éviter la gauche, le haut et le bas de l'écran, mais aussi les obstacles. Imaginez si ces obstacles étaient également mobiles. Imaginez… ou, au lieu d'imaginer, mettez-vous au code !

0 GA = 500
1 RANDOMIZE TIMER
6 X=INT(1+40*RND(1))+40
7 Y=INT(1+300*RND(1))+40
10 KEY OFF:SCREEN 9:COLOR 15,1:CLS
11 PRINT"THE BOXGAME"
12 PRINT"Utilisez le pave numérique pour déplacer la case vers le cote droit de l'écran"
13 PRINT"La boite ne peut toucher aucun autre cote de l'écran."
14 PRINT"Appuyer <ENTER> PRÊT...";:LINE INPUT V$:CLS
15 RANDOMIZE TIMER
30 T=INT(1+5*RND(1))
31 I$=INKEY$:IF I$="6" THEN X=X+20
32 IF I$="4" THEN X=X-20
33 IF I$="2" THEN Y=Y+28
34 IF I$="8" THEN Y=Y-20
35 V=INT(1+6*RND(1))-6
40 C=INT(1+6*RND(1))
41 B=INT(1+6*RND(1))
42 N=INT(1+6*RND(1))
43 IF B=2 THEN V=-(V)
44 IF N=2 THEN C=-(C)
45 FD=INT(1+GA*RND(1))
100 FOR A=1 TO T
110 PSET(X,Y),12:DRAW"R20 D20 L20 U20"
115 FOR DF=1 TO FD:NEXT DF
120 PSET(X,Y),0:DRAW"R20 D20 L20 U20"
125 X=X+V:Y=Y+C
126 IF X=>629 THEN X=629:GOTO 170
127 IF X=<0 THEN X=0:GOTO 150
128 IF Y=<0 THEN Y=0:GOTO 150
129 IF Y=>329 THEN Y=329:GOTO 150
130 NEXT A
140 GOTO 30
150 CLS:PRINT:PRINT:PRINT:
155 PRINT"VOTRE PARTIE EST TERMINÉE. APPUYEZ SUR ENTER POUR RÉESSAYER:":LINE INPUT M$
160 GOTO 0
170 CLS:PRINT:PRINT:PRINT:PRINT" FELICITATIONS. VOUS AVEZ GAGNE.":GA=GA-50
180 IF GA<0 THEN PRINT" ...Temps écoulé":END
190 FOR GC=1 TO 10000:NEXT GC:GOTO 1