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