[unix-history] / games / hack / hack.do.c

/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.do.c - version 1.0.3 */

/* Contains code for 'd', 'D' (drop), '>', '<' (up, down) and 't' (throw) */

#include "hack.h"

extern struct obj *splitobj(), *addinv();
extern boolean hmon();
extern boolean level_exists[];
extern struct monst youmonst;
extern char *Doname();
extern char *nomovemsg;

static int drop();

dodrop() {
	return(drop(getobj("0$#", "drop")));
}

static int
drop(obj) register struct obj *obj; {
	if(!obj) return(0);
	if(obj->olet == '$') {		/* pseudo object */
		register long amount = OGOLD(obj);

		if(amount == 0)
			pline("You didn't drop any gold pieces.");
		else {
			mkgold(amount, u.ux, u.uy);
			pline("You dropped %ld gold piece%s.",
				amount, plur(amount));
			if(Invisible) newsym(u.ux, u.uy);
		}
		free((char *) obj);
		return(1);
	}
	if(obj->owornmask & (W_ARMOR | W_RING)){
		pline("You cannot drop something you are wearing.");
		return(0);
	}
	if(obj == uwep) {
		if(uwep->cursed) {
			pline("Your weapon is welded to your hand!");
			return(0);
		}
		setuwep((struct obj *) 0);
	}
	pline("You dropped %s.", doname(obj));
	dropx(obj);
	return(1);
}

/* Called in several places - should not produce texts */
dropx(obj)
register struct obj *obj;
{
	freeinv(obj);
	dropy(obj);
}

dropy(obj)
register struct obj *obj;
{
	if(obj->otyp == CRYSKNIFE)
		obj->otyp = WORM_TOOTH;
	obj->ox = u.ux;
	obj->oy = u.uy;
	obj->nobj = fobj;
	fobj = obj;
	if(Invisible) newsym(u.ux,u.uy);
	subfrombill(obj);
	stackobj(obj);
}

/* drop several things */
doddrop() {
	return(ggetobj("drop", drop, 0));
}

dodown()
{
	if(u.ux != xdnstair || u.uy != ydnstair) {
		pline("You can't go down here.");
		return(0);
	}
	if(u.ustuck) {
		pline("You are being held, and cannot go down.");
		return(1);
	}
	if(Levitation) {
		pline("You're floating high above the stairs.");
		return(0);
	}

	goto_level(dlevel+1, TRUE);
	return(1);
}

doup()
{
	if(u.ux != xupstair || u.uy != yupstair) {
		pline("You can't go up here.");
		return(0);
	}
	if(u.ustuck) {
		pline("You are being held, and cannot go up.");
		return(1);
	}
	if(!Levitation && inv_weight() + 5 > 0) {
		pline("Your load is too heavy to climb the stairs.");
		return(1);
	}

	goto_level(dlevel-1, TRUE);
	return(1);
}

goto_level(newlevel, at_stairs)
register int newlevel;
register boolean at_stairs;
{
	register fd;
	register boolean up = (newlevel < dlevel);

	if(newlevel <= 0) done("escaped");    /* in fact < 0 is impossible */
	if(newlevel > MAXLEVEL) newlevel = MAXLEVEL;	/* strange ... */
	if(newlevel == dlevel) return;	      /* this can happen */

	glo(dlevel);
	fd = creat(lock, FMASK);
	if(fd < 0) {
		/*
		 * This is not quite impossible: e.g., we may have
		 * exceeded our quota. If that is the case then we
		 * cannot leave this level, and cannot save either.
		 * Another possibility is that the directory was not
		 * writable.
		 */
		pline("A mysterious force prevents you from going %s.",
			up ? "up" : "down");
		return;
	}

	if(Punished) unplacebc();
	u.utrap = 0;				/* needed in level_tele */
	u.ustuck = 0;				/* idem */
	keepdogs();
	seeoff(1);
	if(u.uswallow)				/* idem */
		u.uswldtim = u.uswallow = 0;
	flags.nscrinh = 1;
	u.ux = FAR;				/* hack */
	(void) inshop();			/* probably was a trapdoor */

	savelev(fd,dlevel);
	(void) close(fd);

	dlevel = newlevel;
	if(maxdlevel < dlevel)
		maxdlevel = dlevel;
	glo(dlevel);

	if(!level_exists[dlevel])
		mklev();
	else {
		extern int hackpid;

		if((fd = open(lock,0)) < 0) {
			pline("Cannot open %s .", lock);
			pline("Probably someone removed it.");
			done("tricked");
		}
		getlev(fd, hackpid, dlevel);
		(void) close(fd);
	}

	if(at_stairs) {
	    if(up) {
		u.ux = xdnstair;
		u.uy = ydnstair;
		if(!u.ux) {		/* entering a maze from below? */
		    u.ux = xupstair;	/* this will confuse the player! */
		    u.uy = yupstair;
		}
		if(Punished && !Levitation){
			pline("With great effort you climb the stairs.");
			placebc(1);
		}
	    } else {
		u.ux = xupstair;
		u.uy = yupstair;
		if(inv_weight() + 5 > 0 || Punished){
			pline("You fall down the stairs.");	/* %% */
			losehp(rnd(3), "fall");
			if(Punished) {
			    if(uwep != uball && rn2(3)){
				pline("... and are hit by the iron ball.");
				losehp(rnd(20), "iron ball");
			    }
			    placebc(1);
			}
			selftouch("Falling, you");
		}
	    }
	    { register struct monst *mtmp = m_at(u.ux, u.uy);
	      if(mtmp)
		mnexto(mtmp);
	    }
	} else {	/* trapdoor or level_tele */
	    do {
		u.ux = rnd(COLNO-1);
		u.uy = rn2(ROWNO);
	    } while(levl[u.ux][u.uy].typ != ROOM ||
			m_at(u.ux,u.uy));
	    if(Punished){
		if(uwep != uball && !up /* %% */ && rn2(5)){
			pline("The iron ball falls on your head.");
			losehp(rnd(25), "iron ball");
		}
		placebc(1);
	    }
	    selftouch("Falling, you");
	}
	(void) inshop();
	initrack();

	losedogs();
	{ register struct monst *mtmp;
	  if(mtmp = m_at(u.ux, u.uy)) mnexto(mtmp);	/* riv05!a3 */
	}
	flags.nscrinh = 0;
	setsee();
	seeobjs();	/* make old cadavers disappear - riv05!a3 */
	docrt();
	pickup(1);
	read_engr_at(u.ux,u.uy);
}

donull() {
	return(1);	/* Do nothing, but let other things happen */
}

dopray() {
	nomovemsg = "You finished your prayer.";
	nomul(-3);
	return(1);
}

struct monst *bhit(), *boomhit();
dothrow()
{
	register struct obj *obj;
	register struct monst *mon;
	register tmp;

	obj = getobj("#)", "throw");   /* it is also possible to throw food */
				       /* (or jewels, or iron balls ... ) */
	if(!obj || !getdir(1))	       /* ask "in what direction?" */
		return(0);
	if(obj->owornmask & (W_ARMOR | W_RING)){
		pline("You can't throw something you are wearing.");
		return(0);
	}

	u_wipe_engr(2);

	if(obj == uwep){
		if(obj->cursed){
			pline("Your weapon is welded to your hand.");
			return(1);
		}
		if(obj->quan > 1)
			setuwep(splitobj(obj, 1));
		else
			setuwep((struct obj *) 0);
	}
	else if(obj->quan > 1)
		(void) splitobj(obj, 1);
	freeinv(obj);
	if(u.uswallow) {
		mon = u.ustuck;
		bhitpos.x = mon->mx;
		bhitpos.y = mon->my;
	} else if(u.dz) {
	  if(u.dz < 0) {
	    pline("%s hits the ceiling, then falls back on top of your head.",
		Doname(obj));		/* note: obj->quan == 1 */
	    if(obj->olet == POTION_SYM)
		potionhit(&youmonst, obj);
	    else {
		if(uarmh) pline("Fortunately, you are wearing a helmet!");
		losehp(uarmh ? 1 : rnd((int)(obj->owt)), "falling object");
		dropy(obj);
	    }
	  } else {
	    pline("%s hits the floor.", Doname(obj));
	    if(obj->otyp == EXPENSIVE_CAMERA) {
		pline("It is shattered in a thousand pieces!");
		obfree(obj, Null(obj));
	    } else if(obj->otyp == EGG) {
		pline("\"Splash!\"");
		obfree(obj, Null(obj));
	    } else if(obj->olet == POTION_SYM) {
		pline("The flask breaks, and you smell a peculiar odor ...");
		potionbreathe(obj);
		obfree(obj, Null(obj));
	    } else {
		dropy(obj);
	    }
	  }
	  return(1);
	} else if(obj->otyp == BOOMERANG) {
		mon = boomhit(u.dx, u.dy);
		if(mon == &youmonst) {		/* the thing was caught */
			(void) addinv(obj);
			return(1);
		}
	} else {
		if(obj->otyp == PICK_AXE && shkcatch(obj))
		    return(1);

		mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 :
			(!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1,
			obj->olet,
			(int (*)()) 0, (int (*)()) 0, obj);
	}
	if(mon) {
		/* awake monster if sleeping */
		wakeup(mon);

		if(obj->olet == WEAPON_SYM) {
			tmp = -1+u.ulevel+mon->data->ac+abon();
			if(obj->otyp < ROCK) {
				if(!uwep ||
				    uwep->otyp != obj->otyp+(BOW-ARROW))
					tmp -= 4;
				else {
					tmp += uwep->spe;
				}
			} else
			if(obj->otyp == BOOMERANG) tmp += 4;
			tmp += obj->spe;
			if(u.uswallow || tmp >= rnd(20)) {
				if(hmon(mon,obj,1) == TRUE){
				  /* mon still alive */
#ifndef NOWORM
				  cutworm(mon,bhitpos.x,bhitpos.y,obj->otyp);
#endif NOWORM
				} else mon = 0;
				/* weapons thrown disappear sometimes */
				if(obj->otyp < BOOMERANG && rn2(3)) {
					/* check bill; free */
					obfree(obj, (struct obj *) 0);
					return(1);
				}
			} else miss(objects[obj->otyp].oc_name, mon);
		} else if(obj->otyp == HEAVY_IRON_BALL) {
			tmp = -1+u.ulevel+mon->data->ac+abon();
			if(!Punished || obj != uball) tmp += 2;
			if(u.utrap) tmp -= 2;
			if(u.uswallow || tmp >= rnd(20)) {
				if(hmon(mon,obj,1) == FALSE)
					mon = 0;	/* he died */
			} else miss("iron ball", mon);
		} else if(obj->olet == POTION_SYM && u.ulevel > rn2(15)) {
			potionhit(mon, obj);
			return(1);
		} else {
			if(cansee(bhitpos.x,bhitpos.y))
				pline("You miss %s.",monnam(mon));
			else pline("You miss it.");
			if(obj->olet == FOOD_SYM && mon->data->mlet == 'd')
				if(tamedog(mon,obj)) return(1);
			if(obj->olet == GEM_SYM && mon->data->mlet == 'u' &&
				!mon->mtame){
			 if(obj->dknown && objects[obj->otyp].oc_name_known){
			  if(objects[obj->otyp].g_val > 0){
			    u.uluck += 5;
			    goto valuable;
			  } else {
			    pline("%s is not interested in your junk.",
				Monnam(mon));
			  }
			 } else { /* value unknown to @ */
			    u.uluck++;
			valuable:
			    if(u.uluck > LUCKMAX)	/* dan@ut-ngp */
				u.uluck = LUCKMAX;
			    pline("%s graciously accepts your gift.",
				Monnam(mon));
			    mpickobj(mon, obj);
			    rloc(mon);
			    return(1);
			 }
			}
		}
	}
		/* the code following might become part of dropy() */
	if(obj->otyp == CRYSKNIFE)
		obj->otyp = WORM_TOOTH;
	obj->ox = bhitpos.x;
	obj->oy = bhitpos.y;
	obj->nobj = fobj;
	fobj = obj;
	/* prevent him from throwing articles to the exit and escaping */
	/* subfrombill(obj); */
	stackobj(obj);
	if(Punished && obj == uball &&
		(bhitpos.x != u.ux || bhitpos.y != u.uy)){
		freeobj(uchain);
		unpobj(uchain);
		if(u.utrap){
			if(u.utraptype == TT_PIT)
				pline("The ball pulls you out of the pit!");
			else {
			    register long side =
				rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
			    pline("The ball pulls you out of the bear trap.");
			    pline("Your %s leg is severely damaged.",
				(side == LEFT_SIDE) ? "left" : "right");
			    set_wounded_legs(side, 500+rn2(1000));
			    losehp(2, "thrown ball");
			}
			u.utrap = 0;
		}
		unsee();
		uchain->nobj = fobj;
		fobj = uchain;
		u.ux = uchain->ox = bhitpos.x - u.dx;
		u.uy = uchain->oy = bhitpos.y - u.dy;
		setsee();
		(void) inshop();
	}
	if(cansee(bhitpos.x, bhitpos.y)) prl(bhitpos.x,bhitpos.y);
	return(1);
}

/* split obj so that it gets size num */
/* remainder is put in the object structure delivered by this call */
struct obj *
splitobj(obj, num) register struct obj *obj; register int num; {
register struct obj *otmp;
	otmp = newobj(0);
	*otmp = *obj;		/* copies whole structure */
	otmp->o_id = flags.ident++;
	otmp->onamelth = 0;
	obj->quan = num;
	obj->owt = weight(obj);
	otmp->quan -= num;
	otmp->owt = weight(otmp);	/* -= obj->owt ? */
	obj->nobj = otmp;
	if(obj->unpaid) splitbill(obj,otmp);
	return(otmp);
}

more_experienced(exp,rexp)
register int exp, rexp;
{
	extern char pl_character[];

	u.uexp += exp;
	u.urexp += 4*exp + rexp;
	if(exp) flags.botl = 1;
	if(u.urexp >= ((pl_character[0] == 'W') ? 1000 : 2000))
		flags.beginner = 0;
}

set_wounded_legs(side, timex)
register long side;
register int timex;
{
	if(!Wounded_legs || (Wounded_legs & TIMEOUT))
		Wounded_legs |= side + timex;
	else
		Wounded_legs |= side;
}

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