home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 180
/
180.d81
/
main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
172 lines
8 poke53370,0
10 rem escape route c-64 main prgm
12 rem jc hilty september 1992
14 ifa=0thenpoke52,56:poke56,56:clr:poke53281,0:poke53280,0:print"[147]":poke147,0
15 dv=peek(186):ifdv<8thendv=8
16 ifa=0thena=1:load"pic.now",dv,1
18 ifa=1thena=2:load"zippack",dv,1
20 ifa=2thena=3:load"writer",dv,1
21 ifa=3thena=4:load"escape1.font",dv,1
22 ifa=4thena=5:load"escape.sp1",dv,1
24 open3,dv,3,"stats,s,r":input#3,dy:input#3,ms:input#3,sc:input#3,ft:close3
25 v=53248:s=54272:poke49167,dv
26 sys49152,"pic3",40960,24576:sys860
27 sys16384,2,24576,14336,23552
28 sys16439,6,0,0,"[196]ay [205]iles to go [211]core":sys16439,6,1,23,"[198]lat [212]ires"
29 sys16439,7,0,1,dy:sys16439,7,6,1,ms:sys16439,7,20,1,sc:sys16439,7,12,23,ft
30 poke24568,15:pokev+16,0:pokev+28,15:pokev+37,9:pokev+38,0:pokev+39,10
32 pokev,75:pokev+1,85:pokev+23,0:pokev+29,0:pokev+21,1
50 n=int(7*rnd(4))+1:pokev+21,0:onngosub80,82,84,86,88,90,92:pokev+21,1
52 fb=-((peek(56320)and16)=0):iffb=1thenfort=0to1000:next:pokev+21,0:goto60
54 goto50
60 onpgoto100,200,300,400,500,600,700
80 p=1:pokev,75:pokev+1,85:return
82 p=2:pokev,140:pokev+1,85:return
84 p=3:pokev,40:pokev+1,140:return
86 p=4:pokev,105:pokev+1,140:return
88 p=5:pokev,165:pokev+1,140:return
90 p=6:pokev,75:pokev+1,195:return
92 p=7:pokev,140:pokev+1,195:return
99 rem piano drop
100 gosub8000:poke53281,15:poke53280,15:sys49152,"pic4",40960,24576:sys860
101 gosub8100:poke24570,14:poke24571,17
102 poke24568,10:poke24569,11:pokev+40,14:pokev+23,15:pokev+29,15
103 pokev,80:pokev+1,158:pokev+2,80:pokev+3,200:pokev+21,3
106 sys16439,9,0,0,"[215]ell, well, well. [201]t looks like the"
108 sys16439,9,0,1,"great detective has found me,"
110 sys16439,9,0,2,"the poor little old [201]ce[204]ady.":wait56320,16,16:gosub8100
112 sys16439,0,0,0,"[207]kay, [194]abe,"
114 sys16439,0,0,1,"[202]ust give me the diamond and "
116 sys16439,0,0,2,"[201] will escort you to jail.":wait56320,16,16:gosub8100
118 sys16439,9,0,0,"[217]ou better look up, [200]oney.":wait56320,16,16:gosub8100
119 sys16439,0,0,0,"[201] will not fall for that trick, [196]oll."
120 wait56320,16,16:gosub8100
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]"
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] "
126 sys16439,1,0,2,"[210][197][193][196][217].":xe=80
130 jy=peek(56320)and15
132 ifjy=7andxe+8<255thengosub140
134 ifjy=11andxe-8>30thengosub150
135 fb=-((peek(56320)and16)=0):iffb=1then160
136 goto130
140 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
142 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,13:fort=0to050:next
144 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
146 xe=xe+2:pokev,xe:pokev+2,xe:poke24569,11:fort=0to050:next:return
150 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
152 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,13:fort=0to050:next
154 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,12:fort=0to050:next
156 xe=xe-2:pokev,xe:pokev+2,xe:poke24569,11:fort=0to050:next:return
160 xp=int(170*rnd(5))+30:pokev+41,1:pokev+42,1
161 pokev+4,xp:pokev+5,0:pokev+6,xp+48:pokev+7,0:yp=0:pokev+21,15
170 gosub8500:ifxe<xp-40orxe>xp+96then180
172 yp=yp+4:ifyp>180thenpokev+21,14:poke24569,15:goto175
174 pokev+5,yp:pokev+7,yp:goto172
175 pokev+5,200:pokev+7,200:fort=0to150:pokev+40,5:pokev+40,10:pokev+40,6:next
176 gosub8100:sys16439,9,0,0,"[201]t looks like you really fell"
177 sys16439,9,0,1,"for that trick this time, [211]hamus.":wait56320,16,16
178 pokev+21,0:ms=ms+250:dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto10000
179 gosub8000:poke53281,0:poke53280,0:goto26
180 yp=yp+4:ifyp>210thenfort=0to2000:next:goto184
182 pokev+5,yp:pokev+7,yp:goto180
184 gosub8100:sys16439,0,0,0,"[204]ooks like you missed, [201]ce[204]ady."
185 sys16439,0,0,1,"[206]ow [201] am hot on your trail.":wait56320,16,16:pokev+21,0
186 ms=ms-250:ifms<1thena$="win":gosub8000:gosub8010:goto9000
187 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
188 sc=sc+100:gosub8000:poke53281,0:poke53280,0:goto26
199 rem roulette
200 gosub8000:poke53281,3:poke53280,3:sys49152,"pic6",40960,24576:sys860
202 sys16439,1,0,1,"[207]kay, so you got "
204 sys16439,1,0,2,"lucky. [217]ou will gain "
206 sys16439,1,0,3,"[212]he following number "
208 sys16439,1,0,4,"of miles on me."
210 z=int(rnd(4)*500)+1:sys16439,1,0,6,z:ms=ms-z
212 sys16439,1,0,8,"[196]o not count on getting "
214 sys16439,1,0,9,"lucky with me again, "
216 sys16439,1,0,10,"mister.":wait56320,16,16
220 ifms<1thena$="win":gosub8000:gosub8010:goto9000
222 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
224 gosub8000:poke53280,0:poke53281,0:goto26
299 rem expenses
300 gosub8000:poke53281,3:poke53280,3:sys49152,"pic6",40960,24576:sys860
302 sys16439,1,0,1,"[215]hat a shame you had"
304 sys16439,1,0,2,"to stop, [205]r. [196]etective."
306 sys16439,1,0,3,"[212]oo bad you needed "
308 sys16439,1,0,4,"gas, oil, and a new "
310 sys16439,1,0,5,"transmission. [217]our "
312 sys16439,1,0,6,"little shopping spree "
314 sys16439,1,0,7,"will cost you the "
316 sys16439,1,0,8,"following number of "
318 sys16439,1,0,9,"miles...."
320 z=int(rnd(4)*500)+1:sys16439,1,0,11,z:ms=ms+z
321 sys16439,1,0,13,"[212]hose are the breaks. "
322 sys16439,1,0,14,"[207]h,yeah,you need those too.":wait56320,16,16
323 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
324 gosub8000:poke53280,0:poke53281,0:goto26
399 rem driving
400 gosub8000:poke53281,12:poke53280,12:sys49152,"pic11",40960,24576:sys860
402 sys16439,1,1,1,"[201] have got to get this car in gear or"
404 sys16439,1,1,2,"[201] will never catch the [201]ce[204]ady."
406 sys16439,1,1,3,"[201] sure wish that [201] had finished those"
408 sys16439,1,1,4,"driving lessons.":wait56320,16,16
410 fort=1to4:sys16439,1,1,t," ":next
412 sys16439,1,1,1,"[204]et me see, [196]o you pass on the left"
414 sys16439,1,1,2,"or right. [196]oes red mean stop,"
416 sys16439,1,1,3,"or is it green. [215]hat the heck. [208]ut"
418 sys16439,1,1,4,"the pedal to the metal."
420 wait56320,16,16:gosub8000:gosub8010:a$="car":goto9000
499 rem gems
500 gosub8000:sys49152,"pic10",40960,24576:sys860
502 sys16439,1,1,21,"[212]here are many stolen gems in the"
504 sys16439,1,1,22,"[201]ce[204]ady's castle. [201]f [201] can recover"
506 sys16439,1,1,23,"them, [201] can pick up some miles on"
508 sys16439,1,1,24,"her. [212]here is only one problem...":wait56320,16,16
510 fort=21to24:sys16439,1,1,t," ":next
512 sys16439,1,1,21,"[193] ghost is rumored to be in the"
514 sys16439,1,1,22,"rooms with the gems. [194]ut hey, [201]"
516 sys16439,1,1,23,"don't believe in ghosts. [193]fter all"
518 sys16439,1,1,24,"[201]'m a great detective...[217][197][207][215][215][215][215]!!"
520 wait56320,16,16:gosub8000:gosub8010:a$="gems":goto9000
599 rem castle
600 gosub8000:sys49152,"pic7",40960,24576:sys860
602 sys16439,1,23,14,"[212]here is the":sys16439,1,23,15,"[201]ce[204]ady's castle."
604 sys16439,1,24,16,"[201]t sure is":sys16439,1,26,17,"scary looking."
605 wait56320,16,16
606 sys16439,1,23,14," ":sys16439,1,23,15," "
608 sys16439,1,24,16," ":sys16439,1,26,17," "
610 sys16439,1,23,14,"[200]er henchmen":sys16439,1,23,15,"are inside."
612 sys16439,1,24,16,"[201]'ll need my":sys16439,1,26,17,"ninja skills."
614 wait56320,16,16
618 sys16439,1,23,14," ":sys16439,1,23,15," "
620 sys16439,1,24,16," ":sys16439,1,26,17," "
622 sys16439,1,23,14,"[201]f [201] defeat":sys16439,1,23,15,"them, [201]'ll"
624 sys16439,1,24,16,"gain miles on":sys16439,1,26,17,"the [201]ce[204]ady."
626 wait56320,16,16:gosub8000:gosub8010:a$="castle":goto9000
699 rem flat tire
700 gosub8000:poke53281,3:poke53280,3:sys49152,"pic5",40960,24576:sys860
710 wait56320,16,16:ft=ft+1:ifft=4thena$="lose":gosub8000:gosub8010:goto9000
712 dy=dy+1:ifdy=22thena$="lose":gosub8000:gosub8010:goto9000
714 gosub8000:poke53280