1 /* $NetBSD: hack.do.c,v 1.11 2011/08/06 20:29:37 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.11 2011/08/06 20:29:37 dholland Exp $");
67 #endif /* not lint */
68
69 /* Contains code for 'd', 'D' (drop), '>', '<' (up, down) and 't' (throw) */
70
71 #include <fcntl.h>
72 #include <unistd.h>
73 #include <stdlib.h>
74 #include "hack.h"
75 #include "extern.h"
76
77
78 static int drop(struct obj *);
79 static void dropy(struct obj *);
80
81 int
dodrop(void)82 dodrop(void)
83 {
84 return (drop(getobj("0$#", "drop")));
85 }
86
87 static int
drop(struct obj * obj)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(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
dropx(struct obj * obj)125 dropx(struct obj *obj)
126 {
127 freeinv(obj);
128 dropy(obj);
129 }
130
131 static void
dropy(struct obj * obj)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
doddrop(void)148 doddrop(void)
149 {
150 return (ggetobj("drop", drop, 0));
151 }
152
153 int
dodown(void)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
doup(void)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
goto_level(int newlevel,boolean at_stairs)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
donull(void)317 donull(void)
318 {
319 return (1); /* Do nothing, but let other things happen */
320 }
321
322 int
dopray(void)323 dopray(void)
324 {
325 nomovemsg = "You finished your prayer.";
326 nomul(-3);
327 return (1);
328 }
329
330 int
dothrow(void)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 *
splitobj(struct obj * obj,int num)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
more_experienced(int exp,int rexp)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
set_wounded_legs(long side,int timex)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
heal_legs(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