Shoot ... Again n°6

Par Dominique Pessan

Enfin ! LE classique des classiques, piloté à la manette de jeu.

1 - Entrez le listing suivant puis lancez le par RUN.

10A=#9701:F=#9780:L=100:REPEAT:FOR A=A TO A+15:READ C$
20K=VAL("#"+C$):S=S+K+65536*(S+K>65535):IF A<=F THEN POKE A,K
30NEXT:READ D$:IF S=VAL("#"+D$) THEN L=L+5:UNTIL A>F:END
40PING:PRINT"Erreur ligne";L
100DATA 98,48,8A,48,AD,01,03,48,AD,03,03,48,A9,C0,8D,03,059F
105DATA 03,A9,40,8D,01,03,AD,01,03,A8,29,20,AA,98,4A,29,0A73
110DATA 0C,8D,2A,97,98,29,03,18,69,0C,A8,B9,60,97,8D,5E,1061
115DATA 97,E0,20,D0,02,A2,FE,8E,5F,97,68,8D,03,03,68,8D,17DE
120DATA 01,03,68,AA,68,A8,AD,5E,97,60,A9,60,8D,2D,97,20,1E80
125DATA 01,97,60,A9,70,8D,2D,97,20,01,97,60,EA,EA,EA,00,25B8
130DATA 00,00,00,00,BF,DF,00,00,BF,DF,00,00,BF,DF,00,00,2A92
135DATA 00,00,00,00,BF,BF,BF,00,DF,DF,DF,00,00,00,00,FF,306B

2 - Chargez Zorgon ( #501-#9700) par,ZORGON,N

 


 

3 - Entrez les modifications suivantes:

 

Gestion du tir ( ou des sauts ).


Code à  l'originequi devientpar :
$B46LDA#$04JSR$9701POKE#B46,#20:DOKE#B47,#9701
LDX#$FELDA$975POKE#B49,#AD:DOKE#B4A,#975F
JSR$5FDENOPPOKE#B4C,#EA
$C29LDA#$04JSR$9701POKE#C29,#20:DOKE#C2A,#9701
LDX#$FELDA$975POKE#C2C,#AD:DOKE#C2D,#975F
JSR$5FDENOPPOKE#C2F,#EA
$29C0LDA#$04JSR$9701POKE#29C0,#20:DOKE#29C1,#9701
LDX#$FELDA$975FPOKE#29C3,#AD:DOKE#29C4,#975F
JSR$5FDENOPPOKE#29C6,#EA
$41EBLDA#$04JSR$9701POKE#41EB,#20:DOKE#41EC,#9701
LDX#$FELDA$975FPOKE#41EE,#AD:DOKE#41EF,#975F
JSR$5FDENOPPOKE#41F1,#EA

 

Gestion des Déplacements.


Code à  l'originequi devientpar :
$BDALDA#$04JSR$974BPOKE#BDA,#20:DOKE#BDB,#974B
LDX#$BFCMP#$BFPOKE#BDD,#C9:POKE#BDE,#$BF
JSR$5FDENOP / NOPDOKE#BDF,#EAEA
BNE$C06BEQ$C06POKE#BE1,#F0
LDA#$04CMP#$DFPOKE#BE3,#C9:POKE#BE4,#DF
LDX#$DFNOP / NOP DOKE#BE5,#EAEA
JSR$5FDENOP / NOP / NOPDOKE#BE7,#EAEA:POKE#BE9,#EA
BNE$C12BEQ$C12POKE#BEA,#F0
$C58LDA#$04JSR$974BPOKE#C58,#20:DOKE#C59,#974B
LDX#$DFCMP#$DFPOKE#C5B,#C9:POKE#C5C,#$DF
JSR$5FDENOP / NOPDOKE#C5D,#EAEA
BNE$C90BEQ$C90POKE#C5F,#F0
LDA#$04CMP#$BFPOKE#C61,#C9:POKE#C62,#BF
LDX#$BFNOP / NOP DOKE#C63,#EAEA
JSR$5FDENOP / NOP / NOPDOKE#C65,#EAEA:POKE#C67,#EA
BNE$BEQ$POKE#C68,#F0
$2CB2LDA#$00JSR$9754POKE#2CB2,#20:DOKE#2CB3,#9754
LDX#$BFCMP#$BFPOKE#2CB5,#C9:POKE#2CB6,#$BF
JSR$5FDENOP / NOPDOKE#2CB7,#EAEA
BNE$2CC5BEQ$2CC5POKE#2CB9,#F0
LDA#$04CMP#$DFPOKE#2CBB,#C9:POKE#2CBC,#DF
LDX#$DFNOP / NOPDOKE#2CBD,#EAEA
JSR$5FDENOP / NOP / NOPDOKE#2CBF,#EAEA:POKE#2CC1,#EA
BNE$BEQ$POKE#2CC2,#F0

4 - DOKE#9C, #9780
5 - SAVEU"ZORGON",AUTO

Nota : Je n'ai pas compris pourquoi, mais les sauts ne sont effectifs que lorsque vous relâchez le bouton du J.S.
Si vous trouvez pourquoi, merci de bien vouloir m'éclairer et d'en faire profiter les autres.

Télécharger  ZORGON'S REVENGE ! Download

la page baton de joie   joystick page