2 * Copyright (c) 1991, 1993
3 * The Regents of the University of California. All rights reserved.
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.
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
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. All advertising materials mentioning features or use of this software
19 * must display the following acknowledgement:
20 * This product includes software developed by the University of
21 * California, Berkeley and its contributors.
22 * 4. Neither the name of the University nor the names of its contributors
23 * may be used to endorse or promote products derived from this software
24 * without specific prior written permission.
26 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
27 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
30 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
31 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
32 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
33 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
41 static char sccsid[] = "@(#)subr.c 8.1 (Berkeley) 5/31/93";
43 static const char rcsid[] =
47 /* Re-coding of advent in C: subroutines from main */
54 static void badmove (void);
55 static int bitset (int,int);
56 static int dropper (void);
57 static int liq2 (int);
58 static int mback (void);
59 static int specials (void);
60 static int trbridge (void);
62 /* Statement functions */
65 { if (place[objj] == -1) return(TRUE);
71 { if (place[objj]==loc || toting(objj)) return(TRUE);
77 { if (place[objj]==loc || fixed[objj]==loc) return(TRUE);
83 { return((1-pbotl)*water+(pbotl/2)*(water+oil));
90 if (i>-1-i) return(liq2(i));
91 else return(liq2(-1-i));
106 { if (cond[l] & setbit[n]) return(TRUE);
112 { if (cond[locc]==2) return(TRUE);
118 { if ((cond[loc]%2)==0 && (prop[lamp]==0 || !here(lamp)))
125 { if (ran(100)<n) return(TRUE);
131 fdwarf(void) /* 71 */
135 if (newloc!=loc&&!forced(loc)&&!bitset(loc,3))
136 { for (i=1; i<=5; i++)
137 { if (odloc[i]!=newloc||!dseen[i]) continue;
144 if (loc==0||forced(loc)||bitset(newloc,3)) return(2000);
146 { if (loc>=15) dflag=1;
149 if (dflag==1) /* 6000 */
150 { if (loc<15||pct(95)) return(2000);
154 if (pct(50)&&saved== -1) dloc[j]=0; /* 6001 */
157 { if (dloc[i]==loc) dloc[i]=daltlc;
158 odloc[i]=dloc[i]; /* 6002 */
164 dtotal=attack=stick=0; /* 6010 */
165 for (i=1; i<=6; i++) /* loop to 6030 */
166 { if (dloc[i]==0) continue;
168 for (kk=travel[dloc[i]]; kk!=0; kk=kk->next)
170 if (newloc>300||newloc<15||newloc==odloc[i]
171 ||(j>1&&newloc==tk[j-1])||j>=20
172 ||newloc==dloc[i]||forced(newloc)
173 ||(i==6&&bitset(newloc,3))
174 ||kk->conditions==100) continue;
177 tk[j]=odloc[i]; /* 6016 */
182 dseen[i]=(dseen[i]&&loc>=15)||(dloc[i]==loc||odloc[i]==loc);
183 if (!dseen[i]) continue; /* i.e. goto 6030 */
185 if (i==6) /* pirate's spotted him */
186 { if (loc==chloc||prop[chest]>=0) continue;
188 for (j=50; j<=maxtrs; j++) /* loop to 6020 */
189 { if (j==pyram&&(loc==plac[pyram]
190 || loc==plac[emrald])) goto l6020;
191 if (toting(j)) goto l6022;
192 l6020: if (here(j)) k=1;
194 if (tally==tally2+1 && k==0 && place[chest]==0
195 &&here(lamp) && prop[lamp]==1) goto l6025;
196 if (odloc[6]!=dloc[6]&&pct(20))
198 continue; /* to 6030 */
200 if (place[messag]==0) move(chest,chloc);
202 for (j=50; j<=maxtrs; j++) /* loop to 6023 */
203 { if (j==pyram && (loc==plac[pyram]
204 || loc==plac[emrald])) continue;
205 if (at(j)&&fixed[j]==0) carry(j,loc);
206 if (toting(j)) drop(j,chloc);
208 l6024: dloc[6]=odloc[6]=chloc;
217 if (odloc[i]!=dloc[i]) continue;
219 if (knfloc>=0) knfloc=loc;
220 if (ran(1000)<95*(dflag-2)) stick++;
222 if (dtotal==0) return(2000);
224 { printf("There are %d threatening little dwarves ",dtotal);
225 printf("in the room with you.\n");
228 if (attack==0) return(2000);
229 if (dflag==2) dflag=3;
230 if (saved!= -1) dflag=20;
232 { printf("%d of them throw knives at you!\n",attack);
234 l82: if (stick<=1) /* 82 */
236 if (stick==0) return(2000);
239 printf("%d of them get you!\n",stick); /* 83 */
250 march(void) /* label 8 */
253 if ((tkk=travel[newloc=loc])==0) bug(26);
254 if (k==null) return(2);
255 if (k==cave) /* 40 */
256 { if (loc<8) rspeak(57);
257 if (loc>=8) rspeak(58);
260 if (k==look) /* 30 */
261 { if (detail++<3) rspeak(15);
266 if (k==back) /* 20 */
276 for (; tkk!=0; tkk=tkk->next)
277 if (tkk->tverb==1 || tkk->tverb==k) break;
282 l11: ll1=tkk->conditions; /* 11 */
284 newloc=ll1; /* newloc=conditions */
285 k=newloc%100; /* k used for prob */
287 { if (newloc<=100) /* 13 */
288 { if (newloc!=0&&!pct(newloc)) goto l12; /* 14 */
289 l16: newloc=ll2; /* newloc=location */
290 if (newloc<=300) return(2);
292 switch(specials())/* to 30000 */
302 if (toting(k)||(newloc>200&&at(k))) goto l16;
305 if (prop[k]!=(newloc/100)-3) goto l16; /* newloc still conditions*/
306 l12: /* alternative to probability move */
307 for (; tkk!=0; tkk=tkk->next)
308 if (tkk->tloc!=ll2 || tkk->conditions!=ll1) break;
317 { struct travlist *tk2,*j;
319 if (forced(k=oldloc)) k=oldlc2; /* k=location */
327 for (; tkk!=0; tkk=tkk->next) /* 21 */
330 { k=tkk->tverb; /* k back to verb */
336 if (forced(ll) && k==j->tloc) tk2=tkk;
351 specials(void) /* 30000 */
352 { switch(newloc -= 300)
353 { case 1: /* 30100 */
355 if (holdng==0||(holdng==1&&toting(emrald))) return(2);
362 case 3: /* to 30300 */
372 trbridge(void) /* 30300 */
373 { if (prop[troll]==1)
378 move(troll,plac[troll]);
379 move(troll+100,fixd[troll]);
384 newloc=plac[troll]+fixd[troll]-loc; /* 30310 */
385 if (prop[troll]==0) prop[troll]=1;
386 if (!toting(bear)) return(2);
393 if (prop[spices]<0) tally2++;
400 badmove(void) /* 20 */
402 if (k>=43 && k<=50) spk=9;
403 if (k==29||k==30) spk=9;
404 if (k==7||k==36||k==37) spk=10;
405 if (k==11||k==19) spk=11;
406 if (verb==find||verb==invent) spk=59;
407 if (k==62||k==65) spk=42;
414 { printf("Please tell jim@rand.org that fatal bug %d happened.\n",n);
420 checkhints(void) /* 2600 &c */
422 for (hint=4; hint<=hntmax; hint++)
423 { if (hinted[hint]) continue;
424 if (!bitset(loc,hint)) hintlc[hint]= -1;
426 if (hintlc[hint]<hints[hint][1]) continue;
428 { case 4: /* 40400 */
429 if (prop[grate]==0&&!here(keys)) goto l40010;
432 if (here(bird)&&toting(rod)&&obj==bird) goto l40010;
433 continue; /* i.e. goto l40030 */
435 if (here(snake)&&!here(bird)) goto l40010;
438 if (atloc[loc]==0&&atloc[oldloc]==0
439 && atloc[oldlc2]==0&&holdng>1) goto l40010;
442 if (prop[emrald]!= -1&&prop[pyram]== -1) goto l40010;
445 goto l40010; /* 40900 */
448 l40010: hintlc[hint]=0;
449 if (!yes(hints[hint][3],0,54)) continue;
450 printf("I am prepared to give you a hint, but it will ");
451 printf("cost you %d points.\n",hints[hint][2]);
452 hinted[hint]=yes(175,hints[hint][4],54);
453 l40020: hintlc[hint]=0;
459 trsay(void) /* 9030 */
461 if (*wd2!=0) strcpy(wd1,wd2);
463 if (i==62||i==65||i==71||i==2025)
468 printf("\nOkay, \"%s\".\n",wd2);
474 trtake(void) /* 9010 */
476 if (toting(obj)) return(2011); /* 9010 */
478 if (obj==plant&&prop[plant]<=0) spk=115;
479 if (obj==bear&&prop[bear]==1) spk=169;
480 if (obj==chain&&prop[bear]!=0) spk=170;
481 if (fixed[obj]!=0) return(2011);
482 if (obj==water||obj==oil)
483 { if (here(bottle)&&liq()==obj)
488 if (toting(bottle)&&prop[bottle]==1)
490 if (prop[bottle]!=1) spk=105;
491 if (!toting(bottle)) spk=104;
494 l9017: if (holdng>=7)
499 { if (prop[bird]!=0) goto l9014;
504 if (!toting(cage)) /* 9013 */
508 prop[bird]=1; /* 9015 */
510 l9014: if ((obj==bird||obj==cage)&&prop[bird]!=0)
511 carry(bird+cage-obj,loc);
514 if (obj==bottle && k!=0) place[k] = -1;
520 dropper(void) /* 9021 */
522 if (k==obj) obj=bottle;
523 if (obj==bottle&&k!=0) place[k]=0;
524 if (obj==cage&&prop[bird]!=0) drop(bird,loc);
525 if (obj==bird) prop[bird]=0;
531 trdrop(void) /* 9020 */
533 if (toting(rod2)&&obj==rod&&!toting(rod)) obj=rod2;
534 if (!toting(obj)) return(2011);
535 if (obj==bird&&here(snake))
537 if (closed) return(19000);
542 if (obj==coins&&here(vend)) /* 9024 */
548 if (obj==bird&&at(dragon)&&prop[dragon]==0) /* 9025 */
552 if (place[snake]==plac[snake]) tally2--;
555 if (obj==bear&&at(troll)) /* 9026 */
559 move(troll2,plac[troll]);
560 move(troll2+100,fixd[troll]);
565 if (obj!=vase||loc==plac[pillow]) /* 9027 */
569 prop[vase]=2; /* 9028 */
570 if (at(pillow)) prop[vase]=0;
571 pspeak(vase,prop[vase]+1);
572 if (prop[vase]!=0) fixed[vase] = -1;
578 tropen(void) /* 9040 */
579 { if (obj==clam||obj==oyster)
581 if (obj==oyster) k=1;
583 if (toting(obj)) spk=120+k;
584 if (!toting(tridnt)) spk=122+k;
585 if (verb==lock) spk=61;
586 if (spk!=124) return(2011);
592 if (obj==door) spk=111;
593 if (obj==door&&prop[door]==1) spk=54;
594 if (obj==cage) spk=32;
595 if (obj==keys) spk=55;
596 if (obj==grate||obj==chain) spk=31;
597 if (spk!=31||!here(keys)) return(2011);
600 { spk=172; /* 9049: lock */
601 if (prop[chain]!=0) spk=34;
602 if (loc!=plac[chain]) spk=173;
603 if (spk!=172) return(2011);
605 if (toting(chain)) drop(chain,loc);
610 if (prop[bear]==0) spk=41;
611 if (prop[chain]==0) spk=37;
612 if (spk!=171) return(2011);
615 if (prop[bear]!=3) prop[bear]=2;
616 fixed[bear]=2-prop[bear];
621 if (!panic) clock2=15;
625 k=34+prop[grate]; /* 9043 */
627 if (verb==lock) prop[grate]=0;
634 trkill(void) /* 9120 */
637 if (dloc[i]==loc&&dflag>=2) break;
639 if (obj==0) /* 9122 */
640 { if (i!=0) obj=dwarf;
641 if (here(snake)) obj=obj*100+snake;
642 if (at(dragon)&&prop[dragon]==0) obj=obj*100+dragon;
643 if (at(troll)) obj=obj*100+troll;
644 if (here(bear)&&prop[bear]==0) obj=obj*100+bear;
645 if (obj>100) return(8000);
647 { if (here(bird)&&verb!=throw) obj=bird;
648 if (here(clam)||here(oyster)) obj=100*obj+clam;
649 if (obj>100) return(8000);
652 if (obj==bird) /* 9124 */
654 if (closed) return(2011);
657 if (place[snake]==plac[snake]) tally2++;
660 if (obj==0) spk=44; /* 9125 */
661 if (obj==clam||obj==oyster) spk=150;
662 if (obj==snake) spk=46;
663 if (obj==dwarf) spk=49;
664 if (obj==dwarf&&closed) return(19000);
665 if (obj==dragon) spk=147;
666 if (obj==troll) spk=157;
667 if (obj==bear) spk=165+(prop[bear]+1)/2;
668 if (obj!=dragon||prop[dragon]!=0) return(2011);
673 if (strncmp(wd1,"y",1)&&strncmp(wd1,"yes",3)) return(2608);
677 k=(plac[dragon]+fixd[dragon])/2;
682 for (obj=1; obj<=100; obj++)
683 if (place[obj]==plac[dragon]||place[obj]==fixd[dragon])
692 trtoss(void) /* 9170: throw */
694 if (toting(rod2)&&obj==rod&&!toting(rod)) obj=rod2;
695 if (!toting(obj)) return(2011);
696 if (obj>=50&&obj<=maxtrs&&at(troll))
697 { spk=159; /* 9178 */
701 drop(troll2,plac[troll]);
702 drop(troll2+100,fixd[troll]);
706 if (obj==food&&here(bear))
707 { obj=bear; /* 9177 */
710 if (obj!=axe) return(9020);
714 if (ran(3)==0||saved!= -1)
715 l9175: { rspeak(spk);
724 if (dkill==1) spk=149;
729 if (at(dragon)&&prop[dragon]==0)
732 if (at(troll)) goto l9175;
733 if (here(bear)&&prop[bear]==0)
747 trfeed(void) /* 9210 */
752 if (obj==snake||obj==dragon||obj==troll)
754 if (obj==dragon&&prop[dragon]!=0) spk=110;
755 if (obj==troll) spk=182;
756 if (obj!=snake||closed||!here(bird)) return(2011);
764 { if (!here(food)) return(2011);
770 { if (prop[bear]==0) spk=102;
771 if (prop[bear]==3) spk=110;
772 if (!here(food)) return(2011);
786 trfill(void) /* 9220 */
789 if (liqloc(loc)==0) spk=144;
790 if (liqloc(loc)==0||!toting(vase)) return(2011);
794 return(9020); /* advent/10 goes to 9024 */
796 if (obj!=0&&obj!=bottle) return(2011);
797 if (obj==0&&!here(bottle)) return(8000);
799 if (liqloc(loc)==0) spk=106;
800 if (liq()!=0) spk=105;
801 if (spk!=107) return(2011);
802 prop[bottle]=((cond[loc]%4)/2)*2;
804 if (toting(bottle)) place[k]= -1;
811 closing(void) /* 10000 */
814 prop[grate]=prop[fissur]=0;
821 move(troll2,plac[troll]);
822 move(troll2+100,fixd[troll]);
824 if(prop[bear]!=3) dstroy(bear);
836 caveclose(void) /* 11000 */
838 prop[bottle]=put(bottle,115,1);
839 prop[plant]=put(plant,115,0);
840 prop[oyster]=put(oyster,115,0);
841 prop[lamp]=put(lamp,115,0);
842 prop[rod]=put(rod,115,0);
843 prop[dwarf]=put(dwarf,115,0);
849 prop[snake]=put(snake,116,1);
850 prop[bird]=put(bird,116,1);
851 prop[cage]=put(cage,116,0);
852 prop[rod2]=put(rod2,116,0);
853 prop[pillow]=put(pillow,116,0);
855 prop[mirror]=put(mirror,115,0);
858 for (i=1; i<=100; i++)
859 if (toting(i)) dstroy(i);