1 /*- 2 * Copyright (c) 1983, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 3. Neither the name of the University nor the names of its contributors 14 * may be used to endorse or promote products derived from this software 15 * without specific prior written permission. 16 * 17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 27 * SUCH DAMAGE. 28 * 29 * @(#)com3.c 8.1 (Berkeley) 5/31/93 30 * $FreeBSD: src/games/battlestar/com3.c,v 1.8.2.1 2001/03/05 11:45:35 kris Exp $ 31 */ 32 33 #include "externs.h" 34 35 void 36 dig(void) 37 { 38 if (testbit(inven, SHOVEL)) { 39 puts("OK"); 40 gtime++; 41 switch (position) { 42 case 144: /* copse near beach */ 43 if (!notes[DUG]) { 44 setbit(location[position].objects, DEADWOOD); 45 setbit(location[position].objects, COMPASS); 46 setbit(location[position].objects, KNIFE); 47 setbit(location[position].objects, MACE); 48 notes[DUG] = 1; 49 } 50 break; 51 52 default: 53 puts("Nothing happens."); 54 } 55 } else 56 puts("You don't have a shovel."); 57 } 58 59 int 60 jump(void) 61 { 62 int n; 63 64 switch (position) { 65 default: 66 puts("Nothing happens."); 67 return (-1); 68 69 case 242: 70 position = 133; 71 break; 72 case 214: 73 case 215: 74 case 162: 75 case 159: 76 position = 145; 77 break; 78 case 232: 79 position = 275; 80 break; 81 case 3: 82 position = 1; 83 break; 84 case 172: 85 position = 201; 86 } 87 puts("Ahhhhhhh..."); 88 injuries[12] = injuries[8] = injuries[7] = injuries[6] = 1; 89 for (n = 0; n < NUMOFOBJECTS; n++) 90 if (testbit(inven, n)) { 91 clearbit(inven, n); 92 setbit(location[position].objects, n); 93 } 94 carrying = 0; 95 encumber = 0; 96 return (0); 97 } 98 99 void 100 bury(void) 101 { 102 int value; 103 104 if (testbit(inven, SHOVEL)) { 105 while (wordtype[++wordnumber] != OBJECT && 106 wordtype[wordnumber] != NOUNS && wordnumber < wordcount) 107 ; /* nothing */ 108 value = wordvalue[wordnumber]; 109 if (wordtype[wordnumber] == NOUNS && 110 (testbit(location[position].objects, value) || 111 value == BODY)) 112 switch (value) { 113 case BODY: 114 wordtype[wordnumber] = OBJECT; 115 if (testbit(inven, MAID) || 116 testbit(location[position].objects, MAID)) 117 value = MAID; 118 if (testbit(inven, DEADWOOD) || 119 testbit(location[position].objects, 120 DEADWOOD)) 121 value = DEADWOOD; 122 if (testbit(inven, DEADGOD) || 123 testbit(location[position].objects, 124 DEADGOD)) 125 value = DEADGOD; 126 if (testbit(inven, DEADTIME) || 127 testbit(location[position].objects, 128 DEADTIME)) 129 value = DEADTIME; 130 if (testbit(inven, DEADNATIVE) || 131 testbit(location[position].objects, 132 DEADNATIVE)) 133 value = DEADNATIVE; 134 break; 135 136 case NATIVE: 137 case NORMGOD: 138 puts("She screams as you wrestle her into the hole."); 139 /* FALLTHROUGH */ 140 case TIMER: 141 power += 7; 142 ego -= 10; 143 /* FALLTHROUGH */ 144 case AMULET: 145 case MEDALION: 146 case TALISMAN: 147 wordtype[wordnumber] = OBJECT; 148 break; 149 150 default: 151 puts("Wha..?"); 152 } 153 if (wordtype[wordnumber] == OBJECT && position > 88 && 154 (testbit(inven, value) || 155 testbit(location[position].objects, value))) { 156 puts("Buried."); 157 if (testbit(inven, value)) { 158 clearbit(inven, value); 159 carrying -= objwt[value]; 160 encumber -= objcumber[value]; 161 } 162 clearbit(location[position].objects, value); 163 switch (value) { 164 case MAID: 165 case DEADWOOD: 166 case DEADNATIVE: 167 case DEADTIME: 168 case DEADGOD: 169 ego += 2; 170 printf("The %s should rest easier now.\n", 171 objsht[value]); 172 } 173 } else 174 puts("It doesn't seem to work."); 175 } else 176 puts("You aren't holding a shovel."); 177 } 178 179 void 180 drink(void) 181 { 182 int n; 183 184 if (testbit(inven, POTION)) { 185 puts("The cool liquid runs down your throat but turns to fire and you choke."); 186 puts("The heat reaches your limbs and tingles your spirit. You feel like falling"); 187 puts("asleep."); 188 clearbit(inven, POTION); 189 WEIGHT = MAXWEIGHT; 190 CUMBER = MAXCUMBER; 191 for (n = 0; n < NUMOFINJURIES; n++) 192 injuries[n] = 0; 193 gtime++; 194 zzz(); 195 } else 196 puts("I'm not thirsty."); 197 } 198 199 int 200 shoot(void) 201 { 202 int firstnumber, value; 203 int n; 204 205 firstnumber = wordnumber; 206 if (!testbit(inven, LASER)) 207 puts("You aren't holding a blaster."); 208 else { 209 while (wordtype[++wordnumber] == ADJS) 210 ; /* nothing */ 211 while (wordnumber <= wordcount && 212 wordtype[wordnumber] == OBJECT) { 213 value = wordvalue[wordnumber]; 214 printf("%s:\n", objsht[value]); 215 for (n = 0; objsht[value][n]; n++) 216 ; /* nothing */ 217 if (testbit(location[position].objects, value)) { 218 clearbit(location[position].objects, value); 219 gtime++; 220 printf("The %s explode%s\n", objsht[value], 221 (objsht[value][n - 1] == 222 's' ? (objsht[value][n - 2] == 223 's' ? "s." : ".") : "s.")); 224 if (value == BOMB) 225 die(0); 226 } else 227 printf("I dont see any %s around here.\n", 228 objsht[value]); 229 if (wordnumber < wordcount - 1 && 230 wordvalue[++wordnumber] == AND) 231 wordnumber++; 232 else 233 return (firstnumber); 234 } 235 /* special cases with their own return()'s */ 236 237 if (wordnumber <= wordcount && wordtype[wordnumber] == NOUNS) { 238 gtime++; 239 switch (wordvalue[wordnumber]) { 240 case DOOR: 241 switch (position) { 242 case 189: 243 case 231: 244 puts("The door is unhinged."); 245 location[189].north = 231; 246 location[231].south = 189; 247 whichway(location[position]); 248 break; 249 case 30: 250 puts("The wooden door splinters."); 251 location[30].west = 25; 252 whichway(location[position]); 253 break; 254 case 31: 255 puts("The laser blast has no effect on the door."); 256 break; 257 case 20: 258 puts("The blast hits the door and it explodes into flame. The magnesium burns"); 259 puts("so rapidly that we have no chance to escape."); 260 die(0); 261 default: 262 puts("Nothing happens."); 263 } 264 break; 265 266 case NORMGOD: 267 if (testbit(location[position].objects, 268 BATHGOD)) { 269 puts("The goddess is hit in the chest and splashes back against the rocks."); 270 puts("Dark blood oozes from the charred blast hole. Her naked body floats in the"); 271 puts("pools and then off downstream."); 272 clearbit(location[position].objects, 273 BATHGOD); 274 setbit(location[180].objects, DEADGOD); 275 power += 5; 276 ego -= 10; 277 notes[JINXED]++; 278 } else 279 if (testbit(location[position].objects, 280 NORMGOD)) { 281 puts("The blast catches the goddess in the stomach, knocking her to the ground."); 282 puts("She writhes in the dirt as the agony of death taunts her."); 283 puts("She has stopped moving."); 284 clearbit(location[position].objects, NORMGOD); 285 setbit(location[position].objects, DEADGOD); 286 power += 5; 287 ego -= 10; 288 notes[JINXED]++; 289 if (wintime) 290 live(); 291 break; 292 } else 293 puts("I don't see any goddess around here."); 294 break; 295 296 case TIMER: 297 if (testbit(location[position].objects, 298 TIMER)) { 299 puts("The old man slumps over the bar."); 300 power++; 301 ego -= 2; 302 notes[JINXED]++; 303 clearbit(location[position].objects, 304 TIMER); 305 setbit(location[position].objects, 306 DEADTIME); 307 } else 308 puts("What old timer?"); 309 break; 310 case MAN: 311 if (testbit(location[position].objects, MAN)) { 312 puts("The man falls to the ground with blood pouring all over his white suit."); 313 puts("Your fantasy is over."); 314 die(0); 315 } else 316 puts("What man?"); 317 break; 318 case NATIVE: 319 if (testbit(location[position].objects, 320 NATIVE)) { 321 puts("The girl is blown backwards several feet and lies in a pool of blood."); 322 clearbit(location[position].objects, 323 NATIVE); 324 setbit(location[position].objects, 325 DEADNATIVE); 326 power += 5; 327 ego -= 2; 328 notes[JINXED]++; 329 } else 330 puts("There is no girl here."); 331 break; 332 case -1: 333 puts("Shoot what?"); 334 break; 335 336 default: 337 printf("You can't shoot the %s.\n", 338 objsht[wordvalue[wordnumber]]); 339 } 340 } else 341 puts("You must be a looney."); 342 } 343 return (firstnumber); 344 } 345