<%@Page Explicit="True" Language="VB" Debug="True" %>
<%
RoomDesc(1)="at the lakeshore (the site of the lower excavation)."
RoomDesc(2)="on the hillside (the site of the upper excavation)."
RoomDesc(3)="in the lake."
RoomDesc(4)="in the hot springs."
RoomDesc(5)="on the porch at the mansion."
RoomDesc(6)="in the foyer."
RoomDesc(7)="in the drawing room."
RoomDesc(8)="in the library."
RoomDesc(9)="in the living room."
RoomDesc(10)="in the downstairs hallway."
RoomDesc(11)="in the dining room."
RoomDesc(12)="in the kitchen."
RoomDesc(13)="in the upstairs hallway."
RoomDesc(14)="in the bedroom."
RoomDesc(15)="in a subterranean chamber (lighted by sulfurous flame)."
RoomDesc(16)="in an underground river."
RoomDesc(17)="in a closet."
RoomDesc(18)="in an underground channel."
RoomDesc(19)="in a secret passageway."
RoomDesc(20)="in a cool dark cellar."
RoomDesc(21)="in a winding glassy tunnel."
RoomDesc(22)="in a storage bin."
RoomDesc(23)="in a tunnel."
RoomDesc(24)="in cave 1- level 3."
RoomDesc(25)="in cave 1- level 2."
RoomDesc(26)="in cave entrance 1."
RoomDesc(27)="in a tunnel."
RoomDesc(28)="in cave 2- level 3."
RoomDesc(29)="in cave 2-level 2."
RoomDesc(30)="in cave entrance 2."
RoomDesc(31)="in the egg hatchery of the night beast."
RoomDesc(32)="in the dynamite shack."
RoomDesc(33)="in the attic."
RoomMap(1,1)=0: RoomMap(1,2)=26: RoomMap(1,3)=3: RoomMap(1,4)=5: RoomMap(1,5)=2 : RoomMap(1,6)=0: RoomMap(1,7)=0: RoomMap(1,8)=0
RoomMap(2,1)=30: RoomMap(2,2)=0: RoomMap(2,3)=4: RoomMap(2,4)=32: RoomMap(2,5)=0: RoomMap(2,6)=1: RoomMap(2,7)=0: RoomMap(2,8)=0
RoomMap(3,1)=0: RoomMap(3,2)=0: RoomMap(3,3)=0: RoomMap(3,4)=1: RoomMap(3,5)=0: RoomMap(3,6)=0: RoomMap(3,7)=0: RoomMap(3,8)=0
RoomMap(4,1)=0: RoomMap(4,2)=0: RoomMap(4,3)=0: RoomMap(4,4)=2: RoomMap(4,5)=0: RoomMap(4,6)=0: RoomMap(4,7)=0: RoomMap(4,8)=0
RoomMap(5,1)=0: RoomMap(5,2)=0: RoomMap(5,3)=1: RoomMap(5,4)=6: RoomMap(5,5)=0: RoomMap(5,6)=0: RoomMap(5,7)=0: RoomMap(5,8)=0
RoomMap(6,1)=17: RoomMap(6,2)=7: RoomMap(6,3)=5: RoomMap(6,4)=10: RoomMap(6,5)=0: RoomMap(6,6)=0: RoomMap(6,7)=0: RoomMap(6,8)=0
RoomMap(7,1)=6: RoomMap(7,2)=8: RoomMap(7,3)=0: RoomMap(7,4)=9: RoomMap(7,5)=0: RoomMap(7,6)=0: RoomMap(7,7)=0: RoomMap(7,8)=0
RoomMap(8,1)=7: RoomMap(8,2)=19: RoomMap(8,3)=0: RoomMap(8,4)=0: RoomMap(8,5)=0: RoomMap(8,6)=0: RoomMap(8,7)=9: RoomMap(8,8)=0
RoomMap(9,1)=10: RoomMap(9,2)=0: RoomMap(9,3)=7: RoomMap(9,4)=11: RoomMap(9,5)=0: RoomMap(9,6)=0: RoomMap(9,7)=0: RoomMap(9,8)=8
RoomMap(10,1)=13: RoomMap(10,2)=9: RoomMap(10,3)=6: RoomMap(10,4)=12: RoomMap(10,5)=0: RoomMap(10,6)=0: RoomMap(10,7)=0: RoomMap(10,8)=0
RoomMap(11,1)=12: RoomMap(11,2)=0: RoomMap(11,3)=9: RoomMap(11,4)=0: RoomMap(11,5)=0: RoomMap(11,6)=0: RoomMap(11,7)=0: RoomMap(11,8)=0
RoomMap(12,1)=0: RoomMap(12,2)=11: RoomMap(12,3)=10: RoomMap(12,4)=0: RoomMap(12,5)=0: RoomMap(12,6)=20: RoomMap(12,7)=0: RoomMap(12,8)=0
RoomMap(13,1)=14: RoomMap(13,2)=10: RoomMap(13,3)=0: RoomMap(13,4)=33: RoomMap(13,5)=0: RoomMap(13,6)=0: RoomMap(13,7)=0: RoomMap(13,8)=0
RoomMap(14,1)=0: RoomMap(14,2)=13: RoomMap(14,3)=0: RoomMap(14,4)=0: RoomMap(14,5)=0: RoomMap(14,6)=0: RoomMap(14,7)=0: RoomMap(14,8)=0
RoomMap(15,1)=23: RoomMap(15,2)=31: RoomMap(15,3)=0: RoomMap(15,4)=21: RoomMap(15,5)=0: RoomMap(15,6)=0: RoomMap(15,7)=0: RoomMap(15,8)=0
RoomMap(16,1)=0: RoomMap(16,2)=0: RoomMap(16,3)=0: RoomMap(16,4)=0: RoomMap(16,5)=0: RoomMap(16,6)=0: RoomMap(16,7)=0: RoomMap(16,8)=0
RoomMap(17,1)=0: RoomMap(17,2)=6: RoomMap(17,3)=0: RoomMap(17,4)=0: RoomMap(17,5)=0: RoomMap(17,6)=0: RoomMap(17,7)=0: RoomMap(17,8)=0
RoomMap(18,1)=0: RoomMap(18,2)=0: RoomMap(18,3)=0: RoomMap(18,4)=0: RoomMap(18,5)=0: RoomMap(18,6)=0: RoomMap(18,7)=0: RoomMap(18,8)=0
RoomMap(19,1)=8: RoomMap(19,2)=20: RoomMap(19,3)=0: RoomMap(19,4)=0: RoomMap(19,5)=0: RoomMap(19,6)=0: RoomMap(19,7)=0: RoomMap(19,8)=0
RoomMap(20,1)=19: RoomMap(20,2)=0: RoomMap(20,3)=22: RoomMap(20,4)=0: RoomMap(20,5)=12: RoomMap(20,6)=21: RoomMap(20,7)=0: RoomMap(20,8)=0
RoomMap(21,1)=0: RoomMap(21,2)=0: RoomMap(21,3)=15: RoomMap(21,4)=0: RoomMap(21,5)=20: RoomMap(21,6)=0: RoomMap(21,7)=0: RoomMap(21,8)=0
RoomMap(22,1)=0: RoomMap(22,2)=0: RoomMap(22,3)=0: RoomMap(22,4)=20: RoomMap(22,5)=0: RoomMap(22,6)=0: RoomMap(22,7)=0: RoomMap(22,8)=0
RoomMap(23,1)=24: RoomMap(23,2)=15: RoomMap(23,3)=0: RoomMap(23,4)=0: RoomMap(23,5)=0: RoomMap(23,6)=0: RoomMap(23,7)=0: RoomMap(23,8)=0
RoomMap(24,1)=0: RoomMap(24,2)=23: RoomMap(24,3)=0: RoomMap(24,4)=0: RoomMap(24,5)=25: RoomMap(24,6)=0: RoomMap(24,7)=0: RoomMap(24,8)=0
RoomMap(25,1)=0: RoomMap(25,2)=0: RoomMap(25,3)=16: RoomMap(25,4)=0: RoomMap(25,5)=26: RoomMap(25,6)=24: RoomMap(25,7)=0: RoomMap(25,8)=0
RoomMap(26,1)=1: RoomMap(26,2)=0: RoomMap(26,3)=0: RoomMap(26,4)=23: RoomMap(26,5)=0: RoomMap(26,6)=25: RoomMap(26,7)=0: RoomMap(26,8)=0
RoomMap(27,1)=0: RoomMap(27,2)=28: RoomMap(27,3)=0: RoomMap(27,4)=0: RoomMap(27,5)=0: RoomMap(27,6)=0: RoomMap(27,7)=0: RoomMap(27,8)=0
RoomMap(28,1)=27: RoomMap(28,2)=0: RoomMap(28,3)=0: RoomMap(28,4)=31: RoomMap(28,5)=29: RoomMap(28,6)=0: RoomMap(28,7)=0: RoomMap(28,8)=0
RoomMap(29,1)=0: RoomMap(29,2)=0: RoomMap(29,3)=0: RoomMap(29,4)=31: RoomMap(29,5)=30: RoomMap(29,6)=28: RoomMap(29,7)=0: RoomMap(29,8)=0
RoomMap(30,1)=0: RoomMap(30,2)=2: RoomMap(30,3)=16: RoomMap(30,4)=0: RoomMap(30,5)=0: RoomMap(30,6)=29: RoomMap(30,7)=0: RoomMap(30,8)=0
RoomMap(31,1)=15: RoomMap(31,2)=0: RoomMap(31,3)=28: RoomMap(31,4)=0: RoomMap(31,5)=0: RoomMap(31,6)=0: RoomMap(31,7)=0: RoomMap(31,8)=0
RoomMap(32,1)=0: RoomMap(32,2)=0: RoomMap(32,3)=2: RoomMap(32,4)=0: RoomMap(32,5)=0: RoomMap(32,6)=0: RoomMap(32,7)=0: RoomMap(32,8)=0
RoomMap(33,1)=0: RoomMap(33,2)=0: RoomMap(33,3)=13: RoomMap(33,4)=0: RoomMap(33,5)=0: RoomMap(33,6)=0: RoomMap(33,7)=0: RoomMap(33,8)=0
ObjDesc(1)="NORTH"
ObjDesc(2)="SOUTH"
ObjDesc(3)="EAST"
ObjDesc(4)="WEST"
ObjDesc(5)="UP"
ObjDesc(6)="DOWN"
ObjDesc(7)="NORTHWEST"
ObjDesc(8)="SOUTHEAST"
ObjDesc(9)="WINDOW SEAT"
ObjDesc(10)="SECRET PANEL"
ObjDesc(11)="MAHOGANY DESK"
ObjDesc(12)="CURTAINS"
ObjDesc(13)="LOCKED DRAWER"
ObjDesc(14)="SKELETON KEY"
ObjDesc(15)="100 ft. COIL of ROPE"
ObjDesc(16)="MINER'S PICKAXE"
ObjDesc(17)="CLAW HAMMER"
ObjDesc(18)="FLASHLIGHT"
ObjDesc(19)="SCUBA TANKS w/mouthpiece"
ObjDesc(20)="DYNAMITE"
ObjDesc(21)="CANTEEN"
ObjDesc(22)="book of MATCHES"
ObjDesc(23)="BOTTLE of SCOTCH"
ObjDesc(24)="ROCKS GLASS"
ObjDesc(25)="NIGHT BEAST"
ObjDesc(26)="BLASTING CAPS"
ObjDesc(27)="BLASTING FUSE"
ObjDesc(28)="HUGE SPONGEY EGGS"
ObjDesc(29)="CRIMPING PLIERS"
ObjDesc(30)="PACK of CIGARETTES"
ObjDesc(31)="LIFE VEST"
ObjDesc(32)="CLIMBING BOOTS"
ObjDesc(33)="CARVING KNIFE"
ObjDesc(34)="Oily-looking POOL"
ObjDesc(35)="RABID BATS"
ObjDesc(36)="HUNGRY RATS"
ObjDesc(37)="STARTLED RATTLESNAKE"
ObjDesc(38)="SLEEPY GRIZZLY BEAR"
ObjDesc(39)="30.06 GAME RIFLE"
ObjDesc(40)="38 CALIBRE BULLETS"
ObjDesc(41)="30.06 CARTRIDGES"
ObjDesc(42)="12 GA. SHELLS"
ObjDesc(43)="FRENCH-ENGLISH DICTIONARY"
ObjDesc(44)="12 GAUGE SHOTGUN"
ObjDesc(45)="38 REVOLVER"
ObjDesc(46)="STALACTITES"
ObjDesc(47)="STALAGMITES"
ObjDesc(51)="CAVE ENTRANCE"
ObjDesc(52)="CAVE ENTRANCE"
ObjDesc(53)="DYNAMITE SHACK"
ObjDesc(54)="HOT SULFUR SPRINGS"
ObjDesc(55)="MIRROR LAKE"
ObjDesc(56)="FRONT PORCH (AT THE MANSION)"
ObjDesc(57)="UNDERGROUND RIVER"
ObjDesc(58)="UNDERGROUND RIVER"
ObjDesc(59)="SUBTERRANEAN CHAMBER"
ObjDesc(60)="SUBTERRANEAN CHAMBER"
ObjDesc(61)="UNDERGROUND CHANNEL"
ObjDesc(62)=ObjDesc(61)
ObjDesc(63)=ObjDesc(61)
ObjLoc(1)=8
ObjLoc(2)=Hidden
ObjLoc(3)=8
ObjLoc(4)=8
ObjLoc(5)=Hidden
ObjLoc(6)=Hidden
ObjLoc(7)=32
ObjLoc(8)=2
ObjLoc(9)=20
ObjLoc(10)=17
ObjLoc(11)=22
ObjLoc(12)=32
ObjLoc(13)=Hidden
ObjLoc(14)=Hidden
ObjLoc(15)=7
ObjLoc(16)=7
ObjLoc(17)=19
ObjLoc(18)=32
ObjLoc(19)=32
ObjLoc(20)=31
ObjLoc(21)=32
ObjLoc(22)=Hidden
ObjLoc(23)=33
ObjLoc(24)=13
ObjLoc(25)=12
ObjLoc(26)=15
ObjLoc(27)=15
ObjLoc(28)=27
ObjLoc(29)=30
ObjLoc(30)=26
ObjLoc(31)=17
ObjLoc(32)=33
ObjLoc(33)=Hidden
ObjLoc(34)=17
ObjLoc(35)=8
ObjLoc(36)=33
ObjLoc(37)=Hidden
ObjLoc(38)=15
ObjLoc(39)=15
ObjLoc(40)=Hidden
ObjLoc(41)=Hidden
ObjLoc(42)=Hidden
ObjLoc(43)=1
ObjLoc(44)=2
ObjLoc(45)=2
ObjLoc(46)=18
ObjLoc(47)=18
ObjLoc(48)=1
ObjLoc(49)=15
ObjLoc(50)=18
ObjLoc(51)=16
ObjLoc(52)=27
ObjLoc(53)=16
ObjLoc(54)=4
ObjLoc(55)=3
Randomize
RandomNumber = Int(Rnd * 33) + 1
CurrentRoom = RandomNumber
Action = Console.ReadLine()
%>
You are <%=RoomDesc(CurrentRoom)%>
Objects you notice are
<% For X = 1 to 55
IF ObjLoc(X) = CurrentRoom THEN %>
<%=ObjDesc(X + 8)%>
<% End IF
Next
%>
Obvious exits are
<% For X = 1 TO 8
IF RoomMap(CurrentRoom,X) <> 0 THEN %>
<%=ObjDesc(X)%>
<% End IF
Next
%>
<%
%>