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 533