5500 REM *NECROMANCER*
5510 PRINT:PRINT"DER NECROMANCER . . . . !!!!!"
5520 IFRND(1)>.6THENGOSUB4290:RETURN
5530 IFFTHENPRINT"Die Nymphe dreht durch !":F=0:W=W-1
5540 IFR>0THENPRINT"Er nimmt die Prinzessin !":R=-2
5550 IFE<>1THENR4=11:GOTO10010
5560 PRINT"Er nimmt dein Schwert und stoesst dich in"
5570 PRINT"ein tiefes Loch !":E=-1.5:PRINT:GOSUB5020:RETURN
5580 PRINT"Aaaah, Ratten, Millionen von Ratten !!!!!"
5590 GOSUB4290:RETURN
6000 REM *TROLL-KRIEGER*
6010 W3=2:H1=1+DS:H2=1+DS:W2=1+.3*RND(1)
6020 H3=2+SGN(E):GOSUB1270:SCREEN1,3
6030 PRINT"E i n T r o l l - K r i e g e r ! ! !"
6040 R4=4:GOSUB1340:GOSUB1270:SCREEN12,3
6050 PRINT"Der Kampf beginnt . . ."
6060 FORT9=1TO1200:X=FNZ(7):NEXT:PRINT
6070 PRINT"Du stellst dich in eine guenstige Position"
6080 FORX2=1TO5:PRINT" . ";:GOSUB1310:NEXT:PRINT
6090 H1=H1-.05:H2=H2-.05
6100 PRINT"Er greift mit Schwert und Keule an !!!"
6110 ONX-1GOTO6140,6160,6180,6200,6220,6240
6120 PRINT"Er schlaegt wild mit seinem Schwert !!!!"
6130 FORT7=1TOFNZ(6):PRINT"Zong! ";:NEXT:PRINT:GOTO6290
6140 PRINT"Er zielt mit dem Schwert":PRINT"genau auf dei";
6150 PRINT"nen Koerper !":GOTO6290
6160 PRINT"Er versucht, dich um einen Kopf"
6170 PRINT"kuerzer zu machen !!!":GOTO6290
6180 PRINT"Er schwingt die Keule genau"
6190 PRINT"auf deinen Kopf zu !!!":GOTO6290
6200 PRINT"Er schleudert die Keule"
6210 PRINT"auf deinen Koerper zu ! !":GOTO6290
6220 PRINT"Er pariert deinen Angriff"
6230 PRINT"und schlaegt zurueck !!!":GOTO6290
6240 PRINT"Er tritt Sand in dein Gesicht, versucht"
6250 PRINT"mit seinem Schwert die Luft zu durch-"
6260 PRINT"schneiden und mit ihr deinen Kopf !!!"
6270 PRINT"Z";:GOSUB1300:FORX=1TO10:PRINT"I";:GOSUB1300:NEXT
6280 PRINT"S";:GOSUB1300:PRINT"C";:GOSUB1300:PRINT"H !"
6290 IFRND(1)<=.5+.3*H2/W2GOTO6440
6300 PRINT"Du bist getroffen !!!":H1=H1-.2:H2=H2-.2
6310 GOSUB1330:PRINT,"Uuuuuuff":GOSUB1320
6320 IFH1<.05THENPRINT"Du bist am Boden !":GOSUB1330:GOTO6340
6330 PRINT"Du stolperst davon . . . .":GOTO6060
6340 PRINT"Er naehert sich langsam, um dir"
6350 PRINT"den Todesstoss zu versetzen !!!"
6360 FORX=1TOFNZ(16):PRINT" Stomp !";:GOSUB1320:NEXT
6370 PRINT:IFRND(1)>.1+E/20GOTO6430
6380 PRINT:PRINT" Du fuehrst noch einen verzweifelten";
6390 PRINT" Stoss !":GOSUB1340:IFRND(1)<=.9+DSGOTO6410
6400 PRINT,"Sorry, das war nichts.":GOTO6430
6410 PRINT" Du hast es geschafft! Er ist besiegt !"
6420 GOSUB1340:RETURN
6430 PRINT:PRINT,"Du bist erledigt !!!":GOSUB1340:GOTO10010
6440 X=FNZ(6):ONX-1GOTO6470,6500,6510,6530,6550
6450 PRINT"Du stoppst seinen Angriff mit dem Schwert"
6460 PRINT"und springst zurueck !":GOTO6680
6470 PRINT"Du duckst dich unter sein Schwert,"
6480 PRINT"weichst der Keule aus und greifst an!"
6490 GOTO6580
6500 PRINT"Du parierst seine Attacke !!!":GOTO6580
6510 PRINT"Du trittst ihm gegen sein"
6520 PRINT"Schienbein und huepfst davon ...":GOTO6730
6530 PRINT"Du springst ihm mit deinen"
6540 PRINT"Stiefeln auf die Zehen !!!":GOTO6730
6550 PRINT"Du schlaegst nach links!";
6560 IFFNZ(3)<>1THENPRINT" Dann nach rechts !";
6570 PRINT:PRINT"Du fuehrst einen Stoss auf seine Knie !"
6580 FORX3=1TOH3:IFRND(1)>.1GOTO6600
6590 PRINT"Du hast ihn verfehlt !!!":GOTO6670
6600 ONFNZ(3)-1GOTO6630,6650
6610 PRINT"Du hast sein Bein erwischt !!!"
6620 W2=W2-DS-H2/5:W3=W3-DS-H2/5:GOTO6670
6630 PRINT"Du hast seinen Arm getroffen !!!"
6640 W2=W2-DS-H2/3:W3=W3-DS-H2/5:GOTO6670
6650 PRINT"Du hast seinen Koerper erreicht !!!"
6660 W2=W2-DS:W3=W3-.05-DS
6670 NEXTX3
6680 IFW2<.1THENW2=.1
6690 IFW3>.05GOTO6060
6700 PRINT"Er ist geschlagen !!!!!!!!!!!"
6710 PRINT"Du hast ihn fertiggemacht !!!":GOSUB1340
6720 DS=DS*RND(1):RETURN
6730 W2=W2-DS*RND(1):W3=W3-DS*RND(1):GOTO6680
7000 REM *BUSCH*
7010 PRINT"Warte einmal !";:GOSUB1310
7020 PRINT" Da bewegt sich etwas"
7030 PRINT"hinter diesem Busch !?!":GOSUB1310:R4=FNZ(5)
7040 ONR4GOSUB4010,7510,8010,8510,9010:RETURN
7500 REM *SPINNE*
7510 GOSUB1270:SCREEN15,4:PRINT"EINE RIESENSPINNE !"
7520 Z=0:FORT9=1TO50:Z=Z+(USR(0)=82):NEXT
7530 IFZTHEN7690
7540 GOSUB1270:SCREEN1,3
7550 PRINT" RESTORELINESLINESLINESLINESIF RESTORELINESLINESLINESLINESIF"
7560 PRINT" DATA NEXTRESTORELINESLINESLINESLINESLINESLINESLINESLINESIFDATA NEXT"
7570 PRINT" RESETRESTOREGOTORESETRESETRESETRUNIFDATA NEXTRESTOREGOTORESETRESETRESETRUNIFRESET"
7580 PRINT" DATA RESTORELINESLINESLINESLINESLINESSCREEN RESTORELINESLINESIF POKELINESLINESLINESLINESLINESIFNEXT"
7590 PRINT" RESETRESTOREGOTO RESTORELINESLINESNEXT fINPINPDEEK DATALINESLINESIF RUNIFRESET"
7600 PRINT" DATA RESTOREGOTO RUNIF LENj-j-COS RESTOREGOTO RUNIF NEXT"
7610 PRINT" NEXT DATA RESETRESETRESETRESETRESETRESET NEXT DATA"
7620 PRINT" RESET NEXT SGN/ DATA RESET"
7630 PRINT" RESET RESET"
7640 SCREEN1,2:PRINT"SCHNELL ! R";:RN=FNZ(10)+PN
7650 U2=0
7660 PRINT"E";:U2=U2+1:IFU2=RNGOTO7700
7670 FORT9=1TO120:NEXT:IFUSR(0)<>82GOTO7660
7680 PRINT"NN !!"
7690 GOSUB1310:GOSUB1270:SCREEN1,2:PRINT,"Puuuh!!!!!":RETURN
7700 PRINT"NN ! Zu spaet !":FORX=2397TO2461STEP64
7710 FORDX=128TO0STEP-64:DOKEX+DX+64,DEEK(X+DX)
7720 DOKEX+DX+66,DEEK(X+DX+2):NEXT:DOKEX,8224
7730 DOKEX+2,8224:GOSUB1310:NEXT:GOSUB1330:SCREEN18,14
7740 PRINT"SCHMATZ !":GOSUB1320:SCREEN1,14:PRINTCHR$(27);
7750 PRINT,"RRRUE";:FORX=1TO15:PRINT"L";:NEXT:PRINT"PS !"
7760 GOSUB1330:SCREEN1,14:PRINTCHR$(27)," HICK !!"
7770 GOSUB1330:FORX=2461TO2397STEP-64:GOSUB1310
7780 FORDX=0TO128STEP64:DOKEX+DX,DEEK(X+DX+64)
7790 DOKEX+DX+2,DEEK(X+DX+66):NEXT:DOKEX+192,8224
7800 DOKEX+194,8224:NEXT:DOKE2589,-25187
7810 DOKE2591,-25187
7820 GOSUB1330:R4=2:GOTO10010
8000 REM *DRACHE*
8010 PRINT"Hmmmmmmmmm . . . . . es ist wohl warm ?!?"
8020 GOSUB1330:GOSUB1270:SCREEN20,3
8030 PRINT"Jiiiiiiiep":GOSUB1310:SCREEN10,6
8040 PRINT"E I N D R A C H E ! ! ! !":GOSUB1320
8050 GOSUB1270:SCREEN35,7
8060 PRINT"×Úâô"
8070 PRINTTAB(33);"Ü éÃ"
8080 PRINTTAB(25);"à àâ ÔÑPOINT ÔPEEK"
8090 PRINTTAB(24);"ÐóóÎSTR$ÑVAL VAL ØhMhM"
8100 PRINTTAB(25);"STR$STR$STR$STR$Òâ ATN à ØATN"
8110 PRINTTAB(31);"ÝÜÒéãËSTR$STR$âhMLENãhM"
8120 PRINTTAB(30);"LENLENLEN COSCOSCOS STR$hygj-gÂ"
8130 X7=1+FNZ(10):GOSUB8250:X6=24:GOSUB8260
8140 IN=USR(0):GOSUB8410
8150 IFX7+2.5<=X6GOTO8190
8160 X7=X7+1:GOSUB8250:POKE2701+X7,136:GOSUB1320:GOSUB1270:SCREEN4,3
8170 PRINT"DU HAST ES GESCHAFFT-- DAS BIEST ISTTOT!"
8180 PRINT:PRINT:GOSUB1330:DS=DS+.045:RETURN
8190 GOSUB8250:IFX7>1GOTO8210
8200 GOSUB1270:SCREEN20,3:PRINT"Feigling !":PRINT:PRINT:RETURN
8210 ONFNZ(5)GOSUB8260,8360
8220 FORT9=1TO40:IN=USR(0):IFINTHENGOSUB8410:GOTO8150
8230 NEXT:GOTO8140
8240 POKE2700+X7,32:DOKE2762+X7,8224:RETURN
8250 POKE2700+X7,139:DOKE2762+X7,-30538:RETURN
8260 X9=2*X6-11:FORT9=1TO52:IN=USR(0):IFINTHENGOSUB8390
8270 SET(X(T9)+X9,Y(T9)):NEXT:FORT9=1TO52
8280 IN=USR(0):IFINTHENGOSUB8390
8290 RESET(X9+X(T9),Y(T9)):NEXT:IFX7+8.5<X6THENRETURN
8300 R7=FNZ(3):IFE=1THENR7=FNZ(2)
8310 IFR7<>2GOTO8340
8320 SCREEN1,14:PRINT"Ziiiisch! Du bist angeschmort !!!!"
8330 GOSUB8250:GOSUB1300:DS=DS-.002:SCREEN1,14:PRINTCHR$(27):RETURN
8340 GOSUB8240:SCREENX7,12:PRINT"ôææ":SCREEN1,14:PRINT"JA";
8350 FORX=1TO30:PRINT"U";:GOSUB1290:NEXT:PRINT"L":R4=1:GOTO10010
8360 X9=20+FNZ(2):IFX9=22ANDX6=25THENX9=0
8370 FORX=7TO13:SCREENX6,X:PRINTCHR$(X9):NEXT
8380 X6=X6+(X9=21)-(X9=22):RETURN
8390 IF(DEEK(X7+2700)AND2047)<>139ORX7<1.5THENRETURN
8400 GOSUB8410:POKE2700+X7,139:DOKE2762+X7,-30538:RETURN
8410 Y2=(IN=17ANDX7>1.5)-(IN=18)
8420 IFY2THENPOKE2700+X7,32:DOKE2762+X7,8224
8430 X7=X7+Y2:RETURN
8500 REM *GESPENST*