Remove various unneeded definitions of abs() in userland.
[dragonfly.git] / games / adventure / main.c
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.
18  * 3. Neither the name of the University nor the names of its contributors
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.
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 $
37  * $DragonFly: src/games/adventure/main.c,v 1.3 2005/03/25 12:56:48 liamfoy Exp $
38  */
39
40 /* Re-coding of advent in C: main program */
41
42 #include <sys/file.h>
43 #include <errno.h>
44 #include <sys/types.h>
45 #include <signal.h>
46 #include <stdio.h>
47 #include <stdlib.h>
48 #include <string.h>
49 #include <unistd.h>
50 #include "hdr.h"
51
52 int
53 main(int argc, char *argv[])
54 {
55         int i;
56         int rval, ll;
57         struct text *kk;
58
59         /* revoke setgid privileges from dm */
60         setgid(getgid());
61
62         init();         /* Initialize everything */
63         signal(SIGINT, trapdel);
64
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;
72                         unlink(argv[1]);/* Don't re-use the save */
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. */
80         }
81         startup();                      /* prepare for a user */
82
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;
90                 }
91                 rval = fdwarf();        /* dwarf stuff */
92                 if (rval == 99)
93                         die(99);
94
95 l2000:          if (loc == 0)
96                         die(99);        /* label 2000 */
97                 kk = &stext[loc];
98                 if ((abb[loc] % abbnum) == 0 || kk->seekadr == 0)
99                         kk = &ltext[loc];
100                 if (!forced(loc) && dark()) {
101                         if (wzdark && pct(35)) {
102                                 die(90);
103                                 goto l2000;
104                         }
105                         kk = &rtext[16];
106                 }
107                 if (toting(bear))
108                         rspeak(141);    /* label 2001 */
109                 speak(kk);
110                 k = 1;
111                 if (forced(loc))
112                         goto l8;
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;
129                                         tally--;
130                                         if (tally == tally2 && tally != 0)
131                                                 if (limit > 35)
132                                                         limit = 35;
133                                 }
134                                 ll = prop[obj]; /* 2006 */
135                                 if (obj == steps && loc == fixed[steps])
136                                         ll = 1;
137                                 pspeak(obj, ll);
138                         }                       /* 2008 */
139                         goto l2012;
140 l2009:                  k = 54;                 /* 2009 */
141 l2010:                  spk = k;
142 l2011:                  rspeak(spk);
143                 }
144 l2012:          verb = 0;                       /* 2012 */
145                 obj = 0;
146 l2600:          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];
153                 }
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;
162                 }
163 l2608:          if ((foobar = -foobar) > 0)
164                         foobar = 0;             /* 2608 */
165                 /* should check here for "magic mode" */
166                 turns++;
167                 if (demo && turns >= SHORT)
168                         done(1);                /* to 13000 */
169
170                 if (verb == say && wd2[0] != 0)
171                         verb = 0;
172                 if (verb == say)
173                         goto l4090;
174                 if (tally == 0 && loc >= 15 && loc != 33)
175                         clock1--;
176                 if (clock1 == 0) {
177                         closing();              /* to 10000 */
178                         goto l19999;
179                 }
180                 if (clock1 < 0)
181                         clock2--;
182                 if (clock2 == 0) {
183                         caveclose();            /* to 11000 */
184                         continue;               /* back to 2 */
185                 }
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;
196                         goto l19999;
197                 }
198                 if (limit == 0) {
199                         limit = -1;             /* 12400 */
200                         prop[lamp] = 0;
201                         rspeak(184);
202                         goto l19999;
203                 }
204                 if (limit < 0 && loc <= 8) {
205                         rspeak(185);            /* 12600 */
206                         gaveup = TRUE;
207                         done(2);                /* to 20000 */
208                 }
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;
218                         rspeak(spk);
219                 }
220 l19999:         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)))
225                         goto l2010;
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)))
230                         goto l2610;
231                 if (at(vocab(wd2, 1, 0)))
232                         strcpy(wd2, "pour");
233
234 l2610:          if (!strncmp(wd1, "west", 4))
235                         if (++iwest == 10)
236                                 rspeak(17);
237 l2630:          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;
244                         rspeak(spk);
245                         goto l2600;
246                 }
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:
259                         bug(22);
260                 }
261
262 l8:
263                 switch (march()) {
264                 case 2:
265                         continue;               /* i.e. goto l2 */
266                 case 99:
267                         die(99);
268                         goto l2000;
269                 default:
270                         bug(110);
271                 }
272
273 l2800:          strcpy(wd1, wd2);
274                 wd2[0] = 0;
275                 goto l2610;
276
277 l4000:          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];
293                         goto l9010;
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 */
304 l8000:                  printf("%s what?\n", wd1);
305                         obj = 0;
306                         goto l2600;
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;
324                         goto l9040;
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;
340 l8142:                  dstroy(food);
341                         spk = 72;
342                         goto l2011;
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 */
349                         goto l2012;
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;
360                                 }
361                         }
362                         if (toting(bear))
363                                 spk = 141;
364                         goto l2011;
365                 case 22:                        /* fill */
366                         goto l9220;
367                 case 23:                        /* blast */
368                         goto l9230;
369                 case 24:                        /* score: 8240 */
370                         scorng = TRUE;
371                         printf("If you were to quit now, you would score");
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);
378                         goto l2012;
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;
386                         goto l2011;
387 l8252:                  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);
404                         goto l2012;
405                 case 26:                        /* brief=8260 */
406                         spk = 156;
407                         abbnum = 10000;
408                         detail = 3;
409                         goto l2011;
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;
421                         goto l9270;
422                 case 30:                        /* suspend=8300 */
423                         spk = 201;
424                         if (demo)
425                                 goto l2011;
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");
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 */
436                         printf("Colossal cave is closed 9am-5pm Mon ");
437                         printf("through Fri except holidays.\n");
438                         goto l2012;
439                 default:
440                         bug(23);
441                 }
442
443 l4090:
444                 switch (verb) {
445                 case 1:                         /* take = 9010 */
446 l9010:                  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);
457                         }
458 l9020:          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);
468                         }
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);
477                         }
478 l9040:          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);
487                         }
488                 case 5:                         /* nothing */
489                         goto l2009;
490                 case 7:                         /* on 9070 */
491 l9070:                  if (!here(lamp))
492                                 goto l2011;
493                         spk = 184;
494                         if (limit < 0)
495                                 goto l2011;
496                         prop[lamp] = 1;
497                         rspeak(39);
498                         if (wzdark)
499                                 goto l2000;
500                         goto l2012;
501
502                 case 8:                         /* off */
503 l9080:                  if (!here(lamp))
504                                 goto l2011;
505                         prop[lamp] = 0;
506                         rspeak(40);
507                         if (dark())
508                                 rspeak(16);
509                         goto l2012;
510
511                 case 9:                         /* wave */
512                         if ((!toting(obj)) && (obj != rod || !toting(rod2)))
513                                 spk = 29;
514                         if (obj != rod || !at(fissur) || !toting(obj) || closng)
515                                 goto l2011;
516                         prop[fissur] = 1 - prop[fissur];
517                         pspeak(fissur, 2 - prop[fissur]);
518                         goto l2012;
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;
528 l9120:          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);
542                         }
543 l9130:          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];
563                                 goto l2011;
564                         }
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;
572                         goto l8;
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;
580                         goto l2011;
581 l9150:          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))
588                                 goto l2011;
589                         prop[bottle] = 1;
590                         place[water] = 0;
591                         spk = 74;
592                         goto l2011;
593                 case 16:                        /* 9160: rub */
594                         if (obj != lamp)
595                                 spk = 76;
596                         goto l2011;
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);
611                         }
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;
625                         goto l2011;
626 l9210:          case 21:                        /* feed */
627                         switch (trfeed()) {
628                         case 2011:
629                                 goto l2011;
630                         default:
631                                 bug(114);
632                         }
633 l9220:          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);
643                         }
644 l9230:          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;
652                         rspeak(bonus);
653                         done(2);
654 l9270:          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);
669                         goto l2012;
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;
679                                 goto l2011;
680                         }
681                         if (obj != mirror || !closed)
682                                 goto l2011;
683                         rspeak(197);
684                         done(3);
685                 case 29:                        /* 9290: wake */
686                         if (obj != dwarf || !closed)
687                                 goto l2011;
688                         rspeak(199);
689                         done(3);
690
691                 default:
692                         bug(24);
693                 }
694
695 l5000:
696                 obj = k;
697                 if (fixed[k] != loc && !here(k))
698                         goto l5100;
699 l5010:          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);
704                 goto l2600;
705 l5100:          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;
713 l5110:          if (k != dwarf)
714                         goto l5120;
715                 for (i = 1; i <= 5; i++)
716                         if (dloc[i] == loc && dflag >= 2)
717                                 goto l5010;
718 l5120:          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;
723                 goto l5010;
724 l5130:          if (obj != knife || knfloc != loc)
725                         goto l5140;
726                 knfloc = -1;
727                 spk = 116;
728                 goto l2011;
729 l5140:          if (obj != rod || !here(rod2))
730                         goto l5190;
731                 obj = rod2;
732                 goto l5010;
733 l5190:          if ((verb == find || verb == invent) && wd2[0] == 0)
734                         goto l5010;
735                 printf("I see no %s here\n", wd1);
736                 goto l2012;
737         }
738 }