| [9] | 1 | /* program ITVERB.C */
|
|---|
| 2 |
|
|---|
| 3 |
|
|---|
| 4 | #include <stdio.h>
|
|---|
| 5 | #include "advent.h"
|
|---|
| 6 | #include "advdec.h"
|
|---|
| 7 |
|
|---|
| 8 | _PROTOTYPE(void needobj, (void));
|
|---|
| 9 | _PROTOTYPE(void ivtake, (void));
|
|---|
| 10 | _PROTOTYPE(void ivopen, (void));
|
|---|
| 11 | _PROTOTYPE(void ivkill, (void));
|
|---|
| 12 | _PROTOTYPE(void ivdrink, (void));
|
|---|
| 13 | _PROTOTYPE(void ivquit, (void));
|
|---|
| 14 | _PROTOTYPE(void ivfoo, (void));
|
|---|
| 15 | _PROTOTYPE(void inventory, (void));
|
|---|
| 16 | _PROTOTYPE(void addobj, (int obj));
|
|---|
| 17 | _PROTOTYPE(void ivpour, (void));
|
|---|
| 18 | _PROTOTYPE(void ivfill, (void));
|
|---|
| 19 | _PROTOTYPE(void ivbrief, (void));
|
|---|
| 20 | _PROTOTYPE(void ivread, (void));
|
|---|
| 21 | _PROTOTYPE(void ivcombo, (void));
|
|---|
| 22 | _PROTOTYPE(void iveat, (void));
|
|---|
| 23 | /*
|
|---|
| 24 | Routines to process intransitive verbs
|
|---|
| 25 | */
|
|---|
| 26 | void itverb()
|
|---|
| 27 | {
|
|---|
| 28 | int i;
|
|---|
| 29 |
|
|---|
| 30 | newtravel = FALSE;
|
|---|
| 31 | switch (verb) {
|
|---|
| 32 | case DROP:
|
|---|
| 33 | case SAY:
|
|---|
| 34 | case WAVE:
|
|---|
| 35 | case CALM:
|
|---|
| 36 | case RUB:
|
|---|
| 37 | case THROW:
|
|---|
| 38 | case FIND:
|
|---|
| 39 | case FEED:
|
|---|
| 40 | case BREAK:
|
|---|
| 41 | case WAKE:
|
|---|
| 42 | case WEAR:
|
|---|
| 43 | case HIT:
|
|---|
| 44 | case DIAL:
|
|---|
| 45 | case PLAY:
|
|---|
| 46 | case PICK:
|
|---|
| 47 | case PUT:
|
|---|
| 48 | case TURN: needobj(); break;
|
|---|
| 49 | case TAKE:
|
|---|
| 50 | case YANK:
|
|---|
| 51 | case GET:
|
|---|
| 52 | case INSRT:
|
|---|
| 53 | case REMOVE:
|
|---|
| 54 | case BURN: ivtake(); break;
|
|---|
| 55 | case OPEN:
|
|---|
| 56 | case CLOSE:
|
|---|
| 57 | case LOCK:
|
|---|
| 58 | case UNLOCK: ivopen(); break;
|
|---|
| 59 | case NOTHING: rspeak(54); break;
|
|---|
| 60 | case ON:
|
|---|
| 61 | case OFF: trverb(); break;
|
|---|
| 62 | case WALK: actspk(verb); break;
|
|---|
| 63 | case KILL: ivkill(); break;
|
|---|
| 64 | case POUR: ivpour(); break;
|
|---|
| 65 | case EAT: iveat(); break;
|
|---|
| 66 | case DRINK: ivdrink(); break;
|
|---|
| 67 | case QUIT: ivquit(); break;
|
|---|
| 68 | case INVENTORY: inventory(); break;
|
|---|
| 69 | case FILL: ivfill(); break;
|
|---|
| 70 | case BLAST: ivblast(); break;
|
|---|
| 71 | case SCORE: score(TRUE); break;
|
|---|
| 72 | case FOO: ivfoo(); break;
|
|---|
| 73 | case BRIEF: ivbrief(); break;
|
|---|
| 74 | case READ: ivread(); break;
|
|---|
| 75 | case SUSPEND:
|
|---|
| 76 | if (g.closing)
|
|---|
| 77 | rspeak(378);
|
|---|
| 78 | else
|
|---|
| 79 | saveadv("advent.sav");
|
|---|
| 80 | break;
|
|---|
| 81 | case RESTORE: restore("advent.sav"); break;
|
|---|
| 82 | case ANSWER:
|
|---|
| 83 | if ((g.loc != 189) || (g.prop[PHONE] != 0))
|
|---|
| 84 | needobj();
|
|---|
| 85 | else {
|
|---|
| 86 | object = PHONE;
|
|---|
| 87 | itverb();
|
|---|
| 88 | }
|
|---|
| 89 | break;
|
|---|
| 90 | case BLOW: rspeak(268); break;
|
|---|
| 91 | /* Action verb 'LEAVE' has no object */
|
|---|
| 92 | case LEAVE: bug(29); break;
|
|---|
| 93 | /* Call if no phone is handy, yell. */
|
|---|
| 94 | case YELL:
|
|---|
| 95 | if (!here(PHONE))
|
|---|
| 96 | needobj();
|
|---|
| 97 | else if (!g.closed)
|
|---|
| 98 | rspeak(271);
|
|---|
| 99 | else {
|
|---|
| 100 | rspeak(283);
|
|---|
| 101 | normend();
|
|---|
| 102 | }
|
|---|
| 103 | break;
|
|---|
| 104 | /* Health. give him a diagnosis. */
|
|---|
| 105 | case HEALTH:
|
|---|
| 106 | if (g.numdie)
|
|---|
| 107 | fprintf(stdout, "You have been killed %d times otherwise\n",
|
|---|
| 108 | g.numdie);
|
|---|
| 109 | if (g.health >= 95) {
|
|---|
| 110 | if (pct(50))
|
|---|
| 111 | rspeak(348);
|
|---|
| 112 | else
|
|---|
| 113 | rspeak(349);
|
|---|
| 114 | } else {
|
|---|
| 115 | fprintf(stdout,
|
|---|
| 116 | "Your health rating is %2d out of a possible 100.\n",
|
|---|
| 117 | g.health);
|
|---|
| 118 | rspeak(381 + (100 - g.health) / 20);
|
|---|
| 119 | }
|
|---|
| 120 | break;
|
|---|
| 121 | case LOOK: ivlook(); break;
|
|---|
| 122 | case COMBO:
|
|---|
| 123 | if (at(SAFE))
|
|---|
| 124 | ivcombo();
|
|---|
| 125 | break;
|
|---|
| 126 | case SWEEP:
|
|---|
| 127 | /* Dust/sweep */
|
|---|
| 128 | if (!at(CARVNG) || !athand(BRUSH) || (g.prop[CARVNG] == 1))
|
|---|
| 129 | rspeak(342);
|
|---|
| 130 | else {
|
|---|
| 131 | g.prop[CARVNG] = 1;
|
|---|
| 132 | rspeak(363);
|
|---|
| 133 | rspeak(372);
|
|---|
| 134 | }
|
|---|
| 135 | break;
|
|---|
| 136 | case TERSE:
|
|---|
| 137 | /* Terse/unterse. supress all long_form descriptions. */
|
|---|
| 138 | g.terse = !g.terse;
|
|---|
| 139 | g.detail = 3;
|
|---|
| 140 | rspeak(54);
|
|---|
| 141 | break;
|
|---|
| 142 | case WIZ:
|
|---|
| 143 | is_wiz = !is_wiz;
|
|---|
| 144 | case MAP:
|
|---|
| 145 | rspeak(54);
|
|---|
| 146 | break;
|
|---|
| 147 | case GATE:
|
|---|
| 148 | if (is_wiz) {
|
|---|
| 149 | static char buf[INPUTBUFLEN];
|
|---|
| 150 | sscanf(ask("Location ? ", buf, sizeof(buf)), "%d", &g.loc);
|
|---|
| 151 | }
|
|---|
| 152 | rspeak(54);
|
|---|
| 153 | break;
|
|---|
| 154 | case PIRLOC:
|
|---|
| 155 | if (is_wiz) {
|
|---|
| 156 | fprintf(stdout, "The dwarfs are at locations:\n");
|
|---|
| 157 | for (i = 1; i < DWARFMAX; i++)
|
|---|
| 158 | fprintf(stdout, " %4d", g.dloc[i]);
|
|---|
| 159 | fprintf(stdout, "\nThe pirate is at location %4d\n",
|
|---|
| 160 | g.dloc[DWARFMAX]);
|
|---|
| 161 | }
|
|---|
| 162 | rspeak(54);
|
|---|
| 163 | break;
|
|---|
| 164 | default:
|
|---|
| 165 | printf("This intransitive not implemented yet\n");
|
|---|
| 166 | }
|
|---|
| 167 | return;
|
|---|
| 168 | }
|
|---|
| 169 |
|
|---|
| 170 | /*
|
|---|
| 171 | Routine to indicate no reasonable
|
|---|
| 172 | object for verb found. Used mostly by
|
|---|
| 173 | intransitive verbs.
|
|---|
| 174 | */
|
|---|
| 175 | void needobj()
|
|---|
| 176 | {
|
|---|
| 177 | printf("%s what?\n", vtxt[vrbx]);
|
|---|
| 178 | return;
|
|---|
| 179 | }
|
|---|
| 180 |
|
|---|
| 181 | /*
|
|---|
| 182 | CARRY, TAKE etc.
|
|---|
| 183 | */
|
|---|
| 184 | void ivtake()
|
|---|
| 185 | {
|
|---|
| 186 | int anobj, item;
|
|---|
| 187 |
|
|---|
| 188 | anobj = 0;
|
|---|
| 189 | for (item = 1; item < MAXOBJ; ++item)
|
|---|
| 190 | if (g.place[item] == g.loc)
|
|---|
| 191 | if (anobj == 0)
|
|---|
| 192 | anobj = item;
|
|---|
| 193 | else {
|
|---|
| 194 | needobj();
|
|---|
| 195 | return;
|
|---|
| 196 | }
|
|---|
| 197 |
|
|---|
| 198 | if (anobj == 0 || (dcheck() && g.dflag >= 2) || blind())
|
|---|
| 199 | needobj();
|
|---|
| 200 | else {
|
|---|
| 201 | object = anobj;
|
|---|
| 202 | if (verb == YANK)
|
|---|
| 203 | vyank();
|
|---|
| 204 | else if (verb == WEAR)
|
|---|
| 205 | vwear();
|
|---|
| 206 | else
|
|---|
| 207 | vtake();
|
|---|
| 208 | }
|
|---|
| 209 | return;
|
|---|
| 210 | }
|
|---|
| 211 |
|
|---|
| 212 | /*
|
|---|
| 213 | OPEN, LOCK, UNLOCK
|
|---|
| 214 | */
|
|---|
| 215 | void ivopen()
|
|---|
| 216 | {
|
|---|
| 217 | int obj_cnt, item;
|
|---|
| 218 |
|
|---|
| 219 | for (item = 1, obj_cnt = 0; item < MAXOBJ; item++) {
|
|---|
| 220 | if ((g.place[item] == g.loc) && (hinged(item))) {
|
|---|
| 221 | object = item;
|
|---|
| 222 | obj_cnt++;
|
|---|
| 223 | }
|
|---|
| 224 | }
|
|---|
| 225 | if (obj_cnt != 1)
|
|---|
| 226 | needobj();
|
|---|
| 227 | else if (verb == LOCK)
|
|---|
| 228 | vlock();
|
|---|
| 229 | else if (verb == UNLOCK)
|
|---|
| 230 | vunlock();
|
|---|
| 231 | else if (verb == SHUT)
|
|---|
| 232 | vclose();
|
|---|
| 233 | else
|
|---|
| 234 | vopen();
|
|---|
| 235 | }
|
|---|
| 236 |
|
|---|
| 237 | /*
|
|---|
| 238 | ATTACK, KILL etc
|
|---|
| 239 | */
|
|---|
| 240 | boolean previous_obj;
|
|---|
| 241 |
|
|---|
| 242 | void ivkill()
|
|---|
| 243 | {
|
|---|
| 244 | previous_obj = FALSE;
|
|---|
| 245 | if (dcheck() && g.dflag >= 2)
|
|---|
| 246 | object = DWARF;
|
|---|
| 247 | if (here(SNAKE))
|
|---|
| 248 | addobj(SNAKE);
|
|---|
| 249 | if (at(DRAGON) && g.prop[DRAGON] == 0)
|
|---|
| 250 | addobj(DRAGON);
|
|---|
| 251 | if (at(TROLL))
|
|---|
| 252 | addobj(TROLL);
|
|---|
| 253 | if (here(GNOME))
|
|---|
| 254 | addobj(GNOME);
|
|---|
| 255 | if (here(BEAR) && g.prop[BEAR] == 0)
|
|---|
| 256 | addobj(BEAR);
|
|---|
| 257 | if (here(WUMPUS) && g.prop[WUMPUS] == 0)
|
|---|
| 258 | addobj(WUMPUS);
|
|---|
| 259 | /* Can't attack bird by throwing axe */
|
|---|
| 260 | if (here(BIRD) && verb != THROW)
|
|---|
| 261 | addobj(BIRD);
|
|---|
| 262 | /* Clam and oyster both treated as clam for intransitive case; no
|
|---|
| 263 | harm done. */
|
|---|
| 264 | if (here(CLAM) || here(OYSTER))
|
|---|
| 265 | addobj(CLAM);
|
|---|
| 266 |
|
|---|
| 267 | if ((previous_obj) || (object == 0))
|
|---|
| 268 | rspeak(44);
|
|---|
| 269 | else
|
|---|
| 270 | vkill();
|
|---|
| 271 | return;
|
|---|
| 272 | }
|
|---|
| 273 |
|
|---|
| 274 | /*
|
|---|
| 275 | POUR if no object, assume liq in container, if holding one.
|
|---|
| 276 | */
|
|---|
| 277 | void ivpour()
|
|---|
| 278 | {
|
|---|
| 279 | if ((holding(BOTTLE)) && (liq(BOTTLE) != 0) && !holding(CASK))
|
|---|
| 280 | object = BOTTLE;
|
|---|
| 281 | if ((holding(CASK)) && (liq(CASK) != 0) && !holding(BOTTLE))
|
|---|
| 282 | object = CASK;
|
|---|
| 283 |
|
|---|
| 284 | if (object == 0)
|
|---|
| 285 | needobj();
|
|---|
| 286 | else
|
|---|
| 287 | trverb();
|
|---|
| 288 | }
|
|---|
| 289 |
|
|---|
| 290 | /*
|
|---|
| 291 | EAT. intransitive: assume edible if present, else ask what.
|
|---|
| 292 | If he as more than one edible, or none, 'EAT' is ambiguous
|
|---|
| 293 | without an explicit object.
|
|---|
| 294 | */
|
|---|
| 295 | void iveat()
|
|---|
| 296 | {
|
|---|
| 297 | int i;
|
|---|
| 298 |
|
|---|
| 299 | previous_obj = FALSE;
|
|---|
| 300 | for (i = 1; i < MAXOBJ; i++) {
|
|---|
| 301 | if ((here(i)) && (edible(i)))
|
|---|
| 302 | addobj(i);
|
|---|
| 303 | }
|
|---|
| 304 | if ((previous_obj) || (object == 0))
|
|---|
| 305 | needobj();
|
|---|
| 306 | else
|
|---|
| 307 | trverb();
|
|---|
| 308 | }
|
|---|
| 309 |
|
|---|
| 310 | /*
|
|---|
| 311 | DRINK. If no object, assume water or wine and look for them here.
|
|---|
| 312 | If potable is in bottle or cask, drink that. If not, see if there
|
|---|
| 313 | is something drinkable nearby (stream, lake, wine fountain, etc.),
|
|---|
| 314 | and drink that. If he has stuff in both containers, ask which.
|
|---|
| 315 | */
|
|---|
| 316 | void ivdrink()
|
|---|
| 317 | {
|
|---|
| 318 | int ll;
|
|---|
| 319 |
|
|---|
| 320 | previous_obj = FALSE;
|
|---|
| 321 | ll = liqloc(g.loc);
|
|---|
| 322 | if ((ll == WATER) || (ll == WINE)) {
|
|---|
| 323 | object = ll;
|
|---|
| 324 | iobj = -1;
|
|---|
| 325 | }
|
|---|
| 326 | ll = liq(BOTTLE);
|
|---|
| 327 | if ((athand(BOTTLE)) && ((ll == WATER) || (ll == WINE))) {
|
|---|
| 328 | object = ll;
|
|---|
| 329 | iobj = BOTTLE;
|
|---|
| 330 | }
|
|---|
| 331 | ll = liq(CASK);
|
|---|
| 332 | if ((athand(CASK)) && ((ll == WATER) || (ll == WINE))
|
|---|
| 333 | && iobj != BOTTLE) {
|
|---|
| 334 | object = ll;
|
|---|
| 335 | iobj = CASK;
|
|---|
| 336 | } else
|
|---|
| 337 | object = 0;
|
|---|
| 338 |
|
|---|
| 339 | if (object == 0)
|
|---|
| 340 | needobj();
|
|---|
| 341 | else
|
|---|
| 342 | trverb();
|
|---|
| 343 | }
|
|---|
| 344 |
|
|---|
| 345 | /*
|
|---|
| 346 | QUIT intransitive only. Verify intent and exit if that's what he wants
|
|---|
| 347 | */
|
|---|
| 348 | void ivquit()
|
|---|
| 349 | {
|
|---|
| 350 | gaveup = yes(22, 54, 54);
|
|---|
| 351 | if (gaveup)
|
|---|
| 352 | normend();
|
|---|
| 353 | return;
|
|---|
| 354 | }
|
|---|
| 355 |
|
|---|
| 356 | /*
|
|---|
| 357 | INVENTORY
|
|---|
| 358 | */
|
|---|
| 359 | void inventory()
|
|---|
| 360 | {
|
|---|
| 361 | int i, msg;
|
|---|
| 362 | boolean init_msg;
|
|---|
| 363 |
|
|---|
| 364 | init_msg = TRUE;
|
|---|
| 365 | msg = 98;
|
|---|
| 366 | for (i = 1; i < MAXOBJ; i++) {
|
|---|
| 367 | if (!holding(i) || wearng(i) || i == BEAR || i == BOAT)
|
|---|
| 368 | continue;
|
|---|
| 369 | if (init_msg)
|
|---|
| 370 | rspeak(99);
|
|---|
| 371 | pspeak(i, -1);
|
|---|
| 372 | init_msg = FALSE;
|
|---|
| 373 | msg = 0;
|
|---|
| 374 | lookin(i);
|
|---|
| 375 | }
|
|---|
| 376 |
|
|---|
| 377 | /* Tell him what he is wearing */
|
|---|
| 378 | init_msg = TRUE;
|
|---|
| 379 | for (i = 1; i < MAXOBJ; i++) {
|
|---|
| 380 | if (wearng(i)) {
|
|---|
| 381 | if (init_msg)
|
|---|
| 382 | fprintf(stdout, "\nYou are wearing:\n");
|
|---|
| 383 | fprintf(stdout, " ");
|
|---|
| 384 | pspeak(i, -1);
|
|---|
| 385 | msg = 0;
|
|---|
| 386 | init_msg = FALSE;
|
|---|
| 387 | }
|
|---|
| 388 | }
|
|---|
| 389 |
|
|---|
| 390 | if (holding(BOAT)) {
|
|---|
| 391 | rspeak(221);
|
|---|
| 392 | lookin(BOAT);
|
|---|
| 393 | }
|
|---|
| 394 | if (holding(BEAR))
|
|---|
| 395 | msg = 141;
|
|---|
| 396 |
|
|---|
| 397 | if (msg)
|
|---|
| 398 | rspeak(msg);
|
|---|
| 399 | return;
|
|---|
| 400 | }
|
|---|
| 401 |
|
|---|
| 402 | /*
|
|---|
| 403 | FILL bottle or cask must be empty, and some liquid avaible
|
|---|
| 404 | */
|
|---|
| 405 | void ivfill()
|
|---|
| 406 | {
|
|---|
| 407 | if ((g.prop[CASK] == 1) && !here(CASK))
|
|---|
| 408 | object = CASK;
|
|---|
| 409 | if ((g.prop[BOTTLE] == 1) && !here(BOTTLE))
|
|---|
| 410 | object = BOTTLE;
|
|---|
| 411 |
|
|---|
| 412 | if ((here(BOTTLE) && here(CASK)) || (object == 0))
|
|---|
| 413 | needobj();
|
|---|
| 414 | else
|
|---|
| 415 | trverb();
|
|---|
| 416 | }
|
|---|
| 417 |
|
|---|
| 418 | /*
|
|---|
| 419 | BLAST etc.
|
|---|
| 420 | */
|
|---|
| 421 | void ivblast()
|
|---|
| 422 | {
|
|---|
| 423 | if (!g.closed)
|
|---|
| 424 | actspk(verb);
|
|---|
| 425 | else {
|
|---|
| 426 | g.bonus = 135;
|
|---|
| 427 | if (g.place[ROD2] == 212 && g.loc == 116)
|
|---|
| 428 | g.bonus = 133;
|
|---|
| 429 | if (g.place[ROD2] == 116 && g.loc != 116)
|
|---|
| 430 | g.bonus = 134;
|
|---|
| 431 | rspeak(g.bonus);
|
|---|
| 432 | normend();
|
|---|
| 433 | }
|
|---|
| 434 | return;
|
|---|
| 435 | }
|
|---|
| 436 |
|
|---|
| 437 | /*
|
|---|
| 438 | Handle fee fie foe foo...
|
|---|
| 439 | */
|
|---|
| 440 | void ivfoo()
|
|---|
| 441 | {
|
|---|
| 442 | int k;
|
|---|
| 443 | int msg;
|
|---|
| 444 |
|
|---|
| 445 | k = VAL(vocab(vtxt[vrbx], MISC));
|
|---|
| 446 | if (g.foobar != 1 - k) {
|
|---|
| 447 | if (g.foobar == 0)
|
|---|
| 448 | msg = 42;
|
|---|
| 449 | else
|
|---|
| 450 | msg = 151;
|
|---|
| 451 | rspeak(msg);
|
|---|
| 452 | return;
|
|---|
| 453 | }
|
|---|
| 454 | g.foobar = k;
|
|---|
| 455 | if (k != 4)
|
|---|
| 456 | return;
|
|---|
| 457 | g.foobar = 0;
|
|---|
| 458 | if (g.place[EGGS] == plac[EGGS] ||
|
|---|
| 459 | (toting(EGGS) && g.loc == plac[EGGS])) {
|
|---|
| 460 | rspeak(42);
|
|---|
| 461 | return;
|
|---|
| 462 | }
|
|---|
| 463 | /* Bring back troll if we steal the eggs back from him before
|
|---|
| 464 | crossing */
|
|---|
| 465 | if (g.place[EGGS] == 0 && g.place[TROLL] == 0 && g.prop[TROLL] == 0)
|
|---|
| 466 | g.prop[TROLL] = 1;
|
|---|
| 467 |
|
|---|
| 468 | if (here(EGGS))
|
|---|
| 469 | k = 1;
|
|---|
| 470 | else if (g.loc == plac[EGGS])
|
|---|
| 471 | k = 0;
|
|---|
| 472 | else
|
|---|
| 473 | k = 2;
|
|---|
| 474 | move(EGGS, plac[EGGS]);
|
|---|
| 475 | pspeak(EGGS, k);
|
|---|
| 476 | return;
|
|---|
| 477 | }
|
|---|
| 478 |
|
|---|
| 479 | /*
|
|---|
| 480 | brief/unbrief. intransitive only.
|
|---|
| 481 | suppress long descriptions after first time.
|
|---|
| 482 | */
|
|---|
| 483 | void ivbrief()
|
|---|
| 484 | {
|
|---|
| 485 | int msg;
|
|---|
| 486 |
|
|---|
| 487 | g.detail = 3;
|
|---|
| 488 | g.terse = FALSE;
|
|---|
| 489 | if (g.abbnum != 10000) {
|
|---|
| 490 | msg = 156;
|
|---|
| 491 | g.abbnum = 10000;
|
|---|
| 492 | } else {
|
|---|
| 493 | msg = 374;
|
|---|
| 494 | g.abbnum = 5;
|
|---|
| 495 | }
|
|---|
| 496 | rspeak(msg);
|
|---|
| 497 | }
|
|---|
| 498 |
|
|---|
| 499 | /*
|
|---|
| 500 | read etc...
|
|---|
| 501 | */
|
|---|
| 502 | void ivread()
|
|---|
| 503 | {
|
|---|
| 504 | previous_obj = FALSE;
|
|---|
| 505 | if (here(BOOK))
|
|---|
| 506 | object = BOOK;
|
|---|
| 507 | if (here(BOOK2))
|
|---|
| 508 | addobj(BOOK2);
|
|---|
| 509 | if (here(BILLBD))
|
|---|
| 510 | addobj(BILLBD);
|
|---|
| 511 | if (here(CARVNG))
|
|---|
| 512 | addobj(CARVNG);
|
|---|
| 513 | if (here(MAGAZINE))
|
|---|
| 514 | addobj(MAGAZINE);
|
|---|
| 515 | if (here(MESSAGE))
|
|---|
| 516 | addobj(MESSAGE);
|
|---|
| 517 | if (here(OYSTER))
|
|---|
| 518 | addobj(OYSTER);
|
|---|
| 519 | if (here(POSTER))
|
|---|
| 520 | addobj(POSTER);
|
|---|
| 521 | if (here(TABLET))
|
|---|
| 522 | addobj(TABLET);
|
|---|
| 523 |
|
|---|
| 524 | if (previous_obj || object == 0 || dark())
|
|---|
| 525 | needobj();
|
|---|
| 526 | else
|
|---|
| 527 | vread();
|
|---|
| 528 | return;
|
|---|
| 529 | }
|
|---|
| 530 |
|
|---|
| 531 | /*
|
|---|
| 532 | LOOK. can't give more detail. Pretend it wasn't dark (though it may "now"
|
|---|
| 533 | be dark) so he won't fall into a pit staring into the gloom.
|
|---|
| 534 | */
|
|---|
| 535 | void ivlook()
|
|---|
| 536 | {
|
|---|
| 537 | if (g.detail++ < 3)
|
|---|
| 538 | rspeak(15);
|
|---|
| 539 | g.wzdark = FALSE;
|
|---|
| 540 | g.visited[g.loc] = 0;
|
|---|
| 541 | g.newloc = g.loc;
|
|---|
| 542 | newtravel = TRUE;
|
|---|
| 543 | return;
|
|---|
| 544 | }
|
|---|
| 545 |
|
|---|
| 546 | /*
|
|---|
| 547 | COMBO: trying to open safe. (see comments for fee fie foe foo)
|
|---|
| 548 | */
|
|---|
| 549 | void ivcombo()
|
|---|
| 550 | {
|
|---|
| 551 | int k, msg;
|
|---|
| 552 |
|
|---|
| 553 | k = VAL(vocab(vtxt[vrbx], MISC)) - 10;
|
|---|
| 554 | msg = 42;
|
|---|
| 555 | if (g.combo != 1 - k) {
|
|---|
| 556 | if (g.combo != 0)
|
|---|
| 557 | msg = 366;
|
|---|
| 558 | rspeak(msg);
|
|---|
| 559 | return;
|
|---|
| 560 | }
|
|---|
| 561 | g.combo = k;
|
|---|
| 562 | if (k != 3)
|
|---|
| 563 | rspeak(371);
|
|---|
| 564 | else {
|
|---|
| 565 | g.combo = 0;
|
|---|
| 566 | bitoff(SAFE, LOCKBT);
|
|---|
| 567 | biton(SAFE, OPENBT);
|
|---|
| 568 | g.prop[SAFE] = 1;
|
|---|
| 569 | if (g.prop[BOOK] < 0) {
|
|---|
| 570 | g.tally--;
|
|---|
| 571 | g.prop[BOOK] = 0;
|
|---|
| 572 | /* If remaining treasures too elusive, zap his lamp. this
|
|---|
| 573 | duplicates some code, must be done here since book is
|
|---|
| 574 | contained ins safe & tally stuff only works for thing
|
|---|
| 575 | deposited at a location. */
|
|---|
| 576 | if ((g.tally == g.tally2) && (g.tally != 0))
|
|---|
| 577 | g.limit = (g.limit < 35) ? g.limit : 35;
|
|---|
| 578 | }
|
|---|
| 579 | rspeak(365);
|
|---|
| 580 | }
|
|---|
| 581 | }
|
|---|
| 582 |
|
|---|
| 583 | /*
|
|---|
| 584 | ensure uniqueness as objects are searched
|
|---|
| 585 | out for an intransitive verb
|
|---|
| 586 | */
|
|---|
| 587 | void addobj(obj)
|
|---|
| 588 | int obj;
|
|---|
| 589 | {
|
|---|
| 590 | if (!previous_obj) {
|
|---|
| 591 | if (object != 0)
|
|---|
| 592 | previous_obj = TRUE;
|
|---|
| 593 | else
|
|---|
| 594 | object = obj;
|
|---|
| 595 | }
|
|---|
| 596 | return;
|
|---|
| 597 | }
|
|---|
