home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 74 / 074.d81 / dungeon (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  136 lines
  1. 10 a$=" ":print""
  2. 20 ifa=0thena=1:load"routines",8,1
  3. 30 ifa=1thena=2:load"dungeon manual.o",8,1
  4. 32 fori=1to5:readm3$(i),m4$(i):next
  5. 34 data"    [212]he [199][213][201][204][196]     ","t.the guild"
  6. 35 data"   [212]he [196][213][206][199][197][207][206]    ","t.dungeon maker"
  7. 36 data"   [212]he [205][193][203][197][210][211]     ","t.the makers"
  8. 37 data"    [212]he [209][213][197][211][212]     ","t.the quest"
  9. 38 data" [209]uit to [204][207][193][196][211][212][193][210] "," "
  10. 40 of=2:goto260
  11. 41 fori=1to15:gosub60:next:return
  12. 42 fori=1to15:gosub80:next:return
  13. 43 poke214,24:print"[145]"spc(15)"[204][207][193][196][201][206][199]...[145]":poke646,cu:return
  14. 50 rem scroll up
  15. 60 ifof>(h-16)thenreturn
  16. 69 of=of+1:sys51206:printleft$(hd$,20)""a$(of+15):return
  17. 70 rem scroll down
  18. 80 ifof=0thenreturn
  19. 89 of=of-1:sys51209:print""a$(of):return
  20. 90 close4:open4,4,7:ln=5:t$="":print#4,x$spc(21)a$(1)x$x$spc(21)a$(3)x$x$;
  21. 100 ps=lf:print#4,spc(lf);:fori=5toh-2:gosub160:gosub170:if(ps+len(a$(i)))<=rithengosub150:next:goto250
  22. 110 lx=1:forix=1tolen(a$(i)):on-(mid$(a$(i),ix,1)=" "orix=len(a$(i)))gosub130:next   
  23. 120 ps=ps+1:print#4," ";:next:goto250
  24. 130 if(ix-lx+ps)>=rithengosub200
  25. 140 print#4,mid$(a$(i),lx,ix-lx+1);:ps=ps+ix-lx+1:lx=ix+1:return
  26. 150 print#4,a$(i)" ";:ps=ps+len(a$(i))+1:return
  27. 160 ifps<>lfthenifleft$(a$(i),3)="   "orleft$(a$(i),3)="[160][160][160]"thengosub200:return
  28. 170 ifa$(i)=""ora$(i)=" "thengosub200:gosub200:i=i+1:ifi=h-1then190
  29. 180 ifa$(i)=""anda$(i-1)=""theni=i+1:on-(i=h-1)goto190:goto180
  30. 190 return
  31. 200 print#4,x$spc(lf);:ps=lf:ln=ln+1:ifln<57thenreturn
  32. 210 print#4,x$x$x$x$x$x$x$x$x$;:iftf=0thengosub230
  33. 220 print#4,x$,x$,x$,x$,x$spc(lf);:ln=5:return
  34. 230 ms$="[206]ext sheet/[210][197][212][213][210][206]/^":gosub420:poke198,0:wait198,1:geta$
  35. 240 ifa$<>"^"thenms$="[208]rinting...":gosub420:return
  36. 250 print#4,:close4:return
  37. 260 dima$(500):gosub360:hd$=""
  38. 265 of=0
  39. 267 print"[147][159]";
  40. 270 print"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  41. 280 print"[159]                                        ";
  42. 290 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  43. 300 poke49152,4:poke49153,19:poke49154,1:poke49155,38
  44. 310 rv=0:bx=0:ex=40:by=3:bd=16:bc=7:gosub380:gosub610:poke53281,0:poke53280,0
  45. 320 bx=1:ex=39:by=21:bd=1:bc=3:gosub380
  46. 330 ln$="                                      ":x$=chr$(13):cu=3:n=197
  47. 340 fi$="t.paint":pr$="[196] [213] [206] [199] [197] [207] [206]":lf=10:ri=75
  48. 345 print"[159]";spc(20-len(pr$)/2)pr$
  49. 350 poke214,21:print:print"[152][213]se [195][210][211][210] [213][208][152]/[196][207][215][206] [152]and [210][197][212][213][210][206]"
  50. 351 poke214,5:print"[156]":fori=1to5:printtab(11)m3$(i):print:next
  51. 352 y3=1
  52. 353 poke214,y3*2+3:print:printtab(11)""m3$(y3)"[145]"
  53. 354 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then354
  54. 355 ifa$=chr$(13)thenfi$=m4$(y3):goto440
  55. 356 printtab(11)"[156]"m3$(y3)
  56. 357 ifa$=""theny3=y3+1:ify3>5theny3=1
  57. 358 ifa$="[145]"theny3=y3-1:ify3<1theny3=5
  58. 359 goto353
  59. 360 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  60. 370 a$[178]"(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd(NULL)cmd":[129]i[178]1[164]6:bd$[178]bd$[170]a$:[130]:[142]
  61. 380 oc[178][194](646):[151]646,bc:rv$[178]"":[139]rv[167]rv$[178]"
  62. 390 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  63. 400 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]
  64. 410 [151]211,bx:[151]214,by[170]1:[158]58732:[153]rv$[200](bd$,bd[172]3)"":[151]646,oc:rv[178]0:[142]
  65. 420 [141]430:[153]"sys"[200](hd$,23)[166]20[171][195](ms$)[173]2)ms$"open":[142]
  66. 430 [153][200](hd$,23)""[200](ln$,36):[142]
  67. 440 [139]y3[178]5[167][141]660:[137]353
  68. 445 h[178][171]1:l[178]1:[141]43:[159]2,8,2,fi$[170]",p,r":[161]#2,a$,a$
  69. 450 [158]828,2,40:h[178]h[170]1
  70. 460 a$(h)[178]a$:[139]h[178]17[167][141]550:[141]700
  71. 465 [139]st[179][177]0[167][160]2:[151]646,0:[141]43:[141]700:l[178]0
  72. 480 [161]k$:[145][171](l[178]1[175]k$[178]"")[137]450:[139]k$[178]""[167]480
  73. 482 [139]k$[178]"m"[167]265
  74. 485 [139]he[167][141]560:[137]480
  75. 490 [145][171](k$[178]"")[171]2[172](k$[178]"on")[171]3[172](k$[178]"p")[171]4[172](k$[178]"c")[141]60,80,800,770
  76. 500 [145][171](k$[178]"m")[171]2[172](k$[178]"")[171]3[172](k$[178]"")[171]4[172](k$[178]"h")[141]660,1070,1080,2010
  77. 505 [145][171](k$[178]"input")[171]2[172](k$[178]"goto")[171]3[172](k$[178]"let")[141]41,42,42
  78. 540 [137]480
  79. 550 [151]214,4:[151]211,0:[151]646,cu:[153]"on";:[129]i[178]1[164]16:[153]""ln$:[130]
  80. 560 [151]646,cu:[151]214,4:[153]"on";:[129]i[178]0[164]15
  81. 565 [153]""a$(i[170]of)[200](ln$,38[171][195](a$(i[170]of))):[130]:he[178]0:[142]
  82. 590 [139]l[167][153]"open
  83. 600 return
  84. 610 fori=217to242:pokei,peek(i)or128:next:return
  85. 660 ms$="[209]uit?  [193]re you sure?  ([217]/[206])":gosub420:poke198,0
  86. 670 geta$:ifa$<>"y"anda$<>"n"then670
  87. 680 ifa$<>"y"thengosub430:gosub700:return
  88. 690 goto740
  89. 700 ms$=" ":gosub420
  90. 710 poke214,22:print"[145][158] [195][210][211][210]-[213][208]/[196][206][160][146][159] scan  [158] [200] [146][159] help ":return
  91. 740 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  92. 745 ifer<>63thenprint"[147]":end
  93. 750 a$="hello connect":q$=chr$(34):print"[147]":print"[144]load"q$a$q$",8
  94. 760 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  95. 770 [139]h[179]15[167][142]
  96. 780 cu[178]cu[170]1:[139]cu[178]16[167]cu[178]1
  97. 790 [151]646,cu:[141]560:[142]
  98. 800 [139]l[167][141]2000:[142]
  99. 810 [160]15:[160]4:[159]15,4,8:[160]15:[139]st[167][151]53281,1:[151]53281,0:[142]
  100. 820 ms$[178]"(NULL)ingle sheet or (NULL)ractor? ((NULL)/(NULL)/^)":[141]420
  101. 830 [161]a$:[139]a$[179][177]"s"[175]a$[179][177]"t"[175]a$[179][177]"^"[167]830
  102. 840 [139]a$[178]"^"[167][141]700:[142]
  103. 850 tf[178]1:[139]a$[178]"s"[167]tf[178]0
  104. 860 ms$[178]"(NULL)argins: (NULL)valasc(NULL):"[170][196](lf)[170]" (NULL)right$chr$left$(NULL):"[170][196](ri)[170]" ((NULL)/(NULL))":[141]420
  105. 870 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]870
  106. 880 [139]a$[178]"n"[167][141]930
  107. 890 ms$[178]"(NULL)et top of form/(NULL)eturn/^":[141]420:[151]198,0:[146]198,1:[161]a$:[139]a$[178]"^"[167]840
  108. 900 [141]920:[141]90:[160]4:[159]4,4,7:[129]i[178]ln[164]67:[152]4,:[130]:[160]4
  109. 910 [141]700:[142]
  110. 920 ms$[178]"(NULL)rinting...":[141]420:[142]
  111. 930 ms$[178]" ":[141]420
  112. 940 [151]214,22:[153]"onopensyslen(NULL)(NULL)(NULL)-up/down/(NULL)val(NULL)(NULL)(NULL)(NULL)  open(NULL)valasc(NULL)close(NULL)atn(NULL)chr$right$(NULL):   cmdcmdcmdsys"lf
  113. 950 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]950
  114. 960 [145][171](a$[178]"on")[171]2[172](a$[178]"")[171]3[172](a$[178][199](13))[137]970,980,990
  115. 970 lf[178]lf[170]5[170](40[172](lf[177]40)):[137]940
  116. 980 lf[178]lf[171]5[171](45[172](lf[179]1)):[137]940
  117. 990 [146]197,64
  118. 1000 [151]214,22:[153]"onsyslen(NULL)(NULL)(NULL)-up/down/(NULL)val(NULL)(NULL)(NULL)(NULL) open(NULL)right$chr$left$(NULL)close(NULL)atn(NULL)chr$right$(NULL)    cmdcmdcmdcmdsys"ri
  119. 1010 [161]a$:[139]a$[179][177]"on"[175]a$[179][177]""[175]a$[179][177][199](13)[167]1010
  120. 1020 [145][171](a$[178]"on")[171]2[172](a$[178]"")[171]3[172](a$[178][199](13))[137]1030,1040,1050
  121. 1030 ri[178]ri[170]5[170](55[172](ri[177]105)):[137]1000
  122. 1040 ri[178]ri[171]5[171](55[172](ri[179]65)):[137]1000
  123. 1050 [142]
  124. 1060 [153][194](197):[137]1060
  125. 1070 of[178]0:[141]550:[142]
  126. 1080 [139]h[179]16[167][142]
  127. 1090 of[178]h[171]15:[141]550:[142]
  128. 2000 ms$[178]"(NULL)ot available yet.  (NULL)till (NULL)(NULL)atnstr$ing...":[141]420:[146]197,64:[141]700:[142]
  129. 2010 [151]646,cu:[151]214,9:[151]211,0:[153]"on";:he[178]1
  130. 2015 [153]""ln$
  131. 2020 [153]" len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL) scan text  asc1 page down "
  132. 2030 [153]" len(NULL)(NULL)(NULL)-(NULL) end of text      asc7 page up