home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 191 / 191.d81 / telnyr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-01-01  |  10.8 KB  |  386 lines
  1. 1 dv=peek(186):ifgg=20thengg=21:load"icchd8",dv,1
  2. 3 ifgg=21then625
  3. 5 ifgg=22thengg=23:load"chd4",dv,1
  4. 7 ifgg=23then341
  5. 9 ifgg=24thengg=25:load"icchd8",dv,1
  6. 11 ifgg=25then625
  7. 13 ongggoto15,17,19,21
  8. 15 gg=2:load"a",dv,1
  9. 17 gg=3:load"b",dv,1
  10. 19 gg=4:load"c",dv,1
  11. 21 gosub741
  12. 22 poke 808,225
  13. 23 sys49604:sys49500:sys49152:sys49800
  14. 25 poke720,0:poke721,0:poke722,0
  15. 27 poke646,14:print"[147]":gosub33
  16. 29 sa=51600:ea=52599:ns=1024:gosub753:e=22:f=1:gosub31:input nm$:goto341
  17. 31 poke781,e:poke782,f:poke783,0:sys65520:return
  18. 33 sys50400:v=53248:pokev+39,3:pokev+21,0:poke53276,0
  19. 35 hp=250:gl=30:fd=50:w$="no weapon":mc=1:xs=0:dp=0
  20. 37 e=781:f=782:g=783:h=65520:return
  21. 39 ra=int(rnd(1)*10+1)
  22. 41 ifdg=1then51
  23. 43 ifra<2then365
  24. 45 ifdg=0then53
  25. 47 ifdg=2then49
  26. 49 onragoto365,365,55,77,55,77,55,65,55,65
  27. 51 onragoto57,73,55,57,73,77,73,57,73,73
  28. 53 onragoto365,365,61,61,65,69,65,61,65,69
  29. 55 mt$="bat":ms=10:sa=40128:ea=40191:ns=896:gosub753:cs=12:goto81
  30. 57 mt$="ghost":ms=40:sa=40192:ea=40255:ns=896:gosub753
  31. 59 cs=0:poke53285,14:poke53286,0:goto83
  32. 61 mt$="rogue":ms=6:sa=40258:ea=40321:ns=896:gosub753
  33. 63 cs=5:poke53285,9:poke53286,8:goto83
  34. 65 mt$="orc":ms=6:sa=40322:ea=40385:ns=896:gosub753
  35. 67 cs=9:poke53285,8:poke53286,5:goto83
  36. 69 mt$="robber":ms=8:sa=40386:ea=40449:ns=896:gosub753
  37. 71 cs=11:poke53285,8:poke53286,3:goto83
  38. 73 mt$="demon":ms=80:sa=40450:ea=40513:ns=896:gosub753
  39. 75 cs=9:poke53285,3:poke53286,4:goto83
  40. 77 mt$="spider":ms=20:sa=40514:ea=40577:ns=896:gosub753
  41. 79 cs=5:poke53285,3:poke53286,11:goto83
  42. 81 poke53276,0
  43. 83 pokev+21,0:mt=ms:ms$="attacked !!!":yl=20:xl=14:gosub731
  44. 85 gosub299
  45. 87 print"[147]"
  46. 89 sa=25000:ea=25999:ns=55296:gosub753
  47. 91 sa=24000:ea=24999:ns=1024:gosub753
  48. 93 e=1:f=1:gosub31:printnm$;:print" w/";:printw$
  49. 95 e=1:f=31:gosub31:print"hp ";:printhp
  50. 97 e=20:f=13:gosub31:print"choose option"
  51. 99 poke 198,0:wait198,1:geta$:e=20:f=13:gosub31:print"              "
  52. 101 if a$="a"thenjj=1:goto113
  53. 103 if a$="m"thenjj=2:goto113
  54. 105 if a$="c"then159
  55. 107 if a$="r"then215
  56. 109 if a$="g"then227
  57. 111 goto97
  58. 113 ifjj=1thentl=500
  59. 115 ifjj=2thentl=1000
  60. 117 ra=int(rnd(1)*6+1)
  61. 119 if ra<>1then123
  62. 121 ms$="  you missed  ":yl=19:xl=13:gosub733:goto131
  63. 123 p=len(nm$):xl=int((28-p)/2):e=19:f=xl:gosub31
  64. 125 printnm$;:print" hits for ";:printws+ra+xs
  65. 127 yl=19:gosub735
  66. 129 ms=ms-(ws+ra+xs):ifms<0thenms=mt:goto251
  67. 131 ra=int(rnd(1)*6+1)
  68. 133 if ra>mcthen141
  69. 135 if mc=5 then ms$="enemy confused":goto139
  70. 137 ms$="attacker misses":yl=21::xl=12:gosub733:goto153
  71. 139 yl=21::xl=13:gosub733:goto153
  72. 141 p=len(mt$):xl=int((28-p)/2):e=21:f=xl:gosub31
  73. 143 printmt$;:print" hits for ";:printmt+ra
  74. 145 hp=hp-(mt+ra):ifhp<0thenyl=21:gosub735:goto321
  75. 147 e=1:f=34:gosub31:print"     "
  76. 149 e=1:f=34:gosub31:printhp
  77. 151 yl=21:gosub735
  78. 153 ifjj=2then97
  79. 155 ifpeek(197)=60then97
  80. 157 goto113
  81. 159 e=18:f=4:gosub31
  82. 161 print"choose spell:  ":print
  83. 163 printtab(4)"c  confuse ";:printdc;:print"    b  banish ";:printdb
  84. 165 printtab(4)"s  strength";:printds;:print"    n  none   "
  85. 167 printtab(4)"h  heal    ";:printdh
  86. 169 poke198,0:wait198,1:geta$
  87. 171 if a$="c"then183
  88. 173 if a$="s"then187
  89. 175 if a$="h"then191
  90. 177 if a$="b"then197
  91. 179 if a$="n"then203
  92. 181 goto169
  93. 183 dc=dc-1:ifdc<0thendc=dc+1:goto211
  94. 185 mc=5:goto203
  95. 187 ds=ds-1:ifds<0thends=ds+1:goto211
  96. 189 xs=xs+20:goto203
  97. 191 dh=dh-1:ifdh<0thendh=dh+1:goto211
  98. 193 e=1:f=31:gosub31:print"       ":hp=hp+50:fork=1to500:next
  99. 195 gosub31:print"hp ";:printhp:fork=1to500:next:goto203
  100. 197 db=db-1:yl=18:ifdb<0thendb=db+1:goto211
  101. 199 tl=1:gosub735:yl=yl+1:ifyl=23then271
  102. 201 goto199
  103. 203 yl=18
  104. 205 tl=1:gosub735:yl=yl+1:ifyl=23thenjj=2:goto113
  105. 207 goto205
  106. 209 print"[147]":pokev+21,1:xx=xx+1:yy=yy+1:goto341
  107. 211 e=18:f=4:gosub31
  108. 213 print"you have none!    ":fork=1to1000:next:goto159
  109. 215 ra=int(rnd(1)*10+1)
  110. 217 if ra>8 then225 
  111. 219 if ra>3 then223 
  112. 221 ms$="oh no you don't!!":yl=20:xl=12:gosub731:jj=2:goto113
  113. 223 ms$="no escape!":yl=20:xl=15:gosub731:jj=2:goto113
  114. 225 ms$="you have escaped!":yl=20:xl=12:gosub731:goto247
  115. 227 e=19:f=8:gosub31:print"give us ";
  116. 229 printmt*4;:print" gold!     y/n?"
  117. 231 poke198,0:wait198,1:getb$
  118. 233 ifb$="n"then245
  119. 235 ifb$="y"then239
  120. 237 goto231
  121. 239 gl=gl-(mt*4):ifgl<0thengl=gl+(mt*4):tl=1500:yl=19:gosub735:goto243
  122. 241 goto247
  123. 243 yl=19:xl=12:ms$="not enough gold !":gosub731:goto245
  124. 245 yl=19:xl=3:ms$="          then die pauper!       ":gosub731:jj=2:goto113
  125. 247 print"[147]":mc=1:xs=0
  126. 249 sys49604:sys49500:goto341:rem adj error*
  127. 251 nm=nm-1:ifnm=0then271
  128. 253 ifnm=5thenpokev+21,62
  129. 255 ifnm=4thenpokev+21,30
  130. 257 ifnm=3thenpokev+21,14
  131. 259 ifnm=2thenpokev+21,6
  132. 261 ifnm=1thenpokev+21,2
  133. 263 ms$="assailant dies":yl=21:xl=13:gosub733
  134. 265 tl=600:yl=21:gosub735:ifjj=2then97
  135. 267 ifpeek(197)=60then97
  136. 269 goto113
  137. 271 v=53248:p=0:forj=1to15:fork=40to46:pokev+k,p:p=p+1:next:next: pokev+21,0
  138. 273 ms$="attackers defeated!":yl=21:tl=1500:xl=10:gosub733
  139. 275 yl=21:gosub735
  140. 277 ra=int(rnd(1)*15+1):ifra>10then287
  141. 279 ra=mt+(int(rnd(1)*20+1)):gl=gl+ra
  142. 281 e=20:f=7:gosub31
  143. 283 print" you have found ";:printra;:print" gold"
  144. 285 yl=19:tl=1500:gosub735:goto247
  145. 287 e=20:f=3:gosub31
  146. 289 ifra=11thenprint" you have found a confuse spell":dc=dc+1:goto285
  147. 291 ifra=12thenprint" you have found a strength spell":ds=ds+1:goto285
  148. 293 ifra=13thenprint" you have found a healing spell":dh=dh+1:goto285
  149. 295 ifra=14thenprint" you have found a banish spell":db=db+1:goto285
  150. 297 ifra=15thene=20:f=11:gosub31:print"you found +20 food":fd=fd+20:goto285
  151. 299 v=53248
  152. 301 fork=40to46:pokev+k,cs:next
  153. 303 ra=int(rnd(1)*6+1):nm=ra
  154. 305 on ra goto307 ,309,311,313,315,317
  155. 307 pokev+21,2:goto319
  156. 309 pokev+21,6:goto319
  157. 311 pokev+21,14:goto319
  158. 313 pokev+21,30:goto319
  159. 315 pokev+21,62:goto319
  160. 317 pokev+21,126:goto319
  161. 319 return
  162. 321 ms$="  you have died!  ":yl=19:xl=12:gosub731
  163. 323 print"[147]":fork=1to15:print:next:printnm$;:print" has died":print
  164. 325 print" a  resurrect":print" b  begin new game":print" c  quit"
  165. 327 poke198,0:wait198,1:geta$
  166. 329 if a$="a"thengosub339:goto335
  167. 331 if a$="b"thengosub339:pokev+21,0:clr:goto1
  168. 333 if a$="c"thensys64738
  169. 335 dg=0:poke720,0:poke721,0:gg=22:dp=0:hp=100:poke53276,0:iffd<0thenfd=20
  170. 337 pokev+21,0:load"gmmapb",dv,1
  171. 339 print:print:print" loading...please wait...":fork=1to1500:next:return
  172. 341 pokev+21,0:poke53265,peek(53265)and239
  173. 343 sa=22000:ea=22999:ns=1024:gosub753
  174. 345 sa=23000:ea=23999:ns=55296:gosub753
  175. 347 forp=1024to1062:pokep,160:pokep+54272,14:next
  176. 349 forp=1604to1619:pokep,32:next
  177. 351 poke646,12: e=3:f=20:gosub31:printnm$
  178. 353 e=15:f=20:gosub31:printw$
  179. 355 e=5:f=29:gosub31:printhp
  180. 357 e=7:f=29:gosub31:printgl
  181. 359 e=9:f=29:gosub31:printfd
  182. 361 poke53265,peek(53265)or16:pokev+21,1:poke53276,255:poke53285,0:poke53286,1
  183. 363 sys49678:sys49553:sys49152:sys49800
  184. 365 sys50100:xx=peek(720):yy=peek(721)
  185. 367 if peek(56320)=111then421
  186. 369 ifdg=1ordg=2then377
  187. 371 ifsx<>1then377
  188. 373 e=11:f=29:gosub31:printxx;:ifxx<10thenprint"[157] "
  189. 375 e=13:f=29:gosub31:printyy;:ifyy<10thenprint"[157] "
  190. 377 ef=peek(722)
  191. 379 ifef=30thenpoke722,31:goto39
  192. 381 ifef=80thenpoke722,81:goto39
  193. 383 ifef=99then409
  194. 385 if dg=1ordg=2then389
  195. 387 goto365
  196. 389 if ef=50 thenpoke722,51:goto395
  197. 391 if ef=94thenpoke722,95:goto395 
  198. 393 goto365
  199. 395 if dp<>0then365
  200. 397 if dg=2then405
  201. 399 ra=int(rnd(1)*3+1)
  202. 401 on ra goto403 ,405,407
  203. 403 dp=1:sa=15136:ea=15167:ns=14944:gosub753:goto365
  204. 405 dp=2:sa=15168:ea=15199:ns=14976:gosub753:goto365
  205. 407 dp=3:sa=15200:ea=15231:ns=15008:gosub753:goto365
  206. 409 poke722,0:fd=fd-10:iffd>20then417
  207. 411 iffd<0then415
  208. 413 ms$="food low!":yl=20:xl=14:gosub731:goto417
  209. 415 ms$="died of starvation!":yl=20:xl=10:gosub731:goto323
  210. 417 e=9:f=29:gosub31:print"    ";
  211. 419 print"[157][157][157][157]";:printfd:goto385
  212. 421 if dg=1ordg=2then635 
  213. 423 if xx=2andyy=6then465
  214. 425 if xx=32andyy=18then579
  215. 427 if xx=6andyy=38then621
  216. 429 if xx=46andyy=38then437
  217. 431 if xx=44andyy=4then447
  218. 433 if xx=2andyy=28then457
  219. 435 goto365
  220. 437 ifta=1then365
  221. 439 ta=1:xl=4:yl=20:ms$="dig.....dig......sweat......groan":gosub731
  222. 441 xl=5:yl=20:ms$="you find 100g and a heal spell":gosub731
  223. 443 gl=gl+100:dh=dh+1:
  224. 445 e=7:f=29:gosub31:printgl:goto365
  225. 447 iftb=1then365
  226. 449 tb=1:xl=4:yl=20:ms$="dig.....dig......sweat....crash!!":gosub731
  227. 451 pokev+21,0:print"[147]":print" you have fallen into a disused mine."
  228. 453 print:print" there must be an exit somewhere.....":gosub339
  229. 455 gg=24:dg=2:load"gmmine2",dv,1
  230. 457 iftc=1then365
  231. 459 tc=1:xl=4:yl=20:ms$="dig.....dig......sweat......groan":gosub731
  232. 461 xl=5:yl=20:ms$="eureka! you have found 500 gold":gosub731
  233. 463 gl=gl+500:e=7:f=29:gosub31:printgl:goto365
  234. 465 print"[147]":pokev+21,0
  235. 467 sa=18000:ea=18999:ns=55296:gosub753
  236. 469 sa=17000:ea=17999:ns=1024:gosub753:poke1756,32
  237. 471 gosub703
  238. 473 if aa>4thengosub703
  239. 475 if aa=1 then483 
  240. 477 if aa=2 then515 
  241. 479 if aa=3 then539 
  242. 481 if aa=4 then575 
  243. 483 poke646,3:print"[147]":sa=19000:ea=19999:ns=1024:gosub753:poke1712,32:remerr
  244. 485 gosub703
  245. 487 if aa>4thengosub703
  246. 489 ifaa<>1then501
  247. 491 gl=gl-10:ifgl<0thengl=gl+10:gosub719:goto485
  248. 493 ra=int(rnd(1)*11+5)
  249. 495 hp=hp+ra:e=22:f=7:gosub31:print"hp +";
  250. 497 printra;:print"  you have ";:printgl;:print" gold"
  251. 499 yl=22:tl=2000:gosub735:goto485
  252. 501 ifaa<>2then507
  253. 503 gl=gl-20:ifgl<0thengl=gl+20:gosub719:goto485
  254. 505 fd=fd+50:gosub723:goto485
  255. 507 ifaa<>3then513
  256. 509 gl=gl-40:ifgl<0thengl=gl+40:gosub719:goto485
  257. 511 fd=fd+100:gosub723:goto485
  258. 513 ifaa=4then465
  259. 515 poke646,8:print"[147]":sa=21000:ea=21999:ns=1024:gosub753
  260. 517 gosub703:ifaa>4then517
  261. 519 ifaa<>1then525
  262. 521 gl=gl-10:ifgl<0thengl=gl+10:gosub719:goto517
  263. 523 sa=26000:ea=26439:ns=1584:gosub753:goto517
  264. 525 ifaa<>2then531
  265. 527 gl=gl-100:ifgl<0thengl=gl+100:gosub719:goto517
  266. 529 sa=26440:ea=26879:ns=1584:gosub753:goto517
  267. 531 ifaa<>3then537
  268. 533 gl=gl-200:ifgl<0thengl=gl+200:gosub719:goto517
  269. 535 sa=26880:ea=27319:ns=1584:gosub753:goto517
  270. 537 ifaa=4then465
  271. 539 poke646,5:print"[147]":poke646,5:sa=20000:ea=20999:ns=1024:gosub753
  272. 541 gosub703
  273. 543 ifaa<>1then549
  274. 545 gl=gl-10:ifgl<0thengl=gl+10:gosub719:goto541
  275. 547 w$="dagger":ws=2:gosub723:goto541
  276. 549 ifaa<>2then555
  277. 551 gl=gl-30:ifgl<0thengl=gl+30:gosub719:goto541
  278. 553 w$="club":ws=4:gosub723:goto541
  279. 555 ifaa<>3then561
  280. 557 gl=gl-50:ifgl<0thengl=gl+50:gosub719:goto541
  281. 559 w$="sword":ws=8:gosub723:goto541
  282. 561 ifaa<>4then567
  283. 563 gl=gl-100:ifgl<0thengl=gl+100:gosub719:goto541
  284. 565 w$="crossbow":ws=16:gosub723:goto541
  285. 567 ifaa<>5then573
  286. 569 gl=gl-40:ifgl<0thengl=gl+40:gosub719:goto541
  287. 571 sx=1:gosub723:goto541
  288. 573 ifaa=6then465
  289. 575 print"[147]":pokev+21,1
  290. 577 poke720,(peek(720)+1):poke721,(peek(721)+1):goto341
  291. 579 pokev+21,0
  292. 581 poke646,5:print"[147]":sa=27320:ea=28319:ns=1024:gosub753
  293. 583 gosub703
  294. 585 ifaa<>1then591
  295. 587 gl=gl-40:ifgl<0thengl=gl+40:yl=20:xl=12:gosub721:goto583
  296. 589 dc=dc+1:yl=20:xl=9:gosub725:goto583
  297. 591 ifaa<>2then597
  298. 593 gl=gl-60:ifgl<0thengl=gl+60:yl=20:xl=12:gosub721:goto583
  299. 595 ds=ds+1:yl=20:xl=9:gosub725:goto583
  300. 597 ifaa<>3then603
  301. 599 gl=gl-80:ifgl<0thengl=gl+80:yl=20:xl=12:gosub721:goto583
  302. 601 dh=dh+1:yl=20:xl=9:gosub725:goto583
  303. 603 ifaa<>4then609
  304. 605 gl=gl-100:ifgl<0thengl=gl+100:yl=20:xl=12:gosub721:goto583
  305. 607 db=db+1:yl=20:xl=9:gosub725:goto583
  306. 609 ifaa<>5then617
  307. 611 poke646,3:print"[147]":sa=28320:ea=29319:ns=1024:gosub753
  308. 613 poke198,0:wait198,1:geta$
  309. 615 goto581
  310. 617 print"[147]":pokev+21,1
  311. 619 poke720,(peek(720)+1):poke721,(peek(721)+1):goto341
  312. 621 print"[147]":pokev+21,0:gosub339
  313. 623 dg=1:gg=20:load"gmdng3",dv,1
  314. 625 forp=14848to14879:pokep,0:next
  315. 627 sa=15232:ea=15263:ns=14944:gosub753
  316. 629 sa=15232:ea=15263:ns=14976:gosub753
  317. 631 sa=15232:ea=15263:ns=15008:gosub753
  318. 633 pokev+21,1:goto341
  319. 635 p=peek(1352)
  320. 637 ifp=76anddp=1then671
  321. 639 ifp=80anddp=2then649
  322. 641 ifp=84anddp=3then657
  323. 643 ifp=72then689
  324. 645 ifp=68then677
  325. 647 goto365
  326. 649 e=20:f=7:gosub31
  327. 651 ra=int(rnd(1)*80+20):gl=gl+ra
  328. 653 print" you have found ";:printra;:print" gold"
  329. 655 e=7:f=29:gosub31:printgl:goto669
  330. 657 e=20:f=3:gosub31
  331. 659 ra=int(rnd(1)*4+1)
  332. 661 ifra=1thenprint" you have found a confuse spell":dc=dc+1:goto669
  333. 663 ifra=2thenprint" you have found a strength spell":ds=ds+1:goto669
  334. 665 ifra=3thenprint" you have found a healing spell":dh=dh+1:goto669
  335. 667 ifra=4thenprint" you have found a banish spell":db=db+1:goto669
  336. 669 forp=14944to15039:pokep,0:next:yl=20:tl=1000:gosub735:dp=0:goto365
  337. 671 e=20:f=8:gosub31
  338. 673 print" you have found +20 food":fd=fd+20
  339. 675 e=9:f=29:gosub31:printfd:goto669
  340. 677 print"[147]":pokev+21,0:gosub339
  341. 679 if dg=2 then683
  342. 681 dg=0:poke720,7:poke721,39:gg=22:dp=0:load"exdm3",dv,1
  343. 683 print:print:print"you have escaped! the ground crumbles"
  344. 685 print:print"behind you, sealing the exit."
  345. 687 dg=0:poke720,0:poke721,0:gg=22:dp=0:load"gmmapb",dv,1
  346. 689 e=20:f=7:gosub31:print"everything is fading......"
  347. 691 fork=1to1000:ra=int(rnd(1)*800+1)
  348. 693 poke1024+ra,46:poke55296+ra,1:next
  349. 695 v=53248:poke646,14:pokev+21,0:print"[147]":sa=50600:ea=51599:ns=1024
  350. 697 gosub753
  351. 699 poke198,0:wait198,1:geta$
  352. 701 sys64738
  353. 703 poke198,0:wait198,1:geta$
  354. 705 if a$="a"then aa=1:return
  355. 707 if a$="b"then aa=2:return
  356. 709 if a$="c"then aa=3:return
  357. 711 if a$="d"then aa=4:return
  358. 713 if a$="e"then aa=5:return
  359. 715 if a$="f"then aa=6:return
  360. 717 goto703
  361. 719 yl=22:xl=12
  362. 721 ms$="not enough gold ! ":gosub731:return
  363. 723 yl=22:xl=9
  364. 725 tl=600:ms$="          ok!           ":gosub733:poke781,22
  365. 727 poke782,9:poke783,0:sys65520:print"you have ";:printgl;:print" gold left"
  366. 729 tl=1500:yl=22:gosub735:return
  367. 731 tl=1500
  368. 733 poke781,yl:poke782,xl:poke783,0:sys65520:printms$
  369. 735 fork=1totl:next
  370. 737 poke781,yl:poke782,2:poke783,0:sys65520
  371. 739 print"                                    ":return
  372. 741 poke52,56:poke56,56
  373. 743 poke56334,peek(56334)and254
  374. 745 poke1,peek(1)and251
  375. 747 poke1,peek(1)or4
  376. 749 poke56334,peek(56334)or1
  377. 751 poke53272,(peek(53272)and240)+14:return
  378. 753 ea=ea+1:l=ea-sa:ne=l+ns
  379. 755 x=int(l/256):y=l-256*x
  380. 757 a=int((ne-y)/256):b=ne-256*a-y
  381. 759 c=int((ea-y)/256):d=ea-256*c-y
  382. 761 poke 781,x+1:poke782,y
  383. 763 poke 88,b+1:poke 89,a
  384. 765 poke90,d+1:poke 91,c
  385. 767 sys41964:return
  386.