1 POKE 53281,0:
POKE 53280,0:
POKE 53272,18:
I = RND ( - TI):
S = 54272
2 POKE 51211,8:
POKE 51209,15:
POKE 51208,12:
SYS 5454
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(0) = 2:
Y(0) = 7:
X(1) = 7:
Y(1) = 8:
Z(0) = 11:
Z(1) = 11:
X = 5:
Y = 9
30 GOSUB 10000
100 GOSUB 300:
SYS 4361:
SYS 5681:
SYS 5440:
PRINT "#05@#C7#9D
";:
Z = 0:
IF Y > 9 GOTO 600
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
190 PRINT "WIE BITTE..?#13
":
GOTO 100
200 PRINT "WARTEN...#13
":
GOTO 100
202 POKE J,27:
SYS 6041:
POKE S + 5,16:
POKE S + 1,12:
POKE S + 4,129:
GOTO 100
210 PRINT "NORDEN#13
":
J = 821 + X + 11 * Y:
IF PEEK (J) > 8 AND PEEK (J) < > 11 GOTO 214
212 POKE J + 11,11:
Y = Y - 1:
GOTO 202
214 SYS 5681:
PRINT "#96BLOCKIERT!#13
":
SYS 5681:
GOTO 100
220 PRINT "SÜDEN#13
":
J = 843 + X + 11 * Y:
IF PEEK (J) > 8 AND PEEK (J) < > 11 GOTO 214
222 POKE J - 11,11:
Y = Y + 1:
GOTO 202
230 PRINT "WESTEN#13
":
J = 831 + X + 11 * Y:
IF PEEK (J) > 8 AND PEEK (J) < > 11 GOTO 214
232 POKE J + 1,11:
X = X - 1:
GOTO 202
234 PRINT "OSTEN#13
":
J = 833 + X + 11 * Y:
IF PEEK (J) > 8 AND PEEK (J) < > 11 GOTO 214
236 POKE J - 1,11:
X = X + 1:
GOTO 202
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 (832 + X + 11 * Y + J):
SYS 5681:
IF J = 71 GOTO 400
270 IF J < > 74 THEN
PRINT "#96KEINE ANTWORT!#13
":
SYS 5681:
GOTO 100
280 SYS 5681:
PRINT "#9FDU SPRICHST
";:
SYS 5681:
PRINT "EINE KATZE AN.#13
"
290 SYS 5681:
SYS 5681:
PRINT "#9EDIE KATZE SAGT:
";:
SYS 5681:
J = INT (4 * RND (1))
292 PRINT "#99%
" MID$ ("MIAU#92#92#92MAUNZ#92#92FAUCH#92#92SCHNURR
",7 * J + 1,7)"!%#13
"
294 SYS 5681:
GOTO 100
300 FOR I = 0 TO 1:
J = INT (4 * RND (TI)):
DX = X(I) + (J = 0) - (J = 1):
DY = Y(I) + (J = 2) - (J = 3)
310 J = 832 + DX + 11 * DY:
IF DX < . OR DY < . OR DX > 10 OR DY > 10 OR PEEK (J) > 20 OR PEEK (J) = 9 GOTO 390
320 POKE 832 + X(I) + 11 * Y(I),Z(I):
X(I) = DX:
Y(I) = DY:
Z(I) = PEEK (J):
POKE J,74
390 NEXT :
RETURN
// -----------------------------
400 SYS 5681:
PRINT "#9FDU SPRICHST DEN
";:
SYS 5681:
PRINT "DRUIDEN AN.#13
"
401 J = SU * 25 - 26:
IF J > AM GOTO 1000
402 IF RND (TI) < .5 GOTO 454
410 GOSUB 900:
IF RND (TI) < .05 THEN
PRINT " #13
":
GOTO 451
413 IF N$ = "NAME
" THEN
PRINT "?#13
":
GOTO 454
414 IF N$ = "BERU
" GOTO 456
415 IF N$ = "FICK
" OR N$ = "PISS
" OR MID$ (N$,2) = "OTZ
" OR N$ = "ARSC
" OR N$ = "PORN
" GOTO 458
416 IF N$ = "DRUI
" GOTO 460
417 IF N$ = "HILF
" THEN
PRINT "E#13
":
GOTO 465
418 IF N$ = "HELF
" GOTO 464
419 IF N$ = "SEHE
" GOTO 467
420 IF N$ = "WIED
" GOTO 450
421 IF N$ = "GESU
" GOTO 500
422 IF N$ = "HEIL
" THEN
PRINT "EN#13
":
GOSUB 950:
GOTO 504
423 IF N$ = "BOES
" GOTO 470
424 IF N$ = "WELT
" GOTO 474
425 IF N$ = "GLEI
" GOTO 476
426 IF N$ = "KRIS
" GOTO 490
427 IF N$ = "SPLI
" GOTO 530
440 PRINT " #13
":
GOSUB 950:
PRINT "DAMIT KANN#13
":
SYS 5681:
PRINT "ICH DIR NICHT#13
":
SYS 5681
441 PRINT "WEITERHELFEN.%#13
"
442 SYS 5681:
GOTO 410
450 PRINT "ERSEHEN.#13
"
451 GOSUB 950:
PRINT "MEINE GEBETE#13
":
SYS 5681
452 PRINT "BEGLEITEN DICH.%#13
":
SYS 5681:
GOTO 100
454 GOSUB 950:
PRINT "ICH BIN#13
":
SYS 5681:
PRINT "CERFAX.%#13
":
GOTO 442
456 PRINT "F?#13
":
GOSUB 950:
PRINT "ICH BIN EIN#13
":
SYS 5681:
PRINT "DRUIDE.%#13
":
GOTO 442
458 PRINT " #13
":
GOSUB 950:
PRINT "DU BIST EIN#13
":
SYS 5681:
PRINT "ALTES FERKEL!%#13
":
GOTO 442
460 PRINT "DE#13
":
GOSUB 950:
PRINT "WIR DRUIDEN
":
SYS 5681:
PRINT "SIND WEISE ALTE#13
"
461 SYS 5681:
PRINT "MAGIER, ABER#13
":
SYS 5681:
PRINT "MEHR NATURVER-#13
":
SYS 5681
462 PRINT "BUNDEN ALS DIE#13
":
SYS 5681:
PRINT "ZAUBERER.#13
":
GOSUB 960:
PRINT "WIR SEHEN, WIR#13
"
463 SYS 5681:
PRINT "HEILEN UND#13
":
SYS 5681:
PRINT "WIR HELFEN.#13
":
GOTO 442
464 PRINT "EN#13
"
465 GOSUB 950:
PRINT "FRAGE, WAS DU#13
":
SYS 5681:
PRINT "WISSEN WILLST.#13
":
SYS 5681
466 PRINT "ICH WEISS SEHR#13
":
SYS 5681:
PRINT "VIEL.%#13
":
GOTO 442
467 PRINT "N#13
":
GOSUB 950:
PRINT "ICH SEHE WIE#13
":
SYS 5681:
PRINT "DAS#1DBÖSE UNSERE#13
"
468 SYS 5681:
PRINT "WELT EROBERT.%#13
":
GOTO 442
470 PRINT "E#13
":
GOSUB 950:
PRINT "DEN NAMEN DES#13
":
SYS 5681:
PRINT "BÖSEN AUSZU-#13
"
472 SYS 5681:
PRINT "SPRECHEN BEDEU-#13
":
SYS 5681:
PRINT "TET UNHEIL.%#13
":
GOTO 442
474 PRINT " #13
":
GOSUB 950:
PRINT "DAS BÖSE HAT#13
":
SYS 5681:
PRINT "DAS GLEICHGE-#13
"
475 SYS 5681:
PRINT "WICHT UNSERER#13
":
SYS 5681:
PRINT "WELT ZERSTÖRT.%#13
":
GOTO 442
476 PRINT "CHGEWICHT#13
":
GOSUB 950:
PRINT "KOMMST DU VON#13
":
SYS 5681:
PRINT "EINER ANDEREN#13
"
477 SYS 5681:
PRINT "WELT?
";:
GOSUB 970:
IF U$ = "J
" GOTO 479
478 PRINT "DANN MÜSSTEST DU#13
":
SYS 5681:
PRINT "DIES WISSEN!%#13
":
GOTO 442
479 PRINT "EINST WAR UNSERE#13
":
SYS 5681:
PRINT "WELT SCHÖN UND#13
":
SYS 5681
480 PRINT "HELL. DIE MEN-#13
":
SYS 5681:
PRINT "SCHEN LEBTEN IN#13
":
SYS 5681
481 PRINT "FRIEDEN UND#13
":
SYS 5681:
PRINT "WAREN GLÜCKLICH.#13
":
GOSUB 960
482 PRINT "DOCH DAS BÖSE#13
":
SYS 5681:
PRINT "BRACHTE DIE#13
":
SYS 5681
483 PRINT "EWIGE DUNKELHEIT#13
":
SYS 5681:
PRINT "ÜBER UNS, UND#13
":
SYS 5681
484 PRINT "DIE KREATUREN#13
":
SYS 5681:
PRINT "DER FINSTERNIS#13
":
SYS 5681
485 PRINT "KRIECHEN AUS IH-#13
":
SYS 5681:
PRINT "REN LÖCHERN UND#13
":
SYS 5681
486 PRINT "ÜBERFLUTEN DAS#13
":
SYS 5681:
PRINT "LAND.#13
":
GOSUB 960
487 PRINT "DIE SONNE WIRD#13
":
SYS 5681:
PRINT "NIE WIEDER AUF-#13
":
SYS 5681
488 PRINT "GEHEN, DENN DER#13
":
SYS 5681:
PRINT "KRISTALL IST#13
":
SYS 5681
489 PRINT "ZERBROCHEN.%#13
":
GOTO 442
490 PRINT "TALL#13
":
GOSUB 950:
PRINT "DER KRISTALL#13
":
SYS 5681:
PRINT "DES LICHTS, DER#13
"
491 SYS 5681:
PRINT "DAS GLEICHGE-#13
":
SYS 5681:
PRINT "WICHT UNSERER#13
":
SYS 5681
492 PRINT "WELT BEWAHRTE.#13
":
SYS 5681:
PRINT "GETRAGEN VON#13
":
SYS 5681
493 PRINT "FEUER UND LUFT#13
":
SYS 5681:
PRINT "SCHWEBT ER ÜBER#13
":
SYS 5681
494 PRINT "DER LAVA DES#13
":
SYS 5681:
PRINT "GROSSEN VULKANS.#13
":
GOSUB 960
495 PRINT "DOCH DAS BÖSE#13
":
SYS 5681:
PRINT "SCHLUG MIT ALL#13
":
SYS 5681
496 PRINT "SEINER GRAUSAMEN#13
":
SYS 5681:
PRINT "MACHT ZU, UND#13
":
SYS 5681
497 PRINT "DER KRISTALL#13
":
SYS 5681:
PRINT "ZERBARST. EIN#13
":
SYS 5681
498 PRINT "SPLITTER BRACH#13
":
SYS 5681:
PRINT "AB. DER KRISTALL#13
":
SYS 5681
499 PRINT "WURDE SCHWARZ.#13
":
SYS 5681:
PRINT "MIT IHM ERLOSCH#13
":
SYS 5681:
GOTO 520
500 PRINT "NDHEIT?#13
":
GOSUB 950:
PRINT "ICH BIN ER-#13
":
SYS 5681:
PRINT "SCHÖPFT. GEHT ES#13
"
501 SYS 5681:
PRINT "DIR DENN GUT?
";:
GOSUB 970:
IF U$ = "N
" GOTO 504
502 PRINT "DAS FREUT MICH#13
":
SYS 5681:
PRINT "FÜR DICH.%#13
":
GOTO 442
504 PRINT "LASS MICH DICH#13
":
SYS 5681:
PRINT "HEILEN...%#13
"
510 POKE S + 5,201:
POKE S + 12,201:
POKE S + 11,129:
POKE S + 4,17:
K = 5
512 FOR I = 5 TO 255 STEP 5:
POKE S + 1,I:
POKE S + 8,I:
K = 5 - K:
POKE 53281,K:
POKE 53280,K:
NEXT
514 POKE 53281,0:
POKE 53280,0:
POKE S + 11,0:
POKE S + 4,0
516 POKE 49230, PEEK (49232):
POKE 49231, PEEK (49233):
POKE 49245,0:
GOSUB 10000:
GOTO 442
520 PRINT "AUCH DIE SONNE.#13
":
GOSUB 620:
PRINT "DER SPLITTER#13
":
SYS 5681
521 PRINT "ABER WURDE IN#13
":
SYS 5681:
PRINT "EINE ANDERE#13
":
SYS 5681
522 PRINT "DIMENSION GE-#13
":
SYS 5681:
PRINT "SCHLEUDERT. ALS#13
":
SYS 5681
523 PRINT "DU IHN BERÜHR-#13
":
SYS 5681:
PRINT "TEST, BRACH EIN#13
":
SYS 5681
524 PRINT "BANN, UND DER#13
":
SYS 5681:
PRINT "SPLITTER UND DU#13
":
SYS 5681
525 PRINT "WURDET HIERHER#13
":
SYS 5681:
PRINT "TELEPORTIERT.#13
":
GOSUB 960
526 PRINT "HAST DU DEN#13
":
SYS 5681:
PRINT "SPLITTER?
";:
GOSUB 970:
IF U$ = "N
" GOTO 528
527 PRINT "HEILE DEN #13
":
SYS 5681:
PRINT "SCHWARZEN#13
":
SYS 5681:
PRINT "KRISTALL!%#13
":
GOTO 442
528 PRINT "GEH UND FINDE#13
":
SYS 5681:
PRINT "IHN, SONST IST#13
":
SYS 5681
529 PRINT "UNSERE WELT FÜR#13
":
SYS 5681:
PRINT "IMMER VERLOREN.#13
":
GOTO 532
530 PRINT "TTER
";:
GOSUB 950:
PRINT "DER KRISTALL#13
":
SYS 5681:
PRINT "UND DER SPLITTER#13
"
531 SYS 5681:
PRINT "MÜSSEN WIEDER#13
":
SYS 5681:
PRINT "VEREINT WERDEN!%#13
":
GOTO 442
532 GOSUB 960:
PRINT "DU GEHST AM#13
":
SYS 5681:
PRINT "BESTEN NACH#13
":
SYS 5681
533 PRINT "NORDOSTEN. DANN#13
":
SYS 5681:
PRINT "KOMMST DU ZUM#13
":
SYS 5681
534 PRINT "SCHLOSS DES#13
":
SYS 5681:
PRINT "KÖNIGS. DORT#13
":
SYS 5681:
PRINT "HILFT MAN DIR.%#13
":
GOTO 442
600 PRINT "#9D #13
":
SYS 5681:
PRINT "#96DU VERLÄSST#13
":
SYS 5681:
PRINT "DAS HAUS.#13
"
610 FOR I = 0 TO 600:
NEXT :
PRINT "#90#93#11#11#11L#CF
" CHR$ (34)"DDD.KONJ
" CHR$ (34)",8:
"
612 FOR I = 0 TO 9:
PRINT "R#D5:
":
NEXT :
PRINT "#13
":
POKE 631,13:
POKE 632,13:
POKE 198,2:
POKE 2,0:
NEW
620 GOSUB 960:
PRINT "DER SPLIITER#13
":
SYS 5681:
PRINT "BRACH AUS#13
"
622 SYS 5681:
PRINT "DER RECHTEN#13
":
SYS 5681:
PRINT "OBEREN ECKE DES#13
"
623 SYS 5681:
PRINT "KRISTALLS.#13
":
SYS 5681:
PRINT "MERKE DIR DIESE#13
"
624 SYS 5681:
PRINT "STELLE!#13
":
GOSUB 960:
PRINT "DAS BÖSE#13
":
SYS 5681:
PRINT "ERRICHTETE EINE#13
"
625 SYS 5681:
PRINT "UNEINNEHMBARE#13
":
SYS 5681:
PRINT "FESTUNG IN FORM#13
"
626 SYS 5681:
PRINT "EINES RIESIGEN#13
":
SYS 5681:
PRINT "SCHÄDELS UM DEN#13
"
627 SYS 5681:
PRINT "KRISTALL. DORT#13
":
SYS 5681:
PRINT "LAUERT ES UND#13
"
628 SYS 5681:
PRINT "SENDET DAS#13
":
SYS 5681:
PRINT "VERDERBEN AUS.#13
":
GOTO 960
900 SYS 5681:
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
950 GOSUB 300:
SYS 4361:
GOSUB 999:
PRINT "#9EDER DRUIDE SAGT:
";:
SYS 4361
952 SYS 5681:
PRINT "#99%
";:
RETURN
// -----------------------------
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
":
GOSUB 999:
RETURN
// -----------------------------
972 GOTO 971
999 SYS 5681:
SYS 5681:
RETURN
// -----------------------------
1000 POKE 49237,J / 256:
POKE 49236,J - 256 * PEEK (49237):
GOSUB 950:
PRINT "OH, ICH SEHE,#13
"
1001 SYS 5681:
PRINT "DU BIST JEZT AUF#13
":
SYS 5681:
PRINT "STUFE
"SU"#9D. DARUM#13
"
1002 SYS 5681:
PRINT "ERHÖHE ICH NUN#13
":
SYS 5681:
PRINT "DEINE EMPFÄNG-#13
"
1003 SYS 5681:
PRINT "LICHKEIT FÜR#13
":
SYS 5681:
PRINT "MAGIE.%#13
"
1004 S = 54272:
SYS 6041:
POKE S + 5,10 + 160:
POKE S + 4,33:
K = 7:
POKE 49235, PEEK (49237)
1005 FOR I = 0 TO 66:
K = 10 - K:
POKE S + 1,K * 8:
POKE 53281,K:
POKE 53280,K:
NEXT :
SYS 6041
1006 POKE 49234, PEEK (49236):
POKE 53281,0:
POKE 53280,0:
GOSUB 10000:
GOTO 442
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):
IF PO THEN
POKE 1449,48 + PO:
POKE 55720,13
10020 WF = PEEK (49246):
RS = PEEK (49247):
SH = PEEK (49248):
RETURN
// -----------------------------
0