10 REM THE CITADEL OF PERSHU 20 RANDOMIZE VAL(RIGHT$(TIME$,2)):REM DELETE IF NOT NEEDED 30 COSUB 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 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 510 GOSUB 5430:RETURN 520 Z=RO-35:ON Z GOSUB 2460,2520,2590,2650,2720,2760,2810,2850,2920,2990,3060,3110 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?": PRINT 4240 Z$=INKEY$ 4250 IF ZS="" 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 ZS="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 A(B,C) 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 T$(J) 4880 NEXT J 4890 FOR J=1 TO 19 4900 READ M$(J) 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