CPC Rulez https://cpcrulez.fr/forum/ |
|
Jarlac https://cpcrulez.fr/forum/viewtopic.php?f=10&t=6159 |
Page 1 sur 1 |
Auteur : | hERMOL [ 10 Nov 2018, 15:58 ] |
Sujet du message : | Jarlac |
Vies infinie: POKE &2555,&00 |
Auteur : | Princesse Mariana [ 28 Oct 2019, 12:18 ] |
Sujet du message : | Re: Jarlac |
Code : 1 ' Jarlac pokes
2 ' by Nich 3 ' 10 MODE 1:CALL &BC02 20 INPUT"Infinite lives (Y/N)? ",i$ 30 i$=UPPER$(i$) 40 IF INSTR("YN",i$)=0 THEN 20 50 INPUT"Number of hearts to collect (1-13)? ",h 60 IF h<1 OR h>13 THEN 50 70 MODE 0:MEMORY &3FFF 80 LOAD"jarlac",&4000 90 a=&BF00 100 READ h$ 110 IF h$=»END» THEN 140 120 POKE a,VAL("&"+h$) 130 a=a+1:GOTO 100 140 IF i$="Y" THEN POKE &BF1F,&21 150 POKE &BF24,h 160 CALL &BF00 170 DATA 21,00,40,11,40,00,01,6d 180 DATA 03,ed,b0,21,1e,bf,11,00 190 DATA 04,d5,01,12,00,ed,b0,e1 200 DATA 22,45,03,c3,d4,02,3e,fd 210 DATA 32,54,25,3e,0d,32,b4,67 220 DATA 3e,da,32,b5,67,c3,57,7a 230 DATA END |
Page 1 sur 1 | Le fuseau horaire est UTC+1 heure |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |