#define INDEEP(LOC) ((LOC) >= LOC_MISTHALL && !OUTSID(LOC))
/* vocabulary items */
-extern long AMBER, ATTACK, AXE, BACK, BATTERY, BEAR,
- BIRD, BLOOD, BOTTLE, CAGE, CAVE, CAVITY, CHAIN, CHASM, CHEST,
- CLAM, COINS, DOOR, DPRSSN, DRAGON, DWARF, EGGS,
- EMERALD, ENTER, ENTRNC, FIND, FISSURE, FOOD, GRATE, HINT, INVENT,
- JADE, KEYS, KNIFE, LAMP, LOCK, LOOK, MAGAZINE, MESSAG, MIRROR, NUGGET, NUL,
- OGRE, OIL, OYSTER, PANIC, PEARL, PILLOW, PLANT, PLANT2, PYRAMID,
- RESER, ROD, ROD2, RUBY, RUG, SAPPH, SAY, SIGN, SNAKE,
- STEPS, STICK, STREAM, THROW, TRIDENT, TROLL, TROLL2,
- URN, VASE, VEND, VOLCANO, WATER;
+extern long NUL;
+extern long BACK;
+extern long LOOK;
+extern long CAVE;
+extern long FIND;
+extern long INVENT;
+extern long SAY;
+extern long ENTER;
+extern long STREAM;
+extern long DPRSSN;
+extern long ENTRNC;
+extern long LOCK;
+extern long THROW;
enum speechpart {unknown, intransitive, transitive};
- OBJ_0:
inventory: !!null
longs: !!null
-- OBJ_1:
+- KEYS:
words: ['keys', 'key']
inventory: 'Set of keys'
locations: LOC_BUILDING
longs:
- 'There are some keys on the ground here.'
-- OBJ_2:
+- LAMP:
words: ['lamp', 'lante']
inventory: 'Brass lantern'
locations: LOC_BUILDING
longs:
- [LAMP_DARK, 'There is a shiny brass lamp nearby.']
- [LAMP_BRIGHT, 'There is a lamp shining nearby.']
-- OBJ_3:
+- GRATE:
words: ['grate']
inventory: '*grate'
locations: [LOC_GRATE, LOC_BELOWGRATE]
longs:
- [GRATE_CLOSED, 'The grate is locked.']
- [GRATE_OPEN, 'The grate is open.']
-- OBJ_4:
+- CAGE:
words: ['cage']
inventory: 'Wicker cage'
locations: LOC_COBBLE
longs:
- 'There is a small wicker cage discarded nearby.'
-- OBJ_5:
+- ROD:
words: ['rod']
inventory: 'Black rod'
locations: LOC_DEBRIS
longs:
- 'A three foot black rod with a rusty star on an end lies nearby.'
-- OBJ_6:
+- ROD2:
words: ['rod']
inventory: 'Black rod'
locations: LOC_NOWHERE
longs:
- 'A three foot black rod with a rusty mark on an end lies nearby.'
-- OBJ_7:
+- STEPS:
words: ['steps']
inventory: '*steps'
locations: [LOC_PITTOP, LOC_MISTHALL]
longs:
- 'Rough stone steps lead down the pit.'
- 'Rough stone steps lead up the dome.'
-- OBJ_8:
+- BIRD:
words: ['bird']
inventory: 'Little bird in cage'
locations: LOC_BIRD
- 'To your surprise, you can understand the bird''s chirping; it is\nsinging about the joys of its forest home.'
- 'The bird does not seem inclined to sing while in the cage.'
- 'The bird is singing to you in gratitude for your having returned it to\nits home. In return, it informs you of a magic word which it thinks\nyou may find useful somewhere near the Hall of Mists. The magic word\nchanges frequently, but for now the bird believes it is "%s". You\nthank the bird for this information, and it flies off into the forest.'
-- OBJ_9:
+- DOOR:
words: ['door']
inventory: '*rusty door'
locations: LOC_IMMENSE
longs:
- 'The way north is barred by a massive, rusty, iron door.'
- 'The way north leads through a massive, rusty, iron door.'
-- OBJ_10:
+- PILLOW:
words: ['pillo', 'velve']
inventory: 'Velvet pillow'
locations: LOC_SOFTROOM
longs:
- 'A small velvet pillow lies on the floor.'
-- OBJ_11:
+- SNAKE:
words: ['snake']
inventory: '*snake'
locations: LOC_KINGHALL
- '' # chased away
sounds:
- 'The snake is hissing venomously.'
-- OBJ_12:
+- FISSURE:
words: ['fissu']
inventory: '*fissure'
locations: [LOC_EASTBANK, LOC_WESTBANK]
- 'A massive stone tablet imbedded in the wall reads:\n"Congratulations on bringing light into the dark-room!"'
texts:
- '"Congratulations on bringing light into the dark-room!"'
-- OBJ_14:
+- CLAM:
words: ['clam']
inventory: 'Giant clam >GRUNT!<'
locations: LOC_SHELLROOM
- 'There is an enormous clam here with its shell tightly closed.'
sounds:
- 'The clam is as tight-mouthed as a, er, clam.'
-- OBJ_15:
+- OYSTER:
words: ['oyste']
inventory: 'Giant oyster >GROAN!<'
locations: LOC_NOWHERE
sounds:
- 'Even though it''s an oyster, the critter''s as tight-mouthed as a clam.'
- 'It says the same thing it did before. Hm, maybe it''s a pun?'
-- OBJ_16:
+- MAGAZINE:
words: ['issue', 'spelu', '"spel']
inventory: '"Spelunker Today"'
locations: LOC_ANTEROOM
- 'There are a few recent issues of "Spelunker Today" magazine here.'
texts:
- 'I''m afraid the magazine is written in dwarvish. But pencilled on one\ncover you see, "Please leave the magazines at the construction site."'
-- OBJ_17:
+- DWARF:
words: ['dwarf', 'dwarv']
inventory: !!null
locations: LOC_NOWHERE
immovable: true
longs: !!null
-- OBJ_18:
+- KNIFE:
words: ['knife', 'knive']
inventory: !!null
locations: LOC_NOWHERE
longs: !!null
-- OBJ_19:
+- FOOD:
words: ['food', 'ratio']
inventory: 'Tasty food'
locations: LOC_BUILDING
longs:
- 'There is food here.'
-- OBJ_20:
+- BOTTLE:
words: ['bottl', 'jar']
inventory: 'Small bottle'
locations: LOC_BUILDING
- [WATER_BOTTLE, 'There is a bottle of water here.']
- [EMPTY_BOTTLE, 'There is an empty bottle here.']
- [OIL_BOTTLE, 'There is a bottle of oil here.']
-- OBJ_21:
+- WATER:
words: ['water', 'h2o']
inventory: 'Water in the bottle'
locations: LOC_NOWHERE
longs: !!null
-- OBJ_22:
+- OIL:
words: ['oil']
inventory: 'Oil in the bottle'
locations: LOC_NOWHERE
longs: !!null
-- OBJ_23:
+- MIRROR:
words: ['mirro']
inventory: '*mirror'
locations: LOC_MIRRORCANYON
immovable: true
longs: !!null
-- OBJ_24:
+- PLANT:
words: ['plant', 'beans']
inventory: '*plant'
locations: LOC_WESTPIT
- 'The plant continues to ask plaintively for water.'
- 'The plant continues to demand water.'
- 'The plant now maintains a contented silence.'
-- OBJ_25:
+- PLANT2:
words: ['plant']
inventory: '*phony plant' # seen in Twopit Room only when tall enough
locations: [LOC_WESTEND, LOC_EASTEND]
immovable: true
longs:
- 'The shadowy figure seems to be trying to attract your attention.'
-- OBJ_28:
+- AXE:
words: ['axe']
inventory: 'Dwarf''s axe'
locations: LOC_NOWHERE
locations: LOC_NOWHERE
immovable: true
longs: !!null # never present
-- OBJ_31:
+- DRAGON:
words: ['drago']
inventory: '*dragon'
locations: [LOC_SECRET4, LOC_SECRET6]
- 'The dragon''s ominous hissing does not bode well for you.'
- 'The dragon is, not surprisingly, silent.'
- 'The dragon is, not surprisingly, silent.'
-- OBJ_32:
+- CHASM:
words: ['chasm']
inventory: '*chasm'
locations: [LOC_SWCHASM, LOC_NECHASM]
longs:
- 'A rickety wooden bridge extends across the chasm, vanishing into the\nmist. A notice posted on the bridge reads, "Stop! Pay troll!"'
- 'The wreckage of a bridge (and a dead bear) can be seen at the bottom\nof the chasm.'
-- OBJ_33:
+- TROLL:
words: ['troll']
inventory: '*troll'
locations: [LOC_SWCHASM, LOC_NECHASM]
- '' # chased away
sounds:
- 'The troll sounds quite adamant in his demand for a treasure.'
-- OBJ_34:
+- TROLL2:
words: ['troll']
inventory: '*phony troll'
locations: [LOC_NOWHERE, LOC_NOWHERE]
immovable: true
longs:
- 'The troll is nowhere to be seen.'
-- OBJ_35:
+- BEAR:
words: ['bear']
inventory: !!null # bear uses rtext 141
locations: LOC_BARRENROOM
- 'There is a gentle cave bear sitting placidly in one corner.'
- 'There is a contented-looking bear wandering about nearby.'
- '' # dead
-- OBJ_36:
+- MESSAG:
words: ['messa']
inventory: '*message in second maze'
locations: LOC_NOWHERE
- 'There is a message scrawled in the dust in a flowery script, reading:\n"This is not the maze where the pirate leaves his treasure chest."'
texts:
- '"This is not the maze where the pirate leaves his treasure chest."'
-- OBJ_37:
+- VOLCANO:
words: ['volca', 'geyse']
inventory: '*volcano and/or geyser'
locations: LOC_BREATHTAKING
immovable: true
longs: !!null
-- OBJ_38:
+- VEND:
words: ['machi', 'vendi']
inventory: '*vending machine'
locations: LOC_DEADEND13
texts:
- '"Drop coins here to receive fresh batteries."'
- '"Drop coins here to receive fresh batteries."'
-- OBJ_39:
+- BATTERY:
words: ['batte']
inventory: 'Batteries'
locations: LOC_NOWHERE
locations: LOC_SOFTROOM
immovable: true
longs: !!null
-- OBJ_41:
+- OGRE:
words: ['ogre']
inventory: '*ogre'
locations: LOC_LARGE
- 'A formidable ogre bars the northern exit.'
sounds:
- 'The ogre is apparently the strong, silent type.'
-- OBJ_42:
+- URN:
words: ['urn']
inventory: '*urn'
locations: LOC_CLIFF
- 'A small urn is embedded in the rock.'
- 'A small urn full of oil is embedded in the rock.'
- 'A small oil flame extrudes from an urn embedded in the rock.'
-- OBJ_43:
+- CAVITY:
words: ['cavit']
inventory: '*cavity'
locations: LOC_NOWHERE
longs:
- '' # something in it
- 'There is a small urn-shaped cavity in the rock.'
-- OBJ_44:
+- BLOOD:
words: ['blood']
inventory: '*blood'
locations: LOC_NOWHERE
immovable: true
longs:
- '' # described with dragon
-- OBJ_45:
+- RESER:
words: ['reser']
inventory: '*reservoir'
locations: [LOC_RESERVOIR, LOC_RESNORTH]
- ''
texts:
- '"You won''t get it up the steps"'
-- OBJ_49:
+- SIGN:
words: ['sign']
inventory: '*sign'
locations: LOC_ANTEROOM
texts:
- 'Cave under construction beyond this point.\n Proceed at own risk.\n [Witt Construction Company]'
- '"Treasure Vault. Keys in main office."'
-- OBJ_50:
+- NUGGET:
words: ['gold', 'nugge']
inventory: 'Large gold nugget'
locations: LOC_NUGGET
treasure: true
longs:
- 'There is precious jewelry here!'
-- OBJ_54:
+- COINS:
words: ['coins']
inventory: 'Rare coins'
locations: LOC_WESTSIDE
treasure: true
longs:
- 'There are many coins here!'
-- OBJ_55:
+- CHEST:
words: ['chest', 'box', 'treas']
inventory: 'Treasure chest'
locations: LOC_NOWHERE
treasure: true
longs:
- 'The pirate''s treasure chest is here!'
-- OBJ_56:
+- EGGS:
words: ['eggs', 'egg', 'nest']
inventory: 'Golden eggs'
locations: LOC_GIANTROOM
- 'There is a large nest here, full of golden eggs!'
- 'The nest of golden eggs has vanished!'
- 'Done!'
-- OBJ_57:
+- TRIDENT:
words: ['tride']
inventory: 'Jeweled trident'
locations: LOC_WATERFALL
treasure: true
longs:
- 'There is a jewel-encrusted trident here!'
-- OBJ_58:
+- VASE:
words: ['vase', 'ming', 'shard', 'potte']
inventory: 'Ming vase'
locations: LOC_ORIENTAL
- [VASE_RESTING, 'The vase is now resting, delicately, on a velvet pillow.']
- [VASE_BROKEN, 'The floor is littered with worthless shards of pottery.']
- [VASE_DROPS, 'The ming vase drops with a delicate crash.']
-- OBJ_59:
+- EMERALD:
words: ['emera']
inventory: 'Egg-sized emerald'
locations: LOC_PLOVER
longs:
- 'There is an emerald here the size of a plover''s egg!'
- 'There is an emerald resting in a small cavity in the rock!'
-- OBJ_60:
+- PYRAMID:
words: ['plati', 'pyram']
inventory: 'Platinum pyramid'
locations: LOC_DARKROOM
treasure: true
longs:
- 'There is a platinum pyramid here, 8 inches on a side!'
-- OBJ_61:
+- PEARL:
words: ['pearl']
inventory: 'Glistening pearl'
locations: LOC_NOWHERE
treasure: true
longs:
- 'Off to one side lies a glistening pearl!'
-- OBJ_62:
+- RUG:
words: ['rug', 'persi']
inventory: 'Persian rug'
locations: [LOC_SECRET4, LOC_SECRET6]
treasure: true
longs:
- 'There are rare spices here!'
-- OBJ_64:
+- CHAIN:
words: ['chain']
inventory: 'Golden chain'
locations: LOC_BARRENROOM
- 'There is a golden chain lying in a heap on the floor!'
- 'The bear is locked to the wall with a golden chain!'
- 'There is a golden chain locked to the wall!'
-- OBJ_65:
+- RUBY:
words: ['ruby']
inventory: 'Giant ruby'
locations: LOC_STOREROOM
longs:
- 'There is an enormous ruby here!'
- 'There is a ruby resting in a small cavity in the rock!'
-- OBJ_66:
+- JADE:
words: ['jade', 'neckl']
inventory: 'Jade necklace'
locations: LOC_NOWHERE
treasure: true
longs:
- 'A precious jade necklace has been dropped here!'
-- OBJ_67:
+- AMBER:
words: ['amber', 'gemst']
inventory: 'Amber gemstone'
locations: LOC_NOWHERE
longs:
- 'There is a rare amber gemstone here!'
- 'There is an amber gemstone resting in a small cavity in the rock!'
-- OBJ_68:
+- SAPPH:
words: ['sapph']
inventory: 'Star sapphire'
locations: LOC_LEDGE
* scanned). If we're at the end of the line or encounter an illegal
* character (not a digit, hyphen, or blank), we return 0. */
- long DIGIT, GETNUM, SIGN;
+ long DIGIT, GETNUM, sign;
if (source != NULL) MAPLIN(source);
GETNUM = 0;
}
if (INLINE[LNPOSN] != 9) {
- SIGN = 1;
+ sign = 1;
} else {
- SIGN = -1;
+ sign = -1;
LNPOSN = LNPOSN + 1;
}
while (!(LNPOSN > LNLENG || INLINE[LNPOSN] == 0)) {
LNPOSN = LNPOSN + 1;
}
- GETNUM = GETNUM * SIGN;
+ GETNUM = GETNUM * sign;
LNPOSN = LNPOSN + 1;
return (GETNUM);
}
game.hintlc[i] = 0;
}
- /* Define some handy mnemonics. These correspond to object numbers. */
- AXE = VOCWRD(WORD_AXE, 1);
- BATTERY = VOCWRD(WORD_BATTERY, 1);
- BEAR = VOCWRD(WORD_BEAR, 1);
- BIRD = VOCWRD(WORD_BIRD, 1);
- BLOOD = VOCWRD(WORD_BLOOD, 1);
- BOTTLE = VOCWRD(WORD_BOTTLE, 1);
- CAGE = VOCWRD(WORD_CAGE, 1);
- CAVITY = VOCWRD(WORD_CAVITY, 1);
- CHASM = VOCWRD(WORD_CHASM, 1);
- CLAM = VOCWRD(WORD_CLAM, 1);
- DOOR = VOCWRD(WORD_DOOR, 1);
- DRAGON = VOCWRD(WORD_DRAGON, 1);
- DWARF = VOCWRD(WORD_DWARF, 1);
- FISSURE = VOCWRD(WORD_FISSURE, 1);
- FOOD = VOCWRD(WORD_FOOD, 1);
- GRATE = VOCWRD(WORD_GRATE, 1);
- KEYS = VOCWRD(WORD_KEYS, 1);
- KNIFE = VOCWRD(WORD_KNIFE, 1);
- LAMP = VOCWRD(WORD_LAMP, 1);
- MAGAZINE = VOCWRD(WORD_MAGAZINE, 1);
- MESSAG = VOCWRD(WORD_MESSAG, 1);
- MIRROR = VOCWRD(WORD_MIRROR, 1);
- OGRE = VOCWRD(WORD_OGRE, 1);
- OIL = VOCWRD(WORD_OIL, 1);
- OYSTER = VOCWRD(WORD_OYSTER, 1);
- PILLOW = VOCWRD(WORD_PILLOW, 1);
- PLANT = VOCWRD(WORD_PLANT, 1);
- PLANT2 = PLANT + 1;
- RESER = VOCWRD(WORD_RESER, 1);
- ROD = VOCWRD(WORD_ROD, 1);
- ROD2 = ROD + 1;
- SIGN = VOCWRD(WORD_SIGN, 1);
- SNAKE = VOCWRD(WORD_SNAKE, 1);
- STEPS = VOCWRD(WORD_STEPS, 1);
- TROLL = VOCWRD(WORD_TROLL, 1);
- TROLL2 = TROLL + 1;
- URN = VOCWRD(WORD_URN, 1);
- VEND = VOCWRD(WORD_VEND, 1);
- VOLCANO = VOCWRD(WORD_VOLCANO, 1);
- WATER = VOCWRD(WORD_WATER, 1);
-
- /* Vocabulary for treasures */
- AMBER = VOCWRD(WORD_AMBER, 1);
- CHAIN = VOCWRD(WORD_CHAIN, 1);
- CHEST = VOCWRD(WORD_CHEST, 1);
- COINS = VOCWRD(WORD_COINS, 1);
- EGGS = VOCWRD(WORD_EGGS, 1);
- EMERALD = VOCWRD(WORD_EMERALD, 1);
- JADE = VOCWRD(WORD_JADE, 1);
- NUGGET = VOCWRD(WORD_NUGGET, 1);
- PEARL = VOCWRD(WORD_PEARL, 1);
- PYRAMID = VOCWRD(WORD_PYRAMID, 1);
- RUBY = VOCWRD(WORD_RUBY, 1);
- RUG = VOCWRD(WORD_RUG, 1);
- SAPPH = VOCWRD(WORD_SAPPH, 1);
- TRIDENT = VOCWRD(WORD_TRIDENT, 1);
- VASE = VOCWRD(WORD_VASE, 1);
+ /* Define some handy mnemonics. */
/* These are motion-verb numbers. */
BACK = VOCWRD(WORD_BACK, 0);
long LNLENG, LNPOSN;
char rawbuf[LINESIZE], INLINE[LINESIZE + 1];
-long AMBER, AXE, BACK, BATTERY, BEAR, BIRD, BLOOD,
- BOTTLE, CAGE, CAVE, CAVITY, CHAIN, CHASM, CHEST,
- CLAM, COINS, DOOR, DPRSSN, DRAGON, DWARF, EGGS,
- EMERALD, ENTER, ENTRNC, FIND, FISSURE, FOOD,
- GRATE, HINT, INVENT, JADE, KEYS,
- KNIFE, LAMP, LOCK, LOOK, MAGAZINE,
- MESSAG, MIRROR, NUGGET, NUL, OGRE, OIL, OYSTER,
- PEARL, PILLOW, PLANT, PLANT2, PYRAMID, RESER, ROD, ROD2,
- RUBY, RUG, SAPPH, SAY, SIGN, SNAKE,
- STEPS, STREAM, THROW, TRIDENT, TROLL, TROLL2,
- URN, VASE, VEND, VOLCANO, WATER;
+long NUL;
+long BACK;
+long LOOK;
+long CAVE;
+long FIND;
+long INVENT;
+long SAY;
+long ENTER;
+long STREAM;
+long DPRSSN;
+long ENTRNC;
+long LOCK;
+long THROW;
FILE *logfp = NULL, *rfp = NULL;
bool oldstyle = false;
projects / open-adventure.git / commitdiff