| 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 | |