9465
JEU -> Tir sur Ciblestypeins
© Amstrad Computer User (1989)
 
 
 
Kill 'Em All
cpc
 
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Mots Clefs

INFOS

- CATEGORIES -
- NOMBRE DE JOUEURS -
1 joueur
- DESCRIPTION -
Shoot-'em-up time as you blast the marauding aliens out of the sky. Reach 2,000 points and you have saved the Earth.

- DIVERS -
Une correction a été publié dans Amstrad Computer User October 1989 parce qu'il y a une tache blanche qui cache une petite partie de la ligne 10.

- COMMANDES -
Control moves your ship left, Copy moves your ship right, Space bar shoots, or use joystick.

- STAFF -
Paru sous forme de listing dans le magazine Amstrad Computer User (August 1989).
Auteur : David HALL

- BUGS -
Le listing, comme publié dans Amstrad Computer User, ne fonctionne qu'avec du BASIC 1.1 parce que la commande DATA ne se situe pas à la fin de la ligne 80, mais il est possible de le modifier afin de faire fonctionner avec du BASIC 1.0 :

AVANT :
80 DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32429 C2B22409C11080019CD3E2911D04E2A409C0E16E506081A77231310FAE1 CD26BC0D20F0C906163600CD26BC10F9C9:SYMBOL AFTER 32:FOR t=40955 TO 42555:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:BORDER 0

APRES :
80 SYMBOL AFTER 32:FOR t=40955 TO 42555:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:BORDER 0:DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32429 C2B22409C11080019CD3E2911D04E2A409C0E16E506081A77231310FAE1 CD26BC0D20F0C906163600CD26BC10F9C9


Si des ROMs sont activées ou la ROM AMSDOS est désactivée, la police n'est pas définie correctement. Ce problème peut être corrigé en modifiant les lignes 80, 90 et 100 :

AVANT :
80 DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32 429C2B22409C11080019CD3E2911D04E2A409C0E16E506081A772313 10FAE1CD26BC0D20F0C906163600CD26BC10F9C9:SYMBOL AFTER 32:FOR t=40955 TO 42555:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:BORDER 0
90 l=20000:FOR m=1 TO 3:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:l=10000:FOR m=1 TO 5:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:INK 5,15:INK 15,15,2:INK 14,15,26:SPEED INK 9,40
100 MODE 0:PEN 5:LOCATE 1,20:PEN 8:PRINT STRING$(20,244):PEN 2:PRINT " SCORE:-":INK 3,3,6:PEN 12:PRINT:PRINT " KILL 'EM ALL":CALL 10000:WHILE INKEY$<>CHR$(13):LOCATE 6,10:PEN RND*15:SOUND 1,RND*20,2,15:PRINT "GAME OVER":WEND:GOTO 100

APRES :
80 SYMBOL AFTER 32:h=HIMEM:FOR t=h TO h+1600:POKE t,PEEK(t) OR PEEK(t)/2:NEXT:PEN 2:INK 0,0:DATA 4A282632429C2322409C2BCD3E2918192A409C3A429C3DFE00280E32 429C2B22409C11080019CD3E2911D04E2A409C0E16E506081A772313 10FAE1CD26BC0D20F0C906163600CD26BC10F9C9
90 BORDER 0:l=20000:FOR m=1 TO 3:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:l=10000:FOR m=1 TO 5:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:NEXT:INK 5,15:INK 15,15,2:INK 14,15,26
100 SPEED INK 9,40:MODE 0:PEN 5:LOCATE 1,20:PEN 8:PRINT STRING$(20,244):PEN 2:PRINT " SCORE:-":INK 3,3,6:PEN 12:PRINT:PRINT " KILL 'EM ALL":CALL 10000:WHILE INKEY$<>CHR$(13):LOCATE 6,10:PEN RND*15:SOUND 1,RND*20,2,15:PRINT "GAME OVER":WEND:GOTO 100

 

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