80-Bus Journal

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 di ch in"
5570 PRINT"ein tiefes Loch !":E=-1.5:PRINT:GOSU B5020: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 Po sition"
6080 FORX2=1TO5:PRINT" . ";:GOSUB1310:NEXT:PRIN T
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"gena u 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, versu cht"
6250 PRINT"mit  seinem  Schwert die Luft zu dur ch-"
6260 PRINT"schneiden und mit ihr deinen Kopf !! !"
6270 PRINT"Z";:GOSUB1300:FORX=1TO10:PRINT"I";:G OSUB1300:NEXT
6280 PRINT"S";:GOSUB1300:PRINT"C";:GOSUB1300:PR INT"H !"
6290 IFRND(1)<=.5+.3*H2/W2GOTO6440
6300 PRINT"Du bist getroffen !!!":H1=H1-.2:H2=H 2-.2
6310 GOSUB1330:PRINT,"Uuuuuuff":GOSUB1320
6320 IFH1<.05THENPRINT"Du bist am Boden !":G OSUB1330:GOTO6340
6330 PRINT"Du stolperst davon  . . . .":GOTO606 0
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 verzwei felten";
6390 PRINT" Stoss !":GOSUB1340:IFRND(1)<=.9+ DSGOTO6410
6400 PRINT,"Sorry, das war nichts.":GOTO6430
6410 PRINT" Du hast es geschafft! Er ist besieg t !"
6420 GOSUB1340:RETURN
6430 PRINT:PRINT,"Du bist erledigt !!!":GOSUB13 40:GOTO10010

6440 X=FNZ(6):ONX-1GOTO6470,6500,6510,6530,6550
6450 PRINT"Du stoppst seinen Angriff mit dem Sc hwert"
6460 PRINT"und springst zurueck !":GOTO6680
6470 PRINT"Du  duckst  dich  unter  sein Schwer t,"
6480 PRINT"weichst der Keule aus und greifst an !"
6490 GOTO6580
6500 PRINT"Du parierst seine Attacke !!!":GOTO6 580
6510 PRINT"Du trittst ihm gegen sein"
6520 PRINT"Schienbein und huepfst davon ...":GO TO6730
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 rech ts !";
6570 PRINT:PRINT"Du fuehrst einen Stoss auf sei ne 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 !!!":GOSUB 1340
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:R 4=FNZ(5)
7040 ONR4GOSUB4010,7510,8010,8510,9010:RETURN
7500 REM *SPINNE*
7510 GOSUB1270:SCREEN15,4:PRINT"EINE RIESENSPIN NE !"
7520 Z=0:FORT9=1TO50:Z=Z+(USR(0)=82):NEXT
7530 IFZTHEN7690
7540 GOSUB1270:SCREEN1,3
7550 PRINT"         RESTORELINESLINESLINESLINES IF            RESTORELINESLINESLINESLINESIF"
7560 PRINT"        DATA      NEXTRESTORELINESLI NESLINESLINESLINESLINESLINESLINESIFDATA      NEXT"
7570 PRINT"       RESETRESTOREGOTORESETRESETRES ETRUNIFDATA          NEXTRESTOREGOTORESETRESETRESETRUNIFRESET"
7580 PRINT"       DATA RESTORELINESLINESLINESLI NESLINESSCREEN   RESTORELINESLINESIF   POKELINESLINESLINESLINESLINESIF NEXT"
7590 PRINT"      RESETRESTOREGOTO   RESTORELINE SLINESNEXT   fINPINPDEEK   DATALINESLINESIF   RUNIFRESET"
7600 PRINT"      DATA   RESTOREGOTO    RUNIF LE Nj-j-COS RESTOREGOTO    RUNIF   NEXT"
7610 PRINT"      NEXT  DATA        RESETRESETRE SETRESETRESETRESET        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)<>82GOTO76 60
7680 PRINT"NN !!"
7690 GOSUB1310:GOSUB1270:SCREEN1,2:PRINT,"Puuuh !!!!!":RETURN
7700 PRINT"NN !  Zu spaet !":FORX=2397TO2461STE P64

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:SCRE EN18,14
7740 PRINT"SCHMATZ !":GOSUB1320:SCREEN1,14:PRIN TCHR$(27);
7750 PRINT,"RRRUE";:FORX=1TO15:PRINT"L";:NEXT:P RINT"PS !"
7760 GOSUB1330:SCREEN1,14:PRINTCHR$(27),"    HI CK !!"
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,82 24
7800 DOKEX+194,8224:NEXT:DOKE2589,-25187
7810 DOKE2591,-25187
7820 GOSUB1330:R4=2:GOTO10010
8000 REM *DRACHE*
8010 PRINT"Hmmmmmmmmm . . . . . es ist wohl war m ?!?"
8020 GOSUB1330:GOSUB1270:SCREEN20,3
8030 PRINT"Jiiiiiiiep":GOSUB1310:SCREEN10,6
8040 PRINT"E I N   D R A C H E   ! ! ! !":GOSUB 1320
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:GOSUB132 0:GOSUB1270:SCREEN4,3
8170 PRINT"DU HAST ES GESCHAFFT-- DAS BIEST IST TOT!"
8180 PRINT:PRINT:GOSUB1330:DS=DS+.045:RETURN
8190 GOSUB8250:IFX7>1GOTO8210
8200 GOSUB1270:SCREEN20,3:PRINT"Feigling !":PRI NT:PRINT:RETURN
8210 ONFNZ(5)GOSUB8260,8360
8220 FORT9=1TO40:IN=USR(0):IFINTHENGOSUB8410:GO TO8150
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):IFINTHENG OSUB8390
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<X6T HENRETURN
8300 R7=FNZ(3):IFE=1THENR7=FNZ(2)
8310 IFR7<>2GOTO8340
8320 SCREEN1,14:PRINT"Ziiiisch!  Du bist angesc hmort !!!!"
8330 GOSUB8250:GOSUB1300:DS=DS-.002:SCREEN1,14: PRINTCHR$(27):RETURN
8340 GOSUB8240:SCREENX7,12:PRINT"ôææ":SCREEN1,1 4: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,-305 38:RETURN
8410 Y2=(IN=17ANDX7>1.5)-(IN=18)
8420 IFY2THENPOKE2700+X7,32:DOKE2762+X7,8224
8430 X7=X7+Y2:RETURN
8500 REM *GESPENST*