1 /* $NetBSD: hack.do.c,v 1.9 2009/08/12 07:28:40 dholland Exp $ */ 2 3 /* 4 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica, 5 * Amsterdam 6 * All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions are 10 * met: 11 * 12 * - Redistributions of source code must retain the above copyright notice, 13 * this list of conditions and the following disclaimer. 14 * 15 * - Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 19 * - Neither the name of the Stichting Centrum voor Wiskunde en 20 * Informatica, nor the names of its contributors may be used to endorse or 21 * promote products derived from this software without specific prior 22 * written permission. 23 * 24 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS 25 * IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 26 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 27 * PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER 28 * OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 29 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 30 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 31 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 32 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 33 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 34 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 35 */ 36 37 /* 38 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org> 39 * All rights reserved. 40 * 41 * Redistribution and use in source and binary forms, with or without 42 * modification, are permitted provided that the following conditions 43 * are met: 44 * 1. Redistributions of source code must retain the above copyright 45 * notice, this list of conditions and the following disclaimer. 46 * 2. Redistributions in binary form must reproduce the above copyright 47 * notice, this list of conditions and the following disclaimer in the 48 * documentation and/or other materials provided with the distribution. 49 * 3. The name of the author may not be used to endorse or promote products 50 * derived from this software without specific prior written permission. 51 * 52 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, 53 * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY 54 * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL 55 * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 56 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 57 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; 58 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 59 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR 60 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF 61 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 62 */ 63 64 #include <sys/cdefs.h> 65 #ifndef lint 66 __RCSID("$NetBSD: hack.do.c,v 1.9 2009/08/12 07:28:40 dholland Exp $"); 67 #endif /* not lint */ 68 69 /* Contains code for 'd', 'D' (drop), '>', '<' (up, down) and 't' (throw) */ 70 71 #include "hack.h" 72 #include "extern.h" 73 #include <fcntl.h> 74 #include <unistd.h> 75 #include <stdlib.h> 76 77 78 static int drop(struct obj *); 79 static void dropy(struct obj *); 80 81 int 82 dodrop(void) 83 { 84 return (drop(getobj("0$#", "drop"))); 85 } 86 87 static int 88 drop(struct obj *obj) 89 { 90 if (!obj) 91 return (0); 92 if (obj->olet == '$') { /* pseudo object */ 93 long amount = OGOLD(obj); 94 95 if (amount == 0) 96 pline("You didn't drop any gold pieces."); 97 else { 98 mkgold(amount, u.ux, u.uy); 99 pline("You dropped %ld gold piece%s.", 100 amount, plur(amount)); 101 if (Invisible) 102 newsym(u.ux, u.uy); 103 } 104 free((char *) obj); 105 return (1); 106 } 107 if (obj->owornmask & (W_ARMOR | W_RING)) { 108 pline("You cannot drop something you are wearing."); 109 return (0); 110 } 111 if (obj == uwep) { 112 if (uwep->cursed) { 113 pline("Your weapon is welded to your hand!"); 114 return (0); 115 } 116 setuwep((struct obj *) 0); 117 } 118 pline("You dropped %s.", doname(obj)); 119 dropx(obj); 120 return (1); 121 } 122 123 /* Called in several places - should not produce texts */ 124 void 125 dropx(struct obj *obj) 126 { 127 freeinv(obj); 128 dropy(obj); 129 } 130 131 static void 132 dropy(struct obj *obj) 133 { 134 if (obj->otyp == CRYSKNIFE) 135 obj->otyp = WORM_TOOTH; 136 obj->ox = u.ux; 137 obj->oy = u.uy; 138 obj->nobj = fobj; 139 fobj = obj; 140 if (Invisible) 141 newsym(u.ux, u.uy); 142 subfrombill(obj); 143 stackobj(obj); 144 } 145 146 /* drop several things */ 147 int 148 doddrop(void) 149 { 150 return (ggetobj("drop", drop, 0)); 151 } 152 153 int 154 dodown(void) 155 { 156 if (u.ux != xdnstair || u.uy != ydnstair) { 157 pline("You can't go down here."); 158 return (0); 159 } 160 if (u.ustuck) { 161 pline("You are being held, and cannot go down."); 162 return (1); 163 } 164 if (Levitation) { 165 pline("You're floating high above the stairs."); 166 return (0); 167 } 168 goto_level(dlevel + 1, TRUE); 169 return (1); 170 } 171 172 int 173 doup(void) 174 { 175 if (u.ux != xupstair || u.uy != yupstair) { 176 pline("You can't go up here."); 177 return (0); 178 } 179 if (u.ustuck) { 180 pline("You are being held, and cannot go up."); 181 return (1); 182 } 183 if (!Levitation && inv_weight() + 5 > 0) { 184 pline("Your load is too heavy to climb the stairs."); 185 return (1); 186 } 187 goto_level(dlevel - 1, TRUE); 188 return (1); 189 } 190 191 void 192 goto_level(int newlevel, boolean at_stairs) 193 { 194 int fd; 195 boolean up = (newlevel < dlevel); 196 197 if (newlevel <= 0) 198 done("escaped");/* in fact < 0 is impossible */ 199 if (newlevel > MAXLEVEL) 200 newlevel = MAXLEVEL; /* strange ... */ 201 if (newlevel == dlevel) 202 return; /* this can happen */ 203 204 glo(dlevel); 205 fd = creat(lock, FMASK); 206 if (fd < 0) { 207 /* 208 * This is not quite impossible: e.g., we may have 209 * exceeded our quota. If that is the case then we 210 * cannot leave this level, and cannot save either. 211 * Another possibility is that the directory was not 212 * writable. 213 */ 214 pline("A mysterious force prevents you from going %s.", 215 up ? "up" : "down"); 216 return; 217 } 218 if (Punished) 219 unplacebc(); 220 u.utrap = 0; /* needed in level_tele */ 221 u.ustuck = 0; /* idem */ 222 keepdogs(); 223 seeoff(1); 224 if (u.uswallow) /* idem */ 225 u.uswldtim = u.uswallow = 0; 226 flags.nscrinh = 1; 227 u.ux = FAR; /* hack */ 228 (void) inshop(); /* probably was a trapdoor */ 229 230 savelev(fd, dlevel); 231 (void) close(fd); 232 233 dlevel = newlevel; 234 if (maxdlevel < dlevel) 235 maxdlevel = dlevel; 236 glo(dlevel); 237 238 if (!level_exists[dlevel]) 239 mklev(); 240 else { 241 if ((fd = open(lock, O_RDONLY)) < 0) { 242 pline("Cannot open %s .", lock); 243 pline("Probably someone removed it."); 244 done("tricked"); 245 } 246 getlev(fd, hackpid, dlevel); 247 (void) close(fd); 248 } 249 250 if (at_stairs) { 251 if (up) { 252 u.ux = xdnstair; 253 u.uy = ydnstair; 254 if (!u.ux) { /* entering a maze from below? */ 255 u.ux = xupstair; /* this will confuse the 256 * player! */ 257 u.uy = yupstair; 258 } 259 if (Punished && !Levitation) { 260 pline("With great effort you climb the stairs."); 261 placebc(1); 262 } 263 } else { 264 u.ux = xupstair; 265 u.uy = yupstair; 266 if (inv_weight() + 5 > 0 || Punished) { 267 pline("You fall down the stairs."); /* %% */ 268 losehp(rnd(3), "fall"); 269 if (Punished) { 270 if (uwep != uball && rn2(3)) { 271 pline("... and are hit by the iron ball."); 272 losehp(rnd(20), "iron ball"); 273 } 274 placebc(1); 275 } 276 selftouch("Falling, you"); 277 } 278 } 279 { 280 struct monst *mtmp = m_at(u.ux, u.uy); 281 if (mtmp) 282 mnexto(mtmp); 283 } 284 } else { /* trapdoor or level_tele */ 285 do { 286 u.ux = rnd(COLNO - 1); 287 u.uy = rn2(ROWNO); 288 } while (levl[u.ux][u.uy].typ != ROOM || 289 m_at(u.ux, u.uy)); 290 if (Punished) { 291 if (uwep != uball && !up /* %% */ && rn2(5)) { 292 pline("The iron ball falls on your head."); 293 losehp(rnd(25), "iron ball"); 294 } 295 placebc(1); 296 } 297 selftouch("Falling, you"); 298 } 299 (void) inshop(); 300 initrack(); 301 302 losedogs(); 303 { 304 struct monst *mtmp; 305 if ((mtmp = m_at(u.ux, u.uy)) != NULL) 306 mnexto(mtmp); /* riv05!a3 */ 307 } 308 flags.nscrinh = 0; 309 setsee(); 310 seeobjs(); /* make old cadavers disappear - riv05!a3 */ 311 docrt(); 312 pickup(1); 313 read_engr_at(u.ux, u.uy); 314 } 315 316 int 317 donull(void) 318 { 319 return (1); /* Do nothing, but let other things happen */ 320 } 321 322 int 323 dopray(void) 324 { 325 nomovemsg = "You finished your prayer."; 326 nomul(-3); 327 return (1); 328 } 329 330 int 331 dothrow(void) 332 { 333 struct obj *obj; 334 struct monst *mon; 335 int tmp; 336 337 obj = getobj("#)", "throw"); /* it is also possible to throw food */ 338 /* (or jewels, or iron balls ... ) */ 339 if (!obj || !getdir(1)) /* ask "in what direction?" */ 340 return (0); 341 if (obj->owornmask & (W_ARMOR | W_RING)) { 342 pline("You can't throw something you are wearing."); 343 return (0); 344 } 345 u_wipe_engr(2); 346 347 if (obj == uwep) { 348 if (obj->cursed) { 349 pline("Your weapon is welded to your hand."); 350 return (1); 351 } 352 if (obj->quan > 1) 353 setuwep(splitobj(obj, 1)); 354 else 355 setuwep((struct obj *) 0); 356 } else if (obj->quan > 1) 357 (void) splitobj(obj, 1); 358 freeinv(obj); 359 if (u.uswallow) { 360 mon = u.ustuck; 361 bhitpos.x = mon->mx; 362 bhitpos.y = mon->my; 363 } else if (u.dz) { 364 if (u.dz < 0) { 365 pline("%s hits the ceiling, then falls back on top of your head.", 366 Doname(obj)); /* note: obj->quan == 1 */ 367 if (obj->olet == POTION_SYM) 368 potionhit(&youmonst, obj); 369 else { 370 if (uarmh) 371 pline("Fortunately, you are wearing a helmet!"); 372 losehp(uarmh ? 1 : rnd((int) (obj->owt)), "falling object"); 373 dropy(obj); 374 } 375 } else { 376 pline("%s hits the floor.", Doname(obj)); 377 if (obj->otyp == EXPENSIVE_CAMERA) { 378 pline("It is shattered in a thousand pieces!"); 379 obfree(obj, Null(obj)); 380 } else if (obj->otyp == EGG) { 381 pline("\"Splash!\""); 382 obfree(obj, Null(obj)); 383 } else if (obj->olet == POTION_SYM) { 384 pline("The flask breaks, and you smell a peculiar odor ..."); 385 potionbreathe(obj); 386 obfree(obj, Null(obj)); 387 } else { 388 dropy(obj); 389 } 390 } 391 return (1); 392 } else if (obj->otyp == BOOMERANG) { 393 mon = boomhit(u.dx, u.dy); 394 if (mon == &youmonst) { /* the thing was caught */ 395 (void) addinv(obj); 396 return (1); 397 } 398 } else { 399 if (obj->otyp == PICK_AXE && shkcatch(obj)) 400 return (1); 401 402 mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 : 403 (!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1, 404 obj->olet, 405 (void (*)(struct monst *, struct obj *)) 0, 406 (int (*)(struct obj *, struct obj *)) 0, obj); 407 } 408 if (mon) { 409 /* awake monster if sleeping */ 410 wakeup(mon); 411 412 if (obj->olet == WEAPON_SYM) { 413 tmp = -1 + u.ulevel + mon->data->ac + abon(); 414 if (obj->otyp < ROCK) { 415 if (!uwep || 416 uwep->otyp != obj->otyp + (BOW - ARROW)) 417 tmp -= 4; 418 else { 419 tmp += uwep->spe; 420 } 421 } else if (obj->otyp == BOOMERANG) 422 tmp += 4; 423 tmp += obj->spe; 424 if (u.uswallow || tmp >= rnd(20)) { 425 if (hmon(mon, obj, 1) == TRUE) { 426 /* mon still alive */ 427 #ifndef NOWORM 428 cutworm(mon, bhitpos.x, bhitpos.y, obj->otyp); 429 #endif /* NOWORM */ 430 } else 431 mon = 0; 432 /* weapons thrown disappear sometimes */ 433 if (obj->otyp < BOOMERANG && rn2(3)) { 434 /* check bill; free */ 435 obfree(obj, (struct obj *) 0); 436 return (1); 437 } 438 } else 439 miss(objects[obj->otyp].oc_name, mon); 440 } else if (obj->otyp == HEAVY_IRON_BALL) { 441 tmp = -1 + u.ulevel + mon->data->ac + abon(); 442 if (!Punished || obj != uball) 443 tmp += 2; 444 if (u.utrap) 445 tmp -= 2; 446 if (u.uswallow || tmp >= rnd(20)) { 447 if (hmon(mon, obj, 1) == FALSE) 448 mon = 0; /* he died */ 449 } else 450 miss("iron ball", mon); 451 } else if (obj->olet == POTION_SYM && u.ulevel > rn2(15)) { 452 potionhit(mon, obj); 453 return (1); 454 } else { 455 if (cansee(bhitpos.x, bhitpos.y)) 456 pline("You miss %s.", monnam(mon)); 457 else 458 pline("You miss it."); 459 if (obj->olet == FOOD_SYM && mon->data->mlet == 'd') 460 if (tamedog(mon, obj)) 461 return (1); 462 if (obj->olet == GEM_SYM && mon->data->mlet == 'u' && 463 !mon->mtame) { 464 if (obj->dknown && objects[obj->otyp].oc_name_known) { 465 if (objects[obj->otyp].g_val > 0) { 466 u.uluck += 5; 467 goto valuable; 468 } else { 469 pline("%s is not interested in your junk.", 470 Monnam(mon)); 471 } 472 } else { /* value unknown to @ */ 473 u.uluck++; 474 valuable: 475 if (u.uluck > LUCKMAX) /* dan@ut-ngp */ 476 u.uluck = LUCKMAX; 477 pline("%s graciously accepts your gift.", 478 Monnam(mon)); 479 mpickobj(mon, obj); 480 rloc(mon); 481 return (1); 482 } 483 } 484 } 485 } 486 /* the code following might become part of dropy() */ 487 if (obj->otyp == CRYSKNIFE) 488 obj->otyp = WORM_TOOTH; 489 obj->ox = bhitpos.x; 490 obj->oy = bhitpos.y; 491 obj->nobj = fobj; 492 fobj = obj; 493 /* prevent him from throwing articles to the exit and escaping */ 494 /* subfrombill(obj); */ 495 stackobj(obj); 496 if (Punished && obj == uball && 497 (bhitpos.x != u.ux || bhitpos.y != u.uy)) { 498 freeobj(uchain); 499 unpobj(uchain); 500 if (u.utrap) { 501 if (u.utraptype == TT_PIT) 502 pline("The ball pulls you out of the pit!"); 503 else { 504 long side = 505 rn2(3) ? LEFT_SIDE : RIGHT_SIDE; 506 pline("The ball pulls you out of the bear trap."); 507 pline("Your %s leg is severely damaged.", 508 (side == LEFT_SIDE) ? "left" : "right"); 509 set_wounded_legs(side, 500 + rn2(1000)); 510 losehp(2, "thrown ball"); 511 } 512 u.utrap = 0; 513 } 514 unsee(); 515 uchain->nobj = fobj; 516 fobj = uchain; 517 u.ux = uchain->ox = bhitpos.x - u.dx; 518 u.uy = uchain->oy = bhitpos.y - u.dy; 519 setsee(); 520 (void) inshop(); 521 } 522 if (cansee(bhitpos.x, bhitpos.y)) 523 prl(bhitpos.x, bhitpos.y); 524 return (1); 525 } 526 527 /* split obj so that it gets size num */ 528 /* remainder is put in the object structure delivered by this call */ 529 struct obj * 530 splitobj(struct obj *obj, int num) 531 { 532 struct obj *otmp; 533 otmp = newobj(0); 534 *otmp = *obj; /* copies whole structure */ 535 otmp->o_id = flags.ident++; 536 otmp->onamelth = 0; 537 obj->quan = num; 538 obj->owt = weight(obj); 539 otmp->quan -= num; 540 otmp->owt = weight(otmp); /* -= obj->owt ? */ 541 obj->nobj = otmp; 542 if (obj->unpaid) 543 splitbill(obj, otmp); 544 return (otmp); 545 } 546 547 void 548 more_experienced(int exp, int rexp) 549 { 550 u.uexp += exp; 551 u.urexp += 4 * exp + rexp; 552 if (exp) 553 flags.botl = 1; 554 if (u.urexp >= ((pl_character[0] == 'W') ? 1000 : 2000)) 555 flags.beginner = 0; 556 } 557 558 void 559 set_wounded_legs(long side, int timex) 560 { 561 if (!Wounded_legs || (Wounded_legs & TIMEOUT)) 562 Wounded_legs |= side + timex; 563 else 564 Wounded_legs |= side; 565 } 566 567 void 568 heal_legs(void) 569 { 570 if (Wounded_legs) { 571 if ((Wounded_legs & BOTH_SIDES) == BOTH_SIDES) 572 pline("Your legs feel somewhat better."); 573 else 574 pline("Your leg feels somewhat better."); 575 Wounded_legs = 0; 576 } 577 } 578