JUEGO -> Accion   

1 jugador

You will have to have reflexes as sharp as a scalpel to succeed at this game of pot-shot. Using the joystick to move the arrow around the screen you have to chase the small targets as they appear and shoot them before they go again. It is certainly a challenge.

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 67 : June 1990
Auteur : A. DAVIDSON

* Repompage :
Paru sous forme de listing dans le magazine MegaOcio n° 18 (Septembre 1990).
Auteur : Pedro Munoz SAMARRIBA

Le listing, comme publié dans Amstrad Computer User, ne fonctionne qu'avec du BASIC 1.1 parce qu'il utilise des paramètres supplémentaires dans la commande MOVE, et il utilise également la commande CLEAR INPUT, mais il est possible de le modifier afin de faire fonctionner avec BASIC 1.0 :

AVANT :

10 MODE 1:SYMBOL 240,65,34,28,20,28,34,65,0:SYMBOL 241,252,172,212,172,212,172,212,252:SYMBOL 242,0,28,62,127,119,127,62,28:TAG:x=320:y=150:MOVE x,y,1,1:PRINT CHR$(240);:BORDER 0:INK 0,0:INK 1,24:INK 2,9:INK 3,26:l=0:k=0:sc=0:sh=20
20 SYMBOL 243,252,212,172,212,172,212,172,252
30 IF INKEY(8)=0 AND x>16 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:x=x-8:TAG:MOVE x,y,1,1:PRINT CHR$(240);:ELSE IF INKEY(1)=0 AND x<607 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:x=x+8:TAG:MOVE x,y,1,1:PRINT CHR$(240);
40 IF INKEY(2)=0 AND y>30 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:y=y-8:TAG:MOVE x,y,1,1:PRINT CHR$(240);
50 IF INKEY(0)=0 AND y<382 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:y=y+8:TAG:MOVE x,y,1,1:PRINT CHR$(240);
60 IF INKEY(47)=0 AND k=1 AND (TEST(x+8,y-6)=2 OR TEST(x+2,y-6)=2) THEN sc=sc+1:sh=sh-1:CLS:MOVE x,y,3,1:PRINT CHR$(242);:FOR p=0 TO 9:NEXT:MOVE x,y,3,1:PRINT CHR$(243);:CLS:MOVE x,y,1,1:PRINT CHR$(240);:k=0 ELSE IF INKEY(47)=0 THEN sh=sh-1
70 IF l=50 THEN c=CINT(RND*591+16):v=CINT(RND*350+32):MOVE c,v,2,1:PRINT CHR$(241);:k=1:l=0 ELSE l=l+1
80 IF l=49 AND k=1 THEN MOVE c,v,2,1:PRINT CHR$(241);
90 IF sh=0 THEN MODE 1:FOR t=0 TO 1000:CLEAR INPUT:NEXT:LOCATE 4,15:PRINT "YOU SCORED "sc:LOCATE 4,20:PRINT "PRESS ANY KEY FOR ANOTHER GAME":CALL &BB18:GOTO 10

APRES :

10 MODE 1:SYMBOL 240,65,34,28,20,28,34,65,0:SYMBOL 241,252,172,212,172,212,172,212,252:SYMBOL 242,0,28,62,127,119,127,62,28:PRINT CHR$(23)CHR$(1):TAG:x=320:y=150:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:BORDER 0:INK 0,0:INK 1,24:INK 2,9:INK 3,26:l=0:k=0
20 sc=0:sh=20:SYMBOL 243,252,212,172,212,172,212,172,252
30 IF INKEY(8)=0 AND x>16 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:x=x-8:TAG:MOVE x,y:PRINT CHR$(240);:ELSE IF INKEY(1)=0 AND x<607 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:x=x+8:TAG:MOVE x,y:PRINT CHR$(240);
40 IF INKEY(2)=0 AND y>30 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:y=y-8:TAG:MOVE x,y:PRINT CHR$(240);
50 IF INKEY(0)=0 AND y<382 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:y=y+8:TAG:MOVE x,y:PRINT CHR$(240);
60 IF INKEY(47)=0 THEN sh=sh-1:IF k=1 AND (TEST(x+8,y-6)=2 OR TEST(x+2,y-6)=2) THEN sc=sc+1:TAGOFF:CLS:TAG:PLOT -10,-10,3:MOVE x,y:PRINT CHR$(242);:FOR p=0 TO 9:NEXT:MOVE x,y:PRINT CHR$(243);:TAGOFF:CLS:TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:k=0
70 IF l=50 THEN c=CINT(RND*591+16):v=CINT(RND*350+32):PLOT -10,-10,2:MOVE c,v:PRINT CHR$(241);:k=1:l=0 ELSE l=l+1
80 IF l=49 AND k=1 THEN PLOT -10,-10,2:MOVE c,v:PRINT CHR$(241);
90 IF sh=0 THEN MODE 1:FOR t=0 TO 1000:WHILE INKEY$<>"":WEND:NEXT:LOCATE 4,15:PRINT "YOU SCORED "sc:LOCATE 4,20:PRINT "PRESS ANY KEY FOR ANOTHER GAME":CALL &BB18:GOTO 10