CPC Rulez :: Consulter le sujet

10 MODE 2:MEMORY &9FFF
20 p=&A000:q=&A14C:l=130
30 GOSUB 40:GOTO 690
40 FOR n=p TO q STEP 6
50 FOR x=0 TO 5:READ a$
60 a=VAL("&"+a$):c=c+a
70 POKE n+x,a:NEXT
80 READ c$:ch=VAL("&"+c$)
90 IF c<>ch THEN 120
100 l=l+10:c=0:NEXT
110 RETURN
120 PRINT"Error in line";l:END
130 DATA dd,21,ad,aa,4f,dd,381
140 DATA 7e,00,b9,28,0a,dd,246
150 DATA 23,dd,23,dd,23,dd,300
160 DATA 23,18,f0,dd,56,01,25f
170 DATA dd,5e,02,dd,46,03,263
180 DATA 3e,06,93,b8,38,07,1ce
190 DATA 7b,80,3d,4f,c3,b0,2fa
200 DATA a9,0e,05,c5,f5,e5,35b
210 DATA d5,cd,b0,a9,d1,e1,4ad
220 DATA f1,c1,5f,78,93,47,363
230 DATA cb,23,cb,23,7c,83,2db
240 DATA 67,1e,01,14,18,d6,188
250 DATA 7a,32,94,aa,32,9d,2b9
260 DATA aa,22,f1,a9,7b,32,313
270 DATA 9f,aa,79,32,a1,aa,33f
280 DATA 18,11,7a,32,94,aa,213
290 DATA 32,9d,aa,22,f1,a9,335
300 DATA 79,32,9f,aa,32,a1,2c7
310 DATA aa,11,97,aa,cd,0d,2d6
320 DATA aa,3a,a5,aa,b7,20,30a
330 DATA f4,11,91,aa,cd,f7,404
340 DATA a9,11,97,aa,cd,0d,2d5
350 DATA aa,11,9a,aa,21,ad,2cd
360 DATA aa,cd,15,aa,c9,cd,3cc
370 DATA 08,aa,11,95,aa,cd,2cf
380 DATA 0d,aa,21,a5,aa,cb,2f2
390 DATA 6e,28,f3,c9,01,60,2b3
400 DATA aa,18,0b,01,42,aa,1ba
410 DATA 21,a5,aa,18,03,01,18c
420 DATA 37,aa,ed,43,2f,aa,2ea
430 DATA 1a,47,13,c5,1a,13,166
440 DATA cd,66,aa,c1,10,f7,3a5
450 DATA 01,7e,fb,11,10,20,1bb
460 DATA c3,37,aa,0c,ed,78,315
470 DATA 77,0d,23,ed,78,f2,2fe
480 DATA 37,aa,a2,20,f2,21,2b6
490 DATA a5,aa,ed,78,fe,c0,472
500 DATA 38,fa,0c,ed,78,77,31a
510 DATA 0d,23,3e,05,3d,20,0d0
520 DATA fd,ed,78,a3,20,ea,40f
530 DATA 3a,a6,aa,e6,04,c0,334
540 DATA 37,c9,ed,78,f2,60,3b7
550 DATA aa,c9,01,7e,fb,f5,3e2
560 DATA ed,78,87,30,fb,87,39e
570 DATA 30,02,f1,c9,f1,0c,2e9
580 DATA ed,79,0d,3e,05,3d,1f3
590 DATA 00,20,fc,c9,c5,06,2b0
600 DATA f5,ed,78,1f,38,fb,3ac
610 DATA ed,78,1f,30,fb,c1,370
620 DATA 10,f0,c9,03,0f,00,1db
630 DATA 00,01,08,02,4a,00,055
640 DATA 09,4c,00,00,00,49,09e
650 DATA 03,49,2a,ff,03,40,1b8
660 DATA 10,40,00,00,49,02,09b
670 DATA 00,01,0c,04,10,02,023
680 DATA 06,02,20,00,00,00,028
690 p=&A14D:q=&A1BF:l=830
700 GOSUB 40:ùTAPE
710 FOR n=1 TO 4:READ a$,p,q
720 PRINT"Inf. ";a$;" (y/n)";
730 INPUT a$
740 IF a$="y" THEN 760
750 POKE &A100+p,q
760 NEXT
770 MODE 1:BORDER 0
780 INK 0,15:INK 1,0
790 INK 2,15:INK 3,6
800 PRINT"Insert DRAGON";
810 PRINT" NINJA disc..."
820 CALL &BB18:CLS:CALL &A155
830 DATA 01,05,01,10,02,08,021
840 DATA 02,21,21,00,a0,11,0f5
850 DATA 68,a9,01,4d,01,ed,24d
860 DATA b0,11,ad,aa,01,08,221
870 DATA 00,ed,b0,f3,31,00,2c1
880 DATA c0,3e,01,01,7e,fa,278
890 DATA ed,79,21,00,c0,3e,285
900 DATA 01,cd,68,a9,21,00,200
910 DATA 01,3e,02,cd,68,a9,21f
920 DATA af,01,7e,fa,ed,79,38e
930 DATA 3e,a7,32,16,1f,32,17e
940 DATA 51,22,3e,a7,32,54,1de
950 DATA 1d,3e,00,32,cf,13,16f
960 DATA 32,d8,13,3e,a7,32,234
970 DATA 07,15,18,0d,53,55,0e9
980 DATA 43,4b,20,49,54,20,16b
990 DATA 4f,43,45,41,4e,21,187
1000 DATA a5,a1,11,46,5b,01,1f9
1010 DATA 0d,00,ed,b0,c3,00,26d
1020 DATA 80,00,53,50,38,39,194
1030 DATA energy,&8a,&3d
1040 DATA lives,&92,&3d
1050 DATA time,&97,1
1060 DATA credits,&9f,&3d

1 :' BAD DUDES tape
2 :' by Mike Wong
3 :' 302
10 MODE 1:MEMORY &99BB
20 FOR n=&BE80 TO &BEE8
30 READ a$:a=VAL("&"+a$)
40 POKE n,a:c=c+a:NEXT
50 IF c<>10100 THEN 360
60 FOR n=1 TO 4
70 READ a$,p,q
80 PRINT"Inf "+a$+" (y/n)";
90 INPUT a$
100 IF a$="y" THEN 120
110 POKE &BE00+p,q
120 NEXT:CLS
130 LOAD"!":CALL &BE80
140 DATA 3e,c3,21,8e,be,32
150 DATA 16,bd,22,17,bd,c3
160 DATA bc,99,cd,37,bd,21
170 DATA 00,00,22,4d,a6,21
180 DATA a0,be,22,50,a6,c3
190 DATA 00,a6,dd,21,ba,a8
200 DATA 11,ab,00,cd,49,a8
210 DATA 21,b3,be,22,63,a9
220 DATA c3,e4,a8,3e,a7,32
230 DATA 16,1f,32,51,22,3e
240 DATA a7,32,54,1d,3e,00
250 DATA 32,cf,13,32,d8,13
260 DATA 3e,a7,32,07,15,21
270 DATA db,be,11,45,5b,01
280 DATA 0e,00,ed,b0,c3,00
290 DATA 80,4d,49,4b,45,20
300 DATA 57,4f,4e,47,20,5b
310 DATA 20,41,41
320 DATA energy,&b4,&3d
330 DATA lives,&bc,&3d
340 DATA time,&c1,1
350 DATA credits,&c9,&3d
360 PRINT"Error..."

Auteur :	Princesse Mariana [ 08 Jan 2009, 20:26 ]
Sujet du message :	DRAGON NINJA
POKE(S) pour le jeu AMSTRAD CPC "DRAGON NINJA" 255 VIES : POKE &17B6,&FF Unlimited lives POKE &1D54,&A7 Unlimited energy POKE &1F16,&A7 POKE &2251,&A7 Unlimited time POKE &13C0,&A7 Two hits to kill E POKE &226F,&AF Skip level POKE &1813,&01 Lives POKE &1B1C,&xx ; xx = (00-FF) P's energy POKE &1BB8,&xx ; xx = (00-FF) E's energy POKE &1BB9,&xx ; xx = (00-FF) Level POKE &1816,&xx ; xx = (00-07) Minutes POKE &13B9,&xx ; xx = (00-59 BCD) Seconds POKE &13BA,&xx ; xx = (00-59 BCD) Score POKE &F6DC,&xx ; xx = (00-99 BCD * 3) POKE &F6DD,&xx ; xx = (00-99 BCD * 3) POKE &F6DE,&xx ; xx = (00-99 BCD * 3) Fists POKE &2448,&00 Knife POKE &2448,&01 Nunchaku POKE &2448,&02 http://CPCrulez.fr

Auteur :	Princesse Mariana [ 09 Jan 2009, 20:28 ]
Sujet du message :	Re: DRAGON NINJA
Code : 1 :'dragon ninja 2 :' 3 :'infinite lives 4 :' 10 DATA 21,16,BD,36,C3,23 20 DATA 36,0E,23,36,BE,C3 30 DATA bc,99,21,17,BE,22 40 DATA 50,A6,C3,08,A6,DD 50 DATA 21,ba,a8,11,ab,00 60 DATA CD,49,a8,21,2A,BE 70 DATA 22,63,a9,C3,e4,a8 80 DATA 3E,a7,32,54,1d,C3 90 DATA 00,80 100 y=0:MEMORY &5000 110 FOR x=&BE00 TO &BE31 120 READ a$:a=VAL("&"+a$) 130 POKE x,a:y=y+a:NEXT 140 IF y<>&152D THEN 170 150 LOAD"dragon" 160 CALL &BE00 170 PRINT"data error!" Code : 10 MODE 2:MEMORY &9FFF 20 p=&A000:q=&A14C:l=130 30 GOSUB 40:GOTO 690 40 FOR n=p TO q STEP 6 50 FOR x=0 TO 5:READ a$ 60 a=VAL("&"+a$):c=c+a 70 POKE n+x,a:NEXT 80 READ c$:ch=VAL("&"+c$) 90 IF c<>ch THEN 120 100 l=l+10:c=0:NEXT 110 RETURN 120 PRINT"Error in line";l:END 130 DATA dd,21,ad,aa,4f,dd,381 140 DATA 7e,00,b9,28,0a,dd,246 150 DATA 23,dd,23,dd,23,dd,300 160 DATA 23,18,f0,dd,56,01,25f 170 DATA dd,5e,02,dd,46,03,263 180 DATA 3e,06,93,b8,38,07,1ce 190 DATA 7b,80,3d,4f,c3,b0,2fa 200 DATA a9,0e,05,c5,f5,e5,35b 210 DATA d5,cd,b0,a9,d1,e1,4ad 220 DATA f1,c1,5f,78,93,47,363 230 DATA cb,23,cb,23,7c,83,2db 240 DATA 67,1e,01,14,18,d6,188 250 DATA 7a,32,94,aa,32,9d,2b9 260 DATA aa,22,f1,a9,7b,32,313 270 DATA 9f,aa,79,32,a1,aa,33f 280 DATA 18,11,7a,32,94,aa,213 290 DATA 32,9d,aa,22,f1,a9,335 300 DATA 79,32,9f,aa,32,a1,2c7 310 DATA aa,11,97,aa,cd,0d,2d6 320 DATA aa,3a,a5,aa,b7,20,30a 330 DATA f4,11,91,aa,cd,f7,404 340 DATA a9,11,97,aa,cd,0d,2d5 350 DATA aa,11,9a,aa,21,ad,2cd 360 DATA aa,cd,15,aa,c9,cd,3cc 370 DATA 08,aa,11,95,aa,cd,2cf 380 DATA 0d,aa,21,a5,aa,cb,2f2 390 DATA 6e,28,f3,c9,01,60,2b3 400 DATA aa,18,0b,01,42,aa,1ba 410 DATA 21,a5,aa,18,03,01,18c 420 DATA 37,aa,ed,43,2f,aa,2ea 430 DATA 1a,47,13,c5,1a,13,166 440 DATA cd,66,aa,c1,10,f7,3a5 450 DATA 01,7e,fb,11,10,20,1bb 460 DATA c3,37,aa,0c,ed,78,315 470 DATA 77,0d,23,ed,78,f2,2fe 480 DATA 37,aa,a2,20,f2,21,2b6 490 DATA a5,aa,ed,78,fe,c0,472 500 DATA 38,fa,0c,ed,78,77,31a 510 DATA 0d,23,3e,05,3d,20,0d0 520 DATA fd,ed,78,a3,20,ea,40f 530 DATA 3a,a6,aa,e6,04,c0,334 540 DATA 37,c9,ed,78,f2,60,3b7 550 DATA aa,c9,01,7e,fb,f5,3e2 560 DATA ed,78,87,30,fb,87,39e 570 DATA 30,02,f1,c9,f1,0c,2e9 580 DATA ed,79,0d,3e,05,3d,1f3 590 DATA 00,20,fc,c9,c5,06,2b0 600 DATA f5,ed,78,1f,38,fb,3ac 610 DATA ed,78,1f,30,fb,c1,370 620 DATA 10,f0,c9,03,0f,00,1db 630 DATA 00,01,08,02,4a,00,055 640 DATA 09,4c,00,00,00,49,09e 650 DATA 03,49,2a,ff,03,40,1b8 660 DATA 10,40,00,00,49,02,09b 670 DATA 00,01,0c,04,10,02,023 680 DATA 06,02,20,00,00,00,028 690 p=&A14D:q=&A1BF:l=830 700 GOSUB 40:ùTAPE 710 FOR n=1 TO 4:READ a$,p,q 720 PRINT"Inf. ";a$;" (y/n)"; 730 INPUT a$ 740 IF a$="y" THEN 760 750 POKE &A100+p,q 760 NEXT 770 MODE 1:BORDER 0 780 INK 0,15:INK 1,0 790 INK 2,15:INK 3,6 800 PRINT"Insert DRAGON"; 810 PRINT" NINJA disc..." 820 CALL &BB18:CLS:CALL &A155 830 DATA 01,05,01,10,02,08,021 840 DATA 02,21,21,00,a0,11,0f5 850 DATA 68,a9,01,4d,01,ed,24d 860 DATA b0,11,ad,aa,01,08,221 870 DATA 00,ed,b0,f3,31,00,2c1 880 DATA c0,3e,01,01,7e,fa,278 890 DATA ed,79,21,00,c0,3e,285 900 DATA 01,cd,68,a9,21,00,200 910 DATA 01,3e,02,cd,68,a9,21f 920 DATA af,01,7e,fa,ed,79,38e 930 DATA 3e,a7,32,16,1f,32,17e 940 DATA 51,22,3e,a7,32,54,1de 950 DATA 1d,3e,00,32,cf,13,16f 960 DATA 32,d8,13,3e,a7,32,234 970 DATA 07,15,18,0d,53,55,0e9 980 DATA 43,4b,20,49,54,20,16b 990 DATA 4f,43,45,41,4e,21,187 1000 DATA a5,a1,11,46,5b,01,1f9 1010 DATA 0d,00,ed,b0,c3,00,26d 1020 DATA 80,00,53,50,38,39,194 1030 DATA energy,&8a,&3d 1040 DATA lives,&92,&3d 1050 DATA time,&97,1 1060 DATA credits,&9f,&3d Code : 1 :' BAD DUDES tape 2 :' by Mike Wong 3 :' 302 10 MODE 1:MEMORY &99BB 20 FOR n=&BE80 TO &BEE8 30 READ a$:a=VAL("&"+a$) 40 POKE n,a:c=c+a:NEXT 50 IF c<>10100 THEN 360 60 FOR n=1 TO 4 70 READ a$,p,q 80 PRINT"Inf "+a$+" (y/n)"; 90 INPUT a$ 100 IF a$="y" THEN 120 110 POKE &BE00+p,q 120 NEXT:CLS 130 LOAD"!":CALL &BE80 140 DATA 3e,c3,21,8e,be,32 150 DATA 16,bd,22,17,bd,c3 160 DATA bc,99,cd,37,bd,21 170 DATA 00,00,22,4d,a6,21 180 DATA a0,be,22,50,a6,c3 190 DATA 00,a6,dd,21,ba,a8 200 DATA 11,ab,00,cd,49,a8 210 DATA 21,b3,be,22,63,a9 220 DATA c3,e4,a8,3e,a7,32 230 DATA 16,1f,32,51,22,3e 240 DATA a7,32,54,1d,3e,00 250 DATA 32,cf,13,32,d8,13 260 DATA 3e,a7,32,07,15,21 270 DATA db,be,11,45,5b,01 280 DATA 0e,00,ed,b0,c3,00 290 DATA 80,4d,49,4b,45,20 300 DATA 57,4f,4e,47,20,5b 310 DATA 20,41,41 320 DATA energy,&b4,&3d 330 DATA lives,&bc,&3d 340 DATA time,&c1,1 350 DATA credits,&c9,&3d 360 PRINT"Error..."

CPC Rulez https://cpcrulez.fr/forum/

DRAGON NINJA https://cpcrulez.fr/forum/viewtopic.php?f=10&t=2420	Page 1 sur 1

Page 1 sur 1	Le fuseau horaire est UTC+1 heure
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/