80-Bus Journal |
Okt./Nov./Dezember 1984 · Ausgabe 4 |
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*
|
|
|
Seite 34 von 52 |
|
|
|
---|
Download des Programms von der Nascom Home Page.