home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_021_19xx_-_de_Disk_1_of_2_Side_B.d64 / warrior-adv. (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  35KB  |  1,000 lines
  1. 10 rem******* warrior *******
  2. 15 gosub 8000:rem title screen
  3. 20 gosub 9000:rem initialize
  4. 25 rem** main program **
  5. 30 gosub 7000:rem rm description
  6. 35 gosub 5000:rem object description
  7. 40 gosub 6000:rem monster description
  8. 50 gosub 1000:rem input
  9. 60 goto 25
  10. 1000 rem*** input ***
  11. 1005 print"[151]                                        [146]";
  12. 1006 print"[151]                                        [146]";
  13. 1010 input"  [155][215]hat do you want to do   [191][157][157][157]";a$
  14. 1015 b$=left$(a$,3)
  15. 1020 n=1:m=len(a$)
  16. 1025 ifmid$(a$,n,1)=" "andmid$(a$,n+1,1)<>" "thenc$=mid$(a$,n+1,3):goto1035
  17. 1030 n=n+1:if n<m then 1025
  18. 1032 c$=""
  19. 1035 rem*** vocab ***
  20. 1040 ifb$="fig"orb$="f"thengoto1200
  21. 1042 ifb$="ret"orb$="r"thengoto1500
  22. 1044 ifa(rm,5)>0thenprint"  [217]ou must either fight or retreat!":goto1010
  23. 1048 ifb$="n"orb$="nor"then1700
  24. 1050 ifb$="s"orb$="sou"then1750
  25. 1052 ifb$="e"orb$="eas"then1800
  26. 1054 ifb$="w"orb$="wes"then1850
  27. 1056 ifb$="u"orb$="up"then1900
  28. 1058 ifb$="d"orb$="dow"then1950
  29. 1060 ifb$="go "orb$="mov"then2000
  30. 1062 ifb$="cli"then2020
  31. 1064 ifb$="unl"then2050
  32. 1066 ifb$="l"orb$="loo"thenreturn
  33. 1068 if b$="i" or b$="inv" then 2080
  34. 1070 if b$="eat" then 2130
  35. 1072 if b$="tie" and c$="[210]op" or c$="rop" then 2150
  36. 1074 if b$="thr" and c$="[206]ec" or c$="nec" then 2170
  37. 1076 if b$="rea" then 2190
  38. 1078 if b$="giv" then 2210
  39. 1080 if b$="get" or b$="tak" then 2250
  40. 1082 if b$="dro" then 2300
  41. 1084 ifb$="rin"orb$="[210]in"andc$="bel"then2400
  42. 1086 if b$="ent" then 1480
  43. 1190 print"  [201] don't understand '";a$;"'.":goto 1010
  44. 1200 rem** fight**
  45. 1202 if a(rm,5)=0 then print"  [212]here's nothing here to fight!":goto 1010
  46. 1204 if wc(1)=0 and wc(2)=0 then print"  [217]ou have no weapons!":goto 1010
  47. 1205 if a(rm,5)=6 then 1420
  48. 1206 if wc(1)=0 or wc(2)=0 then 1216
  49. 1208 print"[147][155]           [195]hoose your [215]eapon":print"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]"
  50. 1210 forj=1to2:print"            ";j;"[159]";o$(wc(j)):next j:poke 198,0
  51. 1212 get x:if x=1 then wu=wc(1):goto 1220
  52. 1214 if x=2 then wu=wc(2):goto 1220
  53. 1215 goto 1212
  54. 1216 if wc(1)>0 then wu=wc(1)
  55. 1218 if wc(2)>0 then wu=wc(2)
  56. 1220 m=a(rm,5):print"[147]";
  57. 1222 print"[147][159]     [217]ou grab your ";o$(wu);" and"
  58. 1224 print"  prepare to face the ";m$(m);"...":for t=1to3000:next t:print"[147]";
  59. 1226 print"     [159][217]ou                [156]";m$(m)
  60. 1228 print"    [159][163][163][163][163][163]              ";:fort=1tolen(m$(m))+2:print"[156][163]";:next
  61. 1230 print" ":print"  [159][197]ndurance:";ep:print"  [159][198]ighting :";fs
  62. 1232 print"  [159][215]eapon:";o$(wu)
  63. 1234 print"[145][145][145]";tab(22);"[156][197]ndurance:";me(m):printtab(22);"[156][198]ighting :";mf(m)
  64. 1236 printtab(22);"[156][215]eapon:";mw$(m)
  65. 1238 print"[151]                                        [146]";
  66. 1240 fort=1to2:print"                                        [146]";:next t
  67. 1250 x=int(20*rnd(1))+1:if x<=fs then 1260
  68. 1251 fort=1to1500:next t
  69. 1252 z=int(2*rnd(1))+1:on z goto 1254,1258
  70. 1254 print"[159]     [217]our swing at the ";m$(m):print"  misses by a few inches."
  71. 1255 fort=1to2000:nextt:goto 1280
  72. 1258 print"[159]     [217]ou attack the ";m$(m);", but"
  73. 1259 print"  he moves out of the way.":fort=1to2000:nextt:goto 1280
  74. 1260 fort=1to3000:next t:z=int(3*rnd(1))+1
  75. 1262 print"[159]     [217]ou strike the ";m$(m);" in the"
  76. 1264 print"  ";bi$(z);" with your ";o$(wu);"!"
  77. 1266 ad=wd(wu)+be(z)+(int(5*rnd(1))-2):ifad>me(m)thenad=me(m)
  78. 1268 print"  [200]e loses";ad;"[197]ndurance...":fort=1to2000:nextt
  79. 1270 forj=1toad:me(m)=me(m)-1:print"";tab(32);"   [157][157][157]";me(m)
  80. 1271 ifme(m)=0then1350
  81. 1272 for t=1 to 200:next t:next j
  82. 1280 print"";
  83. 1281 x=int(20*rnd(1))+1:if x<=mf(m) then 1290
  84. 1282 ifm=2 then print"     [156][212]he [199]iant [211]pider lunges for you"
  85. 1283 ifm=2 then print"  but just misses...":goto 1310
  86. 1284 ifm=5 then print"     [156][212]he [196]ragon breathes out a burst"
  87. 1285 ifm=5 then print"  of flame that barely misses you...":goto 1310
  88. 1286 print"     [156][212]he ";m$(m);" swings his ";mw$(m)
  89. 1287 print"  but you move out of the way.":goto 1310
  90. 1290 print"     [156][212]he ";m$(m);" harms you in the":z=int(3*rnd(1))+1
  91. 1292 print"  ";bi$(z);" with his ";mw$(m);"!":el=dw(m)+be(z)+ar(aw)+int(5*rnd(1))-2
  92. 1293 ifel>epthenel=ep
  93. 1294 if el<1 then print"  [217]our armor absorbs the blow.":goto 1302
  94. 1296 print"  [217]ou lose";el;"[197]ndurance...":for t=1to2000:nextt
  95. 1300 forj=1toel:ep=ep-1:print"";tab(12);"   [157][157][157]";ep:ifep=0then1402
  96. 1302 for t=1to200:next t:next j
  97. 1310 print"";
  98. 1312 print"[151]                                        [146]";
  99. 1314 print"[151]      [208]ress    ([198]1) to [195]ontinue         [146]";
  100. 1316 print"[151]               ([198]3) to [210]etreat         [157][148] [146]";:poke 198,0
  101. 1318 get z$:if z$="[134]" then print"[147]";:goto1500
  102. 1320 if z$<>"[133]" then 1318
  103. 1322 print"[147]";:goto 1226
  104. 1350 for x=1 to 4000:next x:print"[147]"
  105. 1352 print"     [159][212]hat last blow seems to have "
  106. 1354 print"  been too much for the ";m$(m);"."
  107. 1356 print"  [212]he ";m$(m);" drops to the ground"
  108. 1358 print"  dead, your ";o$(wu);" embedded deeply"
  109. 1360 print"  in his ";bi$(z);"."
  110. 1362 print"     [159][217]ou wipe off your blood-stained"
  111. 1364 print"  ";o$(wu);" and begin to search the"
  112. 1366 print"  ";m$(m);"'s dead body."
  113. 1368 print"     [159][217]our search reveals ";
  114. 1370 on m goto 1371,1372,1373,1374,1375
  115. 1371 q=50:goto 1380
  116. 1372 q=0:goto1380
  117. 1373 q=45:goto 1380
  118. 1374 q=100:goto 1380
  119. 1375 q=150:goto 1380
  120. 1380 ifq=0thenprint"nothing.":goto1390
  121. 1382 print"a leather sack":print"  containing[158]";q;"[159]gold pcs. [217]ou pick"
  122. 1384 print"  them up and stick them in your bag."
  123. 1390 gp=gp+q:fs=fs+1:a(rm,5)=0
  124. 1392 print"[151]                                        [146]";
  125. 1394 print"[151]       [208]ress <[210][197][212][213][210][206]>[160]to [195]ontinue      [157][148] [146]";:poke198,0
  126. 1396 getx$:ifx$=chr$(13)thenreturn
  127. 1398 goto 1396
  128. 1402 for t=1to1000:next t
  129. 1403 print"[159][147]       [201]'m afraid that last injury was"
  130. 1404 print"  too much for you. [212]he ";m$(m);" "
  131. 1406 print"  walks over and drags your limp  "
  132. 1407 print"  body away..."
  133. 1408 print"       [196]o you want to play again?"
  134. 1409 print"                 ([217]/[206])":poke198,0
  135. 1410 get q$:ifq$="y" thenprintchr$(9):printchr$(142)"[147]":run
  136. 1412 if q$="n" then poke 53280,14:poke53281,6:print"[154][147]";:goto 1416
  137. 1414 goto 1410
  138. 1416 printchr$(9);chr$(142):print"---------------- warrior ---------------[146]";
  139. 1418 print"             by nate goudie":end
  140. 1420 ifwc(1)=7 or wc(2)=7 then 1450
  141. 1422 print"[147]     [217]ou attack the [211]wamp [195]reature."
  142. 1424 print"  [201]t grabs you by the neck and lifts"
  143. 1426 print"  you 3 feet off the ground! [212]hen it"
  144. 1428 print"  draws back its other arm and with a"
  145. 1430 print"  single swing sends your head flying!":goto 1408
  146. 1450 print"[147][158]     [217]ou pull out [197]xcalibur and raise"
  147. 1452 print"  it above your head. [193] blue flame"
  148. 1454 print"  flies forth from the sword. [212]he [211]wamp"
  149. 1456 print"  [195]reature lunges for you but you swing"
  150. 1458 print"  [197]xcalibur at it. [197]xcalibur hits its"
  151. 1460 print"  mark in an explosion of blue sparks."
  152. 1462 print"  [212]he [211]wamp [195]reature's body flies by "
  153. 1464 print"  you and its hideous head drops at"
  154. 1466 print"  your feet...":a(rm,5)=0:a(rm,6)=18:goto 1000
  155. 1480 ifrm=2 then rm=1:return
  156. 1482 ifrm=21then rm=22:return
  157. 1484 ifrm=6thenrm=7:return
  158. 1486 ifrm=16thenrm=17:return
  159. 1488 ifrm=23thenrm=24:return
  160. 1490 ifrm=39thenrm=40:return
  161. 1492 ifrm=19 and ob(1)=0 then rm=25:return
  162. 1494 print"  [212]here's nothing to enter here!":goto 1010
  163. 1500 rem** retreat **
  164. 1502 if a(rm,5)=0 then print"  [212]here is nothing to run away from!":goto 1010
  165. 1503 if a(rm,5)=6 then 1510
  166. 1504 print"  [217]ou turn around and run like heck!":for z=1 to 1000:next z:b$=r$
  167. 1506 goto 1048
  168. 1510 print"[147]    [217]ou turn around to run. [212]he [211]wamp"
  169. 1511 print"  [195]reature reaches out and grabs you!"
  170. 1512 print"  [212]he he draws back his other arm and"
  171. 1513 print"  with one swing sends your head "
  172. 1514 print"  rolling across the floor..."
  173. 1515 goto 1408
  174. 1700 rem** north **
  175. 1702 if a(rm,1)=0 then 1740
  176. 1704 r$="s":rm=a(rm,1):return
  177. 1740 print"  [217]ou can't go that way.":goto 1010
  178. 1750 rem** south **
  179. 1752 if rm=42 and fs<20 then goto 2610
  180. 1754 if a(rm,2)=0 then 1740
  181. 1756 r$="n":rm=a(rm,2):return
  182. 1800 rem** east **
  183. 1802 if rm=30 and ob(2)=1 then print"  [212]he door is locked!":goto 1010
  184. 1804 if a(rm,3)=0 then 1740
  185. 1806 r$="w":rm=a(rm,3):return
  186. 1850 rem** west **
  187. 1852 if a(rm,4)=0 then 1740
  188. 1854 r$="e":rm=a(rm,4):return
  189. 1900 rem** up **
  190. 1902 if rm<>38 then 1740
  191. 1904 r$="d":rm=37:return
  192. 1950 rem** down **
  193. 1952 if rm<>37 then 1740
  194. 1953 if ob(3)=1 then print"  [201]t's too steep!":goto 1010
  195. 1954 r$="u":rm=38:return
  196. 1993 if el>epthen el=ep
  197. 2000 rem*** move ***
  198. 2001 if c$="bus" then 2070
  199. 2002 x$=left$(c$,1)
  200. 2003 if x$="n" then 1700
  201. 2004 if x$="s" then 1750
  202. 2005 if x$="e" then 1800
  203. 2006 if x$="w" then 1850
  204. 2007 if x$="u" then 1900
  205. 2008 if x$="d" then 1950
  206. 2009 goto 1190
  207. 2020 rem** climb **
  208. 2021 z=0
  209. 2022 if c$="up" then z=2:if rm=38 then gosub 2036:if ob(3)=0 then 1900
  210. 2024 if c$="dow"then z=2:if rm=37 then gosub 2036:if ob(3)=0 then 1950
  211. 2026 if c$="[210]op" then 2030
  212. 2027 if z=0 then 1190
  213. 2028 if z=1 then 1010
  214. 2029 if z=2 then 1740
  215. 2030 if rm=38 then gosub 2036:if ob(3)=0 then 1900
  216. 2032 if rm=37 then gosub 2036:if ob(3)=0 then 1950
  217. 2033 if z=1 then 1010
  218. 2034 print"  [217]ou can't do that here!":goto 1010
  219. 2036 if ob(3)=1 then print"  [217]ou have to tie a [210]ope first! (duh!)":z=1
  220. 2037 return
  221. 2050 rem** unlock door **
  222. 2052 if c$<>"doo" then print"  [217]ou can't unlock that!":goto 1010
  223. 2054 if rm<>30 then print"  [201] see no door here!":goto 1010
  224. 2056 z=0
  225. 2058 for j=1 to 5:if bp(j)=15 then z=1:next j
  226. 2059 if z=0 then print"  [217]ou don't have a key!":goto 1010
  227. 2060 print"[147]    [217]ou insert the key into the lock"
  228. 2062 print"  and turn it..."
  229. 2064 for t=1 to 1000:next t
  230. 2066 print"  [195][204][201][195][203]. [212]he door is now open.":ob(2)=0:a(30,3)=31:goto 1000
  231. 2070 rem** move bush **
  232. 2071 if rm<>19 then print"  [201] don't see a movable bush here!":goto 1010
  233. 2072 if ob(1)=0 then print"  [201]t's already moved!":goto 1010
  234. 2074 print"[147]    [193]s you pull the bush away you"
  235. 2075 print"  discover a cave opening in the cliff!":ob(1)=0:a(19,2)=25:goto1000
  236. 2080 rem*** inventory ***
  237. 2082 print"[147]";
  238. 2084 print"[151]             - [201]nventory -              [146]";
  239. 2086 print"  [158][197]ndurance:[155]";ep
  240. 2088 print"  [158][198]ighting :[155]";fs
  241. 2090 print"  [158][199]old pcs :[155]";gp
  242. 2092 print"   [158][215]eapons"
  243. 2094 print"  [158][163][163][163][163][163][163][163][163][163]"
  244. 2096 for j=1 to 2
  245. 2098 print"[158] ";j;:if wc(j)>0 then print"[155]";
  246. 2100 print o$(wc(j)):next j
  247. 2102 print"  [158][193]rmor [215]orn: [155]";o$(aw)
  248. 2104 print"   [158][194]ackpack [201]tems"
  249. 2106 print"  [158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  250. 2108 for j=1 to 5
  251. 2110 print"[158] ";j;:if bp(j)>0 then print"[155]";
  252. 2112 print o$(bp(j)):next j
  253. 2114 print"[151]                                        [146]";
  254. 2116 print"       [208]ress <[210][197][212][213][210][206]> to [195]ontinue      [157][148] [146]";
  255. 2118 poke 198,0
  256. 2120 get x$:if x$=chr$(13) then return
  257. 2122 goto 2120
  258. 2130 rem** eat food **
  259. 2132 if c$<>"[198]oo" and c$<>"foo" then print"  [217]ou can't eat that!":goto 1010
  260. 2134 j=0
  261. 2136 j=j+1:if bp(j)=12 then 2140
  262. 2138 if j=5 then print"  [217]ou aren't carrying any [198]ood!":goto 1010
  263. 2139 goto 2136
  264. 2140 print"    [212]he [198]ood tastes good and makes you"
  265. 2142 print"  feel stronger...":bp(j)=0:z=int(5*rnd(1))+5:ep=ep+z
  266. 2144 print"  [217]ou gain";z;"[197]ndurance.":goto 1010
  267. 2150 rem** tie rope **
  268. 2152 j=0
  269. 2154 j=j+1:if bp(j)=13 then 2158
  270. 2156 if j=5 then print"  [217]ou aren't carrying any [210]ope!":goto 1010
  271. 2157 goto 2154
  272. 2158 if rm<>37 then print"  [212]here's nothing to tie a [210]ope to!":goto 1010
  273. 2160 print"[147]    [217]ou tie one end of the [210]ope to the"
  274. 2162 print"  tree branch and drop the other end"
  275. 2164 print"  over the ledge. [217]ou now have a way"
  276. 2166 print"  down the cliff.":bp(j)=0:ob(3)=0:goto 1000
  277. 2170 rem** throw necklace **
  278. 2172 j=0
  279. 2174 j=j+1:if bp(j)=16 then 2178
  280. 2176 if j=5 then print"  [217]ou don't even have a [206]ecklace!":goto 1010
  281. 2177 goto 2174
  282. 2178 if rm<>41 then print"  [201]'m afaid nothing happened.":goto 1010
  283. 2180 print"[147]    [212]he necklace strikes the wall and"
  284. 2182 print"  explodes into a fantastic aray of "
  285. 2184 print"  lights. [215]hen the brightness dies down":ob(4)=0
  286. 2186 print"  you can see a doorway in the wall.":bp(j)=0:a(41,2)=42:goto 1000
  287. 2190 rem** read message **
  288. 2192 if c$<>"mes" then print"  [217]ou can't read that!":goto 1010
  289. 2194 if rm<>31 then print"  [212]here isn't a message here!":goto 1010
  290. 2196 print"[147]      [217]ou walk over to the message in"
  291. 2198 print"  the wall and brush some of the dust"
  292. 2200 print"  away with your hand. [201]t appears to"
  293. 2202 print"  have something to do with directions"
  294. 2204 print"  to cross the swamp. [212]hese directions"
  295. 2206 print"  are, [197], [197], [211], [197], [206], [206], [197], [211], and [197]."
  296. 2208 goto 1000
  297. 2210 rem** give staff **
  298. 2212 if c$<>"sta" and c$<>"[215]al" then print"  [217]ou can't give that!":goto 1010
  299. 2213 goto 2242
  300. 2214 if a(rm,5)>0 then print"  [212]he ";m$(a(rm,5));" doesn't want it!":goto 1010
  301. 2216 if rm<>22 then print"  [212]here's no one here to give it to!":goto 1010
  302. 2218 print"[147]      [217]ou walk over to the [200]ermit and"
  303. 2220 print"  hand him the [215]alking staff. [200]e is so"
  304. 2222 print"  overjoyed to have his staff back that"
  305. 2224 print"  he embraces you! ' [212]hankyou for "
  306. 2226 print"  returning my staff to me', he tells"
  307. 2228 print"  you. ' [193]nd now [201] will pass this skill"
  308. 2230 print"  of fighting down to you like [201] have"
  309. 2232 print"  promised.' [215]ith that the [200]ermit walks"
  310. 2234 print"  over to you and begins to teach and"
  311. 2236 print"  show you everthing he knows. [217]ou are "
  312. 2238 print"  now an expert in the art of fighting."
  313. 2240 bp(j)=0:fs=20:goto 1000
  314. 2242 j=0
  315. 2244 j=j+1:if bp(j)=17 then 2214
  316. 2246 if j=5 then print"  [217]ou don't have it!":goto 1010
  317. 2247 goto 2244
  318. 2250 rem*** get objects ***
  319. 2252 j=5
  320. 2254 j=j+1:if c$=left$(o$(a(rm,j)),3) then z=a(rm,j):goto 2258
  321. 2256 if j=8 then print"  [201] don't see that here!":goto 1010
  322. 2257 goto 2254
  323. 2258 if z<8 then 2270
  324. 2260 if z<12then 2280
  325. 2262 if z<19then 2290
  326. 2270 x=0
  327. 2272 x=x+1:if wc(x)=0 then wc(x)=z:a(rm,j)=0:goto 2276
  328. 2274 if x=2 then print"  [217]ou already have 2 weapons!":goto 1010
  329. 2275 goto 2272
  330. 2276 print"  [212]aken.":od(z)=0:goto 1010
  331. 2280 if aw>0 then print"  [217]ou're already wearing armor!":goto 1010
  332. 2282 print"  [217]ou are now wearing ";o$(z);" armor.":aw=z:a(rm,j)=0:od(z)=0:goto1010
  333. 2290 x=0
  334. 2292 x=x+1:if bp(x)=0 then bp(x)=z:a(rm,j)=0:goto 2296
  335. 2294 if x=5 then print"  [217]our backpack is already full!":goto 1010
  336. 2295 goto 2292
  337. 2296 print"  [212]aken.":od(z)=0:goto 1010
  338. 2300 rem** drop objects **
  339. 2302 if a(rm,6)=0 or a(rm,7)=0 or a(rm,8)=0 then 2308
  340. 2304 print"  [212]his room can't hold any more items.":goto 1010
  341. 2308 x=0
  342. 2310 x=x+1:if c$=left$(o$(wc(x)),3) then z=wc(x):wc(x)=0:goto 2314
  343. 2312 if x=2 then 2320
  344. 2313 goto 2310
  345. 2314 x=5
  346. 2315 x=x+1:if a(rm,x)=0 then a(rm,x)=z:print"  [196]ropped.":goto 1010
  347. 2316 goto 2315
  348. 2320 if aw=0 then 2330
  349. 2322 if c$=left$(o$(aw),3) then z=aw:aw=0:goto 2314
  350. 2324 goto 2330
  351. 2330 x=0
  352. 2332 x=x+1:if c$=left$(o$(bp(x)),3) then z=bp(x):bp(x)=0:goto 2314
  353. 2334 if x=5 then print"  [217]ou aren't carrying it!":goto 1010
  354. 2335 goto 2332
  355. 2336 goto 2530
  356. 2400 rem*** store ***
  357. 2402 if rm<>1 then print"  [201] don't see a bell here!":goto 1010
  358. 2405 print"[147][155]      [212]he shopkeeper looks up at you."
  359. 2406 print"   '[211]o, what can [201] help you with?' he"
  360. 2407 print"   asks politely."
  361. 2408 print"[151]                                        [146]";
  362. 2409 print"                                        [146]";
  363. 2410 print"   [215]hat are you interested in buying?"
  364. 2411 print"       1 [159][215]eapons"
  365. 2412 print"       2 [159][193]rmor & [211]upplies"
  366. 2413 print"       3 [155]none"
  367. 2414 poke 198,0
  368. 2415 get k$:ifk$=""then2415
  369. 2416 k=asc(k$):k=k-48:if k=1 then 2420
  370. 2417 if k=2 then 2500
  371. 2418 if k=3 then return
  372. 2419 goto 2415
  373. 2420 print"[147][155]    [212]he shopkeeper stands up and walks"
  374. 2422 print"  over to the rack of weapons."
  375. 2424 print"  [217]ou have[158]";gp;"[155]gold pcs."
  376. 2426 print"   [215]eapon              [195]ost"
  377. 2428 print"  [163][163][163][163][163][163][163][163]            [163][163][163][163][163][163][145]"
  378. 2430 for j=1 to 6:print" ";j;"[159]";o$(j)
  379. 2432 print"[145]";tab(23);"[159]";wp(j):next j
  380. 2434 print"  7 [155]none"
  381. 2436 print"          - [197]nter you [195]hoice -"
  382. 2438 poke 198,0
  383. 2439 get k$:if k$="" then 2439
  384. 2440 k=asc(k$):k=k-48:if k=1 or k=2 or k=3 or k=4 or k=5 or k=6 then 2450
  385. 2441 if k=7 then 2405
  386. 2445 goto 2439
  387. 2450 if wc(1)>0 and wc(2)>0 then 2460
  388. 2452 if gp<wp(k) then 2464
  389. 2454 gp=gp-wp(k):z=0
  390. 2456 z=z+1:if wc(z)=0 then wc(z)=k:gosub 2080:goto 2420
  391. 2458 goto 2456
  392. 2460 print"[147]   [217]ou're already carrying 2 weapons!":for t=1to1000:next t
  393. 2462 goto 2420
  394. 2464 print"[147]  [217]ou don't have enough gold for that!":for t=1to1000:nextt
  395. 2466 goto 2420
  396. 2500 print"[147][155]    [212]he shopkeeper directs you to the"
  397. 2502 print"  armor table and supply shelf."
  398. 2504 print"  [217]ou have[158]";gp;"[155]gold pcs."
  399. 2506 print"   [193]rmor               [195]ost"
  400. 2508 print"  [163][163][163][163][163][163][163]             [163][163][163][163][163][163]"
  401. 2510 for j=1 to 4:print" ";j;"[159]";o$(j+7)
  402. 2512 print"[145]";tab(23);"[159]";ap(j):next j
  403. 2514 print"   [211]upplies            [195]ost"
  404. 2516 print"  [163][163][163][163][163][163][163][163][163][163]          [163][163][163][163][163][163]"
  405. 2518 for j=5 to 7:print" ";j;"[159]";o$(j+7)
  406. 2520 print"[145]";tab(23);"[159]";ap(j):next j
  407. 2522 print"  8 [155]none"
  408. 2524 print"          - [197]nter your [195]hoice -"
  409. 2525 poke 198,0
  410. 2527 get k$:if k$="" then 2527
  411. 2530 k=asc(k$):k=k-48:if k=1 or k=2 or k=3 or k=4 then 2540
  412. 2532 if k=5 or k=6 or k=7 then 2550
  413. 2534 if k=8 then 2405
  414. 2536 goto 2527
  415. 2540 if aw>0 then 2546
  416. 2542 if gp<ap(k) then 2548
  417. 2544 gp=gp-ap(k):aw=k+7:gosub 2080:goto 2500
  418. 2546 print"[147] [217]ou are already wearing armor.":fort=1to1000:nextt:goto2500
  419. 2548 print"[147]  [217]ou don't have enough gold for that!":fort=1to1000:nextt
  420. 2549 goto 2500
  421. 2550 if bp(1)>0 and bp(2)>0 and bp(3)>0 and bp(4)>0 and bp(5)>0 then 2558
  422. 2552 if gp<ap(k) then 2548
  423. 2554 gp=gp-ap(k):z=0
  424. 2556 z=z+1:if bp(z)=0 then bp(z)=k+7:gosub 2080:goto 2500
  425. 2557 goto 2556
  426. 2558 print"[147]    [217]our backpack is already full!":fort=1to1000:nextt:goto2500
  427. 2600 return
  428. 2610 print"[147][159]     [217]ou move onward to step through"
  429. 2612 print"  the southern doorway. [211]uddenly, out"
  430. 2614 print"  of the holes in the walls fly darts"
  431. 2616 print"  with poisoned tips. [217]ou barely feel"
  432. 2618 print"  any pain as your body fills with the"
  433. 2620 print"  darts. [215]ell, look on the bright side,"
  434. 2622 print"  at least there's another skeleton to"
  435. 2624 print"  keep you company!":goto1408
  436. 2700 print"[147][158]     [193]s you enter the store you pull"
  437. 2702 print"  the [195]reature's head from your pack."
  438. 2704 print"  [212]he shopkeeper looks up at you and"
  439. 2706 print"  almost faints. '[201] can't believe you"
  440. 2708 print"  have done it! [217]ou are truly one of"
  441. 2710 print"  the bravest warriors [201]'ve ever seen!'"
  442. 2712 print"  he tells you. [215]ith that he takes you"
  443. 2714 print"  outside and rings the town bell. [200]e"
  444. 2716 print"  tells everyone that you have slain"
  445. 2718 print"  the [211]wamp [195]reature. [212]he townspeople"
  446. 2720 print"  cheer and have a celebration that"
  447. 2722 print"  night in your honor."
  448. 2724 print"  [195]ongratulations! [217]ou are now..."
  449. 2726 print"            the [215][193][210][210][201][207][210]"
  450. 2728 goto 1408
  451. 5000 rem*** object description ***
  452. 5001 print"[155]";
  453. 5005 if a(rm,6)+a(rm,7)+a(rm,8)=0 then return
  454. 5010 if a(rm,6)=0 or od(a(rm,6))=0 then 5045
  455. 5015 on od(a(rm,6)) gosub 5020,5025,5030,5035,5040
  456. 5017 goto 5045
  457. 5020 print"  [211]itting ceremonially on top of the"
  458. 5021 print"  altar is the magic sword, [197]xcalibur!"
  459. 5022 return
  460. 5025 print"  [207]n top of a stone on the floor sits"
  461. 5026 print"  a small [211]keleton key."
  462. 5027 return
  463. 5030 print"  [207]n top of the table is a [206]ecklace."
  464. 5031 print"  [212]here is a message inscribed in it,"
  465. 5032 print"  ' [204]et the power of this [206]ecklace be"
  466. 5033 print"    known, when it be thrown at the"
  467. 5034 print"    wall of stone! '":return
  468. 5035 print"  [204]eaning against the wall is a [215]alking"
  469. 5036 print"  staff."
  470. 5037 return
  471. 5040 print"  [211]itting on the floor in a pool of "
  472. 5041 print"  blood is the [195]reature's head!":return
  473. 5045 for j=6 to 8:z=a(rm,j)
  474. 5050 if z>0 and od(z)<1 then gosub 5070
  475. 5055 next j
  476. 5060 return
  477. 5070 if z<7 or z=14 or z=15 or z=16 or z=17 then 5080
  478. 5071 if z<12 and z>7 then 5085
  479. 5072 if z<14 and z>11 then 5090
  480. 5075 if z=7 then print"  [212]he sword, [197]xcalibur, is here."
  481. 5076 if z=18then print"  [212]he [195]reature's head is here."
  482. 5077 return
  483. 5080 print"  [212]here is a ";o$(z);" here.":return
  484. 5085 print"  [212]here is some ";o$(z);" armor here.":return
  485. 5090 print"  [212]here is some ";o$(z);" here.":return
  486. 6000 rem*** monster description ***
  487. 6001 print"[156]";
  488. 6002 if rm=22 then 6190
  489. 6005 if a(rm,5)=0 then return
  490. 6010 z=a(rm,5)
  491. 6015 if md(a(rm,5))>0 then 6100
  492. 6020 on z gosub 6025,6030,6035,6040,6045,6050
  493. 6022 return
  494. 6025 print"   [193] [194]andit stands in the middle of the"
  495. 6026 print"  road, ready to attack at any time...":goto 6060
  496. 6030 print"   [193] [199]iant [211]pider sits in the huge web"
  497. 6031 print"  waiting for you...":goto 6065
  498. 6035 print"   [193]n angry looking [204]izard [205]an stands"
  499. 6036 print"  here, ready to lash out any time...":goto 6060
  500. 6040 print"   [193] [195]yclops stands a few feet away"
  501. 6041 print"  from you, grasping his club in his"
  502. 6043 print"  enormous hands.":goto 6060
  503. 6045 print"   [193] [196]ragon sits in front of you,"
  504. 6046 print"  breathing smoke out of his nostrils.":goto 6065
  505. 6050 print"  [212]he [211]wamp [195]reature stands in front"
  506. 6051 print"  of you (better say your prayers!).":goto 6065
  507. 6060 print"  [217]ou must either fight him or retreat.":return
  508. 6065 print"  [217]ou must either fight it or retreat.":return
  509. 6100 on z gosub 6105,6115,6125,6135,6145,6155
  510. 6102 return
  511. 6105 print"    [211]uddenly, a bush behind you moves."
  512. 6106 print"  [193] [194]andit with an evil grin on his   "
  513. 6107 print"  face jumps out pulling a dagger from"
  514. 6108 print"  his coat. [200]e doesn't look negotiable.":md(1)=0:goto 6060
  515. 6115 print"    [211]uddenly the cobwebs break open in"
  516. 6116 print"  front of you. [193] [199]iant [211]pider crawls"
  517. 6117 print"  through and comes straight for you!":md(2)=0:goto 6065
  518. 6125 print"    [212]he surface of the pool begins to"
  519. 6126 print"  bubble. [193] dark shadow starts to come"
  520. 6127 print"  toward the surface. [211]uddenly a [204]izard"
  521. 6128 print"  [205]an emerges from the murky water..."
  522. 6129 print"  [200]e doesn't seem very glad to see you!":md(3)=0:goto 6060
  523. 6135 print"    [211]uddenly you hear an angry bellow."
  524. 6136 print"  [217]ou whirl around only to be greeted"
  525. 6137 print"  by the fearsome face of the [195]yclops!"
  526. 6138 print"  [212]he [195]yclops grabs his club and  it"
  527. 6139 print"  appears he wants to use it...":md(4)=0:goto 6060
  528. 6145 print"    [211]uddenly a burst of flame shoots"
  529. 6146 print"  across the cave in front of you! [212]he"
  530. 6147 print"  [196]ragon enters the cave and does not"
  531. 6148 print"  seem pleased to see you here.":md(5)=0:goto 6065
  532. 6155 print"    [193]s you look forward into the dark"
  533. 6156 print"  cave, you can see a pair of eyes like"
  534. 6157 print"  glowing coals. [217]ou know it is the"
  535. 6158 print"  dreaded [211]wamp [195]reature. [193]s it comes"
  536. 6159 print"  forward into the light, you can see"
  537. 6160 print"  why the villagers feared it so...":md(6)=0:goto 6065
  538. 6190 he=he+1
  539. 6191 if he=1 then 6200
  540. 6192 if he=2 then 6211
  541. 6193 if he>2 then 6220
  542. 6200 print"    [200]e looks up at you with a smile."
  543. 6201 print"  '[211]o',he says,'you must be the new"
  544. 6202 print"  adventurer. [217]ou know that only the "
  545. 6203 print"  most skilled of fighters will be able"
  546. 6204 print"  to claim the sword, [197]xcalibur, for"
  547. 6205 print"  himself. [201]f you bring me my staff,"
  548. 6206 print"  which was stolen by the [195]yclops, [201]"
  549. 6207 print"  will pass this skill on to you. '"
  550. 6208 print"  [215]ith that he pats you on the shoulder"
  551. 6209 print"  and wishes you good luck."
  552. 6210 return
  553. 6211 print"   '[194]ack again?' says the hermit.'[215]ell,"
  554. 6212 print"  you're always welcome here.' "
  555. 6213 return
  556. 6220 print"   '[217]ou must like this place', says"
  557. 6221 print"  the hermit. '[217]ou are lucky [201]'m a"
  558. 6222 print"  friendly person!'":return
  559. 7000 rem*** rm description ***
  560. 7005 print"[147][159]"
  561. 7010 if rm<25 or rm>36 and rm<41 then 7100
  562. 7015 j=0
  563. 7020 j=j+1:if bp(j)=14 then 7100
  564. 7025 if j<5 then 7020
  565. 7030 tc=tc+1:if tc=2 then 7045
  566. 7032 print"      [201]t is so dark in here that you"
  567. 7035 print"  can't see anything. [201]t would be very"
  568. 7040 print"  dangerous to proceed onward without"
  569. 7041 print"  a torch...":return
  570. 7045 print"        [217]ou stumble forward into the "
  571. 7046 print"  darkness. [211]uddenly your foot catches"
  572. 7047 print"  on something and you fall headfirst"
  573. 7048 print"  into a deep pit. [207]h dear, [201]'m afraid"
  574. 7049 print"  you are now lying at the bottom of"
  575. 7050 print"  the pit with a broken neck... "
  576. 7051 print"  (pleasant thought, huh?)
  577. 7052 [137] 1408
  578. 7100 tc[178]0:[139] rm[177]10 [167] 7215
  579. 7105 [145] rm [141] 7110,7125,7140,7155,7170,7185,7200,7200,7200,7200
  580. 7107 [142]
  581. 7110 [139] bp(1)[178]18[176]bp(2)[178]18[176]bp(3)[178]18[176]bp(4)[178]18[176]bp(5)[178]18 [167] 2700
  582. 7111 [153]"      (NULL)ou are in the town's chr$eneral"
  583. 7112 [153]"  (NULL)tore. atns you look around a wide"
  584. 7113 [153]"  variety of items greets your eyes."
  585. 7114 [153]"  right$n front of you is a medium sized"
  586. 7115 [153]"  desk. peekehind the desk sits an old"
  587. 7116 [153]"  man reading a book. left$e doesn't seem"
  588. 7117 [153]"  to have noticed you yet. (NULL)n top of"
  589. 7118 [153]"  the desk is a small bell. peekeside "
  590. 7119 [153]"  the bell is a sign that says,    "
  591. 7120 [153]"  ' (NULL)ing bell for service '."
  592. 7121 [142]
  593. 7125 [143]* room 2 *
  594. 7126 [153]"      (NULL)ou are on a narrow street in"
  595. 7127 [153]"  the middle of a somewhat busy town."
  596. 7128 [153]"  (NULL)mall town houses line both sides"
  597. 7129 [153]"  of the street. (NULL)o the north is the"
  598. 7130 [153]"  town's chr$eneral (NULL)tore. atn dirt road"
  599. 7131 [153]"  leaves the town to the south."
  600. 7132 [142]
  601. 7140 [143]* room 3 *
  602. 7141 [153]"      (NULL)ou are on a dirt road leading"
  603. 7142 [153]"  through a meadow. (NULL)he road stretches"
  604. 7143 [153]"  out of sight to the south. (NULL)he road"
  605. 7144 [153]"  appears to enter a small town to the"
  606. 7145 [153]"  north."
  607. 7146 [142]
  608. 7155 [143]* room 4 *
  609. 7156 [153]"      (NULL)ou have come to a bend in the"
  610. 7157 [153]"  dirt road. peekoulders and bushes "
  611. 7158 [153]"  surround both sides of the road."
  612. 7159 [153]"  (NULL)he road leads into a forest to"
  613. 7160 [153]"  the south and into a meadow to "
  614. 7161 [153]"  the north. atn narrow path leaves"
  615. 7162 [153]"  the road here and leads eastward."
  616. 7163 [142]
  617. 7170 [143]* room 5 *
  618. 7171 [153]"      (NULL)ou are on a narrow pathway that"
  619. 7172 [153]"  leads east and west through some very"
  620. 7173 [153]"  wet and muddy terrain. (NULL)ou think you"
  621. 7174 [153]"  can still see the dirt road to the"
  622. 7175 [153]"  west. (NULL)he path appears to lead into,"
  623. 7176 [153]"  what looks like, a swamp to the east."
  624. 7177 [142]
  625. 7185 [143]* room 6 *
  626. 7186 [153]"      (NULL)ou are now standing at the"
  627. 7187 [153]"  entrance to the swamp. atn narrow"
  628. 7188 [153]"  path leaves this horrible place"
  629. 7189 [153]"  to the west. (NULL)o the east of you"
  630. 7190 [153]"  lies the forbidding land known as"
  631. 7191 [153]"  the swamp. atns you look into the"
  632. 7192 [153]"  giant mass of mud, trees, and"
  633. 7193 [153]"  quicksand, you can see why many"
  634. 7194 [153]"  an adventurer has taken fright at"
  635. 7195 [153]"  it..."
  636. 7196 [142]
  637. 7200 [143]* room 7-14 *
  638. 7201 [153]"      (NULL)ou are in the swamp. (NULL)ools of"
  639. 7202 [153]"  mud and quicksand bubble all around"
  640. 7203 [153]"  you. (NULL)he cries of the things of the"
  641. 7204 [153]"  swamp fill your ears. (NULL)he vines and"
  642. 7205 [153]"  trees are so thick overhead that"
  643. 7206 [153]"  the sunlight is totally blocked off."
  644. 7207 [142]
  645. 7215 [139] rm[177]20 [167] 7300
  646. 7217 [145] rm[171]10 [141] 7200,7200,7200,7200,7220,7235,7250,7265,7280,7295
  647. 7218 [142]
  648. 7220 [143]* room 15 *
  649. 7221 [153]"      atns you walk forward you feel"
  650. 7222 [153]"  yourself sinking downward. (NULL)ou thrash"
  651. 7223 [153]"  around helplessly as you slowly sink"
  652. 7224 [153]"  into the quicksand which has now "
  653. 7225 [153]"  become your grave..."
  654. 7226 [137] 1408
  655. 7235 [143]* room 16 *
  656. 7236 [153]"      (NULL)ou have come to a clearing in"
  657. 7237 [153]"  the middle of the swamp. atn wall of"
  658. 7238 [153]"  dirt and rock rises up to the east"
  659. 7239 [153]"  of you. atn huge black opening is set"
  660. 7240 [153]"  in this wall. right$t appears to be the"
  661. 7241 [153]"  entrance to a cave."
  662. 7242 [142]
  663. 7250 [143]* room 17 *
  664. 7251 [153]"      (NULL)ou are standing in a small cave."
  665. 7252 [153]"  peeklood stains are splattered all over"
  666. 7253 [153]"  the walls. atn few human skeletons lie"
  667. 7254 [153]"  scattered on the floor. right$ think you"
  668. 7255 [153]"  have found the lenreature's (NULL)air..."
  669. 7256 [142]
  670. 7265 [143]* room 18 *
  671. 7266 [153]"      (NULL)ou are on a dirt road leading"
  672. 7267 [153]"  through a dark forest. atn small trail"
  673. 7268 [153]"  leads westward from here. (NULL)he road"
  674. 7269 [153]"  continues to the south and north."
  675. 7270 [142]
  676. 7280 [143]* room 19 *
  677. 7281 [153]"      (NULL)ou have come to a clearing in "
  678. 7282 [153]"  the forest. atn dirt road leads north"
  679. 7283 [153]"  from here. atn large cliff rises up to"
  680. 7284 [153]"  the south of you. (NULL)he cliff is very "
  681. 7285 [153]"  steep and looks impossible to climb."
  682. 7286 [139] ob(1)[178]1 [167] [153]"  atn small bush grows in front of the      cliff."
  683. 7287 [139] ob(1)[178]0 [167] [153]"  (NULL)here is a cave opening in the cliff."
  684. 7288 [142]
  685. 7295 [143]* room 20 *
  686. 7296 [153]"     (NULL)ou are on a narrow trail in a"
  687. 7297 [153]"  forest. (NULL)he trail curves to the"
  688. 7298 [153]"  north and another trail leads west."
  689. 7299 [142]
  690. 7300 [139] rm[177]30 [167] 7450
  691. 7302 [145] rm[171]20 [141] 7305,7320,7335,7350,7365,7380,7395,7410,7425,7440
  692. 7303 [142]
  693. 7305 [143]* room 21 *
  694. 7306 [153]"     (NULL)ou have come to an opening in"
  695. 7307 [153]"  the forest. atn narrow trail leads "
  696. 7308 [153]"  south from here. right$n front of you to"
  697. 7309 [153]"  the north sits a small cabin. atn thin"
  698. 7310 [153]"  line of black smoke exits from the"
  699. 7311 [153]"  stone chimney."
  700. 7312 [142]
  701. 7320 [143]* room 22 *
  702. 7321 [153]"      (NULL)ou are in a small, but rather"
  703. 7322 [153]"  comfortable cabin owned by a hermit."
  704. 7323 [153]"  (NULL)ome furniture and a few belongings"
  705. 7324 [153]"  decorate the room. (NULL)he hermit, who"
  706. 7325 [153]"  is a kind looking old man, sits in"
  707. 7326 [153]"  a chair beside a small table."
  708. 7327 [142]
  709. 7335 [143]* room 23 *
  710. 7336 [153]"      (NULL)ou are in a small ravine. (NULL)he "
  711. 7337 [153]"  walls of the canyon rise up around"
  712. 7338 [153]"  you. right$n the western cliff face is a"
  713. 7339 [153]"  large cave. atn trail leaves the ravine"
  714. 7340 [153]"  to the east."
  715. 7341 [142]
  716. 7350 [143]* room 24 *
  717. 7351 [153]"      (NULL)ou are in a small cave that"
  718. 7352 [153]"  is the lair of a powerful dragon."
  719. 7353 [153]"  (NULL)he walls of the cave are black "
  720. 7354 [153]"  from his fiery breath and a charred"
  721. 7355 [153]"  human skeleton lies on the floor."
  722. 7356 [142]
  723. 7365 [143]* room 25 *
  724. 7366 [153]"      (NULL)ou are in a large cave. (NULL)he "
  725. 7367 [153]"  floor is of packed earth. (NULL)ou can"
  726. 7368 [153]"  see passages to the east and west."
  727. 7369 [153]"  (NULL)here is a tunnel to the south."
  728. 7370 [153]"  str$aylight comes in through the "
  729. 7371 [153]"  opening to the north."
  730. 7372 [142]
  731. 7380 [143]* room 26 *
  732. 7381 [153]"      (NULL)ou are in an (NULL)-shaped passage."
  733. 7382 [153]"  (NULL)here is a passage to the west and"
  734. 7383 [153]"  a stone doorway to the south."
  735. 7384 [142]
  736. 7395 [143]* room 27 *
  737. 7396 [153]"      (NULL)ou are in a narrow tunnel. (NULL)he"
  738. 7397 [153]"  passage to the north has been blocked"
  739. 7398 [153]"  by a cave in. atn human skeleton lies"
  740. 7399 [153]"  half buried by the rubble. (NULL)here is"
  741. 7400 [153]"  a doorway to the south."
  742. 7401 [142]
  743. 7410 [143]* room 28 *
  744. 7411 [153]"      (NULL)ou are in a round shaped room"
  745. 7412 [153]"  with doorways to the north, south,"
  746. 7413 [153]"  and east. atn large scum-covered pool"
  747. 7414 [153]"  of water sits in the center of the"
  748. 7415 [153]"  room. (NULL)isps of steam emerge from it."
  749. 7416 [142]
  750. 7425 [143]* room 29 *
  751. 7426 [153]"      (NULL)ou are in small cave-like room"
  752. 7427 [153]"  with a doorway to the north and to"
  753. 7428 [153]"  the west. (NULL)he air is extremely damp"
  754. 7429 [153]"  here. (NULL)ater drips from the many"
  755. 7430 [153]"  stalactites above your head."
  756. 7431 [142]
  757. 7440 [143]* room 30 *
  758. 7441 [153]"      (NULL)ou are in a room with a large"
  759. 7442 [153]"  dome-like ceiling. (NULL)here is an exit"
  760. 7443 [153]"  to the north. (NULL)et in the wall to the"
  761. 7444 [153]"  east is a heavy iron door with a"
  762. 7445 [153]"  picture of a human skeleton on it."
  763. 7446 [139] ob(2)[178]1 [167] [153]"  (NULL)he door is locked."
  764. 7447 [139] ob(2)[178]0 [167] [153]"  (NULL)he door is wide open."
  765. 7448 [142]
  766. 7450 [139] rm[177]40 [167] 7600
  767. 7452 [145] rm[171]30 [141] 7455,7470,7485,7500,7515,7530,7545,7560,7575,7590
  768. 7453 [142]
  769. 7455 [143]* room 31 *
  770. 7456 [153]"      (NULL)ou are in a room carved from"
  771. 7457 [153]"  solid rock. (NULL)here is a doorway to"
  772. 7458 [153]"  the west. atn message is carved into"
  773. 7459 [153]"  one of the walls. atn large table sits"
  774. 7460 [153]"  in the middle of the room.         "
  775. 7461 [142]
  776. 7470 [143]* room 32 *
  777. 7471 [153]"      (NULL)ou are in a small and musty"
  778. 7472 [153]"  tunnel. (NULL)here are passages to the "
  779. 7473 [153]"  north and to the west."
  780. 7474 [142]
  781. 7485 [143]* room 33 *
  782. 7486 [153]"      (NULL)ou are in an odd-shaped cavern."
  783. 7487 [153]"  (NULL)here are passages to the north and"
  784. 7488 [153]"  south and a tunnel to the east. atn "
  785. 7489 [153]"  huge spider web hangs from the walls"
  786. 7490 [153]"  and ceiling and covers everything."
  787. 7491 [142]
  788. 7500 [143]* room 34 *
  789. 7501 [153]"      (NULL)ou are in an extremely dark"
  790. 7502 [153]"  passage. (NULL)here are exits to the east,"
  791. 7503 [153]"  west, and south."
  792. 7504 [142]
  793. 7515 [143]* room 35 *
  794. 7516 [153]"      (NULL)ou are in a large naturally"
  795. 7517 [153]"  formed cavern. (NULL)ne big stalactite"
  796. 7518 [153]"  hangs from the ceiling."
  797. 7519 [142]
  798. 7530 [143]* room 36 *
  799. 7531 [153]"      (NULL)ou are in a narrow room. a"
  800. 7532 [153]"  strong wind blows into the room"
  801. 7533 [153]"  from a day-lit opening to the west."
  802. 7534 [153]"  (NULL)here is also a passage to the north."
  803. 7535 [142]
  804. 7545 [143]* room 37 *
  805. 7546 [153]"      (NULL)ou are out on a ledge about 30"
  806. 7547 [153]"  feet off the ground. peekehind you to"
  807. 7548 [153]"  the east is a cave entrance. (NULL)he edge"
  808. 7549 [153]"  of the cliff looks to steep to climb"
  809. 7550 [153]"  down without a rope. atn slender tree"
  810. 7551 [153]"  branch juts out from the ledge."
  811. 7552 [139] ob(3)[178]0 [167] [153]"  atn rope dangles down the cliff's edge."
  812. 7553 [142]
  813. 7560 [143]* room 38 *
  814. 7561 [153]"      (NULL)ou are at the southern end of"
  815. 7562 [153]"  a large valley. atn few bones litter"
  816. 7563 [153]"  the floor of the valley. atn rope hangs"
  817. 7564 [153]"  from a ledge above you."
  818. 7565 [142]
  819. 7575 [143]* room 39 *
  820. 7576 [153]"      (NULL)ou have come to the northern end"
  821. 7577 [153]"  of the valley. atn dark, forbidding"
  822. 7578 [153]"  cave rests in the cliff face to the"
  823. 7579 [153]"  west."
  824. 7580 [142]
  825. 7590 [143]* room 40 *
  826. 7591 [153]"      (NULL)ou are standing in a cave that"
  827. 7592 [153]"  is inhabited by the dreaded lenyclops."
  828. 7593 [153]"  atn mangled body and some blood"
  829. 7594 [153]"  stains on the floor is all that "
  830. 7595 [153]"  remain of the lenyclops' last meal."
  831. 7596 [142]
  832. 7600 [145] rm[171]40 [141] 7605,7620,7635
  833. 7601 [142]
  834. 7605 [143]* room 41 *
  835. 7606 [153]"      (NULL)ou are in a small winding "
  836. 7607 [153]"  passageway. (NULL)o the north is a small"
  837. 7608 [153]"  doorway carved out of rock. (NULL)he wall"
  838. 7609 [153]"  to the south is made of solid rock."
  839. 7610 [139] ob(4)[178]0 [167] [153]"  (NULL)here is an open portal in the wall."
  840. 7611 [142]
  841. 7620 [143]* room 42 *
  842. 7621 [153]"      (NULL)ou are in a totally square room."
  843. 7622 [153]"  (NULL)he walls on both sides of you are"
  844. 7623 [153]"  filled with holes. atn skeleton is "
  845. 7624 [153]"  pinned to the wall with a steel spike"
  846. 7625 [153]"  through his skull! (NULL)here are portals"
  847. 7626 [153]"  to the north and south. (NULL)he portal "
  848. 7627 [153]"  to the south has a message over it,"
  849. 7628 [153]"  ' (NULL)nly the most skillful of fighters"
  850. 7629 [153]"    will proceed...'"
  851. 7630 [142]
  852. 7635 [143]* room 43 *
  853. 7636 [153]"      (NULL)ou have entered a magnificently"
  854. 7637 [153]"  decorated room with an awe-inspiring"
  855. 7638 [153]"  dome ceiling. atn thin ray of sunlight"
  856. 7639 [153]"  shines down from the ceiling and onto"
  857. 7640 [153]"  an altar in the middle of the room."
  858. 7641 [142]
  859. 8000 [143]***** title screen *****
  860. 8005 [153]"load":[151] 53280,11:[151] 53281,0
  861. 8010 [153]"";[163]14);"(NULL)  (NULL)":[153][163]14);"fn  then"
  862. 8012 [153][163]10);"verifystep wait  fnthenfnthen (NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)usr (NULL)(NULL) (NULL)(NULL)"
  863. 8014 [153][163]9);"verifystep waitstep  fnthenfnthen (NULL)sqr (NULL)(NULL) (NULL)(NULL) then  fnthen (NULL)(NULL)"
  864. 8016 [153][163]9);"verify  wait   (NULL)(NULL)(NULL)(NULL) fnthen fn(NULL) fn(NULL) sqrand (NULL)(NULL) sgn(NULL)"
  865. 8018 [153]" verify wait         wait":[153]"verifyabsfnforfnpeekpeekpeekpeekpeekthenverify  list(NULL)totototototototototototototototototototototototototo(NULL)wait"
  866. 8020 [153]"verifyabsfnforfnpeekpeekpeekpeekpeekthenverify  list(NULL)                          waitstep"
  867. 8022 [153]" verify wait       verify  wait":[153][163]9)"verify  wait":[153][163]9)"verify(NULL) (NULL)wait":[153][163]10)"verify(NULL) wait"
  868. 8024 [153][163]20)"pokestep (NULL)and(NULL)waitand":[153][163]18)"pokestep (NULL)  (NULL)  (NULL)":[153][163]17)"pokestep(NULL)and waitstep (NULL) (NULL)tab(tab((NULL)(NULL)"
  869. 8026 [153][163]14)"spc(spc(poke    usrwait sys..poke(NULL)sgn   usr(NULL)"
  870. 8028 [153][163]13)"spc(spc(spc(spc(poke (NULL)tab(waitstep     tab(tab((NULL)   spc(spc(spc("
  871. 8030 [153][163]12)"spc(spc(spc(spc(spc(spc(poke  wait     (NULL)  (NULL) waitspc(spc(spc(spc(spc(spc(spc("
  872. 8032 [153]"poke(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$";
  873. 8034 [153]"pokepeeklistprogrammed and designed by nate goudiepokepeek";
  874. 8036 [153]"pokemid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)cmdsavelenwait";
  875. 8040 [142]
  876. 8200 [153]"load":[153][199](14):[153][199](8):[151] 53280,0
  877. 8205 [153]"load"[163]8)"str$o you want instructions?"
  878. 8210 [153][163]17)"((NULL)/(NULL))":[151] 198,0
  879. 8215 [161] q$:[139] q$[178]"y" [167] [137] 8220
  880. 8216 [139] q$[179][177]"n" [167] 8215
  881. 8218 [142]
  882. 8220 [153]"loadopen     (NULL)ou are a skilled adventurer who":[153]"  has travelled over ";
  883. 8222 [153]"much of the known":[153]"  world and has slain many monsters."
  884. 8224 [153]"  atn few days ago a messenger came to":[153]"  your village, telling";
  885. 8226 [153]" of a town that":[153]"  is being terrorized by a horrible"
  886. 8228 [153]"  swamp creature! (NULL)he creature comes in":[153]"  and kills their";
  887. 8230 [153]" livestock, and then":[153]"  carries their children back to his"
  888. 8232 [153]"  lair, which lies deep in the heart of":[153]"  the swamp. (NULL)o far,";
  889. 8234 [153]" normal weapons":[153]"  have not been able to even scratch"
  890. 8236 [153]"  the creature, but legend tells of a":[153]"  magic sword,by the name";
  891. 8238 [153]" of valxcalibur,":[153]"  which was hidden long ago somewhere"
  892. 8240 [153]"  in the mountains. (NULL)egend has it,":[153]"  however, that only the most";
  893. 8242 [153]" skilled ":[153]"  of fighters will be able to claim it."
  894. 8244 [153]"  (NULL)he messenger then tells you that ":[153]"  whoever brings the";
  895. 8246 [153]" creature's head ":[153]"  back to the town shopkeeper will be "
  896. 8248 [153]"  well rewarded. (NULL)ou decide to embark":[153]"  on this daring quest and";
  897. 8250 [153]" in a few ":[153]"  days you arrive in the town..."
  898. 8252 [153]"            < (NULL)ress a (NULL)ey >":[151] 198,0
  899. 8254 [161] q$:[139] q$[178]"" [167] 8254
  900. 8300 [153]"loadopen    (NULL)ou will move around and accomplish":[153]"  things by typing";
  901. 8302 [153]" in 1 or 2 word":[153]"  commands. (NULL)ome examples are go north,"
  902. 8304 [153]"  throw necklace, get peekroadsword, etc.":[153]"  right$f the object you are";
  903. 8306 [153]" attempting to":[153]"  manipulate has capital letters in it,"
  904. 8308 [153]"  make sure you are typing them, other ":[153]"  wise the computer ";
  905. 8310 [153]"may not understand":[153]"  you. (NULL)o see you current status type"
  906. 8312 [153]"  'inventory'. (NULL)yping 'look' will give":[153]"  you the description";
  907. 8314 [153]" of the location":[153]"  you are at. (NULL)ou only need to type"
  908. 8316 [153]"  the first 3 letters of each word for":[153]"  the computer to ";
  909. 8318 [153]"recognise it. ascor ":[153]"  some commands you only need to type"
  910. 8320 [153]"  the first letter."
  911. 8322 [153]"         <(NULL)ress a (NULL)ey to peekegin>":[151] 198,0
  912. 8324 [161] q$:[139] q$[178]"" [167] 8324
  913. 8326 [142]
  914. 9000 [143]******** initialize ********
  915. 9005 [134] a(43,8),o$(18),od(18),ar(11)
  916. 9010 ep[178][181](10[172][187](1))[170]40
  917. 9015 fs[178][181](4[172][187](1))[170]8
  918. 9020 gp[178][181](10[172][187](1))[170]70
  919. 9025 rm[178]2:aw[178]0:wc(1)[178]0:wc(2)[178]0:a$[178]"":he[178]0:r$[178]"":tc[178]0
  920. 9030 [143]* read room data *
  921. 9035 [129] b[178]1 [164] 43
  922. 9040 [129] c[178]1 [164] 8
  923. 9045 [135] a(b,c)
  924. 9050 [130] c:[130] b
  925. 9055 [143]* read object data *
  926. 9060 [129] j[178]0 [164] 18:[135] o$(j):[130] j
  927. 9065 [129] j[178]1 [164] 6:[135] wd(j):[130] j
  928. 9070 [129] j[178]8 [164] 11:[135] ar(j):[130] j
  929. 9075 [143]* monster data *
  930. 9080 [129] j[178]1 [164] 6:[135] m$(j),me(j),mf(j),mw$(j),dw(j):[130] j
  931. 9085 [143]* other data *
  932. 9090 [129] j[178]1 [164] 5:bp(j)[178]0:[130] j
  933. 9095 [129] j[178]1 [164] 4:ob(j)[178]1:[130] j
  934. 9100 [129] j[178]1 [164] 18:[135] od(j):[130] j
  935. 9105 [129] j[178]1 [164] 6:md(j)[178]1:[130] j
  936. 9106 [129] j[178]1 [164] 6:[135] wp(j):[130] j
  937. 9108 [129] j[178]1 [164] 7:[135] ap(j):[130] j
  938. 9109 [129] j[178]3 [164] 1 [169][171]1:[135] bi$(j),be(j):[130] j
  939. 9110 [129]j[178]1[164]5000:[130] j:[141] 8200
  940. 9115 [153]"loadlist":[151] 53280,11:[151] 53281,0
  941. 9117 [153] [199](14):[153] [199](8)
  942. 9120 [142]
  943. 9201 [131] 0,2,0,0,0,0,0,0
  944. 9202 [131] 1,3,0,0,0,0,0,0
  945. 9203 [131] 2,4,0,0,0,0,0,0
  946. 9204 [131] 3,18,5,0,1,0,0,0
  947. 9205 [131] 0,0,6,4,0,0,0,0
  948. 9206 [131] 0,0,7,5,0,0,0,0
  949. 9207 [131] 15,15,8,6,0,0,0,0
  950. 9208 [131] 15,9,15,7,0,0,0,0
  951. 9209 [131] 8,15,10,15,0,0,0,0
  952. 9210 [131] 11,15,15,9,0,0,0,0
  953. 9211 [131] 12,10,15,15,0,0,0,0
  954. 9212 [131] 15,11,13,15,0,0,0,0
  955. 9213 [131] 15,14,15,12,0,0,0,0
  956. 9214 [131] 13,15,16,15,0,0,0,0
  957. 9215 [131] 0,0,0,0,0,0,0,0
  958. 9216 [131] 0,0,17,14,0,0,0,0
  959. 9217 [131] 0,0,0,16,6,0,0,0
  960. 9218 [131] 4,19,0,20,0,0,0,0
  961. 9219 [131] 18,0,0,0,0,0,0,0
  962. 9220 [131] 21,0,18,23,0,0,0,0
  963. 9221 [131] 22,20,0,0,0,0,0,0
  964. 9222 [131] 0,21,0,0,0,0,0,0
  965. 9223 [131] 0,0,20,24,0,0,0,0
  966. 9224 [131] 0,0,23,0,5,15,0,0
  967. 9225 [131] 19,32,26,34,0,0,0,0
  968. 9226 [131] 0,28,0,25,0,0,0,0
  969. 9227 [131] 0,29,0,0,0,4,10,0
  970. 9228 [131] 26,30,29,0,3,0,0,0
  971. 9229 [131] 27,0,0,28,0,0,0,0
  972. 9230 [131] 28,0,0,0,0,0,0,0
  973. 9231 [131] 0,0,0,30,0,16,0,0
  974. 9232 [131] 25,0,0,33,0,0,0,0
  975. 9233 [131] 34,41,32,0,2,0,0,0
  976. 9234 [131] 0,33,25,35,0,0,0,0
  977. 9235 [131] 0,36,34,0,0,0,0,0
  978. 9236 [131] 35,0,0,37,0,0,0,0
  979. 9237 [131] 0,0,36,0,0,0,0,0
  980. 9238 [131] 39,0,0,0,0,0,0,0
  981. 9239 [131] 0,38,0,40,0,0,0,0
  982. 9240 [131] 0,0,39,0,4,17,0,0
  983. 9241 [131] 33,0,0,0,0,0,0,0
  984. 9242 [131] 41,43,0,0,0,0,0,0
  985. 9243 [131] 42,0,0,0,0,7,0,0
  986. 9251 [131] "(NULL)one","str$agger","(NULL)hortsword","(NULL)arhammer","peekroadsword","(NULL)ace"
  987. 9252 [131] "peekattle-axe","valxcalibur","(NULL)eather","(NULL)ingmail","lenhainmail"
  988. 9253 [131] "(NULL)teel plate","ascood","(NULL)ope","(NULL)orch","(NULL)keleton key","(NULL)ecklace"
  989. 9254 [131] "(NULL)alking staff","lenreature's head"
  990. 9255 [131] 2,4,6,7,8,10,-1,-2,-3,-4
  991. 9261 [131] "peekandit",25,11,"str$agger",3
  992. 9262 [131] "chr$iant (NULL)pider",15,13,"peekite",15
  993. 9263 [131] "(NULL)izard (NULL)an",40,10,"lenlaws",8
  994. 9264 [131] "lenyclops",75,9,"lenlub",9
  995. 9265 [131] "str$ragon",95,15,"ascire",10
  996. 9266 [131] "(NULL)wamp lenreature",500,20,"ascangs",50
  997. 9271 [131] 0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,3,4,5
  998. 9275 [131] 14,28,36,58,64,80,34,46,58,70,6,8,10
  999. 9276 [131] "leg",1,"chest",3,"head",5
  1000.