|
Post by Rod on Mar 3, 2020 4:34:14 GMT -5
From the Tim Hartnel book, an Atari BASIC Adventure that required about three or four tweaks to run in Liberty BASIC.
'https://www.atariarchives.org/adventure/ 'atariarchives.org makes books, information, 'and software for Atari and other classic computers 'available on the Web. Everything here is available 'with permission of the copyright holders. 'it seems to understand Quit North South East West Up Down 'Run Fight Inventory Consume Pickup Map DIM A(19,7) 10 REM WEREWOLVES AND WANDERER 20 GOSUB 2600:REM INITIALISE 30 GOSUB 160 40 IF RO <> 11 THEN 30 50 PRINT:PRINT "YOU'VE DONE IT!!":GOSUB 3520:PRINT "THAT WAS THE EXIT FROM THE CASTLE" 60 GOSUB 3520 70 PRINT:PRINT "YOU HAVE SUCCEEDED, ";N$;"!" 80 PRINT:PRINT "YOU MANAGED TO GET OUT OF THE CASTLE" 90 GOSUB 3520 100 PRINT:PRINT "WELL DONE!" 110 GOSUB 3520 120 PRINT:PRINT "YOUR SCORE IS"; 130 PRINT 3*TALLY + 5*STRENGTH + 2*WEALTH + FOOD + 30*MK 140 END 150 REM ********************** 160 REM MAJOR HANDLING ROUTINE 170 STRENGTH = STRENGTH - 5 180 IF STRENGTH<10 THEN PRINT "WARNING, ";N$;", YOUR STRENGTH":PRINT "IS RUNNING LOW":PRINT 190 IF STRENGTH < 1 THEN 2300:REM DEATH 200 TALLY = TALLY + 1 210 PRINT N$;", YOUR STRENGTH IS";STRENGTH 220 IF WEALTH > 0 THEN PRINT "YOU HAVE $ ";WEALTH 230 IF FOOD > 0 THEN PRINT "YOUR PROVISIONS SACK HOLDS";FOOD;"UNITS OF FOOD" 240 IF SUIT = 1 THEN PRINT "YOU ARE WEARING ARMOR" 250 IF AXE=0 AND SWORD=0 AND AMULET=0 THEN 320 260 PRINT "YOU ARE CARRYING "; 270 IF AXE=1 THEN PRINT "AN AXE "; 280 IF SWORD=1 THEN PRINT "A SWORD "; 290 IF SWORD + AXE > 0 AND AMULET=1 THEN PRINT "AND "; 300 IF AMULET=1 THEN PRINT "THE MAGIC AMULET" 310 PRINT 320 IF LIGHT=0 THEN PRINT "IT IS TOO DARK TO SEE ANYTHING" 330 IF LIGHT=1 THEN GOSUB 990:REM ROOM DESCRIPTION 340 K = A(RO,7):REM K IS SET TO CONTENTS OF ROOM 350 IF K=0 THEN 440:REM ROOM IS EMPTY 360 IF K>9 THEN PRINT "THERE IS TREASURE HERE WORTH $";K:GOTO 440 370 PRINT:PRINT:PRINT "DANCER...THERE IS A MONSTER HERE....":GOSUB 3520 380 IF K=-1 THEN M$="FEROCIOUS WEREWOLF":FF=5 390 IF K=-2 THEN M$="FANATICAL FLESHGORGER":FF=10 400 IF K=-3 THEN M$="MALOVENTY MALDEMER":FF=15 410 IF K=-4 THEN M$="DEVASTATING ICE-DRAGON":FF=20 420 PRINT:PRINT "IT IS A ";M$ 430 PRINT:PRINT "THE DANGER LEVEL IS";FF;"!!" 440 GOSUB 3520 450 PRINT:PRINT:PRINT "WHAT DO YOU WANT TO DO"; 460 INPUT A$:A$=LEFT$(A$,1) 470 IF K<0 AND A$<>"F" AND A$<>"R" THEN 460 480 PRINT:PRINT:PRINT "------------------------------------":PRINT 490 IF A$="Q" THEN 120 500 IF A$="N" AND A(RO,1)=0 THEN PRINT "NO EXIT THAT WAY":GOTO 440 510 IF A$="S" AND A(RO,2)=0 THEN PRINT "THERE IS NO EXIT SOUTH":GOTO 440 520 IF A$="E" AND A(RO,3)=0 THEN PRINT "YOU CANNOT GO IN THAT DIRECTION":GOTO 440 530 IF A$="W" AND A(RO,4)=0 THEN PRINT "YOU CANNOT MOVE THROUGH SOLID STONE":GOTO 440 540 IF A$="U" AND A(RO,5)=0 THEN PRINT "THERE IS NO WAY UP FROM HERE":GOTO 440 550 IF A$="D" AND A(RO,6)=0 THEN PRINT "YOU CANNOT DESCEND FROM HERE":GOTO 440 560 IF A$="R" AND RND(0)>.7 THEN GOTO 2420 570 IF A$="R" THEN PRINT "WHICH WAY DO YOU WANT TO FLEE"; : GOTO 1160 580 IF A$="F" AND A(RO,7)>-1 THEN PRINT "THERE IS NOTHING TO FIGHT HERE":GOTO 440 590 IF A$="I" THEN GOSUB 3010:RETURN 600 IF A$="C" AND FOOD=0 THEN PRINT "YOU HAVE NO FOOD":GOTO 440 610 IF A$="P" THEN GOSUB 2350:RETURN 620 IF A$="F" THEN 730 630 IF A$="M" THEN RO=INT(RND(0)*19)+1:IF RO=6 OR RO=11 THEN 630 ELSE 710 640 IF A$="C" THEN GOSUB 2480:RETURN 650 IF A$="N" THEN RO=A(RO,1) 660 IF A$="S" THEN RO=A(RO,2) 670 IF A$="E" THEN RO=A(RO,3) 680 IF A$="W" THEN RO=A(RO,4) 690 IF A$="U" THEN RO=A(RO,5) 700 IF A$="D" THEN RO=A(RO,6) 710 RETURN 720 REM ****************************** 730 REM FIGHT '740 IF INKEY$<>"" THEN 740 750 PRINT "PRESS ANY KEY TO FIGHT" '760 IF INKEY$="" THEN 760 nul$ = input$(1) 770 IF SUIT=1 THEN PRINT "YOUR ARMOR INCREASES YOUR CHANCE OF SUCCESS":FF=3*(INT(FF/4)):GOSUB 3520 780 CLS:FOR J=1 TO 6:PRINT "*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*":NEXT J 790 IF AXE=0 AND SWORD=0 THEN PRINT "YOU HAVE NO WEAPONS":PRINT "YOU MUST FIGHT WITH BARE HANDS":FF=INT(FF + FF/5):GOTO 870 800 IF AXE=1 AND SWORD=0 THEN PRINT "YOU HAVE ONLY AN AXE TO FIGHT WITH":FF=4*INT(FF/5):GOTO 870 810 IF AXE=0 AND SWORD=1 THEN PRINT "YOU MUST FIGHT WITH YOUR SWORD":FF=3*INT(FF/4):GOTO 870 820 INPUT "WHICH WEAPON? 1 - AXE, 2 - SWORD";Z 830 IF Z<1 OR Z>2 THEN 820 840 IF Z=1 THEN FF=4*INT(FF/5) 850 IF Z=2 THEN FF=3*INT(FF/4) 860 REM ************************* 870 REM THE BATTLE 880 PRINT:PRINT 890 IF RND(1)>.5 THEN PRINT M$;" ATTACKS" ELSE PRINT "YOU ATTACK" 900 GOSUB 3520 910 IF RND(1)>.5 THEN PRINT:PRINT "YOU MANAGE TO WOUND IT":FF=INT(5*FF/6) 920 GOSUB 3520 930 IF RND(1)>.5 THEN PRINT:PRINT "THE MONSTER WOUNDS YOU!":STRENGTH=STRENGTH-5 940 IF RND(1)>.35 THEN 890 950 IF RND(1)*16>FF THEN PRINT:PRINT "AND YOU MANAGED TO KILL THE ";M$:MK=MK+1:GOTO 970 960 PRINT:PRINT "THE ";M$;" DEFEATED YOU":STRENGTH=INT(STRENGTH/2) 970 A(RO,7)=0:GOSUB 3410:PRINT:PRINT:GOSUB 3520:RETURN 980 REM ****************** 990 REM ROOM DESCRIPTIONS 1000 PRINT:PRINT "**************************":PRINT:PRINT '1010 ON RO GOSUB 1040,1100,1170,1230,1280,1360,1410,1470,1540,1620,1700,1730,1790,1860,1960,2030,2100,2160,2230 select case RO case 1 gosub 1040 case 2 gosub 1100 case 3 gosub 1070 case 4 gosub 1230 case 5 gosub 1280 case 6 gosub 1360 case 7 gosub 1410 case 8 gosub 1470 case 9 gosub 1540 case 10 gosub 1620 case 11 gosub 1700 case 12 gosub 1730 case 13 gosub 1790 case 14 gosub 1860 case 15 gosub 1960 case 16 gosub 2030 case 17 gosub 2100 case 18 gosub 2160 case 19 gosub 2230 end select 1020 RETURN 1030 REM ************ 1040 REM ROOM1 1050 PRINT "YOU ARE IN THE HALLWAY" 1060 PRINT "THERE IS A DOOR TO TEE SOUTH" 1070 PRINT "THROUGH WINDOWS TO THE NORTH YOU CAN SEE A SECRET HERB GARDEN" 1080 RETURN 1090 REM ************ 1100 REM ROOM 2 1110 PRINT "THIS IS THE AUDIENCE CHAMBER" 1120 PRINT "THERE IS A WINDOW TO THE WEST. BY LOOKING TO THE RIGHT" 1130 PRINT "THROUGH IT YOU CAN SEE THE ENTRANCE TO THE CASTLE." 1140 PRINT "DOORS LEAVE THIS ROOM TO THE NORTH, EAST AND SOUTH" 1150 RETURN 1160 REM ************ 1170 REM ROOM 3 1180 PRINT "YOU ARE IN THE GREAT HALL, AN L-SHAPED ROOM" 1190 PRINT "THERE ARE DOORS TO THE EAST AND TO THE NORTH" 1200 PRINT "IN THE ALCOVE IS A DOOR TO THE WEST" 1210 RETURN 1220 REM ************ 1230 REM ROOM 4 1240 PRINT "THIS IS THE MONARCH'S PRIVATE MEETING ROOM" 1250 PRINT "THERE IS A SINGLE EXIT TO THE SOUTH" 1260 RETURN 1270 REM ************ 1280 REM ROOM 5 1290 PRINT "THIS INNER HALLWAY CONTAINS A DOOR TO THE NORTH," 1300 PRINT "AND ONE TO THE WEST, AND A CIRCULAR STAIRWELL" 1310 PRINT "PASSES THROUGH THE ROOM" 1320 PRINT "YOU CAN SEE AN ORNAMENTAL LAKE THROUGH THE" 1330 PRINT "WINDOWS TO THE SOUTH" 1340 RETURN 1350 REM ************ 1360 REM ROOM 6 1370 PRINT "YOU ARE AT THE ENTRANCE TO A FORBIDDING-LOOKING" 1380 PRINT "STONE CASTLE. YOU ARE FACING EAST" 1390 RETURN 1400 REM ************ 1410 REM ROOM 7 1420 PRINT "THIS IS THE CASTLE'S KITCHEN THROUGH WINDOWS IN" 1430 PRINT "THE NORTH WALL YOU CAN SEE A SECRET HERB GARDEN." 1440 PRINT "A DOOR LEAVES THE KITCHEN TO THE SOUTH" 1450 RETURN 1460 REM ************** 1470 REM ROOM 8 1480 PRINT "YOU ARE IN THE STORE ROOM, AMIDST SPICES," 1490 PRINT "VEGETABLES, AND VAST SACKS OF FLOUR AND" 1500 PRINT "OTHER PROVISIONS. THERE IS A DOOR TO THE NORTH" 1510 PRINT "AND ONE TO THE SOUTH" 1520 RETURN 1530 REM ************** 1540 REM ROOM 9 1550 PRINT "YOU HAVE ENTERED THE LIFT..." 1560 GOSUB 3520 1570 PRINT "IT SLOWLY DESCENDS..." 1580 GOSUB 3520 1590 RO=10 1600 GOTO 1000 1610 REM ************************ 1620 REM ROOM 10 1630 PRINT "YOU ARE IN THE REAR VESTIBULE" 1640 PRINT "THERE ARE WINDOWS TO THE SOUTH FROM WHICH YOU" 1650 PRINT "YOU CAN SEE THE ORNAMENTAL LAKE" 1660 PRINT "THERE IS AN EXIT TO THE EAST AND" 1670 PRINT "ONE TO THE NORTH" 1680 RETURN 1690 REM ***************** 1700 REM ROOM 11 1710 RETURN 1720 REM **************** 1730 REM ROOM 12 1740 PRINT "YOU ARE IN THE DANK, DARK DUNGEON" 1750 PRINT "THERE IS A SINGLE EXIT, A SMALL HOLE IN" 1760 PRINT "WALL TOWARDS THE WEST" 1770 RETURN 1780 REM **************** 1790 REM ROOM 13 1800 PRINT "YOU ARE IN THE PRISON GUARDROOM, IN THE" 1810 PRINT "BASEMENT OF THE CASTLE. THE STAIRWELL" 1820 PRINT "ENDS IN THIS ROOM. THERE IS ONE OTHER" 1830 PRINT "EXIT, A SMALL HOLE IN THE EAST WALL" 1840 RETURN 1850 REM **************** 1860 REM ROOM 14 1870 PRINT "YOU ARE IN THE MASTER BEDROOM ON THE UPPER" 1880 PRINT "LEVEL OF THE CASTLE...." 1890 PRINT "LOOKING DOWN FROM THE WINDOW TO THE WEST YOU" 1900 PRINT "CAN SEE THE ENTRANCE TO THE CASTLE, WHILE THE" 1910 PRINT "SECRET HERB GARDEN IS VISIBLE BELOW THE NORTH" 1920 PRINT "WINDOW. THERE ARE DOORS TO THE EAST AND" 1930 PRINT "TO THE SOUTH...." 1940 RETURN 1950 REM *************** 1960 REM ROOM 15 1970 PRINT "THIS IS THE L-SHAPPED UPPER HALLWAY." 1980 PRINT "TO THE NORTH IS A DOOR, AND THERE IS A" 1990 PRINT "STAIRWELL IN THE HALL AS WELL. YOU CAN SEE" 2000 PRINT "THE LAKE THROUGH THE SOUTH WINDOWS" 2010 RETURN 2020 REM **************** 2030 REM ROOM 16 2040 PRINT "THIS ROOM WAS USED AS THE CASTLE TREASURY IN" 2050 PRINT "BY-GONE YEARS...." 2060 PRINT "THERE ARE NO WINDOWS, JUST EXITS TO THE" 2070 PRINT "NORTH AND TO THE EAST" 2080 RETURN 2090 REM ************** 2100 REM ROOM 17 2110 PRINT "OOOOH...YOU ARE IN THE CHAMBERMAIDS' BEDROOM" 2120 PRINT "THERE IS AN EXIT TO THE WEST AND A DOOR" 2130 PRINT "TO THE SOUTH...." 2140 RETURN 2150 REM *************** 2160 REM ROOM 18 2170 PRINT "THIS TINY ROOM ON THE UPPER LEVEL IS THE" 2180 PRINT "DRESSING CHAMBER. THERE IS A WINDOW TO THE" 2190 PRINT "NORTH, WITH A VIEW OF THE HERB GARDEN DOWN" 2200 PRINT "BELOW. A DOOR LEAVES TO THE SOUTH" 2210 RETURN 2220 REM ************ 2230 REM ROOM 19 2240 PRINT "THIS IS THE SMALL ROOM OUTSIDE THE CASTLE" 2250 PRINT "LIFT WHICH CAN BE ENTERED BY A DOOR TO THE NORTH" 2260 PRINT "ANOTHER DOOR LEADS TO THE WEST. YOU CAN SEE" 2270 PRINT "THE LAKE THROUGH THE SOUTHERN WINDOWS" 2280 RETURN 2290 REM ************** 2300 REM DEAD END 2310 PRINT "YOU HAVE DIED........." 2320 GOSUB 3520 2330 GOTO 120 2340 REM ************** 2350 REM PICK UP TREASURE 2360 IF A(RO,7)<10 THEN PRINT "THERE IS NO TREASURE TO PICK UP":GOSUB 3520:RETURN 2370 IF LIGHT=0 THEN PRINT "YOU CANNOT SEE WHERE IT IS":GOSUB 3520:RETURN 2380 WEALTH=WEALTH + A(RO,7) 2390 A(RO,7)=0 2400 RETURN 2410 REM ************** 2420 REM UNSUCCESSFUL ATTEMPT TO RUN 2430 PRINT "NO YOU MUST STAND AND FIGHT" 2440 A$="F" 2450 GOSUB 3520 2460 GOTO 590 2470 REM ************** 2480 REM EAT FOOD 2490 CLS 2500 IF FOOD<1 THEN RETURN 2510 PRINT "YOU HAVE ";FOOD;" UNITS OF FOOD" 2520 PRINT "HOW MANY DO YOU WANT TO EAT"; 2530 INPUT Z 2540 IF Z>FOOD THEN 2530 2550 FOOD=INT(FOOD-Z) 2560 STRENGTH=INT(STRENGTH+5*Z) 2570 GOSUB 3410:CLS 2580 RETURN 2590 REM *********** 2600 REM INITIALISE 2610 CLS 2620 STRENGTH=100 2630 WEALTH=75 2640 FOOD=0 2650 TALLY=0 2660 MK=0:REM NO. OF MONSTERS KILLED 2670 REM ************** 2680 REM SET UP CASTLE 2690 DIM A(19,7) 2700 FOR B=1 TO 19 2710 FOR C=1 TO 7 2720 READ X : A(B,C)=X 2730 NEXT C 2740 NEXT B 2750 INPUT "WHAT IS YOUR NAME, EXPLORER ";N$ 2760 CLS 2770 RO=6:REM STARTING POSITION (RO=ROOM NUMBER) 2780 SWORD=0 2790 AMULET=0 2800 AXE=0 2810 SUIT=0 2820 LIGHT=0 2830 REM ************** 2840 REM ALLOT TREASURE 2850 FOR J = 1 TO 4 2860 M=INT(RND(1)*19)+1 2870 IF M=6 OR M=11 OR A(M,7)<>0 THEN 2860 2880 A(M,7)=INT(RND(1)*100)+10 2890 NEXT J 2900 REM ************** 2910 REM ALLOT MONSTERS 2920 FOR J = 1 TO 4 2930 M=INT(RND(1)*18)+1 2940 IF M=6 OR M=11 OR A(M,7)<>0 THEN 2930 2950 A(M,7)= 0-J 2960 NEXT J 2970 A(4,7)=100+INT(RND(1)*100) 2980 A(16,7)=100+INT(RND(1)*100) 2990 RETURN 3000 REM **************************** 3010 REM INVENTORY/PROVISIONS 3020 PRINT "PROVISIONS & INVENTORY" 3030 GOSUB 3260 3040 IF WEALTH<.1 THEN Z=0:GOTO 3130 3050 PRINT "YOU CAN BUY 1 - FLAMING TORCH ($15)" 3060 PRINT " 2 - AXE ($10)" 3070 PRINT " 3 - SWORD ($20)" 3080 PRINT " 4 - FOOD ($2 PER UNIT)" 3090 PRINT " 5 - MAGIC AMULET ($30)" 3100 PRINT " 6 - SUIT OF ARMOR ($50)" 3110 PRINT " 0 - TO CONTINUE ADVENTURE" 3120 INPUT "ENTER NO. OF ITEM REQUIRED";Z 3130 IF Z=0 THEN CLS:RETURN 3140 IF Z=1 THEN LIGHT=1:WEALTH=WEALTH-15 3150 IF Z=2 THEN AXE=1:WEALTH=WEALTH-10 3160 IF Z=3 THEN SWORD=1:WEALTH=WEALTH-20 3170 IF Z=5 THEN AMULET=1:WEALTH=WEALTH-30 3180 IF Z=6 THEN SUIT=1:WEALTH=WEALTH-50 3190 IF WEALTH<0 THEN PRINT "YOU HAVE TRIED TO CHEAT ME!":WEALTH=0:SUIT=0:LIGHT=0:AXE=0:SWORD=0:AMULET=0:FOOD=INT(FOOD/4):GOSUB 3520 3200 IF Z<>4 THEN 3030 3210 INPUT "HOW MANY UNITS OF FOOD";Q:Q=INT(Q) 3220 IF 2*Q>WEALTH THEN PRINT "YOU HAVEN'T GOT ENOUGH MONEY":GOTO 3210 3230 FOOD=FOOD+Q 3240 WEALTH=WEALTH-2*Q 3250 GOTO 3030 3260 IF WEALTH>0 THEN PRINT:PRINT:PRINT "YOU HAVE $";WEALTH 3270 IF WEALTH=0 THEN PRINT "YOU HAVE NO MONEY":GOSUB 3520:RETURN 3280 FOR J=1 TO 4:PRINT:NEXT J 3290 RETURN 3300 REM ****************** 3310 DATA 0,2,0,0,0,0,0:REM ROOM 1 3320 DATA 1,3,3,0,0,0,0:REM ROOM 2 3330 DATA 2,0,5,2,0,0,0:REM ROOM 3 3340 DATA 0,5,0,0,0,0,0:REM ROOM 4 3350 DATA 4,0,0,3,15,13,0:REM ROOM 5 3360 DATA 0,0,1,0,0,0,0: REM ROOM 6 3370 DATA 0,8,0,0,0,0,0: REM ROOM 7 3380 DATA 7,10,0,0,0,0,0: REM ROOM 8 3390 DATA 0,19,0,8,0,8,0:REM ROOM 9 3400 DATA 8,0,11,0,0,0,0:REM ROOM 10 3410 DATA 0,0,10,0,0,0,0:REM ROOM 11 3420 DATA 0,0,0,13,0,0,0:REM ROOM 12 3430 DATA 0,0,12,0,5,0,0:REM ROOM 13 3440 DATA 0,15,17,0,0,0,0:REM ROOM 14 3450 DATA 14,0,0,0,0,5,0:REM ROOM 15 3460 DATA 17,0,19,0,0,0,0:REM ROOM 16 3470 DATA 18,16,0,14,0,0,0:REM ROOM 17 3480 DATA 0,17,0,0,0,0,0:REM ROOM 18 3490 DATA 9,0,16,0,0,0,0:REM ROOM 19 3500 REM ****************** 3510 REM ADJUST LOOP BELOW TO YOUR SYSTEM 3520 FOR T=1 TO 900:NEXT T 3530 RETURN
|
|
|
Post by Rod on Mar 3, 2020 7:12:29 GMT -5
If you were going to rework one to be more GUI friendly this might be a better one to tackle. Or just play as is!
'https://www.atariarchives.org/adventure/ 'atariarchives.org makes books, information, 'and software for Atari and other classic computers 'available on the Web. Everything here is available 'with permission of the copyright holders. 'it seems to understand Quit North South East West Up Down 'Run Fight Getrid Pickup DIM A(43,8),C(9),T$(18),M$(19) 10 REM THE CITADEL OF PERSHU '20 RANDOMIZE VAL(RIGHT$(TIME$,2)):REM DELETE IF NOT NEEDED 30 GOSUB 4510:REM INITIALISE 40 PRINT "----------------------------------":PRINT 50 GOSUB 260:REM PLAYER STATUS REPORT 60 GOSUB 440:PRINT:REM ROOM DESCRIPTION 70 IF RO=31 OR RO>43 THEN 190 80 IF A(RO,8)<>0 THEN GOSUB 3180:GOTO 110:REM MONSTER DESCRIPTION 90 IF RO=6 AND LI=0 THEN GOSUB 3340:REM TO GET TORCH 100 IF A(RO,7)<>0 AND LI=1 THEN GOSUB 3340:REM CONTENTS DESCRIPTION 110 GOSUB 4210:REM ACCEPT PLAYER COMMAND 120 IF ST*CH*DE*IN*WI*CO=0 THEN 170 130 TALLY=TALLY+1 140 IF RO=15 THEN C(2)=0 150 IF RO=20 THEN C(3)=0 160 GOTO 40 170 PRINT "YOUR COMBINED ATTRIBUTES ARE NO LONGER" 180 PRINT "ENOUGH TO SUSTAIN YOU...YOU ARE DEAD!" 190 PRINT:PRINT "YOUR FINAL SCORE, ";N$;", IS"; 200 PRINT 3*CASH + 30*MK + 3*(ST+CH+DE+IN+WI+CO) + TALLY 210 W=RO+TALLY/1000:IF W>99 THEN W=W-RND(1)*8:GOTO 210 220 IF RO=31 THEN W=100 230 PRINT "YOU COMPLETED";INT(W);"% OF THE QUEST" 240 END 250 REM ******************** 260 REM PLAYER STATUS REPORT 270 PRINT N$ 280 IF M>0 THEN PRINT "MAGIC SPELLS: YOU HAVE";M;"LEFT" 290 IF MK>0 THEN PRINT "MONSTERS KILLED:";MK 300 PRINT "YOU HAVE "; 310 FOR J=1 TO 9:PRINT T$(C(J));" ";:NEXT J 320 IF CASH>0 THEN PRINT "$";CASH 330 IF ST<0 THEN ST=0 340 IF CH<0 THEN CH=0 350 IF DE<0 THEN DE=0 360 IF IN<0 THEN IN=0 370 IF WI<0 THEN WI=0 380 IF CO<0 THEN CO=0 390 PRINT:PRINT "STRENGTH:";ST;" CHARISMA:";CH 400 PRINT "DEXTERITY:";DE;" INTELLIGENCE:";IN 410 PRINT "WISDOM:";WI;" CONSTITUTION:";CO:PRINT 420 RETURN 430 '******************* 440 REM ROOM DESCRIPTION 450 IF LI=0 AND RO<>6 THEN PRINT "IT IS VERY DARK":GOSUB 5430:RETURN 460 IF RO> 19 THEN 490 '470 ON RO GOSUB 550,600,650,710,760,810,880,940,1000,1070,1140,1190,1260,1330,1370,1440,1530,1610,1660 select case RO case 1 gosub 550 case 2 gosub 600 case 3 gosub 650 case 4 gosub 710 case 5 gosub 760 case 6 gosub 810 case 7 gosub 880 case 8 gosub 940 case 9 gosub 1000 case 10 gosub 1070 case 11 gosub 1140 case 12 gosub 1190 case 13 gosub 1260 case 14 gosub 1330 case 15 gosub 1370 case 16 gosub 1440 case 17 gosub 1530 case 18 gosub 1610 case 19 gosub 1660 end select 480 GOSUB 5430:RETURN 490 IF RO>35 THEN 520 500 Z=RO-19':ON Z GOSUB 1710,1770,1820,1860,1900,1940,1970,2010,2050,2120,2180,2210,2260,2320,2360,2420 select case Z case 1 gosub 1710 case 2 gosub 1170 case 3 gosub 1820 case 4 gosub 1860 case 5 gosub 1900 case 6 gosub 1940 case 7 gosub 1970 case 8 gosub 2010 case 9 gosub 2050 case 10 gosub 2120 case 11 gosub 2180 case 12 gosub 2210 case 13 gosub 2260 case 14 gosub 2320 case 15 gosub 2360 case 16 gosub 2420 end select 510 GOSUB 5430:RETURN 520 Z=RO-35':ON Z GOSUB 2460,2520,2590,2650,2720,2760,2810,2850,2920,2990,3060,3110 select case Z case 1 gosub 2460 case 2 gosub 2520 case 3 gosub 2590 case 4 gosub 2650 case 5 gosub 2720 case 6 gosub 2760 case 7 gosub 2810 case 8 gosub 2850 case 9 gosub 2920 case 10 gosub 2990 case 11 gosub 3060 case 12 gosub 3110 end select 530 GOSUB 5430:RETURN 540 REM ************************** 550 REM ROOM 1 560 PRINT "AN UNDERGROUND RIVER FLOWS SWIFTLY BY" 570 IF RND(1)>.5 THEN PRINT "THERE IS AN EXIT TO THE WEST" 580 IF RND(1)>.5 THEN PRINT "A TUNNEL LEADS TO THE SOUTH" 590 RETURN 600 REM ROOM 2 610 PRINT "YOU ARE IN THE CITADEL'S FOOD STORAGE AREA" 620 PRINT "OLD CHEESES AND BLACK LOAVES OF BREAD CAN" 630 PRINT "BE SEEN, AS WELL AS MANY SACKS OF SUPPLIES" 640 RETURN 650 REM ROOM 3 660 PRINT "YOU ARE IN THE CITADEL'S KITCHEN. A HUGE" 670 PRINT "JOINT OF MEAT TURNS SLOWLY OVER A RAGING" 680 PRINT "FIRE. DOORS LEAD INTO CUPBOARDS, AS WELL" 690 PRINT "AS TO THE WEST AND TO THE SOUTH" 700 RETURN 710 REM ROOM 4 720 PRINT "THIS IS THE CENTRAL LIBRARY. LEATHER-BOUND" 730 PRINT "VOLUMES LINE THE WALLS, RIGHT UP TO THE" 740 PRINT "ORNATELY-CARVED CEILING..." 750 RETURN 760 REM ROOM 5 770 PRINT "THIS ROOM IS AN AWFUL MESS. IT USED TO" 780 PRINT "AN ARTIST'S STUDIO. PAINT AND OLD" 790 PRINT "EASELS LIE AROUND THE FLOOR" 800 RETURN 810 REM ROOM 6 820 PRINT "THIS IS THE ENTRANCE TO THE CITADEL OF PERSHU" 830 PRINT "TURN NOW, IF YOU WISH. MANY STRONGER THAN YOU" 840 PRINT "HAVE TAKEN FRIGHT AT ITS MENACIWG TOWERS AND" 850 PRINT "DARK PORTALS. IF YOU WISH TO PROCEED, MOVE" 860 PRINT "EAST TOWARDS THE BLACK, GAPING DOORWAY..." 870 RETURN 880 REM ROOM 7 890 PRINT "A STONE ALTAR STANDS IN THE MIDDLE OF THE ROOM" 900 PRINT "WITH TWO DEAD CANDLES ON IT. AN OLD BOOK LIES" 910 PRINT "ON ONE PART OF THE ALTAR TOP, AND A FADED, RED" 920 PRINT "PARCHMENT CLOTH COVERS THE FRONT OF IT" 930 RETURN 940 REM ROOM 8 950 PRINT "YOU STAND HIGH ON THE BLACK TOWER, THE" 960 PRINT "CITADEL STRETCHES TO THE NORTH, SOUTH" 970 PRINT "AND EAST OF YOU." 980 PRINT "THERE IS ONLY ONE WAY OUT" 990 RETURN 1000 REM ROOM 9 1010 PRINT "YOU ARE IN THE NORTHERN SECTION OF THE" 1020 PRINT "CITADEL'S LARGE WINE CELLAR. HEAVY" 1030 PRINT "BARRELS LIE ALL AROUND YOU IN THIS END" 1040 PRINT "OF THE CELLAR. THERE IS A DOOR TO THE NORTH" 1050 PRINT "AND ONE TO THE SOUTH" 1060 RETURN 1070 REM ROOM 10 1080 PRINT "YOU ARE IN THE WEST WING OF THE WINE" 1090 PRINT "CELLAR. THERE IS A DOOR TO THE WEST AND" 1100 PRINT "ONE TO THE EAST. THE CENTRAL CIRCULAR" 1110 PRINT "PART OF THE CELLAR LIES BEYOND THE" 1120 PRINT "EAST DOOR." 1130 RETURN 1140 REM ROOM 11 1150 PRINT "YOU ARE IN THE CENTRAL, CIRCULAR" 1160 PRINT "AREA OF THE WINE CELLAR. THERE IS" 1170 PRINT "A DOOR AT EACH COMPASS POINT." 1180 RETURN 1190 REM ROOM 12 1200 PRINT "YOU ARE IN THE EAST SECTION OF THE" 1210 PRINT "WINE CELLAR. THERE IS A DOOR TO THE" 1220 PRINT "WEST AND ONE - WHICH YOU CANNOT USE," 1230 PRINT "AS IT ONLY ALLOWS ENTRANCE TO WHERE" 1240 PRINT "YOU NOW STAND - TO THE EAST" 1250 RETURN 1260 REM ROOM 13 1270 PRINT "THERE ARE MANY, MANY WINE BOTTLES HERE" 1280 PRINT "LYING ON THEIR SIDES, IN THIS SOUTHERN" 1290 PRINT "SECTION OF THE WINE CELLAR. THERE IS A" 1300 PRINT "DARK, UNFRIENDLY-LOOKING HOLE TO THE WEST" 1310 PRINT "AND DOORS TO THE NORTH AND TO THE SOUTH" 1320 RETURN 1330 REM ROOM 14 1340 PRINT "THIS IS THE CITADEL'S ARMORY ROW UPON ROW" 1350 PRINT "OF SHINY SUITS OF ARMOR ARE STORED HERE..." 1360 RETURN 1370 REM ROOM 15 1380 PRINT "YOU ARE IN THE RULER'S BEDCHAMBER" 1390 PRINT "A LARGE FIRE BURNS IN THE SOUTH OF" 1400 PRINT "THE ROOM, WITH A SMALL DOOR BESIDE" 1410 PRINT "IT. OTHER EXITS ARE TO THE NORTH" 1420 PRINT "AND TO THE WEST" 1430 RETURN 1440 REM ROOM 16 1450 PRINT "THIS CURIOUS ROOM HAS A FLOOR COVERED" 1460 PRINT "IN SAND, HEAPED ALL OVER THE PLACE" 1470 PRINT "BY PEEPING OVER THE 'DUNES' YOU CAN" 1480 PRINT "SEE A GOLDEN PASSAGEWAY LEADS TO THE" 1490 PRINT "WEST, AND THERE IS A DOOR TO THE SOUTH" 1500 PRINT "YOU ARE NOT SURE WHETHER OR NOT YOU" 1510 PRINT "HAVE SEEN ALL THE EXITS":RETURN 1520 RETURN 1530 REM ROOM 17 1540 PRINT "YOU ARE IN THE PICTURE GALLERY. PORTRAITS" 1550 PRINT "OF LONG-DEAD PRINCES LINE ALL OF THE" 1560 PRINT "WALLS. THE ROOM IS DOMINATED BY A HUGE" 1570 PRINT "LANDSCAPE, HANGING ABOVE THE EXIT TO THE" 1580 PRINT "EAST WHICH LEADS, VIA THE GOLD PASSAGEWAY" 1590 PRINT "BACK TO THAT CURIOUS ROOM OF SAND" 1600 RETURN 1610 REM ROOM 18 1620 PRINT "YOU ARE ON A REMOTE TOWER BALCONY" 1630 IF RND(1)>.5 THEN PRINT "A BAT FLIES PAST YOU, SHRIEKING" 1640 PRINT "THERE ARE STAIRS HERE" 1650 RETURN 1660 REM ROOM 19 1670 PRINT "YOU WALK BENEATH A STONE ARCHWAY" 1680 PRINT "YOU CAN ONLY WALK NORTH OR SOUTH" 1690 PRINT "UNLESS YOU DECIDE TO TAKE THE STAIRS" 1700 RETURN 1710 REM ROOM 20 1720 PRINT "THIS VAST HALL HAS A MARBLE FLOOR, AND" 1730 PRINT "THE SLIGHTEST SOUND ECHOES VIOLENTLY" 1740 PRINT "THERE ARE PURPLE DRAPES CONCEALING" 1750 PRINT "THE EXITS FROM THIS HALL" 1760 RETURN 1770 REM ROOM 21 1780 PRINT "YOU ARE IN THE CLOVE STOREROOM" 1790 PRINT "THE WEST DOOR RADIATES HEAT" 1800 PRINT "ANOTHER DOOR LEADS TO THE SOUTH" 1810 RETURN 1820 REM ROOM 22 1830 PRINT "YOU ARE IN THE SILVER CROSSES STOREROOM" 1840 PRINT "THERE ARE ONLY TWO EXITS" 1850 RETURN 1860 REM ROOM 23 1870 PRINT "YOU ARE IN THE AMULET STOREROOM" 1880 PRINT "DOORS LEAD NORTH, AND SOUTH" 1890 RETURN 1900 REM ROOM 24 1910 PRINT "YOU ARE IN THE KAZOO STOREROOM" 1920 PRINT "THERE ARE TWO EXITS" 1930 RETURN 1940 REM ROOM 25 1950 PRINT "YOU ARE IN THE SATCHEL STOREROOM" 1960 RETURN 1970 REM ROOM 26 1980 PRINT "YOU ARE IN THE STOREROOM FOR WOODEN" 1990 PRINT "BOXES...THERE ARE TWO EXITS" 2000 RETURN 2010 REM ROOM 27 2020 PRINT "THIS IS WHERE PRINTED VASES ARE" 2030 PRINT "STORED...AS YOU CAN EASILY SEE" 2040 RETURN 2050 REM ROOM 28 2060 PRINT "THE HEAVY AIR OF THIS AREA SEEMS TO MAKE" 2070 PRINT "YOUR TORCH VERY DIM. YOU CAN HARDLY SEE" 2080 PRINT "AIR IS RUSHING UP FROM SOMEWHERE" 2090 PRINT "YOU CAN JUST MAKE OUT THAT THIS AREA MUST" 2100 PRINT "BE A MINE OF SOME SORT" 2110 RETURN 2120 REM ROOM 29 2130 PRINT "YOU APPEAR TO BE IN AN ENDLESS LABYRINTH," 2140 PRINT "LINED WITH PAINTINGS........." 2150 PRINT "WHICHEVER WAY YOU TURN, THERE SEEMS TO" 2160 PRINT "BE MORE TUNNELS, ALL LINED WITH PAINTINGS" 2170 RETURN 2180 REM ROOM 30 2190 PRINT "THIS IS THE SOUTHERN TOWER OF THE CITADEL" 2200 RETURN 2210 REM ROOM 31 2220 PRINT "WELL DONE, YOU HAVE MANAGED TO FIND THE" 2230 PRINT "THE EXIT. TAKE A DEEP BREATH OF GOOD," 2240 PRINT "CLEAN AIR..........." 2250 RETURN 2260 REM ROOM 32 2270 PRINT "THIS ROOM IS PILLED WITH SWIRLING SMOKE" 2280 PRINT "SO YOU CANNOT SEE...AIR RUSHES PAST A" 2290 PRINT "STATUE OF THE GODDESS DIANA. THIS" 2300 PRINT "MUST BE THE CITADEL'S MEDITATION CHAMBER" 2310 RETURN 2320 REM ROOM 33 2330 PRINT "A SMALL FORKED BRIDGE CROSSES A STREAM" 2340 PRINT "HERE. YOU CAN MOVE NORTH, SOUTH OR WEST" 2350 RETURN 2360 REM ROOM 34 2370 PRINT "YOU ARE IN A ROUGH STONE CAVERN, WITH" 2380 PRINT "STAIRS LEADING UP FROM IT" 2390 PRINT "THERE IS ALSO A SINGLE DOOR WHICH" 2400 PRINT "LEADS AWAY FROM THE CAVERN" 2410 RETURN 2420 REM ROOM 35 2430 PRINT "THIS IS THE FORMER CITADEL UNDERGROUND" 2440 PRINT "STABLE. IT SMELLS TERRIBLE" 2450 RETURN 2460 REM ROOM 36 2470 PRINT "YOU FIND YOURSELF IN AN UNDERGROUND" 2480 PRINT "COURTYARD, STRANGE, TWISTED TREES ARE" 2490 PRINT "AROUND YOU, AND A WIND OF INCREDIBLE" 2500 PRINT "COLDNESS BLOWS FROM THE EAST" 2510 RETURN 2520 REM ROOM 37 2530 PRINT "THIS IS THE ORACLE ROOM, ALTHOUGH THE" 2540 PRINT "MYSTIC VOICE HAS NOT SPOKEN FOR MANY" 2550 PRINT "YEARS" 2560 IF RND(1)>.3 THEN PRINT "BUT NOW IT TELLS YOU THERE IS":PRINT "A HIDDEN STAIRWELL IN THE ROOM" 2570 IF RND(1) >.7 THEN PRINT "THE VOICE FAINTLY MURMURS OF THE DOOR TO THE SOUTH" 2580 RETURN 2590 REM ROOM 38 2600 PRINT "HORRORS. A COLD SHUDDER PASSES THROUGH AS YOU" 2610 PRINT "REALISE THIS IS THE PRIESTS' SACRIFICE ROOM" 2620 PRINT "DRIED UP BLOOD IS ON THE FLOOR, AND AN" 2630 PRINT "SKULL GRINS AT YOU, FROM HIGH ON THE WALL" 2640 RETURN 2650 REM ROOM 39 2660 PRINT "OLD STRAW MATTRESSES, AND RINGS CHAINED TO THE" 2670 PRINT "WALL TELL YOU THIS WAS THE CITADEL'S DUNGEON" 2680 IF RND(1)>.4 THEN PRINT "A SMALL DOOR LEADS TO THE NORTH":PRINT "AND ANOTHER TO THE EAST" 2690 PRINT "THE DUNGEON SEEMS TO STRETCH FOREVER, WITH MANY" 2700 PRINT "SMALL PARTITIONED AREAS...." 2710 RETURN 2720 REM ROOM 40 2730 PRINT "YOU ARE IN A SMALL ALCOVE, WITH A SOLID" 2740 PRINT "GREY GRANITE THRONE IN THE MIDDLE OF IT" 2750 RETURN 2760 REM ROOM 41 2770 PRINT "THIS IS THE ORC'S GUARDROOM, WAY BELOW" 2780 PRINT "THE GROUND. A STAIRWELL ENDS HERE, AND" 2790 PRINT "A DOOR LEADS TO THE EAST" 2800 RETURN 2810 REM ROOM 42 2820 PRINT "THERE IS A HEALING POOL HERE WITH A" 2830 PRINT "DANGEROUS, SWIRLING AREA OF WATER" 2840 RETURN 2850 REM ROOM 43 2860 PRINT "THE UNDERPRIESTS OF ODRIC USED THIS" 2870 PRINT "TINY HALL FOR THEIR FORBIDDEN WORSHIP" 2880 PRINT "EONS AGO. IT IS AN UNPLEASANT AREA," 2890 PRINT "SO YOU ARE THRILLED TO SEE A SET OF" 2900 PRINT "STONE STAIRS" 2910 RETURN 2920 REM ROOM 44, DEATH BY DROWNING 2930 PRINT "WATER COVERS YOUR HEAD" 2940 GOSUB 5430 2950 PRINT "YOU ARE DROWNING" 2960 GOSUB 5430 2970 PRINT "GLUG...CASP..............." 2980 RETURN 2990 REM ROOM 45, DEATH BY BURNING 3000 PRINT "THE FLAMES STRIKE AT YOU..." 3010 GOSUB 5430 3020 PRINT "AS YOU SLOWLY BURN TO DEATH" 3030 GOSUB 5430 3040 IF RND(1)>.7 THEN 3000 3050 RETURN 3060 REM ROOM 46, FREEZING 3070 PRINT "YOU ARE HIT BY A FREEZING SPELL" 3080 PRINT "AND TURN INTO A BLOCK OF PERPETUAL" 3090 PRINT "LIVING STONE. THIS IS THE END" 3100 RETURN 3110 REM ROOM 47, BOTTOMLESS PIT 3120 PRINT "YOU TUMBLE DOWN A BOTTOMLESS PIT" 3130 GOSUB 5430 3140 PRINT "DOWN, DOWN, DOWN..." 3150 IF RND(1)>.4 THEN 3130 3160 RETURN 3170 REM ******************* 3180 REM MONSTER DESCRIPTION 3190 G$=M$(A(RO,8)) 3200 S1=(INT(RND(1)*6)+1)*3 3210 H1=(INT(RND(1)*6)+1)*3 3220 D1=(INT(RND(1)*6)+1)*3 3230 I1=(INT(RND(1)*6)+1)*3 3240 W1=(INT(RND(1)*6)+1)*3 3250 C1=(INT(RND(1)*6)+1)*3 3260 IF RND(1)>.5 THEN PRINT "YOU COME FACE TO FACE WITH A ";G$ ELSE PRINT "THE ROOM CONTAINS A ";G$ 3270 PRINT "WITH ATTRIBUTES AS FOLLOWS:" 3280 PRINT "STRENGTH:";S1;" CHARISMA:";H1 3290 PRINT "DEXTERITY:";D1;" INTELLIGENCE:";I1 3300 PRINT "WISDOM:";W1;" CONSTITUTION:";C1 3310 GOSUB 5430 3320 RETURN 3330 REM ******************** 3340 REM CONTENTS DESCRIPTION 3350 G$=T$(A(RO,7)) 3360 VALUE=INT(RND(1)*100)+56 3370 PRINT "YOU CAN SEE...." 3380 GOSUB 5430 3390 PRINT G$ 3400 IF A(RO,7)>9 THEN PRINT "WORTH $";VALUE 3410 GOSUB 5430 3420 RETURN 3430 REM ********************* 3440 REM PICK UP TREASURE 3450 IF LI=0 AND A(RO,7)<>1 THEN PRINT "IT IS TOO DARK TO SEE ANYTHING":GOSUB 5430:RETURN 3460 IF A(RO,7)=1 THEN LI=1:REM PLAYER IS CARRYING LIGHT 3470 IF A(RO,7)>9 THEN CASH=CASH+VALUE:GOTO 3490 3480 C(A(RO,7))=A(RO,7) 3490 A(RO,7)=0 3500 RETURN 3510 REM ******************** 3520 REM GET RID OF OBJECTS 3530 FLAG=0 3540 FOR Z=1 TO 9:IF C(Z)<>0 THEN FLAG=1 3550 NEXT Z 3560 IF FLAG=0 THEN PRINT "YOU HAVE NOTHING TO GET RID OF":GOSUB 5430:RETURN 3570 IF A(RO,7)<>0 THEN PRINT "THERE IS ALREADY SOMETHING HERE":GOSUB 5430:RETURN 3580 PRINT "YOU ARE CARRYING:" 3590 FOR Z=1 TO 9 3600 IF C(Z)<>0 THEN PRINT Z;" ";T$(Z) 3610 NEXT Z 3620 PRINT:INPUT "ENTER NUMBER OF OBJECT TO DROP";K 3630 IF C(K)=0 THEN PRINT "YOU ARE NOT CARRYING ";T$(K):GOSUB 5430:GOTO 3620 3640 IF K=1 THEN LI=0:REM TURN LIGHT OFF 3650 A(RO,7)=K 3660 C(K)=0 3670 RETURN 3680 REM ********************* 3690 REM THE BIG FIGHT 3700 IF A(RO,8)=0 THEN RETURN 3710 PRINT:PRINT "YOUR OPPONENT IS A ";G$ 3720 MT=0:HT=0:REM MONSTER TALLY, HUMAN TALLY 3730 PRINT "WITH THE FOLLOWING ATTRIBUTES:" 3740 PRINT "1 - STRENGTH";S1;" 2 - CHARISMA";H1 3750 PRINT "3 - DEXTERITY";D1;" 4 - INTELLIGENCE";I1 3760 PRINT "5 - WISDOM";W1;" 6 - CONSTITUTION";C1 3770 PRINT:PRINT "YOUR ATTRIBUTES ARE:" 3780 PRINT "1 - STRENGTH";ST;" 2 - CHARISMA";CH 3790 PRINT "3 - DEXTERITY";DE;" 4 - INTELLIGENCE";IN 3800 PRINT "5 - WISDOM";WI;" 6 - CONSTITUTION";CO 3810 PRINT:IF C(4)<> 0 THEN PRINT "YOU HAVE A SWORD":HT=HT+1 3820 IF C(5)<>0 THEN PRINT "YOUR WAR HAMMER WILL BE OF AID":HT=HT+1 3830 IF C(6)<>0 THEN PRINT "CHAIN MAIL ARMOR GIVES YOU AN EDGE":HT=HT+1 3840 IF C(7)<>0 THEN PRINT "YOUR SHIELD WILL HELP IN THIS FIGHT":PRINT "AGAINST THE ";G$:HT=HT+1 3850 IF C(8)<>0 THEN PRINT "THE CLOAK OF PROTECTION SURROUNDS YOU":HT=HT+1 3860 IF C(9)<>0 THEN PRINT "THE WAND OF FIREBALLS ENHANCES YOUR STRENGTH":HT=HT+1 3870 IF M>0 THEN PRINT "ENTER 1 TO FIGHT WITH MAGIC":INPUT "OR 2 TO RELY ON SKILL";Q:IF Q<1 OR Q>2 THEN 3870 3880 IF M>0 AND Q=1 THEN M=M-1:PRINT "YOUR MAGIC DESTROYS IT":GOSUB 5430:MK=MK+1:GOTO 4190 3890 PRINT:INPUT "WHICH ATTRIBUTES TO FIGHT WITH (2)";Z,Q 3900 IF Z<1 OR Q<1 OR Z>6 OR Q>6 OR Z=Q THEN PRINT "NO CHEATING!":GOTO 3890 3910 IF Z=1 OR Q=1 THEN MT=MT+S1:HT=HT+ST 3920 IF Z=2 OR Q=2 THEN MT=MT+H1:HT=HT+CH 3930 IF Z=3 OR Q=3 THEN MT=MT+D1:HT=HT+DE 3940 IF Z=4 OR Q=4 THEN MT=MT+I1:HT=HT+IN 3950 IF Z=5 OR Q=5 THEN MT=MT+W1:HT=HT+WI 3960 IF Z=6 OR Q=6 THEN MT=MT+C1:HT=HT+CO 3970 PRINT:PRINT "THE FIGHT STARTS IN FAVOR OF "; 3980 IF HT>MT THEN PRINT "YOU" ELSE PRINT "THE ";G$ 3990 K=INT(RND(1)*8) 4000 PRINT "THE ";G$;" -";MT 4010 PRINT N$;" -";HT:PRINT 4020 IF K=0 THEN PRINT "YOU GET IN A GLANCING BLOW":MT=MT-1 4030 IF K=1 THEN PRINT "THE ";C$;" STRIKES OUT!":HT=HT-3:ST=ST-1:CH=CH-1 4040 IF K=2 THEN PRINT "YOU DRAW THE ";G$;"'S BLOOD":MT=MT-1 4050 IF K=3 THEN PRINT "YOU ARE WOUNDED!!":HT=HT-(INT(RND(1)*3)+1):DE=DE-1 4060 IF K=4 THEN PRINT "THE ";G$;" IS TIRING":MT=MT-1 4070 IF K=5 THEN PRINT "YOU ARE BLEEDING....":HT=HT-2:WI=WI-1:CO=CO-1 4080 IF K=6 THEN PRINT "YOU WOUND THE ";G$:MT=MT-1 4090 IF K=7 THEN K=INT(RND(1)*CASH + 1):PRINT "IT KNOCKS $";K;" FROM YOUR HAND":CASH=CASH-K 4100 IF RND(1)>.25 AND HT>0 AND MT>0 THEN FOR T=1 TO 1600:NEXT T:GOTO 3990 4110 IF HT>MT THEN PRINT "YOU HAVE KILLED THE ";G$:MK=MK+1:GOTO 4190 4120 PRINT "THE ";G$;" GOT THE BETTER OF YOU THAT TIME" 4130 IF Z=1 OR Q=1 THEN ST=4*INT(ST/5) 4140 IF Z=2 OR Q=2 THEN CH=3*INT(CH/4) 4150 IF Z=3 OR Q=3 THEN DE=6*INT(DE/7) 4160 IF Z=4 OR Q=4 THEN IN=2*INT(IN/3) 4170 IF Z=5 OR Q=5 THEN WI=5*INT(WI/6) 4180 IF Z=6 OR Q=6 THEN CO=3*INT(CO/6) 4190 A(RO,8)=0:GOSUB 5430:RETURN 4200 REM ********************* 4210 REM ACCEPT PLAYER COMMAND 4220 'IF INKEY$<>"" THEN 4220 4230 PRINT:PRINT "WHAT DO YOU WANT TO DO? " '4240 Z$=INKEY$ INPUT Z$:Z$=UPPER$(LEFT$(Z$,1)) 4250 IF Z$="" THEN 4240 4260 IF Z$="Q" THEN PRINT "COWARD...QUITTER....TURNCOAT...":GOTO 190 4270 IF Z$="F" AND A(RO,8)=0 THEN PRINT "THERE IS NOTHING TO FIGHT":GOTO 4220 4280 IF Z$="F" THEN GOSUB 3690 4290 IF Z$="P" AND A(RO,7)=0 THEN PRINT "THERE IS NOTHING TO PICK UP":GOTO 4220 4300 IF Z$="G" THEN GOSUB 3520 4310 IF Z$="R" AND RND(1)>.4 AND A(RO,8)<>0 THEN PRINT "NO, YOU MUST STAND AND FIGHT":Z$="F" 4320 IF Z$="R" THEN INPUT "WHICH DIRECTION WILL YOU RUN";Z$ 4330 IF Z$="P" THEN GOSUB 3440 4340 IF Z$="F" THEN GOSUB 3690 4350 IF Z$="N" AND A(RO,1)=0 THEN PRINT "NO EXIT THAT WAY":GOTO 4220 4360 IF Z$="S" AND A(RO,2)=0 THEN PRINT "THERE IS NO EXIT SOUTH":GOTO 4220 4370 IF Z$="E" AND A(RO,3)=0 THEN PRINT "YOU CANNOT GO IN THAT DIRECTION":GOTO 4220 4380 IF Z$="W" AND A(RO,4)=0 THEN PRINT "YOU CANNOT MOVE THROUGH SOLID STONE":GOTO 4220 4390 IF Z$="U" AND A(RO,5)=0 THEN PRINT "THERE IS NO WAY UP FROM HERE":GOTO 4220 4400 IF Z$="D" AND A(RO,6)=0 THEN PRINT "YOU CANNOT DESCEND FROM HERE":GOTO 4220 4410 IF RO=15 AND C(2)=0 AND Z$="E" THEN PRINT "YOU NEED THE SILVER KEY TO UNLOCK THE DOOR":GOTO 4220 4420 IF RO=22 AND C(3)=0 AND Z$="W" THEN PRINT "YOU NEED THE GOLD KEY TO UNLOCK THE DOOR":GOTO 4220 4430 IF Z$="N" THEN RO=A(RO,1) 4440 IF Z$="S" THEN RO=A(RO,2) 4450 IF Z$="E" THEN RO=A(RO,3) 4460 IF Z$="W" THEN RO=A(RO,4) 4470 IF Z$="U" THEN RO=A(RO,5) 4480 IF Z$="D" THEN RO=A(RO,6) 4490 RETURN 4500 REM ********** 4510 REM INITIALISE 4520 CLS '4530 DIM A(43,8),C(9),T$(18),M$(19) 4540 TALLY=0:LI=0:RO=6:CASH=100:MK=0:M=3 4550 ST=3*(INT(RND(1)*6)+1) 4560 CH=3*(INT(RND(1)*6)+1) 4570 DE=3*(INT(RND(1)*6)+1) 4580 IN=3*(INT(RND(1)*6)+1) 4590 WI=3*(INT(RND(1)*6)+1) 4600 CO=3*(INT(RND(1)*6)+1) 4610 REM **************** 4620 REM ROOM DIRECTIONS 4630 FOR B=1 TO 43 4640 FOR C=1 TO 8 4650 READ X : A(B,C)=X 4660 NEXT C:NEXT B 4670 REM ***************** 4680 REM ALLOT MONSTERS 4690 FOR J = 1 TO 15 4700 T=INT(RND(1)*43)+1:IF T=6 OR T=31 OR T=4 OR T=21 THEN 4700 4710 IF A(T,8)<>0 THEN 4700 4720 A(T,8)=J 4730 NEXT J 4740 REM ***************** 4750 REM ALLOT TREASURE 4760 FOR J = 4 TO 18 4770 T=INT(RND(1)*43)+1:IF T=6 OR T=31 THEN 4770 4780 IF A(T,7)<>0 THEN 4770 4790 A(T,7)=J 4800 NEXT J 4810 REM *********************** 4820 INPUT "WHAT IS YOUR NAME, EXPLORER ";N$ 4830 CLS 4840 REM ******************* 4850 REM NAME TREASURES/MONSTERS 4860 FOR J=1 TO 18 4870 READ x$ : T$(J)=x$ 4880 NEXT J 4890 FOR J=1 TO 19 4900 READ x$ : M$(J)=x$ 4910 NEXT J 4920 RETURN 4930 REM **************** 4940 DATA 1,4,1,8,0,0,0,0:REM ROOM 1 4950 DATA 0,5,3,0,0,0,0,0:REM ROOM 2 4960 DATA 3,7,3,2,0,0,0,0:REM ROOM 3 4970 DATA 1,0,5,0,0,0,2,0:REM ROOM 4 4980 DATA 2,0,0,4,0,0,0,0:REM ROOM 5 4990 DATA 0,0,7,0,0,0,1,0:REM ROOM 6, ENTRANCE 5000 DATA 3,14,15,6,0,0,0,0:REM ROOM 7 5010 DATA 1,8,8,8,0,0,0,0:REM ROOM 8 5020 DATA 10,11,0,0,0,0,0,0:REM ROOM 9 5030 DATA 0,0,11,9,0,0,0,0:REM ROOM 10 5040 DATA 9,13,12,10,0,0,0,0:REM ROOM 11 5050 DATA 0,0,0,11,0,0,0,0:REM ROOM 12 5060 DATA 11,16,0,44,0,0,0,0:REM ROOM 13 5070 DATA 7,0,0,0,0,0,0,0:REM ROOM 14 5080 DATA 7,45,0,12,0,0,0,0:REM ROOM 15 5090 DATA 0,19,0,17,0,37,0,0:REM ROOM 16 5100 DATA 0,0,16,0,0,0,0,0:REM ROOM 17 5110 DATA 0,30,0,0,0,34,0,0:REM ROOM 18 5120 DATA 16,28,0,0,0,43,0,0:REM ROOM 19 5130 DATA 0,31,22,0,0,0,0,0:REM ROOM 20 5140 DATA 0,23,0,45,0,0,3,0:REM ROOM 21 5150 DATA 0,24,0,20,0,0,0,0:REM ROOM 22 5160 DATA 21,25,0,0,0,0,0,0: REM ROOM 23 5170 DATA 22,0,25,0,0,0,0,0:REM ROOM 24 5180 DATA 23,27,30,24,0,0,0,0:REM ROOM 25 5190 DATA 0,0,27,0,0,0,0,0:REM ROOM 26 5200 DATA 25,0,0,26,0,0,0,0:REM ROOM 27 5210 DATA 19,28,28,28,0,47,0,0:REM ROOM 28 5220 DATA 26,29,29,29,0,0,0,0:REM ROOM 29 5230 DATA 18,0,0,25,0,0,0,0:REM ROOM 30 5240 DATA 20,0,0,0,0,0,0,0:REM ROOM 31 5250 DATA 0,0,34,0,0,47,0,0:REM ROOM 32 5260 DATA 34,36,0,35,0,0,0,0:REM ROOM 33 5270 DATA 34,33,34,32,18,0,0,0:REM ROOM 34 5280 DATA 33,38,36,0,0,0,0,0:REM ROOM 35 5290 DATA 33,39,46,35,0,0,0,0:REM ROOM 36 5300 DATA 0,40,0,0,16,0,0,0:REM ROOM 37 5310 DATA 35,0,0,0,0,41,0,0:REM ROOM 38 5320 DATA 36,39,40,39,0,0,0,0:REM BOOM 39 5330 DATA 37,0,0,39,0,0,0,0:REM ROOM 40 5340 DATA 0,0,42,0,38,0,0,0:REM ROOM 41 5350 DATA 42,43,42,41,0,47,0,0:REM ROOM 42 5360 DATA 0,0,42,0,19,0,0,0:REM ROOM 43 5370 REM *************************** 5380 REM TREASURE/MONSTERS 5390 DATA "FLAMING TORCH","SILVER KEY","GOLD KEY","SWORD","WAR HAMMER","CHAIN MAIL ARMOR","SHIELD","CLOAK OF PROTECTION","WAND OF FIREBALLS" 5400 DATA "EMERALDS","SILVER RINGS","ELVEN AMYTHESTS","DIAMOND DRAGON EYES","CRYSTAL BALL","PIECES OF EIGHT","ELEMENTAL GEMS","SHAPE-SHIFTING STONES","GOLD DUBLOONS" 5410 DATA "SWASHBUCKLER","WEREBEAR","CAECLIAE","MANTICORE","VAMPIRE","PREDEBEAST","CARGOYLE","MEDUSAE","MAGI","FIRE LIZARD","PHASE SPIDER" 5420 DATA "TROLL","HELL HOUND","FROST GIANT","NECROMANCER","HYDRA OF 10 HEADS","PATRIACH","MASTER THIEF","LIVING STATUE" 5430 FOR I=1 TO 999:NEXT:RETURN
|
|