home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / car (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  87 lines
  1. 8 dv=peek(186):ifdv<8thendv=8
  2. 9 poke53371,0:printchr$(142);
  3. 10 rem    escape route-jc hilty-10/92
  4. 12 ifa=0thena=1:load"escape.sp4",dv,1
  5. 13 ifa=1thena=2:load"sprite.mvt",dv,1
  6. 14 ifa=2thena=3:load"scroll.ml",dv,1
  7. 16 open3,dv,3,"stats,s,r":input#3,dy:input#3,ms:input#3,sc:input#3,ft:close3
  8. 18 v=53248:s=54272:li=5:m=0:l=1:gosub900:gosub400
  9. 19 poke53370,0
  10. 20 sys49152:jy=peek(56320)and15
  11. 22 ifjy=7andpeek(v+2)+8<255thenq=8:goto40
  12. 23 ifjy=11andpeek(v)-8>60thenq=-8:goto42
  13. 24 ifjy=14andpeek(v+5)-8>120thenq=-8:goto44
  14. 25 ifjy=13andpeek(v+5)+8<195thenq=8:goto46
  15. 28 onlgosub100,100,110,100,100:l=l+1:ifl=6thenl=1
  16. 30 w1=peek(v+30):ifw1>7then250
  17. 31 ifm=500then300
  18. 32 goto20
  19. 40 pokev,peek(v)+q:pokev+2,peek(v+2)+q:pokev+4,peek(v+4)+q:goto28
  20. 42 pokev,peek(v)+q:pokev+2,peek(v+2)+q:pokev+4,peek(v+4)+q:goto28
  21. 44 pokev+5,peek(v+5)+q:pokev+1,peek(v+1)+q:pokev+3,peek(v+3)+q:goto28
  22. 46 pokev+1,peek(v+1)+q:pokev+3,peek(v+3)+q:pokev+5,peek(v+5)+q:goto28
  23. 100 forx=2043to2047:pokex,ds:next:ds=ds+1:ifds=203thends=199
  24. 102 return
  25. 110 m=m+1:print""tab(10)m:ifm=200thengosub180
  26. 112 return
  27. 180 poke50432,0:poke50439,255:poke50441,253:poke50443,252:poke50445,254
  28. 182 poke50447,255:poke50688,248:poke50432,248:return
  29. 250 poke50432,0:h2=peek(v+5):gosub500
  30. 252 py=peek(v+5):sp=192
  31. 254 poke2042,sp:pokev+5,py:pokes+15,mr:mr=mr-1:ifmr=5thenmr=30
  32. 256 sp=sp+1:ifsp=196thensp=192
  33. 258 py=py-4:ifpy<6then262
  34. 260 goto254
  35. 262 poke2042,sp:pokev+5,py:pokes+15,mr:mr=mr-1:ifmr=5thenmr=30
  36. 264 sp=sp+1:ifsp=196thensp=192
  37. 266 py=py+4:ifpy>h2thenpy=h2:pokev+5,h2:forx=0to24:pokes+x,0:next:goto270
  38. 268 goto262
  39. 270 poke2042,194:li=li-1:print""tab(26)li:ifli=0then5000
  40. 274 fort=0to2000:next:pokev+21,0:gosub410:poke50432,248:goto20
  41. 300 poke50432,0:pokev+21,7:print""
  42. 302 printtab(1)"congratulations!! you went 500 miles!!":fort=0to4000:next
  43. 304 goto5000
  44. 399 rem    setups
  45. 400 poke49522,1:poke49523,0:poke49524,39:poke49525,0:poke49526,13
  46. 402 poke49527,1:poke49528,1
  47. 404 forx=50432to50448:pokex,0:next:sys51104
  48. 405 poke50439,251:poke50441,255:poke50443,254
  49. 406 poke50445,252:poke50447,254:poke50688,248
  50. 410 pokev+16,0:pokev+28,255:pokev+23,7:pokev+29,7:pokev+37,9:pokev+38,0
  51. 412 pokev+39,5:pokev+40,5:pokev+41,10:pokev+42,1:pokev+43,1:pokev+44,1
  52. 414 pokev+45,1:pokev+46,1
  53. 416 poke2040,196:poke2041,197:poke2042,192:poke2043,199:poke2044,199
  54. 418 poke2045,199:poke2046,199:poke2047,199
  55. 420 pokev,100:pokev+1,170:pokev+2,148:pokev+3,170:pokev+4,112:pokev+5,162
  56. 422 pokev+6,150:pokev+7,125:pokev+8,30:pokev+9,145:pokev+10,240:pokev+11,165
  57. 424 pokev+12,70:pokev+13,185:pokev+14,25:pokev+15,210:ds=199
  58. 450 pokev+21,255:poke50432,248:w1=peek(v+30):return
  59. 500 forx=0to24:pokes+x,0:next:mr=30
  60. 502 pokes+1,15:pokes+5,16:pokes+6,240:pokes+15,mr:pokes+24,24:pokes+4,21
  61. 504 return
  62. 899 rem    draw background
  63. 900 poke53281,15:poke53280,00:printchr$(147):forg=9to16step4:forx=0to7
  64. 902 a=(rnd(1)*2)+11
  65. 904 poke783,0:poke782,x*5
  66. 906 d=(rnd(1)*8)+1
  67. 908 poke781,g:sys65520:poke646,a:print"[172][172][172][172][155][146][197][208]":poke646,a
  68. 910 forc=1tod:poke781,g-c:sys65520
  69. 912 print"[172][172][172][172][151] ":poke646,a:next
  70. 914 poke781,g-c:poke782,x*5:poke783,0:sys65520:print"[151][169][164][164][164][206]"
  71. 916 next:next:print""
  72. 918 printtab(1)"[151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  73. 920 print""tab(1)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  74. 922 print"    miles          lives"
  75. 924 print"":printtab(10)""m;tab(26)li
  76. 926 return
  77. 5000 poke50432,0:sys65418:pokev+21,0:ms=ms-m:dy=dy+1:sc=sc+(5*m)
  78. 5002 open3,dv,3,"@0:stats,s,w":print#3,dy:print#3,ms:print#3,sc:print#3,ft
  79. 5004 close3
  80. 5006 ifms<1thena$="win":goto6000
  81. 5008 ifdy=22thena$="lose":goto6000
  82. 5010 a$="main"
  83. 6000 q$=chr$(34):print"[147]":poke53281,0:poke53280,0:poke53272,21
  84. 6002 print"[144][147]load"q$a$q$","dv
  85. 6004 print"run":poke631,13:poke632,13:poke198,2:end
  86. 10000 d=peek(186):n$="0:car":open15,d,15,"s"+n$:close15:saven$,d:end
  87.