xref: /dragonfly/games/hack/hack.do.c (revision 6bd457ed) 
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.do.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.do.c,v 1.4 1999/11/16 10:26:36 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.do.c,v 1.4 2005/05/22 03:37:05 y0netan1 Exp $ */
5 
6 /* Contains code for 'd', 'D' (drop), '>', '<' (up, down) and 't' (throw) */
7 
8 #include "hack.h"
9 
10 extern struct obj *splitobj(), *addinv();
11 extern boolean hmon();
12 extern boolean level_exists[];
13 extern struct monst youmonst;
14 extern char *Doname();
15 
16 static int drop();
17 
18 dodrop() {
19 	return(drop(getobj("0$#", "drop")));
20 }
21 
22 static int
23 drop(obj) struct obj *obj; {
24 	if(!obj) return(0);
25 	if(obj->olet == '$') {		/* pseudo object */
26 		long amount = OGOLD(obj);
27 
28 		if(amount == 0)
29 			pline("You didn't drop any gold pieces.");
30 		else {
31 			mkgold(amount, u.ux, u.uy);
32 			pline("You dropped %ld gold piece%s.",
33 				amount, plur(amount));
34 			if(Invisible) newsym(u.ux, u.uy);
35 		}
36 		free((char *) obj);
37 		return(1);
38 	}
39 	if(obj->owornmask & (W_ARMOR | W_RING)){
40 		pline("You cannot drop something you are wearing.");
41 		return(0);
42 	}
43 	if(obj == uwep) {
44 		if(uwep->cursed) {
45 			pline("Your weapon is welded to your hand!");
46 			return(0);
47 		}
48 		setuwep((struct obj *) 0);
49 	}
50 	pline("You dropped %s.", doname(obj));
51 	dropx(obj);
52 	return(1);
53 }
54 
55 /* Called in several places - should not produce texts */
56 dropx(obj)
57 struct obj *obj;
58 {
59 	freeinv(obj);
60 	dropy(obj);
61 }
62 
63 dropy(obj)
64 struct obj *obj;
65 {
66 	if(obj->otyp == CRYSKNIFE)
67 		obj->otyp = WORM_TOOTH;
68 	obj->ox = u.ux;
69 	obj->oy = u.uy;
70 	obj->nobj = fobj;
71 	fobj = obj;
72 	if(Invisible) newsym(u.ux,u.uy);
73 	subfrombill(obj);
74 	stackobj(obj);
75 }
76 
77 /* drop several things */
78 doddrop() {
79 	return(ggetobj("drop", drop, 0));
80 }
81 
82 dodown()
83 {
84 	if(u.ux != xdnstair || u.uy != ydnstair) {
85 		pline("You can't go down here.");
86 		return(0);
87 	}
88 	if(u.ustuck) {
89 		pline("You are being held, and cannot go down.");
90 		return(1);
91 	}
92 	if(Levitation) {
93 		pline("You're floating high above the stairs.");
94 		return(0);
95 	}
96 
97 	goto_level(dlevel+1, TRUE);
98 	return(1);
99 }
100 
101 doup()
102 {
103 	if(u.ux != xupstair || u.uy != yupstair) {
104 		pline("You can't go up here.");
105 		return(0);
106 	}
107 	if(u.ustuck) {
108 		pline("You are being held, and cannot go up.");
109 		return(1);
110 	}
111 	if(!Levitation && inv_weight() + 5 > 0) {
112 		pline("Your load is too heavy to climb the stairs.");
113 		return(1);
114 	}
115 
116 	goto_level(dlevel-1, TRUE);
117 	return(1);
118 }
119 
120 goto_level(newlevel, at_stairs)
121 int newlevel;
122 boolean at_stairs;
123 {
124 	int fd;
125 	boolean up = (newlevel < dlevel);
126 
127 	if(newlevel <= 0) done("escaped");    /* in fact < 0 is impossible */
128 	if(newlevel > MAXLEVEL) newlevel = MAXLEVEL;	/* strange ... */
129 	if(newlevel == dlevel) return;	      /* this can happen */
130 
131 	glo(dlevel);
132 	fd = creat(lock, FMASK);
133 	if(fd < 0) {
134 		/*
135 		 * This is not quite impossible: e.g., we may have
136 		 * exceeded our quota. If that is the case then we
137 		 * cannot leave this level, and cannot save either.
138 		 * Another possibility is that the directory was not
139 		 * writable.
140 		 */
141 		pline("A mysterious force prevents you from going %s.",
142 			up ? "up" : "down");
143 		return;
144 	}
145 
146 	if(Punished) unplacebc();
147 	u.utrap = 0;				/* needed in level_tele */
148 	u.ustuck = 0;				/* idem */
149 	keepdogs();
150 	seeoff(1);
151 	if(u.uswallow)				/* idem */
152 		u.uswldtim = u.uswallow = 0;
153 	flags.nscrinh = 1;
154 	u.ux = FAR;				/* hack */
155 	(void) inshop();			/* probably was a trapdoor */
156 
157 	savelev(fd,dlevel);
158 	(void) close(fd);
159 
160 	dlevel = newlevel;
161 	if(maxdlevel < dlevel)
162 		maxdlevel = dlevel;
163 	glo(dlevel);
164 
165 	if(!level_exists[dlevel])
166 		mklev();
167 	else {
168 		extern int hackpid;
169 
170 		if((fd = open(lock,0)) < 0) {
171 			pline("Cannot open %s .", lock);
172 			pline("Probably someone removed it.");
173 			done("tricked");
174 		}
175 		getlev(fd, hackpid, dlevel);
176 		(void) close(fd);
177 	}
178 
179 	if(at_stairs) {
180 	    if(up) {
181 		u.ux = xdnstair;
182 		u.uy = ydnstair;
183 		if(!u.ux) {		/* entering a maze from below? */
184 		    u.ux = xupstair;	/* this will confuse the player! */
185 		    u.uy = yupstair;
186 		}
187 		if(Punished && !Levitation){
188 			pline("With great effort you climb the stairs.");
189 			placebc(1);
190 		}
191 	    } else {
192 		u.ux = xupstair;
193 		u.uy = yupstair;
194 		if(inv_weight() + 5 > 0 || Punished){
195 			pline("You fall down the stairs.");	/* %% */
196 			losehp(rnd(3), "fall");
197 			if(Punished) {
198 			    if(uwep != uball && rn2(3)){
199 				pline("... and are hit by the iron ball.");
200 				losehp(rnd(20), "iron ball");
201 			    }
202 			    placebc(1);
203 			}
204 			selftouch("Falling, you");
205 		}
206 	    }
207 	    { struct monst *mtmp = m_at(u.ux, u.uy);
208 	      if(mtmp)
209 		mnexto(mtmp);
210 	    }
211 	} else {	/* trapdoor or level_tele */
212 	    do {
213 		u.ux = rnd(COLNO-1);
214 		u.uy = rn2(ROWNO);
215 	    } while(levl[u.ux][u.uy].typ != ROOM ||
216 			m_at(u.ux,u.uy));
217 	    if(Punished){
218 		if(uwep != uball && !up /* %% */ && rn2(5)){
219 			pline("The iron ball falls on your head.");
220 			losehp(rnd(25), "iron ball");
221 		}
222 		placebc(1);
223 	    }
224 	    selftouch("Falling, you");
225 	}
226 	(void) inshop();
227 	initrack();
228 
229 	losedogs();
230 	{ struct monst *mtmp;
231 	  if(mtmp = m_at(u.ux, u.uy)) mnexto(mtmp);	/* riv05!a3 */
232 	}
233 	flags.nscrinh = 0;
234 	setsee();
235 	seeobjs();	/* make old cadavers disappear - riv05!a3 */
236 	docrt();
237 	pickup(1);
238 	read_engr_at(u.ux,u.uy);
239 }
240 
241 donull() {
242 	return(1);	/* Do nothing, but let other things happen */
243 }
244 
245 dopray() {
246 	nomovemsg = "You finished your prayer.";
247 	nomul(-3);
248 	return(1);
249 }
250 
251 struct monst *bhit(), *boomhit();
252 dothrow()
253 {
254 	struct obj *obj;
255 	struct monst *mon;
256 	int tmp;
257 
258 	obj = getobj("#)", "throw");   /* it is also possible to throw food */
259 				       /* (or jewels, or iron balls ... ) */
260 	if(!obj || !getdir(1))	       /* ask "in what direction?" */
261 		return(0);
262 	if(obj->owornmask & (W_ARMOR | W_RING)){
263 		pline("You can't throw something you are wearing.");
264 		return(0);
265 	}
266 
267 	u_wipe_engr(2);
268 
269 	if(obj == uwep){
270 		if(obj->cursed){
271 			pline("Your weapon is welded to your hand.");
272 			return(1);
273 		}
274 		if(obj->quan > 1)
275 			setuwep(splitobj(obj, 1));
276 		else
277 			setuwep((struct obj *) 0);
278 	}
279 	else if(obj->quan > 1)
280 		(void) splitobj(obj, 1);
281 	freeinv(obj);
282 	if(u.uswallow) {
283 		mon = u.ustuck;
284 		bhitpos.x = mon->mx;
285 		bhitpos.y = mon->my;
286 	} else if(u.dz) {
287 	  if(u.dz < 0) {
288 	    pline("%s hits the ceiling, then falls back on top of your head.",
289 		Doname(obj));		/* note: obj->quan == 1 */
290 	    if(obj->olet == POTION_SYM)
291 		potionhit(&youmonst, obj);
292 	    else {
293 		if(uarmh) pline("Fortunately, you are wearing a helmet!");
294 		losehp(uarmh ? 1 : rnd((int)(obj->owt)), "falling object");
295 		dropy(obj);
296 	    }
297 	  } else {
298 	    pline("%s hits the floor.", Doname(obj));
299 	    if(obj->otyp == EXPENSIVE_CAMERA) {
300 		pline("It is shattered in a thousand pieces!");
301 		obfree(obj, Null(obj));
302 	    } else if(obj->otyp == EGG) {
303 		pline("\"Splash!\"");
304 		obfree(obj, Null(obj));
305 	    } else if(obj->olet == POTION_SYM) {
306 		pline("The flask breaks, and you smell a peculiar odor ...");
307 		potionbreathe(obj);
308 		obfree(obj, Null(obj));
309 	    } else {
310 		dropy(obj);
311 	    }
312 	  }
313 	  return(1);
314 	} else if(obj->otyp == BOOMERANG) {
315 		mon = boomhit(u.dx, u.dy);
316 		if(mon == &youmonst) {		/* the thing was caught */
317 			(void) addinv(obj);
318 			return(1);
319 		}
320 	} else {
321 		if(obj->otyp == PICK_AXE && shkcatch(obj))
322 		    return(1);
323 
324 		mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 :
325 			(!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1,
326 			obj->olet,
327 			(int (*)()) 0, (int (*)()) 0, obj);
328 	}
329 	if(mon) {
330 		/* awake monster if sleeping */
331 		wakeup(mon);
332 
333 		if(obj->olet == WEAPON_SYM) {
334 			tmp = -1+u.ulevel+mon->data->ac+abon();
335 			if(obj->otyp < ROCK) {
336 				if(!uwep ||
337 				    uwep->otyp != obj->otyp+(BOW-ARROW))
338 					tmp -= 4;
339 				else {
340 					tmp += uwep->spe;
341 				}
342 			} else
343 			if(obj->otyp == BOOMERANG) tmp += 4;
344 			tmp += obj->spe;
345 			if(u.uswallow || tmp >= rnd(20)) {
346 				if(hmon(mon,obj,1) == TRUE){
347 				  /* mon still alive */
348 #ifndef NOWORM
349 				  cutworm(mon,bhitpos.x,bhitpos.y,obj->otyp);
350 #endif /* NOWORM */
351 				} else mon = 0;
352 				/* weapons thrown disappear sometimes */
353 				if(obj->otyp < BOOMERANG && rn2(3)) {
354 					/* check bill; free */
355 					obfree(obj, (struct obj *) 0);
356 					return(1);
357 				}
358 			} else miss(objects[obj->otyp].oc_name, mon);
359 		} else if(obj->otyp == HEAVY_IRON_BALL) {
360 			tmp = -1+u.ulevel+mon->data->ac+abon();
361 			if(!Punished || obj != uball) tmp += 2;
362 			if(u.utrap) tmp -= 2;
363 			if(u.uswallow || tmp >= rnd(20)) {
364 				if(hmon(mon,obj,1) == FALSE)
365 					mon = 0;	/* he died */
366 			} else miss("iron ball", mon);
367 		} else if(obj->olet == POTION_SYM && u.ulevel > rn2(15)) {
368 			potionhit(mon, obj);
369 			return(1);
370 		} else {
371 			if(cansee(bhitpos.x,bhitpos.y))
372 				pline("You miss %s.",monnam(mon));
373 			else pline("You miss it.");
374 			if(obj->olet == FOOD_SYM && mon->data->mlet == 'd')
375 				if(tamedog(mon,obj)) return(1);
376 			if(obj->olet == GEM_SYM && mon->data->mlet == 'u' &&
377 				!mon->mtame){
378 			 if(obj->dknown && objects[obj->otyp].oc_name_known){
379 			  if(objects[obj->otyp].g_val > 0){
380 			    u.uluck += 5;
381 			    goto valuable;
382 			  } else {
383 			    pline("%s is not interested in your junk.",
384 				Monnam(mon));
385 			  }
386 			 } else { /* value unknown to @ */
387 			    u.uluck++;
388 			valuable:
389 			    if(u.uluck > LUCKMAX)	/* dan@ut-ngp */
390 				u.uluck = LUCKMAX;
391 			    pline("%s graciously accepts your gift.",
392 				Monnam(mon));
393 			    mpickobj(mon, obj);
394 			    rloc(mon);
395 			    return(1);
396 			 }
397 			}
398 		}
399 	}
400 		/* the code following might become part of dropy() */
401 	if(obj->otyp == CRYSKNIFE)
402 		obj->otyp = WORM_TOOTH;
403 	obj->ox = bhitpos.x;
404 	obj->oy = bhitpos.y;
405 	obj->nobj = fobj;
406 	fobj = obj;
407 	/* prevent him from throwing articles to the exit and escaping */
408 	/* subfrombill(obj); */
409 	stackobj(obj);
410 	if(Punished && obj == uball &&
411 		(bhitpos.x != u.ux || bhitpos.y != u.uy)){
412 		freeobj(uchain);
413 		unpobj(uchain);
414 		if(u.utrap){
415 			if(u.utraptype == TT_PIT)
416 				pline("The ball pulls you out of the pit!");
417 			else {
418 			    long side =
419 				rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
420 			    pline("The ball pulls you out of the bear trap.");
421 			    pline("Your %s leg is severely damaged.",
422 				(side == LEFT_SIDE) ? "left" : "right");
423 			    set_wounded_legs(side, 500+rn2(1000));
424 			    losehp(2, "thrown ball");
425 			}
426 			u.utrap = 0;
427 		}
428 		unsee();
429 		uchain->nobj = fobj;
430 		fobj = uchain;
431 		u.ux = uchain->ox = bhitpos.x - u.dx;
432 		u.uy = uchain->oy = bhitpos.y - u.dy;
433 		setsee();
434 		(void) inshop();
435 	}
436 	if(cansee(bhitpos.x, bhitpos.y)) prl(bhitpos.x,bhitpos.y);
437 	return(1);
438 }
439 
440 /* split obj so that it gets size num */
441 /* remainder is put in the object structure delivered by this call */
442 struct obj *
443 splitobj(obj, num) struct obj *obj; int num; {
444 struct obj *otmp;
445 	otmp = newobj(0);
446 	*otmp = *obj;		/* copies whole structure */
447 	otmp->o_id = flags.ident++;
448 	otmp->onamelth = 0;
449 	obj->quan = num;
450 	obj->owt = weight(obj);
451 	otmp->quan -= num;
452 	otmp->owt = weight(otmp);	/* -= obj->owt ? */
453 	obj->nobj = otmp;
454 	if(obj->unpaid) splitbill(obj,otmp);
455 	return(otmp);
456 }
457 
458 more_experienced(exp,rexp)
459 int exp, rexp;
460 {
461 	extern char pl_character[];
462 
463 	u.uexp += exp;
464 	u.urexp += 4*exp + rexp;
465 	if(exp) flags.botl = 1;
466 	if(u.urexp >= ((pl_character[0] == 'W') ? 1000 : 2000))
467 		flags.beginner = 0;
468 }
469 
470 set_wounded_legs(side, timex)
471 long side;
472 int timex;
473 {
474 	if(!Wounded_legs || (Wounded_legs & TIMEOUT))
475 		Wounded_legs |= side + timex;
476 	else
477 		Wounded_legs |= side;
478 }
479 
480 heal_legs()
481 {
482 	if(Wounded_legs) {
483 		if((Wounded_legs & BOTH_SIDES) == BOTH_SIDES)
484 			pline("Your legs feel somewhat better.");
485 		else
486 			pline("Your leg feels somewhat better.");
487 		Wounded_legs = 0;
488 	}
489 }
490