4576
JEU -> Actiontypeins
© Amstrad Computer User (1990)
 
 
 
Shoot
Perseguir Y Disparar
cpc
 
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Mots Clefs

INFOS

- CATEGORIES -
- NOMBRE DE JOUEURS -
1 joueur
- DESCRIPTION -
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.

- STAFF -
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

- BUGS -
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

 

Goto Top
CPC-POWER/CPCSOFTS, programmation par Kukulcan © 2007-2024 tous droits réservés.
Reproduction sans autorisation interdite. Tous les titres utilisés appartiennent à leurs propriétaires respectifs.
Hébergement Web, Mail et serveurs de jeux haute performance