1 /* $NetBSD: hack.fight.c,v 1.12 2009/08/12 07:28:40 dholland Exp $ */
4 * Copyright (c) 1985, Stichting Centrum voor Wiskunde en Informatica,
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions are
12 * - Redistributions of source code must retain the above copyright notice,
13 * this list of conditions and the following disclaimer.
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.
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
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.
38 * Copyright (c) 1982 Jay Fenlason <hack@gnu.org>
39 * All rights reserved.
41 * Redistribution and use in source and binary forms, with or without
42 * modification, are permitted provided that the following conditions
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.
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.
67 static boolean far_noise
;
68 static long noisetime
;
70 static void monstone(struct monst
*);
72 /* hitmm returns 0 (miss), 1 (hit), or 2 (kill) */
74 hitmm(struct monst
*magr
, struct monst
*mdef
)
76 const struct permonst
*pa
= magr
->data
, *pd
= mdef
->data
;
81 if (strchr("Eauy", pa
->mlet
))
84 return (0); /* riv05!a3 */
85 tmp
= pd
->ac
+ pa
->mlevel
;
86 if (mdef
->mconf
|| mdef
->mfroz
|| mdef
->msleep
) {
91 didhit
= (tmp
> rnd(20));
94 vis
= (cansee(magr
->mx
, magr
->my
) && cansee(mdef
->mx
, mdef
->my
));
101 (void) snprintf(buf
, sizeof(buf
), "%s %s", Monnam(magr
),
102 didhit
? "hits" : "misses");
103 pline("%s %s.", buf
, monnam(mdef
));
105 boolean far
= (dist(magr
->mx
, magr
->my
) > 15);
106 if (far
!= far_noise
|| moves
- noisetime
> 10) {
109 pline("You hear some noises%s.",
110 far
? " in the distance" : "");
114 if (magr
->data
->mlet
== 'c' && !magr
->cham
) {
117 pline("%s is turned to stone!", Monnam(mdef
));
118 else if (mdef
->mtame
)
119 pline("You have a peculiarly sad feeling for a moment, then it passes.");
122 } else if ((mdef
->mhp
-= d(pa
->damn
, pa
->damd
)) < 1) {
123 magr
->mhpmax
+= 1 + rn2(pd
->mlevel
+ 1);
124 if (magr
->mtame
&& magr
->mhpmax
> 8 * pa
->mlevel
) {
126 magr
->data
= pa
= &dog
;
128 magr
->data
= pa
= &la_dog
;
131 pline("%s is killed!", Monnam(mdef
));
132 else if (mdef
->mtame
)
133 pline("You have a sad feeling for a moment, then it passes.");
141 /* drop (perhaps) a cadaver and remove monster */
143 mondied(struct monst
*mdef
)
145 const struct permonst
*pd
= mdef
->data
;
146 if (letter(pd
->mlet
) && rn2(3)) {
147 (void) mkobj_at(pd
->mlet
, mdef
->mx
, mdef
->my
);
148 if (cansee(mdef
->mx
, mdef
->my
)) {
150 atl(mdef
->mx
, mdef
->my
, fobj
->olet
);
157 /* drop a rock and remove monster */
159 monstone(struct monst
*mdef
)
161 if (strchr(mlarge
, mdef
->data
->mlet
))
162 mksobj_at(ENORMOUS_ROCK
, mdef
->mx
, mdef
->my
);
164 mksobj_at(ROCK
, mdef
->mx
, mdef
->my
);
165 if (cansee(mdef
->mx
, mdef
->my
)) {
167 atl(mdef
->mx
, mdef
->my
, fobj
->olet
);
174 fightm(struct monst
*mtmp
)
177 for (mon
= fmon
; mon
; mon
= mon
->nmon
)
179 if (DIST(mon
->mx
, mon
->my
, mtmp
->mx
, mtmp
->my
) < 3)
181 return (hitmm(mtmp
, mon
));
186 /* u is hit by sth, but not a monster */
188 thitu(int tlev
, int dam
, const char *name
)
192 setan(name
, buf
, sizeof(buf
));
193 if (u
.uac
+ tlev
<= rnd(20)) {
197 pline("You are almost hit by %s!", buf
);
201 pline("You are hit!");
203 pline("You are hit by %s!", buf
);
209 const char mlarge
[] = "bCDdegIlmnoPSsTUwY',&";
211 /* return TRUE if mon still alive */
213 hmon(struct monst
*mon
, struct obj
*obj
, int thrown
)
216 boolean hittxt
= FALSE
;
219 tmp
= rnd(2); /* attack with bare hands */
220 if (mon
->data
->mlet
== 'c' && !uarmg
) {
221 pline("You hit the cockatrice with your bare hands.");
222 pline("You turn to stone ...");
225 } else if (obj
->olet
== WEAPON_SYM
|| obj
->otyp
== PICK_AXE
) {
226 if (obj
== uwep
&& (obj
->otyp
> SPEAR
|| obj
->otyp
< BOOMERANG
))
229 if (strchr(mlarge
, mon
->data
->mlet
)) {
230 tmp
= rnd(objects
[obj
->otyp
].wldam
);
231 if (obj
->otyp
== TWO_HANDED_SWORD
)
233 else if (obj
->otyp
== FLAIL
)
236 tmp
= rnd(objects
[obj
->otyp
].wsdam
);
239 if (!thrown
&& obj
== uwep
&& obj
->otyp
== BOOMERANG
241 pline("As you hit %s, the boomerang breaks into splinters.",
244 setworn((struct obj
*) 0, obj
->owornmask
);
245 obfree(obj
, (struct obj
*) 0);
250 if (mon
->data
->mlet
== 'O' && obj
!= NULL
&&
251 obj
->otyp
== TWO_HANDED_SWORD
&&
252 !strcmp(ONAME(obj
), "Orcrist"))
256 case HEAVY_IRON_BALL
:
259 case EXPENSIVE_CAMERA
:
260 pline("You succeed in destroying your camera. Congratulations!");
263 setworn((struct obj
*) 0, obj
->owornmask
);
264 obfree(obj
, (struct obj
*) 0);
266 case DEAD_COCKATRICE
:
267 pline("You hit %s with the cockatrice corpse.",
269 if (mon
->data
->mlet
== 'c') {
274 pline("%s is turned to stone!", Monnam(mon
));
277 case CLOVE_OF_GARLIC
: /* no effect against demons */
278 if (strchr(UNDEAD
, mon
->data
->mlet
))
283 /* non-weapons can damage because of their weight */
284 /* (but not too much) */
294 /****** NOTE: perhaps obj is undefined!! (if !thrown && BOOMERANG) */
296 tmp
+= u
.udaminc
+ dbon();
298 if ((tmp
-= u
.uswldtim
) <= 0) {
299 pline("Your arms are no longer able to hit.");
310 if (mon
->mtame
&& (!mon
->mflee
|| mon
->mfleetim
)) {
311 mon
->mflee
= 1; /* Rick Richardson */
312 mon
->mfleetim
+= 10 * rnd(tmp
);
316 /* this assumes that we cannot throw plural things */
318 panic("thrown non-object");
319 hit(xname(obj
) /* or: objects[obj->otyp].oc_name */ ,
322 pline("You hit it.");
324 pline("You hit %s%s", monnam(mon
), exclam(tmp
));
326 if (u
.umconf
&& !thrown
) {
328 pline("Your hands stop glowing blue.");
329 if (!mon
->mfroz
&& !mon
->msleep
)
330 pline("%s appears confused.", Monnam(mon
));
335 return (TRUE
); /* mon still alive */
338 /* try to attack; return FALSE if monster evaded */
339 /* u.dx and u.dy must be set */
341 attack(struct monst
*mtmp
)
344 boolean malive
= TRUE
;
345 const struct permonst
*mdat
;
348 u_wipe_engr(3); /* andrew@orca: prevent unlimited pick-axe
351 if (mdat
->mlet
== 'L' && !mtmp
->mfroz
&& !mtmp
->msleep
&&
352 !mtmp
->mconf
&& mtmp
->mcansee
&& !rn2(7) &&
353 (m_move(mtmp
, 0) == 2 /* he died */ || /* he moved: */
354 mtmp
->mx
!= u
.ux
+ u
.dx
|| mtmp
->my
!= u
.uy
+ u
.dy
))
358 if (!u
.ustuck
&& !mtmp
->mflee
)
360 switch (levl
[u
.ux
+ u
.dx
][u
.uy
+ u
.dy
].scrsym
) {
362 pline("The door actually was a Mimic.");
365 pline("The chest was a Mimic!");
368 pline("Wait! That's a Mimic!");
370 wakeup(mtmp
); /* clears mtmp->mimic */
375 if (mtmp
->mhide
&& mtmp
->mundetected
) {
378 mtmp
->mundetected
= 0;
379 if ((obj
= o_at(mtmp
->mx
, mtmp
->my
)) && !Blind
)
380 pline("Wait! There's a %s hiding under %s!",
381 mdat
->mname
, doname(obj
));
384 tmp
= u
.uluck
+ u
.ulevel
+ mdat
->ac
+ abon();
386 if (uwep
->olet
== WEAPON_SYM
|| uwep
->otyp
== PICK_AXE
)
388 if (uwep
->otyp
== TWO_HANDED_SWORD
)
390 else if (uwep
->otyp
== DAGGER
)
392 else if (uwep
->otyp
== CRYSKNIFE
)
394 else if (uwep
->otyp
== SPEAR
&&
395 strchr("XDne", mdat
->mlet
))
412 /* with a lot of luggage, your agility diminishes */
413 tmp
-= (inv_weight() + 40) / 20;
415 if (tmp
<= rnd(20) && !u
.uswallow
) {
417 pline("You miss it.");
419 pline("You miss %s.", monnam(mtmp
));
421 /* we hit the monster; be careful: it might die! */
423 if ((malive
= hmon(mtmp
, uwep
, 0)) == TRUE
) {
424 /* monster still alive */
425 if (!rn2(25) && mtmp
->mhp
< mtmp
->mhpmax
/ 2) {
428 mtmp
->mfleetim
= rnd(100);
429 if (u
.ustuck
== mtmp
&& !u
.uswallow
)
434 cutworm(mtmp
, u
.ux
+ u
.dx
, u
.uy
+ u
.dy
,
435 uwep
? uwep
->otyp
: 0);
438 if (mdat
->mlet
== 'a') {
440 pline("You are splashed by the blob's acid!");
441 losehp_m(rnd(6), mtmp
);
449 if (malive
&& mdat
->mlet
== 'E' && canseemon(mtmp
)
450 && !mtmp
->mcan
&& rn2(3)) {
452 pline("You are frozen by the floating eye's gaze!");
453 nomul((u
.ulevel
> 6 || rn2(4)) ? rn1(20, -21) : -200);
455 pline("The blinded floating eye cannot defend itself.");
457 if ((int) u
.uluck
> LUCKMIN
)