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

Quattro Adventure: Dizzy Vampire GhostHunters SuperRobinHood
https://cpcrulez.fr/forum/viewtopic.php?f=10&t=3076
Page 1 sur 1

Auteur :  Princesse Mariana [ 10 Jan 2009, 10:31 ]
Sujet du message :  Quattro Adventure: Dizzy Vampire GhostHunters SuperRobinHood

Code :
1 :' Quattro Adventure
2 :' by ANDY PRICE
3 :'
4 ùTAPE
10 DATA 2a,38,bd,22,2d
20 DATA be,ac,ad,21,37
30 DATA bd,3e,c3,77,23
40 DATA 3e,21,77,23,3e
50 DATA be,77,21,40,00
60 DATA e3,11,00,bb,00
70 DATA c3,4a,3a,41,50
80 DATA af,32,3a,95,3e
90 DATA 04,32,25,89,00
100 DATA 21,3d,be,22,4f
110 DATA bf,c3,00,bf,c3
120 DATA 89,13,21,23,be
130 DATA 22,e3,39,3e,c3
140 DATA 32,e2,39,21,40
150 DATA 00,11,00,bb,e5
160 DATA eb,e5,c3,b7,39
170 DATA dd,e5,dd,21,91
180 DATA 01,3e,d0,dd,77
190 DATA 00,3e,6f,dd,77
200 DATA 01,3e,6f,dd,77
210 DATA 02,dd,e1,f1,f3
220 DATA c9,3e,34,32,5b
230 DATA 2d,18,c5,00,00
240 DATA 06,05,11,00,ac
250 DATA 21,28,be,cd,77
260 DATA bc,eb,cd,83,bc
270 DATA 23,e5,cd,7a,bc
280 DATA 21,1b,be,22,92
290 DATA ac,c9,3e,ee,32
300 DATA 22,61,3e,c9,32
310 DATA 97,6c,c3,d0,76
320 DATA 52,4f,42,49,4e
330 DATA 06,0d,11,00,c0
340 DATA 21,28,be,cd,77
350 DATA bc,eb,cd,83,bc
360 DATA 23,e5,cd,7a,bc
370 DATA 21,1b,be,22,fe
380 DATA a4,c9,3e,c9,32
390 DATA cf,61,3e,02,32
400 DATA ca,61,c3,73,61
410 DATA 47,48,4f,53,54
420 DATA 2d,48,55,4e,54
430 DATA 45,52,53
440 RESTORE 10:start=&BE00
450 finish=&BE20:GOSUB 770
460 MODE 1:INK 1,15:INK 0,0
470 PRINT"1. Dizzy"
480 PRINT"2. Vampire"
490 PRINT"3. Ghost Hunters"
500 PRINT"4. Super Robin Hood"
510 PRINT:INPUT"Number> ",no
520 ON no GOSUB 530,600,650,700
530 RESTORE 80:start=&BE21
540 finish=&BE29:GOSUB 770
550 CLS:PRINT"Inf lives active"
560 INPUT"Speed of Dizzy (1..10)",s
570 POKE &BE26,s:POKE &BE2A,&CF
580 POKE &BE04,&2B:MEMORY &2FFF
590 LOAD"dizzy":CALL &BE00
600 RESTORE 100:start=&BE00
610 finish=&BE43:GOSUB 770
620 CLS:PRINT"Infinite lives"
630 MEMORY &2FFF:LOAD"vampire"
640 CALL &BE0C
650 RESTORE 330:start=&BE00
660 finish=&BE34:GOSUB 770
670 CLS:PRINT"Invulnerability"
680 PRINT:INPUT"Enter start room";r
690 POKE &BE21,r:CALL &BE00
700 RESTORE 240:start=&BE00
710 finish=&BE2C:GOSUB 770
720 CLS:PRINT"Invulnerability active"
730 PRINT:INPUT"Faster Robin";y$
740 IF LEFT$(y$,1)="n" THEN 760
750 POKE &BE1C,0
760 CALL &BE00
770 FOR a=start TO finish
780 READ b$:b=VAL("&"+b$)
790 POKE a,b:NEXT:RETURN

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