Willus.com
Home
|
Archive
|
About
GARGCST5.BAS
(13899 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
10 CLEAR 100 20 CLS 30 ON ERROR GOTO 460 40 PRINT@470,CHR$(34);"GARGOYLE CASTLE";CHR$(34) 50 PRINT@896,"PROGRAMMED IN 1980 BY -PANIC SIMULATIONS";TAB(45);"VERSION: PROTO 1.1"; 60 PRINT@960," ";TAB(50);"16K LEVEL II"; 70 READ IT:REM THIS IS THE NUMBER OF ITEMS ON THE NOUN LIST 80 DIM NA$(IT),NM$(IT),LO(IT) 90 FOR I=1 TO IT:READ NA$(I),NM$(I),LO(I):NEXT I 100 PL=20:PO=1 110 READ LO 120 DIM CO(LO,6),LI(LO),D$(LO) 130 FOR I=0 TO LO 140 READ D$(I) 150 FOR J=1 TO 6 160 READ CO(I,J) 170 NEXT J 180 READ LI(I) 190 NEXT I 200 LC=5 210 SS$=NM$(4) 220 REM 230 CLS 240 IF LI(LC)=0 AND L=0 THEN PRINT"IT'S DARK IN HERE!":GOTO 440 250 CLS:PRINT"I AM IN ";D$(LC) 260 PRINT"I CAN SEE "; 270 IF LO(32)=99 AND LC=28 PRINT"THAT MY ARMOR PULLS ME STRAIGHT TO THE BOTTOM, AND I'M DROWNED.":LC=0: GOTO 2250 280 VI=0 290 FOR I=1 TO IT 300 IF LO(I)<>LC THEN 340 310 IF 64-POS(X)<LEN(NA$(I))+LEN(NM$(I)) THEN PRINT 320 PRINTNM$(I);NA$(I);". "; 330 VI=VI+1 340 NEXT I 350 IF VI=0 THEN PRINT "THAT THERE ARE NO ITEMS IN SIGHT."; 360 PRINT 370 PRINT"THE EXITS ARE "; 380 IF CO(LC,1)<>0 THEN PRINT" NORTH,"; 390 IF CO(LC,2)<>0 THEN PRINT" EAST,"; 400 IF CO(LC,3)<>0 THEN PRINT" SOUTH,"; 410 IF CO(LC,4)<>0 THEN PRINT" WEST,"; 420 IF CO(LC,5)<>0 THEN PRINT" UP,"; 430 IF CO(LC,6)<>0 THEN PRINT" DOWN,"; 440 PRINT 450 PRINT STRING$(63,"+") 460 A$="" 470 IF (LO(31)=LC OR LO(31)=99) AND LO(32)<>99 AND NM$(31)="A VICIOUS GREEN AND PURPLE " THEN 1190 480 INPUT"WHAT SHOULD I DO";A$ 490 IF LEN(A$)=1 THEN 880 500 REM 510 REM 520 V$=LEFT$(A$,3) 530 FOR I=1 TO LEN(A$) 540 IF RIGHT$(LEFT$(A$,I),1)= " " THEN A$=LEFT$(RIGHT$(A$,LEN(A$)-I),3):GOTO 560 550 NEXT I 560 REM VERB LIST 570 IF V$="GO " THEN 880 580 IF V$="WAL" THEN 880 590 IF V$="RUN" THEN 880 600 IF V$="GET" THEN 1140 610 IF V$="TAK" THEN 1140 620 IF V$="PIC" THEN 1140 630 IF V$="DRO" THEN 1310 640 IF V$="PUT" THEN 1310 650 IF V$="LOO" THEN 220 660 IF V$="INV" THEN 1390 670 IF V$="REA" THEN 1480 680 IF V$="UNR" THEN 1580 690 IF V$="BUR" THEN 1610 700 IF V$="LIG" THEN 1610 710 IF V$="CLI" THEN 1710 720 IF V$="RUB" THEN 1760 730 IF V$="HEL" THEN 1860 740 IF V$="DIG" THEN 1880 750 IF V$="OPE" THEN 2000 760 IF V$="POL" THEN 2080 770 IF V$="TIE" THEN 2170 780 IF V$="SCO" THEN 2250 790 IF V$="QUI" THEN 2420 800 IF V$="REM" THEN 2480 810 IF V$="COV" THEN 2540 820 IF V$="SCR" THEN 2620 830 IF V$="EAT" THEN 2700 840 IF V$="MEL" THEN 2750 850 IF V$="PLA" THEN 2840 860 PRINT"SORRY, I DON'T KNOW HOW TO DO THAT." 870 GOTO 460 880 REM 890 IF TR=1 THEN LO(21)=14:TR=0 900 IF L=0 AND LI(LC)=0 PRINT"MOVING IN THE DARK CAN BE DANGEROUS!":FOR I=1 TO 300:NEXT I 910 NM$(5)="A " 920 NM$(4)=SS$ 930 IF LO(10)<>99 OR NM$(10)<>"A LIT " THEN L=0 940 A$=LEFT$(A$,3) 950 IF A$="NOR" THEN A$="N" 960 IF A$="WES" THEN A$="W" 970 IF A$="SOU" THEN A$="S" 980 IF A$="EAS" THEN A$="E" 990 IF A$="DOW" THEN A$="D" 1000 IF A$="UP" THEN A$="U" 1010 REM 1020 IF CO(LC,1)<>0 AND A$="N" THEN LC=CO(LC,1):GOTO 1120 1030 IF CO(LC,2)<>0 AND A$="E" THEN LC=CO(LC,2):GOTO 1120 1040 IF CO(LC,3)<>0 AND A$="S" THEN LC=CO(LC,3):GOTO 1120 1050 IF CO(LC,4)<>0 AND A$="W" THEN LC=CO(LC,4):GOTO 1120 1060 IF A$="U" AND CO(1,5)<>0 AND LC=1 AND LO(6)<>99 AND LO(6)<>1 THEN PRINT"IT'S TOO HIGH TO REACH.":GOTO 460 1070 IF A$="U" AND LO(6)=99 THEN PRINT"I CAN'T CLIMB A LADDER I'M CARRYING.":GOTO 460 1080 IF CO(LC,5)<>0 AND A$="U" THEN LC=CO(LC,5):GOTO 1120 1090 IF CO(LC,6)<>0 AND A$="D" THEN LC=CO(LC,6):GOTO 1120 1100 PRINT"SORRY, I CAN'T GO THAT DIRECTION." 1110 GOTO 460 1120 IF LO(6)=LC THEN CO(6,6)=LC 1130 GOTO 220 1140 REM 1150 IF A$="SOC" THEN 1290 1160 IF PO=>PL THEN PRINT"I HAVE TOO MUCH ALREADY!":GOTO 1290 1170 IF A$<>"GAR" THEN 1210 1180 IF LO(31)<>LC THEN PRINT"IT ISN'T HERE":GOTO 460 1190 IF NM$(31)="A VICIOUS GREEN AND PURPLE " AND LO(32)<>99 THEN PRINT"A LOOSE AND VICIOUS GARGOYLE ATTACKS ME. i AM DEAD." 1200 LC=0:GOTO2250 :REM GOTO SCORE 1210 FOR I=1TOIT 1220 IF A$<>LEFT$(NA$(I),3) OR LO(I)<>LC THEN 1280 1230 IF A$="COA" AND MID$(NM$(30),6,1)="G" AND LO(19)<>99 THEN PRINT"YOU DON'T HAVE ANYTHING TO CARRY THEM IN.":GOTO 460 1240 IF A$="COA" AND MID$(NM$(30),6,1)="G" AND LO(19)=99 AND MID$(NM$(19),3,1)="F" THEN PRINT"NOT WHILE THE URN IS CLOSED":GOTO 460 1250 IF A$="BIR" AND (LO(9)<>99 AND LO(9)<>LC) THEN PRINT"IT FLYS AWAY FROM ME.":LO(22)=RND(6):FOR J=1 TO 300:NEXT J:GOTO 220 1260 IF A$="BIR" THEN LO(22)=0:NM$(9)="* A CRYSTAL BIRD LOCKED IN A ":GOTO 220 1270 LO(I)=99:PO=PO+1:GOTO 220 1280 NEXT I 1290 PRINT"I CAN'T PICK THAT UP." 1300 GOTO 460 1310 REM 1320 FOR I=1 TO IT 1330 IF A$="URN" AND LO(30)=99 THEN LO(30)=LC:PO=PO-1 1340 IF A$="LAD" AND LO(6)=99 THEN CO(7,6)=LC 1350 IF A$=LEFT$(NA$(I),3) AND LO(I)=99 THEN LO(I)=LC:PO=PO-1:GOTO 220 1360 NEXT I 1370 PRINT "YOU DON'T HAVE THAT." 1380 GOTO 460 1390 REM 1400 PO=0 1410 C=0 1420 PRINT"I AM CARRYING "; 1430 FOR I=1 TO IT 1440 IF LO(I)=99 THEN PRINT NM$(I);NA$(I);", ":C=C+1:PO=PO+1 1450 NEXT I 1460 IF C=0 PRINT"NOTHING." 1470 GOTO 460 1480 REM 1490 IF L=0 AND LI(LC)=0 THEN PRINT"IN THE DARK?":GOTO 1560 1500 IF A$="BOO" AND (LO(2)=LC OR LO(2)=99) THEN PRINT"i DON'T READ GERMAN.":GOTO 460 1510 IF A$="SCR" AND LEFT$(NM$(4),4)="A TI" AND (LO(4)=99 OR LO(4)=LC) THEN PRINT"ON THE OUTSIDE, IT SAYS 'ROLLED BY SCROLL ROLLER'S UNION 207.'":GOTO 460 1520 IF A$="SCR" AND NM$(4)="AN UNROLLED " AND(LO(4)=LC OR LO(4)=99) THEN PRINT"IT SAYS, BURN IT UP, CHUCK.":GOTO 460 1530 IF A$="CLO" AND NM$(7)="A FAINTLY LETTERED " AND (LO(7)=99 OR LO(7)=LC) THEN PRINT"IT SAYS, IN THE CLOSET,DUMMY.":GOTO 460 1540 IF A$="SIG" AND LC=26 THEN PRINT"IT SAYS, 'STAND BY FOR MORE ADVENTURE.' THANK RON ADAMS FOR THIS FINE ADVENTURE GAME.":GOTO 460 1550 IF A$="PLA" AND LC=13 AND (L=1 OR LI(13)=1) THEN PRINT"GLOWING LETTERS SAY DROP *TREASURES HERE AND SAY SCORE.":GOTO 460 1560 PRINT "SORRY CHARLIE, CAN'T DO IT." 1570 GOTO 460 1580 REM 1590 IF A$<>"SCR" THEN PRINT"I DON'T KNOW HOW.":GOTO 460 1600 IF A$="SCR" THEN LO(5)=LC:NM$(4)="AN UNROLLED ":SS$=NM$(4):PRINT"A LIGHTER FELL OUT.":GOTO 460 1610 REM 1620 IF A$<>"LIG" AND A$<>"FLA" AND A$<>"SCR" THEN PRINT"SORRY, IT WON'T LIGHT":GOTO 460 1630 IF A$="LIG" AND (LO(5)=LC OR LO(5)=99) THEN NM$(5)="A LIT ":L=1:PRINT"THE LIGHTER FLARES.":FOR I=1 TO 300:NEXT I:GOTO 220 1640 IF A$="SCR" AND LO(4)<>LC AND LO(4)<>99 THEN PRINT"IT ISN'T HERE.":GOTO 460 1650 IF A$="SCR" AND NM$(5)="A LIT "THEN NM$(4)="A BURNING ":PRINT"THE SCROLL BURNS BRIGHTLY.":L=1:GOTO 1680 1660 IF A$="FLA" AND LO(10)=99 THEN L=1:NM$(10)="A LIT ":GOTO 220 1670 PRINT"WHAT DO YOU MEAN?":GOTO 460 1680 IF LC=1 THEN PRINT"IN THE LIGHT, I SEE AN OPENING IN THE CEILING.":CO(1,5)=7 1690 IF LC=1 THEN CO(1,5)=7:CO(6,6)=7:CO(7,5)=6:GOTO 460 1700 GOTO 460 1710 REM 1720 IF A$<>"LAD" THEN PRINT "I CAN'T CLIMB THAT.":GOTO 460 1730 IF LO(6)<>LC AND LO(6)<>99 THEN PRINT"WHAT LADDER?":GOTO 460 1740 IF CO(LC,5)=0 THEN PRINT"I CLIMBED IT, BUT THERE WAS NOTHING THERE SO I CAME BACK DOWN.":GOTO 460 1750 A$="U":GOTO 1010 1760 REM 1770 FOR I=1 TO IT 1780 IF A$=LEFT$(NA$(I),3) AND (LO(I)<>LC AND LO(I)<>99) THEN PRINT"IT'S NOT HERE.":GOTO 460 1790 NEXT I 1800 IF A$<>"RIN" THEN PRINT "NOTHING, SPORT.":GOTO 460 1810 IF LO(3)<>LC AND LO(3)<>99 THEN PRINT"WHAT RING?":GOTO 460 1820 IF LO(7)<>99 AND LO(7)<>LC THEN PRINT"I HAVE NOTHING TO RUB IT WITH.":GOTO 460 1830 PRINT"THE RING GLOWS GOLD.":NM$(3)="* A SHIMMERING " 1840 NM$(7)="A FAINTLY LETTERED " 1850 GOTO 460 1860 REM 1870 PRINT"HELP? YOU'RE SUPPOSED TO BE HELPING ME!":GOTO 460 1880 REM 1890 IF LO(8)<>99 AND LO(20)<>99 THEN PRINT"WITH WHAT?":GOTO 460 1900 IF LC<>5 AND LC<>12 AND LC<>14 AND LC<>15 AND LC<>24 AND LC<>26 THEN PRINT"i CAN'T DIG HERE.":GOTO 460 1910 PRINT"OKAY. HERE'S A HOLE." 1920 IF LC=5 THEN CO(27,5)=5 : CO(5,6)=27 :IF LO(22)=90 THEN LO(22)=27 1930 IF LC=12 THEN CO(27,5)=12 : CO(12,6)=27 1940 IF LC=14 THEN CO(27,5)=14 : CO(14,6)=27 1950 IF LC=15 THEN CO(27,5)=15 : CO(15,6)=27:IF LO(25)=90 THEN LO(25)=27 1960 IF LC=24 THEN CO(27,5)=24 : CO(24,6)=27:IF LO(23)=90 THEN LO(23)=27 1970 IF LC=24 AND LO(15)=90 THEN LO(15)=24 1980 IF LC=26 THEN CO(27,5)=26 : CO(26,6)=27:IF LO(31)=90 THEN LO(31)=27 1990 GOTO 460 2000 REM 2010 IF A$="SCR" THEN 1580 2020 IF A$<>"CAG" AND A$<>"URN" THEN PRINT"IT DOESN'T SEEM TO OPEN.":GOTO 460 2030 IF A$="CAG" AND LO(9)<>99 AND LO(9)<>LC THEN PRINT"WHAT CAGE":GOTO 460 2040 IF A$="CAG" AND (LO(9)=99 OR LO(9)=LC) THEN PRINT"THE DOOR OPENED.":NM$(9)="AN OPEN " 2050 IF A$="URN" AND (LO(19)=99 OR LO(19)=LC)THEN PRINT"IT'S OPEN":NM$(19)="AN OPEN FUNERARY ":IF LO(26)=90 THEN LO(26)=LC 2060 PRINT"SOMETHING FELL OUT." 2070 GOTO 460 2080 REM 2090 IF A$<>"CRO" AND A$<>"RIN" THEN PRINT"I CAN'T POLISH SUCH A THING":GOTO 460 2100 IF A$="RIN" AND LO(3)<>LC AND LO(3)<>99 THEN PRINT"WHAT RING?":GOTO 460 2110 IF LO(16)<>LC AND LO(16)<>99 THEN PRINT"I DON'T HAVE ANY POLISH.":GOTO 460 2120 IF A$="CRO" AND LO(23)<>LC AND LO(23)<>99 THEN PRINT "WHAT CROWN?":GOTO 460 2130 IF A$="RIN" THEN PRINT"I DON'T NEED POLISH FOR THIS. IT'S JUST A LITTLE DULL.":GOTO 460 2140 IF NM$(16)="AN EMPTY BOTTLE OF " THEN PRINT "SORRY, I'M OUT OF POLISH.":GOTO 460 2150 IF A$="CRO"AND NM$(16)="A BOTTLE FULL OF " THEN NM$(23)="*A GLISTENING SILVER ":NM$(16)="AN EMPTY BOTTLE OF " 2160 PRINT"IT SHINES OF SILVER.":GOTO 460 2170 REM 2180 IF A$<>"GAR" THEN PRINT"I AM UNABLE TO TIE THAT.":GOTO 460 2190 IF (LO(31)<>99 AND LO(31)<>LC) OR (LO(17)<>99 AND LO(17)<>LC) THEN PRINT"I'M SORRY. I CANNOT.":GOTO 460 2200 NM$(17)="A KNOTTED " 2210 LO(17)=0 2220 NM$(31)="* A ROPE BOUND " 2230 PRINT"IT'S FRIENDLY WHEN IT'S TIED UP." 2240 GOTO 460 2250 REM 2260 SC=0 2270 SM=0 2280 FOR I=1 TO IT 2290 IF LEFT$(NM$(I),1)="*" AND LO(I)=13 THEN SC=SC+1:GOTO 2310 2300 IF LO(I)<>27 AND LO(I)<>99 AND LO(I)<>1 AND LO(I)<>28 AND LO(I)<>0 AND LO(I)<>90 AND LO(I)<>24 THEN SM=SM+1 2310 NEXT I 2320 PRINT"YOU SCORED ";SC*10;" POINTS OUT OF 100"; 2330 IF SM=0 THEN PRINT".":GOTO 2360 2340 PRINT"," 2350 PRINT "BUT I AM PENALIZING YOU ";SM;" POINTS FOR SLOPPINESS." 2360 PRINT"AND YOUR NET SCORE IS ";SC*10-SM;"." 2370 IF SM>6 PRINT"CLEAN UP AFTER YOURSELF." 2380 IF SC*10-SM=100 THEN PRINT"CONGRATULATIONS! A PERFECT SCORE.":LC=0 2390 IF SC*10-SM>90 AND SC*10-SM<100 PRINT"VERY, VERY GOOD." 2400 IF LC=0 THEN PRINT"THE GAME IS OVER":STOP 2410 GOTO 460 2420 REM 2430 PRINT"DO YOU WANT TO QUIT";:INPUT X$ 2440 IF LEFT$(X$,1)<>"Y" THEN 460 2450 LC=0 2460 CLS 2470 GOTO 2250 2480 REM 2490 IF A$<>"ARM" THEN PRINT"I CANNOT REMOVE THAT.":GOTO 460 2500 IF LO(32)<>99 THEN PRINT"I AM NOT WEARING IT.":GOTO 460 2510 LO(32)=LC 2520 PRINT"AH, THAT FEELS BETTER." 2530 GOTO 460 2540 REM 2550 IF A$<>"BOO" PRINT "i CAN'T COVER THAT.":GOTO 460 2560 IF (LO(2)<>99 AND LO(2)<>LC) OR (LO(11)<>99 AND LO(11)<>LC)THEN PRINT"I CAN'T YET.":GOTO 460 2570 LO(11)=0:REM GET RID OF COVER 2580 NM$(2)="* A COMPLETE GUTENBURG " 2590 NA$(2)="BIBLE" 2600 PRINT"THAT LOOKS NICE." 2610 GOTO 460 2620 REM 2630 IF A$<>"BUL" THEN PRINT"THE ONLY THING I CAN SCREW IS A BULB.":GOTO 460 2640 IF (LO(13)<>99 AND LO(13)<>13) AND (LO(12)=99 OR LO(12)=13) THEN PRINT"THAT'S THE WRONG KIND OF BULB!":GOTO 460 2650 REM SUCCESS 2660 LO(13)=0 2670 LI(13)=1 2680 NA$(14)="LAMP":NM$(14)="* A TIFFANY " 2690 GOTO 220 2700 REM 2710 IF A$<>"COM" THEN PRINT"I CAN'T EAT THAT!":GOTO 460 2720 IF LO(15)=99 OR LO(15)=LC THEN PRINT"GAG......YURP! BAD!":GOTO 460 2730 PRINT"THANK GOD, IT ISN'T HERE!" 2740 GOTO 460 2750 REM 2760 IF A$<>"ICE" THEN PRINT"THAT WON'T MELT":GOTO 460 2770 IF NA$(29)<>"ICE" THEN PRINT"ONLY ONCE!":GOTO 460 2780 IF (LO(29)<>LC AND LO(29)<>99) OR (LO(30)<>LC AND LO(30)<>99) THEN PRINT"I CAN'T YET.":GOTO 460 2790 NM$(29)="SOME THAWED " 2800 NA$(29)="WATER" 2810 NM$(30)="SOME COLD " 2820 PRINT"THAT DID IT. THE WATER FLOWS." 2830 GOTO 460 2840 REM 2850 IF A$<>"BUL" AND A$<>"TUL" THEN PRINT"I CAN'T PLANT THAT.":GOTO 460 2860 IF (LO(13)=99 OR LO(13)=LC) AND NOT (LO(12)=99 OR LO(12)=LC) THEN PRINT"PLANT THAT BULB?":GOTO 460 2870 IF (LO(12)=99 OR LO(12)=LC) AND (LO(15)=99 OR LO(15)=LC) AND NA$(29)="WATER" THEN 2890 2880 PRINT"I DON'T HAVE EVERYTHING I NEED.":GOTO 460 2890 IF LC<>14 THEN PRINT "IT WON'T GROW HERE.":GOTO 460 2900 IF LO(20)<>99 AND LO(20)<>LC AND LO(8)<>LC AND LO(8)<>99 THEN PRINT"NOT WITH THESE BARE HANDS!!!":GOTO 460 2910 TR=1:REM THIS IS THE TULIP READY COUNTER 2920 PRINT"OKAY. I BURIED THAT MESS" 2930 LO(12)=0:LO(15)=0:LO(29)=0 2940 GOTO 460 2950 REM NA$(I),NM$(I),LO(I) 2960 DATA 32: REM THIS IS THE ITEM COUNT 2970 DATA"RUBY","* A HUGE ",4 2980 DATA"BOOK","AN OLD ",3 2990 DATA"RING","A DULL ",2 3000 DATA"SCROLL","A TIGHTLY ROLLED ",3 3010 DATA"LIGHTER","A ",0 3020 DATA"LADDER","A LONG ",4 3030 DATA"CLOTH","A FUZZY ",3 3040 DATA"SHOVEL","AN ANTIQUE ",16 3050 DATA"CAGE","A WICKER ",18 3060 DATA"FLASHLIGHT","AN UNLIT ",15 3070 DATA"BOOKCOVER","AN EMPTY ",11 3080 DATA"BULB","A TULIP ",25 3090 DATA"BULB","A LIGHT ",27 3100 DATA"SOCKET","AN EMPTY ",13 3110 DATA"COMPOST","SOME WELL ROTTED ",90 3120 DATA"POLISH","A BOTTLE FULL OF ",13 3130 DATA"ROPE","A COILED ",21 3140 DATA"TRASH","A MOUND OF ",21 3150 DATA"URN","A FUNERARY ",15 3160 DATA"TROWEL","A GARDEN ",1 3170 DATA"TULIP","* A RAINBOW COLORED ",90 3180 DATA"BIRD","* A LIVING CRYSTAL ",5 3190 DATA"CROWN","A DISCARDED, BLACKENED ",90 3200 DATA"D","D",90 3210 DATA"COINS","* SOME TRIANGULAR GOLD ",90 3220 DATA"PIPE","* A PLATINUM SMOKING ",90 3230 DATA"D","D",90 3240 DATA"D","D",90 3250 DATA"ICE","SOME GREENISH ",26 3260 DATA"COALS","SOME GLOWING ",18 3270 DATA"GARGOYLE","A VICIOUS GREEN AND PURPLE ",90 3280 DATA"ARMOUR","SOME VERY, VERY HEAVY ",99 3290 DATA 28 :REM THIS IS THE LOCATION COUNT 3300 DATA "NOWHERE.",0,0,0,0,0,0,0 3310 DATA"A DIM CLOSET.",0,2,3,0,0,0,0 3320 DATA"A GATHERING ROOM WITH WIDE BENCHES DOWN BOTH SIDES.",5,0,4,1,0,0,1 3330 DATA"AN OLD STONE ARMS ROOM.",1,4,0,0,0,0,1 3340 DATA"A DANK AND MUSTY DUNGEON.",2,0,0,3,0,0,0 3350 DATA"A LUSH GREEN MEADOW, WITH A TOWER TO THE SOUTH. NOT TOO FAR TO THE WEST IT LOOKS LIKE THERE'S A CASTLE. THERE'S A DEEP MOAT WEST.",0,0,2,28,0,0,1 3360 DATA"A HIGH TOWER LOOKING OUT ON THE MEADOW. THROUGH A WESTERN PORTAL, A BRIDGE LEADS TO ANOTHER CASTLE.",0,0,0,8,0,7,1 3370 DATA"THE TOP OF THE LADDER.",0,0,0,0,0,0,0 3380 DATA"A BRIDGE TO A TOWER OFF TO THE WEST.",0,6,0,9,0,0,1 3390 DATA"A NORTH-SOUTH CORRIDOR IN THE TOWER.",10,8,19,0,0,0,1 3400 DATA"A SQUARE ROOM WITH A VAULTED CEILING.",0,0,9,11,0,24,1 3410 DATA"A LIBRARY FULL OF ANCIENT AND WONDERFUL BOOKS.",0,10,12,0,0,0,1 3420 DATA"A GRASSY ROOF-TOP WITH POTTED PALMS AND A CLEAR BLUE SKY.",11,13,14,25,0,0,1 3430 DATA"A ROOM WITH A TALL GOLDEN THRONE, AND A SMALL PLASTER PLAQUE SET IN THE FLOOR..",0,0,0,12,0,0,0 3440 DATA"A BEAUTIFUL FLOWER GARDEN, WITH BEDS OF PLANTS DOWN BOTH SIDES OF A LONG WALK.",12,0,15,0,0,0,1 3450 DATA"A TOMB WITH A ROW OF BRONZE MARKERS FOR FALLEN SCHOLARS.",18,16,0,14,0,0,0 3460 DATA"A MUSEUM WITH BROKEN AND DESTROYED DISPLAYS.",17,0,0,15,0,0,0 3470 DATA"AN EAST-WEST CORRIDOR WITH PORCELAIN TILE WALLS.",0,22,16,18,0,0,0 3480 DATA"A TORTURE CHAMBER WITH A BRAZIER IN THE CORNER.",0,17,15,0,0,0,0 3490 DATA"A SQUARE ROOM WITH A VAULTED CEILING.",9,20,0,0,0,0,1 3500 DATA"A TWIST IN THE HALLWAY, WITH A TERRAZZO EAGLE IN THE FLOOR.",0,0,22,19,0,0,1 3510 DATA"A BATHROOM WITH PRECIOUS METAL FIXTURES.",0,0,23,22,0,0,0 3520 DATA"A HALLWAY WITH WARRIORS IN BAS-RELIEF IN THE WALL STONES.",20,21,23,17,0,0,1 3530 DATA"A BEDROOM FIT FOR A KING. IT SAYS 'KING' RIGHT ON THE CURTAIN.",22,21,0,0,0,0,0 3540 DATA"A PIT FULL OF SMELLY GARBAGE AND FOUL REFUSE.",0,0,0,0,10,0,0 3550 DATA"A PASSAGE WITH A BLINDING GLARE TO THE WEST AND A DARK HOLE TO THE EAST.",0,12,0,26,0,0,1 3560 DATA"A WIND SWEPT ICEFIELD. STORM CLOUDS BLOT A FAINT RED SUN. i CAN SEE A CARAVAN OF ICE BEASTS. tHERE'S A SIGN HALF-BURIED IN THE ICE. WHOOPS, THIS IS THE WRONG ADVENTURE.",0,25,0,0,0,0,1 3570 DATA"THE BOTTOM OF A HOLE.",0,0,0,0,0,0,0 3580 DATA"THE WATER OF THE MOAT.",0,5,0,0,0,0,1