0 GOSUB 471:
K = .:
J = INT ((SU - 1) / 3.3):
IF J THEN
FOR I = 1 TO J:
K = K + 2 ^ (8 - I):
NEXT
1 POKE 5797,K AND 240:
IF SU > 17 THEN
POKE 5797,224:
IF SU = 21 THEN
POKE 5797,192
2 IF SU = 1 THEN
POKE 5797,128
3 FOR I = 0 TO 6:
POKE 49279 + I,1:
NEXT :
GOSUB 275
4 SYS 5966:
SYS 5440:
WH = PEEK (49157):
KP = .:
IF PEEK (49245) THEN
IF FN R(3) = 1 THEN
GOSUB 259
5 GOSUB 268:
IF PEEK (49244) = . THEN
GOSUB 262
6 IF PEEK (2) = 10 GOTO 284
7 IF ( PEEK (49208) AND 31) = . THEN
IF PEEK (49244) THEN
GOSUB 581
8 IF PEEK (2) = 6 THEN
GOSUB 264
9 Z = 0:
SYS 5681:
PRINT "#05@#C7#9D
";:
IF PEEK (892) > 31 GOTO 57
10 IF PEEK (2) = 6 THEN
IF RND (TI) < .1 GOTO 493
11 IF PEEK (2) = 11 THEN
IF RND (TI) < .2 GOTO 490
12 IF PEEK (2) = 5 THEN
IF RND (TI) < .05 GOTO 492
13 Z = Z + 1:
IF Z > 600 GOTO 34
14 GET U$:
IF U$ = "" GOTO 13
15 IF U$ = "#91
" THEN
PRINT "NORDEN#13
":
SYS 4877:
IF PEEK (182) = 0 THEN
SYS 4563:
GOTO 582
16 IF U$ = "#11
" THEN
PRINT "SÜDEN#13
":
SYS 4885:
IF PEEK (182) = 0 THEN
SYS 4621:
GOTO 582
17 IF U$ = "#9D
" THEN
PRINT "WESTEN#13
":
SYS 4893:
IF PEEK (182) = 0 THEN
SYS 4685:
GOTO 582
18 IF U$ = "#1D
" THEN
PRINT "OSTEN#13
":
SYS 4901:
IF PEEK (182) = 0 THEN
SYS 4751:
GOTO 582
19 IF U$ = "#91
" OR U$ = "#11
" OR U$ = "#9D
" OR U$ = "#1D
" GOTO 35
20 IF U$ = "
" GOTO 34
21 IF U$ = "H
" GOTO 40
22 IF U$ = "L
" GOTO 43
23 IF U$ = "W
" THEN
GOSUB 232:
GOTO 4
24 IF U$ = "R
" THEN
GOSUB 247:
GOTO 4
25 IF U$ = "Z
" THEN
H = 0:
GOSUB 291:
GOTO 4
26 IF U$ = "I
" THEN
GOSUB 540:
GOTO 4
27 IF U$ = "B
" GOTO 389
28 IF U$ = "P
" GOTO 424
29 IF U$ = "S
" GOTO 426
30 IF U$ = "K
" GOTO 440
31 IF U$ = "_
" THEN
GOSUB 457:
GOTO 4
32 IF U$ = "Q
" GOTO 460
33 PRINT "WIE BITTE..?#13
":
GOTO 4
34 PRINT "WARTEN...#13
":
GOTO 4
35 IF U$ = "#91
" THEN
IF PEEK (881) > 27 AND PEEK (881) < 32 THEN
SYS 4563:
GOTO 582
36 IF U$ = "#11
" THEN
IF PEEK (903) > 27 AND PEEK (903) < 32 THEN
SYS 4621:
GOTO 582
37 IF U$ = "#9D
" THEN
IF PEEK (891) > 27 AND PEEK (891) < 32 THEN
SYS 4685:
GOTO 582
38 IF U$ = "#1D
" THEN
IF PEEK (893) > 27 AND PEEK (893) < 32 THEN
SYS 4751:
GOTO 582
39 SYS 5681:
PRINT "#96BLOCKIERT!#13
":
SYS 5681:
GOTO 4
40 IF PEEK (49157) < 2 OR PEEK (49157) > 3 GOTO 33
41 POKE 49346,1 - PEEK (49346):
IF PEEK (49346) THEN
PRINT "%HÜHAA!%#13
":
GOTO 4
42 PRINT "%HOOH!%#13
":
GOTO 4
43 IF PEEK (49157) < 5 GOTO 33
44 J = .:
PRINT "%IN DIE LÜFTE!%#13
":
SYS 5681:
GOSUB 589:
PRINT "@#C7#9D
";
45 GET U$:
IF U$ = "L
" GOTO 55
46 IF U$ = "#91
" THEN
J = .:
PRINT "NORDEN#13
":
SYS 5681:
PRINT "@#C7#9D
";
47 IF U$ = "#11
" THEN
J = 1:
PRINT "SÜDEN#13
":
SYS 5681:
PRINT "@#C7#9D
";
48 IF U$ = "#9D
" THEN
J = 2:
PRINT "WESTEN#13
":
SYS 5681:
PRINT "@#C7#9D
";
49 IF U$ = "#1D
" THEN
J = 3:
PRINT "OSTEN#13
":
SYS 5681:
PRINT "@#C7#9D
";
50 ON J + 1 GOSUB 51,52,53,54:
SYS 5440:
SYS 4229:
Z = PEEK (892):
SYS 4537:
SYS 5868:
SYS 5998:
SYS 5107:
SYS 4361:
GOTO 45
51 SYS 4563:
GOTO 588
52 SYS 4621:
GOTO 588
53 SYS 4685:
GOTO 588
54 SYS 4751:
GOTO 588
55 PRINT "%LANDE!%#13
":
IF Z > 2 AND Z < 8 AND Z < > 5 GOTO 4
56 SYS 5681:
PRINT "#96NICHT HIER!#13
":
SYS 5681:
SYS 5681:
PRINT "#05@#C7#9D
";:
GOTO 45
57 PRINT "#9D #13#99
":
SYS 5681:
K = PEEK (892) - 32:
PRINT M$(K)"#13
":
SYS 5681:
PRINT "GREIFT AN!#13
":
SYS 5681
58 SYS 6041:
POKE S + 6,250:
POKE S + 13,250:
POKE S + 4,33:
POKE S + 11,33:
FOR I = 5 TO 80:
POKE S + 1,I:
POKE S + 8,90 - I:
NEXT :
POKE S + 4,32:
POKE S + 11,32:
Q = 3:
SYS 4229:
L = PEEK (892):
POKE 198,0:
IF L = 4 GOTO 476
59 IF L = 5 GOTO 478
60 IF L = 6 GOTO 479
61 IF L = 7 GOTO 480
62 IF L = 8 GOTO 481
63 POKE 2,3:
SYS 5782:
POKE 2,4:
SYS 5856:
SYS 5856:
POKE 2,24:
FOR I = 1 TO 3:
SYS 5856:
NEXT :
Q = 3
64 X = 5:
Y = 9:
POKE 936,3:
IF L = 11 GOTO 483
65 IF PEEK (49157) = 4 GOTO 494
66 IF K < 5 GOTO 482
67 IF K = 2 THEN
Y = 2:
GOSUB 503:
Y = 9:
GOSUB 524:
GOTO 69
68 GOSUB 515
69 P = 832 + 11 * Y + X:
Q = PEEK (P):
POKE P,27:
SYS 4361:
SYS 6041:
PRINT "#13
":
LD = 2:
SYS 5681:
PRINT "#05--- KONFLIKT ---#13
":
SYS 5681:
SYS 5681:
PRINT "#9EDU BENUTZT#13
":
SYS 5681:
WA = PEEK (49246):
PRINT W$(WA)",#13
":
SYS 5681:
RS = PEEK (49247):
SH = PEEK (49167):
PRINT W$(RS + 19);:
IF SH THEN
PRINT ",#13
":
SYS 5681:
PRINT MID$ ("KLEINERGROSSER
",SH * 7 - 6,7)" SCHILD
";
70 PRINT ".#13
":
SYS 5681:
G = 0:
IF PEEK (50900 + M(0)) THEN
G = 1 + FN R(20 + PEEK (49241) * (1 + MZ / 16))
71 KP = 1:
GOSUB 275:
SYS 5681:
IF Q = 6 THEN
GOSUB 271
72 IF PEEK (49279) THEN
PRINT "#9CDU BIST BETÄUBT.#13
":
GOTO 153
73 PRINT "#05@#C7#9D
";:
Z = 0:
POKE P,27:
SYS 4361
74 Z = Z + 1:
IF Z > 600 THEN
PRINT "WARTEN...#13
":
GOTO 153
75 GET U$:
IF U$ = "" GOTO 74
76 IF U$ = "#91
" GOTO 87
77 IF U$ = "#11
" GOTO 92
78 IF U$ = "#9D
" GOTO 95
79 IF U$ = "#1D
" GOTO 98
80 IF U$ = "
" THEN
Z = 666:
GOTO 74
81 IF U$ = "A
" GOTO 101
82 IF U$ = "W
" THEN
GOSUB 232:
GOTO 153
83 IF U$ = "Z
" THEN
H = 1:
ZZ = 0:
GOSUB 291:
GOTO 351
84 IF U$ = "I
" THEN
GOSUB 540:
GOTO 153
85 IF U$ = "_
" THEN
GOSUB 457:
GOTO 153
86 PRINT "WIE BITTE..?#13
":
GOTO 153
87 PRINT "NORDEN#13
":
IF Y = . GOTO 150
88 J = PEEK (P - 11):
IF J < 3 OR J > 11 GOTO 91
89 POKE P,Q:
P = P - 11:
Y = Y - 1
90 Q = J:
POKE P,27:
SYS 4361:
GOSUB 584:
GOTO 153
91 SYS 5681:
PRINT "#96BLOCKIERT!#13
":
SYS 5681:
GOTO 153
92 PRINT "SÜDEN#13
":
IF Y > 9 GOTO 150
93 J = PEEK (P + 11):
IF J < 3 OR J > 11 GOTO 91
94 POKE P,Q:
P = P + 11:
Y = Y + 1:
GOTO 90
95 PRINT "WESTEN#13
":
IF X = . GOTO 150
96 J = PEEK (P - 1):
IF J < 3 OR J > 11 GOTO 91
97 POKE P,Q:
P = P - 1:
X = X - 1:
GOTO 90
98 PRINT "OSTEN#13
":
IF X > 9 GOTO 150
99 J = PEEK (P + 1):
IF J < 3 OR J > 11 GOTO 91
100 POKE P,Q:
P = P + 1:
X = X + 1:
GOTO 90
101 IF (WA > 10 AND WA < 16) OR WA = 17 THEN
IF LD < 2 GOTO 152
102 PRINT "ATTACKE#13
":
SYS 5681:
PRINT "#9E-RICHTUNG? #05#C7#9D
";:
Z = 0:
ZZ = 0
103 Z = Z + 1:
IF Z > 600 THEN
PRINT "KEINE#13
":
GOTO 153
104 GET U$:
IF U$ = "" GOTO 103
105 IF U$ = "#91
" THEN
R = .:
PRINT "NORD#13
":
GOTO 110
106 IF U$ = "#11
" THEN
R = 1:
PRINT "SÜD#13
":
GOTO 110
107 IF U$ = "#9D
" THEN
R = 2:
PRINT "WEST#13
":
GOTO 110
108 IF U$ = "#1D
" THEN
R = 3:
PRINT "OST#13
":
GOTO 110
109 Z = 666:
GOTO 103
110 LD = 0:
Z = 0:
H = P:
HX = X:
HY = Y:
HQ = 27:
IF WA > 10 AND WA < 18 THEN
Z = 1
111 HH = 21:
POKE 51221,7:
IF WA > 15 THEN
POKE 51221,1
112 IF WA = 13 THEN
POKE 51221,13
113 IF WA = 11 THEN
POKE 51221,15
114 IF ZZ THEN
Z = 1:
LD = 2:
HH = 22:
POKE 51222,14:
IF ZZ = 2 THEN
POKE 51222,13
115 IF ZZ > 2 THEN
POKE 51222,10:
IF ZZ = 5 THEN
Z = 0:
HH = 23:
POKE 51223,1
116 POKE H,HQ:
H = H - 1 + (R = 0) * 10 - (R = 1) * 12 - (R = 3) * 2:
HQ = PEEK (H):
HX = HX + (R = 2) - (R = 3):
HY = HY + (R = 0) - (R = 1):
IF HX < . OR HY < . OR HX = 11 OR HY = 11 GOTO 121
117 POKE H,HH:
SYS 4361:
IF (HQ = 5 OR HQ = 24 OR HQ = 25 OR HQ > 69) THEN
IF WA < > 17 OR ZZ > . GOTO 120
118 IF HQ > 31 AND HQ < 70 GOTO 122
119 IF Z GOTO 116
120 POKE H,HQ:
IF ZZ = 4 GOTO 116
121 GOSUB 590:
SYS 5681:
PRINT "#96DANEBEN!#13
":
SYS 4361:
GOTO 281
122 FOR I = 0 TO MZ:
IF M(I) < 99 THEN
IF X(I) = HX AND Y(I) = HY GOTO 124
123 NEXT :
GOTO 120
124 SYS 5681:
PRINT "#96
"M$(M(I))"
";:
J = FN R(20):
IF ZZ THEN
J = 3
125 IF J < = AT GOTO 127
126 SYS 5681:
PRINT "VERFEHLT!#13
";:
GOSUB 590:
POKE H,HQ:
SYS 4361:
GOTO 281
127 IF J < 3 THEN
PRINT "IST#13
":
SYS 5681:
PRINT "DURCH EINEN#13
":
SYS 5681
128 IF J = 2 THEN
PRINT "GUTEN TREFFER#13
":
GOTO 133
129 IF J = 1 THEN
PRINT "GLÜCKSTREFFER#13
":
GOTO 133
130 IF PEEK (50824 + M(I)) < FN R(20) OR ZZ > . GOTO 132
131 GOSUB 591:
SYS 5681:
PRINT "HAT PARIERT.#13
":
POKE H,HQ:
SYS 4361:
GOTO 281
132 PRINT "IST#13
"
133 POKE 51223,10:
POKE H,23:
SYS 4361:
GOSUB 592:
K = PEEK (50512 + WA):
L = INT (K / 3 + .8):
K = L + FN R(K - L):
IF SR > 11 THEN
K = K + INT ((SR - 10) / 2)
134 IF ZZ THEN
K = 13:
IF ZZ > 1 THEN
K = .:
IF ZZ > 2 THEN
K = 21:
IF ZZ > 3 THEN
K = 13:
IF ZZ = 5 THEN
K = 36
135 L = PEEK (50748 + M(I)):
IF J = 1 THEN
L = .
136 K = K - L:
IF K < 1 THEN
K = 1
137 L(I) = L(I) - K:
POKE H,HQ:
SYS 4361:
IF L(I) < . THEN
L(I) = .:
POKE H,Q(I):
GOTO 147
138 SYS 5681:
L = L(I) / PEEK (50672 + M(I)):
IF L > .8 THEN
PRINT "KAUM ANGEKRATZT.#13
":
GOTO 143
139 IF L > .6 THEN
PRINT "LEICHT VERLETZT.#13
":
GOTO 143
140 IF L > .4 THEN
PRINT "VERWUNDET.#13
":
GOTO 143
141 IF L > .2 THEN
PRINT "SCHWER VERLETZT.#13
":
GOTO 143
142 PRINT "AUF DER FLUCHT.#13
"
143 IF ZZ = 4 GOTO 116
144 IF (ZZ > . AND ZZ < > 2) OR (ZZ = . AND WA < > 13) GOTO 281
145 G(I) = G(I) + 1 - (ZZ = 2):
IF G(I) > 9 THEN
G(I) = 9
146 SYS 5681:
PRINT "#99
"M$(M(I))" IST#13
":
SYS 5681:
PRINT "MIT FAKTOR
"G(I);:
SYS 5681:
PRINT "VERGIFTET.#13
":
GOTO 153
147 Z2 = 1:
GOSUB 535:
IF ZZ = 4 GOTO 116
148 IF J = 99 GOTO 4
149 GOTO 281
150 POKE P,Q:
SYS 4361:
SYS 6041:
POKE S + 5,10:
POKE S + 4,33:
FOR I = 5 TO 50:
POKE S + 1,I:
NEXT :
SYS 5681:
SYS 5681:
PRINT "-- DU FLIEHST --#13
":
SYS 5681:
SYS 5681:
M$(34) = "RÄUBER
":
L = 0:
FOR I = 0 TO MZ:
IF M(I) < 99 THEN
L = L - PEEK (50634 + M(I)):
M(I) = 99
151 NEXT :
I = 0:
PRINT "#9EFÜR DEINE#13
":
SYS 5681:
PRINT "FEIGHEIT WERDEN#13
":
SYS 5681:
PRINT "DIR
" MID$ ( STR$ (L),2)" PUNKTE#13
":
SYS 5681:
PRINT "ABGEZOGEN!#13
":
GOSUB 502:
SYS 5681:
J = 99:
GOSUB 537:
GOTO 3
152 LD = 1:
PRINT W$(WA);:
SYS 5681:
PRINT "LADEN...#13
"
153 LD = LD + 1:
POKE 198,0:
IF PEEK (49283) GOTO 71
154 J = PEEK (49282):
IF J THEN
IF J / 2 > INT (J / 2) GOTO 71
155 IF FN R(7) = 7 AND AS < AM THEN
GOSUB 269
156 FOR I = 0 TO MZ:
IF M(I) < 99 GOTO 158
157 NEXT :
I = 0:
SYS 5681:
PRINT "#05----- SIEG -----#13
":
M$(34) = "RÄUBER
":
SYS 5681:
GOSUB 502:
GOTO 255
158 FOR I = 0 TO MZ:
IF M(I) = 99 GOTO 217
159 IF G(I) = . GOTO 162
160 L(I) = L(I) - FN R(G(I)):
H = 832 + X(I) + 11 * Y(I):
HQ = PEEK (H):
POKE 51222,13:
POKE H,22:
SYS 4361:
GOSUB 592:
POKE H,HQ:
SYS 4361:
IF L(I) > . GOTO 162
161 POKE H,Q(I):
SYS 5681:
PRINT "#96
"M$(M(I));:
SYS 5681:
PRINT "WURDE DURCH GIFT#13
":
Z2 = 2:
GOSUB 535:
GOTO 217
162 Z1 = 1:
IF L(I) / PEEK (50672 + M(I)) > .2 THEN
Z1 = .
163 Z2 = PEEK (50862 + M(I)):
IF Z2 = 6 OR Z2 = 7 OR Z2 = 8 OR Z2 = 13 GOTO 218
164 DX = X - X(I):
DY = Y - Y(I):
IF ABS (DX) < 2 AND ABS (DY) < 2 GOTO 168
165 IF Z2 < 2 OR Z2 = 7 GOTO 202
166 IF DX = . OR DY = 0 OR ABS (DX) = ABS (DY) THEN
IF RND (TI) < .5 GOTO 168
167 GOTO 202
168 IF Z1 THEN
IF RND (TI) < .5 GOTO 202
169 Z = 21:
POKE 51221,7:
IF Z2 = 1 OR Z2 = 9 THEN
POKE 51221,13
170 IF Z2 > 1 AND Z2 < > 3 AND Z2 < > 7 THEN
Z = 22:
POKE 51222,14
171 IF Z2 = 9 THEN
POKE 51222,4
172 IF Z2 = 4 THEN
POKE 51222,10
173 IF Z2 = 5 THEN
POKE 51222,13
174 IF Z2 = 10 THEN
Z = 24
175 IF Z2 = 11 THEN
Z = 25
176 IF Z2 = 12 THEN
J = FN R(3):
POKE 51222,3 * J - (J = 3) * 3 + 1 - (J = 2) * 3
177 IF Z2 = 14 THEN
J = FN R(2):
POKE 51222,4 * J - (J = 2) * 5
178 DX = SGN (DX):
DY = SGN (DY):
HX = X(I):
HY = Y(I):
HQ = M(I) + 32:
H = 832 + HX + 11 * HY
179 POKE H,HQ:
H = H + DX + 11 * DY:
HX = HX + DX:
HY = HY + DY:
IF HX < . OR HY < . OR HX = 11 OR HY = 11 GOTO 182
180 HQ = PEEK (H):
POKE H,Z:
SYS 4361:
IF HQ = 27 OR HQ = 26 GOTO 183
181 IF HQ < > 24 AND HQ < > 25 AND HQ < 70 GOTO 179
182 POKE H,HQ:
GOSUB 590:
SYS 4361:
GOTO 217
183 IF FN R(20) < = PEEK (50786 + M(I)) GOTO 185
184 GOSUB 590:
POKE H,HQ:
SYS 4361:
GOTO 217
185 IF FN R(20) > PA OR PEEK (49279) > . GOTO 187
186 GOSUB 591:
POKE H,HQ:
SYS 4361:
SYS 5681:
PRINT "#9CDU PARIERST.#13
":
GOTO 217
187 POKE 51223,10:
POKE H,23:
SYS 4361:
GOSUB 592:
POKE H,HQ:
K = PEEK (50710 + M(I)) / 2 + 2:
ZZ = RS:
IF PEEK (49284) THEN
ZZ = ZZ + ZZ
188 L = INT (K / 3 + .8):
K = L + FN R(K - L) - ZZ + SH * ( PEEK (49279) = 0):
IF K < 1 THEN
K = 1
189 SYS 5681:
PRINT "#99
"M$(M(I))" HAT#13
":
SYS 5681:
PRINT "DICH
";:
IF K = 1 OR K > 12 THEN
PRINT "SEHR#13
":
SYS 5681
190 IF K < 4 THEN
PRINT "SCHWACH
";:
SYS 5681:
GOTO 194
191 IF K < 7 THEN
PRINT "LEICHT
";:
SYS 5681:
GOTO 194
192 IF K < 10 GOTO 194
193 PRINT "SCHWER
";:
SYS 5681
194 PRINT "GETROFFEN!#9D
";:
SYS 4361:
HP = HP - K:
IF HP < 1 THEN
HP = 0:
POKE H,26:
SYS 4361:
K = 3:
GOTO 530
195 POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
IF (Z2 < > 1 AND Z2 < > 5 AND Z2 < > 8 AND Z2 < > 9 AND Z2 < > 14) OR FN R(20) < = GE GOTO 201
196 J = PEEK (51200 + Z):
IF J < > 13 AND J < > 4 GOTO 217
197 PRINT " #13
":
SYS 5681:
PRINT "UND
";:
IF J = 13 GOTO 199
198 PRINT "BETÄUBT!#13
":
POKE P,26:
SYS 4361:
POKE 49279, FN R(6) + 1:
SYS 5681:
POKE 55723,4:
POKE 1451,2:
GOTO 217
199 PRINT "VERGIFTET!#13
":
J = PEEK (49245) + 1:
IF J > 9 THEN
J = 9
200 POKE 49245,J:
POKE 1449,J + 48:
POKE 55720,13
201 PRINT "#13#11#11
" SPC( 31)"#99
" RIGHT$ ("00
" + MID$ ( STR$ (HP),2),3):
GOTO 217
202 DX = X - X(I):
DY = Y - Y(I):
IF Z1 THEN
DX = - DX:
DY = - DY
203 IF ABS (DX) > ABS (DY) GOTO 209
204 DY = SGN (DY):
Z = 832 + X(I) + 11 * (Y(I) + DY):
GOSUB 223:
IF K THEN
DX = .:
GOTO 214
205 DX = SGN (DX):
Z = 832 + X(I) + DX + 11 * Y(I):
GOSUB 223:
IF K THEN
DY = .:
GOTO 214
206 DX = - DX:
Z = 832 + X(I) + DX + 11 * Y(I):
GOSUB 223:
IF K THEN
DY = .:
GOTO 214
207 IF Z1 = 2 GOTO 217
208 Z1 = 2:
DX = SGN ( INT ( FN R(3) - 2)):
DY = SGN ( INT ( FN R(3) - 2)):
GOTO 204
209 DX = SGN (DX):
Z = 832 + X(I) + DX + 11 * Y(I):
GOSUB 223:
IF K THEN
DY = .:
GOTO 214
210 DY = SGN (DY):
Z = 832 + X(I) + 11 * (Y(I) + DY):
GOSUB 223:
IF K THEN
DX = .:
GOTO 214
211 DY = - DY:
Z = 832 + X(I) + 11 * (Y(I) + DY):
GOSUB 223:
IF K THEN
DX = .:
GOTO 214
212 IF Z1 = 2 GOTO 217
213 Z1 = 2:
DX = SGN ( INT ( FN R(3) - 2)):
DY = SGN ( INT ( FN R(3) - 2)):
GOTO 209
214 POKE 832 + X(I) + 11 * Y(I),Q(I):
X(I) = X(I) + DX:
Y(I) = Y(I) + DY:
IF K = 2 GOTO 216
215 Q(I) = PEEK (Z):
POKE Z,M(I) + 32:
SYS 4361:
GOSUB 584:
GOTO 217
216 SYS 4361:
GOSUB 591:
SYS 5681:
PRINT "#99
"M$(M(I))" IST#13
":
M(I) = 99:
SYS 5681:
PRINT "GEFLOHEN.#13
"
217 NEXT :
GOTO 71
218 IF RND (TI) > .15 GOTO 164
219 POKE 53281,1:
SYS 5681:
GOSUB 591:
IF FN R(20) < = KG THEN
POKE 53281,0:
GOTO 217
220 IF PEEK (49285) THEN
POKE 53281,10:
POKE 53280,10:
GOSUB 591:
POKE 53281,0:
POKE 53280,0
221 IF PEEK (49285) THEN
SYS 5681:
PRINT "#9AZAUBERBANN#13
":
SYS 5681:
PRINT "ABGEWEHRT!#13
":
GOTO 217
222 PRINT "#9CDIE MAGIE DES#13
":
SYS 5681:
PRINT M$(M(I))"S#13
":
SYS 5681:
PRINT "HAT DICH#13
":
SYS 5681:
POKE 53281,0:
GOSUB 592:
GOTO 198
223 K = 0:
IF M(I) < 10 AND M(I) > 4 GOTO 230
224 IF M(I) > 4 GOTO 227
225 IF PEEK (Z) < 3 THEN
K = 1
226 GOTO 228
227 IF PEEK (Z) > 2 THEN
IF PEEK (Z) < 12 THEN
K = 1
228 IF X(I) + DX < . OR X(I) + DX > 10 OR Y(I) + DY < . OR Y(I) + DY > 10 THEN
K = 0:
IF Z1 = 1 THEN
K = 2
229 RETURN
// -----------------------------
230 IF PEEK (Z) < 27 OR PEEK (Z) = 70 OR PEEK (Z) = 85 THEN
K = 1:
GOTO 228
231 RETURN
// -----------------------------
232 PRINT "WAFFE BENUTZEN#13
":
SYS 5681:
PRINT "#9E-WELCHE? (A-S) #05#C7#9D
";:
Z = 0
233 Z = Z + 1:
GET U$:
IF Z < 600 AND U$ = "" GOTO 233
234 IF U$ < "A
" OR U$ > "S
" THEN
U$ = CHR$ ( PEEK (49246) + 65)
235 PRINT U$;:
SYS 5681:
J = ASC (U$) - 65:
PRINT "#96
"W$(J);:
SYS 5681:
IF J THEN
IF PEEK (49247 + J) = . THEN
PRINT "HAST DU NICHT!#13
":
SYS 5681:
RETURN
// -----------------------------
236 IF GE < PEEK (50540 + J) THEN
PRINT "DU BIST NICHT#13
":
SYS 5681:
PRINT "GESCHICKT GENUG,#13
"
237 IF GE < PEEK (50540 + J) THEN
SYS 5681:
PRINT "EINE SOLCHE#13
":
SYS 5681:
PRINT "WAFFE ZU FÜHREN.#13
":
RETURN
// -----------------------------
238 WA = J:
POKE 49246,J:
PRINT "BEREIT.#13
":
SYS 5681:
SH = 0:
POKE 49167,0:
IF J > 6 AND J < 18 THEN
RETURN
// -----------------------------
239 I = 49274:
IF J < 18 THEN
SYS 5681:
GOTO 244
240 PRINT "#9E-SCHILD? (J/N) #05#C7#9D
";
241 GET U$:
IF U$ = "N
" THEN
PRINT "N#13
":
RETURN
// -----------------------------
242 IF U$ = "J
" THEN
PRINT "J#13
":
SYS 5681:
GOTO 244
243 GOTO 241
244 IF PEEK (I) THEN
SH = 2:
POKE 49167,2:
PRINT "#96DU BENUTZT DEN#13
":
SYS 5681:
PRINT "GROSSEN SCHILD.#13
":
RETURN
// -----------------------------
245 IF PEEK (49273) THEN
SH = 1:
POKE 49167,1:
PRINT "#96DU BENUTZT DEN#13
":
SYS 5681:
PRINT "KLEINEN SCHILD.#13
"
246 RETURN
// -----------------------------
247 PRINT "RÜSTUNG ANLEGEN#13
":
SYS 5681:
PRINT "#9E-WELCHE? (A-G) #05#C7#9D
";:
Z = 0
248 Z = Z + 1:
GET U$:
IF Z < 600 AND U$ = "" GOTO 248
249 IF U$ < "A
" OR U$ > "G
" THEN
U$ = CHR$ ( PEEK (49247) + 65)
250 PRINT U$;:
SYS 5681:
J = ASC (U$) - 65:
PRINT "#96
"W$(J + 19);:
SYS 5681:
IF J THEN
IF PEEK (49266 + J) = . THEN
PRINT "HAST DU NICHT!#13
":
SYS 5681:
RETURN
// -----------------------------
251 IF U$ = "G
" AND SR > 9 GOTO 254
252 IF SR < PEEK (50559 + J) THEN
PRINT "DU BIST ZU#13
":
SYS 5681:
PRINT "SCHWACH, UM EINE#13
":
SYS 5681
253 IF SR < PEEK (50559 + J) THEN
PRINT "SO SCHWERE RÜS-#13
":
SYS 5681:
PRINT "TUNG ZU TRAGEN.#13
":
RETURN
// -----------------------------
254 RS = J:
POKE 49247,J:
PRINT "ANGELEGT.#13
":
SYS 5681:
RETURN
// -----------------------------
255 IF G = . GOTO 3
256 SYS 5681:
PRINT "#9EDU ERBEUTEST#13
":
SYS 5681:
PRINT MID$ ( STR$ (G),2)" GOLDSTÜCKE!#13
"
257 SYS 5681:
GP = GP + G:
IF GP > 5E4 THEN
GP = 5E4
258 POKE 49243,GP / 256:
POKE 49242,GP - 256 * PEEK (49243):
GOSUB 466:
GOTO 3
259 H = PEEK (892):
POKE 51223,13:
POKE 892,23:
SYS 4361:
GOSUB 592:
SYS 5681:
PRINT "#99DAS GIFT WIRKT!
":
HP = HP - FN R( PEEK (49245)):
POKE 892,H:
SYS 4361:
K = 1
260 IF HP < 1 THEN
HP = 0:
POKE 892,26:
SYS 4361:
GOTO 530
261 POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
GOTO 466
262 IF FN R(3) > 1 THEN
RETURN
// -----------------------------
263 H = PEEK (892):
POKE 51223,3:
POKE 892,23:
SYS 4361:
GOSUB 592:
SYS 5681:
PRINT "#9FDU HUNGERST!
":
HP = HP - 1:
POKE 892,H:
SYS 4361:
K = 2:
GOTO 260
264 IF FN R(3) > 1 THEN
RETURN
// -----------------------------
265 SYS 5681:
PRINT "#99SUMPFGAS!#13
":
IF GE = > FN R(20) THEN
RETURN
// -----------------------------
266 H = PEEK (892):
POKE 51223,13:
POKE 892,23:
SYS 4361:
GOSUB 591:
SYS 5681:
PRINT "#99VERGIFTET!#13
":
POKE 892,H:
SYS 4361:
J = PEEK (49245) + 1:
IF J > 9 THEN
J = 9
267 POKE 49245,J:
POKE 1449,J + 48:
POKE 55720,13:
RETURN
// -----------------------------
268 IF FN R(3) > 1 OR AS = > AM THEN
RETURN
// -----------------------------
269 AS = AS + 1:
POKE 49235,AS / 256:
POKE 49234,AS - 256 * PEEK (49235)
270 PRINT "#13#11#11#11#9F
" SPC( 31) RIGHT$ ("00
" + MID$ ( STR$ (AS),2),3):
RETURN
// -----------------------------
271 IF FN R(3) > 1 THEN
RETURN
// -----------------------------
272 SYS 5681:
PRINT "#99SUMPFGAS!#13
":
SYS 5681:
IF GE = > FN R(20) THEN
RETURN
// -----------------------------
273 H = PEEK (P):
POKE P,23:
POKE 51223,13:
SYS 4361:
GOSUB 591:
PRINT "#99VERGIFTET!#13
":
SYS 5681:
POKE P,H:
SYS 4361:
J = PEEK (49245) + 1:
IF J > 9 THEN
J = 9
274 GOTO 267
275 J = PEEK (49282):
IF J THEN
POKE 49282,J - 1:
IF J = 1 THEN
POKE 1456,32
276 J = PEEK (49283):
IF J THEN
POKE 49283,J - 1:
IF J = 1 THEN
POKE 1458,32
277 J = PEEK (49284):
IF J THEN
POKE 49284,J - 1:
IF J = 1 THEN
POKE 1454,32
278 J = PEEK (49285):
IF J THEN
POKE 49285,J - 1:
IF J = 1 THEN
POKE 1454,32
279 J = PEEK (49279):
IF J THEN
POKE 49279,J - 1:
IF J = 1 THEN
POKE 1451,32
280 RETURN
// -----------------------------
281 IF WA < > 16 OR ZZ > . GOTO 153
282 H = H - 11 * (R = 0) + 11 * (R = 1) - (R = 2) + (R = 3):
HQ = PEEK (H):
POKE H,21:
SYS 4361:
POKE H,HQ:
FOR J = 0 TO 20:
NEXT :
IF H = P THEN
SYS 4361:
GOTO 153
283 GOTO 282
284 IF PEEK (49348) GOTO 7
285 POKE 51223,10:
POKE 892,23:
SYS 4361:
GOSUB 592:
SYS 5681:
PRINT "#96LAVA VERBRENNT#13
":
SYS 5681:
PRINT "DICH!#13
":
HP = HP - 30:
POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
IF HP < 1 THEN
K = 4:
GOTO 530
286 IF U$ = "#91
" THEN
SYS 4621
287 IF U$ = "#11
" THEN
SYS 4563
288 IF U$ = "#9D
" THEN
SYS 4751
289 IF U$ = "#1D
" THEN
SYS 4685
290 GOSUB 466:
GOTO 4
291 PRINT "ZAUBERSPRUCH#13
":
SYS 5681:
PRINT "#9E-WELCHER? #05#C7#9D
";:
Z = 0
292 Z = Z + 1:
GET U$:
IF Z < 600 AND U$ = "" GOTO 292
293 IF U$ = > "A
" AND U$ < = "P
" GOTO 295
294 PRINT "#9EKEINER#13
":
RETURN
// -----------------------------
295 PRINT U$;:
SYS 5681:
J = ASC (U$) - 64:
PRINT Z$(J - 1);:
SYS 5681:
IF J = 1 OR J = 5 GOTO 302
296 IF PEEK (49303 + J) = 0 THEN
PRINT "#96KANNST DU NICHT!#13
":
RETURN
// -----------------------------
297 Z = PEEK (50495 + J):
FOR I = 0 TO 7:
IF (2 ^ I AND Z) = . GOTO 299
298 IF PEEK (49336 + I) = . THEN
PRINT "#96ZU WENIG#13
":
SYS 5681:
PRINT "INGREDENZIEN!#13
":
RETURN
// -----------------------------
299 NEXT :
PRINT "#81DU KONZENTRIERST#13
":
SYS 5681:
PRINT "DICH...#13
":
SYS 5681:
FOR I = 0 TO 7:
IF (2 ^ I AND Z) THEN
POKE 49336 + I, PEEK (49336 + I) - 1
300 NEXT :
IF J < 9 THEN
ON J GOTO 302,307,321,312,302,337,342,326
301 ON J - 8 GOTO 346,353,357,366,361,370,374,378
302 SYS 5681:
PRINT "#96WOZU JETZT?#13
":
RETURN
// -----------------------------
303 SYS 5681:
PRINT "#96NICHT GENUG#13
":
SYS 5681:
PRINT "ASTRALENERGIE!#13
":
RETURN
// -----------------------------
304 SYS 5681:
SYS 6041:
PRINT "#96GELINGT NICHT!#13
":
POKE S + 5,10:
POKE S + 4,33:
FOR I = 0 TO 45:
POKE S + 1,46 - I:
NEXT :
GOTO 270
305 AS = AS - Z:
POKE 49235,AS / 256:
POKE 49234,AS - 256 * PEEK (49235):
GOTO 466
306 SYS 5681:
PRINT "#9FES GELINGT!#13
":
RETURN
// -----------------------------
307 Z = 5:
IF AS < Z GOTO 303
308 GOSUB 305:
IF FN R(20) > CH GOTO 304
309 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE 53281,13:
POKE 53280,13:
POKE S + 4,17:
FOR I = 1 TO 66:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0
310 IF PEEK (49245) = 0 OR AS < 2 THEN
RETURN
// -----------------------------
311 POKE 49245, PEEK (49245) - 1:
AS = AS - 3:
GOSUB 269:
GOSUB 467:
GOTO 310
312 IF AS < 10 GOTO 303
313 Z = 10:
GOSUB 305:
IF FN R(20) > CH GOTO 304
314 GOSUB 306:
SYS 5681:
PRINT "#9E-WIEVIEL?
";
315 PRINT "#1F000#9D#9D#9D
";:
J = 0:
FOR I = 0 TO 2
316 GET U$:
IF U$ = CHR$ (20) THEN
PRINT LEFT$ ("#9D#9D
",I);:
GOTO 315
317 IF U$ < "0
" OR U$ > "9
" GOTO 316
318 PRINT "#05
"U$;:
J = J + ( ASC (U$) - 48) * 10 ^ (2 - I):
NEXT :
IF J > AS THEN
J = AS
319 GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE 53281,5:
POKE 53280,5:
POKE S + 4,17:
FOR I = 1 TO 55:
POKE S + 1,I:
NEXT :
FOR I = 1 TO 55:
POKE S + 1,56 - I:
NEXT :
POKE 53281,0:
POKE 53280,0:
IF J > HM - HP THEN
J = HM - HP
320 AS = AS - J - 1:
HP = HP + J:
GOSUB 269:
POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
GOTO 466
321 Z = 10:
IF AS < Z GOTO 303
322 IF KP = . GOTO 302
323 IF PEEK (49285) GOTO 304
324 GOSUB 305:
IF FN R(20) > CH GOTO 304
325 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE 53281,2:
POKE 53280,2:
POKE S + 4,33:
FOR I = 0 TO 150 STEP 3:
POKE S + 1,153 - I:
NEXT :
POKE 53281,0:
POKE 53280,0:
POKE 49284,13:
POKE 55726,7:
POKE 1454,19:
RETURN
// -----------------------------
326 Z = 20:
IF AS < Z GOTO 303
327 IF KP = . GOTO 302
328 GOSUB 305:
IF FN R(20) > CH GOTO 304
329 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,143:
POKE 53281,7:
POKE 53280,7:
POKE S + 4,129:
FOR I = 1 TO 240 STEP 3:
POKE S + 1,I:
NEXT :
POKE 53281,1:
POKE 53280,1:
FOR I = 0 TO 333:
NEXT :
POKE 53281,7:
POKE 53280,7:
FOR I = 1 TO 240 STEP 3:
POKE S + 1,240 - I:
NEXT :
SYS 6041:
POKE 53281,0:
POKE 53280,0:
FOR I = 0 TO MZ:
J = M(I):
IF J < 99 GOTO 331
330 NEXT :
GOTO 466
331 H = 832 + X(I) + 11 * Y(I):
IF J = 22 AND FN R(3) = 3 GOTO 333
332 IF J < 28 OR J > 33 GOTO 330
333 POKE 51223,7:
M(I) = 99:
POKE H,23:
SYS 6041:
POKE S + 5,9:
POKE S + 1, FN R(6):
POKE S + 4,129:
SYS 4361:
POKE H,Q(I):
IF J = 22 THEN
POKE H,24
334 L = PEEK (50634 + J):
SYS 5681:
PRINT "#9E
"M$(J);:
IF J = 22 THEN
PRINT "#9D#9D#9D#9D#9DSTEINTROLL#13
"
335 SYS 5681:
PRINT MID$ ( STR$ (L),2)" PUNKTE.#13
":
SYS 4361:
EF = EF + L:
IF EF > 999999 THEN
EF = 999999
336 POKE 49239,EF / 256:
POKE 49238,EF - 256 * PEEK (49239):
GOTO 330
337 Z = 15:
IF AS < Z GOTO 303
338 IF KP = . GOTO 302
339 IF PEEK (49284) GOTO 304
340 GOSUB 305:
IF FN R(20) > CH GOTO 304
341 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE 53281,10:
POKE 53280,10:
POKE S + 4,33:
FOR I = 3 TO 193 STEP 2:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0:
POKE 49285,13:
POKE 55726,7:
POKE 1454,12:
RETURN
// -----------------------------
342 Z = 20:
IF AS < Z GOTO 303
343 IF KP = . GOTO 302
344 GOSUB 305:
IF FN R(20) > CH GOTO 304
345 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,11:
POKE S + 4,17:
FOR I = 3 TO 150 STEP 3:
POKE S + 1,I:
POKE 53281,3:
POKE 53280,3:
POKE S + 1,153 - I:
POKE 53281,0:
POKE 53280,0:
NEXT :
POKE 49282,23:
POKE 55728,3:
POKE 1456,7:
RETURN
// -----------------------------
346 Z = 5:
IF AS < Z GOTO 303
347 IF KP = . GOTO 302
348 GOSUB 305:
IF FN R(20) > CH GOTO 304
349 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE S + 4,33:
POKE 53281,14:
POKE 53280,14:
FOR I = 153 TO 3 STEP - 3:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0:
ZZ = 1
350 SYS 5681:
PRINT "#9E-RICHTUNG? #05#C7#9D
";:
Z = 0:
RETURN
// -----------------------------
351 IF ZZ = . GOTO 153
352 GOTO 103
353 Z = 7:
IF AS < Z GOTO 303
354 IF KP = . GOTO 302
355 GOSUB 305:
IF FN R(20) > CH GOTO 304
356 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE S + 4,129:
POKE 53281,13:
POKE 53280,13:
FOR I = 123 TO 3 STEP - 3:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0:
ZZ = 2:
GOTO 350
357 Z = 10:
IF AS < Z GOTO 303
358 IF KP = . GOTO 302
359 GOSUB 305:
IF FN R(20) > CH GOTO 304
360 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE S + 4,129:
POKE 53281,10:
POKE 53280,10:
FOR I = 3 TO 123 STEP 3:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0:
ZZ = 3:
GOTO 350
361 Z = 15:
IF AS < Z GOTO 303
362 IF KP = . GOTO 302
363 GOSUB 305:
IF FN R(20) > CH GOTO 304
364 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,11:
POKE S + 4,33:
POKE 53281,4:
POKE 53280,4:
FOR I = 3 TO 123 STEP 3:
POKE S + 1,I:
POKE S + 1,126 - I:
NEXT :
POKE 53281,0:
POKE 53280,0:
FOR I = 0 TO MZ:
IF M(I) = 0 OR M(I) = 10 OR M(I) = 11 OR M(I) = 12 OR M(I) = 18 THEN
L(I) = 1
365 NEXT :
RETURN
// -----------------------------
366 Z = 20:
IF AS < Z GOTO 303
367 IF KP = . GOTO 302
368 GOSUB 305:
IF FN R(20) > CH GOTO 304
369 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,10:
POKE S + 4,129:
POKE 53281,7:
POKE 53280,7:
FOR I = 1 TO 5:
FOR J = 3 TO 99 STEP 3:
POKE S + 1,J:
NEXT J,I:
POKE 53281,0:
POKE 53280,0:
ZZ = 4:
GOTO 350
370 Z = 25:
IF AS < Z GOTO 303
371 IF KP = . GOTO 302
372 GOSUB 305:
IF FN R(20) > CH GOTO 304
373 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,11:
POKE S + 4,17:
POKE 53281,15:
POKE 53280,15:
FOR I = 1 TO 7:
FOR J = 3 TO 99 STEP 3:
POKE S + 1,J:
NEXT J,I:
POKE 53281,0:
POKE 53280,0:
POKE 49283,13:
POKE 55730,15:
POKE 1458,26:
RETURN
// -----------------------------
374 Z = 20:
IF AS < Z GOTO 303
375 IF KP = . GOTO 302
376 GOSUB 305:
IF FN R(20) > CH GOTO 304
377 GOSUB 306:
GOSUB 270:
SYS 6041:
POKE S + 5,11:
POKE S + 4,129:
POKE 53281,6:
POKE 53280,6:
FOR I = 10 TO 80 STEP 10:
FOR J = I TO I + 30:
POKE S + 1,J:
NEXT J,I:
POKE 53281,0:
POKE 53280,0:
ZZ = 5:
GOTO 350
378 Z = 25:
IF AS < Z GOTO 303
379 IF KP = . OR HP < 21 GOTO 302
380 GOSUB 305:
IF FN R(20) > CH GOTO 304
381 GOSUB 306:
GOSUB 270:
FOR I = 1 TO 3:
Z = 1:
GOSUB 387:
Z = 7:
GOSUB 387:
Z = 10:
GOSUB 387:
Z = .:
GOSUB 388:
GOSUB 388:
NEXT :
FOR I = 0 TO MZ:
IF M(I) = 99 GOTO 386
382 H = 832 + X(I) + 11 * Y(I):
HQ = PEEK (H):
POKE 51223,7:
POKE H,23:
SYS 4361:
SYS 6041:
POKE S + 5,9:
POKE S + 1, FN R(6):
POKE S + 4,129:
L(I) = L(I) - 20:
IF L(I) > . THEN
POKE H,HQ:
SYS 4361:
GOTO 386
385 GOSUB 619:
POKE 49239,EF / 256:
POKE 49238,EF - 256 * PEEK (49239):
SYS 4361:
M(I) = 99
386 NEXT :
POKE 51223,7:
POKE P,23:
SYS 4361:
SYS 6041:
POKE S + 5,11:
POKE S + 1,3:
POKE S + 4,129:
HP = HP - 20:
POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
GOSUB 466:
POKE P,27:
SYS 4361:
RETURN
// -----------------------------
387 SYS 6041:
POKE S + 5,11:
POKE S + 1,3:
POKE S + 4,129
388 POKE 53281,Z:
POKE 53280,Z:
FOR J = 0 TO 99:
NEXT :
RETURN
// -----------------------------
389 J = PEEK (49157):
IF J > 1 GOTO 417
390 FOR J = 5 TO 2 STEP - 1:
IF PEEK (49156 + J) = PEEK (49154) AND PEEK (49160 + J) = PEEK (49155) GOTO 419
391 NEXT :
PRINT "BETRETE
";:
IF PEEK (2) = 14 GOTO 401
392 IF PEEK (2) = 13 GOTO 403
393 IF PEEK (2) = 12 GOTO 410
394 IF PEEK (2) = 16 GOTO 404
395 IF PEEK (2) = 15 GOTO 405
396 IF PEEK (2) = 19 AND PEEK (49154) = 34 GOTO 406
397 IF PEEK (2) = 18 GOTO 407
398 IF PEEK (2) = 19 GOTO 408
399 IF PEEK (2) = 17 GOTO 409
400 PRINT "#9D#9D#9D#9D#9D#9D#9D#9D
";:
GOTO 33
401 PRINT "HÜTTE#13
":
POKE 2,1
402 FOR I = 0 TO 2E3:
NEXT :
PRINT "#90#93#11#11#11L#CF
" CHR$ (34)"DDD.KONJ
" CHR$ (34)",8:
":
FOR I = 0 TO 9:
PRINT "R#D5:
":
NEXT :
PRINT "#13
":
POKE 631,13:
POKE 632,13:
POKE 198,2:
END
403 PRINT "SCHLOSS#13
":
POKE 2,2:
GOTO 402
404 PRINT "TEMPEL#13
":
POKE 2,10:
GOTO 402
405 PRINT "TURM#13
":
POKE 2,11:
GOTO 402
406 PRINT "HÖHLE#13
":
POKE 2,12:
GOTO 402
407 PRINT "BURG#13
":
POKE 2,14 - ( PEEK (49155) = 116):
GOTO 402
408 SYS 5681:
PRINT "DRACHENHORT#13
":
POKE 2,13:
GOTO 402
409 SYS 5681:
PRINT "SCHÄDELFESTE#13
":
POKE 2,16:
GOTO 402
410 PRINT "STADT#9E#13
":
SYS 5681:
IF PEEK (49154) = 82 AND PEEK (49155) = 49 THEN
PRINT "*** TRISDIC ***#13
":
POKE 2,3:
GOTO 402
411 IF PEEK (49154) = 48 AND PEEK (49155) = 36 THEN
PRINT "*** WORTHAL ***#13
":
POKE 2,4:
GOTO 402
412 IF PEEK (49154) = 25 AND PEEK (49155) = 46 THEN
PRINT "**** GAHT ****#13
":
POKE 2,5:
GOTO 402
413 IF PEEK (49154) = 31 AND PEEK (49155) = 113 THEN
PRINT "*** ACKBAH ***#13
":
POKE 2,6:
GOTO 402
414 IF PEEK (49154) = 12 AND PEEK (49155) = 61 THEN
PRINT "*** MUBRAK ***#13
":
POKE 2,9:
GOTO 402
415 IF PEEK (49154) = 104 AND PEEK (49155) = 58 THEN
PRINT "** DAMRASKAN **#13
":
POKE 2,7:
GOTO 402
416 IF PEEK (49154) = 108 AND PEEK (49155) = 25 THEN
PRINT "*** MUSPEL ***#13
":
POKE 2,8:
GOTO 402
417 PRINT "VON BORD
";:
IF J < > 4 THEN
PRINT "#9D#9D#9D#9D#9D#9D#9D#9DABSTEIGEN#13
"
418 POKE 49156 + J, PEEK (49154):
POKE 49160 + J, PEEK (49155):
POKE 49157,1:
GOTO 4
419 IF J = 4 THEN
PRINT "AN BORD#13
":
GOTO 423
420 POKE 49346,.:
PRINT "BESTEIGE#13
":
SYS 5681:
IF J = 2 THEN
PRINT "PFERD#13
"
421 IF J = 3 THEN
PRINT M$(12)
422 IF J = 5 THEN
PRINT M$(7)
423 POKE 49157,J:
POKE 49156 + J,255:
POKE 49160 + J,255:
GOTO 4
424 IF PEEK (49347) = . GOTO 33
425 PRINT "POSITION#13
":
SYS 5681:
PRINT "BESTIMMEN#13
":
SYS 5681:
PRINT "#9F LÄNGE:
";:
J = PEEK (49154) + 12:
K = INT (J / 16):
PRINT CHR$ (65 + K)"&
";:
PRINT CHR$ (65 + J - 16 * K)"'#13
":
SYS 5681:
PRINT "#9FBREITE:
";:
J = PEEK (49155) + 12:
K = INT (J / 16):
PRINT CHR$ (65 + K)"&
" CHR$ (65 + J - 16 * K)"'#13
":
GOTO 4
426 PRINT "SUCHEN
";:
FOR I = 1 TO 5:
PRINT ".
";:
WAIT 2568,48:
WAIT 2568,12:
NEXT :
SYS 5681:
PRINT "#9EDU FINDEST#13
":
SYS 5681:
X = PEEK (49154):
Y = PEEK (49155):
H = 0:
IF X = 48 AND Y = 138 AND PEEK (49353) = . THEN
H = 1
427 IF X = 48 AND Y = 106 AND PEEK (49265) = . THEN
H = 2
428 IF X = 17 AND Y = 63 AND PEEK (49263) = . THEN
H = 3
429 IF X = 76 AND Y = 121 THEN
H = 4
430 IF H = 1 THEN
PRINT "DEN SCHATZ VON#13
":
SYS 5681:
PRINT "UYRP. ES SIND#13
"
431 IF H = 1 THEN
SYS 5681:
PRINT "1000 GOLDSTÜCKE!#13
":
POKE 49353,1:
G = 1E3:
GOTO 257
432 IF H = 2 THEN
PRINT "DIE MAGISCHE#13
":
SYS 5681:
PRINT W$(18)"#9DGE#13
"
433 IF H = 2 THEN
SYS 5681:
PRINT "SICARIA DRACONEM#13
":
POKE 49265,1
434 IF H = 3 THEN
PRINT "DIE BERÜHMTE#13
":
SYS 5681:
PRINT W$(16)".#13
":
POKE 49263,1
435 IF H = 4 THEN
PRINT "DIE SELTENE#13
":
SYS 5681:
J = PEEK (49343) + FN R(12):
IF J > 99 THEN
J = 99
436 IF H = 4 THEN
POKE 49343,J:
PRINT "ALRAUNE-WURZEL.#13
"
437 IF H = 4 THEN
SYS 5681:
PRINT "DU HAST JETZT
"J;:
SYS 5681:
PRINT "STÜCK.#13
"
438 IF H = . THEN
PRINT "NICHTS.#13
"
439 GOTO 4
440 IF PEEK (49157) < > 4 GOTO 33
441 PRINT "KATAPULT#13
":
SYS 5681:
PRINT "#9E-RICHTUNG? #05#C7#9D
";:
Z = 0
442 Z = Z + 1:
IF Z > 600 THEN
PRINT "KEINE#13
":
GOTO 4
443 GET U$:
IF U$ = "" GOTO 442
444 IF U$ = "#91
" THEN
R = .:
PRINT "NORD#13
":
GOTO 449
445 IF U$ = "#11
" THEN
R = 1:
PRINT "SÜD#13
":
GOTO 449
446 IF U$ = "#9D
" THEN
R = 2:
PRINT "WEST#13
":
GOTO 449
447 IF U$ = "#1D
" THEN
R = 3:
PRINT "OST#13
":
GOTO 449
448 Z = 666:
GOTO 442
449 H = 892:
X = 0:
Y = 0:
HQ = 30:
POKE 51221,15:
GOSUB 590
450 POKE H,HQ:
H = H + 11 * (R = .) - 11 * (R = 1) + (R = 2) - (R = 3):
HQ = PEEK (H):
POKE H,21:
SYS 4361:
X = X + (R = 2) - (R = 3):
Y = Y + (R = .) - (R = 1):
IF HQ > 31 AND FN R(20) < = GE GOTO 453
451 IF ABS (X) = 3 OR ABS (Y) = 3 OR HQ = 5 OR HQ = 9 THEN
POKE H,HQ:
SYS 4361:
SYS 5681:
PRINT "#96DANEBEN!#13
":
GOTO 4
452 GOTO 450
453 POKE 51223,10:
POKE H,23:
SYS 4361:
GOSUB 592:
FOR I = 0 TO 9:
IF PEEK (49188 + I) = ((256 + X) AND 255) AND PEEK (49198 + I) = ((256 + Y) AND 255) GOTO 455
454 NEXT :
GOTO 451
455 J = PEEK (49168 + I):
IF J = . GOTO 454
456 POKE 49168 + I,0:
SYS 5681:
PRINT "#96
"M$(J - 32):
SYS 5681:
PRINT "VERTRIEBEN!#13
":
GOTO 4
457 PRINT "#9D #13
":
GOSUB 591:
FOR I = 1 TO 6:
SYS 5681:
NEXT :
PRINT "#90 P A U S E#13
":
FOR I = 1 TO 5:
SYS 5681:
NEXT
458 FOR I = 0 TO 4:
POKE 56044 + I + I, FN R(15):
NEXT :
GET U$:
IF U$ = "" GOTO 458
459 FOR I = 1 TO 7:
SYS 5681:
NEXT :
RETURN
// -----------------------------
460 PRINT "ABSPEICHERN#13
":
SYS 5681:
PRINT "#99BISHER
";:
GOSUB 529:
SYS 5681:
GOSUB 610
463 POKE 198,0:
SYS 5681:
PRINT "%RETURN%. #05#C7#9D
";
464 GET U$:
IF U$ < > CHR$ (13) GOTO 464
465 PRINT " #13
":
GOTO 4
466 HP = PEEK (49230) + 256 * PEEK (49231):
U$ = "00
" + MID$ ( STR$ (HP),2):
PRINT "#13#11#11
" SPC( 31)"#99
" RIGHT$ (U$,3);:
HM = PEEK (49232) + 256 * PEEK (49233):
U$ = "00
" + MID$ ( STR$ (HM),2):
PRINT "#1D
" RIGHT$ (U$,3):
AS = PEEK (49234) + 256 * PEEK (49235):
U$ = "00
" + MID$ ( STR$ (AS),2):
PRINT SPC( 31)"#91#9F
" RIGHT$ (U$,3);:
AM = PEEK (49236) + 256 * PEEK (49237):
U$ = "00
" + MID$ ( STR$ (AM),2):
PRINT "#1D
" RIGHT$ (U$,3)
467 AT = PEEK (49228):
U$ = "0
" + MID$ ( STR$ (AT),2):
PRINT "#96
" SPC( 29) RIGHT$ (U$,2);:
PA = PEEK (49229):
U$ = "0
" + MID$ ( STR$ (PA),2):
PRINT "#1E
" SPC( 6) RIGHT$ (U$,2):
SR = PEEK (49224):
U$ = "0
" + MID$ ( STR$ (SR),2):
PRINT "#9C#91
" SPC( 29) RIGHT$ (U$,2);:
GE = PEEK (49225):
U$ = "0
" + MID$ ( STR$ (GE),2):
PRINT "#9E
" SPC( 6) RIGHT$ (U$,2):
KG = PEEK (49226):
U$ = "0
" + MID$ ( STR$ (KG),2):
PRINT "#9B
" SPC( 29) RIGHT$ (U$,2);
468 CH = PEEK (49227):
U$ = "0
" + MID$ ( STR$ (CH),2):
PRINT "#9A
" SPC( 6) RIGHT$ (U$,2):
EF = PEEK (49238) + 256 * PEEK (49239) + 65536 * PEEK (49240):
U$ = "00000
" + MID$ ( STR$ (EF),2):
PRINT "#91#99
" SPC( 29) RIGHT$ (U$,6);:
SU = PEEK (49241):
U$ = "0
" + MID$ ( STR$ (SU),2):
PRINT "#1D
" RIGHT$ (U$,2):
GP = PEEK (49242) + 256 * PEEK (49243):
U$ = "0000
" + MID$ ( STR$ (GP),2):
PRINT "#9E
" SPC( 34) RIGHT$ (U$,5)
469 NA = PEEK (49244):
U$ = "00
" + MID$ ( STR$ (NA),2):
PRINT "#91#81
" SPC( 36) RIGHT$ (U$,3):
PRINT SPC( 24)"#99G
";:
PO = PEEK (49245):
POKE 1449,32 - 16 * (PO > 0) + PO:
IF PO = . THEN
PRINT "#9D#9D#05G
"
470 WF = PEEK (49246):
RS = PEEK (49247):
SH = PEEK (49248):
RETURN
// -----------------------------
471 POKE 53281,0:
POKE 53280,0:
POKE 53272,18:
SYS 5454:
SYS 4812:
S = 54272:
POKE 650,255:
POKE 51211,8:
J = PEEK (49246):
IF J THEN
IF PEEK (49247 + J) = 0 THEN
POKE 49246,0
472 DIM M$(37),W$(27):
FOR I = 0 TO 37:
READ M$(I):
NEXT :
FOR I = 0 TO 27:
READ W$(I):
NEXT :
J = PEEK (49247):
IF J THEN
IF PEEK (49266 + J) = 0 THEN
POKE 49247,0
473 DEF FN R(X) = INT (X * RND (TI) + 1):
FOR I = 0 TO 2:
POKE 55723 + I,4:
NEXT :
J = PEEK (49167):
IF J THEN
IF PEEK (49272 + J) = 0 THEN
POKE 49167,0
474 DIM Z$(15),G$(7):
FOR I = 0 TO 15:
READ Z$(I):
NEXT :
FOR I = 0 TO 7:
READ G$(I):
NEXT :
GOSUB 623
475 PRINT "#13#11#11
" SPC( 24)"#99VITAL.: ( )
":
PRINT SPC( 24)"#91#9FASTRAL: ( )
":
PRINT SPC( 24)"#96ANG.: #1EVER.:
":
PRINT SPC( 24)"#91#9CSTR.: #9EGES.:
":
PRINT SPC( 24)"#9BKLG.: #9ACHA.:
":
PRINT SPC( 24)"#91#99ERF.: ( )
":
PRINT SPC( 24)"#9EGOLDSTCK.:
":
PRINT SPC( 24)"#91#81NAHR.VORRAT:
":
SYS 64931:
POKE S + 24,15:
GOTO 466
476 POKE 2,3:
SYS 5782:
POKE 2,4:
FOR I = 1 TO 90:
SYS 5856:
NEXT :
POKE 2,70:
SYS 5856
477 POKE 2,24:
FOR I = 1 TO 3:
SYS 5856:
NEXT :
POKE 2,25:
SYS 5856:
SYS 5856:
GOTO 64
478 POKE 2,4:
SYS 5782:
POKE 2,70:
FOR I = 1 TO 20:
SYS 5856:
NEXT :
POKE 2,3:
FOR I = 1 TO 8:
SYS 5856:
NEXT :
GOTO 477
479 POKE 2,3:
SYS 5782:
POKE 2,6:
FOR I = 1 TO 88:
SYS 5856:
NEXT :
POKE 2,70:
SYS 5856:
POKE 2,2:
FOR I = 1 TO 20:
SYS 5856:
NEXT :
POKE 2,4:
FOR I = 1 TO 4:
SYS 5856:
NEXT :
POKE 2,24:
SYS 5856:
SYS 5856:
GOTO 64
480 Q = 7:
POKE 2,7:
SYS 5782:
POKE 2,3:
FOR I = 1 TO 3:
SYS 5856:
NEXT :
POKE 2,24:
FOR I = 1 TO 3:
SYS 5856:
NEXT :
POKE 2,25:
SYS 5856:
SYS 5856:
GOTO 64
481 POKE 2,3:
SYS 5782:
POKE 2,4:
FOR I = 1 TO 6:
SYS 5856:
NEXT :
POKE 2,70:
SYS 5856:
SYS 5856:
POKE 2,24:
FOR I = 1 TO 12:
SYS 5856:
NEXT :
POKE 2,25:
FOR I = 1 TO 6:
SYS 5856:
NEXT :
POKE 2,7:
FOR I = 1 TO 4:
SYS 5856:
NEXT :
GOTO 64
482 FOR I = 0 TO 54:
POKE 832 + I,1:
NEXT :
FOR I = 1 TO 6:
POKE 887 + 11 * RND (TI),2:
NEXT :
FOR I = 1 TO 8:
POKE 876 + 11 * RND (1),2:
NEXT :
POKE 887 + 11 * RND (TI),24:
GOTO 67
483 GOTO 600
484 IF K < 5 THEN
X = 5:
Y = 5:
GOSUB 520:
GOTO 69
485 GOSUB 504:
FOR I = 0 TO MZ
486 X(I) = INT (3 * RND (TI) + 8):
Y(I) = INT (9 * RND (TI) + 1):
Z = 832 + X(I) + 11 * Y(I):
Z1 = PEEK (50938 + M(I)):
IF PEEK (Z) > 11 GOTO 486
487 IF Z1 = 0 AND PEEK (Z) < 3 GOTO 486
488 IF Z1 = 1 AND PEEK (Z) > 2 GOTO 486
489 L(I) = PEEK (50672 + M(I)):
Q(I) = PEEK (Z):
POKE Z,M(I) + 32:
NEXT :
GOTO 69
490 K = 22:
POKE 892,54:
SYS 4361:
PRINT "#9D#96BRÜCKENTROLLE#13
"
491 SYS 5681:
POKE 198,0:
PRINT "ÜBERFALLEN DICH!#13
":
SYS 5681:
GOTO 58
492 K = 26:
POKE 892,58:
SYS 4361:
PRINT "#9D#96WALDSCHRATE#13
":
GOTO 491
493 K = 28:
POKE 892,60:
SYS 4361:
PRINT "#9D#96MOORLEICHEN#13
":
GOTO 491
494 X = 6:
IF K < 10 GOTO 496
495 FOR I = 66 TO 120:
POKE 832 + I,1:
NEXT :
FOR I = 1 TO 6:
POKE 887 + 11 * RND (TI),2:
NEXT :
FOR I = 1 TO 10:
POKE 876 + 22 * RND (TI),7:
NEXT :
FOR I = 1 TO 8:
POKE 898 + 11 * RND (TI),2:
NEXT :
POKE 887 + 11 * RND (TI),24:
Y = 8:
GOSUB 499:
L = 5:
GOSUB 515:
L = 1:
GOTO 69:
POKE 2,K:
SYS 5782
496 POKE 2,L:
SYS 5782:
IF K = 2 GOTO 498
497 Y = 5:
GOSUB 499:
GOSUB 520:
GOTO 69
498 Y = 3:
GOSUB 499:
Y = 7:
GOSUB 499:
GOSUB 524:
GOTO 69
499 GOSUB 501:
FOR I = 0 TO 2:
FOR J = 2 + (I = 1) TO 9:
POKE 821 + 11 * (I + Y) + J,11:
NEXT J,I:
J = 837 + 11 * Y:
POKE J - 1,85:
POKE J + 3,85:
IF Y > 5 THEN
FOR I = 2 TO 3:
POKE J - 1 - 11 * I,11:
POKE J + 2 - 11 * I,11:
NEXT
500 RETURN
// -----------------------------
501 FOR I = 0 TO 3:
POKE 51467 + 256 * I,98:
NEXT :
RETURN
// -----------------------------
502 POKE 51467,94:
POKE 51723,95:
POKE 51979,96:
POKE 52235,97:
RETURN
// -----------------------------
503 GOSUB 499:
POKE J + 21,11:
POKE J + 25,11:
POKE J + 32,11:
POKE J + 36,11:
RETURN
// -----------------------------
504 MZ = INT ( SQR (SU) * 1.74 * RND (TI)):
FOR I = 0 TO 10:
G(I) = 0:
NEXT :
IF L = 11 AND K = 22 THEN
FOR I = 0 TO MZ:
M(I) = 22:
NEXT :
RETURN
// -----------------------------
505 IF K < > 2 GOTO 508
506 M$(34) = "PIRAT
":
FOR I = 0 TO MZ:
M(I) = 34:
IF SU > 8 AND RND (TI) < .25 THEN
M(I) = 36
507 NEXT :
RETURN
// -----------------------------
508 J = INT (MZ / (1 + RND (TI))):
FOR I = 0 TO J:
M(I) = K:
NEXT :
IF MZ - J = . THEN
RETURN
// -----------------------------
509 FOR I = J + 1 TO MZ
510 Z = INT (38 * RND (TI)):
IF PEEK (50596 + Z) > SU OR PEEK (50900 + Z) < > PEEK (50900 + K) GOTO 510
511 IF Z = 2 GOTO 510
512 Z1 = PEEK (50938 + M(0)):
IF Z1 = 2 THEN
Z1 = 1:
IF PEEK (832) > 2 THEN
Z1 = 0
513 IF PEEK (50938 + Z) < 2 AND Z1 < > PEEK (50938 + Z) GOTO 510
514 M(I) = Z:
NEXT :
RETURN
// -----------------------------
515 GOSUB 504:
FOR I = 0 TO MZ
516 X(I) = INT (9 * RND (TI) + 1):
Y(I) = INT (3 * RND (TI)):
Z = 832 + X(I) + 11 * Y(I):
Z1 = PEEK (50938 + M(I)):
IF PEEK (Z) > 11 GOTO 516
517 IF Z1 = 0 AND PEEK (Z) < 3 GOTO 516
518 IF Z1 = 1 AND PEEK (Z) > 2 GOTO 516
519 L(I) = PEEK (50672 + M(I)):
Q(I) = PEEK (Z):
POKE Z,M(I) + 32:
NEXT :
RETURN
// -----------------------------
520 GOSUB 504:
FOR I = 0 TO MZ
521 X(I) = INT (9 * RND (TI) + 1):
Y(I) = INT (3 * RND (TI)):
IF RND (TI) < .5 THEN
Y(I) = 10 - Y(I)
522 Z = 832 + X(I) + 11 * Y(I):
IF PEEK (Z) > 2 GOTO 521
523 L(I) = PEEK (50672 + M(I)):
Q(I) = PEEK (Z):
POKE Z,M(I) + 32:
NEXT :
RETURN
// -----------------------------
524 GOSUB 504:
FOR I = 0 TO MZ
525 X(I) = INT (8 * RND (TI) + 2):
Y(I) = INT (2 * RND (TI) + 2):
Z = 832 + X(I) + 11 * Y(I):
IF PEEK (Z) < > 11 GOTO 525
526 L(I) = PEEK (50672 + M(I)):
Q(I) = 11:
POKE Z,M(I) + 32:
NEXT :
RETURN
// -----------------------------
527 SYS 5681:
PRINT "#05****************#13
":
RETURN
// -----------------------------
528 SYS 5681:
PRINT "#05* *
";:
RETURN
// -----------------------------
529 PRINT PEEK (49208) + 256 * PEEK (49209) + 65536 * PEEK (49210);:
RETURN
// -----------------------------
530 POKE 51226,15:
SYS 4361:
POKE 49230,0:
GOSUB 466:
SYS 5681:
GOSUB 527:
GOSUB 528:
GOSUB 528:
PRINT "#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9DDU BIST TOT!#13
":
GOSUB 528:
GOSUB 527:
SYS 5681:
SYS 5681:
PRINT "#9EDU HAST
";:
GOSUB 529:
SYS 5681:
PRINT "ZÜGE GESPIELT.#13
":
SYS 5681:
SYS 5681:
PRINT "#05TODESURSACHE:#13
":
SYS 5681:
IF K = 1 THEN
PRINT "#99GIFT#13
"
531 IF K = 2 THEN
PRINT "#9FVERHUNGERT#13
"
532 IF K = 3 THEN
PRINT "#96
"M$(M(I))" HAT#13
":
SYS 5681:
PRINT "DICH GETÖTET.#13
"
533 IF K = 4 THEN
PRINT "#9FVERBRANNT#13
"
534 POKE 56295,1:
POKE 2023,71:
POKE 198,0:
WAIT 198,1:
POKE 2,17:
GOTO 402
535 HQ = Q(I):
SYS 4361:
SYS 5681:
PRINT "GETÖTET!#13
":
SYS 5681:
SYS 5681:
PRINT "DU ERHÄLST#13
":
L = INT (( PEEK (50634 + M(I)) + .5) / Z2):
SYS 5681:
PRINT MID$ ( STR$ (L),2)" PUNKTE.
";:
IF L = 1 THEN
PRINT "#9D#9D.
";
536 IF PEEK (50900 + M(I)) = . THEN
GOSUB 607
537 SYS 5681:
EF = EF + L:
M(I) = 99:
IF EF < . THEN
EF = .
538 IF EF > 999999 THEN
EF = 999999
539 K = EF:
L = INT (K / 65536):
POKE 49240,L:
K = K - 65536 * L:
L = INT (K / 256):
POKE 49239,L:
POKE 49238,K - 256 * L:
GOTO 466
540 PRINT "INVENTUR#13
":
GOSUB 569:
I = 2:
GOSUB 568:
PRINT "#05EINHANDWAFFEN:
":
I = 3:
FOR J = 0 TO 6:
IF PEEK (49247 + J) OR J = 0 THEN
I = I + 1:
GOSUB 568:
PRINT CHR$ (J + 65)"
"W$(J)
541 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05ZWEIHANDWAFFEN:
":
I = 3:
FOR J = 7 TO 10:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 568:
PRINT CHR$ (J + 65)"
"W$(J)
542 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05FERNWAFFEN:
":
I = 3:
FOR J = 11 TO 15:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 568:
PRINT CHR$ (J + 65)"
"W$(J)
543 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05MAGISCHE WAFFEN
":
I = 3:
FOR J = 16 TO 18:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 568:
PRINT CHR$ (J + 65)"
"W$(J)
544 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05RÜSTUNGEN:
":
I = 3:
FOR J = 19 TO 25:
IF PEEK (49247 + J) OR J = 19 THEN
I = I + 1:
GOSUB 568:
PRINT CHR$ (J + 46)"
"W$(J)
545 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05SCHILDE:
":
I = 3:
FOR J = 26 TO 27:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 568:
PRINT W$(J)
546 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05WEISSE MAGIE:
":
I = 3:
FOR J = 0 TO 7:
IF PEEK (49304 + J) THEN
I = I + 1:
GOSUB 568:
PRINT CHR$ (J + 65)"
"Z$(J)
547 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05SCHWARZE MAGIE:
":
I = 3:
FOR J = 8 TO 15:
IF PEEK (49304 + J) THEN
I = I + 1:
GOSUB 568:
PRINT CHR$ (J + 65)"
"Z$(J)
548 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05INGREDIENZEN:
":
I = 3:
FOR J = 0 TO 7:
I = I + 1:
GOSUB 568:
PRINT RIGHT$ ("0
" + MID$ ( STR$ ( PEEK (49336 + J)),2),2);:
PRINT "
"G$(J):
NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 567:
I = 2:
GOSUB 568:
PRINT "#05SONSTIGES:
":
I = 3:
IF PEEK (49351) = . GOTO 550
549 I = I + 1:
GOSUB 568:
PRINT "SPLITTER
":
GOTO 552
550 IF PEEK (49358) = . GOTO 552
551 I = I + 1:
GOSUB 568:
PRINT "DRACHENKRALLE
"
552 IF PEEK (49350) = . GOTO 554
553 I = I + 1:
GOSUB 568:
PRINT "GLASFLÖTE
"
554 IF PEEK (49348) = . GOTO 556
555 I = I + 1:
GOSUB 568:
PRINT "FEUERRING
"
556 IF PEEK (49349) = . GOTO 558
557 I = I + 1:
GOSUB 568:
PRINT "EICHENDOLCH
"
558 IF PEEK (49354) = . GOTO 560
559 I = I + 1:
GOSUB 568:
PRINT "KOMPASS
"
560 IF PEEK (49347) = . GOTO 562
561 I = I + 1:
GOSUB 568:
PRINT "SEXTANT
"
562 IF PEEK (49355) = . GOTO 564
563 I = I + 1:
GOSUB 568:
PRINT "LAMPE
"
564 IF PEEK (49356) = . GOTO 566
565 I = I + 1:
GOSUB 568:
PRINT MID$ ( STR$ ( PEEK (49356)),2)" FACKELN
"
566 POKE 198,0:
WAIT 198,1:
POKE 198,0:
GOSUB 567:
SYS 5558:
GOTO 475
567 FOR I = 2 TO 11:
GOSUB 568:
PRINT "
":
NEXT :
RETURN
// -----------------------------
568 PRINT LEFT$ ("#13#11#11#11#11#11#11#11#11#11#11
",I) SPC( 24);:
RETURN
// -----------------------------
569 GOSUB 567:
I = 2:
GOSUB 568:
PRINT "DU TRÄGST DEINE
":
PRINT SPC( 24)"KLEIDUNG
";:
J = PEEK (49247):
IF J = 0 GOTO 574
570 PRINT " UND
":
PRINT SPC( 24)"#91DARÜBER EIN
";:
IF J = 4 OR J = 1 THEN
PRINT "EN
"
571 IF J = 2 OR J > 4 THEN
PRINT "E
"
572 IF J = 3 THEN
PRINT
573 PRINT SPC( 24)W$(19 + J);
574 PRINT ".
":
PRINT SPC( 24)"#91ALS WAFFE HAST
":
PRINT SPC( 24)"DU JETZT DEIN
";:
J = PEEK (49246):
IF J = 1 OR J = 3 OR J = 4 OR J = 5 OR J = 8 OR J = 13 THEN
PRINT :
GOTO 577
575 PRINT "E
";:
IF J = 2 OR J = 6 OR J = 7 OR J = 10 OR J = 12 OR J = 14 OR J = 17 THEN
PRINT "N
":
GOTO 577
576 PRINT
577 PRINT SPC( 24)"#91
"W$(J):
PRINT SPC( 24)"BEREIT.
":
J = PEEK (49167):
PRINT SPC( 24)"#91DU BENUTZT
";:
IF J = 0 THEN
PRINT "ABER
":
PRINT SPC( 24)"KEIN
";
578 IF J = 1 THEN
PRINT "DEN
":
PRINT SPC( 24)"KLEIN
";
579 IF J = 2 THEN
PRINT "DEN
":
PRINT SPC( 24)"GROSS
";
580 PRINT "EN SCHILD.
":
POKE 198,0:
WAIT 198,1:
GOTO 567
581 POKE 49244, PEEK (49244) - 1:
PRINT "#13#11#11#11#11#11#11#11#11#11
":
GOTO 469
582 ON PEEK (49157) GOSUB 584,585,585,586,584:
WH = WH - 1:
IF WH = . OR WH > 2 OR PEEK (2) = 5 OR PEEK (49346) = . GOTO 4
583 SYS 4229:
SYS 4537:
SYS 5868:
SYS 5998:
SYS 4482:
SYS 5107:
SYS 4361:
SYS 5681:
GOTO 15
584 SYS 6041:
POKE S + 5,16:
POKE S + 1,12:
POKE S + 4,129:
RETURN
// -----------------------------
585 SYS 6041:
POKE S + 5,2:
POKE S + 1,12:
POKE S + 4,129:
RETURN
// -----------------------------
586 IF ( PEEK (49208) AND 7) = . THEN
SYS 6041:
POKE S + 5,170:
POKE S + 1,8:
POKE S + 4,129
587 RETURN
// -----------------------------
588 IF PEEK (49208) AND 7 THEN
RETURN
// -----------------------------
589 SYS 6041:
POKE S + 5,160:
POKE S + 1,5:
POKE S + 4,129:
RETURN
// -----------------------------
590 SYS 6041:
POKE S + 5,86:
POKE S + 1,99:
POKE S + 4,129:
RETURN
// -----------------------------
591 SYS 6041:
POKE S + 5,8:
POKE S + 1,40 + FN R(50):
POKE S + 4,21:
RETURN
// -----------------------------
592 SYS 6041:
POKE S + 5,41:
POKE S + 1,20 + FN R(20):
POKE S + 4,129:
RETURN
// -----------------------------
:
DATA SEEPFERDCHEN,WASSERMANN,PIRATENSCHIFF,SEESCHLANGE,RIESENKRAKE,JUNGDRACHE:
DATA D[MON,FEUERECHSE,BALROG,DRACHE,WILDPFERD,AUEROCHSE,EINHORN,SANDVIPER
593 DATA RIESENPYTHON,SPEIKOBRA,WALDSPINNE,H\HLENSPINNE,RIESENAFFE,GOBLIN,ORK:
DATA OGER,TROLL,ZWEIHAUPT,ZYKLOP,RIESE,WALDSCHRAT,H\HLENSCHRAT,ZOMBIE:
DATA SKELETT,VAMPIR,GHOUL,MUMIE,WERWOLF,R[UBER,HYDRA,ZAUBERER,NESSELBAUM
594 DATA H[NDE,MESSER,DOLCH,KURZSCHWERT,HANDBEIL,SCHWERT,MORGENSTERN,KAMPFSTAB:
DATA BASTARDSCHW.,STREITAXT,ZWEIH[NDER,SCHLEUDER,KURZBOGEN,BLASROHR:
DATA LANGBOGEN,ARMBRUST,MAGISCHE AXT,ELBENBOGEN,ZAUBERSCHWIN.,KLEIDUNG
595 DATA WAFFENROCK,LEDERR]STUNG,KETTENHEMD,SCHUPPENPANZ.,RITTERR]STUNG:
DATA MAG. R]STUNG,KLEINER SCHILD,GROSSER SCHILD:
DATA MAG. LICHT,GIFT NEUTRAL.,SCHUTZSCHILD,WUNDERHEILUNG,BANNBRECHER:
DATA LICHTSCHILD,GEWANDTHEIT,TOTENBANN,DONNERKEIL,GIFT U. GALLE,FEUERBALL
596 DATA FLAMMENSPUR,FURCHTFLUCH,ZEIT GEFRIER.,TODESBLITZ,MAG. BOMBE:
DATA SCHWEFEL,KNOBLAUCH,GINSENG,BLUTFLECHTE,ZIRBELKRAUT,TOTENBLUME:
DATA G. D. NACHT,ALRAUNE
600 POKE 631,82:
POKE 632,213:
POKE 633,58:
POKE 634,13:
POKE 198,4:
FOR I = 0 TO 1
601 FOR J = 0 TO 2:
FOR Z = 3 TO 7:
POKE 832 + I * 88 + 11 * J + Z,2
602 NEXT
603 NEXT
604 NEXT :
POKE 198,0:
GOSUB 501
605 FOR I = 3 TO 7:
FOR J = 2 TO 8:
POKE 832 + I * 11 + J,11:
NEXT J,I:
X = 1:
Y = 5:
POKE 888,3:
IF K = 2 THEN
L = 3:
GOTO 63
606 GOTO 484
607 PRINT "#9D #13
":
SYS 5681:
L = 0:
PRINT "#91KEINE PUNKTE, DA
" SPC( 24)"ES EIN TIER WAR.#13
":
RETURN
// -----------------------------
610 PRINT "ZÜGE GESPIELT.#13
":
SYS 5681:
SYS 5681:
PRINT "#05#12YZ#9E#92LEG BITTE EINE#13
":
SYS 5681
611 PRINT "#05#12ÄÖ#92#9ESPEICHERDIS-#13
":
SYS 5681:
PRINT "KETTE EIN UND#13
":
SYS 5681
612 PRINT "WÄHLE EINE NR.#12#05YZ#13
":
SYS 5681:
PRINT "#9EVON 0 BIS 9 #05#12ÄÖ#13
"
613 GET U$:
IF U$ < "0
" OR U$ > "9
" GOTO 613
614 SYS 5681:
SYS 5681:
PRINT " SPEICHERE#13
":
SYS 5681:
PRINT " SPIEL NR.
"U$"#13
"
615 U$ = "DDD.SAV
" + U$:
OPEN 1,8,15,"S:
" + U$:
CLOSE 1:
OPEN 1,8,1,U$ + ",P,W
"
616 PRINT# 1, CHR$ (0) CHR$ (192);:
FOR I = 0 TO 208:
PRINT# 1, CHR$ ( PEEK (49152 + I));:
NEXT
617 CLOSE 1:
SYS 5681:
SYS 5681:
PRINT "#9EBITTE LEGE JETZT#13
":
SYS 5681:
PRINT "WIEDER DIE#13
"
618 SYS 5681:
PRINT "SPIEL-DISKETTE#13
":
SYS 5681:
PRINT "EIN UND DRÜCKE#13
":
RETURN
// -----------------------------
619 POKE 51223,10:
SYS 4361:
POKE H,Q(I):
L = PEEK (50634 + M(I)):
SYS 5681:
PRINT "#9E
"M$(M(I));
620 SYS 5681:
IF PEEK (50900 + M(I)) = . THEN
L = .
621 SYS 5681:
PRINT MID$ ( STR$ (L),2)" PUNKTE.
";:
EF = EF + L:
IF EF > 999999 THEN
EF = 999999
622 RETURN
// -----------------------------
623 POKE S + 24,143:
POKE S + 15,31:
POKE S + 18,17:
RETURN
// -----------------------------
0