CPC Rulez https://cpcrulez.fr/forum/ |
|
GAUNTLET https://cpcrulez.fr/forum/viewtopic.php?f=10&t=2885 |
Page 1 sur 1 |
Auteur : | Princesse Mariana [ 09 Jan 2009, 14:42 ] |
Sujet du message : | GAUNTLET |
Code : 1 :' Gauntlet - tape 2 :' by Tony Hoyle 3 :' 037 10 DATA CD,18,BB,FE,31,28 20 DATA 08,21,30,BE,36,18 30 DATA 23,36,04,21,70,01 40 DATA 11,70,02,3E,16,CD 50 DATA A1,BC,21,ED,01,36 60 DATA 3E,23,36,6B,21,A3 70 DATA 02,36,46,23,36,D5 80 DATA C3,ED,01,CD,14,03 90 DATA 21,95,96,36,C9,C9 100 DATA 21,33,85,36,03,09 110 CLS:y=0 120 FOR x=&BE00 TO &BE3B 130 READ a$:a=VAL("&"+a$) 140 POKE x,a:y=y+a:NEXT 150 IF y=&1487 THEN 190 160 PRINT"1) INFINITE HEALTH 170 PRINT"2) EXTRA BONUS" 180 CALL &BE00 190 PRINT"DATA ERROR!" Code : 1 :' Gauntlet - disk 2 :' 038 10 sum=0:FOR a=&109F TO &10FF 20 READ a$ 30 POKE a,VAL("&"+a$):sum=sum+PEEK(a) 40 NEXT:IF sum<>7292 THEN PRINT"error in data":STOP 50 MODE 0:PRINT"Insert Gauntlet Disk" 60 PRINT"Press a key...":CALL &BB18 70 LOCATE 1,22:INPUT"Restore to normal (Y/N) ";a$ 80 add=49152 90 FOR t=29 TO 32 100 FOR s=&11 TO &18 110 CALL &109F,add,s,t 120 NEXT s,t 130 READ t,s 140 IF t=-1 THEN END 150 CALL &109F,&1100,s,t 160 READ x,y:IF x<&1000 THEN t1=x:s1=y:GOTO 190 ELSE READ z 170 IF a$="n" OR a$="N" THEN POKE x,y ELSE POKE x,z 180 GOTO 160 190 a=0:WHILE a<1000:a=a+1:WEND 200 CALL &10B1,&1100,s,0,t 210 t=x:s=y 220 GOTO 140 Code : 1 :'Gauntlet Disk
2 :' 039 10 MODE 2:INK 0,0:BORDER 0: GOSUB 290 20 PRINT"G A U N T L E T P O K E S":PRINT:PRINT 30 PRINT"Prevent Generators creating the enemy? (Y/N)"; 40 a$=UPPER$(INKEY$):IF a$<>"Y" AND a$<>"N" THEN 40 50 PRINT a$:PRINT 60 PRINT"Stop yourself dying when health reaches zero? (Y/N)"; 70 b$=UPPER$(INKEY$):IF b$<>"Y" AND b$<>"N" THEN 70 80 PRINT b$:PRINT 90 PRINT"Turn enemy invisible - only Phantoms will now cause damage (Y/N) ? "; 100 c$=UPPER$(INKEY$):IF c$<>"Y" AND c$<>"N" THEN 100 110 PRINT c$:PRINT 120 PRINT"Turn yourself invisible - the enemy is still attracted by you (Y/N) ? "; 130 d$=UPPER$(INKEY$):IF d$<> "Y" AND d$<>"N" THEN 130 140 PRINT d$:PRINT 150 PRINT:PRINT"Is this to your satisfaction (Y/N) ?" 160 e$=UPPER$(INKEY$):IF e$<>"Y" AND e$<>"N" THEN 160 170 IF e$="N" THEN RUN 180 PRINT:PRINT"INSERT THE GAUNTLET DISK INTO DRIVE A WITH THE WRITE-PROTECTION OFF" 190 PRINT:PRINT"Press a key when ready...":CALL &BB18 200 CALL &4000:a=&613A:b=&613D :c=&611B:d=&611E:e=&CD 210 a=&613A:b=&613D:c=&611B :d=&611E:e=&CD 220 IF a$="Y" THEN POKE a,0:POKE a+1,0:POKE a+2,0 ELSE POKE a,e:POKE a+1,&B5:POKE a+2,&8C 230 IF b$="Y" THEN POKE b,0:POKE b+1,0:POKE b+2,0 ELSE POKE b,e:POKE b+1,&20:POKE b+2,&94 240 IF c$="Y" THEN POKE c,0:POKE c+1,0:POKE c+2,0 ELSE POKE c,e:POKE c+1,&F0:POKE c+2,&A2 250 IF d$="Y" THEN POKE d,0:POKE d+1,0:POKE d+2,0 ELSE POKE d,e:POKE d+1,&13:POKE d+2,&87 260 CALL &401F 270 PRINT:PRINT"POKES NOW SAVED TO DISK":PRINT:PRINT "Press a key to play game" 280 CALL &BB18:ùCPM 290 FOR z=&4000 TO &4064:READ y$:POKE z,VAL("&"+y$) 300 x=x+VAL("&"+y$):NEXT z 310 IF x<>7668 THEN PRINT" ERROR IN DATA":STOP ELSE RETURN 320 DATA 21,5d,40,cd,d4,bc,22,5e,40, 21,61 330 DATA 40,cd,d4,bc,22,62,40,21,00, 60,1e 340 DATA 00,16,18,0e,11,df,5e,40,c9, 21,00 350 DATA 60,1e,00,16,18,0e,11,df,62, 40,21 360 DATA 00,70,1e,00,16,1c,0e,11,df, 5e,40 370 DATA 3e,29,87,32,0c,70,d6,02,32, 0d,70 380 DATA d6,03,32,0e,70,1e,00,16,1c, 0e,11 390 DATA 21,00,70,e5,d5,df,62,40,d1, e1,0e 400 DATA 12,df,62,40,c9,84,00,00,07, 85,00 410 DATA 00,07 |
Auteur : | Princesse Mariana [ 10 Jan 2009, 21:14 ] |
Sujet du message : | Re: GAUNTLET |
Most people know this one, but start off as player 1 and play for a bit... when you're about to lose all your health, hit the player 2 fire button, you can then pick up all the keys and potions left over... Keep repeating until you're sick of the game. |
Auteur : | Kukulcan [ 27 Fév 2009, 10:45 ] |
Sujet du message : | Re: GAUNTLET |
Choix du niveau suivant : poke &844c, (&01 a &FF) Energie infinie : poke &9B44, le &92 en &C9 |
Page 1 sur 1 | Le fuseau horaire est UTC+1 heure |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |