home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 146 / Tiger_Disk_146_19xx_Tiger-Crew-Disk_de_Side_B.d64 / zauberschloss (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  19KB  |  498 lines
  1. 0 print"[147][144]  bitte warten  -  ich lese daten    ":poke53280,12:poke53281,9
  2. 1 restore:he=0:vc=53248:pz=1:px=3:py=2:ri=0:wz=0:dz=0:dr=0:w=0:x=0:y=0:ha=0:hb=0
  3. 2 datafackel,speer,handschuh,krone,schluessel,knopf,buch,truhe,messer
  4. 3 datazaubertrank,schild,kobold,tarnkappe,zettel,gift
  5. 4 pokevc+21,0:ifru=0thendimpl(2,5,4),pr(2,5,4),di$(14)
  6. 5 fora=0to14:readdi$(a):next
  7. 6 data1006,1014,1015,1024
  8. 7 data1064,1005,1003,1140
  9. 8 data1039,1011,1140,1005
  10. 9 data1001,1018,1271,1041
  11. 10 data1064,1010,1012,1036
  12. 11 data2026,1522,1269,1001
  13. 12 data1006,1142,1011,1012
  14. 13 data1017,1033,1004,1001
  15. 14 fora=1to2:forb=1to4:forc=1to4:readpr(a,b,c):next:next:next
  16. 15 data17384,1512,1000,1001
  17. 16 data1000,1256,1000,1064
  18. 17 data1000,1000,1128,3048
  19. 18 data1002,5096,2024,1000
  20. 19 data1000,9192,1000,1000
  21. 20 data1000,1000,1000,1016
  22. 21 data1000,1000,1002,1000
  23. 22 data1000,3048,1004,1032
  24. 23 fora=1to2:forb=1to4:forc=1to4:readpl(a,b,c):next:next:next
  25. 24 data,,,,,4,,,18,,,65,,,40,,2,36,,,82,,,168,,,152,,,32,,,48,,,48,,,48,,,48
  26. 25 data,,48,,,48,,,48,,,48,,,48,,,48,,,48
  27. 26 data16,,,16,,,18,,,255,76,64,19,95,64,18,63,128,16,21,,16,31,,16,17,,17,255
  28. 27 data192,63,255,254,63,255,254,19,255,254,19,255,246,19,255,246,19,255,246
  29. 28 data19,255,246,19,255,240,19,255,240,16,51,0,19,243,240
  30. 29 data8,,,6,,,31,,,54,,,104,,,96,,,192,,,192,,,192,,,192,42,0
  31. 30 data224,127,80,224,255,248,224,255,253,103,255,255,127,255,255,127,31,227
  32. 31 data126,239,221,63,247,253,31,247,221,15,97,184,7,126,191
  33. 32 data,126,,,62,,,126,,,63,,,127,,,63,,,127,,,63,,,126,,,62,0
  34. 33 data1,126,,11,252,,95,252,,255,248,0,255,248,0,255,240,0,255,224,0
  35. 34 data255,192,0,255,128,0,126,0,0,56,0,0
  36. 35 data0,0,0,3,128,0,15,224,0,30,120,0,62,254,0,127,255,135,255,255,253
  37. 36 data127,255,255,255,127,255,127,128,0,255,213,94,127,255,252,255,255,240
  38. 37 data127,248,0,255,192,0,127,0,0,255,0,0,126,0,0,254,0,0,126,0,0,254,,,
  39. 38 data,,255,,,126,,,66,,,66,,15,195,240,8,,16,8,60,16,8,126,16,8,153,16
  40. 39 data9,153,144,9,255,144,9,231,144,8,255,16,10,66,80,9,255,144,8,126,16
  41. 40 data8,36,16,8,195,16,11,,208,15,255,240,,,
  42. 41 data0,0,0,0,0,0,0,48,0,1,182,0,1,182,0,1,182,0,1,182,0,13,182,0,13,182,24
  43. 42 data13,182,56,13,182,56,13,182,112,13,182,240,15,255,192,15,255,192
  44. 43 data15,255,128,7,255,128,7,255,0,3,255,0,3,255,0,3,255,0
  45. 44 data1,255,128,1,255,128,1,255,128,1,60,128,1,153,128,1,255,128,1,255,128
  46. 45 data12,189,48,6,189,96,2,219,64,2,102,64,3,126,192,1,60,128,1,189,128
  47. 46 data1,153,128,3,195,192,3,221,192,3,255,192,3,255,192,3,189,192,7,189,192
  48. 47 data7,189,224,7,189,224,7,60,224,7,126,224,7,126,224,7,126,224,4,255,32
  49. 48 data15,255,240,15,255,240,15,255,240,15,255,240,15,255,240,15,255,240
  50. 49 data31,255,248,31,255,248,31,255,248,31,255,248,62,221,124,48,221,12
  51. 50 data119,221,238,,,
  52. 51 data32,24,4,32,24,2,48,60,12,48,60,12,48,60,12,48,60,12,56,126,28,56,126,28
  53. 52 data56,126,28,56,126,28,56,126,28,59,255,188,59,255,188,59,255,188
  54. 53 data59,255,188,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252
  55. 54 data,,
  56. 55 data,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,12,,,13,248,,13,252,,63,254,1
  57. 56 data111,254,1,255,255,2,127,255,252,,,
  58. 57 data1,252,0,3,30,0,3,231,0,14,123,128,15,249,128,3,96,0,0,204,0
  59. 58 data3,158,0,3,62,0,0,110,0,0,238,0,0,239,0,0,239,0,0,239,0,0,239,0
  60. 59 data0,31,0,0,255,0,0,255,0,0,56,0,3,184,0,3,248,0
  61. 60 data126,0,0,36,0,0,36,0,0,36,0,0,131,0,3,129,192,2,0,64,3,0,192
  62. 61 data3,255,192,3,253,192,3,127,192,3,239,192,3,255,192,3,251,192,3,255,192
  63. 62 data3,223,192,3,255,192,3,253,192,3,127,192,3,255,192,3,255,192
  64. 63 fora=1to4:forb=1to4:forz=1to2:pl(z,a,b)=pl(z,a,b)-1000
  65. 64 pr(z,a,b)=pr(z,a,b)-1000:next:next:next
  66. 65 ifru=1then67
  67. 66 dimsp(13,63):fora=1to13:forb=1to63:readsp(a,b):next:next
  68. 67 print"[147]","   zauberschloss":print
  69. 68 print"moechten sie ein n[146]eues spiel beginnen"
  70. 69 print,,"[157][157][157]a[146]ltes spiel fortsetzen?"
  71. 70 geta$:ifa$<>"a"anda$<>"n"then70
  72. 71 ifa$="a"then346
  73. 72 rem
  74. 73 rem
  75. 74 printchr$(14)"[147]                             [146]"
  76. 75 print"           [196][193][211][160][218][193][213][194][197][210][211][195][200][204][207][211][211] [146]"
  77. 76 print"                             [146]":fori=1to2000:next
  78. 77 print"  [211]inn des [211]piels ist es, eine [193]ufgabe,"
  79. 78 print"  die im [214]erlauf des [211]piels gestellt"
  80. 79 print"  wird, zu loesen. [211]ie koennen dem"
  81. 80 print"  [195]omputer dazu [193]nweisungen eingeben,"
  82. 81 print"  die er dann ausfuehrt. [196]iese [194]efehle"
  83. 82 print"  bestehen in der [210]egel aus zwei [215]orten,"
  84. 83 print"  die durch eine [204]eerstelle getrennt"
  85. 84 print"  sein muessen. [198]olgende [203]ommandos,"
  86. 85 print"  gefolgt von einem [199]egenstand, werden"
  87. 86 print"  vom [195]omputer verstanden:"
  88. 87 print"   [206][201][205][205]  [160][214][197][210][204][201][197][210][197]   [204][201][197][211][160] [160][207][197][198][198][206][197]"
  89. 88 print" [214][197][210][202][193][199][197] [160][196][210][197][200] [160][194][197][206][213][212][218][197] [160][212][210][201][206][203] [160][196][210][213][197][195][203][197]"
  90. 89 print,,,"  weiter?[146]";
  91. 90 geta$:ifa$<>"j"then90
  92. 91 print"   [194]ei [210]ichtungsangaben werden nur die"
  93. 92 print"  [193]nfangsbuchstaben eingegeben:"
  94. 93 print"  [206]=[206]ord [211]=[211]ued [215]=[215]est  [207]=[207]st":print"  [200]=[200]och [210]=[210]unter"
  95. 94 print,,,"[145][145][145][145] [206]":print,,,"[215]*[207]":print,,,"  [211]"
  96. 95 print"  [206]ach dem [194]efehl [204][201][211][212] werden alle"
  97. 96 print"  [196]inge aufgelistet, die man bei sich"
  98. 97 print"  hat. [214]orsicht:[146] [211]ie koennen immer nur"
  99. 98 print"  4 [199]egenstaende auf einmal tragen!"
  100. 99 print"  [205]it [211][193][214][197] wird das [211]piel fuer spaete-   res[215]eiterspielen gespeichert"
  101. 100 print,,,"[157][157][157]    [198]ertig?[146]";
  102. 101 geta$:ifa$<>"j"then101
  103. 102 printchr$(142):poke649,9:ti$="000000"
  104. 103 rem
  105. 104 poke53281,9:print"[147]":fora=0to23step7:print"":gosub 121:next
  106. 105 ifx=0andy=0andri=0thenprint,,,"[145][157][157][157][157][157][213][201][157][157][202][203][145]":print"   ring"
  107. 106 print"richtungen: n-w-s-o-h";:input"   kommando ";ko$
  108. 107 ifko$="n"thenx=x+1
  109. 108 ifko$="s"thenx=x-1
  110. 109 ifko$="w"theny=y+1
  111. 110 ifko$="o"theny=y-1
  112. 111 ifko$="nimm ring"thenri=1
  113. 112 ifko$="dreh ring"andri=1then142
  114. 113 ifko$="h"then118
  115. 114 ifko$="save"orko$="s[193]"thenprint"noch nicht moeglich":fora=1to1000:next
  116. 115 ifko$="stop"orko$="s[212]"thenstop
  117. 116 ifko$="list"orko$="l[201]"then147
  118. 117 goto104
  119. 118 poke53281,0:print"[147]       sie sind beim klettern "
  120. 119 print"        vom baum gefallen":goto430
  121. 120 stop
  122. 121 printtab(a)"[206][205]"
  123. 122 printtab(a)"[206][206][205][205]"
  124. 123 printtab(a)"[206][206][205][205]"
  125. 124 printtab(a)"[206][206][206][205][205]"
  126. 125 printtab(a)"[206] [206][205] [205]"
  127. 126 printtab(a)"[206] [206][206][205][205] [205]"
  128. 127 printtab(a)"[206][206][206]  [205][205][205]"
  129. 128 printtab(a)"[206][206][206] [206][205] [205][205][205]"
  130. 129 printtab(a)"[206][206][206][206]  [205][205][205][205]"
  131. 130 printtab(a)"[206] [206][206] [206][205] [205][205] [205]"
  132. 131 printtab(a)"[206][206] [206]  [205] [205][205]"
  133. 132 printtab(a)"[206][206][206][206] [206][205] [205][205][205][205]"
  134. 133 printtab(a)"[206] [206][206][206][206][206][205][205][205][205][205] [205]"
  135. 134 printtab(a)"[206][206][206] [206][206]  [205][205] [205][205][205]"
  136. 135 printtab(a)"[206][206] [206][206][206] [206][205] [205][205][205] [205][205]"
  137. 136 printtab(a)"[206][206][206] [206][206][206]  [205][205][205] [205][205][205]"
  138. 137 printtab(a)"[206][206] [206][206][206] [206][206][205][205] [205][205][205] [205][205]"
  139. 138 printtab(a)"[206][206][206][206] [206][206][206][206][205][205][205][205] [205][205][205][205]"
  140. 139 printtab(a)"[144]  "
  141. 140 printtab(a)"[169]  [223]"
  142. 141 return
  143. 142 print"[147]   der ring hat sich aufgeloest"
  144. 143 print" alles um sie beginnt sich zu drehen"
  145. 144 fora=1to2000:next:print"[147]"
  146. 145 fora=1to50:forb=0to16:poke53281,b:next:next:xy=4
  147. 146 goto149
  148. 147 ifri=0thenprint"[147]    sie haben nichts":fora=1to2000:next:goto 104
  149. 148 print"[147]  sie haben einen ring":fora=1to2000:next:goto104
  150. 149 poke53281,9
  151. 150 print"[147]":pokevc+21,0:fora=2to5:printtab(a)"[144][205]"spc(35-2*a)"[206]":next
  152. 151 print"      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  153. 152 fora=1to8:print"      [165]"spc(23)"[170]":next
  154. 153 print"      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":ri$=""
  155. 154 fora=5to2step-1:printtab(a)"[206]"spc(35-2*a)"[205]":next
  156. 155 p1=pr(pz,px,py):if(p1and1)<>1then159
  157. 156 print"","     [175][175][175][175][175][175][175]":print,"    [167][205][175][175][175][175][175][206][180]"
  158. 157 fora=1to6:print,"[170][170]     [165][165]":next:print,"[186][206]     [205][204]"
  159. 158 ri$="-n":poke214,10:print:print,"[175][175][175][175][175]"
  160. 159 if(p1and8)<>8then163
  161. 160 print" [170][205][160]":print" [170] [205]":ri$=ri$+"-w"
  162. 161 print" [170][183][208]":fora=1to9:print" [170] [167]":next
  163. 162 print" [170][175][186]":print" [170]   ":print" [170] ":print" [206]":ifkk=1thenkk=0:goto259
  164. 163 if(p1and2)<>2then167
  165. 164 print"",,,"[206][180]":print,,,"[206] [180]":ri$=ri$+"-o"
  166. 165 print,,,"[207][183][180]":fora=1to9:print,,,"[180] [180]":next:print,,,"  [205][204][175][180]"
  167. 166 print,,,"     [180]":print,,,"     [180][157][205]"
  168. 167 if(p1and4)=4thenri$=ri$+"-s"
  169. 168 if(p1and16)<>16then171
  170. 169 print"":print,,"[157][157][204][175][175][175][175][175][175][175]":print,,"[157][157][205][205][221][175][175][221][206][206]":ri$=ri$+"-h"
  171. 170 print,,"[157][205][171][192][192][179][206]":fora=1to7:print,,"[221][221]":print,,"[171][195][195][179]":next
  172. 171 if(p1and32)<>32then174
  173. 172 poke214,15:print:print,," [204][175][186]":print,," [204][175][186]":print,,"[206][165] [170][205]":ri$=ri$+"-r"
  174. 173 print,,"[157][206][206][207][183][208][205][205]":print,,"[157][207][183][183][183][183][183][183]"
  175. 174 p=pl(pz,px,py):if(pand2048)=0then178
  176. 175 if(haand2)=0then178
  177. 176 ha=ha-2:ko=2:hb=hb-1
  178. 177 poke214,18:print:print"der kobold hat ihren speer gestohlen"
  179. 178 if(pand2)=2thenpoke214,14:print,"[145][145][145][145][145]^[157][221][157][221][157][221][157][221][157][221][157][221]"
  180. 179 if(pand16)=16thenpoke214,16:print:print,,"[157][157][157][157][157]o[195][178]"
  181. 180 if(pand64)<>64then183
  182. 181 poke214,15:print:print," [175][175][175][175]":print,"[206]   [206][180]":print,"[157][206]   [206][206]"
  183. 182 print,"[157][157][206][175][175][175][206][206]":print,"[157][157][157][170] ==([206]":print,"[157][157][183][183][183][183]"
  184. 183 if(pand256)=256thenpoke214,17:print:print,,"   [172][164][164][164][164]":print,,"    [146][164][164][164][164]>":print,,"   [188]"
  185. 184 if(pand1)<>1then188
  186. 185 fora=1to63:poke831+a,sp(1,a):next:pokevc,255:pokevc+1,100
  187. 186 poke2040,13:pokevc+37,2:pokevc+38,0:pokevc+39,7:pokevc+21,peek(vc+21)or1
  188. 187 pokevc+28,peek(vc+28)or1
  189. 188 if(p1and64)<>64then191
  190. 189 print"[147] [129]sie sind in eine fallgrube gelaufen!!"
  191. 190 poke53281,0:goto430
  192. 191 if(p1and128)<>128and(p1and256)<>256then197
  193. 192 fora=1to63:poke895+a,sp(2,a):next:poke2041,14:pokevc+40,0:pokevc+2,100
  194. 193 pokevc+3,138:pokevc+21,peek(vc+21)or2:pokevc+23,2:pokevc+29,2:w=1
  195. 194 pokevc+28,peek(vc+28)and243:if(p1and256)<>256then197
  196. 195 pokevc+41,0:pokevc+23,6:pokevc+29,6:pokevc+4,200:pokevc+5,138:poke2042,14
  197. 196 pokevc+21,peek(vc+21)or4
  198. 197 if(pand1024)<>1024then200
  199. 198 print"[207][183][208]":print"[180] [170]":print"[180]#[170]"
  200. 199 print"[180] [170]":print"[205] [206]":print" [183]"
  201. 200 if(pand8192)<>0thenpoke214,18:print:print,"  [146]"
  202. 201 if(pand128)<>128then205
  203. 202 poke214,11:print:print,,"[175][175][175][175]":print,,"[206]   [206][180]"
  204. 203 print,,"[207][183][183][208] [180]"
  205. 204 print,,"[180]  [170][206]":print,,"[183][183][183][183]"
  206. 205 if(p1and512)<>512then217
  207. 206 if(pand16384)=16384then438
  208. 207 fora=3to5:forb=1to63:poke831+64*(a-3)+b,sp(a,b):next:next:pokevc+28,0
  209. 208 poke2040,13:poke2041,14:poke2042,15:pokevc+39,5:pokevc+40,5:pokevc+41,5
  210. 209 pokevc+21,7
  211. 210 pokevc+23,7:pokevc+29,7:pokevc,100:pokevc+1,155:pokevc+2,148:pokevc+3,155
  212. 211 pokevc+4,164:pokevc+5,113:f1=2:f2=7
  213. 212 pokevc+17,peek(vc+17)or16:fora=1to25:poke53281,f1:poke53281,f2:forb=1to60
  214. 213 next:mf=f1:f1=f2:f2=mf:next:poke53281,9
  215. 214 if(haand1024)=1024then216
  216. 215 goto436
  217. 216 dr=1:ifdr=2and(pand16384)<>16384then429
  218. 217 if(haand64)=64thenbu=bu+1:ifbu=5then390
  219. 218 if(pand16384)=0then221
  220. 219 fora=0to63:pokea+960,sp(6,a):next:poke2044,15:pokevc+21,peek(vc+21)or16
  221. 220 pokevc+43,1:pokevc+8,100:pokevc+9,170
  222. 221 if(haand16384)=16384and(haand4)<>4then398
  223. 222 if(p1and256)=256and(pand128)=128then400
  224. 223 if(haand1)=1and(haand64)=64then403
  225. 224 if(pand4)=0then228
  226. 225 fora=0to63:pokea+896,sp(7,a):next:pokevc+21,peek(vc+21)or2
  227. 226 pokevc+40,13:pokevc+2,200:pokevc+3,200:pokevc+29,peek(vc+29)and253
  228. 227 pokevc+23,peek(vc+23)and253
  229. 228 if(p1and1024)=0then233
  230. 229 n=831:fora=8to10:forb=0to63:n=n+1:poken,sp(a,b):next:next
  231. 230 pokevc+21,7:pokevc+39,0:pokevc+40,0:pokevc+41,7
  232. 231 pokevc+4,162:pokevc+5,83:pokevc+2,150:pokevc+3,143:pokevc,150:pokevc+1,103
  233. 232 pokevc+23,3:pokevc+29,3:poke2040,13:poke2041,14:poke2042,15
  234. 233 if(pand8)=0then236
  235. 234 fora=0to63:pokea+960,sp(10,a):next:pokevc+21,peek(vc+21)or4:poke2042,15
  236. 235 pokevc+4,150:pokevc+5,170
  237. 236 if(pand2048)=0then240
  238. 237 fora=0to63:poke896+a,sp(12,a):next:poke2041,14:pokevc+40,0
  239. 238 pokevc+21,peek(vc+21)+2:pokevc+2,250:pokevc+3,180
  240. 239 pokevc+23,peek(vc+23)and253:pokevc+29,peek(vc+29)and253
  241. 240 if(pand4096)=0then242
  242. 241 poke214,18:print:print,"[213][192][201]":print,"[188][183][190]"
  243. 242 ifpand32thenpoke214,10:print:print,"[215]"
  244. 243 if(pand512)=0then247
  245. 244 fora=1to63:poke702+a,sp(13,a):next:poke2047,11
  246. 245 pokevc+21,peek(vc+21)or128:pokevc+46,4
  247. 246 pokevc+14,60:pokevc+15,170
  248. 247 :
  249. 248 :
  250. 249 he=he+1:if(haand1)=1or(pand1)=1thenpoke53281,9:print"[144]":goto252
  251. 250 ifhe>9thenpoke53281,0:print"[152][145]  es ist dunkel":goto252
  252. 251 ifhe>7thenprint,,"[145] es wird dunkel"
  253. 252 ifw=1thenwz=wz+1:ifwz=2then404
  254. 253 ifdr=1thendz=dz+1:ifdz=2then429
  255. 254 ifbe=0then256
  256. 255 be=0:w=0:wz=0:ha=ha-4096:hb=hb-1:print"die tarnkappe hat sich aufgeloest"
  257. 256 ifhaand32thenkn=1
  258. 257 poke214,20:print:fora=0to14:if(pand(2^a))<>0thenprintdi$(a)" ";
  259. 258 next
  260. 259 pokevc+17,peek(vc+17)or16:poke214,21:print:ko$="":a$="  nicht moeglich![145]"
  261. 260 print" moegliche richtungen: ";mid$(ri$,2):print" kommando:";
  262. 261 open1,0,1:input#1,ko$:close1
  263. 262 ifko$="save"orko$="s[193]"then333
  264. 263 ifp1and1024then441
  265. 264 ifleft$(ko$,3)="sim"orleft$(ko$,3)="abr"then450
  266. 265 if(ko$="nimm kobold"orko$="verjage kobold")andpand2048then451
  267. 266 if(haand4096)=4096andko$="benutze tarnkappe"thenbe=1:a$="   in ordnung[145]"
  268. 267 ifko$="druecke knopf"andkn=0then455
  269. 268 ifko$="n"and(pr(pz,px,py)and1)=1thenpx=px-1:goto476
  270. 269 ifko$="o"and(pr(pz,px,py)and2)=2thenpy=py+1:goto476
  271. 270 ifko$="s"and(pr(pz,px,py)and4)=4thenpx=px+1:goto476
  272. 271 ifko$="w"and(pr(pz,px,py)and8)=8thenpy=py-1:goto476
  273. 272 ifko$="h"and(pr(pz,px,py)and16)=16thenpz=pz+1:goto476
  274. 273 ifko$="r"and(pr(pz,px,py)and32)=32thenpz=pz-1:goto476
  275. 274 ifko$="list"orko$="l[201]"then392
  276. 275 ifleft$(ko$,4)<>"nimm"then281
  277. 276 ifhb=xythenprint" sie koennen nicht soviel tragen!!":a$="":goto309
  278. 277 fora=0to14:if(mid$(ko$,6)<>di$(a))or(pand2^a)<>2^athennext:goto279
  279. 278 hb=hb+1:ha=haor2^a:pl(pz,px,py)=p-2^a:ne=1:next
  280. 279 ifne=1thenne=0:goto149
  281. 280 goto309
  282. 281 ifleft$(ko$,8)<>"verliere"then286
  283. 282 fora=0to14:if(mid$(ko$,10)<>di$(a))or(haand2^a)<>2^athennext:goto284
  284. 283 hb=hb-1:ha=ha-2^a:pl(pz,px,py)=por2^a:ne=1:next
  285. 284 ifne=1thenne=0:goto149
  286. 285 goto309
  287. 286 ifleft$(ko$,6)<>"oeffne"then294
  288. 287 ifmid$(ko$,8,4)<>"buch"or(haand64)<>64then289
  289. 288 bu$="o":print,"  das buch ist offen":a$="":goto309
  290. 289 ifright$(ko$,4)<>"tuer"then292
  291. 290 if(haand16)<>16thenprint"die tuer ist verschlossen":a$="":goto309
  292. 291 tu$="o":a$="die tuer ist offen             ":goto309
  293. 292 ifright$(ko$,5)<>"truhe"or(haand128)<>128then309
  294. 293 print" die truhe ist offen, sie enthaelt gold":goto259
  295. 294 ifko$<>"lies buch"then297
  296. 295 ifbu$=""thenprint"[147]das zauberschloss":goto259
  297. 296 goto459
  298. 297 ifko$="lies zettel"and(haand8192)=8192then414
  299. 298 ifleft$(ko$,13)<>"verjage wache"andko$<>"verjage waechter"then301
  300. 299 input"womit";di$:ifdi$<>di$(1)or(haand2)<>2then404
  301. 300 ifp1and128thenpr(pz,px,py)=p1-128:wz=0:w=0:goto149
  302. 301 ifleft$(ko$,5)<>"trink"then308
  303. 302 ifright$(ko$,4)="gift"and(haand16384)=16384then398
  304. 303 if(haand512)=0orright$(ko$,11)<>"zaubertrank"then308
  305. 304 hb=hb-1:ha=ha-512
  306. 305 ifxy=2thenxy=4:print" sie sind wieder gross":a$="":goto309
  307. 306 print" sie sind ein zwerg!":hb=0:pl(pz,px,py)=porha:ha=0:xy=2
  308. 307 fora=1to2000:next:goto149
  309. 308 :
  310. 309 ifko$="stop"orko$="s[212]"thenpoke650,0:stop
  311. 310 printa$:fora=1to1000:next
  312. 311 poke214,21:print;:print:fora=1to3
  313. 312 print"                                      ":next:goto259
  314. 313 fora=1to1000:next:t$=ti$:poke53281,11:print"[147]"
  315. 314 print,"[144] [169][223]",,"[157][169][223]":print,"[169]  [223]"spc(14)"[169]  [223]"
  316. 315 print,"   [170]"spc(14)"   [170]"
  317. 316 print," [182][161][170]"spc(14)" [182][161][170]"
  318. 317 print," [182][161][170]"spc(14)" [182][161][170]"
  319. 318 print,"   [170][146][172][187][172][187][172][187][172][187][172][187][172][187][172][187]   [170]"
  320. 319 print,"   [172][187][172][187][172][187][172][187][172][187][172][187][172][187][172][187]  [170]"
  321. 320 print,"                     [170]"
  322. 321 print,"                     [170]"
  323. 322 print,"           [185]         [170]"
  324. 323 print,"          [182][161]        [170]"
  325. 324 print,"          [182][161]        [170]"
  326. 325 print,"          [182][161]        [170]"
  327. 326 fora=1to1000:next:fora=1to20:poke53281,7:poke53281,0:poke53281,2:next
  328. 327 poke53281,11
  329. 328 fora=1to1000:pokeint(rnd(1)*560+1260),102:next
  330. 329 fora=1to1200:pokeint(rnd(1)*560+1260),32:next:poke53281,11:fora=1to500
  331. 330 next:poke53281,5:print"[147]das schloss hat sich in rauch aufgeloest"
  332. 331 print" sie sind der neue koenig"
  333. 332 print,"zeit: "left$(t$,2)":"mid$(t$,3,2)":"mid$(t$,5):end
  334. 333 pokevc+21,0:input"[147]   filename ";n$
  335. 334 print"   k[146]assette oder d[146]iskette?"
  336. 335 getk$:ifk$="d"then338
  337. 336 ifk$="k"then345
  338. 337 goto335
  339. 338 open2,8,2,n$+",s,w":open15,8,15:input#15,a,a$:ifa$<>"ok"then372
  340. 339 forz=1to2:forx=1to4:fory=1to4:print#2,pl(z,x,y)
  341. 340 print#2,pr(z,x,y):next:next:next
  342. 341 print#2,ha:print#2,hb:print#2,ti$:print#2,pz:print#2,px:print#2,py
  343. 342 print#2,ko:print#2,w:print#2,wz:print#2,dr:print#2,dz:print#2,bu
  344. 343 print#2,be:print#2,he:print#2,bu$:print#2,tu$:print#2,kn:print#2,xy
  345. 344 close2:close15:goto149
  346. 345 open2,1,2,a$:goto339
  347. 346 input"      filename ";n$
  348. 347 print"       k[146]assette oder d[146]iskette?"
  349. 348 geta$:ifa$="d"then351
  350. 349 ifa$="k"then358
  351. 350 goto348
  352. 351 open2,8,2,n$+",s,r":goto359
  353. 352 forz=1to2:forx=1to4:fory=1to4:input#2,pl(z,x,y)
  354. 353 input#2,pr(z,x,y):next:next:next
  355. 354 input#2,ha,hb,ti$,pz,px,py
  356. 355 input#2,ko,w,wz,dr,dz,bu
  357. 356 input#2,be,he,bu$,tu$,kn,xy
  358. 357 close2:close15:goto149
  359. 358 open2,1,0,n$:goto352
  360. 359 open15,8,15:input#15,a,a$:ifa$="ok"then352
  361. 360 ifa$="file not found"then364
  362. 361 ifa$="drive not ready"then366
  363. 362 ifa$="file type mismatch"then369
  364. 363 printa$:end
  365. 364 print"ein file dieses namens existiert nicht"
  366. 365 input"     filename ";n$:goto371
  367. 366 print"   diskette einlegen!":print,"   fertig ?"
  368. 367 getx$:ifx$=""then367
  369. 368 goto365
  370. 369 print"   kein daten-file!":goto365
  371. 370 printa$:stop
  372. 371 close2:close15:goto351
  373. 372 close2:close15:ifa$="write protect on"then378
  374. 373 ifa$="drive not ready"then382
  375. 374 ifa$="file exists"then383
  376. 375 ifa$="file type mismatch"then388
  377. 376 printa$:stop
  378. 377 goto333
  379. 378 print"  diese diskette ist schreib-geschuetzt"
  380. 379 print" bitte eine andere diskette einlegen.":print," fertig?"
  381. 380 getx$:ifx$=""then380
  382. 381 goto338
  383. 382 print"   diskette einlegen !":print," fertig ?":goto380
  384. 383 print"ein file dieses namens existiert bereits"
  385. 384 print" soll es ueberschrieben werden (j/n)"
  386. 385 getx$:ifx$="j"thenn$="@0:"+n$:goto338
  387. 386 ifx$="n"then333
  388. 387 goto385
  389. 388 print"  dieser name ist von einem anderen"," file-typ belegt"
  390. 389 fora=1to2000:next:goto333
  391. 390 poke53281,0:print"[147]das magische buch ist in flammen","aufgegangen"
  392. 391 print"leider haben sie dabei ebenfalls feuer","gefangen":goto430
  393. 392 print"[147]","sie haben:":pokevc+21,0
  394. 393 fora=0to14:ifhaand2^athenprint,di$(a)""
  395. 394 next:print," fertig ?"
  396. 395 ifpeek(203)=64then395
  397. 396 geta$:ifa$<>"j"then396
  398. 397 goto149
  399. 398 poke53281,0:print"[147][153] sie haben sich vergiftet"
  400. 399 goto430
  401. 400 print" die waechter haben sich um das gold"
  402. 401 print" gestritten und sich dabei erschlagen":pokevc+21,0
  403. 402 w=0:wz=0:pr(pz,px,py)=p1-256:goto155
  404. 403 print" die fackel hat das buch verbrannt":ha=ha-64:hb=hb-1:goto224
  405. 404 ifdi$="messer"and(haand256)=256then410
  406. 405 ifdi$="gift"and(haand16384)=16384then412
  407. 406 print"[147] die wache hat sie gefangen"
  408. 407 ifp1and256thenprint"[147] die zweite wache hat sie gefangen"
  409. 408 ifbe=1then149
  410. 409 poke53281,0:goto430
  411. 410 print"[147][152] die hellebarde der wache ist laenger","  als ihr messer"
  412. 411 goto430
  413. 412 print"[147][152] die wache wollte das gift nicht essen"
  414. 413 print" und hat sie gefangen":goto430
  415. 414 poke53281,15:ifpand1=0thenpoke53281,0
  416. 415 pokevc+21,0:print"[147][144]      [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  417. 416 print"      [180]"spc(24)"[170]"
  418. 417 print"      [180] [176][195][178][195][178] [178][195][174]   [176][195][178][195][178][195][178][195][174]  [170]"
  419. 418 print"      [180] [221]       [221]   [221]     [221] [221]  [170]"
  420. 419 print"      [180] [171] [219] [219] [219][195][179]   [171][195][219][195][219] [219] [179]  [170]"
  421. 420 print"      [180] [221] [221] [221]   [221]   [221]     [221] [221]  [170]"
  422. 421 print"      [180] [171][195][219][160][219][195][219] [179]   [171][195][219][195][219] [219][195][179]  [170]"
  423. 422 print"      [180] [221][160][160][160][160][160][221][160][221]   [221][160][160][160][160][160][160][160][221]  [170]"
  424. 423 print"      [180] [171] [219][195][219] [219] [179]   [171] [219] [219][195][219] [179]  [170]"
  425. 424 print"      [180] [221] [221]     [221]   [221] [221] [221] [206] [221]  [170]"
  426. 425 print"      [180] [173][195][177][195][177] [177][195][189]   [173][195][177][195][177] [177][195][189]  [170]"
  427. 426 print"      [180]"spc(24)"[170]":print"      [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  428. 427 fora=1to8000:next:print"[147]  der plan hat sich in luft aufgeloest"
  429. 428 ha=ha-8192:hb=hb-1:fora=1to2000:next:goto149
  430. 429 poke53281,0:print"[147][152]  der drache hat sie gefressen."
  431. 430 pokevc+21,0:pokevc+17,peek(vc+17)or16:poke650,0
  432. 431 print,"zeit: "left$(ti$,2)":"mid$(ti$,3,2)":"mid$(ti$,5)
  433. 432 print" noch ein versuch (j/n) ?"
  434. 433 geta$:ifa$="j"thenru=1:goto0
  435. 434 ifa$="n"thenpoke650,0:end
  436. 435 goto433
  437. 436 poke53281,0:print"[147][152] der feuerspeiende drache hat sie       verbrannt."
  438. 437 goto430
  439. 438 print" der drache hat das gift gefressen"," und sich in luft aufgeloest"
  440. 439 p=p-16384:p1=p1-512:pr(pz,px,py)=p1:pl(pz,px,py)=p:pokevc+21,0
  441. 440 dr=0:goto205
  442. 441 ifko$="simsalakadabra-abrakubum"then444
  443. 442 poke53281,0:pokevc+21,0
  444. 443 print"[147][152] der zauberer hat sie in eine maus","    verwandelt":goto430
  445. 444 fora=0to127step3:poke832+a,0:poke833+a,0:poke834+a,0:pokevc+5,peek(vc+5)+2
  446. 445 next:pokevc+21,4:fora=0to63:poke832+a,sp(11,a):next
  447. 446 pokevc+23,0:pokevc+29,0
  448. 447 pokevc+1,170:pokevc+21,5:p1=p1-1024:pr(pz,px,py)=p1:p=p+8:pm=170
  449. 448 pl(pz,px,py)=p:fora=150to0step-.5:pokevc,a:pm=pm+.1:pokevc+1,pm:next
  450. 449 fora=1to2000:next:goto149
  451. 450 poke53281,0:print"[147] sie haben sich eine maus verwandelt":goto430
  452. 451 a1$="mitnehmen":ifleft$(ko$,7)="verjage"thena1$="verjagen"
  453. 452 print"[147][152] der kobold wollte sich nicht ";a1$
  454. 453 print" lassen und hat sie in einen zwerg ver-","zaubert":hb=0
  455. 454 fora=1to2000:next:pl(pz,px,py)=pl(pz,px,py)orha:ha=0:xy=2:goto149
  456. 455 pr(pz,px,py-1)=pr(pz,px,py-1)or2:p1=p1or8:pr(pz,px,py)=p1:kn=1
  457. 456 pl(pz,px,py)=p-32:print"[145][145][145][145][145]";
  458. 457 fora=1to5:print"                            ":next
  459. 458 poke214,10:print:print," ":goto159
  460. 459 poke53281,12:pokevc+21,0:print"[147]"chr$(14),"[196]as [218]aueberschloss"
  461. 460 ifhe>9and(pand1)=0thenpoke53281,0
  462. 461 print"[144][211]eit langer, langer [218]eit ist es [211]itte,"
  463. 462 print"[145] dass der, der die [203]rone des [210]eiches "
  464. 463 print" besitzt, das ganze [204]and regiert."
  465. 464 print"[196]och seit vielen hundert [202]ahren re-"
  466. 465 print"giert der schreckliche [218]auberer, und"
  467. 466 print"keiner von denen, die ihm die [203]rone"
  468. 467 print"wieder entreissen wollten ist je"
  469. 468 print"wieder zurueckgekehrt.",,"[196]as [211]chloss ist streng bewacht,"
  470. 469 print"und die [199]emeinheit der [215]aechter wird"
  471. 470 print"nur von ihrer [199]eldgier uebertroffen."
  472. 471 print"[213]eberall lauern [198]allen und vielerlei","[199]efahren."
  473. 472 print,"[211]imsalakadabra-abrakubum"
  474. 473 print,"[198]ertig ?"
  475. 474 getx$:ifx$<>"j"then474
  476. 475 poke53281,9:printchr$(142):goto149
  477. 476 ifpz>0then482
  478. 477 poke53281,0:print"[147]die wache freut sich, dass sie von"
  479. 478 print"   selbst in den kerker gegangen sind"
  480. 479 print"   schade, dass sie nun bis zum ende"
  481. 480 print"   ihres lebens dort bleiben muessen"
  482. 481 print"   und nicht weiter spielen koennen.":goto430
  483. 482 ifpz<3then485
  484. 483 poke53281,0:print"[147]  sie sind auf das dach geklettert,"
  485. 484 print" abgerutscht, in den graben gefallen":print" und ertrunken":goto430
  486. 485 ifpx<>0then487
  487. 486 poke53281,0:print"[147] diese tuer fuehrt in den wassergraben":goto430
  488. 487 ifpr(pz,px,py)>0then149
  489. 488 ifpz=1then491
  490. 489 poke53281,0:print"[147] die tuer fuehrt ins freie. sie sind"
  491. 490 print" aus dem zweiten stock gestuerzt":goto430
  492. 491 iftu$="o"then493
  493. 492 px=4:print"sie sind gegen die tuer gelaufen":a$="":goto309
  494. 493 print"[147]"," sie sind im freien"
  495. 494 ifhaand8then313
  496. 495 poke53281,0:print" weil sie das land nicht befreit haben,"
  497. 496 print" hat sie die wuetende menge verpruegelt":goto430
  498.