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