home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / 3 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  31KB  |  1,090 lines
  1. 10 poke816,165:poke817,244:dv=peek(186):if gg=1 then22
  2. 11 if gg=2 then24
  3. 12 if gg=3 then26
  4. 13 if gg=4 then28
  5. 14 if gg=5 then30
  6. 16 if gg=6 then60
  7. 20 gg=1:load"mainspr",dv,1
  8. 22 gg=2:load"pbchar4",dv,1
  9. 24 gg=3:load"telscr2",dv,1
  10. 26 gg=4:load"fastcol",dv,1
  11. 28 gg=5:load"spr7",dv,1
  12. 30 gg=6:load"4spr",dv,1
  13. 59 rem
  14. 60 poke53281,0:poke53280,0:xx=110:yy=129:gosub60000:gosub51000:rn=rnd(-ti)
  15. 61 poke774,226:tx=50176+411:v=53248:pokev+16,0:ms=0
  16. 62 gl=250:cl=14:cm=12:hp=250:ws=5:ap=0
  17. 63 cy=0:qs=0:qc=0:qh=0:qr=0:qf=0:qm=0:qt=0:qb=0:kf=0:kb=0:dx=0:dy=0:qp=0:pu=0
  18. 64 tp=0:fd=20:re=0:rw=0:rf=0:ra=0:sz=0:sd=0:tm=800:ox=0:gosub3500:pokev+21,1
  19. 65 poke53270,peek(53270)or16
  20. 66 poke53282,5:poke53283,12:poke53210,14:sys53200
  21. 67 sa=35072:dg=0: ea=sa+999:ns=50176:gosub55010
  22. 68 print"[159]";:goto200
  23. 69 end
  24. 70 poke781,py:poke782,px:poke783,0:sys65520:return
  25. 72 poke53270,peek(53270)and239:end
  26. 74 poke198,0:wait198,1:geta$:return
  27. 75 remgl*
  28. 76 gl=gl-ct:ifgl<0thengl=gl+ct:goto78
  29. 77 print:print:print"ok !":gosub98:ng=0:return
  30. 78 print:print:print"not enough gold !!":gosub98:ng=1:return
  31. 82 sc=50176:k=sc+41:forp=ktok+37:pokep,zb:next
  32. 83 k=sc+81:forp=1to21:pokek,zb:pokek+37,zb:k=k+40:next
  33. 84 k=sc+921:forp=ktok+37:pokep,zb:next:return
  34. 86 rem
  35. 87 poke781,zy:poke782,zx:poke783,0:sys65520
  36. 88 fork=1tozl:printzc$;:next:return
  37. 92 fork=1tozl:poke781,zy:poke782,zx:poke783,0:sys65520
  38. 93 printzc$:zy=zy+1:next:return
  39. 96 rn=int(rnd(1)*rh+1):return
  40. 98 fork=1totm:next:return
  41. 100 poke53265,peek(53265)and239:return   :remoff
  42. 102 poke53265,peek(53265)or16:return:remon
  43. 103 rem*svdng
  44. 200 js=peek(56320):ss=tx-50176
  45. 201 iftp=1thentp=0:goto20800
  46. 204 ifap>20then20000
  47. 206 ifpeek(197)=60thengosub3000:goto20730
  48. 208 ifpeek(197)=17then293
  49. 240 if js=126thenap=ap+1:goto300:remu
  50. 250 if js=125thenap=ap+1:goto400:remd
  51. 260 if js=119thenap=ap+1:goto500:remr
  52. 270 if js=123thenap=ap+1:goto600:reml
  53. 280 if js=111thenap=ap+1:goto700:remf
  54. 290 goto200
  55. 292 rem
  56. 293 ifdg>5then200:remsxt
  57. 294 ifsz=0then200
  58. 295 ss=tx-50176:sy=int(ss/40):sx=ss-(sy*40):py=24:px=2:gosub70:print"[159]";
  59. 296 print"           ";:gosub70:print"x=";:printsx;:print" y=";:printsy;
  60. 297 gosub98:gosub98:gosub70:print"              ";:goto200
  61. 300 ifpeek(tx-40)<64anddg<5then303
  62. 301 ifpeek(tx-40)=80then303
  63. 302 goto200
  64. 303 forp=1to2
  65. 304 au=au+1:ifau=4thenau=0
  66. 305 sa=49408+(au*64):ea=sa+63:ns=49152:gosub55010
  67. 315 poke53249,peek(53249)-4:next:tx=tx-40:ifpeek(53249)=65then1000
  68. 350 goto200
  69. 400 ifpeek(tx+40)<64anddg<5then403
  70. 401 ifpeek(tx+40)=80then403
  71. 402 goto200
  72. 403 forp=1to2
  73. 404 ad=ad+1:ifad=4thenad=0
  74. 405 sa=49664+(ad*64):ea=sa+63:ns=49152:gosub55010
  75. 415 poke53249,peek(53249)+4:next:tx=tx+40:ifpeek(53249)=225then1200
  76. 450 goto200
  77. 500 ifpeek(tx)=80andpeek(tx+41)<>102then200
  78. 502 ifpeek(tx+1)<64then505
  79. 503 ifpeek(tx+1)=80then505
  80. 504 goto200
  81. 505 ifpeek(53248)=254then563
  82. 506 forp=1to2
  83. 507 ar=ar+1:ifar=4thenar=0
  84. 508 sa=49408+(ar*64):ea=sa+63:ns=49152:gosub55010
  85. 515 poke53248,peek(53248)+4:next:tx=tx+1
  86. 550 goto200
  87. 563 ar=ar+1:ifar=4thenar=0
  88. 565 sa=49408+(ar*64):ea=sa+63:ns=49152:gosub55010
  89. 570 pokev+16,1:ms=1:poke53248,2
  90. 573 ar=ar+1:ifar=4thenar=0
  91. 575 sa=49408+(ar*64):ea=sa+63:ns=832:gosub55010
  92. 576 poke53248,6:tx=tx+1
  93. 580 goto200
  94. 600 ifpeek(tx)=80andpeek(tx+41)<>102then200
  95. 602 ifpeek(tx-1)<64then605
  96. 603 ifpeek(tx-1)=80then605
  97. 604 goto200
  98. 605 ifms=1andpeek(53248)=6then670
  99. 606 forp=1to2
  100. 607 al=al+1:ifal=4thenal=0
  101. 608 sa=49664+(al*64):ea=sa+63:ns=49152:gosub55010
  102. 615 poke53248,peek(53248)-4:next:tx=tx-1
  103. 650 goto200
  104. 670 poke53248,2
  105. 673 al=al+1:ifal=4thenal=0
  106. 675 sa=49664+(al*64):ea=sa+63:ns=49152:gosub55010
  107. 676 pokev+16,0:ms=0:poke53248,254:tx=tx-1
  108. 680 goto200
  109. 684 py=24:px=1:gosub70:print"[159]";
  110. 686 ifdg=11thenprint"the rune of air !";:poketx,32:ra=1:goto692
  111. 687 ifdg=21thenprint"a ferry pass & 10 gems !";:poketx,32:gm=gm+10:fp=1:goto692
  112. 688 ifdg=41thenprint"the rune of water !";:poketx,32:rw=1:goto692
  113. 690 ifdg=32thenprint"the rune of fire !";:poketx,32:rf=1:goto692
  114. 692 fork=1to1000:next:gosub70:print"                          ";:goto200
  115. 700 ifpeek(tx)=63then684
  116. 701 rem
  117. 702 rem
  118. 710 py=24:px=1:gosub70:print"[159]";
  119. 711 ifpeek(tx)=62thenrh=60:gosub96:gl=gl+rn+1:printrn+1;:print" gold";:goto728
  120. 712 ifpeek(tx)=60thenrh=9:gosub96:fd=fd+rn+1:printrn+1;:print" food";:goto728
  121. 713 ifpeek(tx)=27thenrh=9:gosub96:cy=cy+rn+1:printrn+1;:print" crystals";:goto728
  122. 714 ifpeek(tx)=28then:hb=hb+1:print" herbs";:goto728
  123. 715 ifpeek(tx)=29thengm=gm+2:print" 2 gems";:goto728
  124. 720 goto730
  125. 728 poketx,32:gosub98:py=24:px=1:gosub70:fork=1to30:print" ";:next:goto200
  126. 730 ifdg=0then740
  127. 731 ifdg=1then760
  128. 732 ifdg=2then780
  129. 733 ifdg=3then800
  130. 734 ifdg=4then820
  131. 736 goto200
  132. 740 iftx=50505then2300
  133. 742 iftx=50367then900
  134. 744 iftx=50866then8100
  135. 750 goto200
  136. 760 iftx=50730then2000
  137. 762 iftx=50862then850
  138. 764 iftx=50383then8300
  139. 770 goto200
  140. 780 rem
  141. 782 iftx=50822then850
  142. 784 iftx=50554then8700
  143. 786 goto200
  144. 800 iftx=50340then2500
  145. 802 iftx=50900then850
  146. 804 iftx=50409then2200
  147. 806 goto200
  148. 820 iftx=50888then850
  149. 822 iftx=50427then8500
  150. 824 iftx=50370then2100
  151. 826 goto200
  152. 850 v=53248:pokev+21,0:print"[147]":print"[159]":printtab(10)"telnyr ferry service"
  153. 852 print:print:print"a  return to telnyr"
  154. 854 print:print"b  exit ferry"
  155. 856 gosub74
  156. 870 ifa$="a"thendg=0:sa=35072:ms=1:xx=14:yy=89:tx=50407:cl=14:cm=12:goto940
  157. 872 ifa$="b"then876
  158. 874 goto856
  159. 876 sa=35072+(dg*1024):ea=sa+999:ns=50176:gosub55010
  160. 878 poke53269,1:poke53210,cl:sys53200:goto200
  161. 900 v=53248:pokev+21,0:ng=0:print"[147][159]":printtab(9)"-telnyr ferry service-"
  162. 901 ng=0:print:print"[158]       price includes return trip"
  163. 902 print:print"":print"a- forest isle    50  gold"
  164. 903 print:print"b- tropicania     50  gold"
  165. 904 print:print"c- lamentia       100 gold"
  166. 905 print:print"d- devils peaks   400 gold"
  167. 906 print:print"[159]":print"x  exit ferry     (space- inventory)":gosub954
  168. 907 gosub74
  169. 908 ifa$="a"thenct=50:gosub952:goto916
  170. 909 ifa$="b"thenct=50:cc=0:gosub952:goto920:remcc=casino
  171. 910 ifa$="c"thenct=100:gosub952:goto922
  172. 911 ifa$="d"thenct=400:gosub952:goto918
  173. 912 ifa$="x"then924
  174. 913 ifa$=" "thengosub3000:goto900
  175. 915 goto909
  176. 916 gosub76:ifng=1then900
  177. 917 dg=1:sa=36096:ms=0:xx=70:yy=201:tx=50942:cl=14:cm=8:goto940
  178. 918 gosub76:ifng=1then900
  179. 919 dg=2:sa=37120:ms=0:xx=70:yy=184:tx=50862:cl=14:cm=12:goto940
  180. 920 gosub76:ifng=1then900
  181. 921 dg=3:sa=38144:ms=0:xx=54:yy=201:tx=50940:cl=14:cm=12:goto940
  182. 922 gosub76:ifng=1then900
  183. 923 dg=4:sa=39168:ms=1:xx=22:yy=193:tx=50928:cl=14:cm=12:goto940
  184. 924 dg=0:sa=35072:ms=1:xx=14:yy=89:tx=50407:cl=14:print"[147]":goto941
  185. 926 goto914
  186. 940 print"[147]":print:print"travelling";:forj=1to4:print".";:gosub98:next
  187. 941 ea=sa+999:ns=50176:gosub55010:pokev,xx:pokev+1,yy
  188. 942 ifms=0thenpokev+16,0
  189. 943 ifms=1thenpokev+16,1
  190. 944 ifdg=3thenpoke50420,32:remadj
  191. 945 poke53210,cl:sys53200:pokev+21,1
  192. 950 poke53283,cm:goto200
  193. 952 iffp=1thenct=0:return
  194. 954 iffp=1thengosub98:print:print:print"a ferry pass ! free travel anywhere !"
  195. 955 return
  196. 960 fd=0:ap=0:hp=hp-10:ifhp<1then37002
  197. 962 py=24:px=1:gosub70:print"";:print"starving !";:gosub98:gosub98
  198. 964 gosub70:print"            ";:goto20001
  199. 1000 dg=dg-1:v=53248:sd=0
  200. 1002 if dg=10thenpokev+21,0:pokev,166:pokev+1,217:tx=51034:goto8107
  201. 1004 if dg=9thendg=0:sa=35072:ms=0:xx=102:yy=185:tx=50866:goto1180
  202. 1008 if dg=20thenpokev+21,0:pokev,166:pokev+1,217:tx=51034:goto8307
  203. 1010 if dg=19thendg=1:sa=36096:ms=0:xx=78:yy=89:tx=50383:goto1180
  204. 1014 if dg=40thenpokev+21,0:pokev,166:pokev+1,217:tx=51034:goto8507
  205. 1016 if dg=39thendg=4:sa=39168:ms=0:xx=110:yy=97:tx=50427:goto1180
  206. 1022 if dg=30thenpokev+21,0:pokev,166:pokev+1,217:tx=51034:goto8707
  207. 1024 if dg=31thenpokev+21,0:pokev,166:pokev+1,217:tx=51034:goto8807
  208. 1026 if dg=29thendg=2:sa=37120:ms=0:xx=166:yy=121:tx=50554:goto1180
  209. 1178 end
  210. 1180 ea=sa+999:ns=50176:gosub55010:pokev,xx:pokev+1,yy
  211. 1182 ifms=0thenpokev+16,0
  212. 1184 ifms=1thenpokev+16,1
  213. 1186 cl=14: poke53210,cl:sys53200:poke53283,cm:pokev+21,1
  214. 1188 goto200
  215. 1200 dg=dg+1:v=53248:sd=0
  216. 1202 if dg=11then8200
  217. 1204 if dg=21then8400
  218. 1206 if dg=41then8600
  219. 1208 if dg=31then8800
  220. 1209 if dg=32then8900
  221. 1210 goto200
  222. 1399 goto200
  223. 2000 print"[147]":poke53269,0: poke53210,11:sys53200
  224. 2001 poke53283,14:gosub100:zb=145:gosub82:rem border
  225. 2004 print"[159]";:printtab(13)"-magic shoppe-"
  226. 2006 print:printtab(3)"learn a spell & cast it forever,as"
  227. 20