Willus.com
Home
|
Archive
|
About
GARGCST4.BAS
(12432 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 CLEAR1000 20 PRINT:PRINT:PRINT 30 PRINT"GARGOYLE CASTLE" 40 PRINT" BY KIT DOMENICO":PRINT"16K LEVEL II"; 50 READIT 60 DIMNA$(IT),NM$(IT),LO(IT) 70 FORI=1TOIT:READNA$(I),NM$(I),LO(I):NEXTI 80 PL=6:PO=1 90 READLO 100 DIMCO(LO,6),LI(LO),D$(LO) 110 FORI=0TOLO 120 READD$(I) 130 FORJ=1TO6 140 READCO(I,J) 150 NEXTJ 160 READLI(I) 170 NEXTI 180 LC=5 190 SS$=NM$(4) 200 ' 210 PRINT:PRINT:PRINT 220 IFLI(LC)=0ANDL=0THENPRINT"IT'S DARK IN HERE!":GOTO420 230 PRINT:PRINT:PRINT:PRINT" I AM IN ";D$(LC) 240 PRINT" I CAN SEE "; 250 IFLO(32)=99ANDLC=28PRINT"THAT MY ARMOR PULLS ME STRAIGHT TO THE BOTTOM, AND I'M DROWNED.":LC=0:GOTO2210 260 VI=0 270 FORI=1TOIT 280 IFLO(I)<>LCTHEN320 290 IF64-POS(X)<LEN(NA$(I))+LEN(NM$(I))THENPRINT 300 PRINTNM$(I);NA$(I);". "; 310 VI=VI+1 320 NEXTI 330 IFVI=0THENPRINT"THAT THERE ARE NO ITEMS IN SIGHT."; 340 PRINT 350 PRINT"THE EXITS ARE "; 360 IFCO(LC,1)<>0THENPRINT" NORTH,"; 370 IFCO(LC,2)<>0THENPRINT" EAST,"; 380 IFCO(LC,3)<>0THENPRINT" SOUTH,"; 390 IFCO(LC,4)<>0THENPRINT" WEST,"; 400 IFCO(LC,5)<>0THENPRINT" UP,"; 410 IFCO(LC,6)<>0THENPRINT" DOWN,"; 420 PRINT 430 ' 440 A$="" 450 IF(LO(31)=LCORLO(31)=99)ANDLO(32)<>99ANDNM$(31)="A VICIOUS GREEN AND PURPLE "THEN1150 460 INPUT" WHAT SHOULD I DO";A$ 470 IFLEN(A$)=1THEN840 480 V$=LEFT$(A$,3) 490 FORI=1TOLEN(A$) 500 IFRIGHT$(LEFT$(A$,I),1)=" "THENA$=LEFT$(RIGHT$(A$,LEN(A$)-I),3):GOTO520 510 NEXTI 520 ' 530 IFV$="GO "THEN840 540 IFV$="WAL"THEN840 550 IFV$="RUN"THEN840 560 IFV$="GET"THEN1100 570 IFV$="TAK"THEN1100 580 IFV$="PIC"THEN1100 590 IFV$="DRO"THEN1270 600 IFV$="PUT"THEN1270 610 IFV$="LOO"THEN200 620 IFV$="INV"THEN1350 630 IFV$="REA"THEN1440 640 IFV$="UNR"THEN1540 650 IFV$="BUR"THEN1570 660 IFV$="LIG"THEN1570 670 IFV$="CLI"THEN1670 680 IFV$="RUB"THEN1720 690 IFV$="HEL"THEN1820 700 IFV$="DIG"THEN1840 710 IFV$="OPE"THEN1960 720 IFV$="POL"THEN2040 730 IFV$="TIE"THEN2130 740 IFV$="SCO"THEN2210 750 IFV$="QUI"THEN2380 760 IFV$="REM"THEN2440 770 IFV$="COV"THEN2500 780 IFV$="SCR"THEN2580 790 IFV$="EAT"THEN2650 800 IFV$="MEL"THEN2700 810 IFV$="PLA"THEN2790 820 PRINT"SORRY, I DON'T KNOW HOW TO DO THAT." 830 GOTO440 840 ' 850 IFTR=1THENLO(21)=14:TR=0 860 IFL=0ANDLI(LC)=0PRINT"MOVING IN THE DARK CAN BE DANGEROUS!":FORI=1TO300:NEXTI 870 NM$(5)="A " 880 NM$(4)=SS$ 890 IFLO(10)<>99ORNM$(10)<>"A LIT "THENL=0 900 A$=LEFT$(A$,3) 910 IFA$="NOR"THENA$="N" 920 IFA$="WES"THENA$="W" 930 IFA$="SOU"THENA$="S" 940 IFA$="EAS"THENA$="E" 950 IFA$="DOW"THENA$="D" 960 IFA$="UP"THENA$="U" 970 ' 980 IFCO(LC,1)<>0ANDA$="N"THENLC=CO(LC,1):GOTO1080 990 IFCO(LC,2)<>0ANDA$="E"THENLC=CO(LC,2):GOTO1080 1000 IFCO(LC,3)<>0ANDA$="S"THENLC=CO(LC,3):GOTO1080 1010 IFCO(LC,4)<>0ANDA$="W"THENLC=CO(LC,4):GOTO1080 1020 IFA$="U"ANDCO(1,5)<>0ANDLC=1ANDLO(6)<>99ANDLO(6)<>1THENPRINT"IT'S TOO HIGH TO REACH.":GOTO440 1030 IFA$="U"ANDLO(6)=99THENPRINT"I CAN'T CLIMB A LADDER I'M CARRYING.":GOTO440 1040 IFCO(LC,5)<>0ANDA$="U"THENLC=CO(LC,5):GOTO1080 1050 IFCO(LC,6)<>0ANDA$="D"THENLC=CO(LC,6):GOTO1080 1060 PRINT"SORRY, I CAN'T GO THAT DIRECTION." 1070 GOTO440 1080 IFLO(6)=LCTHENCO(6,6)=LC 1090 GOTO200 1100 ' 1110 IFA$="SOC"THEN1250 1120 IFPO=>PLTHENPRINT"I HAVE TOO MUCH ALREADY!":GOTO1250 1130 IFA$<>"GAR"THEN1170 1140 IFLO(31)<>LCTHENPRINT"IT ISN'T HERE":GOTO440 1150 IFNM$(31)="A VICIOUS GREEN AND PURPLE "ANDLO(32)<>99THENPRINT"A LOOSE AND VICIOUS GARGOYLE ATTACKS ME. I AM DEAD." 1160 LC=0:GOTO2210 1170 FORI=1TOIT 1180 IFA$<>LEFT$(NA$(I),3)ORLO(I)<>LCTHEN1240 1190 IFA$="COA"ANDMID$(NM$(30),6,1)="G"ANDLO(19)<>99THENPRINT"YOU DON'T HAVE ANYTHING TO CARRY THEM IN.":GOTO440 1200 IFA$="COA"ANDMID$(NM$(30),6,1)="G"ANDLO(19)=99ANDMID$(NM$(19),3,1)="F"THENPRINT"NOT WHILE THE URN IS CLOSED":GOTO440 1210 IFA$="BIR"AND(LO(9)<>99ANDLO(9)<>LC)THENPRINT"IT FLYS AWAY FROM ME.":LO(22)=RND(6):FORJ=1TO300:NEXTJ:GOTO200 1220 IFA$="BIR"THENLO(22)=0:NM$(9)="* A CRYSTAL BIRD LOCKED IN A ":GOTO200 1230 LO(I)=99:PO=PO+1:GOTO200 1240 NEXTI 1250 PRINT"I CAN'T PICK THAT UP." 1260 GOTO440 1270 ' 1280 FORI=1TOIT 1290 IFA$="URN"ANDLO(30)=99THENLO(30)=LC:PO=PO-1 1300 IFA$="LAD"ANDLO(6)=99THENCO(7,6)=LC 1310 IFA$=LEFT$(NA$(I),3)ANDLO(I)=99THENLO(I)=LC:PO=PO-1:GOTO200 1320 NEXTI 1330 PRINT"YOU DON'T HAVE THAT." 1340 GOTO440 1350 ' 1360 PO=0 1370 C=0 1380 PRINT"I AM CARRYING "; 1390 FORI=1TOIT 1400 IFLO(I)=99THENPRINTNM$(I);NA$(I);", ":C=C+1:PO=PO+1 1410 NEXTI 1420 IFC=0PRINT"NOTHING." 1430 GOTO440 1440 ' 1450 IFL=0ANDLI(LC)=0THENPRINT"IN THE DARK?":GOTO1520 1460 IFA$="BOO"AND(LO(2)=LCORLO(2)=99)THENPRINT"i DON'T READ GERMAN.":GOTO440 1470 IFA$="SCR"ANDLEFT$(NM$(4),4)="A TI"AND(LO(4)=99ORLO(4)=LC)THENPRINT"ON THE OUTSIDE, IT SAYS 'ROLLED BY SCROLL ROLLER'S UNION 207.'":GOTO440 1480 IFA$="SCR"ANDNM$(4)="AN UNROLLED "AND(LO(4)=LCORLO(4)=99)THENPRINT"IT SAYS, BURN IT UP, CHUCK.":GOTO440 1490 IFA$="CLO"ANDNM$(7)="A FAINTLY LETTERED "AND(LO(7)=99ORLO(7)=LC)THENPRINT"IT SAYS, IN THE CLOSET,DUMMY.":GOTO440 1500 IFA$="SIG"ANDLC=26THENPRINT"IT SAYS, 'STAND BY FOR MORE ADVENTURE.' CALL YOUR LOCAL DISTRIBUTOR TODAY.":GOTO440 1510 IFA$="PLA"ANDLC=13AND(L=1ORLI(13)=1)THENPRINT"GLOWING LETTERS SAY DROP *TREASURES HERE AND SAY SCORE.":GOTO440 1520 PRINT"SORRY CHARLIE, CAN'T DO IT." 1530 GOTO440 1540 ' 1550 IFA$<>"SCR"THENPRINT"I DON'T KNOW HOW.":GOTO440 1560 IFA$="SCR"THENLO(5)=LC:NM$(4)="AN UNROLLED ":SS$=NM$(4):PRINT"A LIGHTER FELL OUT.":GOTO440 1570 ' 1580 IFA$<>"LIG"ANDA$<>"FLA"ANDA$<>"SCR"THENPRINT"SORRY, IT WON'T LIGHT":GOTO440 1590 IFA$="LIG"AND(LO(5)=LCORLO(5)=99)THENNM$(5)="A LIT ":L=1:PRINT"THE LIGHTER FLARES.":FORI=1TO300:NEXTI:GOTO200 1600 IFA$="SCR"ANDLO(4)<>LCANDLO(4)<>99THENPRINT"IT ISN'T HERE.":GOTO440 1610 IFA$="SCR"ANDNM$(5)="A LIT "THENNM$(4)="A BURNING ":PRINT"THE SCROLL BURNS BRIGHTLY.":L=1:GOTO1640 1620 IFA$="FLA"ANDLO(10)=99THENL=1:NM$(10)="A LIT ":GOTO200 1630 PRINT"WHAT DO YOU MEAN?":GOTO440 1640 IFLC=1THENPRINT"IN THE LIGHT, I SEE AN OPENING IN THE CEILING.":CO(1,5)=7 1650 IFLC=1THENCO(1,5)=7:CO(6,6)=7:CO(7,5)=6:GOTO440 1660 GOTO440 1670 ' 1680 IFA$<>"LAD"THENPRINT"I CAN'T CLIMB THAT.":GOTO440 1690 IFLO(6)<>LCANDLO(6)<>99THENPRINT"WHAT LADDER?":GOTO440 1700 IFCO(LC,5)=0THENPRINT"I CLIMBED IT, BUT THERE WAS NOTHING THERE SO I CAME BACK DOWN.":GOTO440 1710 A$="U":GOTO970 1720 ' 1730 FORI=1TOIT 1740 IFA$=LEFT$(NA$(I),3)AND(LO(I)<>LCANDLO(I)<>99)THENPRINT"IT'S NOT HERE.":GOTO440 1750 NEXTI 1760 IFA$<>"RIN"THENPRINT"NOTHING, SPORT.":GOTO440 1770 IFLO(3)<>LCANDLO(3)<>99THENPRINT"WHAT RING?":GOTO440 1780 IFLO(7)<>99ANDLO(7)<>LCTHENPRINT"I HAVE NOTHING TO RUB IT WITH.":GOTO440 1790 PRINT"THE RING GLOWS GOLD.":NM$(3)="* A SHIMMERING " 1800 NM$(7)="A FAINTLY LETTERED " 1810 GOTO440 1820 ' 1830 PRINT"HELP? YOU'RE SUPPOSED TO BE HELPING ME!":GOTO440 1840 ' 1850 IFLO(8)<>99ANDLO(20)<>99THENPRINT"WITH WHAT?":GOTO440 1860 IFLC<>5ANDLC<>12ANDLC<>14ANDLC<>15ANDLC<>24ANDLC<>26THENPRINT"I CAN'T DIG HERE.":GOTO440 1870 PRINT"OKAY. HERE'S A HOLE." 1880 IFLC=5THENCO(27,5)=5:CO(5,6)=27:IFLO(22)=90THENLO(22)=27 1890 IFLC=12THENCO(27,5)=12:CO(12,6)=27 1900 IFLC=14THENCO(27,5)=14:CO(14,6)=27 1910 IFLC=15THENCO(27,5)=15:CO(15,6)=27:IFLO(25)=90THENLO(25)=27 1920 IFLC=24THENCO(27,5)=24:CO(24,6)=27:IFLO(23)=90THENLO(23)=27 1930 IFLC=24ANDLO(15)=90THENLO(15)=24 1940 IFLC=26THENCO(27,5)=26:CO(26,6)=27:IFLO(31)=90THENLO(31)=27 1950 GOTO440 1960 ' 1970 IFA$="SCR"THEN1540 1980 IFA$<>"CAG"ANDA$<>"URN"THENPRINT"IT DOESN'T SEEM TO OPEN.":GOTO440 1990 IFA$="CAG"ANDLO(9)<>99ANDLO(9)<>LCTHENPRINT"WHAT CAGE":GOTO440 2000 IFA$="CAG"AND(LO(9)=99ORLO(9)=LC)THENPRINT"THE DOOR OPENED.":NM$(9)="AN OPEN " 2010 IFA$="URN"AND(LO(19)=99ORLO(19)=LC)THENPRINT"IT'S OPEN":NM$(19)="AN OPEN FUNERARY ":IFLO(26)=90THENLO(26)=LC 2020 PRINT"SOMETHING FELL OUT." 2030 GOTO440 2040 ' 2050 IFA$<>"CRO"ANDA$<>"RIN"THENPRINT"I CAN'T POLISH SUCH A THING":GOTO440 2060 IFA$="RIN"ANDLO(3)<>LCANDLO(3)<>99THENPRINT"WHAT RING?":GOTO440 2070 IFLO(16)<>LCANDLO(16)<>99THENPRINT"I DON'T HAVE ANY POLISH.":GOTO440 2080 IFA$="CRO"ANDLO(23)<>LCANDLO(23)<>99THENPRINT"WHAT CROWN?":GOTO440 2090 IFA$="RIN"THENPRINT"I DON'T NEED POLISH FOR THIS. IT'S JUST A LITTLE DULL.":GOTO440 2100 IFNM$(16)="AN EMPTY BOTTLE OF "THENPRINT"SORRY, I'M OUT OF POLISH.":GOTO440 2110 IFA$="CRO"ANDNM$(16)="A BOTTLE FULL OF "THENNM$(23)="*A GLISTENING SILVER ":NM$(16)="AN EMPTY BOTTLE OF " 2120 PRINT"IT SHINES OF SILVER.":GOTO440 2130 ' 2140 IFA$<>"GAR"THENPRINT"I AM UNABLE TO TIE THAT.":GOTO440 2150 IF(LO(31)<>99ANDLO(31)<>LC)OR(LO(17)<>99ANDLO(17)<>LC)THENPRINT"I'M SORRY. I CANNOT.":GOTO440 2160 NM$(17)="A KNOTTED " 2170 LO(17)=0 2180 NM$(31)="* A ROPE BOUND " 2190 PRINT"IT'S FRIENDLY WHEN IT'S TIED UP." 2200 GOTO440 2210 ' 2220 SC=0 2230 SM=0 2240 FORI=1TOIT 2250 IFLEFT$(NM$(I),1)="*"ANDLO(I)=13THENSC=SC+1:GOTO2270 2260 IFLO(I)<>27ANDLO(I)<>99ANDLO(I)<>1ANDLO(I)<>28ANDLO(I)<>0ANDLO(I)<>90ANDLO(I)<>24THENSM=SM+1 2270 NEXTI 2280 PRINT"YOU SCORED ";SC*10;" POINTS OUT OF 100"; 2290 IFSM=0THENPRINT".":GOTO2320 2300 PRINT"," 2310 PRINT"BUT I AM PENALIZING YOU ";SM;" POINTS FOR SLOPPINESS." 2320 PRINT"AND YOUR NET SCORE IS ";SC*10-SM;"." 2330 IFSM>6PRINT"CLEAN UP AFTER YOURSELF." 2340 IFSC*10-SM=100THENPRINT"CONGRATULATIONS! A PERFECT SCORE.":LC=0 2350 IFSC*10-SM>90ANDSC*10-SM<100PRINT"VERY, VERY GOOD." 2360 IFLC=0THENPRINT"THE GAME IS OVER":END 2370 GOTO440 2380 ' 2390 PRINT"DO YOU WANT TO QUIT";:INPUTX$ 2400 IFLEFT$(X$,1)<>"Y"THEN440 2410 LC=0 2420 PRINT:PRINT:PRINT 2430 GOTO2210 2440 ' 2450 IFA$<>"ARM"THENPRINT"I CANNOT REMOVE THAT.":GOTO440 2460 IFLO(32)<>99THENPRINT"I AM NOT WEARING IT.":GOTO440 2470 LO(32)=LC 2480 PRINT"AH, THAT FEELS BETTER." 2490 GOTO440 2500 ' 2510 IFA$<>"BOO"PRINT"I CAN'T COVER THAT.":GOTO440 2520 IF(LO(2)<>99ANDLO(2)<>LC)OR(LO(11)<>99ANDLO(11)<>LC)THENPRINT"I CAN'T YET.":GOTO440 2530 LO(11)=0 2540 NM$(2)="* A COMPLETE GUTENBURG " 2550 NA$(2)="BIBLE" 2560 PRINT"THAT LOOKS NICE." 2570 GOTO440 2580 ' 2590 IFA$<>"BUL"THENPRINT"THE ONLY THING I CAN SCREW IS A BULB.":GOTO440 2600 IF(LO(13)<>99ANDLO(13)<>13)AND(LO(12)=99ORLO(12)=13)THENPRINT"THAT'S THE WRONG KIND OF BULB!":GOTO440 2610 LO(13)=0 2620 LI(13)=1 2630 NA$(14)="LAMP":NM$(14)="* A TIFFANY " 2640 GOTO200 2650 ' 2660 IFA$<>"COM"THENPRINT"I CAN'T EAT THAT!":GOTO440 2670 IFLO(15)=99ORLO(15)=LCTHENPRINT"GAG......YURP! BAD!":GOTO440 2680 PRINT"THANK GOD, IT ISN'T HERE!" 2690 GOTO440 2700 ' 2710 IFA$<>"ICE"THENPRINT"THAT WON'T MELT":GOTO440 2720 IFNA$(29)<>"ICE"THENPRINT"ONLY ONCE!":GOTO440 2730 IF(LO(29)<>LCANDLO(29)<>99)OR(LO(30)<>LCANDLO(30)<>99)THENPRINT"I CAN'T YET.":GOTO440 2740 NM$(29)="SOME THAWED " 2750 NA$(29)="WATER" 2760 NM$(30)="SOME COLD " 2770 PRINT"THAT DID IT. THE WATER FLOWS." 2780 GOTO440 2790 ' 2800 IFA$<>"BUL"ANDA$<>"TUL"THENPRINT"I CAN'T PLANT THAT.":GOTO440 2810 IF(LO(13)=99ORLO(13)=LC)ANDNOT(LO(12)=99ORLO(12)=LC)THENPRINT"PLANT THAT BULB?":GOTO440 2820 IF(LO(12)=99ORLO(12)=LC)AND(LO(15)=99ORLO(15)=LC)ANDNA$(29)="WATER"THEN2840 2830 PRINT"I DON'T HAVE EVERYTHING I NEED.":GOTO440 2840 IFLC<>14THENPRINT"IT WON'T GROW HERE.":GOTO440 2850 IFLO(20)<>99ANDLO(20)<>LCANDLO(8)<>LCANDLO(8)<>99THENPRINT"NOT WITH THESE BARE HANDS!!!":GOTO440 2860 TR=1 2870 PRINT"OKAY. I BURIED THAT MESS" 2880 LO(12)=0:LO(15)=0:LO(29)=0 2890 GOTO440 2900 DATA32 2910 DATA"RUBY","* A HUGE ",4 2920 DATA"BOOK","AN OLD ",3 2930 DATA"RING","A DULL ",2 2940 DATA"SCROLL","A TIGHTLY ROLLED ",3 2950 DATA"LIGHTER","A ",0 2960 DATA"LADDER","A LONG ",4 2970 DATA"CLOTH","A FUZZY ",3 2980 DATA"SHOVEL","AN ANTIQUE ",16 2990 DATA"CAGE","A WICKER ",18 3000 DATA"FLASHLIGHT","AN UNLIT ",15 3010 DATA"BOOKCOVER","AN EMPTY ",11 3020 DATA"BULB","A TULIP ",25 3030 DATA"BULB","A LIGHT ",27 3040 DATA"SOCKET","AN EMPTY ",13 3050 DATA"COMPOST","SOME WELL ROTTED ",90 3060 DATA"POLISH","A BOTTLE FULL OF ",13 3070 DATA"ROPE","A COILED ",21 3080 DATA"TRASH","A MOUND OF ",21 3090 DATA"URN","A FUNERARY ",15 3100 DATA"TROWEL","A GARDEN ",1 3110 DATA"TULIP","* A RAINBOW COLORED ",90 3120 DATA"BIRD","* A LIVING CRYSTAL ",5 3130 DATA"CROWN","A DISCARDED, BLACKENED ",90 3140 DATA"D","D",90 3150 DATA"COINS","* SOME TRIANGULAR GOLD ",90 3160 DATA"PIPE","* A PLATINUM SMOKING ",90 3170 DATA"D","D",90 3180 DATA"D","D",90 3190 DATA"ICE","SOME GREENISH ",26 3200 DATA"COALS","SOME GLOWING ",18 3210 DATA"GARGOYLE","A VICIOUS GREEN AND PURPLE ",90 3220 DATA"ARMOUR","SOME VERY, VERY HEAVY ",99 3230 DATA28 3240 DATA"NOWHERE.",0,0,0,0,0,0,0 3250 DATA"A DIM CLOSET.",0,2,3,0,0,0,0 3260 DATA"A GATHERING ROOM WITH WIDE BENCHES DOWN BOTH SIDES.",5,0,4,1,0,0,1 3270 DATA"AN OLD STONE ARMS ROOM.",1,4,0,0,0,0,1 3280 DATA"A DANK AND MUSTY DUNGEON.",2,0,0,3,0,0,0 3290 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 3300 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 3310 DATA"THE TOP OF THE LADDER.",0,0,0,0,0,0,0 3320 DATA"A BRIDGE TO A TOWER OFF TO THE WEST.",0,6,0,9,0,0,1 3330 DATA"A NORTH-SOUTH CORRIDOR IN THE TOWER.",10,8,19,0,0,0,1 3340 DATA"A SQUARE ROOM WITH A VAULTED CEILING.",0,0,9,11,0,24,1 3350 DATA"A LIBRARY FULL OF ANCIENT AND WONDERFUL BOOKS.",0,10,12,0,0,0,1 3360 DATA"A GRASSY ROOF-TOP WITH POTTED PALMS AND A CLEAR BLUE SKY.",11,13,14,25,0,0,1 3370 DATA"A ROOM WITH A TALL GOLDEN THRONE, AND A SMALL PLASTER PLAQUE SET IN THE FLOOR..",0,0,0,12,0,0,0 3380 DATA"A BEAUTIFUL FLOWER GARDEN, WITH BEDS OF PLANTS DOWN BOTH SIDES OF A LONG WALK.",12,0,15,0,0,0,1 3390 DATA"A TOMB WITH A ROW OF BRONZE MARKERS FOR FALLEN SCHOLARS.",18,16,0,14,0,0,0 3400 DATA"A MUSEUM WITH BROKEN AND DESTROYED DISPLAYS.",17,0,0,15,0,0,0 3410 DATA"AN EAST-WEST CORRIDOR WITH PORCELAIN TILE WALLS.",0,22,16,18,0,0,0 3420 DATA"A TORTURE CHAMBER WITH A BRAZIER IN THE CORNER.",0,17,15,0,0,0,0 3430 DATA"A SQUARE ROOM WITH A VAULTED CEILING.",9,20,0,0,0,0,1 3440 DATA"A TWIST IN THE HALLWAY, WITH A TERRAZZO EAGLE IN THE FLOOR.",0,0,22,19,0,0,1 3450 DATA"A BATHROOM WITH PRECIOUS METAL FIXTURES.",0,0,23,22,0,0,0 3460 DATA"A HALLWAY WITH WARRIORS IN BAS-RELIEF IN THE WALL STONES.",20,21,23,17,0,0,1 3470 DATA"A BEDROOM FIT FOR A KING. IT SAYS 'KING' RIGHT ON THE CURTAIN.",22,21,0,0,0,0,0 3480 DATA"A PIT FULL OF SMELLY GARBAGE AND FOUL REFUSE.",0,0,0,0,10,0,0 3490 DATA"A PASSAGE WITH A BLINDING GLARE TO THE WEST AND A DARK HOLE TO THE EAST.",0,12,0,26,0,0,1 3500 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 3510 DATA"THE BOTTOM OF A HOLE.",0,0,0,0,0,0,0 3520 DATA"THE WATER OF THE MOAT.",0,5,0,0,0,0,1