10 GOSUB 11000:
P = 6361:
A = .:
A(.) = - 12:
A(1) = 1:
A(2) = 12:
A(3) = - 1:
POKE 6777,4:
POKE 7463,3
20 D$ = "#13#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11#11
":
GOSUB 15000:
GOSUB 300:
POKE 50840,.
99 FOR I = 0 TO 6:
POKE 49279 + I,1:
NEXT :
GOSUB 3500
100 SYS 5440:
WH = PEEK (49157):
KP = .:
IF PEEK (49245) THEN
IF FN R(3) = 1 AND U$ = "@
" THEN
GOSUB 3250
102 GOSUB 3300:
IF PEEK (49244) = . THEN
GOSUB 3280
104 IF ( PEEK (49208) AND 31) = . THEN
IF PEEK (49244) THEN
POKE 49244, PEEK (49244) - 1:
GOSUB 10000
106 Z = 0:
SYS 5681:
PRINT "#05@#C7#9D
";
110 Z = Z + 1:
IF Z > 600 GOTO 200
112 GET U$:
IF U$ = "" GOTO 110
120 IF U$ = "#91
" AND PEEK (P) < > 5 GOTO 210
121 IF U$ = "#11
" AND PEEK (P) = 5 GOTO 5700
122 IF U$ = "#11
" THEN
PRINT "UMDREHEN#13
":
A = A + 2 + 4 * (A > 1):
T = .:
JJ = .:
GOSUB 300:
GOTO 240
124 IF U$ = "#1D
" AND PEEK (P) < > 5 THEN
PRINT "RECHTS DREHEN#13
":
A = A + 1 + 4 * (A = 3):
T = .:
GOSUB 300:
GOTO 240
126 IF U$ = "#9D
" AND PEEK (P) < > 5 THEN
T = .:
PRINT "LINKS DREHEN#13
":
A = A - 1 - 4 * (A = .):
GOSUB 300:
GOTO 240
130 IF U$ = "
" GOTO 200
136 IF U$ = "W
" THEN
GOSUB 3000:
GOTO 100
137 IF U$ = "E
" GOTO 800
138 IF U$ = "R
" THEN
GOSUB 3100:
GOTO 100
140 IF U$ = "Z
" THEN
H = 0:
GOSUB 4000:
GOTO 100
142 IF U$ = "I
" THEN
GOSUB 14000:
GOTO 100
143 IF U$ = "K
" GOTO 900
144 IF U$ = "B
" GOTO 5300
148 IF U$ = "S
" GOTO 6000
149 IF U$ = "_
" THEN
GOSUB 31000:
GOTO 100
199 PRINT "WIE BITTE..?#13
":
GOTO 100
200 PRINT "WARTEN...#13
":
GOTO 100
210 PRINT "VORWÄRTS#13
":
J = P + A(A):
IF P = 7488 AND JJ = . AND A = 3 THEN
SYS 5681:
GOTO 199
212 IF PEEK (J) = 1 OR ( PEEK (J) = 2 AND T = .) THEN
SYS 5681:
PRINT "#96RUMMS!#13
":
GOSUB 30053:
GOTO 100
214 IF PEEK (J) = 5 AND T = . THEN
SYS 5681:
PRINT "#96DIE TÜR LÄSST#13
":
SYS 5681:
PRINT "SICH NICHT#13
"
216 IF PEEK (J) = 5 AND T = . THEN
SYS 5681:
PRINT "ÖFFNEN.#13
":
GOTO 100
220 P = J:
GOSUB 30000:
T = .:
IF F = 1 THEN
SYS 5681:
PRINT "#9ADAS LICHT IST#13
":
SYS 5681:
PRINT "VERBRAUCHT!#13
"
222 F = F - 1:
IF F < 1 THEN
F = .
225 IF PEEK (P) = 5 GOTO 5600
230 GOSUB 300:
IF FN R(6) = 1 GOTO 5200
240 JJ = 0:
IF FN R(4) = 1 THEN
M = FN R(32) - 1:
IF INT (M / 4) < INT ((P - 6178) / 144) GOTO 1000
250 GOTO 100
300 IF PEEK (49354) THEN
PRINT D$ SPC( 7)"#91#9A#B1 #05
" MID$ ("NORDENOSTEN SÜDEN WESTEN
",1 + 6 * A,6)" #9A$#13
"
301 IF F GOTO 308
302 POKE 49666,76:
SYS 49650:
POKE 49666,32:
PRINT LEFT$ (D$,12)"#1D#1D#1D#1D#1D#97ES IST DUNKEL!
":
RETURN
// -----------------------------
308 FOR I = 1 TO 5:
J = PEEK (P + A(A) * I):
POKE 832 + I,.:
IF J = 1 OR J = 2 OR J = 5 THEN
POKE 832 + I,1
310 J = PEEK (P + A(A) * (I - 1) + A(A - 1 - 4 * (A = .))):
POKE 837 + I,.:
IF J = 1 OR J = 2 OR J = 5 THEN
POKE 837 + I,1
320 J = PEEK (P + A(A) * (I - 1) + A(A + 1 + 4 * (A = 3))):
POKE 842 + I,.:
IF J = 1 OR J = 2 OR J = 5 THEN
POKE 842 + I,1
330 NEXT :
SYS 49650
340 FOR I = 0 TO 5:
J = PEEK (P + A(A) * I):
IF J = . THEN
NEXT :
RETURN
// -----------------------------
341 IF (J = 1 OR J = 2 OR J = 5) AND I > . THEN
RETURN
// -----------------------------
342 IF J = 4 AND I = 5 THEN
PRINT LEFT$ (D$,13) SPC( 11)"#97#DF#A0
"
344 IF J = 3 AND I = 5 THEN
PRINT LEFT$ (D$,12) SPC( 11)"#97#DD#FF
"
352 IF J = 4 AND I = 4 THEN
PRINT LEFT$ (D$,14) SPC( 11)"#97#A3#A4
"
354 IF J = 3 AND I = 4 THEN
PRINT LEFT$ (D$,11) SPC( 11)"#97#A1#A2
"
362 IF J = 4 AND I = 3 THEN
PRINT LEFT$ (D$,14) SPC( 11)"#98#A5#A6#11#9D#9D#A7#A8
"
364 IF J = 3 AND I = 3 THEN
PRINT LEFT$ (D$,10) SPC( 11)"#98#A9#AA#11#9D#9D#AF#AC
"
366 IF J = 4 AND I = 2 THEN
PRINT LEFT$ (D$,15) SPC( 11)"#98#B3#B4#11#9D#9D#B5#B6#11#9D#9D#9D#B7#B8#B9#BA
"
368 IF J = 3 AND I = 2 THEN
PRINT LEFT$ (D$,9) SPC( 10)"#98#12@ABC#92#11#9D#9D#9D#BB#BC#11#9D#9D#BE#BF
"
370 IF J = 4 AND I = 1 THEN
PRINT LEFT$ (D$,15) SPC( 10)"#9B#12E#11#9DKFFM#91#9DH#11#11#9DH#9D#9D#9D#9DE#11#9DKFFM
";
371 IF J = 4 AND I = 1 THEN
PRINT "#11#9D#9D#9D#9D#9D#9DDKKFFMMI#11#9D#9D#9D#9D#9D#9D#9D#9D#9DDGEKFFMHJI#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D
";
372 IF J = 4 AND I = 1 THEN
PRINT "FFFFFFFFFF
"
374 IF J = 3 AND I = 1 THEN
PRINT LEFT$ (D$,6) SPC( 6)"#9B#12J!FKKFFMMFCL#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9DJIEKFFMHDG
";
375 IF J = 3 AND I = 1 THEN
POKE 1240,162:
PRINT "#11#9D#9D#9D#9D#9D#9D#9D#9D#9DJFKFFMFG#11#9D#9D#9D#9D#9D#9DKFFM#11#9D#9D#9D#9DE#11#9DKFFM#91#9DH
"
380 IF J = 4 AND I = . THEN
PRINT LEFT$ (D$,14) SPC( 9);:
FOR K = 1 TO 3
381 IF J = 4 AND I = . THEN
PRINT "#9B#12T#11#9DT#11#9DÜSSSS^#91#9DU#91#9DU#11#11#11#9D#9D#9D#9D#9D#9D
";:
NEXT
382 IF J = 4 AND I = . THEN
PRINT "T#9D#9D#9D#9D#9DDGE#91#9D#9DDKF#1D#1D#1D#1D#1D#11U#91FMI#11#9D#9DHJI#13
"
385 IF J = 3 AND I = . THEN
PRINT "#13#11#1D#1D#1D#1D#1D#12#9BI#11#9DJI#11#9DJFF#91#91T#11#9DT#11#9DÜSSSS^#91#9DU#91#9DU#11#11FFG#91#9DDG#91#9DD
";
386 IF J = 3 AND I = . THEN
PRINT "#11#11#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D
";:
FOR K = 1 TO 3
387 IF J = 3 AND I = . THEN
PRINT "#12Ü#11#9DT#11#9DT#91#91SSSS^#11#9DU#11#9DU#11#9D#9D#9D#9D#9D#9D#92
";:
NEXT
390 NEXT :
RETURN
// -----------------------------
800 PRINT "ENTZÜNDE
";:
IF PEEK (49355) THEN
PRINT "LAMPE#13
":
F = 1E38:
GOTO 810
801 PRINT "FACKEL#13
":
IF F THEN
SYS 5681:
PRINT "#96WOZU?#13
":
GOTO 100
802 IF PEEK (49356) = . THEN
SYS 5681:
PRINT "#96KEINE VORHANDEN!#13
":
GOTO 100
804 POKE 49356, PEEK (49356) - 1:
F = 100
810 SYS 5681:
PRINT "#9EBRENNT!#13
":
SYS 6041:
POKE S + 5,10:
POKE S + 4,129
812 FOR I = 30 TO 99:
POKE S + 1,I:
NEXT :
GOSUB 300:
GOTO 100
900 PRINT "KLETTERN#13
":
SYS 5681:
IF PEEK (P) < > 3 AND PEEK (P) < > 4 THEN
PRINT "#96NICHT HIER!#13
":
GOTO 100
910 PRINT "#9EDU KLETTERST DIE#13
"
920 SYS 5681:
PRINT "LEITER HINAB
";:
P = P + 144:
IF PEEK (P - 144) = 3 THEN
P = P - 288:
PRINT "#9DUF#13
"
930 SYS 5681:
J = INT ((P - 6178) / 144):
PRINT "NACH GEWÖLBE
"J"#9D.#13#05
" SPC( 15)J
940 IF J THEN
GOSUB 300:
GOTO 100
950 SYS 5681:
PRINT "#91#9ENACH DRAUSSEN. #13
":
POKE 833,1:
POKE 838,1:
POKE 843,1:
SYS 49650
960 GOSUB 6100:
PRINT "#9F
":
FOR I = 1 TO 9:
PRINT LEFT$ (D$,9 + I) SPC( 10)"#C9#C9#C9#C9
":
IF I = 7 THEN
PRINT "#95
"
970 NEXT :
FOR I = 0 TO 4E3:
NEXT :
POKE 2,0
975 PRINT "#90#93L#CF
" CHR$ (34)"DDD.KONJ
" CHR$ (34)",8
"
980 PRINT "#11#11#11#11R#D5
":
POKE 631,19:
POKE 632,13:
POKE 633,13:
POKE 198,3:
NEW
1000 POKE 830, PEEK (50420 + M):
POKE 831, PEEK (50452 + M):
SYS 50976
1010 SYS 5681:
PRINT "#9E
"M$(M);:
SYS 5681:
PRINT "GREIFT AN!#13
":
SYS 5681:
SYS 6041
1012 POKE S + 6,250:
POKE S + 13,250:
POKE S + 4,33:
POKE S + 11,33
1016 FOR I = 5 TO 80:
POKE S + 1,I:
POKE S + 8,90 - I:
NEXT :
POKE S + 4,32:
POKE S + 11,32:
POKE 198,0
1070 LD = 2:
SYS 5681:
PRINT "#05--- KONFLIKT ---#13
":
SYS 5681:
SYS 5681:
PRINT "#9EDU BENUTZT#13
"
1072 SYS 5681:
WA = PEEK (49246):
PRINT W$(WA)",#13
":
SYS 5681:
RS = PEEK (49247)
1074 SH = PEEK (49167):
PRINT W$(RS + 19);
1075 IF SH THEN
PRINT ",#13
":
SYS 5681:
PRINT MID$ ("KLEINERGROSSER
",SH * 7 - 6,7)" SCHILD
";
1076 PRINT ".#13
":
SYS 5681:
ML = INT (1.5 * PEEK (50628 + M)):
MG = .
1100 KP = 1:
GOSUB 3500:
SYS 5681
1108 IF PEEK (49279) THEN
PRINT "#9CDU BIST BETÄUBT.#13
":
GOTO 2000
1109 PRINT "#05@#C7#9D
";:
Z = .
1110 Z = Z + 1:
IF Z > 600 THEN
PRINT "WARTEN...#13
":
GOTO 2000
1120 GET U$:
IF U$ = "" GOTO 1110
1130 IF U$ = "#91
" OR U$ = "#9D
" OR U$ = "#1D
" GOTO 1200
1132 IF U$ = "#11
" GOTO 1800
1134 IF U$ = "
" THEN
Z = 666:
GOTO 1110
1135 IF U$ = "A
" GOTO 1300
1136 IF U$ = "W
" THEN
GOSUB 3000:
GOTO 2000
1137 IF U$ = "Z
" THEN
H = 1:
ZZ = 0:
GOSUB 4000:
GOTO 1210
1138 IF U$ = "_
" THEN
GOSUB 31000:
GOTO 2000
1140 IF U$ = "I
" THEN
GOSUB 14000:
GOTO 2000
1190 PRINT "WIE BITTE..?#13
":
GOTO 2000
1200 PRINT "BEWEGEN...?#13
":
SYS 5681:
PRINT "#9EERST KÄMPFEN!#13
":
GOTO 2000
1210 IF ZZ GOTO 1310
1220 GOTO 2000
1300 IF (WA > 10 AND WA < 16) OR WA = 17 THEN
IF LD < 2 GOTO 1900
1301 ZZ = .:
PRINT "ATTACKE MIT#13
":
SYS 5681:
PRINT W$(WA);
1310 LD = 0:
Z = 0:
IF WA > 10 AND WA < 18 THEN
Z = 1
1315 IF ZZ THEN
Z = 1:
LD = 2
1316 IF ZZ > 2 THEN
IF ZZ = 5 THEN
Z = 0
1510 SYS 5681:
PRINT "#96
"M$(M);:
SYS 5681:
J = FN R(20):
IF ZZ THEN
J = 3
1511 IF J < = AT GOTO 1520
1512 PRINT "VERFEHLT!#13
";:
GOSUB 30050:
GOTO 2000
1520 IF J < 3 THEN
PRINT "IST DURCH EINEN#13
":
SYS 5681:
POKE 53281,6:
GOSUB 30054
1521 IF J = 2 THEN
PRINT "GUTEN TREFFER#13
":
GOTO 1602
1522 IF J = 1 THEN
PRINT "GLÜCKSTREFFER#13
":
GOTO 1602
1530 IF PEEK (50756 + M) < FN R(20) OR ZZ > . GOTO 1600
1540 GOSUB 30052:
PRINT "HAT PARIERT.#13
":
GOTO 2000
1600 PRINT "IST
";:
POKE 53281,5:
GOSUB 30054
1602 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)
1603 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
1604 L = PEEK (50692 + M):
IF J = 1 THEN
L = .
1606 K = K - L:
IF K < 1 THEN
K = 1
1610 ML = ML - K:
POKE 53281,0:
IF ML < . THEN
ML = .:
Z2 = 1:
GOTO 1700
1620 SYS 5681:
L = ML / PEEK (50628 + M):
IF L > .8 THEN
PRINT "KAUM#13
":
SYS 5681:
PRINT "ANGEKRATZT.#13
":
GOTO 1632
1622 IF L > .6 THEN
PRINT "LEICHT#13
":
SYS 5681:
PRINT "VERLETZT.#13
":
GOTO 1632
1624 IF L > .4 THEN
PRINT "VERWUNDET.#13
":
GOTO 1632
1626 IF L > .2 THEN
PRINT "SCHWER#13
":
SYS 5681:
PRINT "VERLETZT.#13
":
GOTO 1632
1628 PRINT "AUF DER#13
":
SYS 5681:
PRINT "FLUCHT.#13
"
1632 IF (ZZ > . AND ZZ < > 2) OR (ZZ = . AND WA < > 13) GOTO 2000
1640 MG = MG + 1 - (ZZ = 2):
IF MG > 9 THEN
MG = 9
1650 SYS 5681:
PRINT "#99
"M$(M);:
SYS 5681:
PRINT "IST MIT FAKTOR
"MG;
1660 SYS 5681:
PRINT "VERGIFTET.#13
":
GOTO 2000
1700 GOSUB 13100
1710 G = FN R( INT ((P - 6178) / 144) * 4) + 1:
GOTO 3200
1800 PRINT "RÜCKZUG#13
":
SYS 6041:
POKE S + 5,10:
POKE S + 4,33:
FOR I = 5 TO 50:
POKE S + 1,I:
NEXT
1802 SYS 5681:
SYS 5681:
PRINT "-- DU FLIEHST --#13
":
SYS 5681:
SYS 5681
1810 L = PEEK (50596 + M)
1820 I = 0:
PRINT "#9EFÜR DEINE#13
":
SYS 5681:
PRINT "FEIGHEIT WERDEN#13
"
1822 SYS 5681:
PRINT "DIR
"L"PUNKTE#13
":
SYS 5681:
PRINT "ABGEZOGEN!#13
"
1830 L = - L:
SYS 5681:
J = 99:
GOSUB 13130:
A = A + 2 + 4 * (A > 1):
T = .:
GOSUB 300:
GOTO 99
1900 LD = 1:
PRINT W$(WA);:
SYS 5681:
PRINT "LADEN...#13
"
2000 LD = LD + 1:
POKE 198,0
2002 IF PEEK (49283) GOTO 1100
2004 J = PEEK (49282):
IF J THEN
IF J / 2 > INT (J / 2) GOTO 1100
2005 IF FN R(7) = 7 AND AS < AM THEN
GOSUB 3302
2012 IF MG = . GOTO 2020
2013 ML = ML - FN R(MG):
IF ML GOTO 2020
2015 SYS 5681:
PRINT "#96
"M$(M);:
SYS 5681:
PRINT "WURDE DURCH GIFT#13
"
2016 Z2 = 2:
GOTO 1700
2020 Z1 = 1:
IF ML / PEEK (50628 + M) < .21 AND 1 = FN R(3) GOTO 2800
2030 IF M = 11 OR M = 23 OR M = 29 GOTO 2910
2040 IF M = 19 AND FN R(3) = 1 GOTO 2940
2050 IF FN R(20) > PEEK (50724 + M) THEN
GOSUB 30050:
GOTO 1100
2320 IF FN R(20) > PA OR PEEK (49279) > . GOTO 2340
2330 GOSUB 30052:
SYS 5681:
PRINT "#9CDU PARIERST.#13
":
GOTO 1100
2340 POKE 53281,2:
GOSUB 30054:
K = PEEK (50660 + M) / 2 + 2
2341 ZZ = RS:
IF PEEK (49284) THEN
ZZ = ZZ + ZZ
2342 L = INT (K / 3 + .8):
K = L + FN R(K - L) - ZZ + SH * ( PEEK (49279) = 0):
IF K < 1 THEN
K = 1
2344 SYS 5681:
PRINT "#99
"M$(M);:
SYS 5681:
PRINT "HAT DICH#13
":
SYS 5681
2345 IF K = 1 OR K > 12 THEN
PRINT "SEHR
";
2346 IF K < 4 THEN
PRINT "SCHWACH#13
":
GOTO 2350
2347 IF K < 7 THEN
PRINT "LEICHT#13
":
GOTO 2350
2348 IF K < 10 GOTO 2350
2349 PRINT "SCHWER#13
"
2350 SYS 5681:
PRINT "GETROFFEN!#9D
";:
POKE 53281,0:
HP = HP - K:
IF HP < 1 THEN
HP = .:
K = 3:
GOTO 13000
2351 POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231)
2360 J = PEEK (50788 + M):
IF J = . OR FN R(20) < = GE GOTO 2490
2400 PRINT " #13
":
SYS 5681:
PRINT "UND
";:
IF J = 1 GOTO 2420
2410 PRINT "BETÄUBT!#13
":
POKE 49279, FN R(6) + 1:
SYS 5681:
POKE 55723,4:
POKE 1451,2:
GOTO 2490
2420 PRINT "VERGIFTET!#13
":
J = PEEK (49245) + 1:
IF J > 9 THEN
J = 9
2430 POKE 49245,J:
POKE 1449,J + 48:
POKE 55720,13
2490 PRINT "#13#11#11
" SPC( 31)"#99
" RIGHT$ ("00
" + MID$ ( STR$ (HP),2),3):
GOTO 1100
2800 GOSUB 30052:
SYS 5681:
PRINT "#99
"M$(M);
2810 SYS 5681:
PRINT "IST GEFLOHEN.#13
":
GOSUB 300:
L = 1:
GOTO 1710
2910 IF RND (TI) > .2 GOTO 2050
2920 POKE 53281,1:
SYS 5681:
GOSUB 30052:
IF FN R(20) < = KG THEN
POKE 53281,0:
GOTO 1100
2922 IF PEEK (49285) THEN
POKE 53281,10:
POKE 53280,10:
GOSUB 30052:
POKE 53281,0:
POKE 53280,0
2924 IF PEEK (49285) THEN
SYS 5681:
PRINT "#9AZAUBERBANN#13
":
SYS 5681:
PRINT "ABGEWEHRT!#13
":
GOTO 1100
2925 PRINT "#9CDIE MAGIE DES#13
":
SYS 5681:
PRINT M$(M)"S#13
":
SYS 5681:
PRINT "HAT DICH#13
"
2930 SYS 5681:
POKE 53281,0:
GOSUB 30054:
GOTO 2410
2940 POKE 53281,8:
SYS 5681:
GOSUB 30052
2942 PRINT "#81KOBOLD STIEHLT#13
":
SYS 5681:
PRINT "DIR NAHRUNG!#13
"
2944 POKE 53281,0:
NA = NA - FN R(NA / 4) - 4:
IF NA < 1 THEN
NA = .
2946 POKE 49244,NA:
GOSUB 10000:
GOTO 1100
3000 PRINT "WAFFE BENUTZEN#13
":
SYS 5681:
PRINT "#9E-WELCHE? (A-S) #05#C7#9D
";:
Z = 0
3010 Z = Z + 1:
GET U$:
IF Z < 600 AND U$ = "" GOTO 3010
3020 IF U$ < "A
" OR U$ > "S
" THEN
U$ = CHR$ ( PEEK (49246) + 65)
3030 PRINT U$;:
SYS 5681:
J = ASC (U$) - 65:
PRINT "#96
"W$(J);:
SYS 5681
3040 IF J THEN
IF PEEK (49247 + J) = . THEN
PRINT "HAST DU NICHT!#13
":
SYS 5681:
RETURN
// -----------------------------
3042 IF GE < PEEK (50540 + J) THEN
PRINT "DU BIST NICHT#13
":
SYS 5681:
PRINT "GESCHICKT GENUG,#13
"
3044 IF GE < PEEK (50540 + J) THEN
SYS 5681:
PRINT "EINE SOLCHE#13
":
SYS 5681:
PRINT "WAFFE ZU FÜHREN.#13
":
RETURN
// -----------------------------
3050 WA = J:
POKE 49246,J:
PRINT "BEREIT.#13
":
SYS 5681:
SH = 0:
POKE 49167,0:
IF J > 6 AND J < 18 THEN
RETURN
// -----------------------------
3060 I = 49274:
IF J < 18 THEN
SYS 5681:
GOTO 3080
3070 PRINT "#9E-SCHILD? (J/N) #05#C7#9D
";
3072 GET U$:
IF U$ = "N
" THEN
PRINT "N#13
":
RETURN
// -----------------------------
3074 IF U$ = "J
" THEN
PRINT "J#13
":
SYS 5681:
GOTO 3080
3076 GOTO 3072
3080 IF PEEK (I) THEN
SH = 2:
POKE 49167,2:
PRINT "#96DU BENUTZT DEN#13
":
SYS 5681:
PRINT "GROSSEN SCHILD.#13
":
RETURN
// -----------------------------
3082 IF PEEK (49273) THEN
SH = 1:
POKE 49167,1:
PRINT "#96DU BENUTZT DEN#13
":
SYS 5681:
PRINT "KLEINEN SCHILD.#13
"
3084 RETURN
// -----------------------------
3100 PRINT "RÜSTUNG ANLEGEN#13
":
SYS 5681:
PRINT "#9E-WELCHE? (A-G) #05#C7#9D
";:
Z = 0
3110 Z = Z + 1:
GET U$:
IF Z < 600 AND U$ = "" GOTO 3110
3120 IF U$ < "A
" OR U$ > "G
" THEN
U$ = CHR$ ( PEEK (49247) + 65)
3130 PRINT U$;:
SYS 5681:
J = ASC (U$) - 65:
PRINT "#96
"W$(J + 19);:
SYS 5681
3140 IF J THEN
IF PEEK (49266 + J) = . THEN
PRINT "HAST DU NICHT!#13
":
SYS 5681:
RETURN
// -----------------------------
3142 IF SR < PEEK (50559 + J) THEN
PRINT "DU BIST ZU#13
":
SYS 5681:
PRINT "SCHWACH, UM EINE#13
":
SYS 5681
3144 IF SR < PEEK (50559 + J) THEN
PRINT "SO SCHWERE RÜS-#13
":
SYS 5681:
PRINT "TUNG ZU TRAGEN.#13
":
RETURN
// -----------------------------
3150 RS = J:
POKE 49247,J:
PRINT "ANGELEGT.#13
":
SYS 5681:
RETURN
// -----------------------------
3200 SYS 5681:
PRINT "#05----- SIEG -----#13
":
SYS 5681:
IF L < 1 OR PEEK (50820 + M) = . GOTO 99
3210 SYS 5681:
PRINT "#9EDU ERBEUTEST#13
":
SYS 5681:
PRINT MID$ ( STR$ (G),2)" GOLDSTÜCKE!#13
"
3220 SYS 5681:
GP = GP + G:
IF GP > 5E4 THEN
GP = 5E4
3230 POKE 49243,GP / 256:
POKE 49242,GP - 256 * PEEK (49243):
GOSUB 10000:
GOTO 99
3250 GOSUB 30054:
SYS 5681
3252 PRINT "#99DAS GIFT WIRKT!
":
HP = HP - FN R( PEEK (49245)):
K = 1
3260 IF HP < 1 THEN
HP = .:
GOTO 13000
3262 POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
GOTO 10000
3280 GOSUB 30054:
SYS 5681
3282 PRINT "#9FDU HUNGERST!
":
K = 2:
GOTO 3260
3294 PRINT "#99VERGIFTET!#13
":
POKE 892,H:
SYS 4361:
J = PEEK (49245) + 1:
IF J > 9 THEN
J = 9
3296 POKE 49245,J:
POKE 1449,J + 48:
POKE 55720,13:
RETURN
// -----------------------------
3300 IF FN R(2) > 1 OR AS = > AM THEN
RETURN
// -----------------------------
3302 AS = AS + 1:
POKE 49235,AS / 256:
POKE 49234,AS - 256 * PEEK (49235)
3304 PRINT "#13#11#11#11#9F
" SPC( 31) RIGHT$ ("00
" + MID$ ( STR$ (AS),2),3):
RETURN
// -----------------------------
3404 PRINT "#99VERGIFTET!#13
":
SYS 5681:
J = PEEK (49245) + 1:
IF J > 9 THEN
J = 9
3405 GOTO 3296
3500 J = PEEK (49282):
IF J THEN
POKE 49282,J - 1:
IF J = 1 THEN
POKE 1456,32
3502 J = PEEK (49283):
IF J THEN
POKE 49283,J - 1:
IF J = 1 THEN
POKE 1458,32
3504 J = PEEK (49284):
IF J THEN
POKE 49284,J - 1:
IF J = 1 THEN
POKE 1454,32
3505 J = PEEK (49285):
IF J THEN
POKE 49285,J - 1:
IF J = 1 THEN
POKE 1454,32
3506 J = PEEK (49279):
IF J THEN
POKE 49279,J - 1:
IF J = 1 THEN
POKE 1451,32
3590 RETURN
// -----------------------------
4000 PRINT "ZAUBERSPRUCH#13
":
SYS 5681:
PRINT "#9E-WELCHER? #05#C7#9D
";:
Z = 0
4010 Z = Z + 1:
GET U$:
IF Z < 600 AND U$ = "" GOTO 4010
4020 IF U$ = > "A
" AND U$ < = "P
" GOTO 4040
4030 PRINT "#9EKEINER#13
":
RETURN
// -----------------------------
4040 PRINT U$;:
SYS 5681:
J = ASC (U$) - 64:
PRINT Z$(J - 1);:
SYS 5681
4041 IF J = 5 OR J = 12 OR J = 13 OR J = 8 OR J = 16 GOTO 4060
4042 IF PEEK (49303 + J) = 0 THEN
PRINT "#96KANNST DU NICHT!#13
":
SYS 5681:
RETURN
// -----------------------------
4044 Z = PEEK (50495 + J):
FOR I = 0 TO 7:
IF (2 ^ I AND Z) = . GOTO 4046
4045 IF PEEK (49336 + I) = . THEN
PRINT "#96ZU WENIG#13
":
SYS 5681:
PRINT "INGREDENZIEN!#13
":
SYS 5681:
RETURN
// -----------------------------
4046 NEXT :
PRINT "#81DU KONZENTRIERST#13
":
SYS 5681:
PRINT "DICH...#13
":
SYS 5681
4047 FOR I = 0 TO 7:
IF (2 ^ I AND Z) THEN
POKE 49336 + I, PEEK (49336 + I) - 1
4048 NEXT
4050 IF J < 9 THEN
ON J GOTO 4120,4150,4250,4200,4060,4350,4400,4060
4052 ON J - 8 GOTO 4500,4550,4600,4060,4050,4750,4800,4060
4060 SYS 5681:
PRINT "#96WOZU JETZT?#13
":
SYS 5681:
RETURN
// -----------------------------
4085 SYS 5681:
PRINT "#96NICHT GENUG#13
":
SYS 5681:
PRINT "ASTRALENERGIE!#13
":
RETURN
// -----------------------------
4090 SYS 5681:
SYS 6041:
PRINT "#96GELINGT NICHT!#13
"
4091 SYS 5681:
POKE S + 5,10:
POKE S + 4,33:
FOR I = 0 TO 45:
POKE S + 1,46 - I:
NEXT :
GOTO 3304
4100 AS = AS - Z:
POKE 49235,AS / 256:
POKE 49234,AS - 256 * PEEK (49235):
GOTO 10000
4110 SYS 5681:
PRINT "#9FES GELINGT!#13
":
RETURN
// -----------------------------
4120 Z = 2:
IF AS < Z GOTO 4085
4121 IF H = 1 GOTO 4060
4124 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4126 GOSUB 4110:
GOSUB 3304:
POKE 53281,7:
FOR I = 1 TO 9:
GOSUB 30050:
NEXT :
POKE 53281,0:
F = 100
4128 GOTO 300
4150 Z = 5:
IF AS < Z GOTO 4085
4154 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4160 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,10:
POKE 53281,13:
POKE 53281,13:
POKE S + 4,17
4162 FOR I = 1 TO 66:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0
4170 IF PEEK (49245) = 0 OR AS < 2 THEN
RETURN
// -----------------------------
4172 POKE 49245, PEEK (49245) - 1:
AS = AS - 3:
GOSUB 3302:
GOSUB 10008:
GOTO 4170
4200 IF AS < 10 GOTO 4085
4201 Z = 10:
GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4202 GOSUB 4110:
SYS 5681:
PRINT "#9E-WIEVIEL?
";
4204 PRINT "#1F000#9D#9D#9D
";:
J = 0:
FOR I = 0 TO 2
4206 GET U$:
IF U$ = CHR$ (20) THEN
PRINT LEFT$ ("#9D#9D
",I);:
GOTO 4204
4208 IF U$ < "0
" OR U$ > "9
" GOTO 4206
4210 PRINT "#05
"U$;:
J = J + ( ASC (U$) - 48) * 10 ^ (2 - I):
NEXT :
IF J > AS THEN
J = AS
4214 GOSUB 3304:
SYS 6041:
POKE S + 5,10:
POKE 53281,5:
POKE 53281,5:
POKE S + 4,17
4216 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
4218 IF J > HM - HP THEN
J = HM - HP
4220 AS = AS - J - 1:
HP = HP + J:
GOSUB 3302:
POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
GOTO 10000
4250 Z = 10:
IF AS < Z GOTO 4085
4251 IF KP = . GOTO 4060
4252 IF PEEK (49285) GOTO 4090
4253 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4254 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,10:
POKE 53281,2:
POKE 53281,2:
POKE S + 4,33
4262 FOR I = 0 TO 150 STEP 3:
POKE S + 1,153 - I:
NEXT :
POKE 53281,0:
POKE 53280,0
4264 POKE 49284,13:
POKE 55726,7:
POKE 1454,19:
RETURN
// -----------------------------
4350 Z = 15:
IF AS < Z GOTO 4085
4351 IF KP = . GOTO 4060
4352 IF PEEK (49284) GOTO 4090
4353 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4354 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,10:
POKE 53281,10:
POKE 53281,10:
POKE S + 4,33
4362 FOR I = 3 TO 193 STEP 2:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0
4364 POKE 49285,13:
POKE 55726,7:
POKE 1454,12:
RETURN
// -----------------------------
4400 Z = 20:
IF AS < Z GOTO 4085
4401 IF KP = . GOTO 4060
4403 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4404 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,11:
POKE S + 4,17:
FOR I = 3 TO 150 STEP 3
4406 POKE S + 1,I:
POKE 53281,3:
POKE 53280,3:
POKE S + 1,153 - I:
POKE 53281,0:
POKE 53280,0:
NEXT
4408 POKE 49282,23:
POKE 55728,3:
POKE 1456,7:
RETURN
// -----------------------------
4500 Z = 5:
IF AS < Z GOTO 4085
4501 IF KP = . GOTO 4060
4503 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4504 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,10:
POKE S + 4,33:
POKE 53281,14:
POKE 53280,14
4506 FOR I = 153 TO 3 STEP - 3:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0:
ZZ = 1:
RETURN
// -----------------------------
4550 Z = 7:
IF AS < Z GOTO 4085
4551 IF KP = . GOTO 4060
4552 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4554 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,10:
POKE S + 4,129:
POKE 53281,13:
POKE 53280,13
4556 FOR I = 123 TO 3 STEP - 3:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0:
ZZ = 2:
RETURN
// -----------------------------
4600 Z = 10:
IF AS < Z GOTO 4085
4601 IF KP = . GOTO 4060
4602 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4604 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,10:
POKE S + 4,129:
POKE 53281,10:
POKE 53280,10
4606 FOR I = 3 TO 123 STEP 3:
POKE S + 1,I:
NEXT :
POKE 53281,0:
POKE 53280,0:
ZZ = 3:
RETURN
// -----------------------------
4750 Z = 25:
IF AS < Z GOTO 4085
4751 IF KP = . GOTO 4060
4752 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4754 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,11:
POKE S + 4,17:
POKE 53281,15:
POKE 53280,15
4756 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
4758 POKE 49283,13:
POKE 55730,15:
POKE 1458,26:
RETURN
// -----------------------------
4800 Z = 20:
IF AS < Z GOTO 4085
4801 IF KP = . GOTO 4060
4802 GOSUB 4100:
IF FN R(20) > CH GOTO 4090
4804 GOSUB 4110:
GOSUB 3304:
SYS 6041:
POKE S + 5,11:
POKE S + 4,129:
POKE 53281,6:
POKE 53280,6
4806 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
4808 ZZ = 5:
RETURN
// -----------------------------
4990 SYS 6041:
POKE S + 5,11:
POKE S + 1,3:
POKE S + 4,129
4992 POKE 53281,Z:
POKE 53280,Z:
FOR J = 0 TO 99:
NEXT :
RETURN
// -----------------------------
5200 K = INT ((P - 6178) / 144):
H = FN R(9) - 1:
IF H > K GOTO 240
5202 IF H = . THEN
G = FN R(K * 4) + 1:
SYS 5681:
PRINT "#9EDU FINDEST#13
":
SYS 5681:
PRINT "EINE
";
5204 IF H = . THEN
PRINT MID$ ("N BEUTEL TRUHE
", FN R(1) * 8 + 1,8)" MIT#13
"
5206 IF H = . THEN
SYS 5681:
PRINT MID$ ( STR$ (G),2)" GOLDSTÜCKEN!#13
":
FOR I = 1 TO G * 1.5:
GOSUB 30052:
NEXT
5208 IF H = . GOTO 3220
5210 SYS 5681:
PRINT "#9EIN EINE FALLE#13
":
SYS 5681:
PRINT "GELAUFEN:#13
":
SYS 5681
5212 IF GE > FN R(22) THEN
GOSUB 30052:
PRINT "#9BGERADE NOCH#13
":
SYS 5681:
PRINT "AUSGEWICHEN.#13
":
GOTO 100
5220 IF H > 1 GOTO 5230
5221 POKE 53281,4:
GOSUB 30054:
PRINT "#9BSTEINSCHLAG!#13
":
J = FN R(6) + 1
5222 POKE 53281,0:
SYS 5681:
PRINT "#96
" MID$ ( STR$ (J),2)" SCHADENSPKT.#13
"
5223 HP = HP - J:
IF HP < 1 THEN
HP = .
5224 POKE 49231,HP / 256:
POKE 49230,HP - 256 * PEEK (49231):
GOSUB 10000:
IF HP GOTO 100
5225 K = 4:
GOTO 13000
5230 IF H > 2 GOTO 5240
5231 IF F = . GOTO 100
5232 PRINT "#9AMAGISCHER WIND#13
":
SYS 5681:
PRINT "BLÄST LICHT AUS!#13
"
5233 F = .:
GOSUB 30050:
GOSUB 300:
GOTO 100
5240 IF H > 3 GOTO 5250
5241 POKE 53281,3:
PRINT "#9BSÄURE TROPFT#13
":
SYS 5681:
PRINT "HERAB!#13
":
FOR I = 0 TO 9:
GOSUB 30000:
NEXT
5242 J = FN R(11) + 1:
GOTO 5222
5250 IF H > 4 GOTO 5260
5251 POKE 53281,13:
GOSUB 30050:
PRINT "#99GAS STRÖMT AUS;#13
":
SYS 5681:
PRINT "DU BIST#13
"
5252 SYS 5681:
POKE 53281,0:
GOSUB 3404:
GOTO 100
5260 IF H > 5 GOTO 5270
5261 J = FN R(19) + 1:
PRINT "#9CMAGISCHES FELD#13
":
SYS 5681:
PRINT "ENTZIEHT DIR
"J;:
SYS 5681
5262 PRINT "ASTRALPUNKTE!#13
":
FOR I = 0 TO 9:
POKE 53281,3:
GOSUB 30050:
POKE 53281,4:
GOSUB 30054:
NEXT
5263 POKE 53281,.:
AS = AS - J:
IF AS < 1 THEN
AS = .
5264 POKE 49235,AS / 256:
POKE 49234,AS - 256 * PEEK (49235):
GOSUB 10000:
GOTO 100
5270 IF H > 6 GOTO 5280
5271 POKE 53281,14:
PRINT "#9BEIN PFEIL AUS#13
":
SYS 5681:
PRINT "DEM DUNKEL!#13
":
GOSUB 30050
5272 J = FN R(17) + 1:
GOTO 5222
5280 IF H > 7 GOTO 5290
5281 POKE 53281,5:
GOSUB 30054:
PRINT "#99DURCH EINE#13
":
SYS 5681:
PRINT "NADELFALLE#13
"
5282 POKE 49245, PEEK (49245) + 1:
SYS 5681:
PRINT "UM ZWEI STUFEN#13
":
GOTO 5252
5290 POKE 53281,7:
PRINT "#81EXPLOSION!#13
":
SYS 6041:
POKE S + 5,12:
POKE S + 1,3:
POKE S + 4,129
5292 J = FN R(26) + 1:
GOTO 5222
5300 PRINT "BENUTZE#13
":
SYS 5681:
PRINT "#9E-WAS? #05
";:
N$ = "":
J = 0
5310 PRINT "#C7#9D
";
5320 GET U$:
IF U$ < "A
" OR U$ > "Z
" GOTO 5320
5330 PRINT U$;:
N$ = N$ + U$:
J = J + 1:
IF J < 4 GOTO 5310
5340 IF N$ = "DRAC
" OR N$ = "KRAL
" GOTO 5400
5350 IF N$ = "FLOE
" OR N$ = "GLAS
" GOTO 5500
5360 SYS 5681:
PRINT "#96NICHT JETZT#13
":
GOTO 100
5370 SYS 5681:
PRINT "#96HAST DU NICHT!#13
":
GOTO 100
5400 IF PEEK (49358) = . GOTO 5370
5405 IF RS < 6 OR PEEK (P + A(A)) < > 5 GOTO 5360
5410 GOSUB 30050:
FOR I = 1 TO 9:
PRINT LEFT$ (D$,9 + I) SPC( 8)"
":
NEXT :
T = 1
5420 SYS 5681:
PRINT "#9FDIE TÜR ÖFFNET#13
":
SYS 5681:
PRINT "SICH!#13
":
JJ = 1:
GOTO 100
5500 IF PEEK (49350) = . GOTO 5370
5505 IF PEEK (P) < > 5 OR PEEK (49351) = 1 GOTO 5360
5510 SYS 5681:
PRINT "#9CDU SPIELST EINEN#13
":
SYS 5681:
PRINT "TON AN.#13
"
5520 SYS 6041:
POKE S + 5,128:
POKE S + 6,250:
POKE S + 1,30:
POKE S + 4,17
5522 FOR I = 0 TO 444:
NEXT :
POKE S + 4,16:
FOR I = 0 TO 500:
NEXT
5524 SYS 5681:
PRINT "#9EDER SPLITTER#13
":
SYS 5681:
PRINT "REAGIERT!#13#11#11#11
" SPC( 11)"#05#12*+#11#9D#9D,-
"
5530 SYS 6041:
POKE S + 5,128:
POKE S + 6,250:
POKE S + 1,30:
POKE S + 4,13
5532 FOR I = 0 TO 444:
NEXT :
POKE S + 4,32:
FOR I = 0 TO 500:
NEXT
5534 SYS 5681:
PRINT "#9FER SCHWEBT#13
":
SYS 5681:
PRINT "HERAB!#13
"
5540 FOR I = 3 TO 13:
PRINT LEFT$ (D$,I) SPC( 11)"
";:
IF I > 7 THEN
PRINT "#98#9D#9D#D1#D2
";:
IF I / 2 > INT (I / 2) THEN
PRINT "#9D#9D#D3#D4
";
5542 PRINT "#11#9D#9D#9F#12&'#11#9D#9D()
":
FOR J = 0 TO 444:
NEXT J,I
5550 SYS 5681:
SYS 5681:
PRINT "#9EDU NIMMST DEN#13
":
SYS 5681:
PRINT "SPLITTER!#13
"
5552 PRINT LEFT$ (D$,14) SPC( 11)"#98#D1#D2#11#9D#9D#D3#D4
":
POKE 49351,1:
GOSUB 30052:
GOTO 100
5600 POKE 833,0:
POKE 834,1:
POKE 838,1:
POKE 843,1:
POKE 839,1:
POKE 844,1:
SYS 49650
5610 SYS 5681:
PRINT "#9FDU BETRITTST#13
":
SYS 5681:
PRINT "EINEN GRÖSSEREN#13
":
SYS 5681:
PRINT "RAUM - DAS#13
"
5611 SYS 5681:
PRINT "SCHATZLAGER DES#13
":
SYS 5681:
PRINT "RIESENLINDWURMS.#13
"
5612 IF PEEK (49351) GOTO 100
5613 IF PEEK (49357) GOTO 5618
5614 SYS 5681:
PRINT SPC( 15)"#05#C7#9D
";:
POKE 198,0:
WAIT 198,1:
POKE 198,0:
PRINT " #13
":
SYS 5681
5615 PRINT "#9EDU FINDEST 500#13
":
SYS 5681:
PRINT "GOLDSTÜCKE!#13
":
FOR I = 1 TO 50:
GOSUB 30052:
NEXT
5616 GP = GP + 500:
POKE 49357,1:
IF GP > 5E4 THEN
GP = 5E4
5617 POKE 49243,GP / 256:
POKE 49242,GP - 256 * PEEK (49243):
GOSUB 10000
5618 SYS 5681:
SYS 5681:
PRINT "#9FDANN BEMERKST DU#13
":
SYS 5681:
PRINT "AN DER DECKE#13
"
5619 SYS 5681:
PRINT "#9FETWAS GLITZERN-#13
":
SYS 5681:
PRINT "DES.#13
"
5620 SYS 5681:
PRINT SPC( 15)"#05#C7#9D
";:
POKE 198,0:
WAIT 198,1:
POKE 198,0:
PRINT " #13
":
SYS 5681
5621 PRINT "#13#11#11#11
" SPC( 11)"#12#9F&'#11#9D#9D()
":
SYS 5681:
PRINT "#9FES IST DER #13
"
5622 SYS 5681:
PRINT "KRISTALLSPLIT-#13
":
SYS 5681:
PRINT "TER. DU ERKENNST#13
"
5623 SYS 5681:
PRINT "IHN GLEICH WIE-#13
":
SYS 5681:
PRINT "DER. ABER ER#13
"
5624 SYS 5681:
PRINT "HÄNGT ZU HOCH#13
":
SYS 5681:
PRINT "FÜR DICH UND#13
"
5625 SYS 5681:
PRINT "NACH IHM ZU WER-#13
":
SYS 5681:
PRINT "FEN? ER IST#13
"
5626 SYS 5681:
PRINT "ZERBRECHLICH!#13
":
GOTO 100
5700 PRINT "DU VERLÄSST#13
":
SYS 5681:
PRINT "DEN RAUM.#13
":
P = P - A(A):
A = 1:
GOSUB 300:
GOTO 100
6000 PRINT "SUCHEN
";:
FOR I = 0 TO 4:
PRINT ".
";:
FOR J = 0 TO 200:
NEXT J,I:
SYS 5681:
PRINT "#9EDU FINDEST
";
6010 H = .:
IF PEEK (P + A(A)) = 2 THEN
H = 1
6012 IF PEEK (P + A(A)) = 5 AND F > . THEN
H = 2
6020 IF H = 1 THEN
PRINT " EINEN#13
":
SYS 5681:
PRINT "GEHEIMGANG!#13
"
6022 IF H = 1 THEN
GOSUB 30050:
T = 1:
IF F THEN
GOSUB 6100
6030 IF H = 2 THEN
PRINT " EINE#13
":
SYS 5681:
PRINT "MAGISCHE TÜR!#13
":
GOTO 6200
6090 IF H = . THEN
SYS 5681:
PRINT "NICHTS.#13
"
6099 GOTO 100
6100 PRINT LEFT$ (D$,9) SPC( 8)"#97#D9#DA#C9#C9#C9#C9#DB#DC
"
6102 FOR I = 1 TO 9:
PRINT LEFT$ (D$,9 + I) SPC( 8)"#C9#C9 #C9#C9
":
NEXT
6104 PRINT SPC( 8)"#C9#CC #CD#C9#11#9D#9D#9D#9D#9D#9D#9D#9D#CC #CD
":
RETURN
// -----------------------------
6200 PRINT LEFT$ (D$,9)"#1D#1D#1D#1D#1D#1D#97#D9#DA#C9#C9#C9#C9#C9#C9#C9#C9#DB#DC
"
6202 FOR I = 1 TO 9:
PRINT LEFT$ (D$,9 + I)"#1D#1D#1D#1D#1D#1D#C9#C9#9E#C9#C9#C9#C9#C9#C9#C9#C9#97#C9#C9
":
NEXT
6204 T = 1:
PRINT "#1D#1D#1D#1D#1D#1D#C9#CC #CD#C9
":
PRINT "#91#1D#1D#1D#1D#1D#1D#CC #CD
"
6206 POKE 1432,165:
POKE 1672,165:
POKE 1558,164:
FOR I = 1 TO 9:
GOSUB 30052:
NEXT :
IF RS < 6 GOTO 100
6207 SYS 5681:
SYS 5681:
PRINT "#9FDU TRÄGST DIE#13
":
SYS 5681:
PRINT W$(25)
6208 SYS 5681:
PRINT "AUS DRACHEN-#13
":
SYS 5681:
PRINT "SCHUPPEN. DIE#13
":
SYS 5681:
PRINT "TÜR REAGIERT AUF#13
"
6209 SYS 5681:
PRINT "DIE ANGEBLICHE#13
":
SYS 5681:
PRINT "ANNÄHERUNG DES#13
"
6210 SYS 5681:
PRINT "RIESENLINDWURMS.#13
":
GOSUB 6230:
PRINT "#9FES ERSCHEINT#13
"
6211 SYS 5681:
PRINT "EIN SCHLÜSSEL-#13
":
SYS 5681:
PRINT "LOCH IN FORM#13
"
6212 SYS 5681:
PRINT "EINER DRACHEN-#13
":
SYS 5681:
PRINT "KRALLE.#13
"
6220 POKE 1598,163:
GOSUB 30054:
T = .:
GOTO 100
6230 SYS 5681:
PRINT SPC( 15)"#05#C7
";:
POKE 198,0:
WAIT 198,1:
POKE 198,0:
PRINT "#9D #13
":
SYS 5681:
RETURN
// -----------------------------
10000 HP = PEEK (49230) + 256 * PEEK (49231):
U$ = "00
" + MID$ ( STR$ (HP),2)
10001 PRINT "#13#11#11
" SPC( 31)"#99
" RIGHT$ (U$,3);
10002 HM = PEEK (49232) + 256 * PEEK (49233):
U$ = "00
" + MID$ ( STR$ (HM),2):
PRINT "#1D
" RIGHT$ (U$,3)
10004 AS = PEEK (49234) + 256 * PEEK (49235):
U$ = "00
" + MID$ ( STR$ (AS),2)
10005 PRINT SPC( 31)"#91#9F
" RIGHT$ (U$,3);
10006 AM = PEEK (49236) + 256 * PEEK (49237):
U$ = "00
" + MID$ ( STR$ (AM),2):
PRINT "#1D
" RIGHT$ (U$,3)
10008 AT = PEEK (49228):
U$ = "0
" + MID$ ( STR$ (AT),2):
PRINT "#96
" SPC( 29) RIGHT$ (U$,2);
10009 PA = PEEK (49229):
U$ = "0
" + MID$ ( STR$ (PA),2):
PRINT "#1E
" SPC( 6) RIGHT$ (U$,2)
10010 SR = PEEK (49224):
U$ = "0
" + MID$ ( STR$ (SR),2):
PRINT "#9C#91
" SPC( 29) RIGHT$ (U$,2);
10011 GE = PEEK (49225):
U$ = "0
" + MID$ ( STR$ (GE),2):
PRINT "#9E
" SPC( 6) RIGHT$ (U$,2)
10012 KG = PEEK (49226):
U$ = "0
" + MID$ ( STR$ (KG),2):
PRINT "#9B
" SPC( 29) RIGHT$ (U$,2);
10013 CH = PEEK (49227):
U$ = "0
" + MID$ ( STR$ (CH),2):
PRINT "#9A
" SPC( 6) RIGHT$ (U$,2)
10014 EF = PEEK (49238) + 256 * PEEK (49239) + 65536 * PEEK (49240):
U$ = "00000
" + MID$ ( STR$ (EF),2)
10015 PRINT "#91#99
" SPC( 29) RIGHT$ (U$,6);
10016 SU = PEEK (49241):
U$ = "0
" + MID$ ( STR$ (SU),2):
PRINT "#1D
" RIGHT$ (U$,2)
10017 GP = PEEK (49242) + 256 * PEEK (49243):
U$ = "0000
" + MID$ ( STR$ (GP),2):
PRINT "#9E
" SPC( 34) RIGHT$ (U$,5)
10018 NA = PEEK (49244):
U$ = "00
" + MID$ ( STR$ (NA),2):
PRINT "#91#81
" SPC( 36) RIGHT$ (U$,3)
10019 PRINT SPC( 24)"#99G
";:
PO = PEEK (49245):
POKE 1449,32 - 16 * (PO > 0) + PO:
IF PO = . THEN
PRINT "#9D#9D#05G
"
10020 WF = PEEK (49246):
RS = PEEK (49247):
SH = PEEK (49248):
RETURN
// -----------------------------
11000 POKE 53281,0:
POKE 53280,0:
POKE 53272,18:
SYS 5454:
SYS 4812:
S = 54272:
POKE 650,255
11001 PRINT "#13#1D#1D#1D#1D#1D#9A#B1 #05
";:
J = PEEK (49246):
IF J THEN
IF PEEK (49247 + J) = 0 THEN
POKE 49246,0
11002 DIM M$(31),W$(27):
FOR I = 0 TO 31:
READ M$(I):
NEXT :
FOR I = 0 TO 27:
READ W$(I):
NEXT
11003 PRINT "GEWÖLBE 1 #9A$
":
J = PEEK (49247):
IF J THEN
IF PEEK (49266 + J) = . THEN
POKE 49247,.
11004 DEF FN R(X) = INT (X * RND (TI) + 1):
FOR I = 0 TO 2:
POKE 55723 + I,4:
NEXT
11005 J = PEEK (49167):
IF J THEN
IF PEEK (49272 + J) = 0 THEN
POKE 49167,0
11006 DIM Z$(15),G$(7):
FOR I = 0 TO 15:
READ Z$(I):
NEXT :
FOR I = 0 TO 7:
READ G$(I):
NEXT
11110 PRINT "#13#11#11
" SPC( 24)"#99VITAL.: ( )
":
PRINT SPC( 24)"#91#9FASTRAL: ( )
"
11111 PRINT SPC( 24)"#96ANG.: #1EVER.:
":
PRINT SPC( 24)"#91#9CSTR.: #9EGES.:
"
11112 PRINT SPC( 24)"#9BKLG.: #9ACHA.:
":
PRINT SPC( 24)"#91#99ERF.: ( )
"
11113 PRINT SPC( 24)"#9EGOLDSTCK.:
":
PRINT SPC( 24)"#91#81NAHR.VORRAT:
":
GOTO 10000
12900 SYS 5681:
PRINT "#05****************#13
":
RETURN
// -----------------------------
12910 SYS 5681:
PRINT "#05* *
";:
RETURN
// -----------------------------
12920 PRINT PEEK (49208) + 256 * PEEK (49209) + 65536 * PEEK (49210);:
RETURN
// -----------------------------
13000 POKE 49230,0:
GOSUB 10000
13002 SYS 5681:
GOSUB 12900:
GOSUB 12910:
GOSUB 12910:
PRINT "#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9D#9DDU BIST TOT!#13
"
13010 GOSUB 12910:
GOSUB 12900:
SYS 5681:
SYS 5681:
PRINT "#9EDU HAST
";:
GOSUB 12920
13020 SYS 5681:
PRINT "ZÜGE GESPIELT.#13
":
SYS 5681:
SYS 5681:
PRINT "#05TODESURSACHE:#13
"
13022 SYS 5681:
IF K = 1 THEN
PRINT "#99GIFT#13
"
13024 IF K = 2 THEN
PRINT "#9FVERHUNGERT#13
"
13026 IF K = 3 THEN
PRINT "#96
"M$(M)" HAT#13
":
SYS 5681:
PRINT "DICH GETÖTET.#13
"
13028 IF K = 4 THEN
PRINT "#9FIN EINE FALLE#13
":
SYS 5681:
PRINT "GELAUFEN#13
"
13030 POKE 56295,1:
POKE 2023,71:
POKE 198,0:
WAIT 198,1:
POKE 2,17:
GOTO 975
13100 SYS 5681:
PRINT "GETÖTET!#13
":
GOSUB 300:
SYS 5681:
SYS 5681:
PRINT "#96DU ERHÄLST#13
"
13101 IF PEEK (50820 + M) = . THEN
SYS 5681:
PRINT "KEINE PUNKTE,#13
":
SYS 5681:
PRINT "DA ES EIN TIER#13
"
13102 IF PEEK (50820 + M) = . THEN
SYS 5681:
PRINT "WAR.
":
L = 0:
GOTO 13130
13110 L = INT (( PEEK (50596 + M) + .5) / Z2):
SYS 5681:
PRINT MID$ ( STR$ (L),2)" PUNKTE.
";
13115 IF L = 1 THEN
PRINT "#9D#9D.
";
13130 SYS 5681:
EF = EF + L:
IF EF < . THEN
EF = .
13140 IF EF > 999999 THEN
EF = 999999
13150 K = EF:
Z = INT (K / 65536):
POKE 49240,Z:
K = K - 65536 * Z:
Z = INT (K / 256):
POKE 49239,Z
13160 POKE 49238,K - 256 * Z:
GOTO 10000
14000 PRINT "INVENTUR#13
":
GOSUB 14920:
I = 2:
GOSUB 14910:
PRINT "#05EINHANDWAFFEN:
"
14010 I = 3:
FOR J = 0 TO 6:
IF PEEK (49247 + J) OR J = 0 THEN
I = I + 1:
GOSUB 14910:
PRINT CHR$ (J + 65)"
"W$(J)
14020 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05ZWEIHANDWAFFEN:
"
14030 I = 3:
FOR J = 7 TO 10:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 14910:
PRINT CHR$ (J + 65)"
"W$(J)
14040 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05FERNWAFFEN:
"
14050 I = 3:
FOR J = 11 TO 15:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 14910:
PRINT CHR$ (J + 65)"
"W$(J)
14060 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05MAGISCHE WAFFEN
"
14070 I = 3:
FOR J = 16 TO 18:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 14910:
PRINT CHR$ (J + 65)"
"W$(J)
14072 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05RÜSTUNGEN:
"
14074 I = 3:
FOR J = 19 TO 25:
IF PEEK (49247 + J) OR J = 19 THEN
I = I + 1:
GOSUB 14910:
PRINT CHR$ (J + 46)"
"W$(J)
14076 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05SCHILDE:
"
14078 I = 3:
FOR J = 26 TO 27:
IF PEEK (49247 + J) THEN
I = I + 1:
GOSUB 14910:
PRINT W$(J)
14080 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05WEISSE MAGIE:
"
14090 I = 3:
FOR J = 0 TO 7:
IF PEEK (49304 + J) THEN
I = I + 1:
:
GOSUB 14910:
PRINT CHR$ (J + 65)"
"Z$(J)
14100 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05SCHWARZE MAGIE:
"
14110 I = 3:
FOR J = 8 TO 15:
IF PEEK (49304 + J) THEN
I = I + 1:
:
GOSUB 14910:
PRINT CHR$ (J + 65)"
"Z$(J)
14120 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05INGREDENZIEN:
"
14130 I = 3:
FOR J = 0 TO 7:
I = I + 1:
GOSUB 14910:
PRINT RIGHT$ ("0
" + MID$ ( STR$ ( PEEK (49336 + J)),2),2);
14132 PRINT "
"G$(J)
14140 NEXT :
POKE 198,0:
WAIT 198,1:
GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "#05SONSTIGES:
"
14150 I = 3:
IF PEEK (49351) = . GOTO 14153
14152 I = I + 1:
GOSUB 14910:
PRINT "SPLITTER
":
GOTO 14155
14153 IF PEEK (49358) = . GOTO 14155
14154 I = I + 1:
GOSUB 14910:
PRINT "DRACHENKRALLE
"
14155 IF PEEK (49350) = . GOTO 14158
14156 I = I + 1:
GOSUB 14910:
PRINT "GLASFLÖTE
"
14158 IF PEEK (49348) = . GOTO 14162
14160 I = I + 1:
GOSUB 14910:
PRINT "FEUERRING
"
14162 IF PEEK (49349) = . GOTO 14166
14164 I = I + 1:
GOSUB 14910:
PRINT "EICHENDOLCH
"
14166 IF PEEK (49354) = . GOTO 14170
14168 I = I + 1:
GOSUB 14910:
PRINT "KOMPASS
"
14170 IF PEEK (49347) = . GOTO 14174
14172 I = I + 1:
GOSUB 14910:
PRINT "SEXTANT
"
14174 IF PEEK (49355) = . GOTO 14178
14176 I = I + 1:
GOSUB 14910:
PRINT "LAMPE
"
14178 IF PEEK (49356) = . GOTO 14182
14180 I = I + 1:
GOSUB 14910:
PRINT MID$ ( STR$ ( PEEK (49356)),2)" FACKELN
"
14182 POKE 198,0:
WAIT 198,1:
POKE 198,0:
GOSUB 14900:
SYS 5558:
GOTO 11110
14900 FOR I = 2 TO 11:
GOSUB 14910:
PRINT "
":
NEXT :
RETURN
// -----------------------------
14910 PRINT LEFT$ ("#13#11#11#11#11#11#11#11#11#11#11
",I) SPC( 24);:
RETURN
// -----------------------------
14920 GOSUB 14900:
I = 2:
GOSUB 14910:
PRINT "DU TRÄGST DEINE
"
14922 PRINT SPC( 24)"KLEIDUNG
";:
J = PEEK (49247):
IF J = 0 GOTO 14928
14924 PRINT " UND
":
PRINT SPC( 24)"#91DARÜBER EIN
";:
IF J = 4 OR J = 1 THEN
PRINT "EN
"
14925 IF J = 2 OR J > 4 THEN
PRINT "E
"
14926 IF J = 3 THEN
PRINT
14927 PRINT SPC( 24)W$(19 + J);
14928 PRINT ".
":
PRINT SPC( 24)"#91ALS WAFFE HÄLST
"
14930 PRINT SPC( 24)"DU JETZT DEIN
";:
J = PEEK (49246)
14932 IF J = 1 OR J = 3 OR J = 4 OR J = 5 OR J = 8 OR J = 13 THEN
PRINT :
GOTO 14940
14934 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 14940
14936 PRINT
14940 PRINT SPC( 24)"#91
"W$(J):
PRINT SPC( 24)"BEREIT.
":
J = PEEK (49167)
14950 PRINT SPC( 24)"#91DU BENUTZT
";:
IF J = 0 THEN
PRINT "ABER
":
PRINT SPC( 24)"KEIN
";
14952 IF J = 1 THEN
PRINT "DEN
":
PRINT SPC( 24)"KLEIN
";
14954 IF J = 2 THEN
PRINT "DEN
":
PRINT SPC( 24)"GROSS
";
14956 PRINT "EN SCHILD.
":
POKE 198,0:
WAIT 198,1:
GOTO 14900
15000 SYS 5681:
PRINT "#9EDU BIST IN EINEM#13
":
SYS 5681:
PRINT "TIEFEN, FEUCHTEN#13
"
15001 SYS 5681:
PRINT "GANGSYSTEM.#13
":
SYS 5681:
RETURN
// -----------------------------
30000 SYS 6041:
POKE S + 5,16:
POKE S + 1,12:
POKE S + 4,129:
RETURN
// -----------------------------
30050 SYS 6041:
POKE S + 5,86:
POKE S + 1,99:
POKE S + 4,129:
RETURN
// -----------------------------
30052 SYS 6041:
POKE S + 5,8:
POKE S + 1,40 + FN R(50):
POKE S + 4,21:
RETURN
// -----------------------------
30053 POKE 53281,2:
SYS 6041:
POKE S + 5,64:
POKE S + 1,1 + FN R(4):
POKE S + 4,33:
J = 9 ^ 40:
POKE 53281,.
30054 SYS 6041:
POKE S + 5,41:
POKE S + 1,20 + FN R(20):
POKE S + 4,129:
RETURN
// -----------------------------
31000 GOSUB 30052:
FOR I = 1 TO 7:
SYS 5681:
NEXT :
PRINT "#1D#1D#1D#1D#90P A U S E#13
":
FOR I = 1 TO 5:
SYS 5681:
NEXT
31002 FOR I = 0 TO 4:
POKE 56044 + I + I, FN R(15):
NEXT :
GET U$:
IF U$ = "" GOTO 31002
31004 FOR I = 1 TO 7:
SYS 5681:
NEXT :
RETURN
// -----------------------------
60000 DATA FLEDERMAUS,GOBLIN,ZOMBIE,SCHLEIM,SANDVIPER,ORK,R[UBER,H\HLENSCHRAT
60001 DATA RIESENRATTE,TORSO,SKELETT,ZAUBERER,RIESENPYTHON,OGER,GHOUL,GOLEM
60002 DATA H\HLENSPINNE,H\HLENTROLL,VAMPIR,KOBOLD,SPEIKOBRA,ZWEIHAUPT,WERWOLF
60003 DATA D[MON,ZYKLOP,MUMIE,POLYPENPFLANZE,KRIECHENDES AUGE,MINOTAURUS,BALROG
60004 DATA LEBENDE STATUE,PHANTOM
60100 DATA H[NDE,MESSER,DOLCH,KURZSCHWERT,HANDBEIL,SCHWERT,MORGENSTERN,KAMPFSTAB
60101 DATA BASTARDSCHW.,STREITAXT,ZWEIH[NDER,SCHLEUDER,KURZBOGEN,BLASROHR
60102 DATA LANGBOGEN,ARMBRUST,MAGISCHE AXT,ELBENBOGEN,ZAUBERSCHWIN.,KLEIDUNG
60103 DATA WAFFENROCK,LEDERR]STUNG,KETTENHEMD,SCHUPPENPANZ.,RITTERR]STUNG
60104 DATA MAG. R]STUNG,KLEINER SCHILD,GROSSER SCHILD
60200 DATA MAG. LICHT,GIFT NEUTRAL.,SCHUTZSCHILD,WUNDERHEILUNG,BANNBRECHER
60201 DATA LICHTSCHILD,GEWANDTHEIT,TOTENBANN,DONNERKEIL,GIFT U. GALLE,FEUERBALL
60202 DATA FLAMMENSPUR,FURCHTFLUCH,ZEIT GEFRIER.,TODESBLITZ,MAG. BOMBE
60300 DATA SCHWEFEL,KNOBLAUCH,GINSENG,BLUTFLECHTE,ZIRBELKRAUT,TOTENBLUME
60301 DATA G. D. NACHT,ALRAUNE
0