Buch der Weisheit
Dieses Textadventure nimmt eine Sonderstellung ein. Es wurde uns von seinem Autor unentgeltlich zur Verfügung gestellt. Wir sollten dieses Programm einer Leserservice-Diskette beifügen, um anderen Lesern unseres Magazins eine Freude zu machen.
Natürlich erhält der Autor vom 64’er-Magazin ein angemessenes Honorar. Allerdings ist das Adventure »Buch der Weisheit« nur auf der Leserservice-Diskette dieser Ausgabe enthalten.
Programmbeschreibung
Sie werden beauftragt, das Buch der Weisheit zu finden und es zu den Zwergen zu bringen. Bis Sie diese Aufgabe erfüllt haben, liegt ein langer Weg vor Ihnen. Das Adventure spielt auf drei Ebenen mit insgesamt über 100 Räumen. Von Ebene zu Ebene kommt man jeweils nur durch einen Trick, der hier nicht verraten werden soll. Der Raum, in den man dann gelangt, wird durch einen Zufallsgenerator bestimmt.
Die Befehle werden als Zwei-Wort-Befehle eingegeben. Eine genauere Beschreibung finden Sie am Anfang des Programmes.
(rg) |
1 rem ********************************
2 rem * *
3 rem * das buch der weisheit *
4 rem * *
5 rem * juli 1984 *
6 rem * *
7 rem * edgar thorand *
8 rem * an der roethe 1 *
9 rem * 3501 koerle *
10 rem * 05665/1670 *
11 rem * *
12 rem * und falk messing *
13 rem * c/o e.thorand *
14 rem * *
15 rem * *
16 rem ********************************
23 form=1to3:y(m)=int(rnd(1)*144)+108:nextm
24 deffntr(cp)=(cp=ob(no)orob(no)=-2)
25 poke53280,2:poke53281,2
26 printchr$(14)
27 print"{clr}"
28 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{blk}*** Das BUCH der WEISHEIT ***"
29 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}E.Thorand und F.Messing"
30 gosub50000
35 print"{clr}{down}{down}{down}{down}{down}{down}{rght}{rght}Neues oder Altes Spiel ?"
36 getsp$:ifsp$=""then36
37 ifsp$="n"orsp$="N"then40
38 ifsp$="a"orsp$="A"then25000
39 goto35
40 poke53280,0:poke53281,0
100 rem
101 s=o
110 gosub1261
112 gosub1130
115 ifvb=3andn1$=""then100
120 ifno<9andno<>0and(vb=0orvb=1)thenvb=1:goto150
130 iflen(n1$)>0andno=0thens=1
131 ifs=1thens=0:print"{gry2}Ich kenne ";chr$(34);n1$;chr$(34);" nicht!":goto112
135 ifvb=27orvb=13orvb=38orvb=29orvb=24then150
140 ifn1$=""andvb>0thenprint"{gry2}Ich benoetige ein VERB und ein OBJEKT!":goto112
150 goto1490
1130 print:print"{lblu}Was willst Du jetzt machen ?"
1135 inputcm$
1140 iflen(cm$)=0then1130
1150 vb$="":no$="":vb=0:no=0
1160 lc=len(cm$):fori=1tolc:a$=mid$(cm$,i,1):ifa$<>" "thenvb$=vb$+a$:next
1170 iflen(vb$)+1>=len(cm$)thenno=0:goto1190
1180 no$=right$(cm$,lc-i)
1190 n1$=no$:v1$=vb$:vb$=left$(vb$,4):no$=left$(no$,4):fori=1tonv
1200 ifvb$=vb$(i)thenvb=i:goto1240
1210 next:vb=0
1220 ifn1$=""thenno$=vb$
1230 vb=0:goto1250
1240 ifvb$=cm$thenno=0:no$="":return
1250 fori=1tonn:ifno$=no$(i)thenno=i:return
1260 next:no=0:no$="":return
1261 ifkl=1andcp=43andvb=3thenprints$(112):return
1262 ifkl=1andcp=57andvb=3thenprints$(112):return
1263 ifkl=1andcp=62andvb=3thenprints$(113):return
1264 ifkl=1andcp=131andvb=3thenprints$(114):return
1265 ifkl=1andcp=133andvb=3thenprints$(114):return
1266 ifkl=1andcp=137andvb=3thenprints$(114):return
1270 ifcp<>csorvb=3andn1$=""thenprint"{clr}":cs=cp:goto1290
1280 return
1290 p$="{lblu}Du bist "+p$(cp)
1291 printp$:iflg=0then1298
1292 ifob(47)=-2andli>0thens=1
1293 ifob(47)=cpandli>0thens=1
1294 ifs=1thens=0:goto1298
1297 prints$(62):goto1340
1298 k=0:fori=1tolo:ifob(i)<>cpthen1330
1300 ifk=0thenprint"{pur}Du siehst "
1310 if(4+pos(0)+len(ob$(i)))>39thenprint
1320 print"{wht}";ob$(i);".";:k=k+1
1330 nexti
1331 ifcp=134orcp=120thenprint"{wht}Eisenringe."
1332 ifcp=133orcp=136orcp=139orcp=141orcp=146orcp=137thens=1
1333 ifs=1thens=0:print:print"{lgrn}Da sind Schienen."
1334 ifk>0thenprint
1340 k=0:print:print"{pur}Moegliche Richtungen: "
1350 fori=0to3:ifp(cp,i)=0then1380
1360 ifk>0thenprint". ";:k=k+1
1370 print"{gry3}";d$(i);:k=k+1
1380 next
1390 print
1399 return
1490 ifbi>0thenz=z+1
1491 ifz=4orz=7orz>9thenprints$(26):fori=1to1500:nexti
1492 ifz>12then30000
1494 ifri>2thenprints$(40):fori=1to2000:nexti
1495 ifri=5thenprints$(41):ob(40)=0:zz=zz-1:fori=1to2000:nexti:ri=0
1500 ifob(91)=-1thenf=f+1
1501 iff>4 thenprints$(67):fori=1to2500:nexti:ifob(16)=-2thenzz=zz-1
1502 iff> 4thenob(16)=0:fe=0:f=0:ob(91)=-3
1504 ifob(95)=-1thenb=b+1:ifb>15thenprints$(68):ifob(20)=-2thenzz=zz-1
1505 ifb>15thenob(20)=0:b=0:ob(95)=-3
1510 ifpf=0thenob(38)=0:pf=0
1515 ifbp>0thenbp=bp+1:ifbp>5thenprints$(155):ob$(38)=ob$(98):ob(96)=0:s=1
1516 ifs=1thens=0:bp=0:fori=1to2500:nexti
1522 ifcp=58then30010
1523 ifcp=41andob(11)<>-2thensp=sp+1:ifsp>4then30030
1529 ifcp=30orcp=31orcp=39orcp=44orcp=48orcp=51orcp=52orcp=60orcp=61thens=1
1530 ifs=1thensm=sm+1:ifsm>5thens=0:goto30020
1540 ifcp=161thenprints$(163):fori=1to2000:nexti:goto30010
1545 ifcp=149thenprints$(164):fori=1to2000:nexti:goto30010
1600 ifru>0thenru=ru+1:goto100
1601 ifru=2orru=4orru=6thenprints$(167):goto100
1603 ifru>6thengoto30010
1700 form=1to3:ifcp=y(m)then1705
1701 nextm
1702 goto1991
1705 ifob(13)=-2thenprints$(167):ob(13)=0:zz=zz-1:y(1)=0:y(2)=0:y(3)=0:s=1
1706 ifs=1thens=0:fori=1to2000:nexti:goto1991
1707 fori=1tolo:ifob(i)=-2thenob(i)=0:zz=zz-1:prints$(168):y(m)=0:s=1
1708 ifs=1thens=0:forx=1to2000:nextx:goto1991
1709 nexti
1991 ifkl=1andvb<>13thenifkl=1andvb<>12thenprints$(2):goto112
2000 ifvb=0then2100
2010 onvbgoto3000,3500,4000,4500,5000,5500,14000,6500,7000,7500,8000,8500,9000
2011 onvb-13goto9500,10000,10000,3500,3500,10500,10500,11000,3000,3000
2012 onvb-23goto11500,12000,12500,20000,13500,14000,14000,14500,14500,15000
2013 onvb-33goto15500,16000,16500,17000,17500
2100 print"{gry2}Ich habe nie gelernt,wie man "
2101 printchr$(34);v1$;chr$(34);" anwendet":goto100
3000 ifno<9then3025
3005 ifnotfntr(cp)thenprints$(3):goto100
3008 ifno=10andcp=7thencp=177:goto100
3010 ifno=30thenprints$(136):goto100
3020 ifno=79andob(79)=cpthenprints$(157):goto100
3022 ifno=61thenprints$(157):goto100
3023 ifno=64thenprints$(157):goto100
3024 prints$(158):goto100
3025 ifno>4thenno=no-4
3026 no=no-1
3030 ifp(cp,no) =0thenprint"Kein Weg in diese Richtung":goto100
3035 ifcp=148orcp=153orcp=156orcp=160orcp=164thens=1
3040 ifs=1thenifob(30)<>-2thenprints$(159):s=0:fori=1to1500:nexti:goto30010
3045 ifs=1thenifob(30)=-2andob(31)<>-2thenprints$(160):s=0:ru=1:goto100
3046 s=0
3050 ifcp=25andno=1andob(21)=cpthenprint"{lgrn}Der Tiger ";s$(28):goto100
3055 ifcp=28andno=1andob(90)<>-1thenprint"{lgrn}Der Puma ";s$(28):goto100
3060 ifcp=33andno=2andob(17)=cpthenprint"{lgrn}Die Phyton ";s$(28):goto100
3065 ifcp=34andno=2andob(71)=cpthenprint"{lgrn}Die Affen ";s$(161):goto100
3070 ifcp=35andno=2andob(18)=cpthenprint"{lgrn}Die Elephanten ";s$(161):goto100
3075 ifcp=49andno=2andob(25)=cpthenprint"{lgrn}Die Boa ";s$(28):goto100
3080 ifcp=41andob(22)=cpandob(87)<>-1thenprint"{lgrn}Die Spinne ";s$(28):goto100
3083 ifcp=73andno=3andob(76)=cpthencp=61:goto100
3085 ifcp=73andob(76)=cpthenprint"{lgrn}Die Krebse ";s$(161):goto100
3090 ifcp=63andno=1andob(73)=cpthenprint"{lgrn}Die Ratten ";s$(161):goto100
3100 ifcp=84andno=0andob(37)=cpthenprint"{lgrn}Die Pflanze ";s$(28):goto100
3110 ifcp=87andno=0andob(89)<>-1thenprint"{lgrn}Der Scorpion ";s$(28):goto100
3115 ifcp=106andob(47)<>-2andno=2thenprint"{lgrn}Die Zwerge ";s$(161):goto100
3120 ifcp=106andno=3andob(12)<>-2thenprint"{lgrn}Die Zwerge ";s$(161):goto100
3131 ifcp=130andno=1andob(57)=cpthenprint"{lgrn}Der Flugdrache ";s$(28):goto100
3135 ifcp=135andno=2andob(62)=cpthenprint"{lgrn}Der Waechter ";s$(28):goto100
3136 ifcp=156andob(43)=cpandno=2thenprint"{lgrn}Die Krokodile ";s$(161):goto100
3137 ifcp=124andno=2andob(56)=cpthenprint"{lgrn}Der Steinfresser ";s$(28):goto100
3140 ifcp=120andba<>cpandno=1thens=1
3141 ifcp=112andba<>cpandno=0thens=1
3142 ifcp=128andba<>cpandno=2thens=1
3143 ifcp=134andba<>cpandno=2thens=1
3144 ifcp=145thens=1
3148 ifs=1thenprints$(56):cp=147:ob(47)=106:ob(12)=165:fori=1to2500:nexti
3149 ifs=1thenzz=zz-1:lg=0:s=0:goto100
3150 cp=p(cp,no):goto100
3500 :
3504 ifnotfntr(cp)thenprints$(3):goto100
3505 ifse>0andno=42thenprints$(2):goto100
3506 ifob(no)=-2thenprints$(25):goto100
3508 ifno=10orno=18orno=19orno=21orno=23orno=24orno=26orno=27orno=28thens=1
3509 ifno=29orno=37orno=41orno=46orno=49orno=61orno=60orno=62orno=63thens=1
3510 ifno=67orno=68orno=69orno=72orno=75orno=79orno=71orno=36orno>81thens=1
3511 ifs=1thenprints$(7):s=0:goto100
3514 ifno=54orno=64thenprints$(9):goto100
3516 ifno=17orno=25orno=33orno=56orno=57orno=73thens=1
3519 ifno=22andob(87)<>-1thens=1
3521 ifno=70andob(88)<>-1thens=1
3522 ifno=74andob(89)<>-1thens=1
3527 ifs=1thenprints$(8):s=0:bi=1:goto100
3529 ifno=13andob(88)<>-1thenprint"{lgrn}Die Tarantel";s$(28):goto100
3530 ifno=47andob(46)=cpandlg=0thenprint"{lgrn}Der Zwergenkoenig";s$(28):goto100
3532 ifno=47andli=0thenli=cp
3539 ifzz>8thenprints$(27):goto100
3540 prints$(1):ob(no)=-2:zz=zz+1:goto100
4000 :
4005 ifnotfntr(cp)thenprints$(3):goto100
4010 ifno=48orno=54orno=58orno=60orno=65orno=66orno=50then4020
4012 prints$(143):goto100
4020 ifno=48andob(82)=-1thenprints$(144):goto100
4025 ifno=48thenprints$(145):goto100
4030 ifno=66andob(83)=-1andob(80)=cpthenprints$(146):goto100
4035 ifno=66andob(83)=-1thenprints$(144):goto100
4040 ifno=66thenprints$(145):goto100
4045 ifno=60thenprints$(147):goto100
4050 ifno=54thenprints$(148):goto100
4055 ifno=65thenprints$(149):goto100
4060 ifno=50thenprints$(165):goto100
4065 prints$(143):goto100
4500 :
4503 ifnotfntr(cp)thenprints$(3):goto100
4504 ifno=12andob(12)<>-2thenprints$(29):goto100
4505 ifno=47andob(47)<>-2thenprints$(29):goto100
4506 ifno=12andob(46)=cpthenprints$(57):ob(12)=0:ob(47)=-2:lg=1:goto 100
4507 ifno=47andob(46)=cpthenprints$(72):ob(12)=cp:ob(47)=cp:lg=0:ob(12)=-2:s=1
4508 ifs=1thens=0:goto100
4510 ifcp=106thenprints$(13):goto100
4513 ifcp<>106thenprints$(73):goto100
4515 prints$(58):goto100
5000 :
5004 ifob(42)<>-2thenprints$(29):goto100
5006 ifcp=43thenprints$(42):se=1:ob(42)=cp:zz=zz-1:goto100
5008 ifcp=57thenprints$(43):se=1:ob(42)=cp:zz=zz-1:goto100
5012 ifcp=120orcp=134thens=1
5014 ifs=1thens=0:prints$(48):zz=zz-1:ob(42)=cp:se=1:goto100
5018 prints$(46):goto100
5500 :
5504 ifnotfntr(cp)thenprints$(3):goto100
5506 ifno=40orno=58then5508
5507 prints$(36):goto100
5508 ifno=58anddr=1thenprints$(6):goto100
5509 ifno=58thenprints$(37):p(131,2)=135:dr=1:goto100
5510 ifno=40andob(12)=-2thenprint"{clr}{down}{down}{down}{down}{down}{down}";s$(39):ri=ri+1:goto5514
5512 prints$(38):goto100
5514 x=int(rnd(1)*6)+1
5515 onxgosub5520,5525,5530,5535,5540,5541
5517 ifcd=cpthen5514
5518 fori=1to2500:nexti:goto100
5520 cp=17:return
5525 cp=22:return
5530 cp=92:return
5535 cp=95:return
5540 cp=176:return
5541 cp=5:return
6500 :
6505 ifnotfntr(cp)thenprints$(3):goto100
6510 ifno=48andob(82)=-1thenprint"{lgrn}Die Truhe ";s$(122):goto100
6515 ifno=48andob(51)=-2andob(93)=-1thenprints$(1):s=1
6516 ifs=1thens=0:ob(82)=-1:ob$(48)=ob$(82):goto100
6517 ifno=48andob(93)<>-1thenprints$(2):goto100
6518 ifno=48andob(51)<>-2thenprints$(2):goto100
6525 ifno=54thenprints$(123):goto100
6530 ifno=66andob(83)=-1thenprint"{lgrn}Die Kiste ";s$(122):goto100
6539 ifs=1thens=0:prints$(124):ob(80)=cp:pg=1:goto100
6540 ifno=66andob(92)<>-1thenprints$(2):goto100
6541 ifno=66andob(55)<>-2thenprints$(2):goto100
6543 ifno=66andob(92)=-1andob(55)=-2thenprints$(1):ob(83)=-1:s=1
6544 ifs=1thens=0:ob$(66)=ob$(83):prints$(4):ob(80)=cp:goto100
6545 ifno=65andbu=1thenprints$(122):goto100
6550 ifno=65thenprints$(1):bu=1:goto100
6555 prints$(125):goto100
7000 :
7004 ifnotfntr(cp)thenprints$(3):goto100
7005 ifno<>12thenprints$(128):goto100
7006 ifno=12andcp>10thenprints$(2):goto100
7010 ifno=12andcp<11thenprint"{clr}{down}{down}{down}{down}";s$(39)
7011 form=1to2500:nextm
7012 print"{clr}":ifob(12)<>-2thenob(12)=-2:zz=zz+1
7015 x=int(rnd(1)*3)+1
7016 ifx=1thencp=11:goto100
7017 ifx=2thencp=12:goto100
7018 ifx=3thencp=13:goto100
7020 ifno=12thenprints$(2):goto100
7025 goto100
7500 :
7501 ifnotfntr(cp)thenprints$(3):goto100
7502 ifno=15orno=16orno=20orno=38orno=47then7504
7503 prints$(66):goto100
7504 ifno=16andob(91)=-1thenprints$(21):goto100
7506 ifno=16andfe=0thenprints$(70):goto100
7508 ifno=15andob(94)=-1thenprints$(63):goto100
7512 ifno=15andfe=1andob(16)=cpthens=1
7514 ifno=15andfe=1andob(16)=-2thens=1
7516 ifs=1thenprints$(1):s=0:ob$(15)=ob$(94):fa=1:ob(94)=-1:goto100
7520 ifno=20andob(95)=-1thenprints$(64):goto100
7525 ifno=20andfa=1andob(15)=cpthens=1
7530 ifno=20andfa=1andob(15)=-2thens=1
7535 ifs=1thens=0:prints$(1):ob$(20)=ob$(95):b=1:ob(95)=-1:goto100
7540 ifno=38andob(96)=-1thenprints$(65):goto100
7545 ifno=38andfa=1andob(15)=-2thens=1
7550 ifno=38andfa=1andob(15)=cpthens=1
7555 ifs=1thens=0:ob$(38)=ob$(96):ob(96)=-1:bp=1:prints$(1):goto100
7560 ifno=47andob(97)=-1thenprints$(71):goto100
7565 ifno=47andfa=1andob(15)=-2thens=1
7570 ifno=47andfa=1andob(15)=cpthens=1
7580 ifs=1thens=0:prints$(1):ob$(47)=ob$(97):ob(97)=-1:li=cp:goto100
7585 prints$(2):goto100
8000 :
8004 ifnotfntr(cp)thenprints$(3):goto100
8006 ifob(no)<>-2thenprints$(29):goto100
8007 ifno=47andlg=1thenli=0
8008 ob(no)=cp:zz=zz-1:prints$(1)
8010 ifno=52andob(12)=cpthenprints$(93):ob(52)=0:goto100
8020 ifno=44andcp=33andob(17)=cpthenprints$(95):ob(17)=0:ob(44)=0:goto100
8025 ifno=44andcp=49andob(25)=cpthenprints$(93):ob(44)=0:goto100
8030 ifno=52andcp=35andob(18)=cpthenprints$(93):ob(52)=0:goto100
8035 ifno=35andcp=35andob(18)=cpthenprints$(96):ob(18)=0:ob(35)=0:goto100
8040 ifno=45andcp=84andob(37)=cpthenprints$(97):ob(37)=0:ob(45)=0:goto100
8045 ifno=78andcp=34andob(71)=cpthenprints$(98):ob(78)=0:ob(71)=0:goto100
8050 ifno=77andcp=63andob(73)=cpthenprints$(99):ob(77)=0:ob(73)=0:goto100
8055 ifno=34andcp=73andob(76)=cpthenprints$(100):ob(34)=0:ob(76)=0:goto100
8060 ifno=34andcp=63andob(73)=cpthenprints$( 99):ob(34)=0:ob(73)=0:goto100
8070 ifno=20andcp=112thenba=cp:prints$(126):goto100
8072 ifno=20andcp=134thenba=cp:prints$(126):goto100
8073 ifno=20andcp=128thenba=cp:prints$(126):goto100
8074 ifno=20andcp=120thenba=cp:prints$(126):goto100
8076 ifno=51andcp=121andob(93)=0thenprints$(127):ob(51)=0:goto100
8080 ifno=55andcp=121andob(92)=0thenprints$(127):ob(55)=0:goto100
8085 ifcp=106andno=65then32000
8090 goto100
8500 :
8502 ifnotfntr(cp)thenprints$(3):goto100
8503 ifkl=1thenprints$(110):goto112
8505 ifno=24andob(86)<>-1andcp=43thenprints$(1):kl=1:goto112
8510 ifno=26andcp=57andob(85)<>-1thenprints$(1):kl=1:goto112
8515 ifno=29andcp=62thenprints$(103):kl=1:goto112
8520 ifno=42andse=1thenprints$(52):fori=1to2500:nexti:prints$(104):goto100
8525 ifno=49andcp=109thenprints$(105):goto100
8530 ifno=58andcp=131thenprints$(106);s$(107):kl=1:goto112
8535 ifno=61andob(61)=cpthenprints$(108):kl=1:goto112
8540 ifno=64andob(63)=0thenprints$(132):ob(64)=0:goto100
8542 ifno=64andcp=138thenprints$(109):goto112
8545 ifno=79andcp=137andob(79)=cpthenprints$(54):kl=1:goto112
8593 prints$(111):goto100
9000 :
9003 ifkl=1thenprints$(115):kl=0:goto100
9005 prints$(116):goto100
9500 :
9502 ifno=11orno=30orno=38orno=39orno=32orno=59orno=14then9505
9503 prints$(121):goto100
9505 ifnotfntr(cp)thenprints$(3):goto100
9506 ifno=14thenprint"{lgrn}Wie?":goto100
9510 ifno=30thenprints$(136):goto100
9515 ifno=32then14500
9520 ifno=38then14500
9525 ifno=11andcp=124andob(56)=cpthenprints$(137):ob(56)=0:goto100
9530 ifno=11andcp=41andob(23)=0thenprints$(139):ob$(22)=ob$(87):s=1
9531 ifs=1thens=0:ob(87)=-1:goto100
9535 ifno=11andcp=41andob(23)<>0thenprints$(138):ob(23)=0:goto100
9540 ifno=39andob(38)=-2andcp=130andob(57)=cpthenprints$(140):ob(57)=0:s=1
9541 ifs=1thens=0:pf=pf-1:goto100
9545 ifno=39andob(38)=-2andob(96)=-1andcp=98andob(41)<>0thenprints$(141):s=1
9546 ifs=1thens=0:pf=pf-1:ob(41)=0:p(98,2)=105:goto100
9550 ifno=39andob(38)=-2andcp=98thenprints$(142):pf=pf-1:goto100
9560 ifno=39andob(38)=-2thenprints$(83):pf=pf-1:goto100
9570 ifno=11andob(11)=-2andcp=25andob(21)=cpthenprints$(156):ob(21)=0:goto100
9575 ifno=59andcp=137andob(79)>0thenprints$(1):ra=1:goto100
9580 prints$(6):goto100
10000 :
10003 ifnotfntr(cp)thenprints$(3):goto100
10004 ifno=65andbu=1thenprints$(150);s$(151):goto100
10005 ifno=65thenprints$(152):goto100
10006 ifno=80andob(80)<>0thenprints$(59):goto100
10007 ifno=66thenprints$(152):goto100
10008 ifno=67thenprints$(60):goto100
10009 ifno=36then10100
10010 prints$(61):goto100
10100 print"{clr}{lred}{down}{down}{rght}{rght}{rght}{rght}{rght}Hallo Abenteurer !"
10101 print"{down}{down}Du hast die Aufgabe, das"
10102 print"{down}{rght}{rght}{rght}*** BUCH DER{$a0}WEISHEIT ***"
10103 print"{down}zu finden und zu den ZWERGEN{$a0}zu bringen."
10104 print"Auf dem Wege dahin wirst Du viele {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}ABENTEUER und GEFAHREN"
10105 print"bestehen muessen. Sei auf der Hut und fuerchte Dich nicht."
10106 print"{down}Noch ein paar Tips:"
10107 print"{down}Ich werde Dein Begleiter sein, und dich fuehren, indem Du mir "
10108 print"Anweisungen in Form ' nimm axt' "
10109 print"'lege buch' gibst.":print"*** Bitte eine Taste ***":wait 203,63
10110 print"{down}Einige VERBEN sind z.B.:"
10111 print"{down}tausche-frage-trage-benutze-(ein)laden- raeumen"
10112 print"Mit 'inventur' bekommst Du gezeigt, was Du bei Dir traegst."
10115 print"Mit 'save' kannst Du ein Spiel fuer spaeteres Weiterspielen"
10116 print"abspeichern."
10117 print"{down}{down}{down}Und nun VIEL GLUECK !!!"
10118 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}(E.Thorand u.{$a0}F.Messing)"
10119 print"{down}{down}{down}*** Bitte eine Taste *** ":wait 203,63:print"{clr}{home}":cs=1
10120 print"{down}{down}Noch etwas:"
10122 print"{down}{down}Einige Verben koennen allein benutzt werden, z.B."
10124 print"schau - hilf - save"
10126 print"{down}Wenn Du etwas untersuchen moechtest, gib' bitte z.B. "
10128 print"{down}schau Huette oder schau Statue' ein."
10130 print"Die hier aufgefuehrten Verben sind nur eine Auswahl!"
10136 print"{down}{down}*** bitte eine Taste ***":wait203,63:print"{clr}"
10138 print"Ein vorletzter Tip: Die Raeume sind normalerweise quadratisch,"
10140 print"nur am Fluss nicht, dort ist Vorsicht beim Aufzeichnen geboten!"
10144 print"{down}{down}......und sollte es garnicht klappen:"
10146 print"{down}{down}Karte oder Anruf an:"
10147 print"{down}Edgar Thorand"
10148 print"An der Roethe 1"
10149 print"3501 Koerle"
10150 print"Tel. 05665/1670"
10155 print"{down}Auch ueber Kritik und Anregungen bin ich sehr dankbar!!"
10156 print"So .. und nun los!"
10160 print"{down}{down}*** bitte eine Taste ***":wait203,63:goto100
10500 :
10504 ifob(no)<>-2thenprints$(29):goto100
10508 ifno=45orno=53thenprints$(33):ob(no)=0:zz=zz-1:goto100
10510 ifno=20orno=34orno=35orno=52orno=77orno=78thenprints$(34):ob(no)=0:s=1
10511 ifs=1thenzz=zz-1:s=0:goto100
10512 prints$(35):goto100
11000 :
11005 ifno<>81thenprints$(30):goto100
11008 ifcp=94orcp=147orcp=165orcp=71orcp=153orcp=154orcp=155orcp=156thens=1
11011 ifcp=157orcp=159orcp=158orcp=64orcp=160orcp=172thens=1
11012 :
11013 ifs=1thenprints$(31):s=0:goto100
11015 ifcp=81orcp=166orcp=68orcp=167orcp=55orcp=56orcp=168orcp=57orcp=72thens=1
11017 ifcp=169orcp=170orcp=73orcp=171orcp=74orcp=75orcp=173orcp=63orcp=76thens=1
11018 ifcp=77orcp=174orcp=90orcp=175orcp=103orcp=104orcp=176thens=1
11019 ifs=1thenprints$(45):s=0:goto100
11035 prints$(32):goto100
11500 :
11506 print"{clr}{down}{down}Du traegst:"
11507 print:ifzz=0thenprint"{lred}Nichts":goto100
11510 fori=9tolo:ifob(i)<>-2then11520
11512 ifi=38thenprint"{left}";pf;
11514 print"{lred}";ob$(i)
11520 nexti
11522 goto100
12000 :
12004 ifnotfntr(cp)thenprints$(3):goto100
12010 ifno=76orno=71orno=63orno=62orno=28orno=46orno=12then12020
12015 prints$(5):goto100
12020 ifno=76andcp=73thenprints$(84):ob(76)=0:goto100
12025 ifno=71andcp=34thenprints$(85);s$(86):ob(71)=0:goto100
12030 ifno=63andcp=138thenprints$(87);s$(88):ob(63)=0:goto100
12035 ifno=62andcp=135andob(11)=-2thenprints$(89):ob(62)=0:goto100
12036 ifno=62thenprints$(14):goto100
12040 ifno=28andcp=59thenprints$(90):ob(28)=0:goto100
12045 ifno=46thenprints$(91):goto100
12050 ifno=12thenprints$(92):goto100
12500 :
12502 ifnotfntr(cp)thenprints$(3):goto100
12504 ifno=12orno=22orno=72orno=70orno=74orno=57orno=56orno=41then12520
12506 ifno=17orno=25orno=62orno=43orno=73orno=21then12520
12508 prints$(5):goto100
12520 print"{lgrn}Wie ?":goto100
13500 :
13505 ifnotfntr(cp)thenprints$(3):goto100
13510 ifno=61then13520
13515 prints$(5):goto100
13520 ifcp=133thenprints$(133):ob(61)=137:p(137,3)=0:goto100
13525 ifcp=137thenprints$(133):p(137,3)=134:ob(61)=133:goto100
14000 :
14005 ifnotfntr(cp)thenprints$(3):goto100
14006 ifno=61orno=79orno=50then14010
14007 prints$(5):goto100
14010 ifno=61andra=1thenprints$(117):prints$(118):p(137,2)=140:s=1
14011 ifs=1thens=0:ob$(79)=ob$(84):goto100
14015 ifno=61andcp=137thenprints$(119):goto100
14020 ifno=79andra=0thenprints$(119):goto100
14025 ifno=79andra=1andob(61)=cpthenprints$(120):goto100
14030 ifno=50andcp=121andob(51)=0thenprints$(134):ob(93)=-1:s=1
14035 ifs=1thens=0:ob$(51)=ob$(93):ob(51)=cp:goto100
14040 ifno=50andcp=121andob(55)=0thenprints$(135):ob$(55)=ob$(92):s=1
14041 ifs=1thens=0:ob(92)=-1:ob(55)=cp:goto100
14050 prints$(121):goto100
14500 :
14504 ifnotfntr(cp)thenprints$(3):goto100
14510 ifno=14orno=32orno=38then14520
14511 ifno=10orno=12orno=17orno=18orno19orno=24orno=26orno=25orno=27thens=1
14512 ifno=28orno=29orno=33orno=36orno=37orno=41orno=43orno=46orno=49thens=1
14513 ifno=54orno=56orno=57orno=58orno=60orno=61orno=62orno=63orno=64thens=1
14514 ifno=67orno=68orno=69orno=70orno=71orno=72orno=73orno=74orno=75thens=1
14515 ifno=76orno=79orno>80thens=1
14516 ifs=1thens=0:prints$(5):goto100
14519 prints$(1):ob(no)=0:zz=zz-1:goto100
14520 :
14525 ifno=32andcp=18andob(88)<>-1thenprints$(76):ob(88)=-1:ob$(70)=ob$(88):s=1
14526 ifs=1thens=0:zz=zz-1:ob(32)=cp:goto100
14530 ifno=32andcp=28andob(90)<>-1thenprints$(77):ob(90)=-1:ob$(72)=ob$(90):s=1
14531 ifs=1thens=0:zz=zz-1:ob(32)=cp:goto100
14535 ifno=32andcp=49andob(25)=cpthenprints$(78);s$(79):ob(25)=0:ob(32)=0:s=1
14536 ifs=1thens=0:zz=zz-1:goto100
14540 ifno=32andcp=156andob(43)=cpthenprints$(80):zz=zz-1:ob(32)=0:s=1
14541 ifs=1thens=0:ob(43)=0:goto100
14545 ifno=32thenprints$(1):zz=zz-1:ob(32)=0:goto100
14550 ifno=38thenprints$(83):s=1:pf=pf-1:ifpf=0thenzz=zz-1:ob(38)=0
14551 ifs=1thens=0:goto100
14555 ifno=14andcp=87andob(89)=0thenprints$(81):zz=zz-1:ob(14)=cp:s=1
14556 ifs=1thens=0:ob(89)=-1:ob$(74)=ob$(89):goto100
14560 ifno=14andcp=63andob(73)=cpthenprints$(82):zz=zz-1:ob(73)=0:s=1
14561 ifs=1thens=0:ob(14)=cp:goto100
14565 ifno=14thenprints$(1):zz=zz-1:ob(14)=0:goto100
15000 :
15004 ifnotfntr(cp)thenprints$(3):goto100
15006 ifno=28thenprints$(10):prints$(11):prints$(12):goto100
15008 ifno=46thenprints$(13):goto100
15010 ifno=62thenprints$(14):goto100
15012 ifno=63thenprint"{clr}";s$(15):prints$(16):prints$(17):prints$(18):s=1
15013 ifs=1thens=0:goto15030
15014 prints$(5):goto100
15030 input"{lgrn}Wie ist mein NAME";na$:na=na+1
15033 ifna$="usebis"orna$="USEBIS"then15038
15034 ifna>5thenprints$(88):ob(63)=0:goto100
15035 prints$(129):goto100
15038 prints$(130);s$(131):prints$(88):ob(63)=0:ob(65)=cp:goto100
15500 :
15504 ifnotfntr(cp)thenprints$(3):goto100
15510 ifno=12orno=17orno=18orno=21orno=25orno=37orno=71orno=72then15520
15511 ifno=73orno=76then15520
15515 prints$(5):goto100
15520 print"{lgrn}Lege das Futter hin !":goto100
16000 :
16004 ifnotfntr(cp)thenprints$(3):goto100
16006 ifno=9thenprints$(19):ob(12)=cp:ob(9)=0:goto100
16008 ifno=17orno=18orno=21orno=22orno=25orno=33orno=37thenprints$(20):goto100
16010 ifno=43orno=41orno=45orno=46orno=56orno=57orno=70thenprints$(20):goto100
16011 ifno=71orno=72orno=73orno=74orno=75orno=76thenprints$(20):goto100
16012 ifno=16andob(91)=-1thenprints$(21):goto100
16014 ifno=16thenprints$(1):ob$(16)=ob$(91):ob(91)=-1:fe=1:goto100
16049 prints$(6):goto100
16500 :
16502 ifnotfntr(cp)thenprints$(3):goto100
16503 ifob(14)<>-2thenprint"{lgrn}Womit ?":goto100
16504 ifno=26andob(85)=-1thenprints$(22):goto100
16506 ifno=26thenprints$(1):ob$(26)=ob$(85):ob(85)=-1:p(57,2)=152:s=1
16507 ifs=1thens=0:p(169,3)=152:p$(179)="unter der Tanne":goto100
16510 ifno=24andob(86)=-1thenprints$(23):goto100
16512 ifno=24thenprints$(1):ob$(24)=ob$(86):ob(86)=-1:goto100
16514 ifno=29thenprints$(24):goto100
16516 prints$(5):goto100
17000 :
17004 ifnotfntr(cp)thenprints$(3):goto100
17006 ifno<>42thenprints$(5):goto100
17007 ifse=0thenprints$(49):goto100
17008 prints$(1):se=0:goto100
17500 :
17505 print"{clr}{down}{down}{down}"
17506 prints$(153);s$(154):goto100
20000 input"{clr}{down}{down}{down}Filename";n$
20009 print"{down}{down}{down}Kassette oder Diskette?"
20010 getk$:ifk$="d"ork$="D"then21000
20020 ifk$="k"ork$="K"then22000
20025 goto20010
21000 open2,8,2,n$+",s,w":open15,8,15:input#15,a,a$:ifa$<>"ok"then29000
21100 fori=9tolo:print#2,ob(i):print#2,ob$(i):nexti:print#2,cp:print#2,zz
21101 print#2,lg:print#2,li:print#2,se:print#2,ri:print#2,bp:print#2,fa
21102 print#2,fe:print#2,kl:print#2,z:print#2,pf:print#2,bu:print#2,ra
21103 print#2,na
21104 print#2,sp:form=1to3:print#2,y(m):nextm
21108 fori=1tocp:forj=0to3:print#2,p(i,j):nextj,i:print#2,dr:print#2,pg
21200 close2:close15:goto100
22000 open2,1,1,n$:goto21100
25000 input"{down}{down}{down}Filename";n$
25005 print"{down}{down}Kassette oder Diskette?"
25010 geta$:ifa$="d"ora$="D"then26000
25012 ifa$="k"ora$="K"then27000
25014 goto25010
26000 open2,8,2,n$+",s,r":goto28000
26100 fori=9tolo:input#2,ob(i):input#2,ob$(i):nexti
26101 input#2,cp:input#2,zz:input#2,lg:input#2,li:input#2,se:input#2,ri
26102 input#2,bp:input#2,fa:input#2,fe:input#2,kl:input#2,z:input#2,pf
26103 input#2,bu:input#2,ra:input#2,na:input#2,sp:form=1to3:input#2,y(m):nextm
26104 fori=1tocp:forj=0to3:input#2,p(i,j):nextj,i:input#2,dr:input#2,pg
26120 close2:close15:goto40
27000 open2,1,0,n$:goto26100
28000 open15,8,15:input#15,a,a$:ifa$="ok"then26100
28010 ifa$="file not found"then28100
28020 ifa$="drive not ready"then28110
28030 ifa$="file type mismatch"then28120
28050 printa$:end
28100 print"{down}Ein File dieses Namens existiert nicht!"
28110 input"{down}Filename";n$:goto28200
28111 print"{down}Diskette einlegen!":print,"{down}{down}Fertig?"
28112 getx$:ifx$=""then28112
28113 goto28110
28120 print"{down}{down}Kein Daten-File!":goto28110
28150 printa$:stop
28200 close2:close15:goto26000
29000 close2:close15:ifa$="write protect on"then29100
29010 ifa$="drive not ready"then29200
29030 ifa$="file exists"then29300
29040 ifa$="file type mismatch"then29400
29050 print"a$:sT
29060 goto20000
29100 print"Diese Diskette ist Schreib-geschuetzt"
29110 print"Bitte eine andere Diskette einlegen":print,"Fertig?"
29120 getx$:ifx$=""then29120
29130 goto21000
29200 print"Diskette einlegen!":print,"Fertig?":goto29120
29300 print"Ein File dieses Namens existiert bereits"
29310 print"soll es ueberschrieben werden (j/n)?"
29320 getx$:ifx$="j"thenn$="@0:"+n$:goto21000
29330 ifx$="n"then20000
29340 goto29320
29400 print"Dieser Name ist von einem anderen"," File-Typ gelegt"
29410 fora=1to2000:next:goto20000
30000 :
30004 print"{clr}{down}{down}{down}{down}{yel}Dein Koerper ist so geschwaecht, dass Du Dich nicht mehr";
30005 print" bewegen kannst.":print"{down}{down}Du stirbst qualvoll !"
30006 fori=1to3000:nexti:goto31000
30010 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{yel}Du bist leider ertrunken!"
30011 fori=1to2000:nexti:goto31000
30020 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{yel}....und der SUMPF fordert ein neues OPFER !!!"
30021 fori=1to3000:nexti:print"{clr}":goto31000
30030 print"{clr}{down}{down}{down}{down}{down}{down}{yel}Die SPINNE{$a0}hat Dich gefressen.":fori=1to3000:nexti:goto31000
31000 :
31002 print"{clr}{down}{down}{down}{down}{rght}{rght}{wht}Neues Spiel ? (j/n)"
31003 getsp$:ifsp$=""then31003
31004 ifsp$="j"thenclr:restore:goto1
31005 ifsp$="n"then31007
31006 goto31003
31007 print"{down}{down}Wie schade.":sys64738
32000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}*** HERZLICHEN{$a0}GLUECKWUNSCH{$a0}***"
32001 fori=1to15:poke53280,i:fors=1to200:nexts:nexti:poke53280,2:poke53281,2
32002 print"{down}{down}{wht}Du hast das Abenteuer hervorragend geloest!"
32003 print"{down}{down}Es gratulieren Dir die Autoren:"
32004 print"{down}{rght}{rght}{rght}{rght}{rght}F.Messing und E.Thorand"
32005 fori=1to4000:nexti:print"{down}{down}* Bitte eine Taste *":wait203,63
32006 sys64738
50000 :
50005 np=180:lo=98:nv=38:cp=177:cs= 0:nn=84:ss=168:zz=0:pf=5
50010 dimp(np,4),p$(np),vb$(nv),ob$(lo),ob(lo),no$(nn),s$(ss)
50020 fori=1tonp:forj=0to3:readp(i,j):nextj,i
50030 fori=1tonp:readp$(i):nexti
50040 fori=9tolo:readob$(i):nexti
50050 fori=9tolo:readob(i):nexti
50060 fori=1tonn:readno$(i):nexti
50070 fori=0to3:readd$(i):nexti
50080 fori=1tonv:readvb$(i):nexti
50090 fori=1toss:reads$(i):nexti
51000 :
51002 data 0,2,4,0,1,0,5,0,0,4,7,0,3,5,8,1,4,6,9,2,5,0,10,0,177,8,0,3,7,9,0,4
51003 data 8,10,0,5,9,0,0,6
51005 data 0,0,16,0,0,0,20,0,0,0,24,0,0,15,27,0,14,16,28,0,15,17,0,0
51006 data 16,18,30,0,17,19,31,0,18,20,32,0,19,21,33,0
51008 data 20,22,34,0,21,23,35,0,22,24,36,0,23,25,37,0,24,26,38,0,25,0,39,0
51009 data 0,28,40,14,27,29,41,15,28,30,0,0,0,0,0,0
51011 data 0,0,0,0,31,0,45,19,0,0,46,20,0,35,47,21,34,36,48,22
51012 data 35,37,49,23,36,38,50,24,37,39,51,25,0,0,0,0,0,41,53,27
51014 data40,42,54,28,41,43,55,0,42,44,56,30,0,0,0,0,44, 0,0,32,0,0,59,33
51015 data 0,48,60,34,0,0,0,0,48,0,62,36,0,51,63,37
51017 data 0,0,0,0,0,0,0,0,0,54,66,40,53,55,67,41,54,56,68,42,55,57,0,43
51018 data 56,0,0,44,0,0,0,0,0,60,72,46,0,0,0,0
51020 data 0,0,0,0,61,63,75,0,62,64,0,50,63,65,160,51,64,0,78,52,0,67,79,53
51021 data 66,68,80,54,67,149,81,55,167,70,82,168,69,71,0,169
51023 data 70,170,84,153,0,73,0,59,72,74,0,60,73,75,0,61,74,0,0,62,173,77,89,0
51024 data 76,161,90,0,174,0,91,65,0,80,92,66,79,81,93,67
51026 data 80,148,94,68,166,0,95,69,0,84,0,0,83,0,97,71,0,86,0,0
51027 data 85,87,0,0,86,0,0,172,87,89,101,173,88,90,102,76
51028 data 89,0,103,77
51030 data 175,0,104,78,0,93,0,79,92,94,0,80,93,0,0,81,165,96,0,82,95,97,0,0
51031 data 96,98,0,84,97,99,0,0,98,100,0,0,99,101,0,0
51033 data 100,102,0,88,101,103,0,89,102,176,0,90,0,0,0,91,0,0,106,98
51034 data 0,0,108,105,0,108,115,0,107,109,116,106,108,0,117,0,0,111,0,0
51036 data 110,112,0,0,111,113,0,0,112,114,0,0,113,115,123,0,114,116,0,107
51037 data 115,117,124,108,116,118,0,109,117,119,125,0,118,120,0,0,119,121,0,0
51039 data 120,122,0,0,121,0,0,0,0,0,126,114,0,0,127,116,0,0,128,118
51040 data 0,0,129,123,0,0,0,124,0,0,133,125,0,130,134,126,129,131,0,0
51042 data 130,0,0,0,0,133,0,0,132,0,136,128,0,0,137,129,0,0,138,131
51043 data 0,0,139,133,146,0,0,134,0,0,0,135,0,0,141,136,0,0,142,137
51045 data 0,0,146,139,0,143,0,140,142,144,0,0,143,145,0,0,0,0,0,0,0,0,137,141
51046 data 0,165,0,148,81,0,147,178,68,167,0,0,0,151,178,0,150,179
51048 data 0,0,0,0,169,57,0,154,71,0,153,155,0,0,154,156,0,0,155,157,172,0
51056 data 156,158,0,0,157,0,0,159,0,160,158,0,159,0,180,64,77
51058 data 174,0,0,0,0,163,180,0,164,0,162,163,0,0,104,0,95,0,166,0,82,165,167
51059 data 149,69,166,0,0,169,69,0,168,0,70,152,71,171,0,0
51061 data 170,172,0,0,171,173,87,156,172,76,88,0,161,78,175,0
51062 data 0,91,0,174,103,0,0,0,0,7,0,0,0,0,148,150,151,58,0,0,0,0,162,160
51066 data "auf einer Lichtung","im Wald","im Wald","im Wald","im Wald"
51067 data "im Wald","auf einer Lichtung","im Wald","auf einer Lichtung"
51068 data "im Wald","auf einem Feld","im Wald","auf einer Wiese"
51069 data "im Farnwald","im Farnwald","im oeden Grasland","in einer Steppe"
51070 data "in einer Steppe","im Farnwald","in einer Steppe","in einer Steppe"
51071 data "in einer Steppe","im Grasland","im Grasland","in der Steppe"
51072 data "im Farnwald","im Farnwald","im Farnwald","im lichten Wald"
51073 data "im Sumpf","im Sumpf","im Farnwald","im Farnwald","im Farnwald"
51074 data "im lichten Wald","im Farnwald","auf einer Lichtung"
51075 data "im lichten Wald","im Sumpf","im Farnwald","im Spinnennest"
51076 data"im Farnwald","auf einer Lichtung","im Sumpf","im lichten Wald"
51077 data"im lichten Wald","im lichten Wald","im Sumpf","im Farnwald"
51078 data"im Farnwald","im Sumpf","im Sumpf","im Farnwald","im Farnwald"
51079 data"am Fluss","am Fluss","am Fluss","im Wasserfall","auf einer Lichtung"
51080 data"im Sumpf","im Sumpf","im Farnwald","am Fluss","am Fluss"
51081 data"im Farnwald","auf einer Lichtung","auf einer Lichtung"
51082 data"am Fluss","im lichten Wald","im lichten Wald","am Fluss","am Fluss"
51083 data"am Fluss","am Fluss","am Fluss","am Fluss","am Fluss"
51084 data"im lichten Wald","im Farnwald","im Farnwald","am Fluss"
51085 data"im huegeligen Gelaende","im huegeligen Gelaende","im Farnwald"
51086 data"im Farnwald","im Farnwald","im huegeligen Gelaende","im Farnwald"
51087 data"im huegeligem Gelaende","am Fluss","im Farnwald","am Gebirge"
51088 data"im Farnwald","an der Quelle","am Gebirge","im Farnwald","am Gebirge"
51089 data"vor der Hoehle","am Gebirge","am Gebirge","im Farnwald"
51090 data"am Gebirge","am Fluss","am Fluss","im dunklen Gang","vor dem Tor"
51091 data"vor einer Nische","im breitem Gang","vor einer Nische"
51092 data"am Stollenende","im breitem Stollen","am Wasserschacht"
51093 data"im breiten Stollen","an einer Gabelung","im Gewoelbe"
51094 data"im Gewoelbegang","im Gewoelbe","an einer Gabelung"
51095 data"im breiten Stollen","am Wasserschacht","im breiten Gang"
51096 data"am Stollenende","in der Kaverne","in einer Hoehle","im Felsendom"
51097 data"im Verbindungsgang","im Verbindungsgang","am Wasserschacht"
51098 data"im Quergang","im Quergang","im Quergang","im Quergang","im Quergang"
51099 data"am Wasserschacht","im Vorraum","im Stollen"
51100 data"im Stollen","in fuerstlichen Gemaechern","im Stollen"
51101 data"in einer grossen Hoehle","im Stollen","im Vorraum"
51102 data"in finsteren Raeumen","in finsteren Raeumen","auf einer Falltuer"
51103 data"im Tunnel","bei der Quelle","auf dem Fluss","auf der Haengebruecke"
51104 data"auf dem Fluss","auf dem Fluss","auf der Tanne"
51105 data"auf dem Fluss","auf dem Fluss"
51106 data"auf dem Fluss","auf dem Fluss","auf dem Fluss","auf dem Fluss"
51107 data"auf dem Fluss","auf dem Fluss","auf der Bruecke","auf dem Fluss"
51108 data"auf dem Fluss","auf dem Fluss","an der Quelle","am Fluss","am Fluss"
51109 data"am Fluss","am Fluss","am Fluss","am Fluss","am Fluss","am Fluss"
51110 data"am Fluss","am Fluss","am Fluss","in der Huette"
51111 data"unter der Haengebruecke","auf dem Fluss","unter der Bruecke"
51112 data"alte Oel-Lampe","Huette","Schwert","Pegasus","Muenzen","Axt","Fackel"
51113 data"Hoelzer","Phyton","Elefanten","Kochstelle","Balken","Tiger"
51114 data"Spinne","Netz","Baum","Boa","Tanne","Kate","alter Mann"
51115 data"Eiche","Boot","Ruder","Speer","Ameisen","Erdbeeren"
51116 data"Kartoffeln","Notiz","fleischfressende Pflanze", "Pfeile","Bogen"
51117 data"magischer Ring","ZYKLOP","Seil","Krokodile","Eier"
51118 data"Wuermer","Zwerge","Grubenlicht","Truhe","Luftschacht","Form"
51119 data"Silberstuecke","Aepfel","Orchideen","Schmelzofen","Goldstuecke"
51120 data"Steinfresser","Flugdrachen","Statue","Kreuzhacke","Skelett"
51121 data"Lore","Waechter","Herrscher","Thron","BUCH{$a0}DER WEISHEIT"
51122 data"Kiste","INSCHRIFT","Falltuer","Tunnel","Tarantel","Affen"
51123 data"Puma","Ratten","Scorpion","Termiten","Krebse","Kaese","Bananen"
51124 data"Geroellhalde","Pergament","Schluessel","offene Truhe"
51125 data"geoffnete Kiste","Durchbruch","gefaellte Tanne","gefaellter Baum"
51126 data"tote Spinne","tote Tarantel","toter Scorpion","toter Puma"
51127 data "brennende Hoelzer","Goldschluessel","Silberschluessel"
51130 data"brennende Fackel","brennender Balken","brennende Pfeile"
51132 data"leuchtendes Grubenlicht","Pfeile"
51156 data 5,7,176,0,18,80,23,29,33,35,37,37,25,41,41,43,49,57,59,59,62,64,104
51157 data 85,82, 42,96,177,84,46,83,92,98,78,156,3, 68,106,106,107,109,110
51158 data 111,10,26,121,122,124,130,131,125,144,133,135,138,138,0
51159 data 140,132,145,146,18,34,28,63,87,129,73,89,53,137,0,0,0,0,0,0,0,0,0,0
51160 data 0,0,0,0,0,0,0,0,0
51171 data n,s,o,w,nord,sued,ost,west,lamp,huet,schw,pega,muen,axt,fack,hoel
51172 data phyt,elef,koch,balk,tige,spin,netz,baum,boa,tann,kate,mann,eich,boot
51173 data rude,spee,amei,erdb,kart,noti,pfla,pfei,boge,ring,zykl,seil,krok
51174 data eier,wuer,zwer,lich,truh,luft,form,silb,aepf,orch,ofen,gold,stei
51175 data flug,stat,kreu,skel,lore,waec,herr,thro,buch,kist,insc,fall,tunn
51176 data tara,affe,puma,ratt,scor,term,kreb,kaes,bana,gero,perg,wass,rues
51177 data furt,flus
51191 data "Norden","Sueden","Osten","Westen"
51201 data gehe,nimm,scha,taus,befe,dreh,fuel,oeff,reit,zuen,lege,klet,spri
51202 data benu,lies,lese,hebe,trag,esse,iss,trin,lauf,renn,inve,verj,toet
51203 data save,schi,lade,raeu,werf,wirf,frag,fuet,reib,fael,loes,hilf
51214 data"{lgrn}O.K.","{lgrn}Das kannst du JETZT nicht machen"
51215 data"{lgrn}Das siehst Du hier nicht.","{lgrn}Du siehst etwas"
51217 data"{lgrn}Mach' Dich nicht laecherlich!"
51218 data "{lgrn}O.K. Nichts passiert."
51219 data "{lgrn}Das kannst Du nicht tragen.","{lgrn}Du bist gebissen worden."
51220 data "{lgrn}Das ist viel zu schwer."
51221 data "{lgrn}Halte Dich am Fluss und finde die bewachte Hoehle.",
51222 data"{lgrn}Achte auf Dein Feuer! Viel Glueck!"
51223 data"{lgrn}Gib' uns Dein PEGASUS! und lege Deine FACKEL hin."
51224 data"{lgrn}Ich lasse Dich nicht durch."
51225 data"{lgrn}Hallo FREMDER! Dein MUT soll belohnt werden."
51226 data"{lgrn}Du musst aber zuvor noch ein RAETSEL loesen."
51227 data"{lgrn}Wenn Du mir MEINEN{$a0}Namen nennen kannst, gebe ich Dir "
51228 data "{lgrn}*** DAS BUCH{$a0}DER{$a0}WEISHEIT ***"
51229 data"{lgrn}Die Lampe verschwindet und es erscheint *PEGASUS*"
51230 data "{lgrn}Bei Tieren solltest Du vorsichtig sein."
51231 data "{lgrn}Die Hoelzer brennen schon."
51232 data "{lgrn}Die Tanne ist schon gefaellt."
51233 data "{lgrn}Der Baum ist schon gefaellt."
51234 data "{lgrn}Du bist nicht BONIFAZIUS!"
51235 data"{lgrn}Das traegst Du schon."
51236 data"{lgrn}Die Wunde hat sich entzuendet!"
51237 data"{lgrn}Du kannst nicht mehr tragen !"
51238 data"{lgrn} laesst Dich nicht."
51239 data"{lgrn}Du traegst das nicht."
51240 data"{lgrn}Das kannst Du nicht trinken."
51241 data"{lgrn}Aah! Das tut gut !","{lgrn}Hier ist kein Wasser."
51242 data"{lgrn}Igitt! Das schmeckt nicht!","{lgrn}Mmmhh! Das ist lecker!"
51243 data"{lgrn}Das kannst Du nicht essen."
51244 data"{lgrn}Das kannst Du nicht drehen."
51245 data"{lgrn}Eine Oeffnung nach OSTEN wird sichtbar."
51246 data"{lgrn}Es passiert JETZT nichts."
51247 data"{lgrn}Das PEGASUS erhebt sich in die Luefte und fliegt mit Dir davon."
51248 data"{lgrn}Der magische Ring beginnt zu gluehen."
51249 data"{lgrn}Der magische Ring hat sich aufgeloest."
51250 data"{lgrn}Das Seil ist an dem Baum festgemacht."
51251 data"{lgrn}Das Seil ist an der Tanne befestigt."
51252 data"{lgrn}Das Seil haengt an einem Ast der Eiche."
51253 data"{lgrn}Du kannst das Wasser nicht erreichen."
51254 data"{lgrn}Da ist nichts, wo man ein Seil anbinden kann."
51255 data"{lgrn}Das Seil haengt an der Lore."
51256 data"{lgrn}Das Seil haengt an einem Eisenring ueberder Grube."
51257 data"{lgrn}Das Seil ist schon los."
51258 data"{lgrn}Du siehst ein Gebirge im OSTEN."
51259 data"{lgrn}Du siehst entfernt im OSTEN einen ZYCLOPaus einer HOEHLE kommen."
51260 data"{lgrn}Du haengst am Seil."
51261 data"{lgrn}Der Schacht wird immer enger."
51262 data"{lgrn}Du siehst einen LICHTSCHIMMER zwischen den Steinen."
51263 data"{lgrn}Du kannst HIER nicht klettern."
51264 data"{lgrn}PLATSCH!!! Ein Wasserstrudel reisst dichmit fort."
51265 data"{lgrn}Der Zwergenkoenig bedankt sich,und gibt dir das Grubenlicht."
51266 data"{lgrn}Das kannst Du nicht tauschen."
51267 data"{lgrn}*** Nur wer seinen Geist gebraucht, ist weise *** USEBIS"
51268 data"{lgrn}Durch ARBEIT kommst Du auch ans ZIEL."
51269 data"{lgrn}Das kannst Du nicht lesen."
51270 data"{lgrn}Es ist dunkel !"
51271 data"{lgrn}Die Fackel brennt schon.","{lgrn}Der Balken brennt schon."
51272 data"{lgrn}Der Pfeil brennt schon.","{lgrn}Du bist kein Brandstifter."
51273 data"{lgrn}Die Hoelzer sind restlos verbrannt."
51274 data"{lgrn}Der Balken ist verbrannt."
51275 data"{lgrn}Das Feuer reicht nicht aus, um den Pfeilzu entzuenden."
51276 data"{lgrn}DENKE nach! Du hast doch kein Feuer!"
51277 data"{lgrn}Das Grubenlicht brennt schon."
51278 data"{lgrn}Der Zwergenkoenig gibt Dir PEGASUS zurueck."
51279 data"{lgrn}Das kannst Du HIER nicht tauschen."
51280 data"{lgrn}Das Glas zerspringt und das Licht geht aus."
51281 data"{lgrn}hat sein Ziel verfehlt.","{lgrn}Du hast die Tarantel getroffen."
51282 data"{lgrn}Du hast den Puma getroffen."
51283 data"{lgrn}Du hast die Boa verletzt.Sie verkriecht sich mit dem Speer "
51284 data"im Farnwald."
51285 data"{lgrn}Die Krokodile schwimmen davon und der Speer versinkt."
51286 data"{lgrn}Die Axt zerquetscht dem Scorpion."
51287 data"{lgrn}Die Ratten verschwinden im Fluss."
51288 data"{lgrn}Der Pfeil zischt durch die Luft."
51289 data"{lgrn}Die Krebse fluechten in den Fluss."
51290 data"{lgrn}Die Affen schwingen sich unter lautem Geschrei auf naheliegende"
51291 data"{lgrn}Baeume.","{lgrn}Wer SO denkt, ist des BUCHES nicht wuerdig."
51292 data"{lgrn}Der HERRSCHER dreht sich um und geht."
51293 data"{lgrn}Der Waechter zieht sich zurueck."
51294 data"{lgrn}Der alte Mann geht in seine Kate zurueck."
51295 data"{lgrn}Wenn Du nicht aufpasst, verjagen sie DICH !!"
51296 data"{lgrn}PEGASUS laesst sich nicht verjagen."
51297 data"{lgrn}Schnurps! Schnurps!","{lgrn}Das kannst Du nicht verfuettern."
51298 data"{lgrn}Die Phyton gibt Dir den Weg frei."
51299 data"{lgrn}Der Elefant laeuft kauend weiter."
51300 data"{lgrn}Die fleischfressende Pflanze gibt Dir den Weg frei."
51301 data"{lgrn}Die Affen freuen sich, und laufen weg."
51302 data"{lgrn}Die Ratten verschwinden."
51303 data"{lgrn}Die Krebse geben den Weg frei."
51304 data"{lgrn}Du bist in einer Baumkrone."
51305 data "{lgrn}Du bist im Wipfel einer Tanne."
51306 data"{lgrn}Du bist ganz oben in der{$a0}Eiche.Ueber Dirist blauer Himmel."
51307 data"{lgrn}Du kannst Dich nicht mehr halten......"
51308 data"{lgrn}Du kommst nicht dran, der Schacht ist zu hoch."
51309 data"{lgrn}Du stehst auf der Statue."
51310 data"{lgrn}Sie WACKELT leicht !"
51311 data "{lgrn}Dieses Gefaehrt ist nur mit STEINEN zu beladen!"
51312 data"{lgrn}Der HERRSCHER verwehrt Dir den Zutritt!"
51313 data"{lgrn}Du kannst HIER{$a0}nicht weiterklettern."
51314 data"{lgrn}Du kannst JETZT nicht klettern!"
51315 data "{lgrn}Du siehst im OSTEN ein Gebirge."
51316 data"{lgrn}Du siehst einen ZYKLOP aus einer Hoehle kommen."
51317 data"{lgrn}Du siehst nichts Besonderes.","{lgrn}Hups{$a0}!"
51318 data"{lgrn}Du bist ja richtig sportlich!"
51319 data"{lgrn}Die Lore ist voll Geroell!","{lgrn}Ein Durchbruch wird sichtbar."
51320 data"{lgrn}Die Geroellhalde hat ZU GROSSE Steine."
51331 data"{lgrn}Wohin?","{lgrn}Das kannst Du nicht.","{lgrn}ist doch schon auf!"
51332 data"{lgrn}Der Ofen ist HEISS !","{lgrn}Es liegt ewas darin."
51333 data"{lgrn}Das kannst Du doch nicht oeffnen!"
51334 data"{lgrn}Der Balken liegt ueber dem Wasserloch."
51335 data"{lgrn}Die Muenzen sind im OFEN! Sie schmelzen und werden fluessig!"
51336 data"{lgrn}Wie willst Du denn das REITEN?","{lgrn}Das ist nicht mein Name!"
51337 data"{lgrn}BRAVO{$a0}ABENTEURER{$a0}!!!{$a0}Du sollst DAS{$a0}BUCH bekommen."
51338 data"{lgrn}ER legt DAS{$a0}BUCH{$a0}hin.","{lgrn}Der Thron versinkt im Erdreich."
51339 data"{lgrn}Die Lore rollt davon."
51340 data"{lgrn}In der Form beginnt ein SILBERSCHLUESSELzu erkalten."
51341 data"{lgrn}In der Form beginnt ein GOLDSCHLUESSEL zu erkalten."
51342 data"{lgrn}Versuche: Nimm Boot.","{lgrn}Der Steinfresser flieht."
51343 data"{lgrn}Das Netz zerreisst,aber die RIESENSPINNEkommt auf Dich zu."
51344 data"{lgrn}Die Spinne ist tot.","{lgrn}Der Flugdrachen fliegt davon."
51345 data"{lgrn}Der ZYKLOP{$a0} ist schwer verwundet und verschwindet in der Hoehle."
51346 data"{lgrn}Der Pfeil verwundet den ZYKLOP nur LEICHT."
51347 data"{lgrn}Du siehst nichts BESONDERES.","{lgrn}Sie ist leer."
51348 data"{lgrn}Sie ist verschlossen.","{lgrn}Es liegt ein PERGAMENT darin."
51349 data"{lgrn}Die Knochen sind mit Spinnweben ueberzogen."
51350 data"{lgrn}Es kommt eine grosse HITZE{$a0}und RAUCH{$a0} heraus."
51351 data"{lgrn}Da steht etwas GESCHRIEBENES."
51352 data"{lgrn}MACHT und GELD ist nicht ALLES!"
51353 data"{lgrn}WEISHEIT{$a0}ist, KEINEM{$a0}TRAUM nachzurennen."
51354 data"{yel}*** Das BUCH{$a0}der WEISHEIT ***"
51355 data"{lgrn}Lasse Deine FANTASIE spielen!"
51356 data"{lgrn}Bedenke: Du bist in einem MAERCHEN- und{$a0}SAGENLAND!"
51357 data"{lgrn}Die Pfeile sind erloschen."
51358 data"{lgrn}Der Tiger knurrt und laeuft davon."
51359 data"{lgrn}Versuche: KLETTERN","{lgrn}Da kannst Du nicht hingehen."
51360 data"{lgrn}Leider kannst Du NICHT schwimmen."
51361 data"{lgrn}Ohne RUDER{$a0}kommst Du nicht voran.","{lgrn}lassen Dich nicht!"
51362 data"{lgrn}Die Zwerge","{lgrn}Die Bruecke ist morsch....Sie BRICHT!"
51363 data"{lgrn}Die Haengebruecke haelt Dein Gewicht nicht aus........"
51364 data"{lgrn}Es ist eine Schluessel-form. (Reste von METALL sind darin)"
51365 data"{lgrn}Das Boot leckt !"
51366 data"{lgrn}Die KOBOLDE haben die Muenzen genommen und verschwinden!"
51367 data"{lgrn}Die KOBOLDE haben Dich bestohlen !"
52000 return
1 REM ******************************** 2 REM * * 3 REM * DAS BUCH DER WEISHEIT * 4 REM * * 5 REM * JULI 1984 * 6 REM * * 7 REM * EDGAR THORAND * 8 REM * AN DER ROETHE 1 * 9 REM * 3501 KOERLE * 10 REM * 05665/1670 * 11 REM * * 12 REM * UND FALK MESSING * 13 REM * C/O E.THORAND * 14 REM * * 15 REM * * 16 REM ******************************** 23 FOR M=1 TO3:Y(M)=INT (RND (1)*144)+108:NEXT M 24 DEF FN TR(CP)=(CP=OB(NO)OR OB(NO)=-2) 25 POKE 53280,2:POKE 53281,2 26 PRINTCHR$ (14) 27 PRINT"{CLR}" 28 PRINT"{5DOWN,4RIGHT,BLACK}*** DAS BUCH DER WEISHEIT ***" 29 PRINT"{2DOWN,6RIGHT}E.THORAND{2SPACE}UND{2SPACE}F.MESSING" 30 GOSUB 50000 35 PRINT"{CLR,6DOWN,2RIGHT}NEUES ODER ALTES SPIEL ?" 36 GET SP$:IF SP$="" THEN36 37 IF SP$="N"OR SP$="N" THEN40 38 IF SP$="A"OR SP$="A" THEN25000 39 GOTO 35 40 POKE 53280,0:POKE 53281,0 100 REM 101 S=O 110 GOSUB 1261 112 GOSUB 1130 115 IF VB=3AND N1$="" THEN100 120 IF NO<9AND NO<>0AND (VB=0OR VB=1) THENVB=1:GOTO 150 130 IF LEN (N1$)>0AND NO=0 THENS=1 131 IF S=1 THENS=0:PRINT"{GREY2}ICH KENNE ";CHR$ (34);N1$;CHR$ (34);" NICHT!":GOTO 112 135 IF VB=27OR VB=13OR VB=38OR VB=29OR VB=24 THEN150 140 IF N1$=""AND VB>0 THENPRINT"{GREY2}ICH BENOETIGE EIN VERB UND EIN OBJEKT!":GOTO 112 150 GOTO 1490 1130 PRINT:PRINT"{LIG.BLUE}WAS WILLST DU JETZT MACHEN ?" 1135 INPUTCM$ 1140 IF LEN (CM$)=0 THEN1130 1150 VB$="":NO$="":VB=0:NO=0 1160 LC=LEN (CM$):FOR I=1 TOLC:A$=MID$ (CM$,I,1):IF A$<>" " THENVB$=VB$+A$:NEXT 1170 IF LEN (VB$)+1>=LEN (CM$) THENNO=0:GOTO 1190 1180 NO$=RIGHT$ (CM$,LC-I) 1190 N1$=NO$:V1$=VB$:VB$=LEFT$ (VB$,4):NO$=LEFT$ (NO$,4):FOR I=1 TONV 1200 IF VB$=VB$(I) THENVB=I:GOTO 1240 1210 NEXT :VB=0 1220 IF N1$="" THENNO$=VB$ 1230 VB=0:GOTO 1250 1240 IF VB$=CM$ THENNO=0:NO$="":RETURN 1250 FOR I=1 TONN:IF NO$=NO$(I) THENNO=I:RETURN 1260 NEXT :NO=0:NO$="":RETURN 1261 IF KL=1AND CP=43AND VB=3 THENPRINTS$(112):RETURN 1262 IF KL=1AND CP=57AND VB=3 THENPRINTS$(112):RETURN 1263 IF KL=1AND CP=62AND VB=3 THENPRINTS$(113):RETURN 1264 IF KL=1AND CP=131AND VB=3 THENPRINTS$(114):RETURN 1265 IF KL=1AND CP=133AND VB=3 THENPRINTS$(114):RETURN 1266 IF KL=1AND CP=137AND VB=3 THENPRINTS$(114):RETURN 1270 IF CP<>CSOR VB=3AND N1$="" THENPRINT"{CLR}":CS=CP:GOTO 1290 1280 RETURN 1290 P$="{LIG.BLUE}DU BIST "+P$(CP) 1291 PRINTP$:IF LG=0 THEN1298 1292 IF OB(47)=-2AND LI>0 THENS=1 1293 IF OB(47)=CPAND LI>0 THENS=1 1294 IF S=1 THENS=0:GOTO 1298 1297 PRINTS$(62):GOTO 1340 1298 K=0:FOR I=1 TOLO:IF OB(I)<>CP THEN1330 1300 IF K=0 THENPRINT"{PURPLE}DU SIEHST " 1310 IF (4+POS (0)+LEN (OB$(I)))>39 THENPRINT 1320 PRINT"{WHITE}";OB$(I);".";:K=K+1 1330 NEXT I 1331 IF CP=134OR CP=120 THENPRINT"{WHITE}EISENRINGE." 1332 IF CP=133OR CP=136OR CP=139OR CP=141OR CP=146OR CP=137 THENS=1 1333 IF S=1 THENS=0:PRINT:PRINT"{LIG.GREEN}DA SIND SCHIENEN." 1334 IF K>0 THENPRINT 1340 K=0:PRINT:PRINT"{PURPLE}MOEGLICHE RICHTUNGEN: " 1350 FOR I=0 TO3:IF P(CP,I)=0 THEN1380 1360 IF K>0 THENPRINT". ";:K=K+1 1370 PRINT"{GREY3}";D$(I);:K=K+1 1380 NEXT 1390 PRINT 1399 RETURN 1490 IF BI>0 THENZ=Z+1 1491 IF Z=4OR Z=7OR Z>9 THENPRINTS$(26):FOR I=1 TO1500:NEXT I 1492 IF Z>12 THEN30000 1494 IF RI>2 THENPRINTS$(40):FOR I=1 TO2000:NEXT I 1495 IF RI=5 THENPRINTS$(41):OB(40)=0:ZZ=ZZ-1:FOR I=1 TO2000:NEXT I:RI=0 1500 IF OB(91)=-1 THENF=F+1 1501 IF F>4 THENPRINTS$(67):FOR I=1 TO2500:NEXT I:IF OB(16)=-2 THENZZ=ZZ-1 1502 IF F> 4 THENOB(16)=0:FE=0:F=0:OB(91)=-3 1504 IF OB(95)=-1 THENB=B+1:IF B>15 THENPRINTS$(68):IF OB(20)=-2 THENZZ=ZZ-1 1505 IF B>15 THENOB(20)=0:B=0:OB(95)=-3 1510 IF PF=0 THENOB(38)=0:PF=0 1515 IF BP>0 THENBP=BP+1:IF BP>5 THENPRINTS$(155):OB$(38)=OB$(98):OB(96)=0:S=1 1516 IF S=1 THENS=0:BP=0:FOR I=1 TO2500:NEXT I 1522 IF CP=58 THEN30010 1523 IF CP=41AND OB(11)<>-2 THENSP=SP+1:IF SP>4 THEN30030 1529 IF CP=30OR CP=31OR CP=39OR CP=44OR CP=48OR CP=51OR CP=52OR CP=60OR CP=61 THENS=1 1530 IF S=1 THENSM=SM+1:IF SM>5 THENS=0:GOTO 30020 1540 IF CP=161 THENPRINTS$(163):FOR I=1 TO2000:NEXT I:GOTO 30010 1545 IF CP=149 THENPRINTS$(164):FOR I=1 TO2000:NEXT I:GOTO 30010 1600 IF RU>0 THENRU=RU+1:GOTO 100 1601 IF RU=2OR RU=4OR RU=6 THENPRINTS$(167):GOTO 100 1603 IF RU>6 THENGOTO 30010 1700 FOR M=1 TO3:IF CP=Y(M) THEN1705 1701 NEXT M 1702 GOTO 1991 1705 IF OB(13)=-2 THENPRINTS$(167):OB(13)=0:ZZ=ZZ-1:Y(1)=0:Y(2)=0:Y(3)=0:S=1 1706 IF S=1 THENS=0:FOR I=1 TO2000:NEXT I:GOTO 1991 1707 FOR I=1 TOLO:IF OB(I)=-2 THENOB(I)=0:ZZ=ZZ-1:PRINTS$(168):Y(M)=0:S=1 1708 IF S=1 THENS=0:FOR X=1 TO2000:NEXT X:GOTO 1991 1709 NEXT I 1991 IF KL=1AND VB<>13 THENIF KL=1AND VB<>12 THENPRINTS$(2):GOTO 112 2000 IF VB=0 THEN2100 2010 ON VBGOTO 3000,3500,4000,4500,5000,5500,14000,6500,7000,7500,8000,8500,9000 2011 ON VB-13GOTO 9500,10000,10000,3500,3500,10500,10500,11000,3000,3000 2012 ON VB-23GOTO 11500,12000,12500,20000,13500,14000,14000,14500,14500,15000 2013 ON VB-33GOTO 15500,16000,16500,17000,17500 2100 PRINT"{GREY2}ICH HABE NIE GELERNT,WIE MAN " 2101 PRINTCHR$ (34);V1$;CHR$ (34);" ANWENDET":GOTO 100 3000 IF NO<9 THEN3025 3005 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 3008 IF NO=10AND CP=7 THENCP=177:GOTO 100 3010 IF NO=30 THENPRINTS$(136):GOTO 100 3020 IF NO=79AND OB(79)=CP THENPRINTS$(157):GOTO 100 3022 IF NO=61 THENPRINTS$(157):GOTO 100 3023 IF NO=64 THENPRINTS$(157):GOTO 100 3024 PRINTS$(158):GOTO 100 3025 IF NO>4 THENNO=NO-4 3026 NO=NO-1 3030 IF P(CP,NO) =0 THENPRINT"KEIN WEG IN DIESE RICHTUNG":GOTO 100 3035 IF CP=148OR CP=153OR CP=156OR CP=160OR CP=164 THENS=1 3040 IF S=1 THENIF OB(30)<>-2 THENPRINTS$(159):S=0:FOR I=1 TO1500:NEXT I:GOTO 30010 3045 IF S=1 THENIF OB(30)=-2AND OB(31)<>-2 THENPRINTS$(160):S=0:RU=1:GOTO 100 3046 S=0 3050 IF CP=25AND NO=1AND OB(21)=CP THENPRINT"{LIG.GREEN}DER TIGER ";S$(28):GOTO 100 3055 IF CP=28AND NO=1AND OB(90)<>-1 THENPRINT"{LIG.GREEN}DER PUMA ";S$(28):GOTO 100 3060 IF CP=33AND NO=2AND OB(17)=CP THENPRINT"{LIG.GREEN}DIE PHYTON ";S$(28):GOTO 100 3065 IF CP=34AND NO=2AND OB(71)=CP THENPRINT"{LIG.GREEN}DIE AFFEN ";S$(161):GOTO 100 3070 IF CP=35AND NO=2AND OB(18)=CP THENPRINT"{LIG.GREEN}DIE ELEPHANTEN ";S$(161):GOTO 100 3075 IF CP=49AND NO=2AND OB(25)=CP THENPRINT"{LIG.GREEN}DIE BOA ";S$(28):GOTO 100 3080 IF CP=41AND OB(22)=CPAND OB(87)<>-1 THENPRINT"{LIG.GREEN}DIE SPINNE ";S$(28):GOTO 100 3083 IF CP=73AND NO=3AND OB(76)=CP THENCP=61:GOTO 100 3085 IF CP=73AND OB(76)=CP THENPRINT"{LIG.GREEN}DIE KREBSE ";S$(161):GOTO 100 3090 IF CP=63AND NO=1AND OB(73)=CP THENPRINT"{LIG.GREEN}DIE RATTEN ";S$(161):GOTO 100 3100 IF CP=84AND NO=0AND OB(37)=CP THENPRINT"{LIG.GREEN}DIE PFLANZE ";S$(28):GOTO 100 3110 IF CP=87AND NO=0AND OB(89)<>-1 THENPRINT"{LIG.GREEN}DER SCORPION ";S$(28):GOTO 100 3115 IF CP=106AND OB(47)<>-2AND NO=2 THENPRINT"{LIG.GREEN}DIE ZWERGE ";S$(161):GOTO 100 3120 IF CP=106AND NO=3AND OB(12)<>-2 THENPRINT"{LIG.GREEN}DIE ZWERGE ";S$(161):GOTO 100 3131 IF CP=130AND NO=1AND OB(57)=CP THENPRINT"{LIG.GREEN}DER FLUGDRACHE ";S$(28):GOTO 100 3135 IF CP=135AND NO=2AND OB(62)=CP THENPRINT"{LIG.GREEN}DER WAECHTER ";S$(28):GOTO 100 3136 IF CP=156AND OB(43)=CPAND NO=2 THENPRINT"{LIG.GREEN}DIE KROKODILE ";S$(161):GOTO 100 3137 IF CP=124AND NO=2AND OB(56)=CP THENPRINT"{LIG.GREEN}DER STEINFRESSER ";S$(28):GOTO 100 3140 IF CP=120AND BA<>CPAND NO=1 THENS=1 3141 IF CP=112AND BA<>CPAND NO=0 THENS=1 3142 IF CP=128AND BA<>CPAND NO=2 THENS=1 3143 IF CP=134AND BA<>CPAND NO=2 THENS=1 3144 IF CP=145 THENS=1 3148 IF S=1 THENPRINTS$(56):CP=147:OB(47)=106:OB(12)=165:FOR I=1 TO2500:NEXT I 3149 IF S=1 THENZZ=ZZ-1:LG=0:S=0:GOTO 100 3150 CP=P(CP,NO):GOTO 100 3500 : 3504 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 3505 IF SE>0AND NO=42 THENPRINTS$(2):GOTO 100 3506 IF OB(NO)=-2 THENPRINTS$(25):GOTO 100 3508 IF NO=10OR NO=18OR NO=19OR NO=21OR NO=23OR NO=24OR NO=26OR NO=27OR NO=28 THENS=1 3509 IF NO=29OR NO=37OR NO=41OR NO=46OR NO=49OR NO=61OR NO=60OR NO=62OR NO=63 THENS=1 3510 IF NO=67OR NO=68OR NO=69OR NO=72OR NO=75OR NO=79OR NO=71OR NO=36OR NO>81 THENS=1 3511 IF S=1 THENPRINTS$(7):S=0:GOTO 100 3514 IF NO=54OR NO=64 THENPRINTS$(9):GOTO 100 3516 IF NO=17OR NO=25OR NO=33OR NO=56OR NO=57OR NO=73 THENS=1 3519 IF NO=22AND OB(87)<>-1 THENS=1 3521 IF NO=70AND OB(88)<>-1 THENS=1 3522 IF NO=74AND OB(89)<>-1 THENS=1 3527 IF S=1 THENPRINTS$(8):S=0:BI=1:GOTO 100 3529 IF NO=13AND OB(88)<>-1 THENPRINT"{LIG.GREEN}DIE TARANTEL";S$(28):GOTO 100 3530 IF NO=47AND OB(46)=CPAND LG=0 THENPRINT"{LIG.GREEN}DER ZWERGENKOENIG";S$(28):GOTO 100 3532 IF NO=47AND LI=0 THENLI=CP 3539 IF ZZ>8 THENPRINTS$(27):GOTO 100 3540 PRINTS$(1):OB(NO)=-2:ZZ=ZZ+1:GOTO 100 4000 : 4005 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 4010 IF NO=48OR NO=54OR NO=58OR NO=60OR NO=65OR NO=66OR NO=50 THEN4020 4012 PRINTS$(143):GOTO 100 4020 IF NO=48AND OB(82)=-1 THENPRINTS$(144):GOTO 100 4025 IF NO=48 THENPRINTS$(145):GOTO 100 4030 IF NO=66AND OB(83)=-1AND OB(80)=CP THENPRINTS$(146):GOTO 100 4035 IF NO=66AND OB(83)=-1 THENPRINTS$(144):GOTO 100 4040 IF NO=66 THENPRINTS$(145):GOTO 100 4045 IF NO=60 THENPRINTS$(147):GOTO 100 4050 IF NO=54 THENPRINTS$(148):GOTO 100 4055 IF NO=65 THENPRINTS$(149):GOTO 100 4060 IF NO=50 THENPRINTS$(165):GOTO 100 4065 PRINTS$(143):GOTO 100 4500 : 4503 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 4504 IF NO=12AND OB(12)<>-2 THENPRINTS$(29):GOTO 100 4505 IF NO=47AND OB(47)<>-2 THENPRINTS$(29):GOTO 100 4506 IF NO=12AND OB(46)=CP THENPRINTS$(57):OB(12)=0:OB(47)=-2:LG=1:GOTO 100 4507 IF NO=47AND OB(46)=CP THENPRINTS$(72):OB(12)=CP:OB(47)=CP:LG=0:OB(12)=-2:S=1 4508 IF S=1 THENS=0:GOTO 100 4510 IF CP=106 THENPRINTS$(13):GOTO 100 4513 IF CP<>106 THENPRINTS$(73):GOTO 100 4515 PRINTS$(58):GOTO 100 5000 : 5004 IF OB(42)<>-2 THENPRINTS$(29):GOTO 100 5006 IF CP=43 THENPRINTS$(42):SE=1:OB(42)=CP:ZZ=ZZ-1:GOTO 100 5008 IF CP=57 THENPRINTS$(43):SE=1:OB(42)=CP:ZZ=ZZ-1:GOTO 100 5012 IF CP=120OR CP=134 THENS=1 5014 IF S=1 THENS=0:PRINTS$(48):ZZ=ZZ-1:OB(42)=CP:SE=1:GOTO 100 5018 PRINTS$(46):GOTO 100 5500 : 5504 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 5506 IF NO=40OR NO=58 THEN5508 5507 PRINTS$(36):GOTO 100 5508 IF NO=58AND DR=1 THENPRINTS$(6):GOTO 100 5509 IF NO=58 THENPRINTS$(37):P(131,2)=135:DR=1:GOTO 100 5510 IF NO=40AND OB(12)=-2 THENPRINT"{CLR,6DOWN}";S$(39):RI=RI+1:GOTO 5514 5512 PRINTS$(38):GOTO 100 5514 X=INT (RND (1)*6)+1 5515 ON XGOSUB 5520,5525,5530,5535,5540,5541 5517 IF CD=CP THEN5514 5518 FOR I=1 TO2500:NEXT I:GOTO 100 5520 CP=17:RETURN 5525 CP=22:RETURN 5530 CP=92:RETURN 5535 CP=95:RETURN 5540 CP=176:RETURN 5541 CP=5:RETURN 6500 : 6505 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 6510 IF NO=48AND OB(82)=-1 THENPRINT"{LIG.GREEN}DIE TRUHE ";S$(122):GOTO 100 6515 IF NO=48AND OB(51)=-2AND OB(93)=-1 THENPRINTS$(1):S=1 6516 IF S=1 THENS=0:OB(82)=-1:OB$(48)=OB$(82):GOTO 100 6517 IF NO=48AND OB(93)<>-1 THENPRINTS$(2):GOTO 100 6518 IF NO=48AND OB(51)<>-2 THENPRINTS$(2):GOTO 100 6525 IF NO=54 THENPRINTS$(123):GOTO 100 6530 IF NO=66AND OB(83)=-1 THENPRINT"{LIG.GREEN}DIE KISTE ";S$(122):GOTO 100 6539 IF S=1 THENS=0:PRINTS$(124):OB(80)=CP:PG=1:GOTO 100 6540 IF NO=66AND OB(92)<>-1 THENPRINTS$(2):GOTO 100 6541 IF NO=66AND OB(55)<>-2 THENPRINTS$(2):GOTO 100 6543 IF NO=66AND OB(92)=-1AND OB(55)=-2 THENPRINTS$(1):OB(83)=-1:S=1 6544 IF S=1 THENS=0:OB$(66)=OB$(83):PRINTS$(4):OB(80)=CP:GOTO 100 6545 IF NO=65AND BU=1 THENPRINTS$(122):GOTO 100 6550 IF NO=65 THENPRINTS$(1):BU=1:GOTO 100 6555 PRINTS$(125):GOTO 100 7000 : 7004 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 7005 IF NO<>12 THENPRINTS$(128):GOTO 100 7006 IF NO=12AND CP>10 THENPRINTS$(2):GOTO 100 7010 IF NO=12AND CP<11 THENPRINT"{CLR,4DOWN}";S$(39) 7011 FOR M=1 TO2500:NEXT M 7012 PRINT"{CLR}":IF OB(12)<>-2 THENOB(12)=-2:ZZ=ZZ+1 7015 X=INT (RND (1)*3)+1 7016 IF X=1 THENCP=11:GOTO 100 7017 IF X=2 THENCP=12:GOTO 100 7018 IF X=3 THENCP=13:GOTO 100 7020 IF NO=12 THENPRINTS$(2):GOTO 100 7025 GOTO 100 7500 : 7501 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 7502 IF NO=15OR NO=16OR NO=20OR NO=38OR NO=47 THEN7504 7503 PRINTS$(66):GOTO 100 7504 IF NO=16AND OB(91)=-1 THENPRINTS$(21):GOTO 100 7506 IF NO=16AND FE=0 THENPRINTS$(70):GOTO 100 7508 IF NO=15AND OB(94)=-1 THENPRINTS$(63):GOTO 100 7512 IF NO=15AND FE=1AND OB(16)=CP THENS=1 7514 IF NO=15AND FE=1AND OB(16)=-2 THENS=1 7516 IF S=1 THENPRINTS$(1):S=0:OB$(15)=OB$(94):FA=1:OB(94)=-1:GOTO 100 7520 IF NO=20AND OB(95)=-1 THENPRINTS$(64):GOTO 100 7525 IF NO=20AND FA=1AND OB(15)=CP THENS=1 7530 IF NO=20AND FA=1AND OB(15)=-2 THENS=1 7535 IF S=1 THENS=0:PRINTS$(1):OB$(20)=OB$(95):B=1:OB(95)=-1:GOTO 100 7540 IF NO=38AND OB(96)=-1 THENPRINTS$(65):GOTO 100 7545 IF NO=38AND FA=1AND OB(15)=-2 THENS=1 7550 IF NO=38AND FA=1AND OB(15)=CP THENS=1 7555 IF S=1 THENS=0:OB$(38)=OB$(96):OB(96)=-1:BP=1:PRINTS$(1):GOTO 100 7560 IF NO=47AND OB(97)=-1 THENPRINTS$(71):GOTO 100 7565 IF NO=47AND FA=1AND OB(15)=-2 THENS=1 7570 IF NO=47AND FA=1AND OB(15)=CP THENS=1 7580 IF S=1 THENS=0:PRINTS$(1):OB$(47)=OB$(97):OB(97)=-1:LI=CP:GOTO 100 7585 PRINTS$(2):GOTO 100 8000 : 8004 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 8006 IF OB(NO)<>-2 THENPRINTS$(29):GOTO 100 8007 IF NO=47AND LG=1 THENLI=0 8008 OB(NO)=CP:ZZ=ZZ-1:PRINTS$(1) 8010 IF NO=52AND OB(12)=CP THENPRINTS$(93):OB(52)=0:GOTO 100 8020 IF NO=44AND CP=33AND OB(17)=CP THENPRINTS$(95):OB(17)=0:OB(44)=0:GOTO 100 8025 IF NO=44AND CP=49AND OB(25)=CP THENPRINTS$(93):OB(44)=0:GOTO 100 8030 IF NO=52AND CP=35AND OB(18)=CP THENPRINTS$(93):OB(52)=0:GOTO 100 8035 IF NO=35AND CP=35AND OB(18)=CP THENPRINTS$(96):OB(18)=0:OB(35)=0:GOTO 100 8040 IF NO=45AND CP=84AND OB(37)=CP THENPRINTS$(97):OB(37)=0:OB(45)=0:GOTO 100 8045 IF NO=78AND CP=34AND OB(71)=CP THENPRINTS$(98):OB(78)=0:OB(71)=0:GOTO 100 8050 IF NO=77AND CP=63AND OB(73)=CP THENPRINTS$(99):OB(77)=0:OB(73)=0:GOTO 100 8055 IF NO=34AND CP=73AND OB(76)=CP THENPRINTS$(100):OB(34)=0:OB(76)=0:GOTO 100 8060 IF NO=34AND CP=63AND OB(73)=CP THENPRINTS$( 99):OB(34)=0:OB(73)=0:GOTO 100 8070 IF NO=20AND CP=112 THENBA=CP:PRINTS$(126):GOTO 100 8072 IF NO=20AND CP=134 THENBA=CP:PRINTS$(126):GOTO 100 8073 IF NO=20AND CP=128 THENBA=CP:PRINTS$(126):GOTO 100 8074 IF NO=20AND CP=120 THENBA=CP:PRINTS$(126):GOTO 100 8076 IF NO=51AND CP=121AND OB(93)=0 THENPRINTS$(127):OB(51)=0:GOTO 100 8080 IF NO=55AND CP=121AND OB(92)=0 THENPRINTS$(127):OB(55)=0:GOTO 100 8085 IF CP=106AND NO=65 THEN32000 8090 GOTO 100 8500 : 8502 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 8503 IF KL=1 THENPRINTS$(110):GOTO 112 8505 IF NO=24AND OB(86)<>-1AND CP=43 THENPRINTS$(1):KL=1:GOTO 112 8510 IF NO=26AND CP=57AND OB(85)<>-1 THENPRINTS$(1):KL=1:GOTO 112 8515 IF NO=29AND CP=62 THENPRINTS$(103):KL=1:GOTO 112 8520 IF NO=42AND SE=1 THENPRINTS$(52):FOR I=1 TO2500:NEXT I:PRINTS$(104):GOTO 100 8525 IF NO=49AND CP=109 THENPRINTS$(105):GOTO 100 8530 IF NO=58AND CP=131 THENPRINTS$(106);S$(107):KL=1:GOTO 112 8535 IF NO=61AND OB(61)=CP THENPRINTS$(108):KL=1:GOTO 112 8540 IF NO=64AND OB(63)=0 THENPRINTS$(132):OB(64)=0:GOTO 100 8542 IF NO=64AND CP=138 THENPRINTS$(109):GOTO 112 8545 IF NO=79AND CP=137AND OB(79)=CP THENPRINTS$(54):KL=1:GOTO 112 8593 PRINTS$(111):GOTO 100 9000 : 9003 IF KL=1 THENPRINTS$(115):KL=0:GOTO 100 9005 PRINTS$(116):GOTO 100 9500 : 9502 IF NO=11OR NO=30OR NO=38OR NO=39OR NO=32OR NO=59OR NO=14 THEN9505 9503 PRINTS$(121):GOTO 100 9505 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 9506 IF NO=14 THENPRINT"{LIG.GREEN}WIE?":GOTO 100 9510 IF NO=30 THENPRINTS$(136):GOTO 100 9515 IF NO=32 THEN14500 9520 IF NO=38 THEN14500 9525 IF NO=11AND CP=124AND OB(56)=CP THENPRINTS$(137):OB(56)=0:GOTO 100 9530 IF NO=11AND CP=41AND OB(23)=0 THENPRINTS$(139):OB$(22)=OB$(87):S=1 9531 IF S=1 THENS=0:OB(87)=-1:GOTO 100 9535 IF NO=11AND CP=41AND OB(23)<>0 THENPRINTS$(138):OB(23)=0:GOTO 100 9540 IF NO=39AND OB(38)=-2AND CP=130AND OB(57)=CP THENPRINTS$(140):OB(57)=0:S=1 9541 IF S=1 THENS=0:PF=PF-1:GOTO 100 9545 IF NO=39AND OB(38)=-2AND OB(96)=-1AND CP=98AND OB(41)<>0 THENPRINTS$(141):S=1 9546 IF S=1 THENS=0:PF=PF-1:OB(41)=0:P(98,2)=105:GOTO 100 9550 IF NO=39AND OB(38)=-2AND CP=98 THENPRINTS$(142):PF=PF-1:GOTO 100 9560 IF NO=39AND OB(38)=-2 THENPRINTS$(83):PF=PF-1:GOTO 100 9570 IF NO=11AND OB(11)=-2AND CP=25AND OB(21)=CP THENPRINTS$(156):OB(21)=0:GOTO 100 9575 IF NO=59AND CP=137AND OB(79)>0 THENPRINTS$(1):RA=1:GOTO 100 9580 PRINTS$(6):GOTO 100 10000 : 10003 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 10004 IF NO=65AND BU=1 THENPRINTS$(150);S$(151):GOTO 100 10005 IF NO=65 THENPRINTS$(152):GOTO 100 10006 IF NO=80AND OB(80)<>0 THENPRINTS$(59):GOTO 100 10007 IF NO=66 THENPRINTS$(152):GOTO 100 10008 IF NO=67 THENPRINTS$(60):GOTO 100 10009 IF NO=36 THEN10100 10010 PRINTS$(61):GOTO 100 10100 PRINT"{CLR,LIG.RED,2DOWN,5RIGHT}HALLO ABENTEURER !" 10101 PRINT"{2DOWN}DU HAST DIE AUFGABE, DAS" 10102 PRINT"{DOWN,3RIGHT}*** BUCH DER{SHIFT-SPACE}WEISHEIT ***" 10103 PRINT"{DOWN}ZU FINDEN UND ZU DEN ZWERGEN{SHIFT-SPACE}ZU BRINGEN." 10104 PRINT"AUF DEM WEGE DAHIN WIRST DU VIELE{SPACE,6SHIFT-SPACE}ABENTEUER UND GEFAHREN" 10105 PRINT"BESTEHEN MUESSEN. SEI AUF DER HUT UND{3SPACE}FUERCHTE DICH NICHT." 10106 PRINT"{DOWN}NOCH EIN PAAR TIPS:" 10107 PRINT"{DOWN}ICH WERDE DEIN BEGLEITER SEIN, UND DICH FUEHREN, INDEM DU MIR " 10108 PRINT"ANWEISUNGEN IN FORM ' NIMM AXT' " 10109 PRINT"'LEGE BUCH' GIBST.":PRINT"*** BITTE EINE TASTE ***":WAIT 203,63 10110 PRINT"{DOWN}EINIGE VERBEN SIND Z.B.:" 10111 PRINT"{DOWN}TAUSCHE-FRAGE-TRAGE-BENUTZE-(EIN)LADEN- RAEUMEN" 10112 PRINT"MIT 'INVENTUR' BEKOMMST DU GEZEIGT, WAS DU BEI DIR TRAEGST." 10115 PRINT"MIT 'SAVE' KANNST DU EIN SPIEL FUER{5SPACE}SPAETERES WEITERSPIELEN" 10116 PRINT"ABSPEICHERN." 10117 PRINT"{3DOWN}UND NUN{2SPACE}VIEL GLUECK !!!" 10118 PRINT"{3DOWN,10RIGHT}(E.THORAND U.{SHIFT-SPACE}F.MESSING)" 10119 PRINT"{3DOWN}*** BITTE EINE TASTE *** ":WAIT 203,63:PRINT"{CLR,HOME}":CS=1 10120 PRINT"{2DOWN}NOCH ETWAS:" 10122 PRINT"{2DOWN}EINIGE VERBEN KOENNEN ALLEIN BENUTZT{4SPACE}WERDEN, Z.B." 10124 PRINT"SCHAU - HILF - SAVE" 10126 PRINT"{DOWN}WENN DU ETWAS UNTERSUCHEN MOECHTEST,{SPACE,3SPACE}GIB' BITTE Z.B. " 10128 PRINT"{DOWN}SCHAU HUETTE ODER SCHAU STATUE' EIN." 10130 PRINT"DIE HIER AUFGEFUEHRTEN VERBEN SIND NUR{2SPACE}EINE AUSWAHL!" 10136 PRINT"{2DOWN}*** BITTE EINE TASTE ***":WAIT 203,63:PRINT"{CLR}" 10138 PRINT"EIN VORLETZTER TIP: DIE RAEUME SIND{5SPACE}NORMALERWEISE QUADRATISCH," 10140 PRINT"NUR AM FLUSS NICHT, DORT IST VORSICHT{3SPACE}BEIM AUFZEICHNEN GEBOTEN!" 10144 PRINT"{2DOWN}......UND SOLLTE ES GARNICHT KLAPPEN:" 10146 PRINT"{2DOWN}KARTE ODER ANRUF AN:" 10147 PRINT"{DOWN}EDGAR THORAND" 10148 PRINT"AN DER ROETHE 1" 10149 PRINT"3501 KOERLE" 10150 PRINT"TEL. 05665/1670" 10155 PRINT"{DOWN}AUCH UEBER KRITIK UND ANREGUNGEN BIN{SPACE,3SPACE}ICH SEHR DANKBAR!!" 10156 PRINT"SO .. UND NUN LOS!" 10160 PRINT"{2DOWN}*** BITTE EINE TASTE ***":WAIT 203,63:GOTO 100 10500 : 10504 IF OB(NO)<>-2 THENPRINTS$(29):GOTO 100 10508 IF NO=45OR NO=53 THENPRINTS$(33):OB(NO)=0:ZZ=ZZ-1:GOTO 100 10510 IF NO=20OR NO=34OR NO=35OR NO=52OR NO=77OR NO=78 THENPRINTS$(34):OB(NO)=0:S=1 10511 IF S=1 THENZZ=ZZ-1:S=0:GOTO 100 10512 PRINTS$(35):GOTO 100 11000 : 11005 IF NO<>81 THENPRINTS$(30):GOTO 100 11008 IF CP=94OR CP=147OR CP=165OR CP=71OR CP=153OR CP=154OR CP=155OR CP=156 THENS=1 11011 IF CP=157OR CP=159OR CP=158OR CP=64OR CP=160OR CP=172 THENS=1 11012 : 11013 IF S=1 THENPRINTS$(31):S=0:GOTO 100 11015 IF CP=81OR CP=166OR CP=68OR CP=167OR CP=55OR CP=56OR CP=168OR CP=57OR CP=72 THENS=1 11017 IF CP=169OR CP=170OR CP=73OR CP=171OR CP=74OR CP=75OR CP=173OR CP=63OR CP=76 THENS=1 11018 IF CP=77OR CP=174OR CP=90OR CP=175OR CP=103OR CP=104OR CP=176 THENS=1 11019 IF S=1 THENPRINTS$(45):S=0:GOTO 100 11035 PRINTS$(32):GOTO 100 11500 : 11506 PRINT"{CLR,2DOWN}DU TRAEGST:" 11507 PRINT:IF ZZ=0 THENPRINT"{LIG.RED}NICHTS":GOTO 100 11510 FOR I=9 TOLO:IF OB(I)<>-2 THEN11520 11512 IF I=38 THENPRINT"{LEFT}";PF; 11514 PRINT"{LIG.RED}";OB$(I) 11520 NEXT I 11522 GOTO 100 12000 : 12004 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 12010 IF NO=76OR NO=71OR NO=63OR NO=62OR NO=28OR NO=46OR NO=12 THEN12020 12015 PRINTS$(5):GOTO 100 12020 IF NO=76AND CP=73 THENPRINTS$(84):OB(76)=0:GOTO 100 12025 IF NO=71AND CP=34 THENPRINTS$(85);S$(86):OB(71)=0:GOTO 100 12030 IF NO=63AND CP=138 THENPRINTS$(87);S$(88):OB(63)=0:GOTO 100 12035 IF NO=62AND CP=135AND OB(11)=-2 THENPRINTS$(89):OB(62)=0:GOTO 100 12036 IF NO=62 THENPRINTS$(14):GOTO 100 12040 IF NO=28AND CP=59 THENPRINTS$(90):OB(28)=0:GOTO 100 12045 IF NO=46 THENPRINTS$(91):GOTO 100 12050 IF NO=12 THENPRINTS$(92):GOTO 100 12500 : 12502 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 12504 IF NO=12OR NO=22OR NO=72OR NO=70OR NO=74OR NO=57OR NO=56OR NO=41 THEN12520 12506 IF NO=17OR NO=25OR NO=62OR NO=43OR NO=73OR NO=21 THEN12520 12508 PRINTS$(5):GOTO 100 12520 PRINT"{LIG.GREEN}WIE ?":GOTO 100 13500 : 13505 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 13510 IF NO=61 THEN13520 13515 PRINTS$(5):GOTO 100 13520 IF CP=133 THENPRINTS$(133):OB(61)=137:P(137,3)=0:GOTO 100 13525 IF CP=137 THENPRINTS$(133):P(137,3)=134:OB(61)=133:GOTO 100 14000 : 14005 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 14006 IF NO=61OR NO=79OR NO=50 THEN14010 14007 PRINTS$(5):GOTO 100 14010 IF NO=61AND RA=1 THENPRINTS$(117):PRINTS$(118):P(137,2)=140:S=1 14011 IF S=1 THENS=0:OB$(79)=OB$(84):GOTO 100 14015 IF NO=61AND CP=137 THENPRINTS$(119):GOTO 100 14020 IF NO=79AND RA=0 THENPRINTS$(119):GOTO 100 14025 IF NO=79AND RA=1AND OB(61)=CP THENPRINTS$(120):GOTO 100 14030 IF NO=50AND CP=121AND OB(51)=0 THENPRINTS$(134):OB(93)=-1:S=1 14035 IF S=1 THENS=0:OB$(51)=OB$(93):OB(51)=CP:GOTO 100 14040 IF NO=50AND CP=121AND OB(55)=0 THENPRINTS$(135):OB$(55)=OB$(92):S=1 14041 IF S=1 THENS=0:OB(92)=-1:OB(55)=CP:GOTO 100 14050 PRINTS$(121):GOTO 100 14500 : 14504 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 14510 IF NO=14OR NO=32OR NO=38 THEN14520 14511 IF NO=10OR NO=12OR NO=17OR NO=18OR NO19OR NO=24OR NO=26OR NO=25OR NO=27 THENS=1 14512 IF NO=28OR NO=29OR NO=33OR NO=36OR NO=37OR NO=41OR NO=43OR NO=46OR NO=49 THENS=1 14513 IF NO=54OR NO=56OR NO=57OR NO=58OR NO=60OR NO=61OR NO=62OR NO=63OR NO=64 THENS=1 14514 IF NO=67OR NO=68OR NO=69OR NO=70OR NO=71OR NO=72OR NO=73OR NO=74OR NO=75 THENS=1 14515 IF NO=76OR NO=79OR NO>80 THENS=1 14516 IF S=1 THENS=0:PRINTS$(5):GOTO 100 14519 PRINTS$(1):OB(NO)=0:ZZ=ZZ-1:GOTO 100 14520 : 14525 IF NO=32AND CP=18AND OB(88)<>-1 THENPRINTS$(76):OB(88)=-1:OB$(70)=OB$(88):S=1 14526 IF S=1 THENS=0:ZZ=ZZ-1:OB(32)=CP:GOTO 100 14530 IF NO=32AND CP=28AND OB(90)<>-1 THENPRINTS$(77):OB(90)=-1:OB$(72)=OB$(90):S=1 14531 IF S=1 THENS=0:ZZ=ZZ-1:OB(32)=CP:GOTO 100 14535 IF NO=32AND CP=49AND OB(25)=CP THENPRINTS$(78);S$(79):OB(25)=0:OB(32)=0:S=1 14536 IF S=1 THENS=0:ZZ=ZZ-1:GOTO 100 14540 IF NO=32AND CP=156AND OB(43)=CP THENPRINTS$(80):ZZ=ZZ-1:OB(32)=0:S=1 14541 IF S=1 THENS=0:OB(43)=0:GOTO 100 14545 IF NO=32 THENPRINTS$(1):ZZ=ZZ-1:OB(32)=0:GOTO 100 14550 IF NO=38 THENPRINTS$(83):S=1:PF=PF-1:IF PF=0 THENZZ=ZZ-1:OB(38)=0 14551 IF S=1 THENS=0:GOTO 100 14555 IF NO=14AND CP=87AND OB(89)=0 THENPRINTS$(81):ZZ=ZZ-1:OB(14)=CP:S=1 14556 IF S=1 THENS=0:OB(89)=-1:OB$(74)=OB$(89):GOTO 100 14560 IF NO=14AND CP=63AND OB(73)=CP THENPRINTS$(82):ZZ=ZZ-1:OB(73)=0:S=1 14561 IF S=1 THENS=0:OB(14)=CP:GOTO 100 14565 IF NO=14 THENPRINTS$(1):ZZ=ZZ-1:OB(14)=0:GOTO 100 15000 : 15004 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 15006 IF NO=28 THENPRINTS$(10):PRINTS$(11):PRINTS$(12):GOTO 100 15008 IF NO=46 THENPRINTS$(13):GOTO 100 15010 IF NO=62 THENPRINTS$(14):GOTO 100 15012 IF NO=63 THENPRINT"{CLR}";S$(15):PRINTS$(16):PRINTS$(17):PRINTS$(18):S=1 15013 IF S=1 THENS=0:GOTO 15030 15014 PRINTS$(5):GOTO 100 15030 INPUT"{LIG.GREEN}WIE IST MEIN NAME";NA$:NA=NA+1 15033 IF NA$="USEBIS"OR NA$="USEBIS" THEN15038 15034 IF NA>5 THENPRINTS$(88):OB(63)=0:GOTO 100 15035 PRINTS$(129):GOTO 100 15038 PRINTS$(130);S$(131):PRINTS$(88):OB(63)=0:OB(65)=CP:GOTO 100 15500 : 15504 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 15510 IF NO=12OR NO=17OR NO=18OR NO=21OR NO=25OR NO=37OR NO=71OR NO=72 THEN15520 15511 IF NO=73OR NO=76 THEN15520 15515 PRINTS$(5):GOTO 100 15520 PRINT"{LIG.GREEN}LEGE DAS FUTTER HIN !":GOTO 100 16000 : 16004 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 16006 IF NO=9 THENPRINTS$(19):OB(12)=CP:OB(9)=0:GOTO 100 16008 IF NO=17OR NO=18OR NO=21OR NO=22OR NO=25OR NO=33OR NO=37 THENPRINTS$(20):GOTO 100 16010 IF NO=43OR NO=41OR NO=45OR NO=46OR NO=56OR NO=57OR NO=70 THENPRINTS$(20):GOTO 100 16011 IF NO=71OR NO=72OR NO=73OR NO=74OR NO=75OR NO=76 THENPRINTS$(20):GOTO 100 16012 IF NO=16AND OB(91)=-1 THENPRINTS$(21):GOTO 100 16014 IF NO=16 THENPRINTS$(1):OB$(16)=OB$(91):OB(91)=-1:FE=1:GOTO 100 16049 PRINTS$(6):GOTO 100 16500 : 16502 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 16503 IF OB(14)<>-2 THENPRINT"{LIG.GREEN}WOMIT ?":GOTO 100 16504 IF NO=26AND OB(85)=-1 THENPRINTS$(22):GOTO 100 16506 IF NO=26 THENPRINTS$(1):OB$(26)=OB$(85):OB(85)=-1:P(57,2)=152:S=1 16507 IF S=1 THENS=0:P(169,3)=152:P$(179)="UNTER DER TANNE":GOTO 100 16510 IF NO=24AND OB(86)=-1 THENPRINTS$(23):GOTO 100 16512 IF NO=24 THENPRINTS$(1):OB$(24)=OB$(86):OB(86)=-1:GOTO 100 16514 IF NO=29 THENPRINTS$(24):GOTO 100 16516 PRINTS$(5):GOTO 100 17000 : 17004 IF NOT FN TR(CP) THENPRINTS$(3):GOTO 100 17006 IF NO<>42 THENPRINTS$(5):GOTO 100 17007 IF SE=0 THENPRINTS$(49):GOTO 100 17008 PRINTS$(1):SE=0:GOTO 100 17500 : 17505 PRINT"{CLR,3DOWN}" 17506 PRINTS$(153);S$(154):GOTO 100 20000 INPUT"{CLR,3DOWN}FILENAME";N$ 20009 PRINT"{3DOWN}KASSETTE ODER DISKETTE?" 20010 GET K$:IF K$="D"OR K$="D" THEN21000 20020 IF K$="K"OR K$="K" THEN22000 20025 GOTO 20010 21000 OPEN 2,8,2,N$+",S,W":OPEN 15,8,15:INPUT#15,A,A$:IF A$<>"OK" THEN29000 21100 FOR I=9 TOLO:PRINT#2,OB(I):PRINT#2,OB$(I):NEXT I:PRINT#2,CP:PRINT#2,ZZ 21101 PRINT#2,LG:PRINT#2,LI:PRINT#2,SE:PRINT#2,RI:PRINT#2,BP:PRINT#2,FA 21102 PRINT#2,FE:PRINT#2,KL:PRINT#2,Z:PRINT#2,PF:PRINT#2,BU:PRINT#2,RA 21103 PRINT#2,NA 21104 PRINT#2,SP:FOR M=1 TO3:PRINT#2,Y(M):NEXT M 21108 FOR I=1 TOCP:FOR J=0 TO3:PRINT#2,P(I,J):NEXT J,I:PRINT#2,DR:PRINT#2,PG 21200 CLOSE 2:CLOSE 15:GOTO 100 22000 OPEN 2,1,1,N$:GOTO 21100 25000 INPUT"{3DOWN}FILENAME";N$ 25005 PRINT"{2DOWN}KASSETTE ODER DISKETTE?" 25010 GET A$:IF A$="D"OR A$="D" THEN26000 25012 IF A$="K"OR A$="K" THEN27000 25014 GOTO 25010 26000 OPEN 2,8,2,N$+",S,R":GOTO 28000 26100 FOR I=9 TOLO:INPUT#2,OB(I):INPUT#2,OB$(I):NEXT I 26101 INPUT#2,CP:INPUT#2,ZZ:INPUT#2,LG:INPUT#2,LI:INPUT#2,SE:INPUT#2,RI 26102 INPUT#2,BP:INPUT#2,FA:INPUT#2,FE:INPUT#2,KL:INPUT#2,Z:INPUT#2,PF 26103 INPUT#2,BU:INPUT#2,RA:INPUT#2,NA:INPUT#2,SP:FOR M=1 TO3:INPUT#2,Y(M):NEXT M 26104 FOR I=1 TOCP:FOR J=0 TO3:INPUT#2,P(I,J):NEXT J,I:INPUT#2,DR:INPUT#2,PG 26120 CLOSE 2:CLOSE 15:GOTO 40 27000 OPEN 2,1,0,N$:GOTO 26100 28000 OPEN 15,8,15:INPUT#15,A,A$:IF A$="OK" THEN26100 28010 IF A$="FILE NOT FOUND" THEN28100 28020 IF A$="DRIVE NOT READY" THEN28110 28030 IF A$="FILE TYPE MISMATCH" THEN28120 28050 PRINTA$:END 28100 PRINT"{DOWN}EIN FILE DIESES NAMENS EXISTIERT NICHT!" 28110 INPUT"{DOWN}FILENAME";N$:GOTO 28200 28111 PRINT"{DOWN}DISKETTE EINLEGEN!":PRINT,"{DOWN,DOWN}FERTIG?" 28112 GET X$:IF X$="" THEN28112 28113 GOTO 28110 28120 PRINT"{2DOWN}KEIN DATEN-FILE!":GOTO 28110 28150 PRINTA$:STOP 28200 CLOSE 2:CLOSE 15:GOTO 26000 29000 CLOSE 2:CLOSE 15:IF A$="WRITE PROTECT ON" THEN29100 29010 IF A$="DRIVE NOT READY" THEN29200 29030 IF A$="FILE EXISTS" THEN29300 29040 IF A$="FILE TYPE MISMATCH" THEN29400 29050 PRINT"A$:ST 29060 GOTO 20000 29100 PRINT"DIESE DISKETTE IST SCHREIB-GESCHUETZT" 29110 PRINT"BITTE EINE ANDERE DISKETTE EINLEGEN":PRINT,"FERTIG?" 29120 GET X$:IF X$="" THEN29120 29130 GOTO 21000 29200 PRINT"DISKETTE EINLEGEN!":PRINT,"FERTIG?":GOTO 29120 29300 PRINT"EIN FILE DIESES NAMENS EXISTIERT BEREITS" 29310 PRINT"SOLL ES UEBERSCHRIEBEN WERDEN (J/N)?" 29320 GET X$:IF X$="J" THENN$="@0:"+N$:GOTO 21000 29330 IF X$="N" THEN20000 29340 GOTO 29320 29400 PRINT"DIESER NAME IST VON EINEM ANDEREN"," FILE-TYP GELEGT" 29410 FOR A=1 TO2000:NEXT :GOTO 20000 30000 : 30004 PRINT"{CLR,4DOWN,YELLOW}DEIN KOERPER IST SO GESCHWAECHT, DASS{3SPACE}DU DICH NICHT MEHR"; 30005 PRINT" BEWEGEN KANNST.":PRINT"{2DOWN}DU STIRBST QUALVOLL !" 30006 FOR I=1 TO3000:NEXT I:GOTO 31000 30010 PRINT"{CLR,11DOWN,2RIGHT,YELLOW}DU BIST LEIDER ERTRUNKEN!" 30011 FOR I=1 TO2000:NEXT I:GOTO 31000 30020 PRINT"{CLR,9DOWN,YELLOW}....UND DER SUMPF FORDERT EIN NEUES{5SPACE}OPFER !!!" 30021 FOR I=1 TO3000:NEXT I:PRINT"{CLR}":GOTO 31000 30030 PRINT"{CLR,6DOWN,YELLOW}DIE SPINNE{SHIFT-SPACE}HAT DICH GEFRESSEN.":FOR I=1 TO3000:NEXT I:GOTO 31000 31000 : 31002 PRINT"{CLR,4DOWN,2RIGHT,WHITE}NEUES SPIEL ? (J/N)" 31003 GET SP$:IF SP$="" THEN31003 31004 IF SP$="J" THENCLR :RESTORE :GOTO 1 31005 IF SP$="N" THEN31007 31006 GOTO 31003 31007 PRINT"{2DOWN}WIE SCHADE.":SYS 64738 32000 PRINT"{CLR,8DOWN,2RIGHT}*** HERZLICHEN{SHIFT-SPACE}GLUECKWUNSCH{SHIFT-SPACE}***" 32001 FOR I=1 TO15:POKE 53280,I:FOR S=1 TO200:NEXT S:NEXT I:POKE 53280,2:POKE 53281,2 32002 PRINT"{2DOWN,WHITE}DU HAST DAS ABENTEUER HERVORRAGEND{6SPACE}GELOEST!" 32003 PRINT"{2DOWN}ES GRATULIEREN DIR DIE AUTOREN:" 32004 PRINT"{DOWN,5RIGHT}F.MESSING UND E.THORAND" 32005 FOR I=1 TO4000:NEXT I:PRINT"{2DOWN}* BITTE EINE TASTE *":WAIT 203,63 32006 SYS 64738 50000 : 50005 NP=180:LO=98:NV=38:CP=177:CS= 0:NN=84:SS=168:ZZ=0:PF=5 50010 DIM P(NP,4),P$(NP),VB$(NV),OB$(LO),OB(LO),NO$(NN),S$(SS) 50020 FOR I=1 TONP:FOR J=0 TO3:READ P(I,J):NEXT J,I 50030 FOR I=1 TONP:READ P$(I):NEXT I 50040 FOR I=9 TOLO:READ OB$(I):NEXT I 50050 FOR I=9 TOLO:READ OB(I):NEXT I 50060 FOR I=1 TONN:READ NO$(I):NEXT I 50070 FOR I=0 TO3:READ D$(I):NEXT I 50080 FOR I=1 TONV:READ VB$(I):NEXT I 50090 FOR I=1 TOSS:READ S$(I):NEXT I 51000 : 51002 DATA 0,2,4,0,1,0,5,0,0,4,7,0,3,5,8,1,4,6,9,2,5,0,10,0,177,8,0,3,7,9,0,4 51003 DATA 8,10,0,5,9,0,0,6 51005 DATA 0,0,16,0,0,0,20,0,0,0,24,0,0,15,27,0,14,16,28,0,15,17,0,0 51006 DATA 16,18,30,0,17,19,31,0,18,20,32,0,19,21,33,0 51008 DATA 20,22,34,0,21,23,35,0,22,24,36,0,23,25,37,0,24,26,38,0,25,0,39,0 51009 DATA 0,28,40,14,27,29,41,15,28,30,0,0,0,0,0,0 51011 DATA 0,0,0,0,31,0,45,19,0,0,46,20,0,35,47,21,34,36,48,22 51012 DATA 35,37,49,23,36,38,50,24,37,39,51,25,0,0,0,0,0,41,53,27 51014 DATA 40,42,54,28,41,43,55,0,42,44,56,30,0,0,0,0,44, 0,0,32,0,0,59,33 51015 DATA 0,48,60,34,0,0,0,0,48,0,62,36,0,51,63,37 51017 DATA 0,0,0,0,0,0,0,0,0,54,66,40,53,55,67,41,54,56,68,42,55,57,0,43 51018 DATA 56,0,0,44,0,0,0,0,0,60,72,46,0,0,0,0 51020 DATA 0,0,0,0,61,63,75,0,62,64,0,50,63,65,160,51,64,0,78,52,0,67,79,53 51021 DATA 66,68,80,54,67,149,81,55,167,70,82,168,69,71,0,169 51023 DATA 70,170,84,153,0,73,0,59,72,74,0,60,73,75,0,61,74,0,0,62,173,77,89,0 51024 DATA 76,161,90,0,174,0,91,65,0,80,92,66,79,81,93,67 51026 DATA 80,148,94,68,166,0,95,69,0,84,0,0,83,0,97,71,0,86,0,0 51027 DATA 85,87,0,0,86,0,0,172,87,89,101,173,88,90,102,76 51028 DATA 89,0,103,77 51030 DATA 175,0,104,78,0,93,0,79,92,94,0,80,93,0,0,81,165,96,0,82,95,97,0,0 51031 DATA 96,98,0,84,97,99,0,0,98,100,0,0,99,101,0,0 51033 DATA 100,102,0,88,101,103,0,89,102,176,0,90,0,0,0,91,0,0,106,98 51034 DATA 0,0,108,105,0,108,115,0,107,109,116,106,108,0,117,0,0,111,0,0 51036 DATA 110,112,0,0,111,113,0,0,112,114,0,0,113,115,123,0,114,116,0,107 51037 DATA 115,117,124,108,116,118,0,109,117,119,125,0,118,120,0,0,119,121,0,0 51039 DATA 120,122,0,0,121,0,0,0,0,0,126,114,0,0,127,116,0,0,128,118 51040 DATA 0,0,129,123,0,0,0,124,0,0,133,125,0,130,134,126,129,131,0,0 51042 DATA 130,0,0,0,0,133,0,0,132,0,136,128,0,0,137,129,0,0,138,131 51043 DATA 0,0,139,133,146,0,0,134,0,0,0,135,0,0,141,136,0,0,142,137 51045 DATA 0,0,146,139,0,143,0,140,142,144,0,0,143,145,0,0,0,0,0,0,0,0,137,141 51046 DATA 0,165,0,148,81,0,147,178,68,167,0,0,0,151,178,0,150,179 51048 DATA 0,0,0,0,169,57,0,154,71,0,153,155,0,0,154,156,0,0,155,157,172,0 51056 DATA 156,158,0,0,157,0,0,159,0,160,158,0,159,0,180,64,77 51058 DATA 174,0,0,0,0,163,180,0,164,0,162,163,0,0,104,0,95,0,166,0,82,165,167 51059 DATA 149,69,166,0,0,169,69,0,168,0,70,152,71,171,0,0 51061 DATA 170,172,0,0,171,173,87,156,172,76,88,0,161,78,175,0 51062 DATA 0,91,0,174,103,0,0,0,0,7,0,0,0,0,148,150,151,58,0,0,0,0,162,160 51066 DATA "AUF EINER LICHTUNG","IM WALD","IM WALD","IM WALD","IM WALD" 51067 DATA "IM WALD","AUF EINER LICHTUNG","IM WALD","AUF EINER LICHTUNG" 51068 DATA "IM WALD","AUF EINEM FELD","IM WALD","AUF EINER WIESE" 51069 DATA "IM FARNWALD","IM FARNWALD","IM OEDEN GRASLAND","IN EINER STEPPE" 51070 DATA "IN EINER STEPPE","IM FARNWALD","IN EINER STEPPE","IN EINER STEPPE" 51071 DATA "IN EINER STEPPE","IM GRASLAND","IM GRASLAND","IN DER STEPPE" 51072 DATA "IM FARNWALD","IM FARNWALD","IM FARNWALD","IM LICHTEN WALD" 51073 DATA "IM SUMPF","IM SUMPF","IM FARNWALD","IM FARNWALD","IM FARNWALD" 51074 DATA "IM LICHTEN WALD","IM FARNWALD","AUF EINER LICHTUNG" 51075 DATA "IM LICHTEN WALD","IM SUMPF","IM FARNWALD","IM SPINNENNEST" 51076 DATA "IM FARNWALD","AUF EINER LICHTUNG","IM SUMPF","IM LICHTEN WALD" 51077 DATA "IM LICHTEN WALD","IM LICHTEN WALD","IM SUMPF","IM FARNWALD" 51078 DATA "IM FARNWALD","IM SUMPF","IM SUMPF","IM FARNWALD","IM FARNWALD" 51079 DATA "AM FLUSS","AM FLUSS","AM FLUSS","IM WASSERFALL","AUF EINER LICHTUNG" 51080 DATA "IM SUMPF","IM SUMPF","IM FARNWALD","AM FLUSS","AM FLUSS" 51081 DATA "IM FARNWALD","AUF EINER LICHTUNG","AUF EINER LICHTUNG" 51082 DATA "AM FLUSS","IM LICHTEN WALD","IM LICHTEN WALD","AM FLUSS","AM FLUSS" 51083 DATA "AM FLUSS","AM FLUSS","AM FLUSS","AM FLUSS","AM FLUSS" 51084 DATA "IM LICHTEN WALD","IM FARNWALD","IM FARNWALD","AM FLUSS" 51085 DATA "IM HUEGELIGEN GELAENDE","IM HUEGELIGEN GELAENDE","IM FARNWALD" 51086 DATA "IM FARNWALD","IM FARNWALD","IM HUEGELIGEN GELAENDE","IM FARNWALD" 51087 DATA "IM HUEGELIGEM GELAENDE","AM FLUSS","IM FARNWALD","AM GEBIRGE" 51088 DATA "IM FARNWALD","AN DER QUELLE","AM GEBIRGE","IM FARNWALD","AM GEBIRGE" 51089 DATA "VOR DER HOEHLE","AM GEBIRGE","AM GEBIRGE","IM FARNWALD" 51090 DATA "AM GEBIRGE","AM FLUSS","AM FLUSS","IM DUNKLEN GANG","VOR DEM TOR" 51091 DATA "VOR EINER NISCHE","IM BREITEM GANG","VOR EINER NISCHE" 51092 DATA "AM STOLLENENDE","IM BREITEM STOLLEN","AM WASSERSCHACHT" 51093 DATA "IM BREITEN STOLLEN","AN EINER GABELUNG","IM GEWOELBE" 51094 DATA "IM GEWOELBEGANG","IM GEWOELBE","AN EINER GABELUNG" 51095 DATA "IM BREITEN STOLLEN","AM WASSERSCHACHT","IM BREITEN GANG" 51096 DATA "AM STOLLENENDE","IN DER KAVERNE","IN EINER HOEHLE","IM FELSENDOM" 51097 DATA "IM VERBINDUNGSGANG","IM VERBINDUNGSGANG","AM WASSERSCHACHT" 51098 DATA "IM QUERGANG","IM QUERGANG","IM QUERGANG","IM QUERGANG","IM QUERGANG" 51099 DATA "AM WASSERSCHACHT","IM VORRAUM","IM STOLLEN" 51100 DATA "IM STOLLEN","IN FUERSTLICHEN GEMAECHERN","IM STOLLEN" 51101 DATA "IN EINER GROSSEN HOEHLE","IM STOLLEN","IM VORRAUM" 51102 DATA "IN FINSTEREN RAEUMEN","IN FINSTEREN RAEUMEN","AUF EINER FALLTUER" 51103 DATA "IM TUNNEL","BEI DER QUELLE","AUF DEM FLUSS","AUF DER HAENGEBRUECKE" 51104 DATA "AUF DEM FLUSS","AUF DEM FLUSS","AUF DER TANNE" 51105 DATA "AUF DEM FLUSS","AUF DEM FLUSS" 51106 DATA "AUF DEM FLUSS","AUF DEM FLUSS","AUF DEM FLUSS","AUF DEM FLUSS" 51107 DATA "AUF DEM FLUSS","AUF DEM FLUSS","AUF DER BRUECKE","AUF DEM FLUSS" 51108 DATA "AUF DEM FLUSS","AUF DEM FLUSS","AN DER QUELLE","AM FLUSS","AM FLUSS" 51109 DATA "AM FLUSS","AM FLUSS","AM FLUSS","AM FLUSS","AM FLUSS","AM FLUSS" 51110 DATA "AM FLUSS","AM FLUSS","AM FLUSS","IN DER HUETTE" 51111 DATA "UNTER DER HAENGEBRUECKE","AUF DEM FLUSS","UNTER DER BRUECKE" 51112 DATA "ALTE OEL-LAMPE","HUETTE","SCHWERT","PEGASUS","MUENZEN","AXT","FACKEL" 51113 DATA "HOELZER","PHYTON","ELEFANTEN","KOCHSTELLE","BALKEN","TIGER" 51114 DATA "SPINNE","NETZ","BAUM","BOA","TANNE","KATE","ALTER MANN" 51115 DATA "EICHE","BOOT","RUDER","SPEER","AMEISEN","ERDBEEREN" 51116 DATA "KARTOFFELN","NOTIZ","FLEISCHFRESSENDE PFLANZE", "PFEILE","BOGEN" 51117 DATA "MAGISCHER RING","ZYKLOP","SEIL","KROKODILE","EIER" 51118 DATA "WUERMER","ZWERGE","GRUBENLICHT","TRUHE","LUFTSCHACHT","FORM" 51119 DATA "SILBERSTUECKE","AEPFEL","ORCHIDEEN","SCHMELZOFEN","GOLDSTUECKE" 51120 DATA "STEINFRESSER","FLUGDRACHEN","STATUE","KREUZHACKE","SKELETT" 51121 DATA "LORE","WAECHTER","HERRSCHER","THRON","BUCH{SHIFT-SPACE}DER WEISHEIT" 51122 DATA "KISTE","INSCHRIFT","FALLTUER","TUNNEL","TARANTEL","AFFEN" 51123 DATA "PUMA","RATTEN","SCORPION","TERMITEN","KREBSE","KAESE","BANANEN" 51124 DATA "GEROELLHALDE","PERGAMENT","SCHLUESSEL","OFFENE TRUHE" 51125 DATA "GEOFFNETE KISTE","DURCHBRUCH","GEFAELLTE TANNE","GEFAELLTER BAUM" 51126 DATA "TOTE SPINNE","TOTE TARANTEL","TOTER SCORPION","TOTER PUMA" 51127 DATA "BRENNENDE HOELZER","GOLDSCHLUESSEL","SILBERSCHLUESSEL" 51130 DATA "BRENNENDE FACKEL","BRENNENDER BALKEN","BRENNENDE PFEILE" 51132 DATA "LEUCHTENDES GRUBENLICHT","PFEILE" 51156 DATA 5,7,176,0,18,80,23,29,33,35,37,37,25,41,41,43,49,57,59,59,62,64,104 51157 DATA 85,82, 42,96,177,84,46,83,92,98,78,156,3, 68,106,106,107,109,110 51158 DATA 111,10,26,121,122,124,130,131,125,144,133,135,138,138,0 51159 DATA 140,132,145,146,18,34,28,63,87,129,73,89,53,137,0,0,0,0,0,0,0,0,0,0 51160 DATA 0,0,0,0,0,0,0,0,0 51171 DATA N,S,O,W,NORD,SUED,OST,WEST,LAMP,HUET,SCHW,PEGA,MUEN,AXT,FACK,HOEL 51172 DATA PHYT,ELEF,KOCH,BALK,TIGE,SPIN,NETZ,BAUM,BOA,TANN,KATE,MANN,EICH,BOOT 51173 DATA RUDE,SPEE,AMEI,ERDB,KART,NOTI,PFLA,PFEI,BOGE,RING,ZYKL,SEIL,KROK 51174 DATA EIER,WUER,ZWER,LICH,TRUH,LUFT,FORM,SILB,AEPF,ORCH,OFEN,GOLD,STEI 51175 DATA FLUG,STAT,KREU,SKEL,LORE,WAEC,HERR,THRO,BUCH,KIST,INSC,FALL,TUNN 51176 DATA TARA,AFFE,PUMA,RATT,SCOR,TERM,KREB,KAES,BANA,GERO,PERG,WASS,RUES 51177 DATA FURT,FLUS 51191 DATA "NORDEN","SUEDEN","OSTEN","WESTEN" 51201 DATA GEHE,NIMM,SCHA,TAUS,BEFE,DREH,FUEL,OEFF,REIT,ZUEN,LEGE,KLET,SPRI 51202 DATA BENU,LIES,LESE,HEBE,TRAG,ESSE,ISS,TRIN,LAUF,RENN,INVE,VERJ,TOET 51203 DATA SAVE,SCHI,LADE,RAEU,WERF,WIRF,FRAG,FUET,REIB,FAEL,LOES,HILF 51214 DATA "{LIG.GREEN}O.K.","{LIG.GREEN}DAS KANNST DU JETZT NICHT MACHEN" 51215 DATA "{LIG.GREEN}DAS SIEHST DU HIER NICHT.","{LIG.GREEN}DU SIEHST ETWAS" 51217 DATA "{LIG.GREEN}MACH' DICH NICHT LAECHERLICH!" 51218 DATA "{LIG.GREEN}O.K. NICHTS PASSIERT." 51219 DATA "{LIG.GREEN}DAS KANNST DU NICHT TRAGEN.","{LIG.GREEN}DU BIST GEBISSEN WORDEN." 51220 DATA "{LIG.GREEN}DAS IST VIEL ZU SCHWER." 51221 DATA "{LIG.GREEN}HALTE DICH AM FLUSS UND FINDE DIE{SPACE,6SPACE}BEWACHTE HOEHLE.", 51222 DATA "{LIG.GREEN}ACHTE AUF DEIN FEUER!{SPACE,18SPACE}VIEL GLUECK!" 51223 DATA "{LIG.GREEN}GIB' UNS DEIN PEGASUS! UND LEGE DEINE{SPACE,2SPACE}FACKEL HIN." 51224 DATA "{LIG.GREEN}ICH LASSE DICH NICHT DURCH." 51225 DATA "{LIG.GREEN}HALLO FREMDER! DEIN MUT SOLL BELOHNT{SPACE,3SPACE}WERDEN." 51226 DATA "{LIG.GREEN}DU MUSST ABER ZUVOR NOCH EIN RAETSEL{SPACE,3SPACE}LOESEN." 51227 DATA "{LIG.GREEN}WENN DU MIR MEINEN{SHIFT-SPACE}NAMEN NENNEN KANNST, GEBE ICH DIR " 51228 DATA "{LIG.GREEN}*** DAS{SPACE,SPACE}BUCH{SHIFT-SPACE}DER{SHIFT-SPACE}WEISHEIT ***" 51229 DATA "{LIG.GREEN}DIE LAMPE VERSCHWINDET UND ES ERSCHEINT *PEGASUS*" 51230 DATA "{LIG.GREEN}BEI TIEREN SOLLTEST DU VORSICHTIG SEIN." 51231 DATA "{LIG.GREEN}DIE HOELZER BRENNEN SCHON." 51232 DATA "{LIG.GREEN}DIE TANNE IST SCHON GEFAELLT." 51233 DATA "{LIG.GREEN}DER BAUM IST SCHON GEFAELLT." 51234 DATA "{LIG.GREEN}DU BIST NICHT BONIFAZIUS!" 51235 DATA "{LIG.GREEN}DAS TRAEGST DU SCHON." 51236 DATA "{LIG.GREEN}DIE WUNDE HAT SICH ENTZUENDET!" 51237 DATA "{LIG.GREEN}DU KANNST NICHT MEHR TRAGEN !" 51238 DATA "{LIG.GREEN,SPACE}LAESST DICH NICHT." 51239 DATA "{LIG.GREEN}DU TRAEGST DAS NICHT." 51240 DATA "{LIG.GREEN}DAS KANNST DU NICHT TRINKEN." 51241 DATA "{LIG.GREEN}AAH! DAS TUT GUT !","{LIG.GREEN}HIER IST KEIN WASSER." 51242 DATA "{LIG.GREEN}IGITT! DAS SCHMECKT NICHT!","{LIG.GREEN}MMMHH! DAS IST LECKER!" 51243 DATA "{LIG.GREEN}DAS KANNST DU NICHT ESSEN." 51244 DATA "{LIG.GREEN}DAS KANNST DU NICHT DREHEN." 51245 DATA "{LIG.GREEN}EINE OEFFNUNG NACH OSTEN WIRD SICHTBAR." 51246 DATA "{LIG.GREEN}ES PASSIERT JETZT NICHTS." 51247 DATA "{LIG.GREEN}DAS PEGASUS ERHEBT SICH IN DIE LUEFTE{SPACE,2SPACE}UND FLIEGT MIT DIR DAVON." 51248 DATA "{LIG.GREEN}DER MAGISCHE RING BEGINNT ZU GLUEHEN." 51249 DATA "{LIG.GREEN}DER MAGISCHE RING HAT SICH AUFGELOEST." 51250 DATA "{LIG.GREEN}DAS SEIL IST AN DEM BAUM FESTGEMACHT." 51251 DATA "{LIG.GREEN}DAS SEIL IST AN DER TANNE BEFESTIGT." 51252 DATA "{LIG.GREEN}DAS SEIL HAENGT AN EINEM AST DER EICHE." 51253 DATA "{LIG.GREEN}DU KANNST DAS WASSER NICHT ERREICHEN." 51254 DATA "{LIG.GREEN}DA IST NICHTS, WO MAN EIN SEIL ANBINDEN KANN." 51255 DATA "{LIG.GREEN}DAS SEIL HAENGT AN DER LORE." 51256 DATA "{LIG.GREEN}DAS SEIL HAENGT AN EINEM EISENRING UEBERDER GRUBE." 51257 DATA "{LIG.GREEN}DAS SEIL IST SCHON LOS." 51258 DATA "{LIG.GREEN}DU SIEHST EIN GEBIRGE IM OSTEN." 51259 DATA "{LIG.GREEN}DU SIEHST ENTFERNT IM OSTEN EINEN ZYCLOPAUS EINER HOEHLE KOMMEN." 51260 DATA "{LIG.GREEN}DU HAENGST AM SEIL." 51261 DATA "{LIG.GREEN}DER SCHACHT WIRD IMMER ENGER." 51262 DATA "{LIG.GREEN}DU SIEHST EINEN LICHTSCHIMMER ZWISCHEN{SPACE,SPACE}DEN STEINEN." 51263 DATA "{LIG.GREEN}DU KANNST HIER NICHT KLETTERN." 51264 DATA "{LIG.GREEN}PLATSCH!!! EIN WASSERSTRUDEL REISST DICHMIT FORT." 51265 DATA "{LIG.GREEN}DER ZWERGENKOENIG BEDANKT SICH,UND GIBT DIR DAS GRUBENLICHT." 51266 DATA "{LIG.GREEN}DAS KANNST DU NICHT TAUSCHEN." 51267 DATA "{LIG.GREEN}*** NUR WER SEINEN GEIST GEBRAUCHT,{SPACE,4SPACE}IST WEISE ***{3SPACE}USEBIS" 51268 DATA "{LIG.GREEN}DURCH ARBEIT KOMMST DU AUCH ANS ZIEL." 51269 DATA "{LIG.GREEN}DAS KANNST DU NICHT LESEN." 51270 DATA "{LIG.GREEN}ES IST DUNKEL !" 51271 DATA "{LIG.GREEN}DIE FACKEL BRENNT SCHON.","{LIG.GREEN}DER BALKEN BRENNT SCHON." 51272 DATA "{LIG.GREEN}DER PFEIL BRENNT SCHON.","{LIG.GREEN}DU BIST KEIN BRANDSTIFTER." 51273 DATA "{LIG.GREEN}DIE HOELZER SIND RESTLOS VERBRANNT." 51274 DATA "{LIG.GREEN}DER BALKEN IST VERBRANNT." 51275 DATA "{LIG.GREEN}DAS FEUER REICHT NICHT AUS, UM DEN PFEILZU ENTZUENDEN." 51276 DATA "{LIG.GREEN}DENKE NACH!{SPACE,SPACE}DU HAST DOCH KEIN FEUER!" 51277 DATA "{LIG.GREEN}DAS GRUBENLICHT BRENNT SCHON." 51278 DATA "{LIG.GREEN}DER ZWERGENKOENIG GIBT DIR PEGASUS{SPACE,5SPACE}ZURUECK." 51279 DATA "{LIG.GREEN}DAS KANNST DU HIER NICHT TAUSCHEN." 51280 DATA "{LIG.GREEN}DAS GLAS ZERSPRINGT UND DAS LICHT GEHT{SPACE,SPACE}AUS." 51281 DATA "{LIG.GREEN}HAT SEIN ZIEL VERFEHLT.","{LIG.GREEN}DU HAST DIE TARANTEL GETROFFEN." 51282 DATA "{LIG.GREEN}DU HAST DEN PUMA GETROFFEN." 51283 DATA "{LIG.GREEN}DU HAST DIE BOA VERLETZT.SIE VERKRIECHT SICH MIT DEM SPEER " 51284 DATA "IM FARNWALD." 51285 DATA "{LIG.GREEN}DIE KROKODILE SCHWIMMEN DAVON UND DER{SPACE,2SPACE}SPEER VERSINKT." 51286 DATA "{LIG.GREEN}DIE AXT ZERQUETSCHT DEM SCORPION." 51287 DATA "{LIG.GREEN}DIE RATTEN VERSCHWINDEN IM FLUSS." 51288 DATA "{LIG.GREEN}DER PFEIL ZISCHT DURCH DIE LUFT." 51289 DATA "{LIG.GREEN}DIE KREBSE FLUECHTEN IN DEN FLUSS." 51290 DATA "{LIG.GREEN}DIE AFFEN SCHWINGEN SICH UNTER LAUTEM{SPACE,2SPACE}GESCHREI AUF NAHELIEGENDE" 51291 DATA "{LIG.GREEN}BAEUME.","{LIG.GREEN}WER SO DENKT, IST DES BUCHES NICHT WUERDIG." 51292 DATA "{LIG.GREEN}DER HERRSCHER DREHT SICH UM UND GEHT." 51293 DATA "{LIG.GREEN}DER WAECHTER ZIEHT SICH ZURUECK." 51294 DATA "{LIG.GREEN}DER ALTE MANN GEHT IN SEINE KATE ZURUECK." 51295 DATA "{LIG.GREEN}WENN DU NICHT AUFPASST, VERJAGEN SIE{SPACE,3SPACE}DICH !!" 51296 DATA "{LIG.GREEN}PEGASUS LAESST SICH NICHT VERJAGEN." 51297 DATA "{LIG.GREEN}SCHNURPS! SCHNURPS!","{LIG.GREEN}DAS KANNST DU NICHT VERFUETTERN." 51298 DATA "{LIG.GREEN}DIE PHYTON GIBT DIR DEN WEG FREI." 51299 DATA "{LIG.GREEN}DER ELEFANT LAEUFT KAUEND WEITER." 51300 DATA "{LIG.GREEN}DIE FLEISCHFRESSENDE PFLANZE GIBT DIR{SPACE,2SPACE}DEN WEG FREI." 51301 DATA "{LIG.GREEN}DIE AFFEN FREUEN SICH, UND LAUFEN WEG." 51302 DATA "{LIG.GREEN}DIE RATTEN VERSCHWINDEN." 51303 DATA "{LIG.GREEN}DIE KREBSE GEBEN DEN WEG FREI." 51304 DATA "{LIG.GREEN}DU BIST IN EINER BAUMKRONE." 51305 DATA "{LIG.GREEN}DU BIST IM WIPFEL EINER TANNE." 51306 DATA "{LIG.GREEN}DU BIST GANZ OBEN IN DER{SHIFT-SPACE}EICHE.UEBER DIRIST BLAUER HIMMEL." 51307 DATA "{LIG.GREEN}DU KANNST DICH NICHT MEHR HALTEN......" 51308 DATA "{LIG.GREEN}DU KOMMST NICHT DRAN, DER SCHACHT IST{SPACE,2SPACE}ZU HOCH." 51309 DATA "{LIG.GREEN}DU STEHST AUF DER STATUE." 51310 DATA "{LIG.GREEN}SIE WACKELT LEICHT !" 51311 DATA "{LIG.GREEN}DIESES GEFAEHRT IST NUR MIT STEINEN ZU{SPACE,SPACE}BELADEN!" 51312 DATA "{LIG.GREEN}DER HERRSCHER VERWEHRT DIR DEN ZUTRITT!" 51313 DATA "{LIG.GREEN}DU KANNST HIER{SHIFT-SPACE}NICHT WEITERKLETTERN." 51314 DATA "{LIG.GREEN}DU KANNST JETZT NICHT KLETTERN!" 51315 DATA "{LIG.GREEN}DU SIEHST IM OSTEN EIN GEBIRGE." 51316 DATA "{LIG.GREEN}DU SIEHST EINEN ZYKLOP AUS EINER HOEHLE KOMMEN." 51317 DATA "{LIG.GREEN}DU SIEHST NICHTS BESONDERES.","{LIG.GREEN}HUPS{SHIFT-SPACE}!" 51318 DATA "{LIG.GREEN}DU BIST JA RICHTIG SPORTLICH!" 51319 DATA "{LIG.GREEN}DIE LORE IST VOLL GEROELL!","{LIG.GREEN}EIN DURCHBRUCH WIRD SICHTBAR." 51320 DATA "{LIG.GREEN}DIE GEROELLHALDE HAT ZU GROSSE STEINE." 51331 DATA "{LIG.GREEN}WOHIN?","{LIG.GREEN}DAS KANNST DU NICHT.","{LIG.GREEN}IST DOCH SCHON AUF!" 51332 DATA "{LIG.GREEN}DER OFEN IST HEISS !","{LIG.GREEN}ES LIEGT EWAS DARIN." 51333 DATA "{LIG.GREEN}DAS KANNST DU DOCH NICHT OEFFNEN!" 51334 DATA "{LIG.GREEN}DER BALKEN LIEGT UEBER DEM WASSERLOCH." 51335 DATA "{LIG.GREEN}DIE MUENZEN SIND IM OFEN! SIE SCHMELZEN UND WERDEN FLUESSIG!" 51336 DATA "{LIG.GREEN}WIE WILLST DU DENN DAS REITEN?","{LIG.GREEN}DAS IST NICHT MEIN NAME!" 51337 DATA "{LIG.GREEN}BRAVO{SHIFT-SPACE}ABENTEURER{SHIFT-SPACE}!!!{SHIFT-SPACE}DU SOLLST DAS{SHIFT-SPACE}BUCH BEKOMMEN." 51338 DATA "{LIG.GREEN}ER LEGT DAS{SHIFT-SPACE}BUCH{SHIFT-SPACE}HIN.","{LIG.GREEN}DER THRON VERSINKT IM ERDREICH." 51339 DATA "{LIG.GREEN}DIE LORE ROLLT DAVON." 51340 DATA "{LIG.GREEN}IN DER FORM BEGINNT EIN SILBERSCHLUESSELZU ERKALTEN." 51341 DATA "{LIG.GREEN}IN DER FORM BEGINNT EIN GOLDSCHLUESSEL{SPACE,SPACE}ZU ERKALTEN." 51342 DATA "{LIG.GREEN}VERSUCHE: NIMM BOOT.","{LIG.GREEN}DER STEINFRESSER FLIEHT." 51343 DATA "{LIG.GREEN}DAS NETZ ZERREISST,ABER DIE RIESENSPINNEKOMMT AUF DICH ZU." 51344 DATA "{LIG.GREEN}DIE SPINNE IST TOT.","{LIG.GREEN}DER FLUGDRACHEN FLIEGT DAVON." 51345 DATA "{LIG.GREEN}DER ZYKLOP{SHIFT-SPACE,SPACE}IST SCHWER VERWUNDET UND{4SPACE}VERSCHWINDET IN DER HOEHLE." 51346 DATA "{LIG.GREEN}DER PFEIL VERWUNDET DEN ZYKLOP{SPACE,9SPACE}NUR LEICHT." 51347 DATA "{LIG.GREEN}DU SIEHST NICHTS BESONDERES.","{LIG.GREEN}SIE IST LEER." 51348 DATA "{LIG.GREEN}SIE IST VERSCHLOSSEN.","{LIG.GREEN}ES LIEGT EIN PERGAMENT DARIN." 51349 DATA "{LIG.GREEN}DIE KNOCHEN SIND MIT SPINNWEBEN{SPACE,8SPACE}UEBERZOGEN." 51350 DATA "{LIG.GREEN}ES KOMMT EINE GROSSE HITZE{SHIFT-SPACE}UND RAUCH{SHIFT-SPACE,3SPACE}HERAUS." 51351 DATA "{LIG.GREEN}DA STEHT ETWAS GESCHRIEBENES." 51352 DATA "{LIG.GREEN}MACHT UND GELD IST NICHT ALLES!" 51353 DATA "{LIG.GREEN}WEISHEIT{SHIFT-SPACE}IST, KEINEM{SHIFT-SPACE}TRAUM NACHZURENNEN." 51354 DATA "{YELLOW}*** DAS BUCH{SHIFT-SPACE}DER WEISHEIT ***" 51355 DATA "{LIG.GREEN}LASSE DEINE FANTASIE SPIELEN!" 51356 DATA "{LIG.GREEN}BEDENKE: DU BIST IN EINEM MAERCHEN- UND{SHIFT-SPACE}SAGENLAND!" 51357 DATA "{LIG.GREEN}DIE PFEILE SIND ERLOSCHEN." 51358 DATA "{LIG.GREEN}DER TIGER KNURRT UND LAEUFT DAVON." 51359 DATA "{LIG.GREEN}VERSUCHE: KLETTERN","{LIG.GREEN}DA KANNST DU NICHT HINGEHEN." 51360 DATA "{LIG.GREEN}LEIDER KANNST DU NICHT SCHWIMMEN." 51361 DATA "{LIG.GREEN}OHNE RUDER{SHIFT-SPACE}KOMMST DU NICHT VORAN.","{LIG.GREEN}LASSEN DICH NICHT!" 51362 DATA "{LIG.GREEN}DIE ZWERGE","{LIG.GREEN}DIE BRUECKE IST MORSCH....SIE BRICHT!" 51363 DATA "{LIG.GREEN}DIE HAENGEBRUECKE HAELT DEIN GEWICHT{SPACE,3SPACE}NICHT AUS........" 51364 DATA "{LIG.GREEN}ES IST EINE SCHLUESSEL-FORM. (RESTE{SPACE,4SPACE}VON METALL SIND DARIN)" 51365 DATA "{LIG.GREEN}DAS BOOT LECKT !" 51366 DATA "{LIG.GREEN}DIE KOBOLDE HABEN DIE MUENZEN GENOMMEN{SPACE,SPACE}UND VERSCHWINDEN!" 51367 DATA "{LIG.GREEN}DIE KOBOLDE HABEN DICH BESTOHLEN !" 52000 RETURN
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen