xref: /dragonfly/games/hack/hack.fight.c (revision 335b9e93) 
1 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2 /* hack.fight.c - version 1.0.3 */
3 /* $FreeBSD: src/games/hack/hack.fight.c,v 1.5 1999/11/16 10:26:36 marcel Exp $ */
4 /* $DragonFly: src/games/hack/hack.fight.c,v 1.5 2006/08/21 19:45:32 pavalos Exp $ */
5 
6 #include "hack.h"
7 extern struct permonst li_dog, dog, la_dog;
8 
9 static boolean far_noise;
10 static long noisetime;
11 
12 static void monstone(struct monst *);
13 
14 /* hitmm returns 0 (miss), 1 (hit), or 2 (kill) */
15 int
16 hitmm(struct monst *magr, struct monst *mdef)
17 {
18 	struct permonst *pa = magr->data, *pd = mdef->data;
19 	int ht;
20 	schar tmp;
21 	boolean vis;
22 
23 	if (strchr("Eauy", pa->mlet))
24 		return (0);
25 	if (magr->mfroz)		/* riv05!a3 */
26 		return (0);
27 	tmp = pd->ac + pa->mlevel;
28 	if (mdef->mconf || mdef->mfroz || mdef->msleep) {
29 		tmp += 4;
30 		if (mdef->msleep)
31 			mdef->msleep = 0;
32 	}
33 	ht = (tmp > rnd(20));
34 	if (ht)
35 		mdef->msleep = 0;
36 	vis = (cansee(magr->mx, magr->my) && cansee(mdef->mx, mdef->my));
37 	if (vis) {
38 		char buf[BUFSZ];
39 		if (mdef->mimic)
40 			seemimic(mdef);
41 		if (magr->mimic)
42 			seemimic(magr);
43 		sprintf(buf, "%s %s", Monnam(magr),
44 			ht ? "hits" : "misses");
45 		pline("%s %s.", buf, monnam(mdef));
46 	} else {
47 		boolean far = (dist(magr->mx, magr->my) > 15);
48 		if (far != far_noise || moves - noisetime > 10) {
49 			far_noise = far;
50 			noisetime = moves;
51 			pline("You hear some noises%s.",
52 			      far ? " in the distance" : "");
53 		}
54 	}
55 	if (ht) {
56 		if (magr->data->mlet == 'c' && !magr->cham) {
57 			magr->mhpmax += 3;
58 			if (vis)
59 				pline("%s is turned to stone!", Monnam(mdef));
60 			else if (mdef->mtame)
61 				pline("You have a peculiarly sad feeling for a moment, then it passes.");
62 			monstone(mdef);
63 			ht = 2;
64 		} else if ((mdef->mhp -= d(pa->damn, pa->damd)) < 1) {
65 			magr->mhpmax += 1 + rn2(pd->mlevel + 1);
66 			if (magr->mtame && magr->mhpmax > 8 * pa->mlevel) {
67 				if (pa == &li_dog)
68 					magr->data = pa = &dog;
69 				else if (pa == &dog)
70 					magr->data = pa = &la_dog;
71 			}
72 			if (vis)
73 				pline("%s is killed!", Monnam(mdef));
74 			else if (mdef->mtame)
75 				pline("You have a sad feeling for a moment, then it passes.");
76 			mondied(mdef);
77 			ht = 2;
78 		}
79 	}
80 	return (ht);
81 }
82 
83 /* drop (perhaps) a cadaver and remove monster */
84 void
85 mondied(struct monst *mdef)
86 {
87 	struct permonst *pd = mdef->data;
88 
89 	if (letter(pd->mlet) && rn2(3)) {
90 		mkobj_at(pd->mlet, mdef->mx, mdef->my);
91 		if (cansee(mdef->mx, mdef->my)) {
92 			unpmon(mdef);
93 			atl(mdef->mx, mdef->my, fobj->olet);
94 		}
95 		stackobj(fobj);
96 	}
97 	mondead(mdef);
98 }
99 
100 /* drop a rock and remove monster */
101 static void
102 monstone(struct monst *mdef)
103 {
104 	if (strchr(mlarge, mdef->data->mlet))
105 		mksobj_at(ENORMOUS_ROCK, mdef->mx, mdef->my);
106 	else
107 		mksobj_at(ROCK, mdef->mx, mdef->my);
108 	if (cansee(mdef->mx, mdef->my)) {
109 		unpmon(mdef);
110 		atl(mdef->mx, mdef->my, fobj->olet);
111 	}
112 	mondead(mdef);
113 }
114 
115 int
116 fightm(struct monst *mtmp)
117 {
118 	struct monst *mon;
119 
120 	for (mon = fmon; mon; mon = mon->nmon)
121 		if (mon != mtmp) {
122 			if (DIST(mon->mx, mon->my, mtmp->mx, mtmp->my) < 3)
123 				if (rn2(4))
124 					return (hitmm(mtmp, mon));
125 		}
126 
127 	return (-1);
128 }
129 
130 /* u is hit by sth, but not a monster */
131 bool
132 thitu(int tlev, int dam, const char *name)
133 {
134 	char buf[BUFSZ];
135 
136 	setan(name, buf);
137 	if (u.uac + tlev <= rnd(20)) {
138 		if (Blind)
139 			pline("It misses.");
140 		else
141 			pline("You are almost hit by %s!", buf);
142 		return (0);
143 	} else {
144 		if (Blind)
145 			pline("You are hit!");
146 		else
147 			pline("You are hit by %s!", buf);
148 		losehp(dam, name);
149 		return (1);
150 	}
151 }
152 
153 char mlarge[] = "bCDdegIlmnoPSsTUwY',&";
154 
155 /* return TRUE if mon still alive */
156 bool
157 hmon(struct monst *mon, struct obj *obj, int thrown)
158 {
159 	int tmp;
160 	bool hittxt = FALSE;
161 
162 	if (!obj) {
163 		tmp = rnd(2);	/* attack with bare hands */
164 		if (mon->data->mlet == 'c' && !uarmg) {
165 			pline("You hit the cockatrice with your bare hands.");
166 			pline("You turn to stone ...");
167 			done_in_by(mon);
168 		}
169 	} else if (obj->olet == WEAPON_SYM || obj->otyp == PICK_AXE) {
170 		if (obj == uwep && (obj->otyp > SPEAR || obj->otyp < BOOMERANG))
171 			tmp = rnd(2);
172 		else {
173 			if (strchr(mlarge, mon->data->mlet)) {
174 				tmp = rnd(objects[obj->otyp].wldam);
175 				if (obj->otyp == TWO_HANDED_SWORD)
176 					tmp += d(2, 6);
177 				else if (obj->otyp == FLAIL)
178 					tmp += rnd(4);
179 			} else
180 				tmp = rnd(objects[obj->otyp].wsdam);
181 			tmp += obj->spe;
182 			if (!thrown && obj == uwep && obj->otyp == BOOMERANG
183 			    && !rn2(3)) {
184 				pline("As you hit %s, the boomerang breaks into splinters.",
185 				    monnam(mon));
186 				freeinv(obj);
187 				setworn(NULL, obj->owornmask);
188 				obfree(obj, NULL);
189 				tmp++;
190 			}
191 		}
192 		if (mon->data->mlet == 'O' && obj->otyp == TWO_HANDED_SWORD &&
193 		    !strcmp(ONAME(obj), "Orcrist"))
194 			tmp += rnd(10);
195 	} else
196 		switch (obj->otyp) {
197 		case HEAVY_IRON_BALL:
198 			tmp = rnd(25);
199 			break;
200 		case EXPENSIVE_CAMERA:
201 			pline("You succeed in destroying your camera. Congratulations!");
202 			freeinv(obj);
203 			if (obj->owornmask)
204 				setworn(NULL, obj->owornmask);
205 			obfree(obj, NULL);
206 			return (TRUE);
207 		case DEAD_COCKATRICE:
208 			pline("You hit %s with the cockatrice corpse.",
209 			      monnam(mon));
210 			if (mon->data->mlet == 'c') {
211 				tmp = 1;
212 				hittxt = TRUE;
213 				break;
214 			}
215 			pline("%s is turned to stone!", Monnam(mon));
216 			killed(mon);
217 			return (FALSE);
218 		case CLOVE_OF_GARLIC:	/* no effect against demons */
219 			if (strchr(UNDEAD, mon->data->mlet))
220 				mon->mflee = 1;
221 			tmp = 1;
222 			break;
223 		default:
224 			/* non-weapons can damage because of their weight */
225 			/* (but not too much) */
226 			tmp = obj->owt / 10;
227 			if (tmp < 1)
228 				tmp = 1;
229 			else
230 				tmp = rnd(tmp);
231 			if (tmp > 6)
232 				tmp = 6;
233 		}
234 
235 	/****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) */
236 
237 	tmp += u.udaminc + dbon();
238 	if (u.uswallow) {
239 		if ((tmp -= u.uswldtim) <= 0) {
240 			pline("Your arms are no longer able to hit.");
241 			return (TRUE);
242 		}
243 	}
244 	if (tmp < 1)
245 		tmp = 1;
246 	mon->mhp -= tmp;
247 	if (mon->mhp < 1) {
248 		killed(mon);
249 		return (FALSE);
250 	}
251 	if (mon->mtame && (!mon->mflee || mon->mfleetim)) {
252 		mon->mflee = 1;		/* Rick Richardson */
253 		mon->mfleetim += 10 * rnd(tmp);
254 	}
255 
256 	if (!hittxt) {
257 		if (thrown) {
258 			/* this assumes that we cannot throw plural things */
259 			hit(xname(obj) /* or: objects[obj->otyp].oc_name */,
260 			    mon, exclam(tmp));
261 		} else if (Blind)
262 			pline("You hit it.");
263 		else
264 			pline("You hit %s%s", monnam(mon), exclam(tmp));
265 	}
266 
267 	if (u.umconf && !thrown) {
268 		if (!Blind) {
269 			pline("Your hands stop glowing blue.");
270 			if (!mon->mfroz && !mon->msleep)
271 				pline("%s appears confused.", Monnam(mon));
272 		}
273 		mon->mconf = 1;
274 		u.umconf = 0;
275 	}
276 	return (TRUE);		/* mon still alive */
277 }
278 
279 /* try to attack; return FALSE if monster evaded */
280 /* u.dx and u.dy must be set */
281 bool
282 attack(struct monst *mtmp)
283 {
284 	schar tmp;
285 	boolean malive = TRUE;
286 	struct permonst *mdat;
287 
288 	mdat = mtmp->data;
289 	u_wipe_engr(3);   /* andrew@orca: prevent unlimited pick-axe attacks */
290 
291 	if (mdat->mlet == 'L' && !mtmp->mfroz && !mtmp->msleep &&
292 	    !mtmp->mconf && mtmp->mcansee && !rn2(7) &&
293 	    (m_move(mtmp, 0) == 2 /* he died */ || /* he moved: */
294 	     mtmp->mx != u.ux + u.dx || mtmp->my != u.uy + u.dy))
295 		return (FALSE);
296 
297 	if (mtmp->mimic) {
298 		if (!u.ustuck && !mtmp->mflee)
299 			u.ustuck = mtmp;
300 		switch (levl[u.ux + u.dx][u.uy + u.dy].scrsym) {
301 		case '+':
302 			pline("The door actually was a Mimic.");
303 			break;
304 		case '$':
305 			pline("The chest was a Mimic!");
306 			break;
307 		default:
308 			pline("Wait! That's a Mimic!");
309 		}
310 		wakeup(mtmp);	/* clears mtmp->mimic */
311 		return (TRUE);
312 	}
313 
314 	wakeup(mtmp);
315 
316 	if (mtmp->mhide && mtmp->mundetected) {
317 		struct obj *obj;
318 
319 		mtmp->mundetected = 0;
320 		if ((obj = o_at(mtmp->mx, mtmp->my)) && !Blind)
321 			pline("Wait! There's a %s hiding under %s!",
322 			      mdat->mname, doname(obj));
323 		return (TRUE);
324 	}
325 
326 	tmp = u.uluck + u.ulevel + mdat->ac + abon();
327 	if (uwep) {
328 		if (uwep->olet == WEAPON_SYM || uwep->otyp == PICK_AXE)
329 			tmp += uwep->spe;
330 		if (uwep->otyp == TWO_HANDED_SWORD)
331 			tmp -= 1;
332 		else if (uwep->otyp == DAGGER)
333 			tmp += 2;
334 		else if (uwep->otyp == CRYSKNIFE)
335 			tmp += 3;
336 		else if (uwep->otyp == SPEAR &&
337 			 strchr("XDne", mdat->mlet))
338 			tmp += 2;
339 	}
340 	if (mtmp->msleep) {
341 		mtmp->msleep = 0;
342 		tmp += 2;
343 	}
344 	if (mtmp->mfroz) {
345 		tmp += 4;
346 		if (!rn2(10))
347 			mtmp->mfroz = 0;
348 	}
349 	if (mtmp->mflee)
350 		tmp += 2;
351 	if (u.utrap)
352 		tmp -= 3;
353 
354 	/* with a lot of luggage, your agility diminishes */
355 	tmp -= (inv_weight() + 40) / 20;
356 
357 	if (tmp <= rnd(20) && !u.uswallow) {
358 		if (Blind)
359 			pline("You miss it.");
360 		else
361 			pline("You miss %s.", monnam(mtmp));
362 	} else {
363 		/* we hit the monster; be careful: it might die! */
364 
365 		if ((malive = hmon(mtmp, uwep, 0)) == TRUE) {
366 			/* monster still alive */
367 			if (!rn2(25) && mtmp->mhp < mtmp->mhpmax / 2) {
368 				mtmp->mflee = 1;
369 				if (!rn2(3))
370 					mtmp->mfleetim = rnd(100);
371 				if (u.ustuck == mtmp && !u.uswallow)
372 					u.ustuck = 0;
373 			}
374 #ifndef NOWORM
375 			if (mtmp->wormno)
376 				cutworm(mtmp, u.ux + u.dx, u.uy + u.dy,
377 					uwep ? uwep->otyp : 0);
378 #endif /* NOWORM */
379 		}
380 		if (mdat->mlet == 'a') {
381 			if (rn2(2)) {
382 				pline("You are splashed by the blob's acid!");
383 				losehp_m(rnd(6), mtmp);
384 				if (!rn2(30))
385 					corrode_armor();
386 			}
387 			if (!rn2(6))
388 				corrode_weapon();
389 		}
390 	}
391 	if (malive && mdat->mlet == 'E' && canseemon(mtmp)
392 	    && !mtmp->mcan && rn2(3)) {
393 		if (mtmp->mcansee) {
394 			pline("You are frozen by the floating eye's gaze!");
395 			nomul((u.ulevel > 6 || rn2(4)) ? rn1(20, -21) : -200);
396 		} else {
397 			pline("The blinded floating eye cannot defend itself.");
398 			if (!rn2(500))
399 				if ((int)u.uluck > LUCKMIN)
400 					u.uluck--;
401 		}
402 	}
403 	return (TRUE);
404 }
405