![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to com4.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / battlestar|
Return to com4.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / battlestar |
1.1 ! root 1: /* ! 2: * Copyright (c) 1983 Regents of the University of California. ! 3: * All rights reserved. ! 4: * ! 5: * Redistribution and use in source and binary forms are permitted ! 6: * provided that the above copyright notice and this paragraph are ! 7: * duplicated in all such forms and that any documentation, ! 8: * advertising materials, and other materials related to such ! 9: * distribution and use acknowledge that the software was developed ! 10: * by the University of California, Berkeley. The name of the ! 11: * University may not be used to endorse or promote products derived ! 12: * from this software without specific prior written permission. ! 13: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR ! 14: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED ! 15: * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. ! 16: */ ! 17: ! 18: #ifndef lint ! 19: static char sccsid[] = "@(#)com4.c 5.2 (Berkeley) 6/19/88"; ! 20: #endif /* not lint */ ! 21: ! 22: #include "externs.h" ! 23: ! 24: take(from) ! 25: unsigned int from[]; ! 26: { ! 27: int firstnumber, heavy, bulky, value; ! 28: register int n; ! 29: ! 30: firstnumber = wordnumber; ! 31: if (wordnumber < wordcount && wordvalue[wordnumber+1] == OFF){ ! 32: wordnumber++; ! 33: wordvalue[wordnumber] = TAKEOFF; ! 34: return(cypher()); ! 35: } ! 36: else { ! 37: while(wordtype[++wordnumber] == ADJS); ! 38: while(wordnumber<=wordcount && wordtype[wordnumber] == OBJECT){ ! 39: value = wordvalue[wordnumber]; ! 40: printf("%s:\n", objsht[value]); ! 41: for (n=0; objsht[value][n]; n++); ! 42: heavy = (carrying + objwt[value]) <= WEIGHT; ! 43: bulky = (encumber + objcumber[value]) <= CUMBER; ! 44: if ((testbit(from,value) || wiz || tempwiz) && heavy && bulky && !testbit(inven,value)){ ! 45: setbit(inven,value); ! 46: carrying += objwt[value]; ! 47: encumber += objcumber[value]; ! 48: time++; ! 49: if (testbit(from,value)) ! 50: printf("Taken.\n"); ! 51: else ! 52: printf("Zap! Taken from thin air.\n"); ! 53: clearbit(from,value); ! 54: if (value == MEDALION) ! 55: win--; ! 56: } ! 57: else if (testbit(inven,value)) ! 58: printf("You're already holding%s%s.\n", (objsht[value][n-1] == 's' ? " " : " a "),objsht[value]); ! 59: else if (!heavy) ! 60: printf("The %s %s too heavy.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is")); ! 61: else if (!bulky) ! 62: printf("The %s %s too cumbersome to hold.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is")); ! 63: else ! 64: printf("I dont see any %s around here.\n", objsht[value]); ! 65: if (wordnumber < wordcount -1 && wordvalue[++wordnumber] == AND) ! 66: wordnumber++; ! 67: else ! 68: return(firstnumber); ! 69: } ! 70: } ! 71: /* special cases with their own return()'s */ ! 72: ! 73: if (wordnumber <= wordcount && wordtype[wordnumber] == NOUNS) ! 74: switch(wordvalue[wordnumber]){ ! 75: ! 76: case SWORD: ! 77: if (testbit(from, SWORD)){ ! 78: wordtype[wordnumber--] = OBJECT; ! 79: return(take(from)); ! 80: } ! 81: if (testbit(from, TWO_HANDED)){ ! 82: wordvalue[wordnumber] = TWO_HANDED; ! 83: wordtype[wordnumber--] = OBJECT; ! 84: return(take(from)); ! 85: } ! 86: wordvalue[wordnumber] = BROAD; ! 87: wordtype[wordnumber--] = OBJECT; ! 88: return(take(from)); ! 89: ! 90: case BODY: ! 91: if (testbit(from,MAID)){ ! 92: wordvalue[wordnumber] = MAID; ! 93: wordtype[wordnumber--] = OBJECT; ! 94: return(take(from)); ! 95: } ! 96: else if (testbit(from,DEADWOOD)){ ! 97: wordvalue[wordnumber] = DEADWOOD; ! 98: wordtype[wordnumber--] = OBJECT; ! 99: return(take(from)); ! 100: } ! 101: else if (testbit(from,DEADNATIVE)){ ! 102: wordvalue[wordnumber] = DEADNATIVE; ! 103: wordtype[wordnumber--] = OBJECT; ! 104: return(take(from)); ! 105: } ! 106: else if (testbit(from,DEADGOD)){ ! 107: wordvalue[wordnumber] = DEADGOD; ! 108: wordtype[wordnumber--] = OBJECT; ! 109: return(take(from)); ! 110: } ! 111: else { ! 112: wordvalue[wordnumber] = DEADTIME; ! 113: wordtype[wordnumber--] = OBJECT; ! 114: return(take(from)); ! 115: } ! 116: break; ! 117: ! 118: case AMULET: ! 119: if (testbit(location[position].objects,AMULET)){ ! 120: puts("The amulet is warm to the touch, and its beauty catches your breath."); ! 121: puts("A mist falls over your eyes, but then it is gone. Sounds seem clearer"); ! 122: puts("and sharper but far away as if in a dream. The sound of purling water reaches"); ! 123: puts("you from afar. The mist falls again, and your heart leaps in horror. The gold"); ! 124: puts("freezes your hands and fathomless darkness engulfs your soul."); ! 125: } ! 126: wordtype[wordnumber--] = OBJECT; ! 127: return(take(from)); ! 128: ! 129: case MEDALION: ! 130: if (testbit(location[position].objects, MEDALION)){ ! 131: puts("The medallion is warm, and it rekindles your spirit with the warmth of life."); ! 132: puts("Your amulet begins to glow as the medallion is brought near to it, and together\nthey radiate."); ! 133: } ! 134: wordtype[wordnumber--] = OBJECT; ! 135: return(take(from)); ! 136: ! 137: case TALISMAN: ! 138: if (testbit(location[position].objects,TALISMAN)){ ! 139: puts("The talisman is cold to the touch, and it sends a chill down your spine."); ! 140: } ! 141: wordtype[wordnumber--] = OBJECT; ! 142: return(take(from)); ! 143: ! 144: case NORMGOD: ! 145: if (testbit(location[position].objects,BATHGOD) && (testbit(wear,AMULET) || testbit(inven,AMULET))){ ! 146: puts("She offers a delicate hand, and you help her out of the sparkling springs."); ! 147: puts("Water droplets like liquid silver bedew her golden skin, but when they part"); ! 148: puts("from her, they fall as teardrops. She wraps a single cloth around her and"); ! 149: puts("ties it at the waist. Around her neck hangs a golden amulet."); ! 150: puts("She bids you to follow her."); ! 151: pleasure++; ! 152: followgod = time; ! 153: clearbit(location[position].objects,BATHGOD); ! 154: } else if (!testbit(location[position].objects,BATHGOD)) ! 155: puts("You're in no position to take her."); ! 156: else ! 157: puts("She moves away from you."); ! 158: break; ! 159: ! 160: default: ! 161: puts("It doesn't seem to work."); ! 162: } ! 163: else ! 164: puts("You've got to be kidding."); ! 165: return(firstnumber); ! 166: } ! 167: ! 168: throw(name) ! 169: char *name; ! 170: { ! 171: int n; ! 172: int deposit = 0; ! 173: int first, value; ! 174: ! 175: first = wordnumber; ! 176: if (drop(name) != -1){ ! 177: switch(wordvalue[wordnumber]){ ! 178: ! 179: case AHEAD: ! 180: deposit = ahead; ! 181: break; ! 182: ! 183: case BACK: ! 184: deposit = back; ! 185: break; ! 186: ! 187: case LEFT: ! 188: deposit = left; ! 189: break; ! 190: ! 191: case RIGHT: ! 192: deposit = right; ! 193: break; ! 194: ! 195: case UP: ! 196: deposit = location[position].up * (location[position].access || position == FINAL); ! 197: break; ! 198: ! 199: case DOWN: ! 200: deposit = location[position].down; ! 201: break; ! 202: } ! 203: wordnumber = first; ! 204: while (wordtype[++wordnumber] == ADJS); ! 205: while (wordnumber <= wordcount){ ! 206: value = wordvalue[wordnumber]; ! 207: if (deposit && testbit(location[position].objects,value)){ ! 208: clearbit(location[position].objects,value); ! 209: if (value != GRENADE) ! 210: setbit(location[deposit].objects,value); ! 211: else{ ! 212: puts("A thundering explosion nearby sends up a cloud of smoke and shrapnel."); ! 213: for (n = 0; n < NUMOFWORDS; n ++) ! 214: location[deposit].objects[n] = 0; ! 215: setbit(location[deposit].objects,CHAR); ! 216: } ! 217: if (value == ROPE && position == FINAL) ! 218: location[position].access = 1; ! 219: switch(deposit){ ! 220: case 189: ! 221: case 231: ! 222: puts("The stone door is unhinged."); ! 223: location[189].north = 231; ! 224: location[231].south = 189; ! 225: break; ! 226: case 30: ! 227: puts("The wooden door is blown open."); ! 228: location[30].west = 25; ! 229: break; ! 230: case 31: ! 231: puts("The door is not damaged."); ! 232: } ! 233: } ! 234: else if (value == GRENADE && testbit(location[position].objects,value)){ ! 235: puts("You are blown into shreds when your grenade explodes."); ! 236: die(); ! 237: } ! 238: if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND) ! 239: wordnumber++; ! 240: else ! 241: return(first); ! 242: } ! 243: return(first); ! 244: } ! 245: return(first); ! 246: } ! 247: ! 248: drop(name) ! 249: char *name; ! 250: { ! 251: ! 252: int firstnumber, value; ! 253: ! 254: firstnumber = wordnumber; ! 255: while (wordtype[++wordnumber] == ADJS) ! 256: ; ! 257: while (wordnumber<=wordcount && (wordtype[wordnumber] == OBJECT || wordtype[wordnumber] == NOUNS)) { ! 258: value = wordvalue[wordnumber]; ! 259: printf("%s:\n", objsht[value]); ! 260: if (testbit(inven,value)){ ! 261: clearbit(inven,value); ! 262: carrying -= objwt[value]; ! 263: encumber -= objcumber[value]; ! 264: if (value == BOMB){ ! 265: puts("The bomb explodes. A blinding white light and immense concussion obliterate us."); ! 266: die(); ! 267: } ! 268: if (value != AMULET && value != MEDALION && value != TALISMAN) ! 269: setbit(location[position].objects,value); ! 270: else ! 271: tempwiz = 0; ! 272: time++; ! 273: if (*name == 'K') ! 274: puts("Drop kicked."); ! 275: else ! 276: printf("%s.\n", name); ! 277: } ! 278: else { ! 279: if (*name != 'K') { ! 280: printf("You aren't holding the %s.\n", objsht[value]); ! 281: if (testbit(location[position].objects,value)) { ! 282: if (*name == 'T') ! 283: puts("Kicked instead."); ! 284: else if (*name == 'G') ! 285: puts("Given anyway."); ! 286: } ! 287: } else ! 288: puts("Kicked."); ! 289: } ! 290: if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND) ! 291: wordnumber++; ! 292: else ! 293: return(firstnumber); ! 294: } ! 295: puts("Do what?"); ! 296: return(-1); ! 297: } ! 298: ! 299: takeoff() ! 300: { ! 301: wordnumber = take(wear); ! 302: return(drop("Dropped")); ! 303: } ! 304: ! 305: puton() ! 306: { ! 307: wordnumber = take(location[position].objects); ! 308: return(wearit()); ! 309: } ! 310: ! 311: eat() ! 312: { ! 313: register int n; ! 314: int firstnumber, value; ! 315: ! 316: firstnumber = wordnumber; ! 317: while(wordtype[++wordnumber] == ADJS); ! 318: while(wordnumber <= wordcount){ ! 319: value = wordvalue[wordnumber]; ! 320: for (n=0; objsht[value][n]; n++); ! 321: switch(value){ ! 322: ! 323: case -1: ! 324: puts("Eat what?"); ! 325: return(firstnumber); ! 326: ! 327: default: ! 328: printf("You can't eat%s%s!\n",(objsht[value][n-1] == 's' ? " " : " a "),objsht[value]); ! 329: return(firstnumber); ! 330: ! 331: case PAPAYAS: ! 332: case PINEAPPLE: ! 333: case KIWI: ! 334: case COCONUTS: /* eatable things */ ! 335: case MANGO: ! 336: ! 337: printf("%s:\n",objsht[value]); ! 338: if (testbit(inven,value) && time > ate - CYCLE && testbit(inven,KNIFE)){ ! 339: clearbit(inven,value); ! 340: carrying -= objwt[value]; ! 341: encumber -= objcumber[value]; ! 342: ate = max(time,ate) + CYCLE/3; ! 343: snooze += CYCLE/10; ! 344: time++; ! 345: puts("Eaten. You can explore a little longer now."); ! 346: } ! 347: else if (time < ate - CYCLE) ! 348: puts("You're stuffed."); ! 349: else if (!testbit(inven,KNIFE)) ! 350: puts("You need a knife."); ! 351: else ! 352: printf("You aren't holding the %s.\n", objsht[value]); ! 353: if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND) ! 354: wordnumber++; ! 355: else ! 356: return(firstnumber); ! 357: } /* end switch */ ! 358: } /* end while */ ! 359: return(firstnumber); ! 360: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.