home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 May / 1985-05.d64 / z (.txt) < prev   
Encoding:
Commodore BASIC  |  1985-01-01  |  8.6 KB  |  267 lines
  1. 1 poke56,63:poke55,229:clr:poke36879,8:om=4
  2. 2 gosub15:bb=y:gosub15:cc=y:gosub15:dd=y
  3. 3 print"[147]":restore:fory=16357to16383:readz:pokey,z:next:gosub171:goto152
  4. 4 poke36869,205:a=9:b=9:deffnc(d)=4096+a+22*b
  5. 5 forz=1to3:gosub15:e(z)=y:next:gg=483
  6. 6 poke36878,15
  7. 7 forz=1to4:gosub16:e1(z)=y:e2(z)=e1(z):next:f=33792
  8. 8 g=4096:h=4579:y=rnd(-ti)
  9. 9 i=4117:j=4558:gosub15:n=y:n1=int(rnd(.)*gg)+g:gosub15:ee=y
  10. 10 gosub15:cu=y
  11. 11 gosub14:x1=y:gosub14:o1=y:gosub14:p1=y:fory=832to936:readz:pokey,z:next
  12. 12 gosub14:s1=y:gosub14:t1=y:gosub14:u1=y:gosub14:v1=y:gosub14:fa=y:gosub14:w1=y
  13. 13 gosub16:by=y:bx=y::gosub16:cy=y:cx=y:gosub16:dy=y:dx=y:gosub16:ey=y:ex=y:goto17
  14. 14 y=int(rnd(.)*gg)+g:return
  15. 15 y=int(rnd(.)*40)+1:return
  16. 16 y=int(rnd(.)*20)+1:return
  17. 17 gosub14:q1=y:gosub14:r1=y:deffna1(d)=4096+e1(y)+22*e2(y):deffna2(d)=4096+bx+22*by
  18. 18 deffna3(d)=4096+cx+22*cy:deffna4(d)=4096+dx+22*dy:deffna5(d)=4096+ex+22*ey
  19. 19 d1=4106:d2=4568:d4=4337:d3=4316:deffna7(d)=4096+gh(z)+22*gz(z):ti$="000000"
  20. 20 gosub263:print"[147]":ifk=1ork=9ork=17ork>24andk<28ork>32andk<38ork=3then261
  21. 21 print"cccccccccccccccccccccc"
  22. 22 ifk=12ork=25ork=26ork>32andk<37ork=3ork=6ork=2then24
  23. 23 fory=itohstep22:pokey,3:pokey+f,2:next
  24. 24 ifk=1ork=9ork=11ork=25ork>32andk<36ork=17then26
  25. 25 fory=jtoh:pokey,3:pokey+f,2:next
  26. 26 ifk=1ork=3ork=4ork=7ork=9ork=13ork=17ork>24andk<28ork>32andk<38then28
  27. 27 fory=gtojstep22:pokey,3:pokey+f,2:next
  28. 28 ifk<>10andk<>16andk<>13andk<>25then30
  29. 29 forz=1toint(rnd(.)*15)+15:y=int(rnd(.)*gg)+g:pokey,7:pokey+f,0:next
  30. 30 ifk>3andk<8ork=15ork=18ork>21andk<25ork=32thenpoked1,11:poked1+f,0
  31. 31 ifk>11andk<16ork=23ork=26ork>29andk<33ork=40thenpoked2,11:poked2+f,0
  32. 32 ifk=5ork=15ork=16ork>18andk<21ork=22ork=24ork=29ork>37andk<41thenfl=1
  33. 33 ifflthenpoked3,11:poked3+f,0:fl=0
  34. 34 ifk=4ork=14ork=15ork=18ork=19ork=23ork=28ork=21ork>36andk<40thenpoked4,11:poked4+f,0
  35. 35 ifk=16andlk=0thenpokeh-88,10
  36. 36 rr=0:ifk=39ork=29ork=31ork=20thenrr=9
  37. 37 ifi(2)=9then183
  38. 38 ifk=5thenfory=gtohstep25:pokey,3:pokey+f,4:next
  39. 39 ifk=8thenfory=gtohstep7:pokey,3:pokey+f,2:next
  40. 40 ifk=16thenfory=gtohstep18:pokey,3:pokey+f,2:next
  41. 41 ifk=12thenfory=itojstep21:pokey,3:pokey+f,4:next
  42. 42 ifk<>30then44
  43. 43 fory=gtohstep23:pokey,3:pokey+f,3:next:fory=itojstep21:pokey,3:pokey+f,3:next
  44. 44 ifk<>18then46
  45. 45 fory=d3tod4-2:pokey,3:pokey+f,2:next:fory=d3+10tod2step22:pokey,3:pokey+f,2:next
  46. 46 ifk=20andi(7)=9thenpoked4,9:poked4+f,3
  47. 47 ifk=21andi(7)=9thenpoked3,9:poked3+f,3
  48. 48 ifk=5andi(6)=9thenpoked4,9:poked4+f,4
  49. 49 ifk=6andi(6)=9thenpoked3,9:poked3+f,4
  50. 50 ifk=11thenfory=d1+44tod2step22:pokey,3:pokey+f,4:next
  51. 51 ifk<>3then53
  52. 52 fory=d1tod2step22:pokey,3:pokey+f,4:next:fory=d3tod3+10:pokey,3:pokey+f,4:next
  53. 53 ifk=2thenfory=d3+2tod4:pokey,3:pokey+f,4:next
  54. 54 ifk<>40then57
  55. 55 fory=d1+43tod2-23step22:pokey,3:pokey+f,2:next
  56. 56 fory=d3+2tod4-2:pokey,3:pokey+f,2:next
  57. 57 ifk=14thenfory=gtohstep5:pokey,3:pokey+f,2:next:poked4-1,32:poked2-22,32
  58. 58 ifk<>23then60
  59. 59 fory=d1+44tod2-44step22:pokey,3:pokey+f,2:next:fory=d3tod4-2:pokey,3:pokey+f,2:next
  60. 60 ifk>50thenpoke36879,76:print"[147]"
  61. 61 poke36880,5:poke36881,25:ifk=10ork=13ork=16ork=25thengr=k
  62. 62 ifk<>22then65
  63. 63 fory=d3+2tod2-44step23:pokey,3:pokey+f,3:next
  64. 64 fory=d1+44tod4-2step23:pokey,3:pokey+f,3:next
  65. 65 fory=1to3:iftr(y)=kthenpoketa(y),tb(y):poketa(y)+f,0:next
  66. 66 ifk=15thenfory=itod4-10step21:pokey,3:pokey+f,2:next:fory=d4-10tohstep23:pokey,3
  67. 67 ifcu=kthenck=9:poke38399,7:sys16357
  68. 68 ifpeek(fnc(d))=3thenk=33:goto20
  69. 69 poke36879,25+int(rnd(.)*7)
  70. 70 fory=4580to4601:pokey+f,4:next:ifi(1)=9thenpoke4581,2:o=0
  71. 71 ifi(2)=9thenpoke4583,5:p=0
  72. 72 ifi(3)=9thenpoke4585,6:q=0
  73. 73 ifi(4)=9thenpoke4587,7:r=0
  74. 74 ifi(5)=9thenpoke4589,8:s=0
  75. 75 ifi(6)=9thenpoke4591,12:t=0
  76. 76 ifi(7)=9thenpoke4593,12:poke4593+f,3:u=0
  77. 77 ifi(8)=9thenpoke4595,19:v=0
  78. 78 ifi(10)=9thenpoke4599,6:poke4599+f,0:ff=0
  79. 79 ifi(9)=9thenpoke4597,20:x=0:goto220
  80. 80 ifi(9)=9then82
  81. 81 ifk=37ork=28ork=29ork=8ork=10ork=2ork=1thenpoke38399,0:sys16357:poke36879,8
  82. 82 poke36869,205:sys832:ma=0:mb=0:ifpeek(830)=0then241
  83. 83 pokefnc(d),32:poke36877,0:ifpeek(830)=1thenmb=-1:ifck=9thenmb=1
  84. 84 ifpeek(830)=3thenma=1:ifck=9thenma=-1
  85. 85 ifpeek(830)=5thenmb=1:ifck=9thenmb=-1
  86. 86 ifpeek(830)=7thenma=-1:ifck=9thenma=1
  87. 87 a=a+ma:b=b+mb:ifpeek(fnc(d))=32then102
  88. 88 gosub205:ifpeek(fnc(d))=3andi(1)=0then244
  89. 89 ifpeek(fnc(d))=4andi(8)=0then244
  90. 90 ifpeek(fnc(d))=7andi(4)=0andr1<>fnc(d)then188
  91. 91 poke36876,int(rnd(.)*127)+128:iffnc(d)=o1ando=ktheni(1)=9:o=0
  92. 92 iffnc(d)=p1andp=ktheni(2)=9:p=0
  93. 93 iffnc(d)=q1andq=ktheni(3)=9:q=0
  94. 94 iffnc(d)=r1andr=ktheni(4)=9:r=0
  95. 95 iffnc(d)=s1ands=ktheni(5)=9:s=0
  96. 96 iffnc(d)=t1andt=ktheni(6)=9:t=0
  97. 97 iffnc(d)=u1andu=ktheni(7)=9:u=0
  98. 98 iffnc(d)=x1andx=ktheni(9)=9:x=0
  99. 99 iffnc(d)=v1andv=ktheni(8)=9:v=0
  100. 100 iffnc(d)=faandff=ktheni(10)=9:ff=0
  101. 101 iffnc(d)=w1andw=kthenk=int(rnd(.)*40)+1:goto21
  102. 102 poke36876,0:ifa>21ora<0orb>21orb<0then246
  103. 103 pokefnc(d),0:pokefnc(d)+f,0
  104. 104 fory=1to3:ife(y)=kthen106
  105. 105 next:goto112
  106. 106 y=int(rnd(.)*4)+1:pokefna1(d),32:ife1(y)<athene1(y)=e1(y)+1
  107. 107 ife1(y)>athene1(y)=e1(y)-1
  108. 108 ife2(y)>bthene2(y)=e2(y)-1
  109. 109 ife2(y)<bthene2(y)=e2(y)+1
  110. 110 pokefna1(d),18:pokefna1(d)+f,6
  111. 111 iffna1(d)=fnc(d)then188
  112. 112 ifk<>bbthen119
  113. 113 ma=0:mb=0:pokefna2(d),3:ifbx<athenma=1:goto117
  114. 114 ifbx>athenma=-1:goto117
  115. 115 ifby>bthenmb=-1
  116. 116 ifby<bthenmb=1
  117. 117 by=by+mb:bx=bx+ma:ifpeek(fna2(d))=4orpeek(fna2(d))=7thenby=by-mb:bx=bx-ma
  118. 118 pokefna2(d),13:pokefna2(d)+f,2:iffna2(d)=fnc(d)then188
  119. 119 ifk<>ccthen126
  120. 120 pokefna3(d),32:ifcx<athenma=1
  121. 121 ifcx>athenma=-1
  122. 122 ifcy>bthenmb=-1
  123. 123 ifcy<bthenmb=1
  124. 124 cx=cx+ma:cy=cy+mb:ifpeek(fna3(d))=3thencx=cx-ma:cy=cy-mb
  125. 125 pokefna3(d),14:pokefna3(d)+f,0:iffna3(d)=fnc(d)then188
  126. 126 ifk<>ddthen133
  127. 127 pokefna4(d),32:pokefna4(d)-1,32:ifdx<athendx=dx+1:goto129
  128. 128 dx=dx-1
  129. 129 ifdy<bthendy=dy+1:goto131
  130. 130 dy=dy-1
  131. 131 pokefna4(d),17:pokefna4(d)-1,16:pokefna4(d)-1+f,5:pokefna4(d)+f,5
  132. 132 iffna4(d)=fnc(d)then188
  133. 133 ifk<>eethen141
  134. 134 pokefna5(d),32:ifex<athenma=1
  135. 135 ifex>athenma=-1
  136. 136 ifey>bthenmb=-1
  137. 137 ifey<bthenmb=1
  138. 138 ex=ex+ma:ey=ey+mb
  139. 139 ifpeek(fna5(d))=3orpeek(fna5(d))=4orpeek(fna5(d))=7thenex=ex-ma:ey=ey-mb
  140. 140 pokefna5(d),0:pokefna5(d)+f,3:iffna5(d)=fnc(d)thenz=int(rnd(.)*10)+1:i(z)=0:ee=0
  141. 141 ifrr=0then145
  142. 142 z=int(rnd(.)*gg)+g:pokez,3:pokez+f,7:ifz=fnc(d)then188
  143. 143 z=int(rnd(.)*8)+1:poke36880,z:y=int(rnd(.)*9)+21:poke36881,y:poke36876,128
  144. 144 poke36877,128
  145. 145 ifk<>grori(4)=9then82
  146. 146 z=int(rnd(.)*13)+1:pokefna7(d),32:ifgh(z)<athengh(z)=gh(z)+1
  147. 147 ifgh(z)>athengh(z)=gh(z)-1
  148. 148 ifgz(z)<bthengz(z)=gz(z)+1
  149. 149 ifgz(z)>bthengz(z)=gz(z)-1
  150. 150 pokefna7(d),0:pokefna7(d)+f,2:iffna7(d)=fnc(d)then188
  151. 151 goto82
  152. 152 print"[158][147]the sword"
  153. 153 print"press f1 to start in      the forest."
  154. 154 print"press f3 to be placed   randomly in a room."
  155. 155 print"press f5 to start with   a treasure."
  156. 156 gett$:ift$=""then156
  157. 157 ift$="[133]"thenk=33:m=4:goto4
  158. 158 ift$<>"[134]"then161
  159. 159 gosub15:ify=8ory=10ory=12ory=30ory=40then159
  160. 160 k=y:m=4:goto4
  161. 161 ift$="[135]"then163
  162. 162 goto152
  163. 163 print"[147]   treasures":print"0. random"
  164. 164 print"1. boots":print"2. wand of secrets":print"3. globe":print"4. cross"
  165. 165 print"5. wand of the way":print"6. purple key":print"7. blue key"
  166. 166 print"8. axe":print"9. torch"
  167. 167 gett$:ift$=""then167
  168. 168 ift$<"0"ort$>"9"then152
  169. 169 hh=val(t$):ifhh=0thenhh=int(rnd(.)*9)+1
  170. 170 i(hh)=9:goto152
  171. 171 gosub15:n=y:ifn=1orn=7orn=6orn=9orn>13andn<21orn>22andn<30orn>30then171
  172. 172 gosub15:o=y:ifo=1oro=9oro=17oro>24ando<28oro>32ando<38then172
  173. 173 gosub15:p=y:ifp=10orp=8orp=28orp=29then173
  174. 174 gosub15:q=y:ifq=1orq=9orq=17orq>24andq<28orq>32andq<38then174
  175. 175 gosub15:r=y:gosub15:s=y:gosub15:x=y:gosub15:w=y
  176. 176 gosub15:t=y:ift>1andt<6ort>10andt<14then176
  177. 177 gosub15:v=y:ifv=1orv=9orv=17orv>24andv<28orv>32andv<38then177
  178. 178 gosub15:u=y:ifu>1andu<6oru>10andu<14oru=21oru=22oru=30then178
  179. 179 gosub15:ff=y:ify=1ory=2ory=10ory=8ory=37ory=28ory=29then179
  180. 180 forz=1to3:aa(z)=int(rnd(.)*gg)+g:next
  181. 181 forz=1to3:gosub15:tr(z)=y:gosub14:ta(z)=y:next:tb(1)=6:tb(2)=19:tb(3)=2
  182. 182 dimgz(13):dimgh(13):forz=1to13:gosub16:gz(z)=y:gh(z)=y:next:return
  183. 183 ifk=10ork=8thenpoked3,42
  184. 184 ifk=9ork=7thenpoked4,42
  185. 185 ifk=24ork=28ork=37thenpoked2,42
  186. 186 ifk=16ork=20ork=29thenpoked1,42
  187. 187 goto38
  188. 188 m=m-1:fory=250to200step-1:forz=230to240
  189. 189 poke36877,y:poke36876,z:next:next:ifm<1then192
  190. 190 poke36877,0:poke36876,0:k=33:gosub15:bb=y:gosub15
  191. 191 cc=y:gosub15:dd=y:gosub15:k=y:ck=0:goto20
  192. 192 poke36876,0:poke36877,0
  193. 193 print"[147]your quest is over":poke36869,192:poke36879,8
  194. 194 print:ifm<1thenprint"you have failed      to find the sword"
  195. 195 ifm>0thenprint:print"congratulations!    you found[160]the sword"
  196. 196 print"press fire"
  197. 197 sys832:ifpeek(831)=0then197
  198. 198 run
  199. 199 return
  200. 200 iffnc(d)<>n1then188
  201. 201 fory=160to255:poke36876,y:forz=14to0step-2:poke36878,z:next:next:d8=36878
  202. 202 goto203
  203. 203 fory=255to160step-1:poke36876,y:forz=0to14step2:poked8,z:next:forz=14to0step-4
  204. 204 poked8,z:next:next:goto192
  205. 205 ifpeek(fnc(d))=63orpeek(fnc(d))=1then200
  206. 206 ifpeek(fnc(d))<>10thenreturn
  207. 207 z=int(rnd(.)*10)+1
  208. 208 i(z)=9:k=80:lk=1:return
  209. 209 ifi(3)=9then216
  210. 210 ifi(10)=9then212
  211. 211 return
  212. 212 ifk-n=8ork-n=-8ork-n=1ork-n=-1thenpoke36876,130:goto215
  213. 213 ifk-n=7ork-n=9ork-n=-7ork-n=-9thenpoke36876,250:goto215
  214. 214 poke36876,200
  215. 215 return
  216. 216 ifk-n=8ork-n=-8ork-n=1ork-n=-1thenpoke36876,250:goto219
  217. 217 ifk-n=7ork-n=9ork-n=-7ork-n=-9thenpoke36876,200:goto219
  218. 218 poke36876,130
  219. 219 return
  220. 220 ifk=othenpokeo1,2:pokeo1+f,0:ifi(5)=9thenpokeo1+f,7
  221. 221 ifk=pthenpokep1,5:pokep1+f,0
  222. 222 ifk=qthenpokeq1,6:pokeq1+f,0:ifi(5)=9thenpokeq1+f,7
  223. 223 ifk=rthenpoker1,7:poker1+f,0:ifi(5)=9thenpoker1+f,7
  224. 224 ifk=sthenpokes1,8:pokes1+f,0
  225. 225 ifk=tthenpoket1,12:poket1+f,4
  226. 226 ifk=uthenpokeu1,12:pokeu1+f,3
  227. 227 ifk=ffthenpokefa,6:pokefa+f,0
  228. 228 ifk=wthenpokew1,15:pokew1+f,2
  229. 229 ifk=vthenpokev1,19:pokev1+f,0:ifi(5)=9thenpokev1+f,7
  230. 230 ifk=xthenpokex1,20:pokex1+f,7
  231. 231 ifk<>nthen80
  232. 232 poken1,63:poken1+f,0:fory=1to3:pokeaa(y),63:pokeaa(y)+f,0:next:ifi(5)=9thenpoken1,1
  233. 233 goto80
  234. 234 data169,148,133,252,169,1,133,251,173,255,149,160,0,145,251,200,208,251,160,255,145
  235. 235 data251,230,251,208,250,96
  236. 236 data120,8,72,152,72,138,72,173,19,145,72,173,34,145,72,169,0,141,62,3,141,63,3,169
  237. 237 data127,141,34,145,173,32,145,73,255,41,128,42,8,169,195,141,19,145,173,17,145,73
  238. 238 data255,41,60,74,74,40,42,168,41,16,201,16,208,3,141,63,3,152,41,15,162,0,232,224,9
  239. 239 data240,8,221,160,3,208,246,142,62,3,104,141,34,145,104,141,19,145,104,170,104,168
  240. 240 data104,40,88,96,2,3,1,5,4,12,8,10
  241. 241 ifpeek(831)=16andi(4)=0thenm=0:goto188
  242. 242 ifpeek(831)=16theni(4)=0:bb=50:cc=50:dd=50:fory=1to3:e(y)=50:next
  243. 243 goto103
  244. 244 ifa>21ora<0orb>22orb<0then246
  245. 245 a=a-ma:b=b-mb:goto102
  246. 246 ifa>21thena=0:k=k+1:ifk=41thenk=1
  247. 247 ifa<0thena=21:k=k-1:ifk=0ork=32ork=24ork=16ork=8thenk=33
  248. 248 ifb>21thenb=0:k=k-8:ifk<1thenk=34
  249. 249 ifb<0thenb=21:k=k+8:ifk>40thenk=35
  250. 250 ifti$>"000200"then252
  251. 251 gosub209:goto20
  252. 252 fory=1to3:ife(y)<kthene(y)=e(y)+1
  253. 253 ife(y)>kthene(y)=e(y)-1
  254. 254 next:ifcc<kthencc=cc+8
  255. 255 ifcc>kthencc=cc-8
  256. 256 ifbb>kthenbb=bb-7
  257. 257 ifbb<kthenbb=bb+7
  258. 258 ifdd>kthendd=dd-9
  259. 259 ti$="000000":ifdd<kthendd=dd-9
  260. 260 goto251
  261. 261 ifk=3then22
  262. 262 fory=1toint(rnd(.)*50)+50:z=int(rnd(.)*gg)+g:pokez,4:pokez+f,5:next:goto22
  263. 263 ifom=mthen266
  264. 264 poke36879,8
  265. 265 poke36869,192:print"[147]men left";m:fort5=1to1000:next:poke36869,205:k=33
  266. 266 om=m:return
  267.