xref: /netbsd/games/hack/hack.do.c (revision 1ebb4576)
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