Remove various unneeded definitions of abs() in userland.
[dragonfly.git] / games / adventure / main.c
CommitLineData
984263bc
MD
1/*-
2 * Copyright (c) 1991, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * The game adventure was originally written in Fortran by Will Crowther
6 * and Don Woods. It was later translated to C and enhanced by Jim
7 * Gillogly. This code is derived from software contributed to Berkeley
8 * by Jim Gillogly at The Rand Corporation.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
6693db17 18 * 3. Neither the name of the University nor the names of its contributors
984263bc
MD
19 * may be used to endorse or promote products derived from this software
20 * without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
1de703da
MD
33 *
34 * @(#) Copyright (c) 1991, 1993 The Regents of the University of California. All rights reserved.
35 * @(#)main.c 8.1 (Berkeley) 6/2/93
36 * $FreeBSD: src/games/adventure/main.c,v 1.9.2.1 2001/03/05 11:43:11 kris Exp $
3d6f29c5 37 * $DragonFly: src/games/adventure/main.c,v 1.3 2005/03/25 12:56:48 liamfoy Exp $
984263bc
MD
38 */
39
6693db17 40/* Re-coding of advent in C: main program */
984263bc
MD
41
42#include <sys/file.h>
43#include <errno.h>
44#include <sys/types.h>
45#include <signal.h>
46#include <stdio.h>
3d6f29c5 47#include <stdlib.h>
984263bc
MD
48#include <string.h>
49#include <unistd.h>
50#include "hdr.h"
51
984263bc 52int
6693db17 53main(int argc, char *argv[])
984263bc
MD
54{
55 int i;
6693db17 56 int rval, ll;
984263bc
MD
57 struct text *kk;
58
6693db17 59 /* revoke setgid privileges from dm */
984263bc
MD
60 setgid(getgid());
61
6693db17
SW
62 init(); /* Initialize everything */
63 signal(SIGINT, trapdel);
984263bc 64
6693db17
SW
65 if (argc > 1) { /* Restore file specified */
66 /* Restart is label 8305 (Fortran) */
67 i = restore(argv[1]); /* See what we've got */
68 switch (i) {
69 case 0: /* The restore worked fine */
70 yea = Start();
71 k = null;
984263bc 72 unlink(argv[1]);/* Don't re-use the save */
6693db17
SW
73 goto l8; /* Get where we're going */
74 case 1: /* Couldn't open it */
75 exit(1); /* So give up */
76 case 2: /* Oops -- file was altered */
77 rspeak(202); /* You dissolve */
78 exit(1); /* File could be non-adventure */
79 } /* So don't unlink it. */
984263bc 80 }
6693db17 81 startup(); /* prepare for a user */
984263bc 82
6693db17
SW
83 for (;;) { /* main command loop (label 2) */
84 if (newloc < 9 && newloc != 0 && closng) {
85 rspeak(130); /* if closing leave only by */
86 newloc = loc; /* main office */
87 if (!panic)
88 clock2 = 15;
89 panic = TRUE;
984263bc 90 }
6693db17
SW
91 rval = fdwarf(); /* dwarf stuff */
92 if (rval == 99)
93 die(99);
984263bc 94
6693db17
SW
95l2000: if (loc == 0)
96 die(99); /* label 2000 */
984263bc 97 kk = &stext[loc];
6693db17 98 if ((abb[loc] % abbnum) == 0 || kk->seekadr == 0)
984263bc 99 kk = &ltext[loc];
6693db17
SW
100 if (!forced(loc) && dark()) {
101 if (wzdark && pct(35)) {
102 die(90);
984263bc
MD
103 goto l2000;
104 }
105 kk = &rtext[16];
106 }
6693db17
SW
107 if (toting(bear))
108 rspeak(141); /* label 2001 */
984263bc 109 speak(kk);
6693db17 110 k = 1;
984263bc
MD
111 if (forced(loc))
112 goto l8;
6693db17
SW
113 if (loc == 33 && pct(25) && !closng)
114 rspeak(8);
115 if (!dark()) {
116 abb[loc]++;
117 for (i = atloc[loc]; i != 0; i = linkx[i]) { /* 2004 */
118 obj = i;
119 if (obj > 100)
120 obj -= 100;
121 if (obj == steps && toting(nugget))
122 continue;
123 if (prop[obj] < 0) {
124 if (closed)
125 continue;
126 prop[obj] = 0;
127 if (obj == rug || obj == chain)
128 prop[obj] = 1;
984263bc 129 tally--;
6693db17
SW
130 if (tally == tally2 && tally != 0)
131 if (limit > 35)
132 limit = 35;
984263bc 133 }
6693db17
SW
134 ll = prop[obj]; /* 2006 */
135 if (obj == steps && loc == fixed[steps])
984263bc
MD
136 ll = 1;
137 pspeak(obj, ll);
6693db17 138 } /* 2008 */
984263bc 139 goto l2012;
6693db17
SW
140l2009: k = 54; /* 2009 */
141l2010: spk = k;
142l2011: rspeak(spk);
984263bc 143 }
6693db17
SW
144l2012: verb = 0; /* 2012 */
145 obj = 0;
146l2600: checkhints(); /* to 2600-2602 */
147 if (closed) {
148 if (prop[oyster] < 0 && toting(oyster))
149 pspeak(oyster, 1);
150 for (i = 1; i < 100; i++)
151 if (toting(i) && prop[i] < 0) /* 2604 */
152 prop[i] = -1 - prop[i];
984263bc 153 }
6693db17
SW
154 wzdark = dark(); /* 2605 */
155 if (knfloc > 0 && knfloc != loc)
156 knfloc = 1;
157 getin(&wd1, &wd2);
158 if (delhit) { /* user typed a DEL */
159 delhit = 0; /* reset counter */
160 strcpy(wd1, "quit"); /* pretend he's quitting */
161 wd2[0] = 0;
984263bc 162 }
6693db17
SW
163l2608: if ((foobar = -foobar) > 0)
164 foobar = 0; /* 2608 */
165 /* should check here for "magic mode" */
984263bc 166 turns++;
6693db17
SW
167 if (demo && turns >= SHORT)
168 done(1); /* to 13000 */
984263bc 169
6693db17
SW
170 if (verb == say && wd2[0] != 0)
171 verb = 0;
172 if (verb == say)
984263bc 173 goto l4090;
6693db17
SW
174 if (tally == 0 && loc >= 15 && loc != 33)
175 clock1--;
176 if (clock1 == 0) {
177 closing(); /* to 10000 */
984263bc
MD
178 goto l19999;
179 }
6693db17
SW
180 if (clock1 < 0)
181 clock2--;
182 if (clock2 == 0) {
183 caveclose(); /* to 11000 */
184 continue; /* back to 2 */
984263bc 185 }
6693db17
SW
186 if (prop[lamp] == 1)
187 limit--;
188 if (limit <= 30 && here(batter) && prop[batter] == 0
189 && here(lamp)) {
190 rspeak(188); /* 12000 */
191 prop[batter] = 1;
192 if (toting(batter))
193 drop(batter, loc);
194 limit += 2500;
195 lmwarn = FALSE;
984263bc
MD
196 goto l19999;
197 }
6693db17
SW
198 if (limit == 0) {
199 limit = -1; /* 12400 */
200 prop[lamp] = 0;
984263bc
MD
201 rspeak(184);
202 goto l19999;
203 }
6693db17
SW
204 if (limit < 0 && loc <= 8) {
205 rspeak(185); /* 12600 */
206 gaveup = TRUE;
207 done(2); /* to 20000 */
984263bc 208 }
6693db17
SW
209 if (limit <= 30) {
210 if (lmwarn || !here(lamp))
211 goto l19999; /* 12200 */
212 lmwarn = TRUE;
213 spk = 187;
214 if (place[batter] == 0)
215 spk = 183;
216 if (prop[batter] == 1)
217 spk = 189;
984263bc
MD
218 rspeak(spk);
219 }
6693db17
SW
220l19999: k = 43;
221 if (liqloc(loc) == water)
222 k = 70;
223 if (!strncmp(wd1, "enter", 5) &&
224 (!strncmp(wd2, "strea", 5) || !strncmp(wd2, "water", 5)))
984263bc 225 goto l2010;
6693db17
SW
226 if (!strncmp(wd1, "enter", 5) && wd2[0] != 0)
227 goto l2800;
228 if ((strncmp(wd1, "water", 5) && strncmp(wd1, "oil", 3))
229 || (strncmp(wd2, "plant", 5) && strncmp(wd2, "door", 4)))
984263bc 230 goto l2610;
6693db17
SW
231 if (at(vocab(wd2, 1, 0)))
232 strcpy(wd2, "pour");
984263bc 233
6693db17
SW
234l2610: if (!strncmp(wd1, "west", 4))
235 if (++iwest == 10)
236 rspeak(17);
237l2630: i = vocab(wd1, -1, 0);
238 if (i == -1) {
239 spk = 60; /* 3000 */
240 if (pct(20))
241 spk = 61;
242 if (pct(20))
243 spk = 13;
984263bc
MD
244 rspeak(spk);
245 goto l2600;
246 }
6693db17
SW
247 k = i % 1000;
248 kq = i / 1000 + 1;
249 switch (kq) {
250 case 1:
251 goto l8;
252 case 2:
253 goto l5000;
254 case 3:
255 goto l4000;
256 case 4:
257 goto l2010;
258 default:
984263bc
MD
259 bug(22);
260 }
261
6693db17
SW
262l8:
263 switch (march()) {
264 case 2:
265 continue; /* i.e. goto l2 */
266 case 99:
984263bc
MD
267 die(99);
268 goto l2000;
6693db17
SW
269 default:
270 bug(110);
984263bc
MD
271 }
272
6693db17
SW
273l2800: strcpy(wd1, wd2);
274 wd2[0] = 0;
984263bc
MD
275 goto l2610;
276
6693db17
SW
277l4000: verb = k;
278 spk = actspk[verb];
279 if (wd2[0] != 0 && verb != say)
280 goto l2800;
281 if (verb == say)
282 obj = wd2[0];
283 if (obj != 0)
284 goto l4090;
285 switch (verb) {
286 case 1: /* take = 8010 */
287 if (atloc[loc] == 0 || linkx[atloc[loc]] != 0)
288 goto l8000;
289 for (i = 1; i <= 5; i++)
290 if (dloc[i] == loc && dflag >= 2)
291 goto l8000;
292 obj = atloc[loc];
984263bc 293 goto l9010;
6693db17
SW
294 case 2: /* 8000: drop */
295 case 3: /* say */
296 case 9: /* wave */
297 case 10: /* calm */
298 case 16: /* rub */
299 case 17: /* toss */
300 case 19: /* find */
301 case 21: /* feed */
302 case 28: /* break */
303 case 29: /* wake */
304l8000: printf("%s what?\n", wd1);
305 obj = 0;
984263bc 306 goto l2600;
6693db17
SW
307 case 4: /* 8040: open */
308 case 6: /* lock */
309 spk = 28;
310 if (here(clam))
311 obj = clam;
312 if (here(oyster))
313 obj = oyster;
314 if (at(door))
315 obj = door;
316 if (at(grate))
317 obj = grate;
318 if (obj != 0 && here(chain))
319 goto l8000;
320 if (here(chain))
321 obj = chain;
322 if (obj == 0)
323 goto l2011;
984263bc 324 goto l9040;
6693db17
SW
325 case 5: /* nothing */
326 goto l2009;
327 case 7: /* on */
328 goto l9070;
329 case 8: /* off */
330 goto l9080;
331 case 11: /* walk */
332 goto l8000;
333 case 12: /* kill */
334 goto l9120;
335 case 13: /* pour */
336 goto l9130;
337 case 14: /* eat: 8140 */
338 if (!here(food))
339 goto l8000;
340l8142: dstroy(food);
341 spk = 72;
984263bc 342 goto l2011;
6693db17
SW
343 case 15: /* drink */
344 goto l9150;
345 case 18: /* quit: 8180 */
346 gaveup = yes(22, 54, 54);
347 if (gaveup)
348 done(2); /* 8185 */
984263bc 349 goto l2012;
6693db17
SW
350 case 20: /* invent=8200 */
351 spk = 98;
352 for (i = 1; i <= 100; i++) {
353 if (i != bear && toting(i)) {
354 if (spk == 98)
355 rspeak(99);
356 blklin = FALSE;
357 pspeak(i, -1);
358 blklin = TRUE;
359 spk = 0;
984263bc
MD
360 }
361 }
6693db17
SW
362 if (toting(bear))
363 spk = 141;
984263bc 364 goto l2011;
6693db17
SW
365 case 22: /* fill */
366 goto l9220;
367 case 23: /* blast */
368 goto l9230;
369 case 24: /* score: 8240 */
370 scorng = TRUE;
984263bc 371 printf("If you were to quit now, you would score");
6693db17
SW
372 printf(" %d out of a possible ", score());
373 printf("%d.", mxscor);
374 scorng = FALSE;
375 gaveup = yes(143, 54, 54);
376 if (gaveup)
377 done(2);
984263bc 378 goto l2012;
6693db17
SW
379 case 25: /* foo: 8250 */
380 k = vocab(wd1, 3, 0);
381 spk = 42;
382 if (foobar == 1 - k)
383 goto l8252;
384 if (foobar != 0)
385 spk = 151;
984263bc 386 goto l2011;
6693db17
SW
387l8252: foobar = k;
388 if (k != 4)
389 goto l2009;
390 foobar = 0;
391 if (place[eggs] == plac[eggs]
392 || (toting(eggs) && loc == plac[eggs]))
393 goto l2011;
394 if (place[eggs] == 0 && place[troll] == 0 &&
395 prop[troll] == 0)
396 prop[troll] = 1;
397 k = 2;
398 if (here(eggs))
399 k = 1;
400 if (loc == plac[eggs])
401 k = 0;
402 move(eggs, plac[eggs]);
403 pspeak(eggs, k);
984263bc 404 goto l2012;
6693db17
SW
405 case 26: /* brief=8260 */
406 spk = 156;
407 abbnum = 10000;
408 detail = 3;
984263bc 409 goto l2011;
6693db17
SW
410 case 27: /* read=8270 */
411 if (here(magzin))
412 obj = magzin;
413 if (here(tablet))
414 obj = obj * 100 + tablet;
415 if (here(messag))
416 obj = obj * 100 + messag;
417 if (closed && toting(oyster))
418 obj = oyster;
419 if (obj > 100 || obj == 0 || dark())
420 goto l8000;
984263bc 421 goto l9270;
6693db17
SW
422 case 30: /* suspend=8300 */
423 spk = 201;
424 if (demo)
425 goto l2011;
984263bc
MD
426 printf("I can suspend your adventure for you so");
427 printf(" you can resume later, but\n");
428 printf("you will have to wait at least");
6693db17
SW
429 printf(" %d minutes before continuing.", latncy);
430 if (!yes(200, 54, 54))
431 goto l2012;
432 datime(&saved, &savet);
433 ciao(); /* Do we quit? */
434 continue; /* Maybe not */
435 case 31: /* hours=8310 */
984263bc
MD
436 printf("Colossal cave is closed 9am-5pm Mon ");
437 printf("through Fri except holidays.\n");
438 goto l2012;
6693db17
SW
439 default:
440 bug(23);
984263bc
MD
441 }
442
6693db17
SW
443l4090:
444 switch (verb) {
445 case 1: /* take = 9010 */
446l9010: switch (trtake()) {
447 case 2011:
448 goto l2011;
449 case 9220:
450 goto l9220;
451 case 2009:
452 goto l2009;
453 case 2012:
454 goto l2012;
455 default:
456 bug(102);
984263bc 457 }
6693db17
SW
458l9020: case 2: /* drop = 9020 */
459 switch (trdrop()) {
460 case 2011:
461 goto l2011;
462 case 19000:
463 done(3);
464 case 2012:
465 goto l2012;
466 default:
467 bug(105);
984263bc 468 }
6693db17
SW
469 case 3: /* label 9030 */
470 switch (trsay()) {
471 case 2012:
472 goto l2012;
473 case 2630:
474 goto l2630;
475 default:
476 bug(107);
984263bc 477 }
6693db17
SW
478l9040: case 4: /* open */
479 case 6: /* close */
480 switch (tropen()) {
481 case 2011:
482 goto l2011;
483 case 2010:
484 goto l2010;
485 default:
486 bug(106);
984263bc 487 }
6693db17
SW
488 case 5: /* nothing */
489 goto l2009;
490 case 7: /* on 9070 */
491l9070: if (!here(lamp))
492 goto l2011;
493 spk = 184;
494 if (limit < 0)
495 goto l2011;
496 prop[lamp] = 1;
984263bc 497 rspeak(39);
6693db17
SW
498 if (wzdark)
499 goto l2000;
984263bc
MD
500 goto l2012;
501
6693db17
SW
502 case 8: /* off */
503l9080: if (!here(lamp))
504 goto l2011;
505 prop[lamp] = 0;
984263bc 506 rspeak(40);
6693db17
SW
507 if (dark())
508 rspeak(16);
984263bc
MD
509 goto l2012;
510
6693db17
SW
511 case 9: /* wave */
512 if ((!toting(obj)) && (obj != rod || !toting(rod2)))
513 spk = 29;
514 if (obj != rod || !at(fissur) || !toting(obj) || closng)
984263bc 515 goto l2011;
6693db17
SW
516 prop[fissur] = 1 - prop[fissur];
517 pspeak(fissur, 2 - prop[fissur]);
984263bc 518 goto l2012;
6693db17
SW
519 case 10: /* calm */
520 case 11: /* walk */
521 case 18: /* quit */
522 case 24: /* score */
523 case 25: /* foo */
524 case 26: /* brief */
525 case 30: /* suspend */
526 case 31: /* hours */
527 goto l2011;
528l9120: case 12: /* kill */
529 switch (trkill()) {
530 case 8000:
531 goto l8000;
532 case 8:
533 goto l8;
534 case 2011:
535 goto l2011;
536 case 2608:
537 goto l2608;
538 case 19000:
539 done(3);
540 default:
541 bug(112);
984263bc 542 }
6693db17
SW
543l9130: case 13: /* pour */
544 if (obj == bottle || obj == 0)
545 obj = liq();
546 if (obj == 0)
547 goto l8000;
548 if (!toting(obj))
549 goto l2011;
550 spk = 78;
551 if (obj != oil && obj != water)
552 goto l2011;
553 prop[bottle] = 1;
554 place[obj] = 0;
555 spk = 77;
556 if (!(at(plant) || at(door)))
557 goto l2011;
558 if (at(door)) {
559 prop[door] = 0; /* 9132 */
560 if (obj == oil)
561 prop[door] = 1;
562 spk = 113 + prop[door];
984263bc
MD
563 goto l2011;
564 }
6693db17
SW
565 spk = 112;
566 if (obj != water)
567 goto l2011;
568 pspeak(plant, prop[plant] + 1);
569 prop[plant] = (prop[plant] + 2)% 6;
570 prop[plant2] = prop[plant] / 2;
571 k = null;
984263bc 572 goto l8;
6693db17
SW
573 case 14: /* 9140: eat */
574 if (obj == food)
575 goto l8142;
576 if (obj == bird || obj == snake || obj == clam
577 || obj == oyster || obj == dwarf || obj == dragon
578 || obj == troll || obj == bear)
579 spk = 71;
984263bc 580 goto l2011;
6693db17
SW
581l9150: case 15: /* 9150: drink */
582 if (obj == 0 && liqloc(loc) != water && (liq() != water
583 || !here(bottle)))
584 goto l8000;
585 if (obj != 0 && obj != water)
586 spk = 110;
587 if (spk == 110 || liq() != water || !here(bottle))
984263bc 588 goto l2011;
6693db17
SW
589 prop[bottle] = 1;
590 place[water] = 0;
591 spk = 74;
984263bc 592 goto l2011;
6693db17
SW
593 case 16: /* 9160: rub */
594 if (obj != lamp)
595 spk = 76;
984263bc 596 goto l2011;
6693db17
SW
597 case 17: /* 9170: throw */
598 switch (trtoss()) {
599 case 2011:
600 goto l2011;
601 case 9020:
602 goto l9020;
603 case 9120:
604 goto l9120;
605 case 8:
606 goto l8;
607 case 9210:
608 goto l9210;
609 default:
610 bug(113);
984263bc 611 }
6693db17
SW
612 case 19: /* 9190: find */
613 case 20: /* invent */
614 if (at(obj) || (liq() == obj && at(bottle))
615 || k == liqloc(loc))
616 spk = 94;
617 for (i = 1; i <= 5; i++)
618 if (dloc[i] == loc && dflag >= 2
619 && obj == dwarf)
620 spk = 94;
621 if (closed)
622 spk = 138;
623 if (toting(obj))
624 spk = 24;
984263bc 625 goto l2011;
6693db17
SW
626l9210: case 21: /* feed */
627 switch (trfeed()) {
628 case 2011:
629 goto l2011;
630 default:
631 bug(114);
984263bc 632 }
6693db17
SW
633l9220: case 22: /* fill */
634 switch (trfill()) {
635 case 2011:
636 goto l2011;
637 case 8000:
638 goto l8000;
639 case 9020:
640 goto l9020;
641 default:
642 bug(115);
984263bc 643 }
6693db17
SW
644l9230: case 23: /* blast */
645 if (prop[rod2] < 0 || !closed)
646 goto l2011;
647 bonus = 133;
648 if (loc == 115)
649 bonus = 134;
650 if (here(rod2))
651 bonus = 135;
984263bc
MD
652 rspeak(bonus);
653 done(2);
6693db17
SW
654l9270: case 27: /* read */
655 if (dark())
656 goto l5190;
657 if (obj == magzin)
658 spk = 190;
659 if (obj == tablet)
660 spk = 196;
661 if (obj == messag)
662 spk = 191;
663 if (obj == oyster && hinted[2] && toting(oyster))
664 spk = 194;
665 if (obj != oyster || hinted[2] || !toting(oyster)
666 || !closed)
667 goto l2011;
668 hinted[2] = yes(192, 193, 54);
984263bc 669 goto l2012;
6693db17
SW
670 case 28: /* 9280: break */
671 if (obj == mirror)
672 spk = 148;
673 if (obj == vase && prop[vase] == 0) {
674 spk = 198;
675 if (toting(vase))
676 drop(vase, loc);
677 prop[vase] = 2;
678 fixed[vase] = -1;
984263bc
MD
679 goto l2011;
680 }
6693db17
SW
681 if (obj != mirror || !closed)
682 goto l2011;
984263bc
MD
683 rspeak(197);
684 done(3);
6693db17
SW
685 case 29: /* 9290: wake */
686 if (obj != dwarf || !closed)
687 goto l2011;
984263bc
MD
688 rspeak(199);
689 done(3);
690
6693db17
SW
691 default:
692 bug(24);
984263bc
MD
693 }
694
6693db17
SW
695l5000:
696 obj = k;
697 if (fixed[k] != loc && !here(k))
698 goto l5100;
699l5010: if (wd2[0] != 0)
700 goto l2800;
701 if (verb != 0)
702 goto l4090;
703 printf("What do you want to do with the %s?\n", wd1);
984263bc 704 goto l2600;
6693db17
SW
705l5100: if (k != grate)
706 goto l5110;
707 if (loc == 1 || loc == 4 || loc == 7)
708 k = dprssn;
709 if (loc > 9 && loc < 15)
710 k = entrnc;
711 if (k != grate)
712 goto l8;
713l5110: if (k != dwarf)
714 goto l5120;
715 for (i = 1; i <= 5; i++)
716 if (dloc[i] == loc && dflag >= 2)
717 goto l5010;
718l5120: if ((liq() == k && here(bottle)) || k == liqloc(loc))
719 goto l5010;
720 if (obj != plant || !at(plant2) || prop[plant2] == 0)
721 goto l5130;
722 obj = plant2;
984263bc 723 goto l5010;
6693db17
SW
724l5130: if (obj != knife || knfloc != loc)
725 goto l5140;
984263bc 726 knfloc = -1;
6693db17 727 spk = 116;
984263bc 728 goto l2011;
6693db17
SW
729l5140: if (obj != rod || !here(rod2))
730 goto l5190;
731 obj = rod2;
984263bc 732 goto l5010;
6693db17
SW
733l5190: if ((verb == find || verb == invent) && wd2[0] == 0)
734 goto l5010;
735 printf("I see no %s here\n", wd1);
984263bc
MD
736 goto l2012;
737 }
738}