AT ROAD MOVE ROAD,HILL MOVE WEST,HILL MOVE UP,HILL MOVE ENTER,BUILDING MOVE BUILDING,BUILDING MOVE INWARD,BUILDING MOVE EAST,BUILDING MOVE DOWNSTREAM,VALLEY MOVE GULLY,VALLEY MOVE STREAM,VALLEY MOVE SOUTH,VALLEY MOVE DOWN,VALLEY MOVE FOREST,FOREST MOVE NORTH,FOREST MOVE EAST,FOREST MOVE DEPRESSION,DEPRESSION AT HILL MOVE ROAD,ROAD MOVE BUILDING,ROAD MOVE FORWARD,ROAD MOVE EAST,ROAD MOVE NORTH,ROAD MOVE FOREST,FOREST MOVE NORTH,FOREST MOVE SOUTH,FOREST AT BUILDING MOVE ROAD,ROAD MOVE OUT,ROAD MOVE OUTDOORS,ROAD MOVE WEST,ROAD IFLT CLOSURE,2 {is the cave open?} SMOVE XYZZY,DEBRIS,FOOF SMOVE PLUGH,Y2,FOOF FIN * IFKEY BACK {bug fix K.C.W. Nov. 23, 1984} LDA I,DEBRIS IFEQ I,THERE SAY CANTGOBACK QUIT FIN LDA I,Y2 IFEQ I,THERE SAY CANTGOBACK QUIT FIN FIN * AT BUILDING ANYOF STREAM,DOWNSTREAM SAY PIPEFIT QUIT AT VALLEY MOVE UPSTREAM,ROAD MOVE BUILDING,ROAD MOVE NORTH,ROAD MOVE FOREST,FOREST MOVE EAST,FOREST MOVE WEST,FOREST MOVE UP,FOREST MOVE DEPRESSION,DEPRESSION ANYOF SOUTH,DOWN,DOWNSTREAM IFLT CLOSURE,2 GOTO SLIT ELSE GOTO FAKE.SLIT FIN QUIT AT FOREST MOVE VALLEY,VALLEY MOVE EAST,VALLEY MOVE DOWN,VALLEY MOVE WEST,FOREST MOVE SOUTH,FOREST AT FOREST ANYOF FOREST,FORWARD,NORTH CHANCE 50 GOTO FOREST ELSE GOTO FOREST2 FIN QUIT AT FOREST2 MOVE ROAD,ROAD MOVE NORTH,ROAD MOVE VALLEY,VALLEY MOVE EAST,VALLEY MOVE WEST,VALLEY MOVE DOWN,VALLEY MOVE FOREST,FOREST MOVE SOUTH,FOREST AT SLIT MOVE BUILDING,ROAD MOVE UPSTREAM,VALLEY MOVE NORTH,VALLEY MOVE FOREST,FOREST MOVE EAST,FOREST MOVE WEST,FOREST MOVE DOWNSTREAM,DEPRESSION MOVE ROCK,DEPRESSION MOVE BED,DEPRESSION MOVE SOUTH,DEPRESSION AT FAKE.SLIT MOVE BUILDING,ROAD MOVE UPSTREAM,VALLEY MOVE NORTH,VALLEY MOVE FOREST,FOREST MOVE EAST,FOREST MOVE WEST,FOREST MOVE DOWNSTREAM,DEPRESSION MOVE ROCK,DEPRESSION MOVE BED,DEPRESSION MOVE SOUTH,DEPRESSION AT SLIT ANYOF SLIT,STREAM,DOWN,ENTER SAY DONTFITSLIT QUIT AT FAKE.SLIT ANYOF SLIT,STREAM,DOWN,ENTER SET CLOSURE,5 {victory!} BIC STATUS,FASTMODE BIC STATUS,QUICKIE SAY TREASUREROOM {describe the booty} SET QUITTING,0 CALL FINIS {end the game in triumph} AT DEPRESSION MOVE FOREST,FOREST MOVE EAST,FOREST2 MOVE WEST,FOREST MOVE SOUTH,FOREST2 MOVE BUILDING,ROAD IFKEY BACK { bug fix. K.C.W } LDA I,INCAVE IFEQ I,THERE AND IFEQ GRATE,0 { locked } SAY CANTPASSLOCK QUIT FIN FIN ANYOF UPSTREAM,GULLY,NORTH,SLIT IFLT CLOSURE,2 GOTO SLIT ELSE GOTO FAKE.SLIT FIN QUIT AT DEPRESSION ANYOF IN,DOWN,ENTER IFEQ GRATE,1 GOTO INCAVE ELSE SAY CANTPASSLOCK FIN QUIT AT INCAVE ANYOF UP,OUT,LEAVE,SURFACE IFEQ GRATE,1 GOTO DEPRESSION ELSE SAY CANTPASSLOCK FIN QUIT AT INCAVE MOVE CRAWL,COBBLES MOVE COBBLES,COBBLES MOVE INWARD,COBBLES MOVE WEST,COBBLES MOVE PIT,PIT MOVE DEBRIS,DEBRIS IFKEY BACK { bug fix. K.C.W } LDA I,DEPRESSION IFEQ I,THERE AND IFEQ GRATE,0 { locked } SAY CANTPASSLOCK QUIT FIN FIN AT COBBLES MOVE OUT,INCAVE MOVE SURFACE,INCAVE MOVE NULL,INCAVE MOVE ENTRANCE,INCAVE MOVE EAST,INCAVE MOVE INWARD,DEBRIS MOVE DARK,DEBRIS MOVE WEST,DEBRIS MOVE DEBRIS,DEBRIS MOVE PIT,PIT AT DEBRIS MOVE ENTRANCE,INCAVE MOVE CRAWL,COBBLES MOVE COBBLES,COBBLES MOVE PASSAGE,COBBLES MOVE LOW,COBBLES MOVE EAST,COBBLES MOVE CANYON,CANYON MOVE INWARD,CANYON MOVE UP,CANYON MOVE WEST,CANYON MOVE PIT,PIT IFEQ GRATE,1 MOVE DEPRESSION,DEPRESSION ELSE SMOVE DEPRESSION,INCAVE,CANTPASSLOCK FIN * IFKEY BACK {bug fix K.C.W. Nov. 23, 1984} LDA I,BUILDING IFEQ I,THERE SAY CANTGOBACK QUIT FIN FIN * AT DEBRIS KEYWORD XYZZY IFGT CLOSURE,1 OR BIT ADMIN,NOMAGIC SAY NOTHING BIS ADMIN,PANICED QUIT ELSE SMOVE XYZZY,BUILDING,FOOF FIN QUIT AT CANYON MOVE ENTRANCE,INCAVE MOVE DOWN,DEBRIS MOVE EAST,DEBRIS MOVE DEBRIS,DEBRIS MOVE INWARD,BIRDCHAMBER MOVE UP,BIRDCHAMBER MOVE WEST,BIRDCHAMBER MOVE PIT,PIT IFEQ GRATE,1 MOVE DEPRESSION,DEPRESSION ELSE SMOVE DEPRESSION,INCAVE,CANTPASSLOCK FIN AT BIRDCHAMBER MOVE ENTRANCE,INCAVE MOVE DEBRIS,DEBRIS MOVE CANYON,CANYON MOVE EAST,CANYON MOVE PASSAGE,PIT MOVE PIT,PIT MOVE WEST,PIT IFEQ GRATE,1 MOVE DEPRESSION,DEPRESSION ELSE SMOVE DEPRESSION,INCAVE,CANTPASSLOCK FIN AT PIT MOVE ENTRANCE,INCAVE MOVE DEBRIS,DEBRIS MOVE PASSAGE,BIRDCHAMBER MOVE EAST,BIRDCHAMBER MOVE DOWN,MISTS IFEQ GRATE,1 MOVE DEPRESSION,DEPRESSION ELSE SMOVE DEPRESSION,INCAVE,CANTPASSLOCK FIN AT PIT ANYOF DOWN,STEPS,PIT IFHAVE GOLD SAY BROKENECK GOTO MISTS CALL CORONER ELSE GOTO MISTS FIN QUIT AT PIT ANYOF WEST,CRACK SAY MISTCRACK QUIT AT PIT KEYWORD JUMP GOTO MISTS CALL SPLATTER QUIT AT MISTS MOVE LEFT,GOLDROOM MOVE SOUTH,GOLDROOM MOVE EAST,SANDSTONE MOVE FORWARD,EASTOFFISSURE MOVE HALL,EASTOFFISSURE MOVE WEST,EASTOFFISSURE MOVE STAIRS,MTKING MOVE DOWN,MTKING MOVE NORTH,MTKING MOVE Y2,JUMBLE AT MISTS ANYOF UP,PIT,STEPS,DOME,PASSAGE,ENTER IFHAVE GOLD SAY UNCLIMBABLE ELSE GOTO PIT FIN QUIT AT EASTOFFISSURE MOVE HALL,MISTS MOVE EAST,MISTS IFKEY BACK { bug fix. K.C.W } LDA I,WESTOFFISSURE IFEQ I,THERE AND IFEQ FISSURE,0 { no bridge } SAY NOWAYACROSS QUIT FIN FIN AT EASTOFFISSURE ANYOF FORWARD,OVER,WEST IFEQ FISSURE,0 SAY NOWAYACROSS ELSE GOTO WESTOFFISSURE FIN QUIT AT EASTOFFISSURE KEYWORD JUMP IFEQ FISSURE,1 SAY TRYTHEBRIDGE ELSE GOTO CAVERN CALL SPLATTER FIN QUIT AT GOLDROOM MOVE HALL,MISTS MOVE OUT,MISTS MOVE NORTH,MISTS AT MTKING MOVE STAIRS,MISTS MOVE UP,MISTS MOVE EAST,MISTS AT MTKING ANYOF NORTH,LEFT,SOUTH,RIGHT,WEST,FORWARD,SW,SECRET ANYOF NW,SE,NE,DOWN IFNEAR SNAKE SAY SNAKEBLOCKS QUIT ELSE MOVE NORTH,LOWNSPASSAGE MOVE LEFT,LOWNSPASSAGE MOVE SOUTH,SOUTHSIDE MOVE RIGHT,SOUTHSIDE MOVE WEST,WESTSIDE MOVE FORWARD,WESTSIDE MOVE DOWN,VAULT MOVE NORTHEAST,MORION MOVE NORTHWEST,CORRID.3 MOVE SOUTHEAST,CORRID.1 MOVE SECRET,SECRETEW.TITE CHANCE 35 {Assumes "SW" typed here} MOVE SW,SECRETEW.TITE ELSE SAY YOUDIDNTMOVE FIN QUIT AT WEND2PIT MOVE EAST,EEND2PIT MOVE CROSS,EEND2PIT MOVE WEST,SLAB MOVE SLAB,SLAB MOVE DOWN,WESTPIT MOVE PIT,WESTPIT AT WEND2PIT KEYWORD HOLE SAY TOO.FAR.UP QUIT AT EASTPIT MOVE UP,EEND2PIT MOVE OUT,EEND2PIT AT WESTPIT MOVE UP,WEND2PIT MOVE OUT,WEND2PIT AT WESTPIT KEYWORD CLIMB IFEQ PLANT,0 SAY NOCLIMBUP ELSE IFEQ PLANT,2 SAY SHORTPLANT GOTO WEND2PIT ELSE SAY LONGPLANT GOTO NARROWCORRIDOR FIN FIN QUIT AT WESTPIT KEYWORD GET,PLANT SAY GET..PLANT QUIT AT WESTOFFISSURE MOVE WEST,WENDMISTS AT WESTOFFISSURE ANYOF FORWARD,OVER,EAST IFEQ FISSURE,0 SAY NOWAYACROSS ELSE GOTO EASTOFFISSURE FIN QUIT AT WESTOFFISSURE KEYWORD JUMP IFEQ FISSURE,1 SAY TRYTHEBRIDGE ELSE GOTO CAVERN CALL SPLATTER FIN QUIT AT WESTOFFISSURE IFKEY BACK { bug fix. K.C.W. } LDA I,EASTOFFISSURE IFEQ I,THERE AND IFEQ FISSURE,0 { no bridge } SAY NOWAYACROSS QUIT FIN FIN KEYWORD NORTH SAY MISTCRAWL GOTO WENDMISTS QUIT AT LOWNSPASSAGE MOVE HALL,MTKING MOVE OUT,MTKING MOVE SOUTH,MTKING MOVE NORTH,Y2 MOVE Y2,Y2 MOVE DOWN,DIRTY MOVE HOLE,DIRTY AT SOUTHSIDE MOVE HALL,MTKING MOVE OUT,MTKING MOVE NORTH,MTKING AT WESTSIDE MOVE HALL,MTKING MOVE OUT,MTKING MOVE EAST,MTKING MOVE WEST,CROSSOVER MOVE UP,CROSSOVER AT Y2 MOVE SOUTH,LOWNSPASSAGE MOVE EAST,JUMBLE MOVE JUMBLE,JUMBLE MOVE WEST,WINDOW * IFKEY BACK {bug fix K.C.W. Nov. 23, 1984} LDA I,BUILDING IFEQ I,THERE SAY CANTGOBACK QUIT FIN LDA I,PLOVER IFEQ I,THERE SAY CANTGOBACK QUIT FIN FIN * AT Y2 ANYOF PLUGH,PLOVER IFGT CLOSURE,1 OR BIT ADMIN,NOMAGIC SAY NOTHING BIS ADMIN,PANICED QUIT ELSE SMOVE PLUGH,BUILDING,FOOF SMOVE PLOVER,PLOVER,FOOF FIN AT JUMBLE MOVE DOWN,Y2 MOVE Y2,Y2 MOVE UP,MISTS AT WINDOW MOVE EAST,Y2 MOVE Y2,Y2 AT WINDOW KEYWORD JUMP SAY BROKENECK GOTO MIRRORCNYN CALL CORONER AT DIRTY MOVE EAST,BRINK MOVE CRAWL,BRINK MOVE UP,LOWNSPASSAGE MOVE HOLE,LOWNSPASSAGE MOVE WEST,DUSTY MOVE BEDQUILT,BEDQUILT AT BRINK MOVE WEST,DIRTY MOVE CRAWL,DIRTY MOVE DOWN,STREAMPIT MOVE PIT,STREAMPIT MOVE CLIMB,STREAMPIT AT STREAMPIT MOVE CLIMB,BRINK MOVE UP,BRINK MOVE OUT,BRINK AT STREAMPIT ANYOF SLIT,STREAM,DOWN,UPSTREAM,DOWNSTREAM SAY DONTFITSLIT QUIT AT DUSTY MOVE EAST,DIRTY MOVE PASSAGE,DIRTY MOVE DOWN,COMPLEX MOVE HOLE,COMPLEX MOVE BEDQUILT,BEDQUILT AT WENDMISTS MOVE SOUTH,MAZEA.42 MOVE UP,MAZEA.42 MOVE PASSAGE,MAZEA.42 MOVE CLIMB,MAZEA.42 MOVE EAST,WESTOFFISSURE MOVE WEST,LONGHALLEAST MOVE CRAWL,LONGHALLEAST AT WENDMISTS KEYWORD NORTH SAY MISTCRAWL GOTO WESTOFFISSURE QUIT AT MAZEA.42 MOVE UP,WENDMISTS MOVE NORTH,MAZEA.42 MOVE EAST,MAZEA.43 MOVE SOUTH,MAZEA.45 MOVE WEST,MAZEA.80 AT MAZEA.43 MOVE WEST,MAZEA.42 MOVE SOUTH,MAZEA.44 MOVE EAST,MAZEA.45 AT MAZEA.44 MOVE EAST,MAZEA.43 MOVE DOWN,MAZEA.48 MOVE SOUTH,MAZEA.50 MOVE NORTH,MAZEA.82 AT MAZEA.45 MOVE WEST,MAZEA.42 MOVE NORTH,MAZEA.43 MOVE EAST,MAZEA.46 MOVE SOUTH,MAZEA.47 MOVE UP,MAZEA.87 MOVE DOWN,MAZEA.87 AT MAZEA.46 MOVE WEST,MAZEA.45 MOVE OUT,MAZEA.45 AT MAZEA.47 MOVE EAST,MAZEA.45 MOVE OUT,MAZEA.45 AT MAZEA.48 MOVE UP,MAZEA.44 MOVE OUT,MAZEA.44 AT MAZEA.49 MOVE EAST,MAZEA.50 MOVE WEST,MAZEA.51 AT MAZEA.50 MOVE EAST,MAZEA.44 MOVE WEST,MAZEA.49 MOVE DOWN,MAZEA.51 MOVE SOUTH,MAZEA.52 AT MAZEA.51 MOVE WEST,MAZEA.49 MOVE UP,MAZEA.50 MOVE EAST,MAZEA.52 MOVE SOUTH,MAZEA.53 AT MAZEA.52 MOVE WEST,MAZEA.50 MOVE EAST,MAZEA.51 MOVE SOUTH,MAZEA.52 MOVE UP,MAZEA.53 MOVE NORTH,MAZEA.55 MOVE DOWN,MAZEA.86 AT MAZEA.53 MOVE WEST,MAZEA.51 MOVE NORTH,MAZEA.52 MOVE SOUTH,MAZEA.54 AT MAZEA.54 MOVE WEST,MAZEA.53 MOVE OUT,MAZEA.53 AT MAZEA.55 MOVE WEST,MAZEA.52 MOVE NORTH,MAZEA.55 MOVE DOWN,MAZEA.56 MOVE EAST,MAZEA.57.PIT AT MAZEA.56 MOVE UP,MAZEA.55 MOVE OUT,MAZEA.55 AT MAZEA.57.PIT MOVE DOWN,BIRDCHAMBER MOVE CLIMB,BIRDCHAMBER MOVE WEST,MAZEA.55 MOVE SOUTH,MAZEA.58 MOVE NORTH,MAZEA.83 MOVE EAST,MAZEA.84 AT MAZEA.58 MOVE EAST,MAZEA.57.PIT MOVE OUT,MAZEA.57.PIT AT LONGHALLEAST MOVE EAST,WENDMISTS MOVE UP,WENDMISTS MOVE CRAWL,WENDMISTS MOVE WEST,LONGHALLWEST MOVE NORTH,CROSSOVER MOVE DOWN,CROSSOVER MOVE HOLE,CROSSOVER AT LONGHALLWEST MOVE EAST,LONGHALLEAST MOVE NORTH,CROSSOVER MOVE SOUTH,MAZED.107 AT CROSSOVER MOVE WEST,LONGHALLEAST MOVE NORTH,DEADEND1 MOVE EAST,WESTSIDE MOVE SOUTH,LONGHALLWEST AT DEADEND1 MOVE SOUTH,CROSSOVER MOVE OUT,CROSSOVER AT COMPLEX MOVE UP,DUSTY MOVE CLIMB,DUSTY MOVE WEST,BEDQUILT MOVE BEDQUILT,BEDQUILT MOVE NORTH,SHELL MOVE SHELL,SHELL MOVE EAST,ANTEROOM AT BEDQUILT MOVE EAST,COMPLEX MOVE WEST,SWISS MOVE SLAB,SLAB AT BEDQUILT ANYOF NORTH,SOUTH,UP,DOWN CHANCE 65 SAY CRAWL..CAVEIN QUIT ELSE MOVE DOWN,ANTEROOM CHANCE 75 MOVE NORTH,LOW MOVE UP,DUSTY MOVE SOUTH,SLAB ELSE MOVE NORTH,SECRETJUNCTION MOVE UP,SECRETNSCPAS MOVE SOUTH,TALLEWCNYN FIN FIN AT BEDQUILT KEYWORD NW CHANCE 50 SAY YOUDIDNTMOVE ELSE GOTO ORIENTAL FIN QUIT AT SWISS MOVE NE,BEDQUILT MOVE WEST,EEND2PIT MOVE CANYON,TALLEWCNYN MOVE EAST,SOFT MOVE ORIENTAL,ORIENTAL MOVE SOFT,SOFT ANYOF NW,SOUTH CHANCE 65 MOVE NW,ORIENTAL SAY YOUDIDNTMOVE ELSE MOVE SOUTH,TALLEWCNYN SAY YOUDIDNTMOVE FIN QUIT FIN AT EEND2PIT MOVE EAST,SWISS MOVE WEST,WEND2PIT MOVE CROSS,WEND2PIT MOVE DOWN,EASTPIT MOVE PIT,EASTPIT AT SLAB MOVE SOUTH,WEND2PIT MOVE UP,SECRETNSCYN MOVE CLIMB,SECRETNSCYN MOVE NORTH,BEDQUILT MOVE BEDQUILT,BEDQUILT AT SECRETNSCYN MOVE DOWN,SLAB MOVE SLAB,SLAB MOVE NORTH,MIRRORCNYN MOVE MIRROR,MIRRORCNYN MOVE RESERVOIR,RESERVOIR MOVE SOUTH,SECRETCYNNE1 AT SECRETNSCPAS MOVE NORTH,SECRETJUNCTION MOVE DOWN,BEDQUILT MOVE PASSAGE,BEDQUILT MOVE SOUTH,STALACT AT SECRETJUNCTION MOVE SE,BEDQUILT MOVE SOUTH,SECRETNSCPAS MOVE NORTH,WINDOW2 AT LOW MOVE BEDQUILT,BEDQUILT MOVE SW,SLOPING MOVE NORTH,DEADEND2 MOVE SE,ORIENTAL MOVE ORIENTAL,ORIENTAL AT DEADEND2 MOVE SOUTH,LOW MOVE CRAWL,LOW MOVE OUT,LOW AT SECRETEW.TITE MOVE EAST,MTKING MOVE DOWN,NSCANYONWIDE AT SECRETEW.TITE KEYWORD WEST IFEQ DRAGON,0 * If it's alive... GOTO SECRETCYNNE2 ELSE GOTO SECRETCYNNE1 FIN QUIT AT NSCANYONWIDE MOVE SOUTH,TIGHTERSTILL MOVE NORTH,TALLEWCNYN AT TIGHTERSTILL MOVE NORTH,NSCANYONWIDE AT TALLEWCNYN MOVE EAST,NSCANYONWIDE MOVE WEST,DEADEND3 MOVE NORTH,SWISS MOVE CRAWL,SWISS AT DEADEND3 MOVE SOUTH,TALLEWCNYN AT MAZEA.80 MOVE NORTH,MAZEA.42 MOVE WEST,MAZEA.80 MOVE SOUTH,MAZEA.80 MOVE EAST,MAZEA.81 AT MAZEA.81 MOVE WEST,MAZEA.80 MOVE OUT,MAZEA.80 AT MAZEA.82 MOVE SOUTH,MAZEA.44 MOVE OUT,MAZEA.44 AT MAZEA.83 MOVE SOUTH,MAZEA.57.PIT MOVE EAST,MAZEA.84 MOVE WEST,MAZEA.85 AT MAZEA.84 MOVE NORTH,MAZEA.57.PIT MOVE WEST,MAZEA.83 MOVE NW,MAZEA.114 AT MAZEA.85 MOVE EAST,MAZEA.83 MOVE OUT,MAZEA.83 AT MAZEA.86 MOVE UP,MAZEA.52 MOVE OUT,MAZEA.52 AT MAZEA.87 MOVE UP,MAZEA.45 MOVE DOWN,MAZEA.45 AT NARROWCORRIDOR MOVE DOWN,WESTPIT MOVE CLIMB,WESTPIT MOVE EAST,WESTPIT MOVE WEST,GIANT MOVE GIANT,GIANT AT NARROWCORRIDOR KEYWORD JUMP GOTO WESTPIT CALL SPLATTER AT INCLINE MOVE NORTH,CAVERN MOVE CAVERN,CAVERN MOVE PASSAGE,CAVERN SMOVE DOWN,LOW,OOF SMOVE CLIMB,LOW,OOF AT GIANT MOVE SOUTH,NARROWCORRIDOR MOVE CORRIDOR,NARROWCORRIDOR MOVE EAST,TUNNEL.1 MOVE NORTH,IMMENSENSPASS AT IMMENSENSPASS MOVE SOUTH,GIANT MOVE GIANT,GIANT MOVE PASSAGE,GIANT AT IMMENSENSPASS ANYOF NORTH,ENTER,CAVERN IFEQ DOOR,0 SAY DOORNEEDSOIL ELSE GOTO CAVERN FIN QUIT AT CAVERN MOVE SOUTH,IMMENSENSPASS MOVE OUT,IMMENSENSPASS MOVE GIANT,GIANT MOVE WEST,INCLINE MOVE INCLINE,INCLINE AT CAVERN ANYOF DOWN,JUMP {jumping into whirlpool} QUERY WHIRLPOOL? LDA J,LAMP SET K,0 ITOBJ I IFHAVE I AND NOT IFEQ I,J APPORT I,YLEM ADD K,1 FIN EOI IFHAVE LAMP SET INVCT,1 IFEQ K,0 SAY FLOW.DOWN ELSE SAY FLOW.RIP FIN ELSE SET INVCT,0 IFEQ K,0 SAY FLOW.DARK ELSE SAY FLOW.D.RIP FIN FIN GOTO RESERVOIR.N SAY WHIRL.LAND ELSE SAY OK FIN QUIT AT SOFT MOVE WEST,SWISS MOVE OUT,SWISS MOVE SWISS,SWISS AT ORIENTAL MOVE SE,SWISS MOVE WEST,LOW MOVE CRAWL,LOW MOVE UP,MISTY MOVE NORTH,MISTY MOVE CAVERN,MISTY AT MISTY MOVE SOUTH,ORIENTAL MOVE ORIENTAL,ORIENTAL MOVE WEST,ALCOVE AT MISTY KEYWORD JUMP GOTO CAVERN CALL SPLATTER QUIT AT ALCOVE ANYOF EAST,PASSAGE,PLOVER IFEQ INVCT,0 GOTO PLOVER ELSE IFEQ INVCT,1 IFHAVE EMERALD GOTO PLOVER ELSE SAY WONT..FIT FIN ELSE SAY WONT..FIT FIN FIN QUIT AT ALCOVE MOVE NW,MISTY MOVE CAVERN,MISTY AT PLOVER AT PLOVER {'cause can get here via "SAY PLOVER" too} KEYWORD PLOVER IFEQ STATUS,1 OR IFKEY SAY IFHAVE EMERALD DROP EMERALD FIN SAY FOOF GOTO Y2 SET THERE,0 { bug fix. K.C.W } QUIT FIN AT PLOVER ANYOF WEST,PASSAGE,ALCOVE IFEQ INVCT,0 GOTO ALCOVE ELSE IFEQ INVCT,1 IFHAVE EMERALD GOTO ALCOVE ELSE SAY WONT..FIT FIN ELSE SAY WONT..FIT FIN FIN QUIT AT PLOVER MOVE NE,DARK MOVE DARK,DARK AT DARK MOVE SOUTH,PLOVER MOVE PLOVER,PLOVER MOVE OUT,PLOVER AT ARCHED MOVE DOWN,SHELL MOVE SHELL,SHELL MOVE UP,ARCH.COR.1 MOVE EAST,ARCH.COR.1 AT SHELL MOVE UP,ARCHED MOVE HALL,ARCHED MOVE DOWN,RAGGEDCORRID MOVE CORRIDOR,RAGGEDCORRID AT SHELL ANYOF SOUTH,COMPLEX IFHAVE CLAM SAY CLAM.2.BIG ELSE IFHAVE OYSTER SAY OYSTER.2.BIG ELSE GOTO COMPLEX EOF QUIT AT RAGGEDCORRID MOVE UP,SHELL MOVE SHELL,SHELL MOVE DOWN,CULDESAC AT CULDESAC MOVE UP,RAGGEDCORRID MOVE OUT,RAGGEDCORRID MOVE CORRIDOR,RAGGEDCORRID MOVE SHELL,SHELL AT ANTEROOM MOVE UP,COMPLEX MOVE WEST,BEDQUILT MOVE EAST,WITTSEND AT MAZED.107 MOVE SOUTH,MAZED.131 MOVE SW,MAZED.132 MOVE NE,MAZED.133 MOVE SE,MAZED.134 MOVE UP,MAZED.135 MOVE NW,MAZED.136 MOVE EAST,MAZED.137 MOVE WEST,MAZED.138 MOVE NORTH,MAZED.139 MOVE DOWN,LONGHALLWEST AT WITTSEND ANYOF NORTH,SOUTH,EAST,UP,DOWN,NE,NW,SE,SW CHANCE 95 GOTO WITTSEND ELSE GOTO ANTEROOM FIN QUIT AT WITTSEND KEYWORD WEST GOTO WITTSEND QUIT AT MIRRORCNYN KEYWORD MIRROR SAY TOO.FAR.UP QUIT AT MIRRORCNYN MOVE SOUTH,SECRETNSCYN MOVE NORTH,RESERVOIR MOVE RESERVOIR,RESERVOIR AT WINDOW2 MOVE WEST,SECRETJUNCTION AT WINDOW2 KEYWORD JUMP SAY BROKENECK GOTO MIRRORCNYN CALL CORONER AT STALACT MOVE NORTH,SECRETNSCPAS AT STALACT ANYOF DOWN,JUMP,CLIMB CHANCE 40 GOTO MAZEA.50 ELSE CHANCE 50 GOTO MAZEA.53 ELSE GOTO MAZEA.45 EOF QUIT AT MAZED.112 MOVE SW,MAZED.131 MOVE NORTH,MAZED.132 MOVE EAST,MAZED.133 MOVE NW,MAZED.134 MOVE SE,MAZED.135 MOVE NE,MAZED.136 MOVE WEST,MAZED.137 MOVE DOWN,MAZED.138 MOVE UP,MAZED.139 MOVE SOUTH,MAZED.140 AT RESERVOIR MOVE SOUTH,MIRRORCNYN MOVE OUT,MIRRORCNYN MOVE MIRROR,MIRRORCNYN IFKEY BACK { bug fix. K.C.W. } LDA I,RESERVOIR.N IFEQ I,THERE SAY CANT.SWIM QUIT FIN FIN ANYOF NORTH,CROSS SAY CANT.SWIM QUIT AT RESERVOIR.N MOVE NORTH,WARM MOVE PASSAGE,WARM MOVE WARM,WARM MOVE BALCONY,BALCONY IFKEY BACK { bug fix. K.C.W } LDA I,CAVERN IFEQ I,THERE SAY IAMGAME QUIT FIN LDA I,RESERVOIR IFEQ I,THERE SAY CANT.SWIM QUIT FIN FIN ANYOF SOUTH,CROSS IFNEAR TURTLE SAY TURTLE.BACK APPORT TURTLE,LIMBO GOTO RESERVOIR ELSE SAY CANT.SWIM FIN QUIT AT WARM MOVE SOUTH,RESERVOIR.N MOVE RESERVOIR,RESERVOIR.N MOVE NORTHEAST,BALCONY MOVE BALCONY,BALCONY AT BALCONY MOVE WEST,WARM MOVE OUT,WARM MOVE WARM,WARM MOVE RESERVOIR,RESERVOIR.N KEYWORD JUMP GOTO YLEM CALL SPLATTER AT MAZEA.114 MOVE SE,MAZEA.84 AT SWOFCHASM MOVE SW,SLOPING MOVE SLOPING,SLOPING MOVE CORRIDOR,SLOPING AT SWOFCHASM KEYWORD THROW IFEQ STATUS,1 OR IFNEAR TROLL2 PROCEED ELSE IFKEY AXE OR IFKEY SWORD IFHAVE ARG2 NAME EL.CHEAPO,ARG2 DROP ARG2 ELSE PROCEED FIN ELSE BIT ARG2,OBJECT BIT ARG2,VALUED IFHAVE ARG2 IFKEY EGGS BIT TROLL,SPECIAL1 SET TROLL,6 {wary} SAY TROLL SET TROLL,0 APPORT EGGS,YLEM {destroy eggs} QUIT FIN FIN NAME BOUGHTHIMOFF,ARG2 SET TROLL,1 APPORT TROLL,LIMBO APPORT TROLL2,SWOFCHASM APPORT ARG2,LIMBO ELSE PROCEED FIN ELSE PROCEED FIN ELSE PROCEED FIN FIN FIN QUIT AT SWOFCHASM ANYOF CROSS,NE IFGT CHASM,0 SAY NO.BRIDGE ELSE IFEQ TROLL,0 SAY TROLL.SEZ.NO ELSE IFEQ TROLL,2 SET TROLL,3 SAY TROLL SET TROLL,0 APPORT TROLL,SWOFCHASM APPORT TROLL2,LIMBO ELSE IFEQ TROLL,1 SET TROLL,2 FIN GOTO NEOFCHASM FIN FIN FIN QUIT AT SWOFCHASM KEYWORD JUMP IFEQ CHASM,0 SAY TRYTHEBRIDGE ELSE GOTO YLEM CALL SPLATTER FIN QUIT AT SLOPING MOVE DOWN,LOW MOVE UP,SWOFCHASM MOVE CHASM,SWOFCHASM MOVE LOW,LOW MOVE OUT,LOW AT SECRETCYNNE1 KEYWORD RUG IFEQ DRAGON,0 SAY DRAGON.RUG QUIT FIN AT SECRETCYNNE1 MOVE NORTH,SECRETNSCYN MOVE OUT,SECRETNSCYN AT SECRETCYNNE1 ANYOF FORWARD,EAST IFEQ DRAGON,0 SAY PAST.DRAGON ELSE GOTO SECRETEW.TITE FIN QUIT AT SECRETCYNNE2 KEYWORD RUG IFEQ DRAGON,0 SAY DRAGON.RUG QUIT FIN AT SECRETCYNNE2 MOVE EAST,SECRETEW.TITE MOVE OUT,SECRETEW.TITE AT SECRETCYNNE2 ANYOF FORWARD,NORTH IFEQ DRAGON,0 SAY PAST.DRAGON ELSE GOTO SECRETNSCYN FIN QUIT AT NEOFCHASM KEYWORD RELEASE,BEAR HAVE BEAR NEAR TROLL SET TROLL,4 SAY BEAR..TROLL APPORT TROLL,LIMBO APPORT TROLL2,SWOFCHASM DROP BEAR QUIT AT NEOFCHASM KEYWORD THROW IFEQ STATUS,1 OR IFNEAR TROLL2 PROCEED ELSE IFKEY AXE OR IFKEY SWORD IFHAVE ARG2 NAME EL.CHEAPO,ARG2 DROP ARG2 ELSE PROCEED FIN ELSE BIT ARG2,OBJECT BIT ARG2,VALUED IFHAVE ARG2 IFKEY EGGS BIT TROLL,SPECIAL1 SET TROLL,6 {wary} SAY TROLL SET TROLL,0 APPORT EGGS,YLEM {destroy eggs} QUIT FIN FIN NAME BOUGHTHIMOFF,ARG2 SET TROLL,1 APPORT TROLL,LIMBO APPORT TROLL2,SWOFCHASM APPORT ARG2,LIMBO ELSE PROCEED FIN ELSE PROCEED FIN ELSE PROCEED FIN FIN FIN QUIT AT NEOFCHASM ANYOF CROSS,SW IFGT CHASM,0 SAY NO.BRIDGE ELSE IFEQ TROLL,0 SAY TROLL.SEZ.NO ELSE IFEQ TROLL,2 SET TROLL,3 SAY TROLL SET TROLL,0 APPORT TROLL,SWOFCHASM APPORT TROLL2,LIMBO ELSE IFEQ TROLL,1 SET TROLL,2 FIN IFHAVE BEAR SAY BEAR..BRIDGE SET CHASM,1 APPORT TROLL2,LIMBO GOTO YLEM CALL CORONER ELSE IFEQ TROLL,4 {scared him off?} AND BIT TROLL,SPECIAL1 {already stole eggs back?} IFNEAR BEAR GET BEAR SET CHASM,1 SAY REVENGE ELSE SET CHASM,2 SAY REVENGE.1 FIN APPORT TROLL2,LIMBO GOTO YLEM CALL CORONER ELSE GOTO SWOFCHASM FIN FIN FIN FIN FIN QUIT AT NEOFCHASM KEYWORD JUMP IFEQ CHASM,0 SAY TRYTHEBRIDGE ELSE GOTO YLEM CALL SPLATTER FIN QUIT AT NEOFCHASM MOVE NE,CORRIDOR MOVE CORRIDOR,CORRIDOR MOVE FORK,FORK MOVE VIEW,BREATHTAKER MOVE BARREN,BARREN AT CORRIDOR MOVE CHASM,NEOFCHASM MOVE WEST,NEOFCHASM MOVE EAST,FORK MOVE FORK,FORK MOVE VIEW,BREATHTAKER MOVE BARREN,BARREN AT FORK MOVE CHASM,NEOFCHASM MOVE WEST,CORRIDOR MOVE CORRIDOR,CORRIDOR MOVE NE,WARMJUNCTN MOVE LEFT,WARMJUNCTN MOVE SE,LIMESTONE MOVE RIGHT,LIMESTONE MOVE DOWN,LIMESTONE MOVE VIEW,BREATHTAKER MOVE BARREN,BARREN AT WARMJUNCTN MOVE SOUTH,FORK MOVE FORK,FORK MOVE NORTH,BREATHTAKER MOVE VIEW,BREATHTAKER MOVE EAST,BOULDERS MOVE CRAWL,BOULDERS AT BREATHTAKER MOVE SOUTH,WARMJUNCTN MOVE PASSAGE,WARMJUNCTN MOVE OUT,WARMJUNCTN MOVE FORK,FORK IFKEY BACK { bug fix. K.C.W. } LDA I,FACES IFEQ I,THERE AND IFEQ GORGE,0 { no bridge } SAY NO.ARCH QUIT FIN FIN AT BREATHTAKER ANYOF JUMP,DOWN,CLIMB GOTO YLEM CALL SPLATTER * let him plummet to a painful death. AT BREATHTAKER ANYOF VALLEY,CROSS,GORGE,NORTH IFEQ GORGE,0 SAY NO.ARCH ELSE IFHAVE BEAR SAY LEAVE.BEAR ELSE IFHAVE RING NOT BIT FACES,BEENHERE SAY FUMES.MISS FIN GOTO FACES ELSE SAY FUMES.BURN GOTO YLEM CALL CORONER FIN FIN FIN QUIT AT BOULDERS MOVE WEST,WARMJUNCTN MOVE OUT,WARMJUNCTN MOVE CRAWL,WARMJUNCTN MOVE FORK,FORK MOVE VIEW,BREATHTAKER AT LIMESTONE MOVE NORTH,FORK MOVE UP,FORK MOVE FORK,FORK MOVE SOUTH,BARREN MOVE DOWN,BARREN MOVE BARREN,BARREN MOVE VIEW,BREATHTAKER AT BARREN MOVE WEST,LIMESTONE MOVE UP,LIMESTONE MOVE FORK,FORK MOVE EAST,BEARHERE MOVE INWARD,BEARHERE MOVE BARREN,BEARHERE MOVE ENTER,BEARHERE MOVE VIEW,BREATHTAKER AT BEARHERE KEYWORD GET,AXE NEAR AXE IFHAVE AXE OR IFEQ AXE,0 PROCEED ELSE NAME CANTGETAXE,ARG2 QUIT FIN AT BEARHERE MOVE WEST,BARREN MOVE OUT,BARREN MOVE FORK,FORK MOVE VIEW,BREATHTAKER AT MAZED.131 MOVE WEST,MAZED.107 MOVE SE,MAZED.132 MOVE NW,MAZED.133 MOVE SW,MAZED.134 MOVE NE,MAZED.135 MOVE UP,MAZED.136 MOVE DOWN,MAZED.137 MOVE NORTH,MAZED.138 MOVE SOUTH,MAZED.139 MOVE EAST,MAZED.112 AT MAZED.132 MOVE NW,MAZED.107 MOVE UP,MAZED.131 MOVE NORTH,MAZED.133 MOVE SOUTH,MAZED.134 MOVE WEST,MAZED.135 MOVE SW,MAZED.136 MOVE NE,MAZED.137 MOVE EAST,MAZED.138 MOVE DOWN,MAZED.139 MOVE SE,MAZED.112 AT MAZED.133 MOVE UP,MAZED.107 MOVE DOWN,MAZED.131 MOVE WEST,MAZED.132 MOVE NE,MAZED.134 MOVE SW,MAZED.135 MOVE EAST,MAZED.136 MOVE NORTH,MAZED.137 MOVE NW,MAZED.138 MOVE SE,MAZED.139 MOVE SOUTH,MAZED.112 AT MAZED.134 MOVE NE,MAZED.107 MOVE NORTH,MAZED.131 MOVE NW,MAZED.132 MOVE SE,MAZED.133 MOVE EAST,MAZED.135 MOVE DOWN,MAZED.136 MOVE SOUTH,MAZED.137 MOVE UP,MAZED.138 MOVE WEST,MAZED.139 MOVE SW,MAZED.112 AT MAZED.135 MOVE NORTH,MAZED.107 MOVE SE,MAZED.131 MOVE DOWN,MAZED.132 MOVE SOUTH,MAZED.133 MOVE EAST,MAZED.134 MOVE WEST,MAZED.136 MOVE SW,MAZED.137 MOVE NE,MAZED.138 MOVE NW,MAZED.139 MOVE UP,MAZED.112 AT MAZED.136 MOVE EAST,MAZED.107 MOVE WEST,MAZED.131 MOVE UP,MAZED.132 MOVE SW,MAZED.133 MOVE DOWN,MAZED.134 MOVE SOUTH,MAZED.135 MOVE NW,MAZED.137 MOVE SE,MAZED.138 MOVE NE,MAZED.139 MOVE NORTH,MAZED.112 AT MAZED.137 MOVE SE,MAZED.107 MOVE NE,MAZED.131 MOVE SOUTH,MAZED.132 MOVE DOWN,MAZED.133 MOVE UP,MAZED.134 MOVE NW,MAZED.135 MOVE NORTH,MAZED.136 MOVE SW,MAZED.138 MOVE EAST,MAZED.139 MOVE WEST,MAZED.112 AT MAZED.138 MOVE DOWN,MAZED.107 MOVE EAST,MAZED.131 MOVE NE,MAZED.132 MOVE UP,MAZED.133 MOVE WEST,MAZED.134 MOVE NORTH,MAZED.135 MOVE SOUTH,MAZED.136 MOVE SE,MAZED.137 MOVE SW,MAZED.139 MOVE NW,MAZED.112 AT MAZED.139 MOVE SW,MAZED.107 MOVE NW,MAZED.131 MOVE EAST,MAZED.132 MOVE WEST,MAZED.133 MOVE NORTH,MAZED.134 MOVE DOWN,MAZED.135 MOVE SE,MAZED.136 MOVE UP,MAZED.137 MOVE SOUTH,MAZED.138 MOVE NE,MAZED.112 AT MAZED.140 MOVE NORTH,MAZED.112 MOVE OUT,MAZED.112 AT MAZED.140 KEYWORD DROP,COINS HAVE COINS APPORT COINS,LIMBO APPORT BATTERIES,HERE SAY OK SAY BATTERIES QUIT AT LIMBO MOVE OUT,BUILDING *kludge* AT SANDSTONE MOVE WEST,MISTS MOVE OUT,MISTS MOVE MISTS,MISTS AT MORION MOVE SOUTH,MTKING MOVE OUT,MTKING AT VAULT ANYOF UP,OUT,NORTH IFEQ SAFE,1 SAY SAFE.BLOCKS ELSE GOTO MTKING FIN QUIT AT VAULT IFKEY BACK { bug fix. K.C.W. } LDA I,INSAFE IFEQ I,THERE AND IFEQ SAFE,0 { closed } SAY CANTENTERSAFE QUIT FIN FIN KEYWORD IN IFEQ SAFE,1 SET SAFEEXIT,HERE GOTO INSAFE ELSE SAY CANTENTERSAFE FIN QUIT AT INSAFE {inside the safe - strange stuff happens here!} KEYWORD OUT {it's the only way you can go} GOTO SAFEEXIT {which was set when you came in} QUIT AT INSAFE {special handling for the safe, within the safe!} KEYWORD SAFE IFEQ STATUS,1 NAME WHAT.DO,ARG2 ELSE IFKEY CLOSE SAY NO.HANDLE ELSE IFKEY OPEN NAME ALREADY.OPEN,ARG2 ELSE SAY HAH! FIN FIN FIN QUIT AT CORRID.1 MOVE SOUTH,MTKING MOVE NORTH,CORRID.2 AT CORRID.2 MOVE SOUTH,CORRID.1 MOVE WEST,CORRID.1 MOVE NORTH,TOOL MOVE EAST,TOOL AT TOOL MOVE OUT,CORRID.2 MOVE SOUTH,CORRID.2 AT CORRID.3 MOVE SOUTH,MTKING MOVE NORTH,SPHERICAL MOVE EAST,CUBICLE AT CUBICLE MOVE OUT,CORRID.3 MOVE CORRIDOR,CORRID.3 MOVE SOUTH,CORRID.3 AT SPHERICAL MOVE OUT,CORRID.3 MOVE NORTH,CORRID.3 MOVE CORRIDOR,CORRID.3 AT TUNNEL.1 MOVE SOUTH,GIANT MOVE NORTH,GLASSY AT GLASSY MOVE SOUTH,TUNNEL.1 AT GLASSY ANYOF NORTH,LAIR IFNEAR OGRE SAY OGRE.BLOCKS ELSE GOTO LAIR FIN QUIT AT LAIR MOVE EAST,BRINK.1 MOVE WEST,GLASSY AT BRINK.1 MOVE NORTH,LAIR MOVE WEST,BRINK.2 MOVE EAST,BRINK.3 MOVE NORTH,LAIR AT BRINK.1 KEYWORD JUMP CALL PLUNGE AT BRINK.2 MOVE NORTH,BRINK.1 MOVE SOUTHEAST,ICE AT BRINK.2 KEYWORD JUMP CALL PLUNGE AT ICE MOVE NORTHWEST,BRINK.2 SMOVE DOWN,SLIDE,OOF SMOVE EAST,SLIDE,OOF SMOVE SLIDE,SLIDE,OOF AT SLIDE ANYOF SLIDE,UP,NORTH,CLIMB SAY SLIDE.SLIPPERY QUIT AT SLIDE MOVE SOUTH,ICECAVE.2A MOVE NORTHWEST,ICECAVE.4 AT ICECAVE.1 MOVE WEST,ICECAVE.2 MOVE NORTH,ICECAVE.1A AT ICECAVE.1A MOVE SOUTH,ICECAVE.1 AT ICECAVE.2 MOVE EAST,ICECAVE.1 MOVE WEST,ICECAVE.3 MOVE NORTH,ICECAVE.2A AT ICECAVE.2A MOVE NORTH,SLIDE MOVE SOUTH,ICECAVE.2 AT ICECAVE.3 MOVE EAST,ICECAVE.2 MOVE NORTH,ICECAVE.3A AT ICECAVE.3A MOVE SOUTH,ICECAVE.3 AT ICECAVE.4 MOVE EAST,SLIDE MOVE WEST,ICECAVE.5 AT ICECAVE.5 MOVE NORTHEAST,ICECAVE.4 MOVE SOUTH,ICECAVE.6 AT ICECAVE.6 MOVE NORTH,ICECAVE.5 MOVE SOUTH,ICECAVE.7 MOVE WEST,ICECAVE.9 AT ICECAVE.7 MOVE NORTH,ICECAVE.6 AT ICECAVE.8 MOVE NORTH,ICECAVE.9 AT ICECAVE.9 MOVE EAST,ICECAVE.6 MOVE SOUTH,ICECAVE.8 MOVE NORTH,ICECAVE.10 AT ICECAVE.10 MOVE SOUTH,ICECAVE.9 MOVE NORTHWEST,ICECAVE.11 AT ICECAVE.11 MOVE EAST,ICECAVE.10 MOVE WEST,ICECAVE.12 AT ICECAVE.12 MOVE NORTHEAST,ICECAVE.11 MOVE SOUTH,ICECAVE.12A MOVE WEST,ICECAVE.15 AT ICECAVE.12A MOVE NORTH,ICECAVE.12 MOVE SOUTH,ICECAVE.13 AT ICECAVE.13 MOVE NORTH,ICECAVE.12A AT ICECAVE.14 MOVE NORTH,ICECAVE.15A AT ICECAVE.15 MOVE EAST,ICECAVE.12 MOVE SOUTH,ICECAVE.15A MOVE NORTHWEST,ICECAVE.16 AT ICECAVE.15A MOVE SOUTH,ICECAVE.14 MOVE NORTH,ICECAVE.15 AT ICECAVE.16 MOVE EAST,ICECAVE.15 MOVE WEST,ICECAVE.17 AT ICECAVE.17 MOVE NORTHEAST,ICECAVE.16 MOVE SOUTH,ICECAVE.18 AT ICECAVE.18 MOVE NORTH,ICECAVE.17 MOVE SOUTH,ICECAVE.19 MOVE WEST,ICECAVE.21 MOVE NORTHWEST,ICECAVE.22 AT ICECAVE.19 MOVE NORTH,ICECAVE.18 MOVE WEST,ICECAVE.20 AT ICECAVE.20 MOVE EAST,ICECAVE.19 MOVE NORTH,ICECAVE.21 AT ICECAVE.21 MOVE EAST,ICECAVE.18 MOVE SOUTH,ICECAVE.20 AT ICECAVE.22 MOVE SOUTHEAST,ICECAVE.18 MOVE NORTHWEST,ICECAVE.23 AT ICECAVE.23 MOVE EAST,ICECAVE.22 MOVE WEST,ICECAVE.24 AT ICECAVE.24 MOVE NORTHEAST,ICECAVE.23 MOVE SOUTH,ICECAVE.25 MOVE WEST,ICECAVE.29 AT ICECAVE.25 MOVE NORTH,ICECAVE.24 MOVE SOUTH,ICECAVE.26 MOVE WEST,ICECAVE.28 MOVE NORTHWEST,ICECAVE.28A AT ICECAVE.26 MOVE NORTH,ICECAVE.25 MOVE NORTHWEST,ICECAVE.27 AT ICECAVE.27 MOVE SOUTHEAST,ICECAVE.26 MOVE NORTH,ICECAVE.28 AT ICECAVE.28 MOVE EAST,ICECAVE.25 MOVE SOUTH,ICECAVE.27 AT ICECAVE.28A MOVE SOUTHEAST,ICECAVE.25 MOVE NORTH,ICECAVE.29 AT ICECAVE.29 MOVE EAST,ICECAVE.24 MOVE SOUTH,ICECAVE.28A MOVE NORTHWEST,ICECAVE.30 AT ICECAVE.30 MOVE EAST,ICECAVE.29 SMOVE THURB,ICE,FOOF AT BRINK.3 MOVE NORTH,BRINK.1 MOVE NORTHEAST,CRACK.1 MOVE CRACK,CRACK.1 AT BRINK.3 KEYWORD JUMP CALL PLUNGE AT CRACK.1 MOVE SOUTHWEST,BRINK.3 MOVE SOUTHEAST,CRACK.2 AT CRACK.2 MOVE WEST,CRACK.1 AT CRACK.2 KEYWORD SOUTH IFNEAR SLIME SAY SLIMED CALL CORONER ELSE GOTO CRACK.3 FIN QUIT AT CRACK.3 MOVE NORTH,CRACK.2 MOVE SOUTH,CRACK.4 MOVE CRAWL,CRACK.4 AT CRACK.4 MOVE NORTH,CRACK.3 MOVE OUT,CRACK.3 MOVE CRAWL,CRACK.3 AT ARCH.COR.1 MOVE WEST,ARCHED AT ARCH.COR.1 KEYWORD EAST IFEQ QUICKSAND,0 OR IFHAVE CLAM OR IFHAVE OYSTER SET QUICKSAND,0 BIT QUICKSAND,SPECIAL1 SAY SCHLURP2 ELSE SAY SCHLURP BIS QUICKSAND,SPECIAL1 FIN GOTO YLEM CALL CORONER ELSE GOTO ARCH.COR.2 SET QUICKSAND,0 FIN QUIT AT ARCH.COR.2 MOVE NORTH,ARCH.FORK AT ARCH.COR.2 KEYWORD WEST IFEQ QUICKSAND,0 BIT QUICKSAND,SPECIAL1 SAY SCHLURP2 ELSE SAY SCHLURP BIS QUICKSAND,SPECIAL1 FIN GOTO YLEM CALL CORONER ELSE GOTO ARCH.COR.1 SET QUICKSAND,0 FIN QUIT AT ARCH.FORK MOVE SOUTH,ARCH.COR.2 MOVE NORTH,FOURIER MOVE EAST,JONAH MOVE JONAH,JONAH MOVE FOURIER,FOURIER AT FOURIER MOVE NORTHWEST,ARCH.FORK MOVE SOUTHWEST,SHELF AT SHELF MOVE WEST,FOURIER MOVE DOWN,BEACH MOVE STEPS,BEACH AT BEACH ANYOF UP,SHELF,STEPS,WEST SET DINGHY,1 GOTO SHELF QUIT AT BEACH ANYOF WATER,FILL,DRINK SAY SALT.H20.BAD QUIT AT JONAH MOVE SOUTH,IN.JONAH MOVE WEST,ARCH.FORK AT IN.JONAH MOVE NORTH,JONAH MOVE OUT,JONAH AT FACES MOVE NORTH,BY.FIGURE IFKEY BACK { bug fix. K.C.W. } LDA I,BREATHTAKER IFEQ I,THERE AND IFEQ GORGE,0 { no bridge } SAY NO.ARCH QUIT FIN FIN AT FACES ANYOF CROSS,GORGE,SOUTH IFEQ GORGE,0 SAY NO.ARCH ELSE IFHAVE RING IFHAVE SCEPTRE SAY GHOST.BANG GOTO YLEM SET GORGE,0 CALL CORONER ELSE GOTO BREATHTAKER FIN ELSE SAY FUMES.BURN GOTO YLEM CALL CORONER FIN FIN QUIT AT BY.FIGURE IFEQ STATUE,1 MOVE NORTHWEST,PLAIN.1 MOVE NORTH,BASQUE.1 MOVE NORTHEAST,BANSHEE.1 FIN MOVE SOUTH,FACES AT PLAIN.1 MOVE SOUTH,BY.FIGURE IFKEY NORTH SET FOG,0 APPORT FOG,PLAIN.2 GOTO PLAIN.2 QUIT FIN AT PLAIN.2 ANYOF NORTH,EAST,SOUTH,WEST ANYOF NE,NW,SE,SW ITLIST I {if this turkey left anything here in the fog,} IFNEAR I AND NOT IFHAVE I AND BIT I,PORTABLE {he's going to lose it forever!} APPORT I,YLEM FIN EOI LDA I,EAST ADD I,GLOW IFEQ I,ARG2 AND IFEQ STATUS,2 OR IFEQ I,ARG1 AND IFNEAR GLOW {by luck? or did he know for sure?} GOTO PLAIN.3 SET FOG,8 {so it's not obvious} ELSE GOTO PLAIN.2 {bad moves - stumble back here!} FIN QUIT AT PLAIN.3 IFKEY DOWN GOTO NONDESCRIPT APPORT FOG,PLAIN.1 QUIT FIN AT PLAIN.3 ANYOF NORTH,EAST,SOUTH,WEST ANYOF NE,NW,SE,SW GOTO PLAIN.2 SET FOG,0 {so it starts changing again} QUIT AT NONDESCRIPT MOVE NORTH,PENTAGRAM MOVE PENTAGRAM,PENTAGRAM AT NONDESCRIPT ANYOF UP,SOUTH APPORT FOG,PLAIN.2 GOTO PLAIN.3 QUIT AT PENTAGRAM KEYWORD FLASK ANYOF DROP,THROW HAVE FLASK IFEQ FLASK,1 DROP FLASK SAY SET.FLASK.DOWN SET FLASK,0 QUIT FIN AT PENTAGRAM MOVE WEST,NONDESCRIPT MOVE OUT,NONDESCRIPT MOVE NONDESCRIPT,NONDESCRIPT MOVE NORTH,CHIMNEY MOVE CRACK,CHIMNEY MOVE CHIMNEY,CHIMNEY AT CHIMNEY MOVE UP,TUBE MOVE CLIMB,TUBE MOVE TUBE,TUBE MOVE SOUTH,PENTAGRAM MOVE PENTAGRAM,PENTAGRAM MOVE CRACK,PENTAGRAM AT TUBE MOVE DOWN,CHIMNEY MOVE CHIMNEY,CHIMNEY MOVE CLIMB,CHIMNEY MOVE TUBE,TUBE.SLIDE MOVE SLIDE,TUBE.SLIDE MOVE SOUTH,TUBE.SLIDE AT TUBE.SLIDE SMOVE SOUTH,PLAIN.1,OOF SMOVE DOWN,PLAIN.1,OOF SMOVE SLIDE,PLAIN.1,OOF MOVE NORTH,TUBE MOVE CHIMNEY,CHIMNEY MOVE TUBE,CHIMNEY AT BASQUE.1 MOVE SOUTH,BY.FIGURE IFKEY NORTH GOTO BASQUE.2 ADD BASILISK,1 IFEQ BASILISK,1 SAY BAS.GRUMBLE FIN QUIT FIN AT BASQUE.2 MOVE NORTH,BASQUE.FORK IFKEY SOUTH SUB BASILISK,1 IFEQ BASILISK,0 IFHAVE PLATE SAY PETRIFY.SELF SET BASILISK,2 ELSE SAY PETRIFY.ME CALL CORONER FIN FIN GOTO BASQUE.1 QUIT FIN AT BASQUE.FORK MOVE NORTH,PEELGRUNT MOVE PEELGRUNT,PEELGRUNT MOVE SOUTH,BASQUE.2 MOVE DOWN,ON.STEPS MOVE STEPS,ON.STEPS AT PEELGRUNT ANYOF SOUTH,OUT,FORK IFEQ SAFE,1 SAY SAFE.BLOCKS ELSE GOTO BASQUE.FORK FIN QUIT AT PEELGRUNT IFKEY BACK { bug fix. K.C.W. } LDA I,INSAFE IFEQ I,THERE AND IFEQ SAFE,0 { closed } SAY CANTENTERSAFE QUIT FIN FIN KEYWORD IN IFEQ SAFE,1 SET SAFEEXIT,HERE GOTO INSAFE ELSE SAY CANTENTERSAFE FIN QUIT AT ON.STEPS MOVE UP,BASQUE.FORK MOVE DOWN,STEPS.EXIT MOVE STEPS,STEPS.EXIT AT STEPS.EXIT MOVE UP,ON.STEPS MOVE DOWN,STORAGE MOVE NORTH,FAKE.Y2 MOVE STEPS,STORAGE MOVE EXIT,FAKE.Y2 AT STORAGE MOVE UP,STEPS.EXIT MOVE STEPS,STEPS.EXIT AT FAKE.Y2 MOVE SOUTH,STEPS.EXIT MOVE WEST,CATACOMBS.1 MOVE EAST,FAKE.JUMBLE AT FAKE.Y2 ANYOF PLUGH,PLOVER BIT ADMIN,NOMAGIC SAY NOTHING ELSE SAY FOOF GOTO PLATFORM FIN QUIT AT FAKE.JUMBLE MOVE DOWN,FAKE.Y2 MOVE WEST,FAKE.Y2 MOVE UP,CATACOMBS.1 AT AUDIENCE MOVE EAST,AUDIENCE.E MOVE WEST,CATACOMBS.11 AT AUDIENCE.E MOVE WEST,AUDIENCE AT CATACOMBS.1 MOVE SOUTH,CATACOMBS.2 ANYOF NORTH,NW,WEST,SW,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.1 QUIT AT CATACOMBS.2 MOVE SW,CATACOMBS.3 ANYOF NORTH,NW,WEST,SOUTH,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.1 QUIT AT CATACOMBS.3 MOVE NW,CATACOMBS.4 ANYOF NORTH,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.2 QUIT AT CATACOMBS.4 MOVE SOUTH,CATACOMBS.5 ANYOF NORTH,NW,WEST,SW,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.3 QUIT AT CATACOMBS.5 MOVE DOWN,CATACOMBS.6 ANYOF NORTH,NW,WEST,SW,SOUTH,SE,EAST,NE,UP GOTO CATACOMBS.4 QUIT AT CATACOMBS.6 MOVE WEST,CATACOMBS.7 ANYOF NORTH,NW,SW,SOUTH,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.5 QUIT AT CATACOMBS.7 MOVE NW,CATACOMBS.8 ANYOF NORTH,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.6 QUIT AT CATACOMBS.8 MOVE NORTH,CATACOMBS.9 ANYOF NW,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.7 QUIT AT CATACOMBS.9 MOVE SOUTH,CATACOMBS.10 ANYOF NORTH,NW,WEST,SW,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.8 QUIT AT CATACOMBS.10 MOVE NORTH,CATACOMBS.11 ANYOF NW,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.9 QUIT AT CATACOMBS.11 MOVE SW,CATACOMBS.12 MOVE EAST,AUDIENCE ANYOF NORTH,NW,WEST,SOUTH,SE,NE,UP,DOWN GOTO CATACOMBS.10 QUIT AT CATACOMBS.12 MOVE EAST,CATACOMBS.13 ANYOF NORTH,NW,WEST,SW,SOUTH,SE,NE,UP,DOWN GOTO CATACOMBS.11 QUIT AT CATACOMBS.13 MOVE SE,CATACOMBS.14 ANYOF NORTH,NW,WEST,SW,SOUTH,EAST,NE,UP,DOWN GOTO CATACOMBS.12 QUIT AT CATACOMBS.14 MOVE NE,CATACOMBS.15 ANYOF NORTH,NW,WEST,SW,SOUTH,SE,EAST,UP,DOWN GOTO CATACOMBS.13 QUIT AT CATACOMBS.15 MOVE EAST,CATACOMBS.16 ANYOF NORTH,NW,WEST,SW,SOUTH,SE,NE,UP,DOWN GOTO CATACOMBS.14 QUIT AT CATACOMBS.16 MOVE SE,CATACOMBS.17 ANYOF NORTH,NW,WEST,SW,SOUTH,EAST,NE,UP,DOWN GOTO CATACOMBS.15 QUIT AT CATACOMBS.17 MOVE DOWN,CATACOMBS.18 ANYOF NORTH,NW,WEST,SW,SOUTH,SE,EAST,NE,UP GOTO CATACOMBS.16 QUIT AT CATACOMBS.18 MOVE SOUTH,CATACOMBS.19 ANYOF NORTH,NW,WEST,SW,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.17 QUIT AT CATACOMBS.19 MOVE NORTH,FAKE.Y2 ANYOF NW,WEST,SW,SOUTH,SE,EAST,NE,UP,DOWN GOTO CATACOMBS.18 QUIT AT BANSHEE.1 MOVE NORTHWEST,BY.FIGURE MOVE NORTH,GOLDEN MOVE GOLDEN,GOLDEN AT GOLDEN MOVE NORTHEAST,ARABESQUE MOVE NORTHWEST,TRANSLUCENT MOVE ARABESQUE,ARABESQUE MOVE TRANSLUCENT,TRANSLUCENT MOVE SOUTH,BANSHEE.1 AT ARABESQUE MOVE SOUTH,GOLDEN MOVE OUT,GOLDEN MOVE GOLDEN,GOLDEN AT TRANSLUCENT ANYOF OUT,EAST,GOLDEN NOT BIT GOBLINS,SPECIAL1 BIS GOBLINS,SPECIAL1 APPORT GOBLINS,HERE SET GOBLINS,-1 FIN GOTO GOLDEN QUIT AT PLATFORM SMOVE PLUGH,FAKE.Y2,FOOF SMOVE PLOVER,FAKE.Y2,FOOF AT PLATFORM ANYOF DOWN,CLIMB,NORTH,SOUTH,EAST,WEST,NORTHEAST ANYOF NORTHWEST,SOUTHEAST,SOUTHWEST,JUMP SAY SIZZLE GOTO YLEM CALL CORONER AT CYLINDRICAL ANYOF ZORTON,XYZZY,THURB,SNOEZE,SAMOHT,PLUGH,NOSIDE,MELENKURION ANYOF KNERL,KLAETU,FOO,FOE,FIE,FEE,BLERBI,PHUGGG IFKEY SAY SET I,ARG2 ELSE IFEQ STATUS,1 SET I,ARG1 ELSE SET I,0 FIN FIN LDA J,ZORTON SUB I,J IFEQ I,ESCAPE IFKEY BLERBI SET CLOSURE,4 SAY FOOF GOTO ROAD ELSE SAY OK! ADD ESCAPE,1 FIN ELSE SET ESCAPE,0 SAY NOTHING FIN QUIT