RED HEAT / DOUBLE DETENTE

Princesse Mariana · **Publié :** 08 Jan 2009, 20:27

POKE(S) pour le jeu AMSTRAD CPC "RED HEAT"
INFINITE BULLETS : POKE &95DB,&00
INFINITE ENERGY : POKE &9F01,&00
INFINITE LIVES : POKE &867E,&A7

Princesse Mariana · **Publié :** 09 Jan 2009, 20:27

Code :

PRINT"Energie infinie
PRINT"Sur DOUBLE DETENTE,un jeu qui me fait ...CHIER !!! 
MEMORY &A000:MODE 1
FOR N=&A0DC TO &A26D:READ A$:A=VAL("&"+A$)
SUM=SUM+A:POKE N,A:NEXT
IF SUM<>41666 THEN PRINT"EH,MEC,Y A ERREUR DANS LES DATAS!!!":END
PRINT"Fous RED HEAT dans le lecteur..."
PRINT "...et appuie sur une touche...
CALL &BB06:CLS:CALL &A0DC
DATA 1E,00,53,DF,F5,A0,F3,3E,02,21,00,20,CD,F8,A0,AF
DATA 32,96,55,32,9D,55,C3,00,20,63,C7,07,4F,DD,21,66
DATA A2,DD,7E,00,B9,28,0A,DD,23,DD,23,DD,23,DD,23,18
DATA F0,DD,56,01,DD,5E,02,DD,46,03,3E,19,93,B8,38,07
DATA 7B,80,3D,4F,C3,3C,A1,0E,18,C5,F5,E5,D5,CD,3C,A1
DATA D1,E1,F1,C1,5F,78,93,47,7C,83,67,1E,01,14,18,DA
DATA 3E,4C,32,3E,A2,3E,06,32,43,A2,79,1D,93,32,E4,A1
DATA 7B,32,CF,A1,1E,23,4B,C3,57,A1,59,7A,32,37,A2,32,
DATA 40,A2,22,85,A1,7B,32,42,A2,79,32,44,A2,11,3A,A2
DATA CD,9F,A1,3A,5D,A2,D7,20,F4,11,34,A2,CD,89,A1,11
DATA 3A,A2,CD,9F,A1,11,3D,A2,21,00,C0,18,1E,CD,9A,A1
DATA 11,38,A2,CD,9F,A1,21,5D,A2,CB,6E,28,F3,C9,01,27
DATA A2,18,0B,01,0F,A2,21,5D,A2,18,03,01,D8,A1,ED,43
DATA D1,A1,1A,47,C5,13,1A,01,7E,FB,F5,ED,78,87,30,FB
DATA FA,B7,A1,F1,0C,ED,79,06,08,10,FE,C1,10,E6,01,7E
DATA FB,11,00,00,C3,0F,A2,0C,ED,78,0D,1B,ED,78,F2,D8
DATA A1,7A,B3,C2,D3,A1,11,00,18,0C,ED,78,77,0D,23,1B
DATA 7A,B3,CA,02,A2,ED,78,F2,F1,A1,E6,20,C2,E5,A1,C3
DATA 0C,A2,0C,ED,78,0D,ED,78,F2,02,A2,E6,20,C2,FE,A1
DATA 21,5D,A2,ED,78,FE,C0,38,FA,0C,ED,78,77,0D,23,3E
DATA 05,3D,20,FD,ED,78,E6,10,20,E9,C9,ED,78,F2,27,A2
DATA C9,44,49,53,C3,43,50,CD,03,0F,00,03,01,08,02,4A
DATA 00,09,4C,00,03,00,23,06,23,2A,FF,19,06,0F,03,00
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,19
DATA BF,20,03,00,00,00,45,02,00,00,01,03,01,40,02,05
DATA 11,3E,00,00,00,00,00,00,00,00,00,00,00,00,00,00

Code :

:'REDHEAT tape
:'by Phil howard
:'INFINITE ENERGY
:'299
:'INFINITE BULLETS
:'
DATA 21,16,BD,36,C3,23
DATA 36,0E,23,36,BE,C3
DATA 9E,9A,21,17,BE,22
DATA 56,A6,C3,0F,A6,DD 
DATA 21,C0,a8,11,B2,00
DATA CD,4F,A8,21,2A,BE
DATA 22,70,A9,C3,eA,a8 
DATA AF,32,EC,4C,32,0B
DATA 56,32,12,56,C3,00
DATA 20
y=0:MEMORY &5000
FOR x=&BE00 TO &BE36
READ a$:a=VAL("&"+a$)
POKE x,a:y=y+a:NEXT
IF y<>&16A1 THEN 180  
LOAD"REDHEAT"
CALL &BE00
PRINT"data error!" 

Code :

PRINT"Please wait...":PRINT
FOR n=&A054 TO &A25C STEP 7
FOR p=0 TO 6:READ a$
a=VAL("&"+a$):POKE n+p,a
c=c+a:NEXT:READ c$
ch=VAL("&"+c$)
IF c<>ch THEN 370
l=l+10:c=0:NEXT
a$="Inf lives"
GOSUB 330:li=x
a$="Inf energy"
GOSUB 330:en=x
a$="Inf bullets"
GOSUB 330:bu=x
a$="5000 bonus time"
GOSUB 330:bn=x
INPUT"Start level (1-4)";lvl
PRINT"INSERT RED HEAT DISC..." 
CALL &BB18:MODE 1
INK 0,25:INK 1,6
INK 2,15:INK 3,3
BORDER 25:CALL &A086
POKE &3C1E,lvl-1
IF li=1 THEN POKE &3D07,&A7
IF en=0 THEN 280
POKE &5592,&C9:POKE &5599,&C9
IF bu=1 THEN POKE &4C77,&A7
IF bn=0 THEN 320
POKE &2F4C,&35:POKE &303D,&35
POKE &34F2,&35
CALL &A0B1::'NO RETURN
PRINT a$;" (y/n)";
INPUT a$:x=0
IF a$="y" THEN x=1
RETURN
PRINT"Error in line";l:END
DATA af,f5,46,48,23,e5,cd,407
DATA 32,bc,e1,f1,3c,fe,10,40a
DATA 20,f1,06,00,48,cd,38,264
DATA bc,1e,06,18,08,f3,1e,211
DATA 50,01,7f,fa,ed,49,06,306
DATA f5,ed,78,1f,38,fb,ed,499
DATA 78,1f,30,fb,1d,20,f1,2f0
DATA c9,3e,01,cd,0e,bc,cd,36c
DATA 6e,a0,cd,dd,a0,3e,02,398
DATA 32,40,a2,c6,4a,32,3b,291
DATA a2,cd,eb,a0,3e,01,21,35a
DATA 00,c0,cd,f5,a0,00,00,322
DATA 00,3e,02,21,00,20,c3,144
DATA f5,a0,21,00,20,d9,01,2b0
DATA 7e,fa,ed,49,21,dd,a0,44c
DATA 11,de,a0,01,79,01,36,240
DATA 00,ed,b0,21,00,a0,11,26f
DATA 01,a0,01,d2,00,36,00,1aa
DATA ed,b0,01,8d,7f,ed,49,3e0
DATA af,08,d9,e9,c9,10,01,353
DATA 54,7f,ed,79,ed,49,3d,3ac
DATA f2,e2,a0,c9,0e,49,21,3b5
DATA 5f,a2,16,00,c3,53,a1,2ce
DATA 4f,dd,21,5f,a2,dd,7e,3a9
DATA 00,b9,28,0a,dd,23,dd,2c8
DATA 23,dd,23,dd,23,18,f0,32b
DATA dd,56,01,dd,5e,02,dd,34e
DATA 46,03,3e,19,93,b8,38,223
DATA 07,7b,80,3d,4f,c3,39,28a
DATA a1,0e,18,c5,f5,e5,d5,43b
DATA cd,39,a1,d1,e1,f1,c1,50b
DATA 5f,78,93,47,7c,83,67,317
DATA 1e,01,14,18,da,3e,4c,1af
DATA 32,3b,a2,3e,06,32,40,1c5
DATA a2,79,1d,93,32,e1,a1,37f
DATA 7b,32,cc,a1,1e,23,4b,2a6
DATA c3,54,a1,59,7a,32,34,2f1
DATA a2,32,3d,a2,22,82,a1,2f8
DATA 7b,32,3f,a2,79,32,41,27a
DATA a2,11,37,a2,cd,9c,a1,396
DATA 3a,56,a2,b7,20,f4,11,30e
DATA 31,a2,cd,86,a1,11,37,30f
DATA a2,cd,9c,a1,11,3a,a2,399
DATA 21,5f,a2,18,1e,cd,97,2bc
DATA a1,11,35,a2,cd,9c,a1,393
DATA 21,56,a2,cb,6e,28,f3,36d
DATA c9,01,24,a2,18,0b,01,1b4
DATA 0c,a2,21,56,a2,18,03,1e2
DATA 01,d5,a1,ed,43,ce,a1,416
DATA 1a,47,c5,13,1a,01,7e,1d2
DATA fb,f5,ed,78,87,30,fb,507
DATA fa,b4,a1,f1,0c,ed,79,4b2
DATA 06,08,10,fe,c1,10,e6,2d3
DATA 01,7e,fb,11,00,00,c3,24e
DATA 0c,a2,0c,ed,78,0d,1b,247
DATA ed,78,f2,d5,a1,7a,b3,4fa
DATA c2,d0,a1,11,00,00,0c,250
DATA ed,78,77,0d,23,1b,7a,2a1
DATA b3,ca,ff,a1,ed,78,f2,574
DATA ee,a1,e6,20,c2,e2,a1,4da
DATA c3,09,a2,0c,ed,78,0d,2ec
DATA ed,78,f2,ff,a1,e6,20,4fd
DATA c2,fb,a1,21,56,a2,ed,464
DATA 78,fe,c0,38,fa,0c,ed,461
DATA 78,77,0d,23,3e,05,3d,19f
DATA 20,fd,ed,78,e6,10,20,398
DATA e9,c9,ed,78,f2,24,a2,4cf
DATA c9,44,49,53,c3,43,50,2ff
DATA cd,03,0f,00,00,01,08,0e8
DATA 02,4a,00,09,4c,00,00,0a1
DATA 00,49,02,49,2a,ff,00,1bd
DATA 0f,17,09,00,00,00,00,02f
DATA 00,00,00,00,00,00,00,000
DATA 00,00,33,48,00,00,00,07b
DATA 00,47,02,00,00,00,00,049

Règles du forum

RED HEAT / DOUBLE DETENTE

Qui est en ligne ?