CPC Rulez https://cpcrulez.fr/forum/ |
|
STAR GLIDER https://cpcrulez.fr/forum/viewtopic.php?f=10&t=2728 |
Page 1 sur 1 |
Auteur : | Princesse Mariana [ 08 Jan 2009, 20:27 ] |
Sujet du message : | STAR GLIDER |
POKE(S) pour le jeu AMSTRAD CPC "STAR GLIDER" ALL INFINITE : POKE &F60E,&01 |
Auteur : | Princesse Mariana [ 09 Jan 2009, 15:20 ] |
Sujet du message : | Re: STAR GLIDER |
Code : 1 :' Starglider 2 :' by Tony Hoyle 10 MEMORY &19FF 20 MODE 1 30 BORDER 0 40 WINDOW #1,15,27,10,10 50 WINDOW #2,15,27,13,13 60 x=&8000:t2=0:l=280 70 t=0 80 FOR j=0 TO 7 90 READ a$ 100 a=VAL("&"+a$) 110 t=t+a 120 t2=t2+a 130 POKE x,a 140 x=x+1 150 NEXT j 160 READ c$:c=VAL("&"+c$) 170 IF t<>c THEN PRINT"Error in line ";l:END 180 l=l+10 190 IF x<&80E4 THEN 70 200 READ c$:c=VAL("&"+c$) 210 IF t2<>c THEN PRINT"Error in data":END 220 LOAD"!glider" 230 POKE &30,&C3 240 POKE &31,0 250 POKE &32,&80 260 POKE &1A6C,&F7 270 CALL &1A00 280 DATA 7a,fe,57,e5,c0,e1,3e,e9,057c 290 DATA 32,6c,1a,fd,e5,cd,e0,1a,0461 300 DATA cd,82,1a,cd,eb,1a,be,28,0421 310 DATA 07,06,00,cd,4a,1b,18,ed,0244 320 DATA 01,00,f6,ed,49,f3,e1,2e,042f 330 DATA 00,ed,5b,18,11,1a,ae,24,025d 340 DATA ae,25,12,2c,1c,20,f6,ed,0330 350 DATA 5b,18,11,21,40,01,1a,ae,01ae 360 DATA 77,1c,2c,20,f9,cd,37,bd,0399 370 DATA ed,5b,18,11,2a,1a,11,1a,01e0 380 DATA ae,77,23,1c,20,f9,3a,1d,02d4 390 DATA 11,bc,20,f3,cd,00,30,fb,03d8 400 DATA 3e,01,cd,b4,bb,3e,03,cd,0389 410 DATA 96,bb,3e,02,cd,b4,bb,3e,040b 420 DATA 03,cd,96,bb,21,82,80,11,0355 430 DATA 80,00,01,61,00,ed,b0,c3,0342 440 DATA 80,00,3e,39,01,02,01,cd,01c8 450 DATA 00,1c,01,01,01,cd,38,bc,01e0 460 DATA 3e,0f,01,00,00,f5,cd,32,0242 470 DATA bc,f1,3d,fe,ff,20,f3,01,04fb 480 DATA 10,27,0b,78,b1,20,fb,3e,02c4 490 DATA 3a,cd,00,1e,af,32,fa,37,0337 500 DATA 32,fb,37,32,09,38,32,0a,0213 510 DATA 38,32,19,38,32,1a,38,32,0171 520 DATA 8f,58,32,9c,61,32,0a,63,02b5 530 DATA 32,0b,63,32,37,63,32,38,01d6 540 DATA 63,32,64,63,32,65,63,32,0288 550 DATA f6,64,32,f7,64,32,07,65,0385 560 DATA c3,1e,11,00,00,00,00,00,00f2 570 DATA 55ea Code : 1 :' Star Glider - disk
2 :' by John Shinnick 3 :' 133 10 MODE 1:BORDER 0:INK 0,26 20 INK 1,0:INK 2,6:INK 3,2 30 LOAD"loadpic.scr",&C000 40 MEMORY &1FFF 50 LOAD"K32",&2000 60 LOAD"K16",&C000 70 :'infinite missiles 80 POKE &6504,0 90 :'infinite laser fire 100 POKE &6363,&C3:POKE &6364,&71 110 :'Infinite plasma drive 120 POKE &6309,&C3:POKE &630A,&17 130 :'infinite shield 140 POKE &6336,&C3:POKE &6337,&44 150 :'rear view scanner 160 POKE &F60E,1 170 :'inductive energy pod 180 POKE &F60F,1:POKE &190F,&18 190 :'proton missiles 200 POKE &F610,1:POKE &64F3,&18 210 POKE &64F4,7 220 :'indestructibility 230 POKE &98C8,0:POKE &98C9,0 240 POKE &98CA,0 250 CALL &F700 |
Page 1 sur 1 | Le fuseau horaire est UTC+1 heure |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |