home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 213 / 213.d81 / b.camel trek (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2002-01-01  |  9.4 KB  |  328 lines
  1. 10 poke53280,6:poke53281,6:print""
  2. 20 print"[147]";tab(9)"**********************"
  3. 30 printtab(9)"*[144]    [195][193][205][197][204][160] [212][210][197][203]     *"
  4. 40 printtab(9)"**********************"
  5. 50 gosub2790
  6. 60 printtab(18)"[159]by r.w. kober[154]"
  7. 62 print"[144][204][207][193][196][211][212][193][210] is not public domain."
  8. 64 print"[144][208]lease respect the author's rights."
  9. 70 ford=1to3500:next
  10. 80 tr%=0:tc%=0:td%=0
  11. 90 forsc=1to20:print"":next
  12. 100 print"[144] [215]ould you like some instruction as to"
  13. 110 print" how this game is played??  y or n [154]"
  14. 120 forsc=1to5:print"":next
  15. 130 getd$:ifd$="n"then420
  16. 140 ifd$<>"y"then130
  17. 150 print"[147][144][215]elcome to [195][193][205][197][204][160][212][210][197][203]. [212]he object is to"
  18. 160 print"travel across the great [199]obie desert---"
  19. 170 print"a tribe of cannibalistic pygmies will"
  20. 180 print"be chasing you.------------ [217]ou will be"
  21. 190 print"asked for commands to continue play."
  22. 200 ford=1to1000:next
  23. 210 forda=1to40:print"-";:ford=1to100:next:next
  24. 220 poke198,0:print"[154]   your choices will be as follows."
  25. 230 gosub2400
  26. 240 print"     <press a key to continue>"
  27. 250 ifpeek(197)=64then250
  28. 260 :
  29. 310 poke198,0
  30. 320 print"[147][144][217]ou have 1 quart of water which will"
  31. 330 print"last you 6 drinks. [217]ou may refill your"
  32. 340 print"your canteen at an oasis. [217]ou will get"
  33. 350 print"1/2 quart if your miracle occurs."
  34. 360 print"[201]f you hope for a miracle and don't"
  35. 370 print"get it";:forda=1to15:print"-";:ford=1to500:next:next
  36. 380 printtab(24)"[144]you're dead!![154]"
  37. 390 ford=1to2000:next
  38. 400 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]          [211]elect difficulty level":goto430
  39. 410 restore
  40. 420 print"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]         [211]elect difficulty level"
  41. 430 restore:print"           #1[146][154] =  50 mile trek"
  42. 440 print"           #2[146][154] = 100 mile trek"
  43. 450 print"           #3[146][154] = 150 mile trek"
  44. 460 print"           #4[146][154] = 200 mile trek"
  45. 470 getm$:ifval(m$)<1orval(m$)>4then470
  46. 480 onval(m$)goto490,500,510,520
  47. 490 m=50:j=32:k=53:l=48:kk=3:goto530
  48. 500 m=100:j=49:k=48:l=48:kk=3:goto530
  49. 510 m=150:j=49:k=53:l=48:kk=2:goto530
  50. 520 m=200:j=50:k=48:l=48:kk=2:goto530
  51. 530 forgg=0to4:readg
  52. 540 ifg=-1thenprint"[147]":goto410
  53. 550 poke1918+gg,g:next
  54. 560 formm=0to5:readp
  55. 570 ifp=-1thenprint"[147]":goto410
  56. 580 poke1926+mm,p:next
  57. 590 forcs=0to13:poke56190+cs,0:next
  58. 600 data7,15,1,12,61,32,13,9,12,5,19,-1
  59. 610 poke1923,j:poke1924,k:poke1925,l
  60. 620 print"    good luck and good camel trekking."
  61. 630 ford=1to2000:next
  62. 640 print"[147][217]ou are in the middle of the [199]obie "
  63. 650 print"desert, at an oasis-----------------"
  64. 660 gosub2380
  65. 670 print"[217]our trek is just about ready to begin":goto880
  66. 680 ifc>m-1then1810
  67. 690 z=z-1:q=q+1:qq=0
  68. 700 ifz=1thenprint"[158]----- [215][160][193][160][210][160][206][160][201][160][206][160][199] [146]-----[144] get a drink[154]"
  69. 702 fordl=1to600:nextdl
  70. 710 ifz<0then2310
  71. 720 x2=int(rnd(1)*10+1)
  72. 730 ifq<kkthen870
  73. 740 c1=c1+x2
  74. 750 ifc1<cthen850
  75. 760 poke53280,2:poke53281,11
  76. 770 print"[147][158]                                       "
  77. 780 print" *** [212]he pygmies have captured you.*** "
  78. 790 print"                                       [146]":gosub2740
  79. 800 print"  [195]amel's [195]ream of [208]eople soup is their"
  80. 810 print"  favorite meal---":ford=1to3000:next
  81. 820 poke53280,6:poke53281,6:ford=1to500:next
  82. 830 printtab(25)"[144]b [145]u [145]r [145]p---[154]"
  83. 840 goto2040
  84. 850 ifc-c1<10thenprint"[158] [193][204][197][210][212]![146][154] [212]he pygmies are";c-c1;"miles behind":goto870
  85. 860 print"[212]he pygmies are ";c-c1;" miles behind you."
  86. 870 print"[217]ou have traveled ";c;" miles so far."
  87. 880 print"        [215]hat is your command?"
  88. 890 print"      (for choices press <f7>)"
  89. 900 print"[153]----------------------------------------[154]"
  90. 910 ifpeek(197)=64then910
  91. 920 ifpeek(197)=3thengosub2400:goto925
  92. 925 gety$:ify$="q"then63000
  93. 930 ifval(y$)<1orval(y$)>6then910
  94. 940 onval(y$)goto1260,1020,1120,1210,1300
  95. 950 t=int(rnd(1)*10+1)
  96. 960 ift>3then1800
  97. 970 poke198,0:print" [217]ou have been found in a state of "
  98. 980 print" unconsciousness."
  99. 990 s=3
  100. 1000 z=4
  101. 1010 goto680
  102. 1020 poke198,0:f=f+1
  103. 1030 print"[147]":gosub2600
  104. 1040 iff=8then1780
  105. 1050 gosub1420
  106. 1060 x1=int(rnd(1)*10+1)
  107. 1070 c=c+x1
  108. 1080 ifqq=1then680
  109. 1090 print"     [217]our camel likes this pace!"
  110. 1100 iff>5thenprint"    [158] but [146][154]--he is getting tired"
  111. 1110 goto680
  112. 1120 poke198,0:f=f+3
  113. 1130 print"[147]":gosub2670
  114. 1140 iff>7then1780
  115. 1150 gosub1420
  116. 1160 x1=int(rnd(1)*20+1)
  117. 1170 c=c+x1
  118. 1180 ifqq=1then680
  119. 1190 print"[217]our camel is[150] burning[154] up the desert sand"
  120. 1200 goto680
  121. 1210 poke53280,0:poke53281,0
  122. 1220 poke198,0:print"[147] [217]our camel thanks you.  [159]zzz-zzz-zzz-zzz[154]"
  123. 1230 f=0:c1=c1+10
  124. 1240 ford=1to2000:next
  125. 1250 poke53280,6:poke53281,6:goto680
  126. 1260 print"[147]":poke198,0:poke53280,11:poke53281,11
  127. 1270 forvb=1to7:print"[159][205]mm";:ford=1to100:next:next
  128. 1280 printtab(17)"[145][145][145][145][156]---- good water [146][154]"
  129. 1290 ford=1to100:next:poke53280,6:poke53281,6:goto1360
  130. 1300 print"[147]":poke53280,9:poke53281,9
  131. 1310 poke198,0:print"[217]our camel has";7-f;" good days left"
  132. 1320 print"[217]ou have";s;"drinks left in your canteen."
  133. 1330 print"[217]ou can go";z;"commands without drinking."
  134. 1340 print"you still have ";m-c;" miles to travel"
  135. 1350 ford=1to3000:next
  136. 1360 poke198,0:s=s-1:poke53280,6:poke53281,6
  137. 1370 ifs<0then1800
  138. 1380 ifs>2then1400
  139. 1390 print"[158]    ----[194]etter watch for an oasis[146]----[154]"
  140. 1400 z=4
  141. 1410 goto880
  142. 1420 a=int(rnd(1)*100+1)
  143. 1430 ifa>5then1700
  144. 1440 print"   [215]ild [194]erbers hidden in the sand have"
  145. 1450 print"  captured you. [204]uckily, the local sheik"
  146. 1460 print"  has agreed to their ransom demands---"
  147. 1470 print"  but---watch out for the pygmies!!!!"
  148. 1480 ford=1to4000:next
  149. 1490 print"":forda=1to40:print"[152]-";:ford=1to30:next:next
  150. 1500 print"[154] [217]ou have two new choices of commands"
  151. 1510 print"         #7[146][154] = [193]ttempt an escape"
  152. 1520 print"         #8[146][154] = [215]ait for payment"
  153. 1530 print"        [215]hat is your command?"
  154. 1540 print"[159]---------------------------------------[154]"
  155. 1550 getx$:ifx$="8"then1640
  156. 1560 ifx$<>"7"then1550
  157. 1570 x1=int(rnd(1)*10+1)
  158. 1580 ifx1<6then1610
  159. 1590 print"[195]ongratulations---you've escaped!!!"
  160. 1600 goto680
  161. 1610 print"[217]ou were mortally wounded by a pig"
  162. 1620 print"stabber while escaping."
  163. 1630 goto2040
  164. 1640 x1=int(rnd(1)*100+1)
  165. 1650 ifx1>24then1680
  166. 1660 print"[217]our ransom has been paid, you are free."
  167. 1670 goto680
  168. 1680 print"[212]he local sultan is collecting---wait--"
  169. 1690 ford=1to3000:next
  170. 1700 a=int(rnd(1)*10+1)
  171. 1710 ifa>3then1870
  172. 1720 print"[217]ou have arrived at an oasis. [217]our camel"
  173. 1730 print"is filling your canteen and eating figs."
  174. 1740 c=c+10
  175. 1750 z=4
  176. 1760 s=6:qq=1
  177. 1770 return
  178. 1780 print"[147][212]oo bad....you ran your poor old camel"
  179. 1790 print"too death!!"
  180. 1800 goto2040
  181. 1810 print"[150][147]  *********** [217][160][207][160][213][160][160][215] [201] [206] ***********"
  182. 1820 gosub2790
  183. 1830 print"[152]  [193] party is being given in your honor."
  184. 1840 print"[144]   [212]he pygmies are planning to attend.[154]"
  185. 1850 tc%=tc%+1
  186. 1860 goto2240
  187. 1870 x1=int(rnd(1)*100+1)
  188. 1880 ifx1>5then1980
  189. 1890 print"[217]ou have been caught in a sand storm!"
  190. 1900 x5=int(rnd(1)*10+1)
  191. 1910 x6=int(rnd(1)*10+1)
  192. 1920 ifx6<5then1950
  193. 1930 c=c+x5
  194. 1940 goto1960
  195. 1950 c=c-x5:ifc<0thenc=0
  196. 1960 print"[217]our new position is ";c;" miles so far."
  197. 1970 goto880
  198. 1980 x1=int(rnd(1)*100+1)
  199. 1990 ifx1>5thenreturn
  200. 2000 c1=c1+1
  201. 2010 print"      [217]our camel hurt his hump."
  202. 2020 print"  [204]uckily the pygmies were footweary."
  203. 2030 goto880
  204. 2040 u=int(rnd(1)*10+1)
  205. 2050 print"[150][217]ou died in the desert----------------[154]"
  206. 2060 gosub2930
  207. 2070 ifu>1then2110
  208. 2080 print"[212]h[217]e national camel's union is boycotting"
  209. 2090 print"your funeral!!!!!"
  210. 2100 goto2240
  211. 2110 ifu>3then2150
  212. 2120 print"[217]our body was eaten by buzzards and"
  213. 2130 print"some imported cannibals!!!!!"
  214. 2140 goto2240
  215. 2150 ifu>5then2190
  216. 2160 print"[212]he local sheik now uses your skull for"
  217. 2170 print"a change purse!!!!!"
  218. 2180 goto2240
  219. 2190 ifu>7then2230
  220. 2200 print"[201] think you should steer clear of"
  221. 2210 print"all deserts!!!"
  222. 2220 goto2240
  223. 2230 print"     [201] don't think you should be                  riding camels!!!!"
  224. 2240 ford=1to5000:next:print""
  225. 2250 print"[147][150]                                       "
  226. 2260 print"   [215]ant a new camel and a new trek???  "
  227. 2270 print"                                       [146][154]"
  228. 2280 getd$:ifd$="y"thenprint"[147]":goto400
  229. 2290 ifd$<>"n"then2280
  230. 2300 goto2330
  231. 2310 print"[147][150][217]ou ran out off water.......sorry![154]"
  232. 2320 goto2040
  233. 2330 print"[147][158]";tab(11)"*****************"
  234. 2340 printtab(11)"*[212]ry again later*"
  235. 2350 printtab(11)"*****************[154]"
  236. 2360 gosub2740
  237. 2370 goto2480
  238. 2380 z=4:s=6:c=0:c1=0:f=0:q=-1:tr%=tr%+1
  239. 2390 return
  240. 2400 poke198,0:print"";tab(9)"[152]'[195][160][207][160][205][160][205][160][193][160][206][160][196][160][211]'[154]"
  241. 2410 print"     #[152]1[146][154] = [196]rink from your canteen"
  242. 2420 print"     #[152]2[146][154] = [193]head at moderate speed"
  243. 2430 print"     #[152]3[146][154] = [193]head at full speed"
  244. 2440 print"     #[152]4[146][154] = [211]top for the night"
  245. 2450 print"     #[152]5[146][154] = [210]equest a status check"
  246. 2460 print"     #[152]6[146][154] = [200]ope for a miracle"
  247. 2465 print"      [152]q[146][154] = [209]uits"
  248. 2470 return
  249. 2480 ford=1to2000:next
  250. 2490 forsc=1to25:print"":next
  251. 2500 print"";tab(13)"[212] [200][160][197][160][160][197] [206][160][196]"
  252. 2510 print"[159][217]ou embarked on";tr%;:iftr%=0thenprint"trek.":goto2520
  253. 2511 print"treks."
  254. 2520 print"[217]ou sucessfully completed";tc%;:iftc%=1thenprint"trek":goto2530
  255. 2522 print"treks"
  256. 2530 print"[150]but, you died, in some way,";tr%-tc%;:iftr%-tc%=1thenprint"time.":goto2540
  257. 2532 print"times."
  258. 2540 :
  259. 2550 print"[144] [217]our survival rate =";tc%*100/tr%;"%[154]"
  260. 2560 print"[144]     [208]ress any key to end program!!![154]"
  261. 2570 ifpeek(197)=64then2570
  262. 2580 forsc=1to25:print"":next
  263. 2590 goto63000
  264. 2595 :
  265. 2600 fort=1to5
  266. 2610 ss=54272:foraa=0to24:pokess+aa,0:next
  267. 2620 pokess+24,15:pokess,220:pokess+1,68:pokess+5,15:pokess+6,215:pokess+4,129
  268. 2630 pokess+7,120:pokess+8,100:pokess+12,15:pokess+13,215
  269. 2640 pokess+11,17:pokess+24,0
  270. 2650 ford=1to200:next:next
  271. 2660 poke53280,6:poke53281,6:return
  272. 2670 fort=1to5
  273. 2680 ss=54272:foraa=0to24:pokess+aa,0:next
  274. 2690 pokess+24,15:pokess,220:pokess+1,68:pokess+5,15:pokess+6,215:pokess+4,129
  275. 2700 pokess+7,120:pokess+8,100:pokess+12,15:pokess+13,215
  276. 2710 pokess+11,17:pokess+24,0
  277. 2720 ford=1to75:next:next
  278. 2730 poke53280,6:poke53281,6:return
  279. 2740 sq=54272:forsz=sqtosq+24:pokesz,0:next
  280. 2750 pokesq+24,15:pokesq+1,7:pokesq,75
  281. 2760 pokesq+5,64:pokesq+6,250:pokesq+4,33:fort=1to1500:next
  282. 2770 pokesq+1,4:fort=1to1500:next
  283. 2780 forsz=10to0step-1:pokesq+24,sz:next:return
  284. 2790 forl=54272to54296:pokel,0:next
  285. 2800 poke54296,15:poke54277,64:poke54278,250:poke54272,75:poke54276,65
  286. 2810 x=54273:poke54275,5:poke54274,250
  287. 2820 pokex,34:ford=1to100:next
  288. 2830 pokex,43:ford=1to100:next
  289. 2840 pokex,51:ford=1to100:next
  290. 2850 pokex,68:ford=1to200:next
  291. 2860 pokex,57:ford=1to100:next
  292. 2870 pokex,68:ford=1to500:next
  293. 2880 poke54296,0
  294. 2890 return
  295. 2900 :
  296. 2910 pokex,26:ford=1to1000:next
  297. 2920 rem
  298. 2930 forl=54272to54296:pokel,0:next
  299. 2940 poke54296,15:poke54277,64:poke54278,250:poke54272,75:poke54276,65
  300. 2950 x=54273:poke54275,5:poke54274,250
  301. 2960 pokex,26:ford=1to500:next
  302. 2970 ford=1to10:pokex,0:next
  303. 2980 pokex,26:ford=1to200:next
  304. 2990 ford=1to10:pokex,0:next
  305. 3000 pokex,34:ford=1to1000:next
  306. 3010 ford=1to100:poke54296,0:next:poke54296,15
  307. 3020 pokex,26:ford=1to500:next
  308. 3030 ford=1to10:pokex,0:next
  309. 3040 pokex,34:ford=1to200:next
  310. 3050 ford=1to10:pokex,0:next
  311. 3060 pokex,43:ford=1to2000:next
  312. 3070 poke54296,0
  313. 3080 return
  314. 10000 d=peek(186):n$="b.camel trek":open15,d,15,"s0:"+n$:close15:saven$,d:end
  315. 40000 fori=0to21:poke828+i,8+i:next
  316. 40010 ifdv<8ordv>29ordv=8then40030
  317. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  318. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  319. 40040 close2:open2,i,2:close2:ifstthen40060
  320. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  321. 40060 next:print"[147]":poke53272,23:poke186,8:end
  322. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  323. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  324. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  325. 63000 rem  connect to l.s.
  326. 63010 goto40000:remd"chr$(34)"payload"chr$(34)",8":print"qqqqruns"
  327. 63020 [151]631,13:[151]632,13:[151]198,2:[128]
  328.