DataMuseum.dk

top - metrics - download

    Length: 17609 (0x44c9)
    Types: TextFile
    Names: »init.d«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Adventure/adv_db/init.d« 

TextFile

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