![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to main.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / games / adventure|
Return to main.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / games / adventure |
1.1 root 1: /* Re-coding of advent in C: main program */
2:
3: #include <sys/file.h>
4: #include <stdio.h>
5: #include "hdr.h"
6: #include "pathnames.h"
7:
8: static char sccsid[] = " main.c 4.2 89/03/05 ";
9:
10: int datfd = -1;
11: main(argc,argv)
12: int argc;
13: char **argv;
14: {
15: extern int errno;
16: register int i;
17: int rval,ll;
18: struct text *kk;
19: extern trapdel();
20: char *strerror();
21: static reenter;
22:
23: reenter++;
24: switch (setup) {
25: case 0:
26: if ((datfd = open(*argv, O_RDONLY, 0)) < 0) {
27: fprintf(stderr, "adventure: can't init\n");
28: exit(1);
29: }
30: init(*argv);
31: /* NOTREACHED */
32: case 1:
33: if ((datfd = open(_PATH_ADVENTURE, O_RDONLY, 0)) < 0) {
34: fprintf(stderr, "adventure: %s: %s\n", _PATH_ADVENTURE,
35: strerror(errno));
36: exit(1);
37: }
38: startup(); /* prepare for a user */
39: signal(2,trapdel);
40: break;
41: case -1: /* restarting game : 8305 */
42: yea=start(0);
43: setup=3;
44: k=null;
45: goto l8;
46: default:
47: printf("Your forged file dissappears in a puff of greasy black smoke! (poof)\n");
48: unlink(argv[0]);
49: exit(1);
50: }
51:
52: for (;;) /* main command loop (label 2) */
53: { if (newloc<9 && newloc!=0 && closng)
54: { rspeak(130); /* if closing leave only by */
55: newloc=loc; /* main office */
56: if (!panic) clock2=15;
57: panic=TRUE;
58: }
59:
60: rval=fdwarf(); /* dwarf stuff */
61: if (rval==99) die(99);
62:
63: l2000: if (loc==0) die(99); /* label 2000 */
64: kk = &stext[loc];
65: if ((abb[loc]%abbnum)==0 || kk->seekadr==0)
66: kk = <ext[loc];
67: if (!forced(loc) && dark(0))
68: { if (wzdark && pct(35))
69: { die(90);
70: goto l2000;
71: }
72: kk = &rtext[16];
73: }
74: l2001: if (toting(bear)) rspeak(141); /* 2001 */
75: speak(kk);
76: k=1;
77: if (forced(loc))
78: goto l8;
79: if (loc==33 && pct(25)&&!closng) rspeak(8);
80: if (!dark(0))
81: { abb[loc]++;
82: for (i=atloc[loc]; i!=0; i=link[i]) /*2004 */
83: { obj=i;
84: if (obj>100) obj -= 100;
85: if (obj==steps && toting(nugget)) continue;
86: if (prop[obj]<0)
87: { if (closed) continue;
88: prop[obj]=0;
89: if (obj==rug||obj==chain)
90: prop[obj]=1;
91: tally--;
92: if (tally==tally2 && tally != 0)
93: if (limit>35) limit=35;
94: }
95: kk=(struct text *) prop[obj]; /* 2006 */
96: if (obj==steps && loc==fixed[steps])kk=(struct text *)1;
97: pspeak(obj,kk);
98: } /* 2008 */
99: goto l2012;
100: l2009: k=54; /* 2009 */
101: l2010: spk=k;
102: l2011: rspeak(spk);
103: }
104: l2012: verb=0; /* 2012 */
105: obj=0;
106: l2600: checkhints(); /* to 2600-2602 */
107: if (closed)
108: { if (prop[oyster]<0 && toting(oyster))
109: pspeak(oyster,1);
110: for (i=1; i<100; i++)
111: if (toting(i)&&prop[i]<0) /*2604 */
112: prop[i] = -1-prop[i];
113: }
114: wzdark=dark(0); /* 2605 */
115: if (knfloc>0 && knfloc!=loc) knfloc=1;
116: getin(&wd1,&wd2);
117: if (delhit) /* user typed a DEL */
118: { delhit=0; /* reset counter */
119: copystr("quit",wd1); /* pretend he's quitting*/
120: *wd2=0;
121: }
122: l2608: if ((foobar = -foobar)>0) foobar=0; /* 2608 */
123: /* should check here for "magic mode" */
124: turns++;
125: if (demo && turns>=SHORT) done(1); /* to 13000 */
126:
127: if (verb==say && *wd2!=0) verb=0;
128: if (verb==say)
129: goto l4090;
130: if (tally==0 && loc>=15 && loc!=33) clock1--;
131: if (clock1==0)
132: { closing(); /* to 10000 */
133: goto l19999;
134: }
135: if (clock1<0) clock2--;
136: if (clock2==0)
137: { caveclose(); /* to 11000 */
138: continue; /* back to 2 */
139: }
140: if (prop[lamp]==1) limit--;
141: if (limit<=30 && here(batter) && prop[batter]==0
142: && here(lamp))
143: { rspeak(188); /* 12000 */
144: prop[batter]=1;
145: if (toting(batter)) drop(batter,loc);
146: limit=limit+2500;
147: lmwarn=FALSE;
148: goto l19999;
149: }
150: if (limit==0)
151: { limit = -1; /* 12400 */
152: prop[lamp]=0;
153: rspeak(184);
154: goto l19999;
155: }
156: if (limit<0&&loc<=8)
157: { rspeak(185); /* 12600 */
158: gaveup=TRUE;
159: done(2); /* to 20000 */
160: }
161: if (limit<=30)
162: { if (lmwarn|| !here(lamp)) goto l19999; /*12200*/
163: lmwarn=TRUE;
164: spk=187;
165: if (place[batter]==0) spk=183;
166: if (prop[batter]==1) spk=189;
167: rspeak(spk);
168: }
169: l19999: k=43;
170: if (liqloc(loc)==water) k=70;
171: if (weq(wd1,"enter") &&
172: (weq(wd2,"strea")||weq(wd2,"water")))
173: goto l2010;
174: if (weq(wd1,"enter") && *wd2!=0) goto l2800;
175: if ((!weq(wd1,"water")&&!weq(wd1,"oil"))
176: || (!weq(wd2,"plant")&&!weq(wd2,"door")))
177: goto l2610;
178: if (at(vocab(wd2,1))) copystr("pour",wd2);
179: l2610: if (weq(wd1,"west"))
180: if (++iwest==10) rspeak(17);
181: l2630: i=vocab(wd1,-1);
182: if (i== -1)
183: { spk=60; /* 3000 */
184: if (pct(20)) spk=61;
185: if (pct(20)) spk=13;
186: rspeak(spk);
187: goto l2600;
188: }
189: k=i%1000;
190: kq=i/1000+1;
191: switch(kq)
192: { case 1: goto l8;
193: case 2: goto l5000;
194: case 3: goto l4000;
195: case 4: goto l2010;
196: default:
197: printf("Error 22\n");
198: exit(0);
199: }
200:
201: l8:
202: switch(march())
203: { case 2: continue; /* i.e. goto l2 */
204: case 99:
205: switch(die(99))
206: { case 2000: goto l2000;
207: default: bug(111);
208: }
209: default: bug(110);
210: }
211:
212: l2800: copystr(wd2,wd1);
213: *wd2=0;
214: goto l2610;
215:
216: l4000: verb=k;
217: spk=actspk[verb];
218: if (*wd2!=0 && verb!=say) goto l2800;
219: if (verb==say) obj= *wd2;
220: if (obj!=0) goto l4090;
221: l4080:
222: switch(verb)
223: { case 1: /* take = 8010 */
224: if (atloc[loc]==0||link[atloc[loc]]!=0) goto l8000;
225: for (i=1; i<=5; i++)
226: if (dloc[i]==loc&&dflag>=2) goto l8000;
227: obj=atloc[loc];
228: goto l9010;
229: case 2: case 3: case 9: /* 8000 : drop,say,wave */
230: case 10: case 16: case 17: /* calm,rub,toss */
231: case 19: case 21: case 28: /* find,feed,break */
232: case 29: /* wake */
233: l8000: printf("%s what?\n",wd1);
234: obj=0;
235: goto l2600;
236: case 4: case 6: /* 8040 open,lock */
237: spk=28;
238: if (here(clam)) obj=clam;
239: if (here(oyster)) obj=oyster;
240: if (at(door)) obj=door;
241: if (at(grate)) obj=grate;
242: if (obj!=0 && here(chain)) goto l8000;
243: if (here(chain)) obj=chain;
244: if (obj==0) goto l2011;
245: goto l9040;
246: case 5: goto l2009; /* nothing */
247: case 7: goto l9070; /* on */
248: case 8: goto l9080; /* off */
249: case 11: goto l8000; /* walk */
250: case 12: goto l9120; /* kill */
251: case 13: goto l9130; /* pour */
252: case 14: /* eat: 8140 */
253: if (!here(food)) goto l8000;
254: l8142: dstroy(food);
255: spk=72;
256: goto l2011;
257: case 15: goto l9150; /* drink */
258: case 18: /* quit: 8180 */
259: gaveup=yes(22,54,54);
260: if (gaveup) done(2); /* 8185 */
261: goto l2012;
262: case 20: /* invent=8200 */
263: spk=98;
264: for (i=1; i<=100; i++)
265: { if (i!=bear && toting(i))
266: { if (spk==98) rspeak(99);
267: blklin=FALSE;
268: pspeak(i,-1);
269: blklin=TRUE;
270: spk=0;
271: }
272: }
273: if (toting(bear)) spk=141;
274: goto l2011;
275: case 22: goto l9220; /* fill */
276: case 23: goto l9230; /* blast */
277: case 24: /* score: 8240 */
278: scorng=TRUE;
279: printf("If you were to quit now, you would score");
280: printf(" %d out of a possible ",score());
281: printf("%d.",mxscor);
282: scorng=FALSE;
283: gaveup=yes(143,54,54);
284: if (gaveup) done(2);
285: goto l2012;
286: case 25: /* foo: 8250 */
287: k=vocab(wd1,3);
288: spk=42;
289: if (foobar==1-k) goto l8252;
290: if (foobar!=0) spk=151;
291: goto l2011;
292: l8252: foobar=k;
293: if (k!=4) goto l2009;
294: foobar=0;
295: if (place[eggs]==plac[eggs]
296: ||(toting(eggs)&&loc==plac[eggs])) goto l2011;
297: if (place[eggs]==0&&place[troll]==0&&prop[troll]==0)
298: prop[troll]=1;
299: k=2;
300: if (here(eggs)) k=1;
301: if (loc==plac[eggs]) k=0;
302: move(eggs,plac[eggs]);
303: pspeak(eggs,k);
304: goto l2012;
305: case 26: /* brief=8260 */
306: spk=156;
307: abbnum=10000;
308: detail=3;
309: goto l2011;
310: case 27: /* read=8270 */
311: if (here(magzin)) obj=magzin;
312: if (here(tablet)) obj=obj*100+tablet;
313: if (here(messag)) obj=obj*100+messag;
314: if (closed&&toting(oyster)) obj=oyster;
315: if (obj>100||obj==0||dark(0)) goto l8000;
316: goto l9270;
317: case 30: /* suspend=8300 */
318: spk=201;
319: if (demo) goto l2011;
320: printf("I can suspend your adventure for you so");
321: printf(" you can resume later, but\n");
322: printf("you will have to wait at least");
323: printf(" %d minutes before continuing.",latncy);
324: if (!yes(200,54,54)) goto l2012;
325: datime(&saved,&savet);
326: setup = -1;
327: ciao(argv[0]);
328: continue;
329: case 31: /* hours=8310 */
330: printf("Colossal cave is closed 9am-5pm Mon ");
331: printf("through Fri except holidays.\n");
332: goto l2012;
333: default: bug(23);
334: }
335:
336: l4090:
337: switch(verb)
338: { case 1: /* take = 9010 */
339: l9010: switch(trtake())
340: { case 2011: goto l2011;
341: case 9220: goto l9220;
342: case 2009: goto l2009;
343: case 2012: goto l2012;
344: default: bug(102);
345: }
346: l9020: case 2: /* drop = 9020 */
347: switch(trdrop())
348: { case 2011: goto l2011;
349: case 19000: done(3);
350: case 2012: goto l2012;
351: default: bug(105);
352: }
353: l9030: case 3:
354: switch(trsay())
355: { case 2012: goto l2012;
356: case 2630: goto l2630;
357: default: bug(107);
358: }
359: l9040: case 4: case 6: /* open, close */
360: switch(tropen())
361: { case 2011: goto l2011;
362: case 2010: goto l2010;
363: default: bug(106);
364: }
365: case 5: goto l2009; /* nothing */
366: case 7: /* on 9070 */
367: l9070: if (!here(lamp)) goto l2011;
368: spk=184;
369: if (limit<0) goto l2011;
370: prop[lamp]=1;
371: rspeak(39);
372: if (wzdark) goto l2000;
373: goto l2012;
374:
375: case 8: /* off */
376: l9080: if (!here(lamp)) goto l2011;
377: prop[lamp]=0;
378: rspeak(40);
379: if (dark(0)) rspeak(16);
380: goto l2012;
381:
382: case 9: /* wave */
383: if ((!toting(obj))&&(obj!=rod||!toting(rod2)))
384: spk=29;
385: if (obj!=rod||!at(fissur)||!toting(obj)||closng)
386: goto l2011;
387: prop[fissur]=1-prop[fissur];
388: pspeak(fissur,2-prop[fissur]);
389: goto l2012;
390: case 10: case 11: case 18: /* calm, walk, quit */
391: case 24: case 25: case 26: /* score, foo, brief */
392: case 30: case 31: /* suspend, hours */
393: goto l2011;
394: l9120: case 12: /* kill */
395: switch(trkill())
396: { case 8000: goto l8000;
397: case 8: goto l8;
398: case 2011: goto l2011;
399: case 2608: goto l2608;
400: case 19000: done(3);
401: default: bug(112);
402: }
403: l9130: case 13: /* pour */
404: if (obj==bottle||obj==0) obj=liq(0);
405: if (obj==0) goto l8000;
406: if (!toting(obj)) goto l2011;
407: spk=78;
408: if (obj!=oil&&obj!=water) goto l2011;
409: prop[bottle]=1;
410: place[obj]=0;
411: spk=77;
412: if (!(at(plant)||at(door))) goto l2011;
413: if (at(door))
414: { prop[door]=0; /* 9132 */
415: if (obj==oil) prop[door]=1;
416: spk=113+prop[door];
417: goto l2011;
418: }
419: spk=112;
420: if (obj!=water) goto l2011;
421: pspeak(plant,prop[plant]+1);
422: prop[plant]=(prop[plant]+2)% 6;
423: prop[plant2]=prop[plant]/2;
424: k=null;
425: goto l8;
426: case 14: /* 9140 - eat */
427: if (obj==food) goto l8142;
428: if (obj==bird||obj==snake||obj==clam||obj==oyster
429: ||obj==dwarf||obj==dragon||obj==troll
430: ||obj==bear) spk=71;
431: goto l2011;
432: l9150: case 15: /* 9150 - drink */
433: if (obj==0&&liqloc(loc)!=water&&(liq(0)!=water
434: ||!here(bottle))) goto l8000;
435: if (obj!=0&&obj!=water) spk=110;
436: if (spk==110||liq(0)!=water||!here(bottle))
437: goto l2011;
438: prop[bottle]=1;
439: place[water]=0;
440: spk=74;
441: goto l2011;
442: case 16: /* 9160: rub */
443: if (obj!=lamp) spk=76;
444: goto l2011;
445: case 17: /* 9170: throw */
446: switch(trtoss())
447: { case 2011: goto l2011;
448: case 9020: goto l9020;
449: case 9120: goto l9120;
450: case 8: goto l8;
451: case 9210: goto l9210;
452: default: bug(113);
453: }
454: case 19: case 20: /* 9190: find, invent */
455: if (at(obj)||(liq(0)==obj&&at(bottle))
456: ||k==liqloc(loc)) spk=94;
457: for (i=1; i<=5; i++)
458: if (dloc[i]==loc&&dflag>=2&&obj==dwarf)
459: spk=94;
460: if (closed) spk=138;
461: if (toting(obj)) spk=24;
462: goto l2011;
463: l9210: case 21: /* feed */
464: switch(trfeed())
465: { case 2011: goto l2011;
466: default: bug(114);
467: }
468: l9220: case 22: /* fill */
469: switch(trfill())
470: { case 2011: goto l2011;
471: case 8000: goto l8000;
472: case 9020: goto l9020;
473: default: bug(115);
474: }
475: l9230: case 23: /* blast */
476: if (prop[rod2]<0||!closed) goto l2011;
477: bonus=133;
478: if (loc==115) bonus=134;
479: if (here(rod2)) bonus=135;
480: rspeak(bonus);
481: done(2);
482: l9270: case 27: /* read */
483: if (dark(0)) goto l5190;
484: if (obj==magzin) spk=190;
485: if (obj==tablet) spk=196;
486: if (obj==messag) spk=191;
487: if (obj==oyster&&hinted[2]&&toting(oyster)) spk=194;
488: if (obj!=oyster||hinted[2]||!toting(oyster)
489: ||!closed) goto l2011;
490: hinted[2]=yes(192,193,54);
491: goto l2012;
492: l9280: case 28: /* break */
493: if (obj==mirror) spk=148;
494: if (obj==vase&&prop[vase]==0)
495: { spk=198;
496: if (toting(vase)) drop(vase,loc);
497: prop[vase]=2;
498: fixed[vase]= -1;
499: goto l2011;
500: }
501: if (obj!=mirror||!closed) goto l2011;
502: rspeak(197);
503: done(3);
504:
505: l9290: case 29: /* wake */
506: if (obj!=dwarf||!closed) goto l2011;
507: rspeak(199);
508: done(3);
509:
510: default: bug(24);
511: }
512:
513: l5000:
514: obj=k;
515: if (fixed[k]!=loc && !here(k)) goto l5100;
516: l5010: if (*wd2!=0) goto l2800;
517: if (verb!=0) goto l4090;
518: printf("What do you want to do with the %s?\n",wd1);
519: goto l2600;
520: l5100: if (k!=grate) goto l5110;
521: if (loc==1||loc==4||loc==7) k=dprssn;
522: if (loc>9&&loc<15) k=entrnc;
523: if (k!=grate) goto l8;
524: l5110: if (k!=dwarf) goto l5120;
525: for (i=1; i<=5; i++)
526: if (dloc[i]==loc&&dflag>=2) goto l5010;
527: l5120: if ((liq(0)==k&&here(bottle))||k==liqloc(loc)) goto l5010;
528: if (obj!=plant||!at(plant2)||prop[plant2]==0) goto l5130;
529: obj=plant2;
530: goto l5010;
531: l5130: if (obj!=knife||knfloc!=loc) goto l5140;
532: knfloc = -1;
533: spk=116;
534: goto l2011;
535: l5140: if (obj!=rod||!here(rod2)) goto l5190;
536: obj=rod2;
537: goto l5010;
538: l5190: if ((verb==find||verb==invent)&&*wd2==0) goto l5010;
539: printf("I see no %s here\n",wd1);
540: goto l2012;
541: }
542: }
543:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.