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