4576
GAME -> Actiontypeins
© Amstrad Computer User (1990)
 
 
 
Shoot
Perseguir Y Disparar
cpc
 
 

Last Update : Thursday 25 April 2019 at 20 h 08
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Keywords

INFOS

- CATEGORIES -
- NUMBER OF PLAYERS -
1 player
- 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, programming by Kukulcan © 2007-2022 all rights reserved.
Reproduction forbidden without any express authorization. All the game titles used belong to their respective owners.
Hébergement Web, Mail et serveurs de jeux haute performance