1 POKE 53281,0:
POKE 53280,0:
POKE 53272,18:
I = RND ( - TI):
S = 54272:
SYS 5454
2 POKE 51200,1:
POKE 51205,8:
POKE 51208,12:
POKE 51211,11:
POKE 51209,15:
POKE 51228,1
3 POKE 51219,1:
POKE 51204,5:
POKE 51223,15:
POKE 51221,1:
POKE 650,255
4 FOR I = 0 TO 7:
READ Z$(I),KG(I),KP(I),KS(I):
NEXT
6 DIM A(3),P(3):
FOR I = 0 TO 3:
READ A(I),P(I):
NEXT
20 PRINT "#13#11#11
" SPC( 24)"#99VITAL.: ( )
":
PRINT SPC( 24)"#91#9FASTRAL: ( )
"
21 PRINT SPC( 24)"#96ANG.: #1EVER.:
":
PRINT SPC( 24)"#91#9CSTR.: #9EGES.:
"
22 PRINT SPC( 24)"#9BKLG.: #9ACHA.:
":
PRINT SPC( 24)"#91#99ERF.: ( )
"
23 PRINT SPC( 24)"#9EGOLDSTCK.:
":
PRINT SPC( 24)"#91#81NAHR.VORRAT:
"
25 X = 17:
Y = 36:
P = 40721:
Q = 11:
GOSUB 10000
100 POKE 2,X:
POKE 182,Y:
SYS 6052:
SYS 4482:
SYS 4537:
SYS 4361:
SYS 5440:
SYS 5681
105 PRINT "#05@#C7#9D
";:
Z = 0:
IF Y = 37 GOTO 3300
110 Z = Z + 1:
IF Z > 299 GOTO 200
120 GET U$:
IF U$ = "" GOTO 110
122 IF U$ = "
" GOTO 200
124 IF U$ = "#91
" GOTO 210
125 IF U$ = "#11
" GOTO 220
126 IF U$ = "#9D
" GOTO 230
127 IF U$ = "#1D
" GOTO 234
128 IF U$ = "K
" GOTO 240
129 IF U$ = "W
" THEN
PRINT "WAFFE#13
":
GOTO 191
130 IF U$ = "R
" THEN
PRINT "RÜSTUNG#13
":
GOTO 191
131 IF U$ = "I
" THEN
PRINT "INVENTUR#13
":
GOTO 191
132 IF U$ = "Z
" GOTO 3000
190 PRINT "WIE BITTE..?#13
":
GOTO 100
191 SYS 5681:
PRINT "#9EMACH DAS#13
":
SYS 5681:
PRINT "DRAUSSEN!#13
":
GOTO 100
200 PRINT "WARTEN...#13
":
GOTO 100
210 PRINT "NORDEN#13
":
J = PEEK (881):
IF (J < > 11 AND J > 0 AND J < > 8) OR (J + BB = 0) GOTO 214
212 POKE P,Q:
Q = J:
P = P - 35:
Y = Y - 1:
GOTO 6100
214 SYS 5681:
PRINT "#96BLOCKIERT!#13
":
SYS 5681:
GOTO 100
220 PRINT "SÜDEN#13
":
J = PEEK (903):
IF (J < > 11 AND J > 0 AND J < > 8) OR (J + BB = 0) GOTO 214
222 POKE P,Q:
Q = J:
P = P + 35:
Y = Y + 1:
GOTO 6100
230 PRINT "WESTEN#13
":
J = PEEK (891):
IF (J < > 11 AND J > 0 AND J < > 8) OR (J + BB = 0) GOTO 214
232 POKE P,Q:
Q = J:
P = P - 1:
X = X - 1:
GOTO 6100
234 PRINT "OSTEN#13
":
J = PEEK (893):
IF (J < > 11 AND J > 0 AND J < > 8) OR (J + BB = 0) GOTO 214
236 POKE P,Q:
Q = J:
P = P + 1:
X = X + 1:
GOTO 6100
240 PRINT "KOMMUNIZIERE
";:
SYS 5681:
PRINT "#9E - RICHT.? #05#C7#9D
";:
Z = 0
250 Z = Z + 1:
IF Z > 499 GOTO 258
252 GET U$:
IF U$ = "" GOTO 252
254 IF U$ = "#91
" THEN
PRINT "NORD#13
":
J = - 11:
GOTO 260
255 IF U$ = "#11
" THEN
PRINT "SÜD#13
":
J = 11:
GOTO 260
256 IF U$ = "#9D
" THEN
PRINT "WEST#13
":
J = - 1:
GOTO 260
257 IF U$ = "#1D
" THEN
PRINT "OST#13
":
J = 1:
GOTO 260
258 PRINT "NEIN#13
":
SYS 5681:
Z = 0:
GOTO 100
260 J = PEEK (892 + J):
SYS 5681:
H = 0:
IF J = 21 THEN
H = 1
261 IF J = 18 AND Y > 26 AND X > 18 THEN
H = 2
262 IF J = 18 AND Y > 26 AND X < 18 THEN
H = 3
263 IF J = 18 AND Y > 20 AND Y < 24 AND X > 18 THEN
H = 4
264 IF J = 18 AND Y > 20 AND Y < 24 AND X < 18 THEN
H = 5
265 IF J = 18 AND Y < 10 AND X > 18 THEN
H = 6
267 IF J = 18 AND Y < 10 AND X < 18 THEN
H = 7
268 IF J = 18 AND Y > 12 AND Y < 18 AND X > 18 THEN
H = 8
269 IF J = 18 AND Y > 12 AND Y < 18 AND X < 18 THEN
H = 9
279 IF H = . THEN
PRINT "#96KEINE ANTWORT!#13
":
SYS 5681:
GOTO 100
280 SYS 5681:
PRINT "#9FDU SPRICHST#13
":
SYS 5681
281 IF H = 1 THEN
PRINT "DEN WEISSEN#13
":
SYS 5681:
PRINT "ZAUBERMEISTER#13
":
SYS 5681
282 IF H > 1 THEN
PRINT "EINEN WEISSEN#13
":
SYS 5681:
PRINT "ZAUBERER
";
297 PRINT "AN.#13
":
IF H = 13 OR RND (TI) < .5 GOTO 400
299 GOTO 820
400 GOSUB 900:
IF RND (TI) < .05 THEN
PRINT " #13
":
GOTO 880
401 IF N$ = "WEIS
" THEN
PRINT "SER ZIRKEL#13
":
GOTO 1000
402 IF N$ = "ZIRK
" THEN
PRINT "EL#13
":
GOTO 1000
403 IF N$ = "ZAUB
" THEN
PRINT "ERER#13
":
GOTO 1000
404 IF N$ = "MAGI
" THEN
PRINT "E#13
":
GOTO 1010
405 IF H = 2 AND N$ = "LICH
" GOTO 2000
406 IF H = 3 AND N$ = "ENTG
" GOTO 2100
407 IF H = 4 AND N$ = "SCHU
" GOTO 2200
408 IF H = 5 AND N$ = "WUND
" GOTO 2300
409 IF H = 6 AND N$ = "BANN
" GOTO 2400
410 IF H = 7 AND N$ = "LICH
" GOTO 2500
411 IF H = 8 AND N$ = "GEWA
" GOTO 2600
412 IF H = 9 AND N$ = "TOTE
" GOTO 2700
413 IF N$ = "NAME
" THEN
PRINT "?#13
":
GOTO 820
414 IF N$ = "BERU
" GOTO 860
415 IF N$ = "FICK
" OR N$ = "PISS
" OR MID$ (N$,2) = "OTZ
" OR N$ = "ARSC
" OR N$ = "PORN
" GOTO 449
420 IF N$ = "WIED
" THEN
PRINT "ERSEHEN.#13
":
GOTO 880
421 IF N$ = "GESU
" THEN
PRINT "NDHEIT?#13
":
GOTO 840
430 IF H = 1 AND N$ = "MEIS
" GOTO 2800
431 IF H = 1 AND N$ = "SCHU
" GOTO 2810
432 IF H = 1 AND N$ = "BOES
" GOTO 2820
433 IF N$ = "BOES
" GOTO 2890
440 PRINT " #13
":
GOSUB 800:
PRINT "DAZU KANN#13
":
SYS 5681:
PRINT "ICH DIR NICHTS#13
":
SYS 5681
441 PRINT "SAGEN.%#13
"
442 GOTO 400
449 PRINT " #13
":
GOSUB 800:
PRINT "DU BIST EIN#13
":
SYS 5681:
PRINT "ALTES FERKEL!%#13
":
GOTO 400
800 GOSUB 999:
PRINT "#9EDER
";
802 IF H = 1 THEN
PRINT "ZAUBER-#13
":
SYS 5681:
PRINT "MEISTER#13
"
803 IF H > 1 THEN
PRINT "MAGIER#13
"
819 SYS 5681:
PRINT "SAGT:#13
":
SYS 5681:
PRINT "#99%
";:
RETURN
// -----------------------------
820 GOSUB 800:
PRINT "ICH BIN
";:
IF H = 1 THEN
SYS 5681:
PRINT "GARTHIM
";
821 IF H = 2 THEN
PRINT "RALPH
";
822 IF H = 3 THEN
SYS 5681:
PRINT "JAANTH
";
823 IF H = 4 THEN
SYS 5681:
PRINT "SCHMENDRIK
";
824 IF H = 5 THEN
SYS 5681:
PRINT "HARCON
";
825 IF H = 6 THEN
SYS 5681:
PRINT "DISDYCHUS
";
826 IF H = 7 THEN
SYS 5681:
PRINT "CHROLON
";
827 IF H = 8 THEN
PRINT "VULPA
";
829 IF H = 9 THEN
SYS 5681:
PRINT "ASPENSOR
";
839 PRINT ".%#13
":
GOTO 400
840 GOSUB 800:
IF H = 1 THEN
PRINT "AUSGEZEICHNET,#13
":
SYS 5681:
PRINT "DANKE
";
841 IF H > 1 THEN
PRINT "GANZ GUT
";
859 GOTO 839
860 PRINT "F?#13
":
GOSUB 800
862 IF H = 1 THEN
PRINT "ICH BIN DER
";:
SYS 5681:
PRINT "MEISTER
";
863 IF H > 1 THEN
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "ZAUBERER
";
864 PRINT " DES
";:
SYS 5681:
PRINT "WEISSEN#13
":
SYS 5681:
PRINT "ZIRKELS
";:
GOTO 839
880 GOSUB 800:
PRINT "ICH MUSS JETZT#13
":
SYS 5681:
PRINT "MEDITIEREN. GEH
";
881 SYS 5681:
PRINT "IN FRIEDEN.%#13
":
SYS 5681:
SYS 5681
882 PRINT "#9EER WENDET SICH#13
":
SYS 5681:
PRINT "AB.#13
":
SYS 5681:
GOTO 100
900 GOSUB 999:
PRINT "#9EDEIN BEGEHR?
";:
SYS 5681:
PRINT "#05@#C7#9D
";:
Z = 0:
N$ = "":
POKE 198,0
910 GET U$:
IF U$ = CHR$ (13) AND Z = 0 THEN
N$ = "WIED
":
PRINT N$;:
RETURN
// -----------------------------
912 IF U$ = CHR$ (20) AND Z > 0 THEN
Z = Z - 1:
N$ = LEFT$ (N$,Z):
PRINT " #9D#9D#C7#9D
";
920 IF U$ < "A
" OR U$ > "Z
" GOTO 910
930 PRINT U$"#C7#9D
";:
N$ = N$ + U$:
Z = Z + 1:
IF Z = 4 THEN
RETURN
// -----------------------------
940 GOTO 910
960 SYS 5681:
PRINT SPC( 15)"#05#C7#9D#99
";:
POKE 198,0:
WAIT 198,1:
PRINT " #13
":
SYS 5681:
RETURN
// -----------------------------
970 PRINT " #05#C7#9D
";:
POKE 198,0
971 GET U$:
IF U$ = "J
" OR U$ = "N
" THEN
PRINT U$"#99#13
":
GOTO 999
972 GOTO 971
980 GOSUB 800:
PRINT "WILLST DU#13
":
SYS 5681:
PRINT "KAUFEN ODER#13
":
SYS 5681:
PRINT "VERKAUFEN? #05#C7#9D
";
981 GET U$:
IF U$ < > "K
" AND U$ < > "V
" GOTO 981
982 PRINT U$"#99
";:
GOTO 999
999 SYS 5681:
SYS 5681:
RETURN
// -----------------------------
1000 GOSUB 800:
PRINT "DIE ZAUBERER#13
":
SYS 5681:
PRINT "UNSERER BRUDER-#13
"
1001 SYS 5681:
PRINT "BEHERRSCHEN DIE#13
":
SYS 5681:
PRINT "WEISSE MAGIE.%#13
":
GOTO 400
1010 GOSUB 800:
IF H = 1 THEN
PRINT "ICH LEHRE SIE#13
":
SYS 5681:
PRINT "AN MEINE#13
"
1011 IF H = 1 THEN
SYS 5681:
PRINT "SCHÜLER.%#13
":
GOTO 400
1012 GOTO 1020
1016 PRINT " #13
":
GOSUB 800:
PRINT "JA, GOLD HÄTTE#13
";:
SYS 5681:
PRINT "ICH AUCH GERN!%#13
":
GOTO 400
1020 PRINT "ICH BEHERRSCHE#13
":
SYS 5681:
PRINT "DEN MÄCHTIGEN#13
"
1021 SYS 5681:
PRINT Z$(H - 2)"-#13
":
SYS 5681:
PRINT "ZAUBERSPRUCH.%#13
":
GOTO 400
2000 GOSUB 800:
PRINT "DIES IST EIN#13
":
SYS 5681:
PRINT "RECHT EINFACHER#13
"
2001 SYS 5681:
PRINT "SPRUCH, DEN MAN#13
":
SYS 5681:
PRINT "ALS ANFÄNGER#13
"
2002 SYS 5681:
PRINT "ERLERNT. ER#13
":
SYS 5681:
PRINT "ERSETZT EINE#13
"
2003 SYS 5681:
PRINT "FACKEL WENN ES#13
":
SYS 5681:
PRINT "DUNKEL IST.#13
"
2004 GOSUB 960:
PRINT "MÖCHTEST DU IHN#13
":
SYS 5681:
PRINT "ERLERNEN?
";:
GOSUB 970
2005 IF U$ = "N
" THEN
PRINT "JEDER GUTE#13
":
SYS 5681:
PRINT "ZAUBERER MUSS#13
"
2006 IF U$ = "N
" THEN
SYS 5681:
PRINT "IHN BEHERR-#13
":
SYS 5681:
PRINT "SCHEN.%#13
":
GOTO 400
2010 IF KG < KG(H - 2) THEN
PRINT "DU BIST LEIDER#13
":
SYS 5681:
PRINT "NICHT KLUG#13
"
2011 IF KG < KG(H - 2) THEN
SYS 5681:
PRINT "GENUG, DAS SEHR#13
":
SYS 5681:
PRINT "KOMPLIZIERTE#13
"
2012 IF KG < KG(H - 2) THEN
SYS 5681:
PRINT "BESCHWÖRUNGS-#13
":
SYS 5681:
PRINT "RITUAL ZU#13
"
2013 IF KG < KG(H - 2) THEN
SYS 5681:
PRINT "BEGREIFEN.%#13
":
GOTO 400
2020 Z = KS(H - 2):
PRINT "GIB MIR
"Z;:
SYS 5681:
PRINT "GOLDSTÜCKE, DANN#13
"
2021 SYS 5681:
PRINT "LEHRE ICH IHN#13
":
SYS 5681:
PRINT "DICH, JA?
";:
GOSUB 970
2022 IF U$ = "N
" GOTO 2005
2023 IF GP < Z THEN
PRINT "DU HAST NICHT#13
":
SYS 5681:
PRINT "GENUG GOLD!%#13
":
GOTO 400
2030 GOSUB 9004:
SYS 5681:
PRINT "DANKE, ALSO DER#13
":
SYS 5681:
PRINT "SPRUCH GEHT SO:#13
":
GOSUB 960
2031 POKE 49302 + H,1:
IF H > 2 GOTO 2110
2032 PRINT "DU BENÖTIGST NUR#13
":
SYS 5681:
PRINT "SCHWEFEL UND#13
"
2033 SYS 5681:
PRINT "ZIRBELKRAUT.#13
":
SYS 5681:
PRINT "WIRF ES IN DIE#13
"
2034 SYS 5681:
PRINT "LUFT, KONZEN-#13
":
SYS 5681:
PRINT "TRIERE DICH AUF#13
"
2035 SYS 5681:
PRINT "HELLIGKEIT UND#13
":
SYS 5681:
PRINT "SPRICH DIE MA-#13
"
2036 SYS 5681:
PRINT "GISCHEN WORTE.#13
":
GOSUB 960:
PRINT "WENN ES KLAPPT,#13
"
2037 SYS 5681:
PRINT "ERSCHEINT ÜBER#13
":
SYS 5681:
PRINT "DEINEM KOPF EINE#13
"
2038 SYS 5681:
PRINT "KUGEL AUS KALTEM#13
":
SYS 5681:
PRINT "LICHT, DIE HELL#13
"
2039 SYS 5681:
PRINT "IST WIE EINE#13
":
SYS 5681:
PRINT "FACKEL, ABER#13
"
2040 SYS 5681:
PRINT "NICHT QUALMT#13
":
SYS 5681:
Z = 8:
PRINT "ODER HEISS IST.#13
"
2050 GOSUB 960:
PRINT "DIE BESCHWÖRUNG#13
":
SYS 5681:
PRINT "KOSTET DICH
"KP(H - 2);
2052 SYS 5681:
PRINT "ASTRALPUNKTE
";
2060 IF H = 3 THEN
SYS 5681:
PRINT "UND 2 WEITERE#13
":
SYS 5681:
PRINT "FÜR JEDEN GRAD#13
"
2061 IF H = 3 THEN
SYS 5681:
PRINT "DER VERGIF-#13
":
SYS 5681:
PRINT "TUNG
";
2070 IF H = 5 THEN
SYS 5681:
PRINT "UND DIE HÖHE DER#13
":
SYS 5681:
PRINT "UMWANDLUNG
";
2090 PRINT ".%#13
":
GOTO 400
2100 GOSUB 800:
PRINT "ES GIBT VIELE#13
":
SYS 5681:
PRINT "ARTEN VON GIFTEN#13
"
2101 SYS 5681:
PRINT "UND VIELE MÖG-#13
":
SYS 5681:
PRINT "LICHKEITEN, VER-#13
"
2102 SYS 5681:
PRINT "GIFTET ZU WER-#13
":
SYS 5681:
PRINT "DEN. ZUM GLÜCK#13
"
2103 SYS 5681:
PRINT "ENTFERNT DIESER#13
":
SYS 5681:
PRINT "ZAUBER ALLE#13
"
2104 SYS 5681:
PRINT "STOFFE, DIE#13
":
SYS 5681:
PRINT "NICHT IN DEN#13
"
2105 SYS 5681:
PRINT "KÖRPER GEHÖREN.#13
":
GOTO 2004
2110 IF H > 3 GOTO 2210
2111 PRINT "FÜR DIESEN#13
":
SYS 5681:
PRINT "SPRUCH IST EINE#13
"
2112 SYS 5681:
PRINT "MISCHUNG AUS#13
":
SYS 5681:
PRINT "GINSENG UND#13
"
2113 SYS 5681:
PRINT "BLUTFLECHTE#13
":
SYS 5681:
PRINT "ERFORDERLICH,#13
"
2114 SYS 5681:
PRINT "DIE AUF DIE#13
":
SYS 5681:
PRINT "HAUT GERIEBEN#13
"
2115 SYS 5681:
PRINT "WIRD WÄHREND MAN#13
":
SYS 5681:
PRINT "DIE ZAUBERFORMEL#13
"
2116 SYS 5681:
PRINT "SPRICHT.#13
"
2117 GOSUB 960:
PRINT "GELINGT ES, SO#13
":
SYS 5681:
PRINT "LEUCHTET KURZ#13
"
2118 SYS 5681:
PRINT "DIE HAUT AUF,#13
":
SYS 5681:
PRINT "UND DIE VERGIF-#13
"
2119 SYS 5681:
PRINT "TUNG IST AUS-#13
":
SYS 5681:
PRINT "KURIERT.#13
":
GOTO 2050
2200 GOSUB 800:
PRINT "GEGEN DIE HIEBE#13
":
SYS 5681:
PRINT "STARKER GEGNER#13
"
2201 SYS 5681:
PRINT "GENÜGEN SCHILD#13
":
SYS 5681:
PRINT "UND RÜSTUNG OFT-#13
"
2202 SYS 5681:
PRINT "MALS NICHT. DIE-#13
":
SYS 5681:
PRINT "SER ZAUBER VER-#13
"
2203 SYS 5681:
PRINT "DOPPELT DEINEN#13
":
SYS 5681:
PRINT "SCHUTZ - LEIDER#13
"
2204 SYS 5681:
PRINT "NICHT GEGEN#13
":
SYS 5681:
PRINT "MAGIE - FÜR#13
"
2205 SYS 5681:
PRINT "ZWÖLF KAMPFZÜGE.#13
":
GOTO 2004
2210 IF H > 4 GOTO 2310
2211 PRINT "MAN MISCHT#13
":
SYS 5681:
PRINT "NUR SCHWEFEL,#13
"
2212 SYS 5681:
PRINT "GINSENG UND#13
":
SYS 5681:
PRINT "BLUTFLECHTE,#13
"
2213 SYS 5681:
PRINT "STREUT ES AUF#13
":
SYS 5681:
PRINT "DIE RÜSTUNG UND#13
"
2214 SYS 5681:
PRINT "RUFT DIE ZAUBER-#13
":
SYS 5681:
PRINT "FORMEL.#13
"
2217 GOSUB 960:
PRINT "WENN'S KLAPPT,#13
":
SYS 5681:
PRINT "LEUCHTET EIN 'S'#13
"
2218 SYS 5681:
PRINT "AUF, SOLANGE DER#13
":
SYS 5681:
PRINT "ZAUBER WIRKT.#13
"
2219 SYS 5681:
PRINT "LEIDER KANN ER#13
":
SYS 5681:
PRINT "NICHT GEMEINSAM#13
"
2220 SYS 5681:
PRINT "MIT DEM LICHT-#13
":
SYS 5681:
PRINT "SCHILDZAUBER#13
"
2221 SYS 5681:
PRINT "BENUTZT WERDEN.#13
":
GOTO 2050
2300 GOSUB 800:
PRINT "WENN MAN SCHWER#13
":
SYS 5681:
PRINT "VERLETZT IST UND#13
"
2301 SYS 5681:
PRINT "DEM TOD ENTGEHEN#13
":
SYS 5681:
PRINT "WILL UND GENUG#13
"
2302 SYS 5681:
PRINT "ASTRALENERGIE#13
":
SYS 5681:
PRINT "HAT, KANN DIESER#13
"
2303 SYS 5681:
PRINT "ZAUBER ASTRAL-#13
":
SYS 5681:
PRINT "ENERGIE IN#13
"
2304 SYS 5681:
PRINT "LEBENSENERGIE#13
":
SYS 5681:
PRINT "UMWANDELN UND#13
"
2305 SYS 5681:
PRINT "WUNDEN HEILEN.#13
":
GOTO 2004
2310 IF H > 5 GOTO 2410
2311 PRINT "DIE HEILENDEN#13
":
SYS 5681:
PRINT "ESSENZEN VON#13
"
2312 SYS 5681:
PRINT "KNOBLAUCH,#13
":
SYS 5681:
PRINT "GINSENG UND#13
"
2313 SYS 5681:
PRINT "BLUTFLECHTE#13
":
SYS 5681:
PRINT "ZUSAMMEN MIT DEN#13
"
2314 SYS 5681:
PRINT "MAGISCHEN WORTEN#13
":
SYS 5681:
PRINT "HEILEN ALLE#13
"
2315 SYS 5681:
PRINT "WUNDEN.#13
":
GOTO 2050
2400 GOSUB 800:
PRINT "MANCH MÄCHTIGER#13
":
SYS 5681:
PRINT "MAGIER KANN#13
"
2401 SYS 5681:
PRINT "UNDURCHDRINGLI-#13
":
SYS 5681:
PRINT "CHE ENERGIE-#13
"
2402 SYS 5681:
PRINT "FELDER ERZEUGEN,#13
":
SYS 5681:
PRINT "Z.B. WIE UNSER#13
"
2403 SYS 5681:
PRINT "MEISTER. DIESER#13
":
SYS 5681:
PRINT "ZAUBER KANN#13
"
2404 SYS 5681:
PRINT "SOLCHE BARRIEREN#13
":
SYS 5681:
PRINT "ZERSCHMETTERN#13
"
2405 SYS 5681:
PRINT "UND AUFLÖSEN.#13
":
GOTO 2004
2410 IF H > 6 GOTO 2510
2411 PRINT "DER SPRUCH IST#13
":
SYS 5681:
PRINT "SCHWIERIG. MAN#13
"
2412 SYS 5681:
PRINT "BRAUCHT BLUT-#13
":
SYS 5681:
PRINT "FLECHTE, TOTEN-#13
"
2413 SYS 5681:
PRINT "BLUME UND DIE#13
":
SYS 5681:
PRINT "SELTENE ALRAUNE-#13
"
2414 SYS 5681:
PRINT "WURZEL. SPRICH#13
":
SYS 5681:
PRINT "DIE FORMEL UND#13
"
2415 SYS 5681:
PRINT "WIRF ALLES IN#13
":
SYS 5681:
PRINT "DAS FELD.#13
"
2416 GOSUB 960:
PRINT "SIND DIE MÄCHTE#13
":
SYS 5681:
PRINT "GNÄDIG, WIRD#13
"
2417 SYS 5681:
PRINT "SICH DAS FELD#13
":
SYS 5681:
PRINT "LANGSAM AUFLÖ-#13
"
2418 SYS 5681:
PRINT "SEN.#13
":
GOTO 2050
2500 GOSUB 800:
PRINT "IST MAN MIT#13
":
SYS 5681:
PRINT "FEINDLICHER#13
"
2501 SYS 5681:
PRINT "MAGIE KONFRON-#13
":
SYS 5681:
PRINT "TIERT, KANN#13
"
2502 SYS 5681:
PRINT "MAN SICH MIT#13
":
SYS 5681:
PRINT "DIESEM ZAUBER#13
"
2503 SYS 5681:
PRINT "VOR JEDWEDER#13
":
SYS 5681:
PRINT "MAGIE FÜR#13
"
2504 SYS 5681:
PRINT "ZWÖLF KAMPFZÜGE#13
":
SYS 5681:
PRINT "SEHR WIRKSAM#13
"
2505 SYS 5681:
PRINT "SCHÜTZEN.#13
":
GOTO 2004
2510 IF H > 7 GOTO 2610
2511 PRINT "DIE KOMBINATION#13
":
SYS 5681:
PRINT "VON SCHWEFEL,#13
"
2512 SYS 5681:
PRINT "ZIRBELKRAUT#13
":
SYS 5681:
PRINT "UND BLUTFLECHTE#13
"
2513 SYS 5681:
PRINT "MIT DER ZAUBER-#13
":
SYS 5681:
PRINT "FORMEL ÜBER DICH#13
"
2514 SYS 5681:
PRINT "GESTREUT, GIBT#13
":
SYS 5681:
PRINT "DIR SCHUTZ.#13
"
2517 GOSUB 960:
PRINT "WENN'S GELINGT,#13
":
SYS 5681:
PRINT "LEUCHTET EIN 'L'#13
"
2518 SYS 5681:
PRINT "AUF, SOLANGE DER#13
":
SYS 5681:
PRINT "ZAUBER WIRKT.#13
"
2519 SYS 5681:
PRINT "LEIDER KANN ER#13
":
SYS 5681:
PRINT "NICHT GEMEINSAM#13
"
2520 SYS 5681:
PRINT "MIT DEM SCHUTZ-#13
":
SYS 5681:
PRINT "SCHILDZAUBER#13
"
2521 SYS 5681:
PRINT "BENUTZT WERDEN.#13
":
GOTO 2050
2600 GOSUB 800:
PRINT "DIESER SCHWERE#13
":
SYS 5681:
PRINT "ZAUBERSPRUCH#13
"
2601 SYS 5681:
PRINT "ERHÖHT DEINE#13
":
SYS 5681:
PRINT "NATÜRLICHE BEWE-#13
"
2602 SYS 5681:
PRINT "GUNGSGESCHWIN-#13
":
SYS 5681:
PRINT "DIGKEIT, UND#13
"
2603 SYS 5681:
PRINT "DU KANNST DICH#13
":
SYS 5681:
PRINT "IM KAMPF FÜR#13
"
2604 SYS 5681:
PRINT "12 ZÜGE DOPPELT#13
":
SYS 5681:
PRINT "SO SCHNELL#13
"
2605 SYS 5681:
PRINT "BEWEGEN.#13
":
GOTO 2004
2610 IF H = 9 GOTO 2710
2611 PRINT "MISCHE KNOB-#13
":
SYS 5681:
PRINT "LAUCH, BLUT-#13
"
2612 SYS 5681:
PRINT "FLECHTE UND#13
":
SYS 5681:
PRINT "TOTENBLUME,#13
"
2613 SYS 5681:
PRINT "REIBE ES AUF#13
":
SYS 5681:
PRINT "ARME UND BEINE#13
"
2614 SYS 5681:
PRINT "UND RUFE DIE#13
":
SYS 5681:
PRINT "ZAUBERFORMEL.#13
"
2617 GOSUB 960:
PRINT "KLAPPT ALLES,#13
":
SYS 5681:
PRINT "LEUCHTET EIN 'G'#13
"
2618 SYS 5681:
PRINT "AUF, SOLANGE DER#13
":
SYS 5681:
PRINT "ZAUBER WIRKT.#13
":
GOTO 2050
2700 GOSUB 800:
PRINT "UNTOTE SIND#13
":
SYS 5681:
PRINT "IN ALLEN IHREN#13
"
2701 SYS 5681:
PRINT "ERSCHEINUNGS-#13
":
SYS 5681:
PRINT "FORMEN GEFÄHRLI-#13
"
2702 SYS 5681:
PRINT "CHE GEGNER. ABER#13
":
SYS 5681:
PRINT "DAS LICHT DER#13
"
2703 SYS 5681:
PRINT "SONNE ZERSTÖRT#13
":
SYS 5681:
PRINT "SIE. DA HIER#13
"
2704 SYS 5681:
PRINT "NIEMALS DIE#13
":
SYS 5681:
PRINT "SONNE SCHEINT,#13
"
2705 SYS 5681:
PRINT "HILFT DIE MAGIE.#13
":
GOTO 2004
2710 PRINT "EINE MIT DEN#13
":
SYS 5681:
PRINT "MAGISCHEN WORTEN#13
"
2712 SYS 5681:
PRINT "IN DIE LUFT GE-#13
":
SYS 5681:
PRINT "WORFENE MIXTUR#13
"
2713 SYS 5681:
PRINT "AUS KNOBLAUCH,#13
":
SYS 5681:
PRINT "TOTENBLUME UND#13
"
2714 SYS 5681:
PRINT "DER SELTENEN#13
":
SYS 5681:
PRINT "ALRAUNEWURZEL#13
"
2715 SYS 5681:
PRINT "IST NOTWENDIG ZU#13
":
SYS 5681:
PRINT "DIESEM ZAUBER.#13
"
2716 GOSUB 960:
PRINT "ERHÖREN DICH DIE#13
":
SYS 5681:
PRINT "GUTEN MÄCHTE, SO#13
"
2717 SYS 5681:
PRINT "WIRD FÜR EINEN#13
":
SYS 5681:
PRINT "MOMENT DIE WOL-#13
"
2718 SYS 5681:
PRINT "KENDECKE ÜBER#13
":
SYS 5681:
PRINT "DIR AUFREISSEN,#13
"
2719 SYS 5681:
PRINT "UND DIE SONNE#13
":
SYS 5681:
PRINT "VERNICHTET ALLE#13
"
2720 SYS 5681:
PRINT "UNTOTEN UND#13
":
SYS 5681:
PRINT "STEINTROLLE.#13
":
GOTO 2050
2800 PRINT "TER#13
":
GOSUB 800:
PRINT "DER WEISSEN#13
":
SYS 5681:
PRINT "MAGIE.#13
":
GOTO 400
2810 PRINT "#9DÜLER#13
":
GOSUB 800:
PRINT "SIE KÖNNEN SIE#13
":
SYS 5681:
PRINT "AN DICH LEHREN.%#13
":
GOTO 400
2820 GOSUB 800:
PRINT "DER NAME DES#13
":
SYS 5681:
PRINT "BÖSEN, DER SO#13
"
2821 SYS 5681:
PRINT "SCHRECKLICH IST,#13
":
SYS 5681:
PRINT "DASS ER JEDEN#13
"
2822 SYS 5681:
PRINT "VERBRENNT, DER#13
":
SYS 5681:
PRINT "IHN AUSSPRICHT#13
"
2823 SYS 5681:
PRINT "ODER SCHREIBT,#13
":
SYS 5681:
PRINT "IST ZUGLEICH DIE#13
"
2824 SYS 5681:
PRINT "MÄCHTIGSTE WAFFE#13
":
SYS 5681:
PRINT "GEGEN DAS BÖSE#13
"
2826 SYS 5681:
PRINT "SELBST.#13
":
GOSUB 960:
PRINT "ICH KENNE IHN#13
"
2828 SYS 5681:
PRINT "NICHT, UND MEIN#13
":
SYS 5681:
PRINT "KOLLEGE VOM#13
"
2830 SYS 5681:
PRINT "SCHWARZEN ZIRKEL#13
":
SYS 5681:
PRINT "IST DURCH IHN#13
"
2832 SYS 5681:
PRINT "GETÖTET WORDEN.#13
":
GOSUB 960:
PRINT "ABER DU KANNST#13
"
2834 SYS 5681:
PRINT "IHN IN ERFAHRUNG#13
":
SYS 5681:
PRINT "BRINGEN. DU#13
"
2836 SYS 5681:
PRINT "MUSST IHN IM#13
":
SYS 5681:
PRINT "ANGESICHT DES#13
"
2838 SYS 5681:
PRINT "BÖSEN RUFEN,#13
":
SYS 5681:
PRINT "WÄHREND DU DEN#13
"
2840 SYS 5681:
PRINT "KRISTALL HEILST.#13
":
GOSUB 960:
PRINT "ABER RUFE IHN#13
"
2842 SYS 5681:
PRINT "#05RÜCKWÄRTS#99!#13
":
GOSUB 960
2844 SYS 5681:
PRINT "DIES HEILT DEN#13
":
SYS 5681:
PRINT "KRISTALL END-#13
"
2846 SYS 5681:
PRINT "GÜLTIG. DER#13
":
SYS 5681:
PRINT "KRISTALL WIRD#13
"
2848 SYS 5681:
PRINT "DAS GLEICHGE-#13
":
SYS 5681:
PRINT "WICHT UNSERER#13
"
2850 SYS 5681:
PRINT "WELT WIEDERHER-#13
":
SYS 5681:
PRINT "STELLEN.#13
"
2852 GOSUB 960:
PRINT "DANN WIRD DAS#13
":
SYS 5681:
PRINT "BÖSE VERNICHTET,#13
"
2854 SYS 5681:
PRINT "UND FÜR UNS WIRD#13
":
SYS 5681:
PRINT "WIEDER DIE SONNE#13
"
2856 SYS 5681:
PRINT "AUFGEHEN.#13
":
GOSUB 960:
PRINT "UND FÜR DICH IST#13
"
2858 SYS 5681:
PRINT "DANN KEIN PLATZ#13
":
SYS 5681:
PRINT "MEHR IM GLEICH-#13
"
2860 SYS 5681:
PRINT "GEWICHT, UND DU#13
":
SYS 5681:
PRINT "WIRST WOHL NACH#13
"
2862 SYS 5681:
PRINT "HAUSE ZURÜCKGE-#13
":
SYS 5681:
PRINT "SCHLEUDERT.%#13
":
GOTO 400
2890 PRINT "E#13
":
GOSUB 800:
PRINT "FRAGE UNSEREN#13
":
SYS 5681:
PRINT "MEISTER DANACH.%#13
":
GOTO 400
3000 PRINT "ZAUBERSPRUCH#13
":
SYS 5681:
SYS 5681:
PRINT "#9FDER EINZIGE#13
"
3001 SYS 5681:
PRINT "ZAUBER, DER HIER#13
":
SYS 5681:
PRINT "AUSGELÖST WERDEN#13
"
3002 SYS 5681:
PRINT "KANN, IST DER#13
":
SYS 5681:
PRINT "BANNBRECHER.#13
"
3004 SYS 5681:
SYS 5681:
PRINT "#9EMÖCHTEST DU#13
":
SYS 5681:
PRINT "DAS?
";:
GOSUB 970:
SYS 5681:
IF U$ = "N
" GOTO 100
3006 IF PEEK (49308) = . THEN
PRINT "#96DU KANNST DEN#13
":
SYS 5681:
PRINT "SPRUCH NICHT!#13
":
GOTO 100
3008 IF AS < 30 THEN
PRINT "#96ZU WENIG#13
":
SYS 5681:
PRINT "ASTRALENERGIE!#13
":
GOTO 100
3010 IF PEEK (49340) = . OR PEEK (49341) = . OR PEEK (49343) = . THEN
PRINT "ZU WENIG ZUTATEN#13
":
GOTO 100
3012 POKE 49340, PEEK (49340) - 1:
POKE 49341, PEEK (49341) - 1:
POKE 49343, PEEK (49343) - 1
3014 AS = AS - 30:
POKE 49235,AS / 256:
POKE 49234,AS - 256 * PEEK (49235)
3016 PRINT "#81DU KONZENTRIERST#13
":
SYS 5681:
PRINT "DICH...#13
"
3018 SYS 5681:
GOSUB 10000:
IF RND (TI) * 20 + 1 > CH THEN
PRINT "#96GELINGT NICHT!#13
":
GOTO 100
3020 PRINT "#9FES GELINGT!#13
":
FOR I = 6262 TO 6411:
IF PEEK (I) = . THEN
POKE I,11
3022 NEXT :
POKE 53281,14:
SYS 6041:
POKE S + 5,10:
POKE S + 4,33
3024 FOR I = 5 TO 50 STEP 5:
FOR J = I TO I + 10:
POKE S + 1,J:
NEXT J,I:
POKE 53281,0
3026 FOR I = 0 TO 500:
NEXT :
POKE 51200,15:
SYS 4361:
FOR I = 0 TO 500:
NEXT :
POKE 51200,12:
SYS 4361
3028 FOR I = 0 TO 500:
NEXT :
POKE 51200,11:
SYS 4361:
FOR I = 0 TO 500:
NEXT :
POKE 51200,0:
SYS 4361:
GOTO 100
3300 PRINT "#9D #13
":
SYS 5681:
PRINT "#9EMÖCHTEST DU#13
":
SYS 5681:
PRINT "DEN TEMPEL#13
"
3301 SYS 5681:
PRINT "VERLASSEN?
";:
GOSUB 970:
IF U$ = "N
" THEN
Y = Y - 1:
GOTO 100
6000 SYS 5681:
PRINT "#96DU VERLÄSST#13
":
SYS 5681:
PRINT "DEN TEMPEL.#13
"
6010 FOR I = 0 TO 2E3:
NEXT :
PRINT "#90#93#11#11#11L#CF
" CHR$ (34)"DDD.KONJ
" CHR$ (34)",8:
"
6020 FOR I = 0 TO 9:
PRINT "R#D5:
":
NEXT :
PRINT "#13
":
POKE 631,13:
POKE 632,13:
POKE 198,2:
POKE 2,0:
NEW
6100 POKE S + 4,0:
POKE S + 5,16:
POKE S + 1,12:
POKE S + 4,129:
GOTO 100
9003 IF GP < Z THEN
PRINT "DU HAST NICHT#13
":
SYS 5681:
PRINT "GENUG GOLD!%#13
":
GOTO 400
9004 GP = GP - Z:
POKE 49243,GP / 256:
POKE 49242,GP - 256 * PEEK (49243)
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)"#05G#99
":
PO = PEEK (49245):
POKE 1449,32 - 16 * (PO > 0) + PO:
IF PO THEN
POKE 55720,13
10020 WF = PEEK (49246):
RS = PEEK (49247):
SH = PEEK (49248):
RETURN
// -----------------------------
50000 DATA MAGISCH. LICHT,8,2,50,ENTGIFTUNG,9,5,100,SCHUTZSCHILD,9,10,100
50001 DATA WUNDERHEILUNG,10,10,150,BANNBRECHER,10,30,300,LICHTSCHILD,11,15,150
50002 DATA GEWANDHEIT,12,20,200,TOTENBANN,13,20,250
50100 DATA -35,6400,1,6800,35,6820,-1,6990
0