INITIAL SAY BLANK RANDOM I,100 {kick the random number generator} ITOBJ I APPORT I,LIMBO EOI INITIAL * Initialize portability of some objects BIS KEYS,PORTABLE BIS LAMP,PORTABLE BIS CAGE,PORTABLE BIS ROD,PORTABLE BIS DYNAMITE,PORTABLE BIS BIRD,PORTABLE BIS PILLOW,PORTABLE BIS CLAM,PORTABLE BIS OYSTER,PORTABLE BIS MAGAZINES,PORTABLE BIS KNIFE,PORTABLE BIS FOOD,PORTABLE BIS BOTTLE,PORTABLE BIS WATER,PORTABLE BIS OIL,PORTABLE BIS AXE,PORTABLE BIS BEAR,PORTABLE BIS BATTERIES,PORTABLE BIS GOLD,PORTABLE BIS DIAMONDS,PORTABLE BIS SILVER,PORTABLE BIS JEWELRY,PORTABLE BIS COINS,PORTABLE BIS CHEST,PORTABLE BIS EGGS,PORTABLE BIS TRIDENT,PORTABLE BIS VASE,PORTABLE BIS POTTERY,PORTABLE BIS EMERALD,PORTABLE BIS PYRAMID,PORTABLE BIS PEARL,PORTABLE BIS RUG,PORTABLE BIS SPICES,PORTABLE BIS CHAIN,PORTABLE BIS RING,PORTABLE BIS SPYGLASS,PORTABLE BIS BAG,PORTABLE BIS HELMET,PORTABLE BIS TEETH,PORTABLE BIS VIAL,PORTABLE BIS MUSHROOM,PORTABLE BIS SCULPTURE,PORTABLE BIS BRACELET,PORTABLE BIS CASKET,PORTABLE BIS SWORD,PORTABLE BIS CROWN,PORTABLE BIS SCEPTRE,PORTABLE BIS YACHT,PORTABLE BIS FLASK,PORTABLE BIS PLATE,PORTABLE BIS BEADS,PORTABLE INIT * Set FREEBIE objects BIS BIRD,FREEBIE BIS OIL,FREEBIE BIS WATER,FREEBIE BIS BEAR,FREEBIE INIT * Specify which rooms are self-lit (lamp not needed) BIS ROAD,LIT BIS HILL,LIT BIS BUILDING,LIT BIS VALLEY,LIT BIS FOREST,LIT BIS FOREST2,LIT BIS SLIT,LIT BIS FAKE.SLIT,LIT BIS DEPRESSION,LIT BIS INCAVE,LIT BIS COBBLES,LIT BIS PLOVER,LIT BIS BREATHTAKER,LIT BIS LAIR,LIT BIS SHELF,LIT BIS BEACH,LIT BIS PLAIN.2,LIT BIS PLAIN.3,LIT BIS FACES,LIT BIS BY.FIGURE,LIT BIS AUDIENCE,LIT BIS AUDIENCE.E,LIT BIS TRANSLUCENT,LIT BIS PLATFORM,LIT BIS CYLINDRICAL,LIT BIS TREASUREROOM,LIT BIS BALCONY,LIT INITIAL * Set dwarf-inhibits for appropriate places BIS INCAVE,NODWARF BIS COBBLES,NODWARF BIS ALCOVE,NODWARF BIS PLOVER,NODWARF BIS DARK,NODWARF BIS SWOFCHASM,NODWARF BIS NEOFCHASM,NODWARF BIS CORRIDOR,NODWARF BIS FORK,NODWARF BIS WARMJUNCTN,NODWARF BIS BREATHTAKER,NODWARF BIS BOULDERS,NODWARF BIS LIMESTONE,NODWARF BIS BARREN,NODWARF BIS BEARHERE,NODWARF BIS MAZEA.114,NODWARF BIS EASTPIT,NODWARF BIS WESTPIT,NODWARF BIS STREAMPIT,NODWARF BIS FACES,NODWARF BIS BY.FIGURE,NODWARF BIS PLAIN.1,NODWARF BIS PLAIN.2,NODWARF BIS PLAIN.3,NODWARF BIS NONDESCRIPT,NODWARF BIS PENTAGRAM,NODWARF BIS CHIMNEY,NODWARF BIS TUBE,NODWARF BIS TUBE.SLIDE,NODWARF BIS BASQUE.1,NODWARF BIS BASQUE.2,NODWARF BIS BASQUE.FORK,NODWARF BIS PEELGRUNT,NODWARF BIS ON.STEPS,NODWARF BIS STEPS.EXIT,NODWARF BIS STORAGE,NODWARF BIS FAKE.Y2,NODWARF BIS FAKE.JUMBLE,NODWARF BIS CATACOMBS.1,NODWARF BIS CATACOMBS.2,NODWARF BIS CATACOMBS.3,NODWARF BIS CATACOMBS.4,NODWARF BIS CATACOMBS.5,NODWARF BIS CATACOMBS.6,NODWARF BIS CATACOMBS.7,NODWARF BIS CATACOMBS.8,NODWARF BIS CATACOMBS.9,NODWARF BIS CATACOMBS.10,NODWARF BIS CATACOMBS.11,NODWARF BIS CATACOMBS.12,NODWARF BIS CATACOMBS.13,NODWARF BIS CATACOMBS.14,NODWARF BIS CATACOMBS.15,NODWARF BIS CATACOMBS.16,NODWARF BIS CATACOMBS.17,NODWARF BIS CATACOMBS.18,NODWARF BIS CATACOMBS.19,NODWARF BIS AUDIENCE,NODWARF BIS AUDIENCE.E,NODWARF BIS BANSHEE.1,NODWARF BIS GOLDEN,NODWARF BIS ARABESQUE,NODWARF BIS TRANSLUCENT,NODWARF BIS RESERVOIR.N,NODWARF BIS WARM,NODWARF BIS BALCONY,NODWARF BIS INSAFE,NODWARF INITIAL (Specify what places aren't in the cave) BIS ROAD,NOTINCAVE BIS HILL,NOTINCAVE BIS BUILDING,NOTINCAVE BIS VALLEY,NOTINCAVE BIS FOREST,NOTINCAVE BIS FOREST2,NOTINCAVE BIS SLIT,NOTINCAVE BIS DEPRESSION,NOTINCAVE BIS FAKE.SLIT,NOTINCAVE INITIAL {indicate where "BACK" command invalid} * * Most of the rooms in the mazes are NOBACK-type places to give * the adventurer heartburn and a possible ulcer. The two rooms that * are at the very entrances of their respective mazes (MAXEA.42 and * MAZED.107) are not NOBACK-types, so that if you accidentally * wander into the mazes you can escape quickly by saying "GO BACK". * You still can't use "BACK" when in these rooms if you got there * from another room in the maze, because the room you came from * has the "NOBACK" bit set. * BIS MAZEA.43,NOBACK BIS MAZEA.44,NOBACK BIS MAZEA.45,NOBACK BIS MAZEA.46,NOBACK BIS MAZEA.47,NOBACK BIS MAZEA.48,NOBACK BIS MAZEA.49,NOBACK BIS MAZEA.50,NOBACK BIS MAZEA.51,NOBACK BIS MAZEA.52,NOBACK BIS MAZEA.53,NOBACK BIS MAZEA.54,NOBACK BIS MAZEA.55,NOBACK BIS MAZEA.56,NOBACK BIS MAZEA.57.PIT,NOBACK BIS MAZEA.58,NOBACK BIS MAZEA.80,NOBACK BIS MAZEA.81,NOBACK BIS MAZEA.82,NOBACK BIS MAZEA.83,NOBACK BIS MAZEA.84,NOBACK BIS MAZEA.85,NOBACK BIS MAZEA.86,NOBACK BIS MAZEA.87,NOBACK BIS MAZED.112,NOBACK BIS MAZEA.114,NOBACK BIS MAZED.131,NOBACK BIS MAZED.132,NOBACK BIS MAZED.133,NOBACK BIS MAZED.134,NOBACK BIS MAZED.135,NOBACK BIS MAZED.136,NOBACK BIS MAZED.137,NOBACK BIS MAZED.138,NOBACK BIS MAZED.139,NOBACK BIS MAZED.140,NOBACK BIS INCLINE,NOBACK BIS STALACT,NOBACK BIS SWOFCHASM,NOBACK BIS NEOFCHASM,NOBACK BIS WITTSEND,NOBACK BIS ALCOVE,NOBACK BIS PLOVER,NOBACK BIS DARK,NOBACK BIS NSCANYONWIDE,NOBACK BIS ICECAVE.1,NOBACK BIS ICECAVE.2,NOBACK BIS ICECAVE.3,NOBACK BIS ICECAVE.4,NOBACK BIS ICECAVE.5,NOBACK BIS ICECAVE.6,NOBACK BIS ICECAVE.7,NOBACK BIS ICECAVE.8,NOBACK BIS ICECAVE.9,NOBACK BIS ICECAVE.10,NOBACK BIS ICECAVE.11,NOBACK BIS ICECAVE.12,NOBACK BIS ICECAVE.13,NOBACK BIS ICECAVE.14,NOBACK BIS ICECAVE.15,NOBACK BIS ICECAVE.16,NOBACK BIS ICECAVE.17,NOBACK BIS ICECAVE.18,NOBACK BIS ICECAVE.19,NOBACK BIS ICECAVE.20,NOBACK BIS ICECAVE.21,NOBACK BIS SLIDE,NOBACK BIS ICE,NOBACK BIS CATACOMBS.1,NOBACK BIS CATACOMBS.2,NOBACK BIS CATACOMBS.3,NOBACK BIS CATACOMBS.4,NOBACK BIS CATACOMBS.5,NOBACK BIS CATACOMBS.6,NOBACK BIS CATACOMBS.7,NOBACK BIS CATACOMBS.8,NOBACK BIS CATACOMBS.9,NOBACK BIS CATACOMBS.10,NOBACK BIS CATACOMBS.11,NOBACK BIS CATACOMBS.12,NOBACK BIS CATACOMBS.13,NOBACK BIS CATACOMBS.14,NOBACK BIS CATACOMBS.15,NOBACK BIS CATACOMBS.16,NOBACK BIS CATACOMBS.17,NOBACK BIS CATACOMBS.18,NOBACK BIS CATACOMBS.19,NOBACK BIS FACES,NOBACK BIS PLAIN.1,NOBACK BIS PLAIN.2,NOBACK BIS BASQUE.1,NOBACK BIS CYLINDRICAL,NOBACK BIS PLATFORM,NOBACK BIS SHELL,NOBACK {so he can't sneak out with the clam} BIS ARCH.COR.1,NOBACK {so he can't retreat over the quicksand} BIS ARCH.COR.2,NOBACK {so he can't retreat over the quicksand} INITIAL {set in-maze bits} BIS MAZEA.42,INMAZE BIS MAZEA.43,INMAZE BIS MAZEA.44,INMAZE BIS MAZEA.45,INMAZE BIS MAZEA.46,INMAZE BIS MAZEA.47,INMAZE BIS MAZEA.48,INMAZE BIS MAZEA.49,INMAZE BIS MAZEA.50,INMAZE BIS MAZEA.51,INMAZE BIS MAZEA.52,INMAZE BIS MAZEA.53,INMAZE BIS MAZEA.54,INMAZE BIS MAZEA.55,INMAZE BIS MAZEA.56,INMAZE BIS MAZEA.57.PIT,INMAZE BIS MAZEA.58,INMAZE BIS MAZEA.80,INMAZE BIS MAZEA.81,INMAZE BIS MAZEA.82,INMAZE BIS MAZEA.83,INMAZE BIS MAZEA.84,INMAZE BIS MAZEA.85,INMAZE BIS MAZEA.86,INMAZE BIS MAZEA.87,INMAZE BIS MAZED.107,INMAZE BIS MAZED.112,INMAZE BIS MAZEA.114,INMAZE BIS MAZED.131,INMAZE BIS MAZED.132,INMAZE BIS MAZED.133,INMAZE BIS MAZED.134,INMAZE BIS MAZED.135,INMAZE BIS MAZED.136,INMAZE BIS MAZED.137,INMAZE BIS MAZED.138,INMAZE BIS MAZED.139,INMAZE BIS MAZED.140,INMAZE BIS SLIDE,INMAZE BIS ICECAVE.1,INMAZE BIS ICECAVE.1A,INMAZE BIS ICECAVE.2,INMAZE BIS ICECAVE.2A,INMAZE BIS ICECAVE.3,INMAZE BIS ICECAVE.3A,INMAZE BIS ICECAVE.4,INMAZE BIS ICECAVE.5,INMAZE BIS ICECAVE.6,INMAZE BIS ICECAVE.7,INMAZE BIS ICECAVE.8,INMAZE BIS ICECAVE.9,INMAZE BIS ICECAVE.10,INMAZE BIS ICECAVE.11,INMAZE BIS ICECAVE.12,INMAZE BIS ICECAVE.12A,INMAZE BIS ICECAVE.13,INMAZE BIS ICECAVE.14,INMAZE BIS ICECAVE.15,INMAZE BIS ICECAVE.15A,INMAZE BIS ICECAVE.16,INMAZE BIS ICECAVE.17,INMAZE BIS ICECAVE.18,INMAZE BIS ICECAVE.19,INMAZE BIS ICECAVE.20,INMAZE BIS ICECAVE.21,INMAZE BIS ICECAVE.22,INMAZE BIS ICECAVE.23,INMAZE BIS ICECAVE.24,INMAZE BIS ICECAVE.25,INMAZE BIS ICECAVE.26,INMAZE BIS ICECAVE.27,INMAZE BIS ICECAVE.28,INMAZE BIS ICECAVE.28A,INMAZE BIS ICECAVE.29,INMAZE BIS ICECAVE.30,INMAZE INITIAL {specify rooms with only 1 exit} BIS GOLDROOM,ONE.EXIT BIS SOUTHSIDE,ONE.EXIT BIS SANDSTONE,ONE.EXIT BIS WINDOW,ONE.EXIT BIS WINDOW2,ONE.EXIT BIS MAZEA.46,ONE.EXIT BIS MAZEA.47,ONE.EXIT BIS MAZEA.48,ONE.EXIT BIS MAZEA.49,ONE.EXIT BIS MAZEA.54,ONE.EXIT BIS MAZEA.56,ONE.EXIT BIS MAZEA.58,ONE.EXIT BIS DEADEND1,ONE.EXIT BIS DEADEND2,ONE.EXIT BIS DEADEND3,ONE.EXIT BIS MAZEA.81,ONE.EXIT BIS MAZEA.82,ONE.EXIT BIS MAZEA.85,ONE.EXIT BIS MAZEA.86,ONE.EXIT BIS SOFT,ONE.EXIT BIS CULDESAC,ONE.EXIT BIS RESERVOIR,ONE.EXIT BIS BALCONY,ONE.EXIT BIS MAZED.140,ONE.EXIT BIS INSAFE,ONE.EXIT BIS TOOL,ONE.EXIT BIS CUBICLE,ONE.EXIT BIS SPHERICAL,ONE.EXIT BIS ICECAVE.1A,ONE.EXIT BIS ICECAVE.3A,ONE.EXIT BIS ICECAVE.7,ONE.EXIT BIS ICECAVE.8,ONE.EXIT BIS ICECAVE.13,ONE.EXIT BIS ICECAVE.14,ONE.EXIT BIS CRACK.4,ONE.EXIT BIS BEACH,ONE.EXIT INITIAL {specify openable objects} BIS GRATE,OPENABLE BIS DOOR,OPENABLE BIS CLAM,OPENABLE BIS OYSTER,OPENABLE BIS FLASK,OPENABLE BIS CHAIN,OPENABLE BIS SAFE,OPENABLE BIS VIAL,OPENABLE INITIAL {specify invisible objects} BIS STEPS,INVISIBLE BIS FISSURE,INVISIBLE BIS MIRROR,INVISIBLE BIS STALACTITE,INVISIBLE BIS DRAWING,INVISIBLE BIS PIRATE,INVISIBLE BIS STATUE,INVISIBLE BIS VOLCANO,INVISIBLE BIS QUICKSAND,INVISIBLE BIS THRONE,INVISIBLE BIS CARPET,INVISIBLE BIS DWARF,INVISIBLE BIS KNIFE,INVISIBLE BIS FOG,INVISIBLE BIS PLANT2,INVISIBLE INITIAL {set hint-exists bits} BIS MAZEA.42,HINTABLE BIS MAZEA.43,HINTABLE BIS MAZEA.44,HINTABLE BIS MAZEA.45,HINTABLE BIS MAZEA.46,HINTABLE BIS MAZEA.47,HINTABLE BIS MAZEA.48,HINTABLE BIS MAZEA.49,HINTABLE BIS MAZEA.50,HINTABLE BIS MAZEA.51,HINTABLE BIS MAZEA.52,HINTABLE BIS MAZEA.53,HINTABLE BIS MAZEA.54,HINTABLE BIS MAZEA.55,HINTABLE BIS MAZEA.56,HINTABLE BIS MAZEA.57.PIT,HINTABLE BIS MAZEA.58,HINTABLE BIS MAZEA.80,HINTABLE BIS MAZEA.81,HINTABLE BIS MAZEA.82,HINTABLE BIS MAZEA.83,HINTABLE BIS MAZEA.84,HINTABLE BIS MAZEA.85,HINTABLE BIS MAZEA.86,HINTABLE BIS MAZEA.87,HINTABLE BIS MAZED.107,HINTABLE BIS MAZED.112,HINTABLE BIS MAZEA.114,HINTABLE BIS MAZED.131,HINTABLE BIS MAZED.132,HINTABLE BIS MAZED.133,HINTABLE BIS MAZED.134,HINTABLE BIS MAZED.135,HINTABLE BIS MAZED.136,HINTABLE BIS MAZED.137,HINTABLE BIS MAZED.138,HINTABLE BIS MAZED.139,HINTABLE BIS MAZED.140,HINTABLE BIS BIRDCHAMBER,HINTABLE BIS DEPRESSION,HINTABLE BIS MTKING,HINTABLE BIS WITTSEND,HINTABLE BIS PLOVER,HINTABLE BIS ALCOVE,HINTABLE BIS DARK,HINTABLE BIS SLIDE,HINTABLE BIS ICECAVE.1,HINTABLE BIS ICECAVE.1A,HINTABLE BIS ICECAVE.2,HINTABLE BIS ICECAVE.2A,HINTABLE BIS ICECAVE.3,HINTABLE BIS ICECAVE.3A,HINTABLE BIS ICECAVE.4,HINTABLE BIS ICECAVE.5,HINTABLE BIS ICECAVE.6,HINTABLE BIS ICECAVE.7,HINTABLE BIS ICECAVE.8,HINTABLE BIS ICECAVE.9,HINTABLE BIS ICECAVE.10,HINTABLE BIS ICECAVE.11,HINTABLE BIS ICECAVE.12,HINTABLE BIS ICECAVE.12A,HINTABLE BIS ICECAVE.13,HINTABLE BIS ICECAVE.14,HINTABLE BIS ICECAVE.15,HINTABLE BIS ICECAVE.15A,HINTABLE BIS ICECAVE.16,HINTABLE BIS ICECAVE.17,HINTABLE BIS ICECAVE.18,HINTABLE BIS ICECAVE.19,HINTABLE BIS ICECAVE.20,HINTABLE BIS ICECAVE.21,HINTABLE BIS ICECAVE.22,HINTABLE BIS ICECAVE.23,HINTABLE BIS ICECAVE.24,HINTABLE BIS ICECAVE.25,HINTABLE BIS ICECAVE.26,HINTABLE BIS ICECAVE.27,HINTABLE BIS ICECAVE.28,HINTABLE BIS ICECAVE.28A,HINTABLE BIS ICECAVE.29,HINTABLE BIS ICECAVE.30,HINTABLE BIS PLAIN.2,HINTABLE INITIAL {Declare water-holes} BIS BUILDING,H20HERE BIS ROAD,H20HERE BIS VALLEY,H20HERE BIS SLIT,H20HERE BIS STREAMPIT,H20HERE BIS CAVERN,H20HERE BIS RESERVOIR,H20HERE BIS RESERVOIR.N,H20HERE INIT {indicate where throwing things sends them elsewhere} BIS PIT,THROWER BIS EASTOFFISSURE,THROWER BIS WESTOFFISSURE,THROWER BIS WEND2PIT,THROWER BIS EEND2PIT,THROWER BIS LOWNSPASSAGE,THROWER BIS WINDOW,THROWER BIS WINDOW2,THROWER BIS BRINK,THROWER BIS DUSTY,THROWER BIS MAZEA.57.PIT,THROWER BIS SECRETNSCYN,THROWER BIS SECRETNSCPAS,THROWER BIS SECRETEW.TITE,THROWER BIS INCLINE,THROWER BIS CAVERN,THROWER BIS MISTY,THROWER BIS RESERVOIR,THROWER BIS RESERVOIR.N,THROWER BIS STALACT,THROWER BIS BALCONY,THROWER BIS SWOFCHASM,THROWER BIS NEOFCHASM,THROWER BIS BREATHTAKER,THROWER BIS FACES,THROWER BIS TUBE,THROWER BIS TUBE.SLIDE,THROWER BIS BASQUE.FORK,THROWER BIS ON.STEPS,THROWER BIS STEPS.EXIT,THROWER BIS BRINK.1,THROWER BIS BRINK.2,THROWER BIS ICE,THROWER BIS BRINK.3,THROWER BIS SHELF,THROWER BIS PLATFORM,THROWER INITIAL * Declare the treasures BIS GOLD,VALUED BIS DIAMONDS,VALUED BIS SILVER,VALUED BIS JEWELRY,VALUED BIS COINS,VALUED BIS CHEST,VALUED BIS EGGS,VALUED BIS TRIDENT,VALUED BIS VASE,VALUED BIS EMERALD,VALUED BIS PYRAMID,VALUED BIS PEARL,VALUED BIS RUG,VALUED BIS SPICES,VALUED BIS CHAIN,VALUED BIS CASKET,VALUED BIS SCULPTURE,VALUED BIS BRACELET,VALUED BIS RING,VALUED BIS SPYGLASS,VALUED BIS BAG,VALUED BIS HELMET,VALUED BIS CROWN,VALUED BIS SCEPTRE,VALUED BIS YACHT,VALUED BIS BRACELET,VALUED BIS BEADS,VALUED INIT * Declare unstable objects BIS CHEST,UNSTABLE BIS SCULPTURE,UNSTABLE BIS CAGE,UNSTABLE BIS CASKET,UNSTABLE BIS TEETH,UNSTABLE BIS MUSHROOM,UNSTABLE BIS BAG,UNSTABLE BIS CROWN,UNSTABLE BIS YACHT,UNSTABLE BIS PLATE,UNSTABLE BIS BEADS,UNSTABLE BIS FLASK,UNSTABLE INITIAL {declare mortal (killable) things} BIS TROLL,MORTAL BIS DWARF,MORTAL BIS DRAGON,MORTAL BIS SNAKE,MORTAL BIS BLOB,MORTAL BIS BEAR,MORTAL BIS CLAM,MORTAL BIS OYSTER,MORTAL BIS OGRE,MORTAL BIS BIRD,MORTAL BIS DJINN,MORTAL BIS GOBLINS,MORTAL BIS BASILISK,MORTAL BIS GONG,MORTAL {strange but true - you can HIT GONG} * * Declare edible objects * BIS FOOD,EDIBLE BIS MUSHROOM,EDIBLE INITIAL * Move objects to their starting places APPORT KEYS,BUILDING APPORT LAMP,BUILDING APPORT GRATE,DEPRESSION APPORT CAGE,COBBLES APPORT ROD,DEBRIS APPORT STEPS,PIT APPORT BIRD,BIRDCHAMBER APPORT DOOR,IMMENSENSPASS APPORT PILLOW,SOFT APPORT SNAKE,MTKING APPORT FISSURE,EASTOFFISSURE APPORT TABLET,DARK APPORT CLAM,SHELL APPORT MAGAZINES,ANTEROOM APPORT FOOD,BUILDING APPORT BOTTLE,BUILDING APPORT PLANT,WESTPIT APPORT PLANT2,WEND2PIT APPORT STALACTITE,STALACT APPORT SHADOW,WINDOW APPORT DRAWING,ORIENTAL APPORT DRAGON,SECRETCYNNE1 APPORT CHASM,SWOFCHASM APPORT TROLL,SWOFCHASM APPORT BEAR,BEARHERE APPORT VOLCANO,BREATHTAKER APPORT MACHINE,MAZED.140 APPORT CARPET,SOFT APPORT GOLD,GOLDROOM APPORT DIAMONDS,WESTOFFISSURE APPORT SILVER,LOWNSPASSAGE APPORT JEWELRY,SOUTHSIDE APPORT COINS,WESTSIDE APPORT EGGS,GIANT APPORT TRIDENT,CAVERN APPORT VASE,ORIENTAL APPORT EMERALD,PLOVER APPORT PYRAMID,DARK APPORT SPICES,BOULDERS APPORT CHAIN,BEARHERE APPORT SPYGLASS,IN.JONAH APPORT BAG,BEACH APPORT DINGHY,BEACH APPORT HELMET,MORION APPORT VIAL,SPHERICAL APPORT MUSHROOM,CUBICLE APPORT SCULPTURE,ICECAVE.14 APPORT CASKET,CRACK.4 APPORT SAFE,VAULT APPORT QUICKSAND,ARCH.COR.1 APPORT SLIME,CRACK.2 APPORT SWORD,SANDSTONE APPORT OGRE,GLASSY APPORT THRONE,AUDIENCE.E APPORT SKELETON,AUDIENCE.E APPORT SCEPTRE,AUDIENCE.E APPORT CROWN,INSAFE APPORT STATUE,BY.FIGURE APPORT FOG,PLAIN.2 APPORT YACHT,NONDESCRIPT APPORT BRACELET,TRANSLUCENT APPORT FLASK,ARABESQUE APPORT BASILISK,BASQUE.1 APPORT PLATE,STORAGE APPORT BEADS,BALCONY APPORT GONG,RESERVOIR.N INITIAL * Declare schizoid objects BIS GRATE,SCHIZOID BIS STEPS,SCHIZOID BIS FISSURE,SCHIZOID BIS PLANT2,SCHIZOID BIS SHADOW,SCHIZOID BIS DRAGON,SCHIZOID BIS CHASM,SCHIZOID BIS TROLL,SCHIZOID BIS TROLL2,SCHIZOID BIS QUICKSAND,SCHIZOID BIS SAFE,SCHIZOID BIS FOG,SCHIZOID {weird case - see PHOG routine} BIS GORGE,SCHIZOID BIS BASILISK,SCHIZOID INITIAL * Wake up user and greet him. RANDOM I,100 {kick the random number generator} GOTO ROAD LDA OK,OK! RANDOM CLOCK,10 ADD CLOCK,15 SET LAMPLIFE,300 RANDOM DWARFCOUNT,3 ADD DWARFCOUNT,3 CHANCE 10 { up the chance just a little K.C.W } RANDOM CAMEO.TIME,400 ADD CAMEO.TIME,100 ELSE SET CAMEO.TIME,0 FIN SET CHAIN,1 SET FOG,8 SET FLASK,1 SET INVCT,0 SET STRENGTH,7 SAY LOGON EXECUTIVE 5,I {get prime-time flag} IFGT I,0 LDA J,CAVE.NOT.OPEN-1 ADD J,I SAY J IFEQ I,1 EXECUTIVE 6,J FIN SAY BLANK SAY CAN.DEMO QUERY WANT.DEMO SAY BLANK SAY OK! SAY BLANK BIS ADMIN,DEMO ELSE SAY TA.TA STOP FIN FIN QUERY HITHERE SAY INTRO FIN SAY BLANK INITIAL QUIT