home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 June
/
1985-06.d64
/
assassin
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
27 lines
1 print"[147]"
10 d=40:f=54272:g=1:h=32:dima%(39):fora=1to10:readc%(a),s%(a):next:a$="[144]"
20 data 149,116,150,161,151,184,159,190,153,163,154,181,28,182,129,183,30,163
30 data 31,170:poke53265,23:poke53280,6:f1=54273:v1=54276:k=150:l=2
40 fora=54272to54295:pokea,0:next:poke54277,23:poke54296,15:poke54278,241
50 fora=1to40:a$=a$+chr$(c%(int(rnd(1)*10)+1))+chr$(s%(int(rnd(1)*10)+1))
60 next:poke53281,15:print"[147]"spc(9)"character assassination"
70 print"enter speed 0-9 (9 is the fastest)":poke198,0
80 getb$:ifb$<"0"orb$>"9"then80
90 s=28-3*val(b$):print"[147]"spc(15)"score[146] 0"
100 fora=1to22:print:next:printa$;
110 fl=0:fora=1104to1143:poke649,1:ss=39:ifa%(a-1104)=0then170
120 nexta:poke198,0:ifflthen110
130 print"[146]"spc(15)"game over":print""spc(11)"play again? (y/n)"
140 geta$:ifa$="y"thenprintspc(17)"[144]ok":run
150 ifa$="n"thenpoke828,0:sys828
160 goto140
170 fl=1:r1=rnd(1):r2=(-(r1<.5)*(rnd(1)*9+48))+(-(r1>=.5)*(rnd(1)*26+1))
180 pokev1,33:r$=chr$(r2-(r2<30)*64):c=a+840:forb=atocstepd:pokef1,k-l*ss
190 ss=ss-1:geta$:ifa$<>""thenpoke649,0:ifa$=r$then220
200 pokeb-d,h:pokeb,r2:pokeb+f,j
210 fortd=gtos:nexttd:nextb:q=1:gosub230:pokeb-d,h:a%(a-1104)=1:nexta:goto110
220 q=0:gosub230:pokeb-d,h:sc=sc+ss:print"[146]"spc(20)sc:nexta:goto110
230 pokev1,129:z=2:pokeb-d+f,2:fort=1to20
240 pokef1,z:poke53270,200-7*(q=1):pokeb-d,42-4*(peek(b-d)=42)
250 z=z-(q=0)*2:poke53270,200:next:pokev1,128:return