home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / main (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1999-01-01  |  7.2 KB  |  172 lines
  1. 8 poke53370,0
  2. 10 rem    escape route c-64  main prgm
  3. 12 rem    jc hilty  september 1992
  4. 14 ifa=0thenpoke52,56:poke56,56:clr:poke53281,0:poke53280,0:print"[147]":poke147,0
  5. 15 dv=peek(186):ifdv<8thendv=8
  6. 16 ifa=0thena=1:load"pic.now",dv,1
  7. 18 ifa=1thena=2:load"zippack",dv,1
  8. 20 ifa=2thena=3:load"writer",dv,1
  9. 21 ifa=3thena=4:load"escape1.font",dv,1
  10. 22 ifa=4thena=5:load"escape.sp1",dv,1
  11. 24 open3,dv,3,"stats,s,r":input#3,dy:input#3,ms:input#3,sc:input#3,ft:close3
  12. 25 v=53248:s=54272:poke49167,dv
  13. 26 sys49152,"pic3",40960,24576:sys860
  14. 27 sys16384,2,24576,14336,23552
  15. 28 sys16439,6,0,0,"[196]ay   [205]iles to go   [211]core":sys16439,6,1,23,"[198]lat [212]ires"
  16. 29 sys16439,7,0,1,dy:sys16439,7,6,1,ms:sys16439,7,20,1,sc:sys16439,7,12,23,ft
  17. 30 poke24568,15:pokev+16,0:pokev+28,15:pokev+37,9:pokev+38,0:pokev+39,10
  18. 32 pokev,75:pokev+1,85:pokev+23,0:pokev+29,0:pokev+21,1
  19. 50 n=int(7*rnd(4))+1:pokev+21,0:onngosub80,82,84,86,88,90,92:pokev+21,1
  20. 52 fb=-((peek(56320)and16)=0):iffb=1thenfort=0to1000:next:pokev+21,0:goto60
  21. 54 goto50
  22. 60 onpgoto100,200,300,400,500,600,700
  23. 80 p=1:pokev,75:pokev+1,85:return
  24. 82 p=2:pokev,140:pokev+1,85:return
  25. 84 p=3:pokev,40:pokev+1,140:return
  26. 86 p=4:pokev,105:pokev+1,140:return
  27. 88 p=5:pokev,165:pokev+1,140:return
  28. 90 p=6:pokev,75:pokev+1,195:return
  29. 92 p=7:pokev,140:pokev+1,195:return
  30. 99 rem    piano drop
  31. 100 gosub8000:poke53281,15:poke53280,15:sys49152,"pic4",40960,24576:sys860
  32. 101 gosub8100:poke24570,14:poke24571,17
  33. 102 poke24568,10:poke24569,11:pokev+40,14:pokev+23,15:pokev+29,15
  34. 103 pokev,80:pokev+1,158:pokev+2,80:pokev+3,200:pokev+21,3
  35. 106 sys16439,9,0,0,"[215]ell, well, well. [201]t looks like the"
  36. 108 sys16439,9,0,1,"great detective has found me,"
  37. 110 sys16439,9,0,2,"the poor little old [201]ce[204]ady.":wait56320,16,16:gosub8100
  38. 112 sys16439,0,0,0,"[207]kay, [194]abe,"
  39. 114 sys16439,0,0,1,"[202]ust give me the diamond and "
  40. 116 sys16439,0,0,2,"[201] will escort you to jail.":wait56320,16,16:gosub8100
  41. 118 sys16439,9,0,0,"[217]ou better look up, [200]oney.":wait56320,16,16:gosub8100
  42. 119 sys16439,0,0,0,"[201] will not fall for that trick, [196]oll."
  43. 120 wait56320,16,16:gosub8100
  44. 122 sys16439,1,0,0,"[205][207][214][197][160][197][210][201][195][160][215][201][212][200][160][212][200][197][160][202][207][217][211][212][201][195][203][160][193][206][196][160]"
  45. 124 sys16439,1,0,1,"[208][210][197][211][211][160][212][200][197][160][198][201][210][197][194][213][212][212][207][206][160][215][200][197][206]    "
  46. 126 sys16439,1,0,2,"[210][197][193][196][217].":xe=80
  47. 130 jy=peek(56320)and15
  48. 132 ifjy=7andxe+8<255thengosub140
  49. 134 ifjy=11andxe-8>30thengosub150
  50. 135 fb=-((peek(56320)and16)=0):iffb=1then160
  51. 136 goto130
  52. 140 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
  53. 142 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,13:fort=0to050:next
  54. 144 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
  55. 146 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,11:fort=0to050:next:return
  56. 150 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
  57. 152 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,13:fort=0to050:next
  58. 154 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
  59. 156 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,11:fort=0to050:next:return
  60. 160 xp=int(170*rnd(5))+30:pokev+41,1:pokev+42,1
  61. 161 pokev+4,xp:pokev+5,0:pokev+6,xp+48:pokev+7,0:yp=0:pokev+21,15
  62. 170 gosub8500:ifxe<xp-40orxe>xp+96then180
  63. 172 yp=yp+4:ifyp>180thenpokev+21,14:poke24569,15:goto175
  64. 174 pokev+5,yp:pokev+7,yp:goto172
  65. 175 pokev+5,200:pokev+7,200:fort=0to150:pokev+40,5:pokev+40,10:pokev+40,6:next
  66. 176 gosub8100:sys16439,9,0,0,"[201]t looks like you really fell"
  67. 177 sys16439,9,0,1,"for that trick this time, [211]hamus.":wait56320,16,16
  68. 178 pokev+21,0:ms=ms+250:dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto10000
  69. 179 gosub8000:poke53281,0:poke53280,0:goto26
  70. 180 yp=yp+4:ifyp>210thenfort=0to2000:next:goto184
  71. 182 pokev+5,yp:pokev+7,yp:goto180
  72. 184 gosub8100:sys16439,0,0,0,"[204]ooks like you missed, [201]ce[204]ady."
  73. 185 sys16439,0,0,1,"[206]ow [201] am hot on your trail.":wait56320,16,16:pokev+21,0
  74. 186 ms=ms-250:ifms<1thena$="win":gosub8000:gosub8010:goto9000
  75. 187 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
  76. 188 sc=sc+100:gosub8000:poke53281,0:poke53280,0:goto26
  77. 199 rem    roulette
  78. 200 gosub8000:poke53281,3:poke53280,3:sys49152,"pic6",40960,24576:sys860
  79. 202 sys16439,1,0,1,"[207]kay, so you got    "
  80. 204 sys16439,1,0,2,"lucky. [217]ou will gain   "
  81. 206 sys16439,1,0,3,"[212]he following number   "
  82. 208 sys16439,1,0,4,"of miles on me."
  83. 210 z=int(rnd(4)*500)+1:sys16439,1,0,6,z:ms=ms-z
  84. 212 sys16439,1,0,8,"[196]o not count on getting "
  85. 214 sys16439,1,0,9,"lucky with me again,   "
  86. 216 sys16439,1,0,10,"mister.":wait56320,16,16
  87. 220 ifms<1thena$="win":gosub8000:gosub8010:goto9000
  88. 222 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
  89. 224 gosub8000:poke53280,0:poke53281,0:goto26
  90. 299 rem    expenses
  91. 300 gosub8000:poke53281,3:poke53280,3:sys49152,"pic6",40960,24576:sys860
  92. 302 sys16439,1,0,1,"[215]hat a shame you had"
  93. 304 sys16439,1,0,2,"to stop, [205]r. [196]etective."
  94. 306 sys16439,1,0,3,"[212]oo bad you needed     "
  95. 308 sys16439,1,0,4,"gas, oil, and a new    "
  96. 310 sys16439,1,0,5,"transmission. [217]our     "
  97. 312 sys16439,1,0,6,"little shopping spree  "
  98. 314 sys16439,1,0,7,"will cost you the      "
  99. 316 sys16439,1,0,8,"following number of    "
  100. 318 sys16439,1,0,9,"miles...."
  101. 320 z=int(rnd(4)*500)+1:sys16439,1,0,11,z:ms=ms+z
  102. 321 sys16439,1,0,13,"[212]hose are the breaks.  "
  103. 322 sys16439,1,0,14,"[207]h,yeah,you need those too.":wait56320,16,16
  104. 323 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
  105. 324 gosub8000:poke53280,0:poke53281,0:goto26
  106. 399 rem    driving
  107. 400 gosub8000:poke53281,12:poke53280,12:sys49152,"pic11",40960,24576:sys860
  108. 402 sys16439,1,1,1,"[201] have got to get this car in gear or"
  109. 404 sys16439,1,1,2,"[201] will never catch the [201]ce[204]ady."
  110. 406 sys16439,1,1,3,"[201] sure wish that [201] had finished those"
  111. 408 sys16439,1,1,4,"driving lessons.":wait56320,16,16
  112. 410 fort=1to4:sys16439,1,1,t,"                                      ":next
  113. 412 sys16439,1,1,1,"[204]et me see, [196]o you pass on the left"
  114. 414 sys16439,1,1,2,"or right. [196]oes red mean stop,"
  115. 416 sys16439,1,1,3,"or is it green. [215]hat the heck. [208]ut"
  116. 418 sys16439,1,1,4,"the pedal to the metal."
  117. 420 wait56320,16,16:gosub8000:gosub8010:a$="car":goto9000
  118. 499 rem    gems
  119. 500 gosub8000:sys49152,"pic10",40960,24576:sys860
  120. 502 sys16439,1,1,21,"[212]here are many stolen gems in the"
  121. 504 sys16439,1,1,22,"[201]ce[204]ady's castle. [201]f [201] can recover"
  122. 506 sys16439,1,1,23,"them, [201] can pick up some miles on"
  123. 508 sys16439,1,1,24,"her. [212]here is only one problem...":wait56320,16,16
  124. 510 fort=21to24:sys16439,1,1,t,"                                     ":next
  125. 512 sys16439,1,1,21,"[193] ghost is rumored to be in the"
  126. 514 sys16439,1,1,22,"rooms with the gems. [194]ut hey, [201]"
  127. 516 sys16439,1,1,23,"don't believe in ghosts. [193]fter all"
  128. 518 sys16439,1,1,24,"[201]'m a great detective...[217][197][207][215][215][215][215]!!"
  129. 520 wait56320,16,16:gosub8000:gosub8010:a$="gems":goto9000
  130. 599 rem    castle
  131. 600 gosub8000:sys49152,"pic7",40960,24576:sys860
  132. 602 sys16439,1,23,14,"[212]here is the":sys16439,1,23,15,"[201]ce[204]ady's castle."
  133. 604 sys16439,1,24,16,"[201]t sure is":sys16439,1,26,17,"scary looking."
  134. 605 wait56320,16,16
  135. 606 sys16439,1,23,14,"            ":sys16439,1,23,15,"                 "
  136. 608 sys16439,1,24,16,"          ":sys16439,1,26,17,"              "
  137. 610 sys16439,1,23,14,"[200]er henchmen":sys16439,1,23,15,"are inside."
  138. 612 sys16439,1,24,16,"[201]'ll need my":sys16439,1,26,17,"ninja skills."
  139. 614 wait56320,16,16
  140. 618 sys16439,1,23,14,"            ":sys16439,1,23,15,"                 "
  141. 620 sys16439,1,24,16,"          ":sys16439,1,26,17,"              "
  142. 622 sys16439,1,23,14,"[201]f [201] defeat":sys16439,1,23,15,"them, [201]'ll"
  143. 624 sys16439,1,24,16,"gain miles on":sys16439,1,26,17,"the [201]ce[204]ady."
  144. 626 wait56320,16,16:gosub8000:gosub8010:a$="castle":goto9000
  145. 699 rem    flat tire
  146. 700 gosub8000:poke53281,3:poke53280,3:sys49152,"pic5",40960,24576:sys860
  147. 710 wait56320,16,16:ft=ft+1:ifft=4thena$="lose":gosub8000:gosub8010:goto9000
  148. 712 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
  149. 714 gosub8000:poke53280,0:poke53281,0:goto26
  150. 7999 rem    erase hi-res screen
  151. 8000 f$="                                        ":d=0:e=24
  152. 8002 sys16439,2,0,d,f$:sys16439,2,0,e,f$:fort=0to10:next
  153. 8004 d=d+1:e=e-1:ifd=13thenreturn
  154. 8006 goto8002
  155. 8009 rem    hi-res to text
  156. 8010 poke56576,(peek(56576)and252)or3:poke53265,27:poke53270,200:poke53272,21
  157. 8012 print"[147]"
  158. 8020 open3,dv,3,"@0:stats,s,w":print#3,dy:print#3,ms:print#3,sc:print#3,ft
  159. 8022 close3:return
  160. 8099 rem   erase top of screen
  161. 8100 ford=0to3:sys16439,1,0,d,"                                        ":next
  162. 8101 return
  163. 8499 rem    whistling piano fall
  164. 8500 forx=0to24:pokes+x,0:next:pokes+24,15:pokes+5,80:pokes+12,160:pokes+6,255
  165. 8502 pokes+13,252:pokes+4,17:pokes+4,16
  166. 8504 fori=255to50step-1:pokes+1,i:forj=1to5:next:next
  167. 8506 pokes+1,10:pokes+8,1:pokes+5,112:pokes+6,252:pokes+4,129:pokes+11,129
  168. 8508 fori=1to200:next:pokes+4,128:pokes+11,128:return
  169. 9000 poke53281,0:poke53280,0:q$=chr$(34):print"[144][147]load"q$a$q$","dv
  170. 9002 print"run":poke631,13:poke632,13:poke198,2:end
  171. 10000 d=peek(186):n$="0:main":open15,d,15,"s"+n$:close15:saven$,d:end
  172.