zorkzero/globals.zabstr

271 lines
12 KiB
Plaintext

<INCLUDE "BASEDEFS" "FIND" "PDEFS">
<ADJ-SYNONYM LARGE HUGE BIG GIANT GIGANTIC TREMENDOUS MIGHTY MASSIVE ENORMOUS>
<ADJ-SYNONYM SMALL SMALLER TINY TINIER LITTLE PETITE TEENSY WEENSY>
<GLOBAL LIT T>
<GLOBAL MOVES 0>
<GLOBAL SCORE 0>
<GLOBAL HERE:OBJECT BANQUET-HALL>
<OBJECT GLOBAL-OBJECTS (DESC "it") (FLAGS INVISIBLE TOUCHBIT SURFACEBIT
TRYTAKEBIT OPENBIT SEARCHBIT TRANSBIT WEARBIT ONBIT LIGHTBIT RLANDBIT WORNBIT
INTEGRALBIT VEHBIT OUTSIDEBIT CONTBIT VOWELBIT LOCKEDBIT NDESCBIT DOORBIT
ACTORBIT PARTBIT INBIT FEMALEBIT KLUDGEBIT DROPBIT BURNBIT ORBBIT FLAMEBIT
NALLBIT KEYBIT UNDERGROUNDBIT REDESCBIT)>
<OBJECT LOCAL-GLOBALS (LOC GLOBAL-OBJECTS) (DESC "it")>
<OBJECT ROOMS (DESC "it")>
<OBJECT INTNUM (LOC GLOBAL-OBJECTS) (DESC "number") (SYNONYM NUMBER NUMBERS
INT.NUM) (ADJECTIVE INT.NUM INT.TIM) (ACTION INTNUM-F)>
<BEGIN-SEGMENT 0>
<DEFINE-ROUTINE INTNUM-F>
<END-SEGMENT>
<OBJECT IT (LOC GLOBAL-OBJECTS) (SYNONYM IT) (DESC "it") (FLAGS VOWELBIT
NARTICLEBIT TOUCHBIT)>
<OBJECT HIM (LOC GLOBAL-OBJECTS) (SYNONYM HIM HIMSELF) (DESC "him") (FLAGS
NARTICLEBIT TOUCHBIT)>
<OBJECT HER (LOC GLOBAL-OBJECTS) (SYNONYM HER HERSELF) (DESC "her") (FLAGS
NARTICLEBIT TOUCHBIT)>
<OBJECT LEFT-RIGHT (LOC GLOBAL-OBJECTS) (DESC "that way") (SYNONYM LEFT RIGHT)
(FLAGS NARTICLEBIT) (ACTION LEFT-RIGHT-F)>
<BEGIN-SEGMENT 0>
<DEFINE-ROUTINE LEFT-RIGHT-F>
<END-SEGMENT>
<BEGIN-SEGMENT CASTLE>
<OBJECT GRUE (LOC GLOBAL-OBJECTS) (SYNONYM GRUE GRUES) (ADJECTIVE LURKING
SINISTER HUNGRY SILENT) (DESC "lurking grue") (RESEARCH
"\"The grue was once a sinister, lurking presence in the dark places of the
earth. Its favorite diet was adventurers, but its insatiable appetite was
tempered by its fear of light. No grue was ever seen by the light of day,
and few ever survived its fearsome jaws to tell the tale.\"|
The encyclopedia goes on to say, \"Grues were eradicated from the face of
the world during the time of Entharion, many by his own hand and his legendary
blade Grueslayer. Although it has now been many a century since the last grue
sighting, old hags still delight in scaring children by telling them that
grues still lurk in the bottomless pits of the Empire, and will one day lurk
forth again.\"") (ACTION GRUE-F)>
<END-SEGMENT>
<BEGIN-SEGMENT 0>
<DEFINE-ROUTINE GRUE-F>
<OBJECT SAILOR (LOC GLOBAL-OBJECTS) (DESC "sailor") (SYNONYM SAILOR) (ACTION
SAILOR-F)>
<DEFINE-ROUTINE SAILOR-F>
<OBJECT GLOBAL-SLEEP (LOC GLOBAL-OBJECTS) (DESC "sleep") (SYNONYM SLEEP NAP
SNOOZE) (FLAGS NARTICLEBIT) (ACTION GLOBAL-SLEEP-F)>
<DEFINE-ROUTINE GLOBAL-SLEEP-F>
<OBJECT LULLABY (LOC GLOBAL-OBJECTS) (DESC "lullaby") (SYNONYM LULLABY LULLABYE
SONG) (ACTION LULLABY-F)>
<DEFINE-ROUTINE LULLABY-F>
<OBJECT GROUND (LOC GLOBAL-OBJECTS) (SYNONYM FLOOR GROUND SAND) (SDESC "ground"
) (ACTION GROUND-F)>
<DEFINE-ROUTINE GROUND-F>
<DEFINE-ROUTINE SET-GROUND-DESC>
<OBJECT GLOBAL-HOLE (LOC GLOBAL-OBJECTS) (DESC "hole") (SYNONYM HOLE) (ACTION
GLOBAL-HOLE-F)>
<DEFINE-ROUTINE GLOBAL-HOLE-F>
<OBJECT WALL (LOC GLOBAL-OBJECTS) (DESC "wall") (SYNONYM WALL WALLS) (ADJECTIVE
NORTH NE EAST SE SOUTH SW WEST NW REAR FAR) (FLAGS NDESCBIT TOUCHBIT) (ACTION
WALL-F)>
<DEFINE-ROUTINE WALL-F>
<DEFINE-ROUTINE PASSAGE-THERE>
<DEFINE-ROUTINE REPELLED>
<OBJECT GLOBAL-PASSAGE (LOC GLOBAL-OBJECTS) (DESC "passage") (SYNONYM PASSAGE
PASSAGEWAY TUNNEL) (ADJECTIVE GLOOMY DARK SECRET HIDDEN WIDE NARROW LOW STEEP
SLOPING DUSTY UNEVEN WINDING FORBIDDING GRAVELLY HALF-BURIED HIGHWAY POORLY-DUG
) (ACTION GLOBAL-PASSAGE-F)>
<DEFINE-ROUTINE GLOBAL-PASSAGE-F>
<OBJECT CEILING (LOC GLOBAL-OBJECTS) (FLAGS NDESCBIT TOUCHBIT) (DESC "ceiling")
(SYNONYM CEILING ROOF) (ADJECTIVE LOW HIGH) (ACTION CEILING-F)>
<DEFINE-ROUTINE CEILING-F>
<OBJECT SLIME (LOC LOCAL-GLOBALS) (DESC "slime") (SYNONYM SLIME) (ADJECTIVE
THICK BLACK) (FLAGS NARTICLEBIT) (ACTION SLIME-F)>
<DEFINE-ROUTINE SLIME-F>
<OBJECT WATER (LOC GLOBAL-OBJECTS) (DESC "water") (SYNONYM WATER WATERS GLOOP
GLOOPS) (ADJECTIVE ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE INT.NUM) (FLAGS
NARTICLEBIT) (GENERIC G-VIAL-WATER-F) (OWNER <>) (ACTION WATER-F)>
<DEFINE-ROUTINE WATER-F>
<DEFINE-ROUTINE FIND-WATER>
<OBJECT SMALL-VIAL-WATER (DESC "water in the small vial") (SYNONYM WATER GLOOP
GLOOPS) (ADJECTIVE ONE TWO THREE FOUR INT.NUM) (FLAGS NARTICLEBIT) (GENERIC
G-VIAL-WATER-F) (ACTION VIAL-WATER-F)>
<OBJECT LARGE-VIAL-WATER (DESC "water in the large vial") (SYNONYM WATER GLOOP
GLOOPS) (ADJECTIVE ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE INT.NUM) (FLAGS
NARTICLEBIT) (GENERIC G-VIAL-WATER-F) (ACTION VIAL-WATER-F)>
<DEFINE-ROUTINE VIAL-WATER-F>
<DEFINE-ROUTINE G-VIAL-WATER-F>
<CONSTANT BODY-PART-OWNERS <TABLE (PURE LENGTH) PROTAGONIST DIMWIT JESTER
EXECUTIONER SICKLY-WITCH PRICKLY-WITCH>>
<OBJECT HANDS (LOC GLOBAL-OBJECTS) (SYNONYM HANDS HAND PALM FINGER FINGERS) (
ADJECTIVE BARE YOUR) (DESC "hands") (OWNER BODY-PART-OWNERS) (FLAGS NDESCBIT
PLURALBIT TOUCHBIT PARTBIT) (ACTION HANDS-F)>
<DEFINE-ROUTINE HANDS-F>
<DEFINE-ROUTINE OPEN-SECRET-PASSAGE?>
<OBJECT FEET (LOC GLOBAL-OBJECTS) (SYNONYM FEET FOOT TOE TOES) (ADJECTIVE YOUR)
(DESC "feet") (OWNER BODY-PART-OWNERS) (FLAGS NDESCBIT PLURALBIT TOUCHBIT
PARTBIT) (ACTION FEET-F)>
<DEFINE-ROUTINE FEET-F>
<OBJECT HEAD (LOC GLOBAL-OBJECTS) (DESC "head") (SYNONYM HEAD) (OWNER
BODY-PART-OWNERS) (FLAGS PARTBIT)>
<OBJECT EYES (LOC GLOBAL-OBJECTS) (DESC "eyes") (SYNONYM EYE EYES) (ADJECTIVE
MY MINE ORACLE\'S AMULET\'S FIRST SECOND THIRD FOURTH ONE TWO THREE FOUR) (
OWNER BODY-PART-OWNERS) (FLAGS PLURALBIT PARTBIT) (ACTION EYES-F)>
<DEFINE-ROUTINE EYES-F>
<OBJECT NOSE (LOC GLOBAL-OBJECTS) (DESC "nose") (SYNONYM NOSE NOSTRIL) (
ADJECTIVE YOUR) (OWNER BODY-PART-OWNERS) (FLAGS PARTBIT) (ACTION NOSE-F)>
<DEFINE-ROUTINE NOSE-F>
<OBJECT MOUTH (LOC GLOBAL-OBJECTS) (DESC "mouth") (SYNONYM MOUTH) (ADJECTIVE
YOUR) (OWNER BODY-PART-OWNERS) (FLAGS PARTBIT) (ACTION MOUTH-F)>
<DEFINE-ROUTINE MOUTH-F>
<OBJECT PROTAGONIST (LOC BANQUET-HALL) (DESC "self") (SIZE 1) (FLAGS NDESCBIT
TRANSBIT SEARCHBIT)>
<END-SEGMENT>
<BEGIN-SEGMENT CASTLE>
<OBJECT ME (LOC GLOBAL-OBJECTS) (SYNONYM ME MYSELF SELF) (DESC "yourself") (
FLAGS TOUCHBIT NARTICLEBIT) (RESEARCH
"Son of a gun! There's no entry about you! This is one worthless
encyclopedia, huh? Why, you're about as famous as they come! At
least a third of the people in your village have heard of you, for
instance...") (ACTION ME-F)>
<END-SEGMENT>
<BEGIN-SEGMENT 0>
<DEFINE-ROUTINE ME-F>
<OBJECT GLOBAL-HERE (LOC GLOBAL-OBJECTS) (DESC "room") (SYNONYM ROOM PLACE
LOCATION!-PDEFS!-PACKAGE HALL AREA THERE HERE) (ACTION GLOBAL-HERE-F)>
<DEFINE-ROUTINE GLOBAL-HERE-F>
<OBJECT GLOBAL-BLDG (LOC LOCAL-GLOBALS) (DESC "building") (SYNONYM BUILDING
CLUSTER) (ADJECTIVE NEW SMALL STONE IMPRESSIVE) (ACTION GLOBAL-BLDG-F)>
<DEFINE-ROUTINE GLOBAL-BLDG-F>
<OBJECT ARCH (LOC LOCAL-GLOBALS) (DESC "arch") (SYNONYM ARCH ARCHWAY) (
ADJECTIVE STONE CRUMBLING) (FLAGS VOWELBIT) (ACTION ARCH-F)>
<DEFINE-ROUTINE ARCH-F>
<OBJECT WINDOW (LOC LOCAL-GLOBALS) (DESC "window") (SYNONYM WINDOW WINDOWS
GLASS PANE PANES) (ADJECTIVE NARROW WIDER SLITTED GLASS BROKEN WINDOW) (FLAGS
NDESCBIT) (ACTION WINDOW-F)>
<DEFINE-ROUTINE WINDOW-F>
<OBJECT LOCK-OBJECT (LOC LOCAL-GLOBALS) (DESC "lock") (SYNONYM LOCK KEYHOLE
HOLE) (ADJECTIVE LARGE BASIC COMBINATION KEY) (ACTION LOCK-OBJECT-F)>
<DEFINE-ROUTINE LOCK-OBJECT-F>
<OBJECT SIGN (LOC LOCAL-GLOBALS) (DESC "sign") (SYNONYM SIGN) (ADJECTIVE LARGE
EYE-CATCHING) (FLAGS READBIT) (ACTION SIGN-F)>
<DEFINE-ROUTINE SIGN-F>
<OBJECT STAIRS (LOC LOCAL-GLOBALS) (DESC "stair") (SYNONYM FLIGHT STAIR STAIRS
STAIRWAY STEP STEPS STAIRCASE GANGWAY) (ADJECTIVE STEEP OMINOUS DARK WIDE STONE
CIRCULAR WINDING SPIRAL COBWEBBY CRUDE FORBIDDING DECREPIT) (ACTION STAIRS-F)>
<DEFINE-ROUTINE STAIRS-F>
<OBJECT FIXED-LADDER (LOC LOCAL-GLOBALS) (DESC "ladder") (SYNONYM LADDER) (
ADJECTIVE RICKETY) (ACTION FIXED-LADDER-F)>
<DEFINE-ROUTINE FIXED-LADDER-F>
<OBJECT BONES (LOC LOCAL-GLOBALS) (OWNER BONES) (DESC "pile of old bones") (
SYNONYM BONE BONES PILE CREATURE ADVENTURER SKELETON SKELETONS) (ADJECTIVE
ADVENTURER CREATURE OLD) (FLAGS NDESCBIT) (ACTION BONES-F)>
<DEFINE-ROUTINE BONES-F>
<DEFINE-ROUTINE CLEAR-BORDER>
<DEFINE-ROUTINE ADJUST-TEXT-WINDOW>
<DEFINE-ROUTINE SPLIT-BY-PICTURE>
<DEFINE-ROUTINE INIT-SL-WITH-SPLIT>
<REPLACE-DEFINITION STATUS-LINE <ROUTINE INIT-STATUS-LINE>>
<DEFINE-ROUTINE SET-BORDER>
<DEFINE-ROUTINE PRINT-SPACES>
<CONSTANT SLINE <ITABLE NONE 41>>
<GLOBAL OLD-HERE <>>
<GLOBAL OLD-REGION <>>
<GLOBAL SL-SCORE -1>
<GLOBAL WIDTH 0>
<GLOBAL COMPASS-CHANGED T>
<CONSTANT TITLE-SCREEN-PICTURE 1>
<GLOBAL ACTIVE-MOUSE <>>
<GLOBAL CURRENT-SPLIT <>>
<DEFINE-ROUTINE UPDATE-STATUS-LINE>
<CONSTANT COMPASS-PICSET-TBL <TABLE N-HL NE-HL E-HL SE-HL S-HL SW-HL W-HL NW-HL
N-UNHL NE-UNHL E-UNHL SE-UNHL S-UNHL SW-UNHL W-UNHL NW-UNHL U-BOX D-BOX
BOX-COVER 0>>
<DEFINE-ROUTINE DRAW-COMPASS-ROSE>
<DEFINE-ROUTINE SHOW-DIRECTION?>
<DEFINE-ROUTINE COMPASS-CLICK>
<DEFINE-ROUTINE MAC-CLICK>
<CONSTANT TANGENT-VALUE 41>
<DEFINE-ROUTINE MAC-II-CLICK>
<DEFINE-ROUTINE SAY-HERE>
<DEFINE-ROUTINE CENTER-1>
<DEFINE-ROUTINE CENTER-2>
<DEFINE-ROUTINE CENTER-3>
<DEFINE-ROUTINE TOUCHING?>
<DEFINE-ROUTINE HANDLE>
<DEFINE-ROUTINE CANT-SEE>
<DEFINE-ROUTINE PRSO-PRINT>
<DEFINE-ROUTINE PRSI-PRINT>
<DEFINE-ROUTINE CANT-VERB-A-PRSO>
<DEFINE-ROUTINE TELL-HIT-HEAD>
<DEFINE-ROUTINE OPEN-CLOSED>
<DEFINE-ROUTINE CANT-REACH>
<DEFINE-ROUTINE DO-FIRST>
<DEFINE-ROUTINE NOT-IN>
<DEFINE-ROUTINE PART-OF>
<DEFINE-ROUTINE RECOGNIZE>
<DEFINE-ROUTINE PRONOUN>
<DEFINE-ROUTINE HIT-ANY-KEY>
<DEFINE-ROUTINE LOCKED-UNLOCKED>
<DEFINE-ROUTINE CANT-TURN>
<DEFINE-ROUTINE YOU-MUST-TELL-ME>
<DEFINE-ROUTINE GRUE-PIT-WARNING>
<DEFINE-ROUTINE DARK-DEATH>
<CONSTANT TOO-DARK "It's too dark to see a thing.">
<CONSTANT YNH "You're not holding">
<CONSTANT THERES-NOTHING "There's nothing ">
<CONSTANT YOU-SEE "You can see">
<CONSTANT IT-SEEMS-THAT "It seems that">
<CONSTANT YOU-CANT-SEE-ANY "[You can't see any ">
<CONSTANT YOU-CANT "You can't ">
<CONSTANT YOULL-HAVE-TO "You'll have to ">
<CONSTANT LOOK-AROUND "Look around you.|">
<CONSTANT CANT-FROM-HERE "You can't do that from here.|">
<CONSTANT HOLDING-IT "You're holding it!|">
<CONSTANT PERIOD-CR ".|">
<CONSTANT ELLIPSIS "...||">
<CONSTANT FAILED "Failed.|">
<CONSTANT OK "Okay.|">
<CONSTANT HUH "Huh?|">
<CONSTANT NOTHING-HAPPENS "Nothing happens.|">
<CONSTANT ALREADY-IS "It already is!|">
<CONSTANT NOTHING-NEW "This reveals nothing new.|">
<CONSTANT ONLY-BLACKNESS "You see only blackness.|">
<CONSTANT NO-VERB "[There was no verb in that sentence!]|">
<CONSTANT WEARING-IT "You're wearing it!|">
<CONSTANT YACHT-MOORED "; the royal yacht is moored at the dock">
<CONSTANT WHICH-WATER
"[You'll have to specify which water you mean by referring to the vial
that contains it.]|">
<CONSTANT MEGABOZ-CEILING-DESC
"In the center of the ceiling, a small trap door is visible.">
<CONSTANT CELL-WALL-DESC "Thick cobwebs obscure the rear wall.">
<CONSTANT POORLY-CONFIGURED
"You nearly make it, but the branches are just too poorly configured for
climbing.|">
<CONSTANT CANNOT-TRAVEL "\"I regret that I cannot travel that way.\"|">
<CONSTANT ANSWER-MY-RIDDLE "\"You'll have to answer my riddle first!\"|">
<CONSTANT SOME-LIGHT "You can see some light through the crack.|">
<CONSTANT TYPE-A-NUMBER "Please type a number between 1 and ">
<CONSTANT DROWN " Since you have no diving gear, and you are not amphibious, you drown
in a swift but still unpleasant fashion.">
<CONSTANT FUDGE "A faint smell of fudge hangs in the air.">
<CONSTANT TALK-TO-BROGMOID
"The brogmoid could no more hear your shouting than you could hear the
shouting of a bacterium.|">
<CONSTANT ALREADY-AT "You're already at the ">
<CONSTANT WITCH-REMOVES-J
" Immediately, the witches begin beating at the jester with brushes and
broomsticks. \"Scat, you filthy jester, scat!\" He vanishes hastily.|">
<CONSTANT BY-THAT-NAME "There's no one here by that name.|">
<CONSTANT NOTHING-IN-REACH "You reach in as far as you can, but feel nothing.|"
>
<CONSTANT WONT-BUDGE "It won't budge.|">
<CONSTANT COOK-DESC
"garbed in a white apron and wearing a puffy white chef's hat.">
<CONSTANT BOOKKEEPER-DESC
"is hunched over one of the desks, wearing suspenders, a bow tie, thick
eyeglasses, and a green visor.">
<CONSTANT ERE-YOU-PASS
"\"'Ere you pass to the west, you must first pass this test! Show me an object
which no one has ever seen before and which no one will ever see again!\"|">
<CONSTANT CARPENTERS
"Not a chance -- unless you have a team of carpenters in your pocket.|">
<CONSTANT DEEPLY-ROOTED "The spenseweed is deeply rooted.|">
<END-SEGMENT>