Fandom

Wikihack

Source:NetHack 3.1.0/mhitu.c

2,034pages on
this wiki
Add New Page
Talk0

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.

Below is the full text to mhitu.c from the source code of NetHack 3.1.0. To link to a particular line, write [[NetHack 3.1.0/mhitu.c#line123]], for example.

Warning! This is the source code from an old release. For the latest release, see Source code

The NetHack General Public License applies to screenshots, source code and other content from NetHack.
1.    /*	SCCS Id: @(#)mhitu.c	3.1	92/12/10	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    #include "hack.h"
6.    #include "artifact.h"
7.    
8.    STATIC_VAR struct obj NEARDATA *otmp;
9.    
10.   #ifdef POLYSELF
11.   STATIC_DCL void FDECL(urustm, (struct monst *, struct obj *));
12.   # ifdef OVL1
13.   static int FDECL(passiveum, (struct permonst *,struct monst *,struct attack *));
14.   # endif /* OVL1 */
15.   #endif /* POLYSELF */
16.   
17.   #ifdef OVLB
18.   # ifdef SEDUCE
19.   static void FDECL(mayberem, (struct obj *, const char *));
20.   # endif
21.   #endif /* OVLB */
22.   
23.   STATIC_DCL boolean FDECL(diseasemu, (struct permonst *));
24.   STATIC_DCL int FDECL(hitmu, (struct monst *,struct attack *));
25.   STATIC_DCL int FDECL(gulpmu, (struct monst *,struct attack *));
26.   STATIC_DCL int FDECL(explmu, (struct monst *,struct attack *,BOOLEAN_P));
27.   STATIC_DCL int FDECL(gazemu, (struct monst *,struct attack *));
28.   STATIC_DCL void FDECL(missmu,(struct monst *,BOOLEAN_P,struct attack *));
29.   STATIC_DCL void FDECL(mswings,(struct monst *,struct obj *));
30.   STATIC_DCL void FDECL(wildmiss,(struct monst *));
31.   
32.   STATIC_DCL void FDECL(hurtarmor,(struct permonst *,int));
33.   STATIC_DCL void FDECL(hitmsg,(struct monst *,struct attack *));
34.   
35.   /* See comment in mhitm.c.  If we use this a lot it probably should be */
36.   /* changed to a parameter to mhitu. */
37.   static int dieroll;
38.   
39.   #ifdef OVL1
40.   
41.   
42.   STATIC_OVL void
43.   hitmsg(mtmp, mattk)
44.   register struct monst *mtmp;
45.   register struct attack *mattk;
46.   {
47.   	int compat;
48.   
49.   	/* Note: if opposite gender, "seductively" */
50.   	/* If same gender, "engagingly" for nymph, normal msg for others */
51.   	if((compat = could_seduce(mtmp, &youmonst, mattk))
52.   			&& !mtmp->mcan && !mtmp->mspec_used) {
53.   	    	pline("%s %s you %s.", Monnam(mtmp),
54.   			Blind ? "talks to" : "smiles at",
55.   			compat == 2 ? "engagingly" : "seductively");
56.   	} else
57.   	    switch (mattk->aatyp) {
58.   		case AT_BITE:
59.   			pline("%s bites!", Monnam(mtmp));
60.   			break;
61.   		case AT_KICK:
62.   #ifdef POLYSELF
63.   			pline("%s kicks%c", Monnam(mtmp), thick_skinned(uasmon) ? '.' : '!');
64.   #else
65.   			pline("%s kicks!", Monnam(mtmp));
66.   #endif
67.   			break;
68.   		case AT_STNG:
69.   			pline("%s stings!", Monnam(mtmp));
70.   			break;
71.   		case AT_BUTT:
72.   			pline("%s butts!", Monnam(mtmp));
73.   			break;
74.   		case AT_TUCH:
75.   			pline("%s touches you!", Monnam(mtmp));
76.   			break;
77.   		case AT_TENT:
78.   			pline("%s tentacles suck you!", 
79.   				        s_suffix(Monnam(mtmp)));
80.   			break;
81.   		case AT_EXPL:
82.   			pline("%s explodes!", Monnam(mtmp));
83.   			break;
84.   		default:
85.   			pline("%s hits!", Monnam(mtmp));
86.   	    }
87.   }
88.   
89.   STATIC_OVL void
90.   missmu(mtmp, nearmiss, mattk)		/* monster missed you */
91.   register struct monst *mtmp;
92.   register boolean nearmiss;
93.   register struct attack *mattk;
94.   {
95.   	if(could_seduce(mtmp, &youmonst, mattk) && !mtmp->mcan)
96.   	    pline("%s pretends to be friendly.", Monnam(mtmp));
97.   	else {
98.   	    if (!flags.verbose || !nearmiss)
99.   		pline("%s misses.", Monnam(mtmp));
100.  	    else
101.  		pline("%s just misses!", Monnam(mtmp));
102.  	}
103.  }
104.  
105.  STATIC_OVL void
106.  mswings(mtmp, otemp)		/* monster swings obj */
107.  register struct monst *mtmp;
108.  register struct obj *otemp;
109.  {
110.  	if (!flags.verbose || Blind || !mon_visible(mtmp) ||
111.  		otemp->oclass != WEAPON_CLASS) return;
112.  	pline("%s %s %s %s.", Monnam(mtmp),
113.  	      ((otemp->otyp >= SPEAR &&
114.  	        otemp->otyp <= LANCE) ||
115.  	       (otemp->otyp >= PARTISAN &&
116.  	        otemp->otyp <= SPETUM) ||
117.  	       otemp->otyp == TRIDENT) ? "thrusts" : "swings",
118.  	      !humanoid(mtmp->data) ? "its" : mtmp->female ? "her" : "his",
119.  	      xname(otemp));
120.  }
121.  
122.  #endif /* OVL1 */
123.  #ifdef OVLB
124.  
125.  STATIC_OVL void
126.  wildmiss(mtmp)		/* monster attacked your displaced image */
127.  	register struct monst *mtmp;
128.  {
129.  	int compat;
130.  
131.  	if (!flags.verbose) return;
132.  	if (!cansee(mtmp->mx, mtmp->my)) return;
133.  		/* maybe it's attacking an image around the corner? */
134.  
135.  	compat = could_seduce(mtmp, &youmonst, (struct attack *)0);
136.  		/* we really want to have the attack here to pass --
137.  		 * the previous code checked whether mtmp was a nymph,
138.  		 * which was not correct either since the attack type of
139.  		 * succubi/incubi varies with SEDUCE
140.  		 */
141.  
142.  	if(Invis && !perceives(mtmp->data)) {
143.  	    if(compat)
144.  		pline("%s tries to touch you and misses!", Monnam(mtmp));
145.  	    else
146.  		switch(rn2(3)) {
147.  		case 0: pline("%s %s wildly and misses!", Monnam(mtmp),
148.  			      nolimbs(mtmp->data) ? "lunges" : "swings");
149.  		    break;
150.  		case 1: pline("%s attacks a spot beside you.", Monnam(mtmp));
151.  		    break;
152.  		case 2: pline("%s strikes at %s!", Monnam(mtmp),
153.  				Underwater ? "empty water" : "thin air");
154.  		    break;
155.  		default:pline("%s %s wildly!", Monnam(mtmp),
156.  			      nolimbs(mtmp->data) ? "lunges" : "swings");
157.  		    break;
158.  		}
159.  	}
160.  	else if(Displaced) {
161.  	    if(compat)
162.  		pline("%s smiles %s at your %sdisplaced image...",
163.  			Monnam(mtmp),
164.  			compat == 2 ? "engagingly" : "seductively",
165.  			Invis ? "invisible " : "");
166.  	    else
167.  		pline("%s strikes at your %sdisplaced image and misses you!",
168.  			/* Note: if you're both invisible and displaced,
169.  			 * only monsters which see invisible will attack your
170.  			 * displaced image, since the displaced image is also
171.  			 * invisible.
172.  			 */
173.  			Monnam(mtmp),
174.  			Invis ? "invisible " : "");
175.  	}
176.  	/* monsters may miss especially on water level where
177.  	   bubbles shake the player here and there */
178.  	else if(Underwater) {
179.  	    if(compat)
180.  		pline("%s reaches towards your distorted image.",Monnam(mtmp));
181.  	    else
182.  		pline("%s is fooled by water reflections and misses!",Monnam(mtmp));
183.  	}
184.  	else impossible("%s attacks you without knowing your location?",
185.  		Monnam(mtmp));
186.  }
187.  
188.  void
189.  expels(mtmp, mdat, message)
190.  register struct monst *mtmp;
191.  register struct permonst *mdat; /* if mtmp is polymorphed, mdat != mtmp->data */
192.  boolean message;
193.  {
194.  	if (message) 
195.  		if (is_animal(mdat)) 
196.  			You("get regurgitated!");
197.  		else {
198.  			char blast[40];
199.  			register int i;
200.  
201.  			blast[0] = '\0';
202.  			for(i = 0; i < NATTK; i++)
203.  				if(mdat->mattk[i].aatyp == AT_ENGL) 
204.  					break;
205.  			if (mdat->mattk[i].aatyp != AT_ENGL)
206.  			      impossible("Swallower has no engulfing attack?"); 
207.  			else {
208.  				if (is_whirly(mdat)) {
209.  					switch (mdat->mattk[i].adtyp) {
210.  						case AD_ELEC:
211.  							Strcpy(blast, 
212.  						      " in a shower of sparks");
213.  							break;
214.  						case AD_COLD:
215.  							Strcpy(blast, 
216.  							" in a blast of frost");
217.  							break;
218.  					}
219.  				} else
220.  					Strcpy(blast, " with a squelch");
221.  				You("get expelled from %s%s!", 
222.  				    mon_nam(mtmp), blast);
223.  			}
224.  		}
225.  	unstuck(mtmp);	/* ball&chain returned in unstuck() */
226.  	mnexto(mtmp);
227.  	newsym(u.ux,u.uy);
228.  	spoteffects();
229.  	/* to cover for a case where mtmp is not in a next square */
230.  	if(um_dist(mtmp->mx,mtmp->my,1))
231.  		pline("Brrooaa...  You land hard at some distance.");
232.  }
233.  
234.  #endif /* OVLB */
235.  #ifdef OVL0
236.  
237.  /*
238.   * mattacku: monster attacks you
239.   *	returns 1 if monster dies (e.g. "yellow light"), 0 otherwise
240.   *	Note: if you're displaced or invisible the monster might attack the
241.   *		wrong position...
242.   *	Assumption: it's attacking you or an empty square; if there's another
243.   *		monster which it attacks by mistake, the caller had better
244.   *		take care of it...
245.   */
246.  int
247.  mattacku(mtmp)
248.  	register struct monst *mtmp;
249.  {
250.  	struct	attack	*mattk;
251.  	int	i, j, tmp, sum[NATTK];
252.  	struct	permonst *mdat = mtmp->data;
253.  	boolean ranged = (distu(mtmp->mx, mtmp->my) > 3);
254.  		/* Is it near you?  Affects your actions */
255.  	boolean range2 = !monnear(mtmp, mtmp->mux, mtmp->muy);
256.  		/* Does it think it's near you?  Affects its actions */
257.  	boolean foundyou = (mtmp->mux==u.ux && mtmp->muy==u.uy);
258.  		/* Is it attacking you or your image? */
259.  	boolean youseeit = canseemon(mtmp);
260.  		/* Might be attacking your image around the corner, or
261.  		 * invisible, or you might be blind....
262.  		 */
263.  
264.  	if(!ranged) nomul(0);
265.  	if(mtmp->mhp <= 0 || (Underwater && !is_swimmer(mtmp->data)))
266.  	    return(0);
267.  
268.  	/* If swallowed, can only be affected by u.ustuck */
269.  	if(u.uswallow) {
270.  	    if(mtmp != u.ustuck)
271.  		return(0);
272.  	    u.ustuck->mux = u.ux;
273.  	    u.ustuck->muy = u.uy;
274.  	    range2 = 0;
275.  	    foundyou = 1;
276.  	    if(u.uinvulnerable) return (0); /* stomachs can't hurt you! */
277.  	    /* This is not impossible! */
278.  	    /* If the swallowing monster changes into a monster
279.  	     * that is not capable of swallowing you, you get
280.  	     * regurgitated - dgk
281.  	     *
282.  	     * This code is obsolete: newcham() will handle this contingency 
283.  	     * as soon as it occurs in the course of a round. - kcd
284.  	     *
285.  	     * for(i = 0; i < NATTK; i++)
286.  	     *     if(mdat->mattk[i].aatyp == AT_ENGL) goto doattack;
287.  	     *
288.  	     * You("get regurgitated!");
289.  	     * regurgitates(mtmp);
290.               * return(0);
291.  	     */
292.  	}
293.  /* doattack:		use commented out above */
294.  #ifdef POLYSELF
295.  	if (u.uundetected && !range2 && foundyou && !u.uswallow) {
296.  		u.uundetected = 0;
297.  		if (is_hider(uasmon)) {
298.  		    coord cc; /* maybe we need a unexto() function? */
299.  
300.  		    You("fall from the ceiling!");
301.  		    if (enexto(&cc, u.ux, u.uy, &playermon)) {
302.  			remove_monster(mtmp->mx, mtmp->my);
303.  			newsym(mtmp->mx,mtmp->my);
304.  			place_monster(mtmp, u.ux, u.uy);
305.  			if(mtmp->wormno) worm_move(mtmp);
306.  			teleds(cc.x, cc.y);
307.  			set_apparxy(mtmp);
308.  			newsym(u.ux,u.uy);
309.  		    } else {
310.  			pline("%s is killed by a falling %s (you)!",
311.  						Monnam(mtmp), uasmon->mname);
312.  			killed(mtmp);
313.  			newsym(u.ux,u.uy);
314.  			return(0);
315.  		    }
316.  		    if (u.usym != S_PIERCER)
317.  			return(0);	/* trappers don't attack */
318.  #ifdef MUSE
319.  		    if (which_armor(mtmp, WORN_HELMET)) {
320.  #else
321.  		    if (is_mercenary(mtmp->data) && m_carrying(mtmp,HELMET)) {
322.  #endif
323.  			Your("blow glances off %s helmet.", 
324.  			               s_suffix(mon_nam(mtmp)));
325.  		    } else {
326.  			if (3 + find_mac(mtmp) <= rnd(20)) {
327.  			    pline("%s is hit by a falling piercer (you)!",
328.  								Monnam(mtmp));
329.  			    if ((mtmp->mhp -= d(3,6)) < 1)
330.  				killed(mtmp);
331.  			} else
332.  			  pline("%s is almost hit by a falling piercer (you)!",
333.  								Monnam(mtmp));
334.  		    }
335.  		} else {
336.  		    if (!youseeit)
337.  			pline("It tries to move where you are hiding.");
338.  		    else {
339.  			/* Ugly kludge for eggs.  The message is phrased so as
340.  			 * to be directed at the monster, not the player,
341.  			 * which makes "laid by you" wrong.  For the
342.  			 * parallelism to work, we can't rephrase it, so we
343.  			 * zap the "laid by you" momentarily instead.
344.  			 */
345.  			struct obj *obj = level.objects[u.ux][u.uy];
346.  
347.  			if (obj) {
348.  			    int save_spe = obj->spe;
349.  			    if (obj->otyp == EGG) obj->spe = 0;
350.  	     pline("Wait, %s!  There's a %s named %s hiding under %s!",
351.  				mtmp->mnamelth ? (const char *)NAME(mtmp)
352.  					       : mtmp->data->mname,
353.  				uasmon->mname, plname,
354.  				doname(level.objects[u.ux][u.uy]));
355.  			    obj->spe = save_spe;
356.  			} else
357.  			    impossible("hiding under nothing?");
358.  		    }
359.  		    newsym(u.ux,u.uy);
360.  		}
361.  		return(0);
362.  	}
363.  	if (u.usym == S_MIMIC_DEF && !range2 && foundyou && !u.uswallow) {
364.  		if (!youseeit) pline("It gets stuck on you.");
365.  		    else pline("Wait, %s!  That's a %s named %s!",
366.  			mtmp->mnamelth ? (const char *)NAME(mtmp) : mtmp->data->mname,
367.  			uasmon->mname, plname);
368.  		u.ustuck = mtmp;
369.  		u.usym = S_MIMIC;
370.  		newsym(u.ux,u.uy);
371.  		return(0);
372.  	}
373.  #endif
374.  /*	Work out the armor class differential	*/
375.  	tmp = u.uac + 10;		/* tmp ~= 0 - 20 */
376.  /*	give people with Ac < -9 at least some vulnerability */
377.  /*	negative AC gives an actual AC of somewhere from -1 to the AC */
378.  	if (tmp < 10) tmp = 10 - rnd(10-tmp);
379.  	tmp += mtmp->m_lev;
380.  	if(multi < 0) tmp += 4;
381.  	if((Invis && !perceives(mdat)) || !mtmp->mcansee)
382.  		tmp -= 2;
383.  	if(mtmp->mtrapped) tmp -= 2;
384.  	if(tmp <= 0) tmp = 1;
385.  
386.  	/* make eels visible the moment they hit/miss us */
387.  	if(mdat->mlet == S_EEL && mtmp->minvis && cansee(mtmp->mx,mtmp->my)) {
388.  		mtmp->minvis = 0;
389.  		newsym(mtmp->mx,mtmp->my);
390.  	}
391.  
392.  /*	Special demon handling code */
393.  	if(!mtmp->cham && is_demon(mdat) && !range2
394.  	   && mtmp->data != &mons[PM_BALROG]
395.  	   && mtmp->data != &mons[PM_SUCCUBUS]
396.  	   && mtmp->data != &mons[PM_INCUBUS])
397.  	    if(!mtmp->mcan && !rn2(13))	msummon(mdat);
398.  
399.  /*	Special lycanthrope handling code */
400.  	if(!mtmp->cham && is_were(mdat) && !range2) {
401.  
402.  	    if(is_human(mdat)) {
403.  		if(!rn2(5 - (night() * 2)) && !mtmp->mcan) new_were(mtmp);
404.  	    } else if(!rn2(30) && !mtmp->mcan) new_were(mtmp);
405.  
406.  	    if(!rn2(10) && !mtmp->mcan) {
407.  		if(youseeit) {
408.  			pline("%s summons help!",youseeit ?
409.  				Monnam(mtmp) : "It");
410.  		} else
411.  			You("feel hemmed in.");
412.  		/* Technically wrong; we really should check if you can see the
413.  		 * help, but close enough...
414.  		 */
415.  		if (!were_summon(mdat,FALSE) && youseeit)
416.  		    pline("But none comes.");
417.  	    }
418.  	}
419.  
420.  	if(u.uinvulnerable) {
421.  	    /* monster's won't attack you */
422.  	    if(mtmp == u.ustuck)
423.  		pline("%s loosens its grip slightly.", Monnam(mtmp));
424.  	    else if(!range2) {
425.  		if(youseeit)
426.  		    pline("%s starts to attack you, but pulls back.",
427.  			  Monnam(mtmp));
428.  		else
429.  		    You("feel something move nearby.");
430.  	    }
431.  	    return (0);
432.  	}
433.  #ifdef MUSE
434.  	/* Unlike defensive stuff, don't let them use item _and_ attack. */
435.  	/* Exception:  Medusa; her gaze is automatic.  (We actually kludge
436.  	 * by permitting a full attack sequence, not just a gaze attack.)
437.  	 */
438.  	if(find_offensive(mtmp)) {
439.  		int foo = use_offensive(mtmp);
440.  
441.  		if (mtmp->data != &mons[PM_MEDUSA] && foo != 0) return(foo==1);
442.  	}
443.  #endif
444.  
445.  	for(i = 0; i < NATTK; i++) {
446.  
447.  	    sum[i] = 0;
448.  	    mattk = &(mdat->mattk[i]);
449.  	    if (u.uswallow && (mattk->aatyp != AT_ENGL))
450.  		continue;
451.  	    switch(mattk->aatyp) {
452.  		case AT_CLAW:	/* "hand to hand" attacks */
453.  		case AT_KICK:
454.  		case AT_BITE:
455.  		case AT_STNG:
456.  		case AT_TUCH:
457.  		case AT_BUTT:
458.  		case AT_TENT:
459.  			if(!range2) {
460.  			    if (foundyou) {
461.  				if(tmp > (j = rnd(20+i))) {
462.  #ifdef POLYSELF
463.  				    if (mattk->aatyp != AT_KICK ||
464.  					    !thick_skinned(uasmon))
465.  #endif
466.  					sum[i] = hitmu(mtmp, mattk);
467.  				} else
468.  				    missmu(mtmp, (tmp == j), mattk);
469.  			    } else
470.  				wildmiss(mtmp);
471.  			}
472.  			break;
473.  
474.  		case AT_HUGS:	/* automatic if prev two attacks succeed */
475.  			/* Note: if displaced, prev attacks never succeeded */
476.  			if((!range2 && i>=2 && sum[i-1] && sum[i-2])
477.  							|| mtmp == u.ustuck)
478.  				sum[i]= hitmu(mtmp, mattk);
479.  			break;
480.  
481.  		case AT_GAZE:	/* can affect you either ranged or not */
482.  			if (youseeit)
483.  			    /* not displaced around a corner so not visible */
484.  			    sum[i] = gazemu(mtmp, mattk);
485.  			/* if gazemu returns, the player isn't dead.
486.  			 * can't put this in gazemu() because youseeit might
487.  			 * not be set
488.  			 */
489.  			if(Reflecting && m_canseeu(mtmp) &&
490.  			   !mtmp->mcan && mtmp->data == &mons[PM_MEDUSA]) {
491.  			    if(!Blind) {
492.  				if(Reflecting & W_AMUL)
493.  				    makeknown(AMULET_OF_REFLECTION);
494.  				else
495.  				    makeknown(SHIELD_OF_REFLECTION);
496.  				pline("%s gaze is reflected by your %s.",
497.  				      s_suffix(Monnam(mtmp)),
498.  				      (Reflecting & W_AMUL) ?
499.  				      "medallion" : "shield");
500.  				pline("%s is turned to stone!", Monnam(mtmp));
501.  			    }
502.  			    stoned = TRUE;
503.  			    killed(mtmp);
504.  			    sum[i] = 2;
505.  			}
506.  			break;
507.  
508.  		case AT_EXPL:	/* automatic hit if next to, and aimed at you */
509.  			if(!range2) sum[i] = explmu(mtmp, mattk, foundyou);
510.  			break;
511.  
512.  		case AT_ENGL:
513.  			if (!range2) {
514.  			    if(foundyou) {
515.  				if(u.uswallow || tmp > (j = rnd(20+i))) {
516.  				    /* Force swallowing monster to be
517.  				     * displayed even when player is
518.  				     * moving away */
519.  				    flush_screen(1);
520.  				    sum[i] = gulpmu(mtmp, mattk);
521.  				} else {
522.  				    missmu(mtmp, (tmp == j), mattk);
523.  				}
524.                             } else if (is_animal(mtmp->data))
525.  					pline("%s gulps some air!", youseeit ?
526.  					      Monnam(mtmp) : "It");
527.  				  else
528.  					if (youseeit)
529.  					 pline("%s lunges forward and recoils!",
530.  					       Monnam(mtmp));
531.  					else
532.  						You("hear a %s nearby.", 
533.  						    is_whirly(mtmp->data)? 
534.  						    "rushing noise" : 
535.  						    "splat");
536.  			}
537.  			break;
538.  		case AT_BREA:
539.  			if(range2) sum[i] = breamu(mtmp, mattk);
540.  			/* Note: breamu takes care of displacement */
541.  			break;
542.  		case AT_SPIT:
543.  			if(range2) sum[i] = spitmu(mtmp, mattk);
544.  			/* Note: spitmu takes care of displacement */
545.  			break;
546.  		case AT_WEAP:
547.  			if(range2) {
548.  #ifdef REINCARNATION
549.  				if (!Is_rogue_level(&u.uz))
550.  #endif
551.  					thrwmu(mtmp);
552.  			} else {
553.  #ifdef MUSE
554.  			    /* Rare but not impossible.  Normally the monster
555.  			     * wields when 2 spaces away, but it can be
556.  			     * teleported or whatever....
557.  			     */
558.  			    if (mtmp->weapon_check == NEED_WEAPON || !MON_WEP(mtmp)) {
559.  				mtmp->weapon_check = NEED_HTH_WEAPON;
560.  				/* mon_wield_item resets weapon_check as appropriate */
561.  				if (mon_wield_item(mtmp) != 0) break;
562.  			    }
563.  #endif
564.  			    if (foundyou) {
565.  				set_uasmon();
566.  #ifdef MUSE
567.  				otmp = MON_WEP(mtmp);
568.  #else
569.  				otmp = select_hwep(mtmp);
570.  #endif
571.  				if(otmp) {
572.  				    tmp += hitval(otmp, uasmon);
573.  				    mswings(mtmp, otmp);
574.  				}
575.  				if(tmp > (j = dieroll = rnd(20+i)))
576.  				    sum[i] = hitmu(mtmp, mattk);
577.  				else
578.  				    missmu(mtmp, (tmp == j), mattk);
579.  			    } else
580.  				wildmiss(mtmp);
581.  			}
582.  			break;
583.  		case AT_MAGC:
584.  			if (range2)
585.  			    sum[i] = buzzmu(mtmp, mattk);
586.  			else
587.  			    if (foundyou)
588.  				sum[i] = castmu(mtmp, mattk);
589.  			    else
590.  				pline("%s casts a spell at thin air!",
591.  					youseeit ? Monnam(mtmp) : "It");
592.  				/* Not totally right since castmu allows other
593.  				 * spells, such as the monster healing itself,
594.  				 * that should work even when not next to you--
595.  				 * but the previous code was just as wrong.
596.  				 * --KAA
597.  				 */
598.  			break;
599.  
600.  		default:		/* no attack */
601.  			break;
602.  	    }
603.  	    if(flags.botl) bot();
604.  	    if(sum[i] == 2)  return(1);  	/* attacker dead */
605.  	    if(sum[i] == 3) break;  /* attacker teleported, no more attacks */
606.  	    /* sum[i] == 1: successful attack */
607.  	    /* sum[i] == 0: unsuccessful attack */
608.  	}
609.  	return(0);
610.  }
611.  
612.  #endif /* OVL0 */
613.  #ifdef OVLB
614.  
615.  /*
616.   * helper function for some compilers that have trouble with hitmu
617.   */
618.  
619.  STATIC_OVL void
620.  hurtarmor(mdat, attk)
621.  struct permonst *mdat;
622.  int attk;
623.  {
624.  	boolean getbronze, rusting;
625.  	int	hurt;
626.  
627.  	rusting = (attk == AD_RUST);
628.  	if (rusting) {
629.  		hurt = 1;
630.  		getbronze = (mdat == &mons[PM_BLACK_PUDDING] &&
631.  			     uarm && is_corrodeable(uarm));
632.  	}
633.  	else {
634.  		hurt=2;
635.  		getbronze = FALSE;
636.  	}
637.  	/* What the following code does: it keeps looping until it
638.  	 * finds a target for the rust monster.
639.  	 * Head, feet, etc... not covered by metal, or covered by
640.  	 * rusty metal, are not targets.  However, your body always
641.  	 * is, no matter what covers it.
642.  	 */
643.  	while (1) {
644.  	    switch(rn2(5)) {
645.  	    case 0:
646.  		if (!rust_dmg(uarmh, rusting ? "helmet" : "leather helmet",
647.  					 hurt, FALSE))
648.  			continue;
649.  		break;
650.  	    case 1:
651.  		if (uarmc) break;
652.  		/* Note the difference between break and continue;
653.  		 * break means it was hit and didn't rust; continue
654.  		 * means it wasn't a target and though it didn't rust
655.  		 * something else did.
656.  		 */
657.  		if (getbronze)
658.  		    (void)rust_dmg(uarm, "bronze armor", 3, TRUE);
659.  		else if (uarm)
660.  		    (void)rust_dmg(uarm, xname(uarm), hurt, TRUE);
661.  		break;
662.  	    case 2:
663.  		if (!rust_dmg(uarms, rusting ? "shield" : "wooden shield",
664.  					 hurt, FALSE))
665.  			continue;
666.  		break;
667.  	    case 3:
668.  		if (!rust_dmg(uarmg, rusting ? "metal gauntlets" : "gloves",
669.  					 hurt, FALSE))
670.  			continue;
671.  		break;
672.  	    case 4:
673.  		if (!rust_dmg(uarmf, rusting ? "metal boots" : "boots",
674.  					 hurt, FALSE))
675.  			continue;
676.  		break;
677.  	    }
678.  	    break; /* Out of while loop */
679.  	}
680.  }
681.  
682.  #endif /* OVLB */
683.  #ifdef OVL1
684.  
685.  STATIC_OVL boolean
686.  diseasemu(mdat)
687.  struct permonst *mdat;
688.  {
689.  	if (defends(AD_DISE,uwep)
690.  #ifdef POLYSELF
691.  			|| u.usym == S_FUNGUS
692.  #endif
693.  						) {
694.  		You("feel a slight illness.");
695.  		return FALSE;
696.  	} else {
697.  		if (!Sick) You("feel very sick.");
698.  		exercise(A_CON, FALSE);
699.  		make_sick(Sick + (long)rn1(25-ACURR(A_CON),15),FALSE);
700.  		u.usick_cause = mdat->mname;
701.  		return TRUE;
702.  	}
703.  }
704.  
705.  /*
706.   * hitmu: monster hits you
707.   *	  returns 2 if monster dies (e.g. "yellow light"), 1 otherwise
708.   *	  3 if the monster lives but teleported/paralyzed, so it can't keep
709.   *	       attacking you
710.   */
711.  STATIC_OVL int
712.  hitmu(mtmp, mattk)
713.  	register struct monst *mtmp;
714.  	register struct attack  *mattk;
715.  {
716.  	register struct permonst *mdat = mtmp->data;
717.  	register int ctmp, ptmp;
718.  	int dmg, armpro;
719.  	char	 buf[BUFSZ];
720.  #ifdef POLYSELF
721.  	struct permonst *olduasmon = uasmon;
722.  	int res;
723.  #endif
724.  
725.  /*	If the monster is undetected & hits you.  You should know where
726.   *	the attack came from.
727.   */
728.  	if(mtmp->mundetected && hides_under(mdat)) {
729.  	    mtmp->mundetected = 0;
730.  	    if(!(Blind ? Telepat : (HTelepat & (WORN_HELMET|WORN_AMUL)))) {
731.  		register struct obj *obj;
732.  
733.  		if(OBJ_AT(mtmp->mx, mtmp->my)) {
734.  		    if((obj = level.objects[mtmp->mx][mtmp->my]) != 0)
735.  			pline("%s was hidden under %s!",
736.  				  Amonnam(mtmp), doname(obj));
737.  		}
738.  		newsym(mtmp->mx, mtmp->my);
739.  	    }
740.  	}
741.  
742.  /*	First determine the base damage done */
743.  	dmg = d((int)mattk->damn, (int)mattk->damd);
744.  	if(is_undead(mdat) && midnight())
745.  		dmg += d((int)mattk->damn, (int)mattk->damd); /* extra damage */
746.  
747.  /*	Next a cancellation factor	*/
748.  /*	Use ctmp when the cancellation factor takes into account certain
749.   *	armor's special magic protection.  Otherwise just use !mtmp->mcan.
750.   */
751.  	armpro = 0;
752.  	if (uarm && armpro < objects[uarm->otyp].a_can)
753.  		armpro = objects[uarm->otyp].a_can;
754.  	if (uarmc && armpro < objects[uarmc->otyp].a_can)
755.  		armpro = objects[uarmc->otyp].a_can;
756.  	ctmp = !mtmp->mcan && ((rn2(3) >= armpro) || !rn2(50));
757.  
758.  /*	Now, adjust damages via resistances or specific attacks */
759.  	switch(mattk->adtyp) {
760.  	    case AD_PHYS:
761.  		if(mattk->aatyp == AT_HUGS
762.  #ifdef POLYSELF
763.  					   && !sticks(uasmon)
764.  #endif
765.  								) {
766.  		    if(!u.ustuck && rn2(2)) {
767.  			u.ustuck = mtmp;
768.  			pline("%s grabs you!", Monnam(mtmp));
769.  		    } else if(u.ustuck == mtmp) {
770.  		        exercise(A_STR, FALSE);
771.  			You("are being %s.",
772.  			      (mtmp->data == &mons[PM_ROPE_GOLEM])
773.  			      ? "choked" : "crushed");
774.  		    }
775.  		} else {			  /* hand to hand weapon */
776.  		    if(mattk->aatyp == AT_WEAP && otmp) {
777.  			dmg += dmgval(otmp, uasmon);
778.  			if (dmg <= 0) dmg = 1;
779.  			if (!(otmp->oartifact &&
780.  				artifact_hit(mtmp, &youmonst, otmp, &dmg,dieroll)))
781.  			     hitmsg(mtmp, mattk);
782.  #ifdef POLYSELF
783.  			if (u.mh > 1 && u.mh > ((u.uac>0) ? dmg : dmg+u.uac) &&
784.  					(u.umonnum==PM_BLACK_PUDDING
785.  					|| u.umonnum==PM_BROWN_PUDDING)) {
786.  			    /* This redundancy necessary because you have to
787.  			     * take the damage _before_ being cloned.
788.  			     */
789.  			    if (u.uac < 0) dmg += u.uac;
790.  			    if (dmg < 1) dmg = 1;
791.  			    if (dmg > 1) exercise(A_STR, FALSE);
792.  			    u.mh -= dmg;
793.  			    flags.botl = 1;
794.  			    dmg = 0;
795.  			    if(cloneu())
796.  			    You("divide as %s hits you!",mon_nam(mtmp));
797.  			}
798.  			urustm(mtmp, otmp);
799.  #endif
800.  		    } else
801.  			hitmsg(mtmp, mattk);
802.  		}
803.  		break;
804.  	    case AD_DISE:
805.  		hitmsg(mtmp, mattk);
806.  		if (!diseasemu(mdat)) dmg = 0;
807.  		break;
808.  	    case AD_FIRE:
809.  		hitmsg(mtmp, mattk);
810.  		if(ctmp) {
811.  		    pline("You're on fire!");
812.  		    if (Fire_resistance) {
813.  			pline("The fire doesn't feel hot!");
814.  			dmg = 0;
815.  		    }
816.  		    if((int) mtmp->m_lev > rn2(20))
817.  			destroy_item(SCROLL_CLASS, AD_FIRE);
818.  		    if((int) mtmp->m_lev > rn2(20))
819.  			destroy_item(POTION_CLASS, AD_FIRE);
820.  		    if((int) mtmp->m_lev > rn2(25))
821.  			destroy_item(SPBOOK_CLASS, AD_FIRE);
822.  		} else dmg = 0;
823.  		break;
824.  	    case AD_COLD:
825.  		hitmsg(mtmp, mattk);
826.  		if(ctmp) {
827.  		    pline("You're covered in frost!");
828.  		    if (Cold_resistance) {
829.  			pline("The frost doesn't seem cold!");
830.  			dmg = 0;
831.  		    }
832.  		    if((int) mtmp->m_lev > rn2(20))
833.  			destroy_item(POTION_CLASS, AD_COLD);
834.  		} else dmg = 0;
835.  		break;
836.  	    case AD_ELEC:
837.  		hitmsg(mtmp, mattk);
838.  		if(ctmp) {
839.  		    You("get zapped!");
840.  		    if (Shock_resistance) {
841.  			pline("The zap doesn't shock you!");
842.  			dmg = 0;
843.  		    }
844.  		    if((int) mtmp->m_lev > rn2(20))
845.  			destroy_item(WAND_CLASS, AD_ELEC);
846.  		    if((int) mtmp->m_lev > rn2(20))
847.  			destroy_item(RING_CLASS, AD_ELEC);
848.  		} else dmg = 0;
849.  		break;
850.  	    case AD_SLEE:
851.  		hitmsg(mtmp, mattk);
852.  		if(ctmp && multi >= 0 && !rn2(5)) {
853.  		    if (Sleep_resistance) break;
854.  		    nomul(-rnd(10));
855.  		    u.usleep = 1;
856.  		    nomovemsg = "You wake up.";
857.  		    if (Blind)	You("are put to sleep!");
858.  		    else	You("are put to sleep by %s!",mon_nam(mtmp));
859.  		}
860.  		break;
861.  	    case AD_DRST:
862.  		ptmp = A_STR;
863.  		goto dopois;
864.  	    case AD_DRDX:
865.  		ptmp = A_DEX;
866.  		goto dopois;
867.  	    case AD_DRCO:
868.  		ptmp = A_CON;
869.  dopois:
870.  		hitmsg(mtmp, mattk);
871.  		if(ctmp && !rn2(8)) {
872.  			Sprintf(buf, "%s %s",
873.  				!(canseemon(mtmp) || sensemon(mtmp)) ? "Its" :
874.  				Hallucination ? s_suffix(rndmonnam()) : 
875.  				                s_suffix(mdat->mname),
876.  				(mattk->aatyp == AT_BITE) ? "bite" : "sting");
877.  			poisoned(buf, ptmp, mdat->mname, 30);
878.  		}
879.  		break;
880.  	    case AD_DRIN:
881.  		hitmsg(mtmp, mattk);
882.  		if (defends(AD_DRIN, uwep)
883.  #ifdef POLYSELF
884.  					|| !has_head(uasmon)
885.  #endif
886.  								) {
887.  		    You("don't seem harmed.");
888.  		    break;
889.  		}
890.  		if (uarmh && rn2(8)) {
891.  		    Your("helmet blocks the attack to your head.");
892.  		    break;
893.  		}
894.  		if (Half_physical_damage) dmg = (dmg+1) / 2;
895.  		losehp(dmg, mon_nam(mtmp), KILLED_BY_AN);
896.  		Your("brain is eaten!");
897.  		/* No such thing as mindless players... */
898.  		if (ABASE(A_INT) <= ATTRMIN(A_INT)) {
899.  		    int lifesaved = 0;
900.  		    while(1) {
901.  			if (lifesaved)
902.  			    pline("Unfortunately your brain is still gone.");
903.  			else
904.  			    Your("last thought fades away.");
905.  			killer = "brainlessness";
906.  			killer_format = KILLED_BY;
907.  			done(DIED);
908.  			lifesaved = 1;
909.  #ifdef WIZARD
910.  			if (wizard) break;
911.  #endif
912.  		    }
913.  		}
914.  		(void) adjattrib(A_INT, -rnd(2), FALSE);
915.  		exercise(A_WIS, FALSE);
916.  		break;
917.  	    case AD_PLYS:
918.  		hitmsg(mtmp, mattk);
919.  		if(ctmp && multi >= 0 && !rn2(3)) {
920.  		    if (Blind)	You("are frozen!");
921.  		    else	You("are frozen by %s!", mon_nam(mtmp));
922.  		    nomul(-rnd(10));
923.  		    exercise(A_DEX, FALSE);
924.  		}
925.  		break;
926.  	    case AD_DRLI:
927.  		hitmsg(mtmp, mattk);
928.  		if (ctmp && !rn2(3)
929.  #ifdef POLYSELF
930.  		    && !resists_drli(uasmon)
931.  #endif
932.  		    && !defends(AD_DRLI, uwep)
933.  		    ) losexp();
934.  		break;
935.  	    case AD_LEGS:
936.  		{ register long side = rn2(2) ? RIGHT_SIDE : LEFT_SIDE;
937.  		  if (mtmp->mcan) {
938.  		    pline("%s nuzzles against your %s %s!", Monnam(mtmp),
939.  			  (side == RIGHT_SIDE) ? "right" : "left",
940.  			  body_part(LEG));
941.  		  } else {
942.  		    if (uarmf) {
943.  			pline("%s scratches your %s boot!", Monnam(mtmp),
944.  				(side == RIGHT_SIDE) ? "right" : "left");
945.  			break;
946.  		    }
947.  		    pline("%s pricks your %s %s!", Monnam(mtmp),
948.  			  (side == RIGHT_SIDE) ? "right" : "left",
949.  			  body_part(LEG));
950.  		    set_wounded_legs(side, rnd(60-ACURR(A_DEX)));
951.  		    exercise(A_STR, FALSE);
952.  		    exercise(A_DEX, FALSE);
953.  		  }
954.  		  break;
955.  		}
956.  	    case AD_STON:	/* at present only a cockatrice */
957.  		hitmsg(mtmp, mattk);
958.  		if(!rn2(3) && !Stoned) {
959.  		    if (mtmp->mcan) {
960.  			if (flags.soundok)
961.  			    You("hear a cough from %s!", mon_nam(mtmp));
962.  		    } else {
963.  			if (flags.soundok)
964.  			    You("hear %s hissing!", s_suffix(mon_nam(mtmp)));
965.  			if((!rn2(10) ||
966.  			    (flags.moonphase == NEW_MOON && !have_lizard()))
967.  #ifdef POLYSELF
968.  			    && !resists_ston(uasmon)
969.  			    && !(poly_when_stoned(uasmon) &&
970.  				 polymon(PM_STONE_GOLEM))
971.  #endif
972.  			    ) {
973.  				Stoned = 5;
974.  				return(1);
975.  				/* You("turn to stone..."); */
976.  				/* done_in_by(mtmp); */
977.  			}
978.  		    }
979.  		}
980.  		break;
981.  	    case AD_STCK:
982.  		hitmsg(mtmp, mattk);
983.  		if(ctmp && !u.ustuck
984.  #ifdef POLYSELF
985.  				     && !sticks(uasmon)
986.  #endif
987.  							) u.ustuck = mtmp;
988.  		break;
989.  	    case AD_WRAP:
990.  		if(ctmp
991.  #ifdef POLYSELF
992.  			&& !sticks(uasmon)
993.  #endif
994.  					  ) {
995.  		    if(!u.ustuck && !rn2(10)) {
996.  			pline("%s swings itself around you!", Monnam(mtmp));
997.  			u.ustuck = mtmp;
998.  		    } else if(u.ustuck == mtmp) {
999.  			if (is_pool(mtmp->mx,mtmp->my)
1000. #ifdef POLYSELF
1001. 			    && !is_swimmer(uasmon)
1002. #endif
1003. 			    && !Magical_breathing
1004. 			   ) {
1005. 			    pline("%s drowns you....", Monnam(mtmp));
1006. 			    done(DROWNING);
1007. 			} else if(mattk->aatyp == AT_HUGS)
1008. 			    You("are being crushed.");
1009. 		    } else {
1010. 			dmg = 0;
1011. 			if(flags.verbose)
1012. 			    pline("%s brushes against your %s.", Monnam(mtmp),
1013. 				   body_part(LEG));
1014. 		    }
1015. 		} else dmg = 0;
1016. 		break;
1017. 	    case AD_WERE:
1018. 		hitmsg(mtmp, mattk);
1019. #ifdef POLYSELF
1020. 		if (ctmp && !rn2(4) && u.ulycn == -1
1021. 		    && !Protection_from_shape_changers
1022. 		    && !defends(AD_WERE,uwep)) {
1023. 		    You("feel feverish.");
1024. 		    exercise(A_CON, FALSE);
1025. 		    u.ulycn = monsndx(mdat);
1026. 		}
1027. #endif
1028. 		break;
1029. 	    case AD_SGLD:
1030. 		hitmsg(mtmp, mattk);
1031. #ifdef POLYSELF
1032. 		if (u.usym == mdat->mlet) break;
1033. #endif
1034. 		if(!mtmp->mcan) stealgold(mtmp);
1035. 		break;
1036. 
1037. 	    case AD_SITM:	/* for now these are the same */
1038. 	    case AD_SEDU:
1039. #ifdef POLYSELF
1040. 		if (dmgtype(uasmon, AD_SEDU)
1041. #  ifdef SEDUCE
1042. 			|| dmgtype(uasmon, AD_SSEX)
1043. #  endif
1044. 						) {
1045. 			if (mtmp->minvent)
1046. 	pline("%s brags about the goods some dungeon explorer provided.",
1047. 	Monnam(mtmp));
1048. 			else
1049. 	pline("%s makes some remarks about how difficult theft is lately.",
1050. 	Monnam(mtmp));
1051. 			rloc(mtmp);
1052. 			return 3;
1053. 		} else
1054. #endif
1055. 		if(mtmp->mcan) {
1056. 		    if (!Blind) {
1057. 			pline("%s tries to %s you, but you seem %s.",
1058. 			    Adjmonnam(mtmp, "plain"),
1059. 			    flags.female ? "charm" : "seduce",
1060. 			    flags.female ? "unaffected" : "uninterested");
1061. 		    }
1062. 		    if(rn2(3)) {
1063. 			rloc(mtmp);
1064. 			return 3;
1065. 		    }
1066. 		} else {
1067. 		    switch (steal(mtmp)) {
1068. 		      case -1:
1069. 			return 2;
1070. 		      case 0:
1071. 			break;
1072. 		      default:
1073. 			rloc(mtmp);
1074. 			mtmp->mflee = 1;
1075. 			return 3;
1076. 		    }
1077. 		}
1078. 		break;
1079. #ifdef SEDUCE
1080. 	    case AD_SSEX:
1081. 		if(could_seduce(mtmp, &youmonst, mattk) == 1
1082. 			&& !mtmp->mcan)
1083. 		    if (doseduce(mtmp))
1084. 			return 3;
1085. 		break;
1086. #endif
1087. 	    case AD_SAMU:
1088. 		hitmsg(mtmp, mattk);
1089. 		/* when the Wiz hits, 1/20 steals the amulet */
1090. 		if (!u.uhave.amulet) break;
1091. 		if (!rn2(20)) stealamulet(mtmp);
1092. 		break;
1093. 
1094. 	    case AD_TLPT:
1095. 		hitmsg(mtmp, mattk);
1096. 		if(ctmp) {
1097. 		    if(flags.verbose)
1098. 			Your("position suddenly seems very uncertain!");
1099. 		    tele();
1100. 		}
1101. 		break;
1102. 	    case AD_RUST:
1103. 		hitmsg(mtmp, mattk);
1104. 		if (mtmp->mcan) break;
1105. #if defined(POLYSELF)
1106. 		if (u.umonnum == PM_IRON_GOLEM) {
1107. 			You("rust!");
1108. 			rehumanize();
1109. 			break;
1110. 		}
1111. #endif
1112. 		hurtarmor(mdat, AD_RUST);
1113. 		break;
1114. 	    case AD_DCAY:
1115. 		hitmsg(mtmp, mattk);
1116. 		if (mtmp->mcan) break;
1117. #if defined(POLYSELF)
1118. 		if (u.umonnum == PM_WOOD_GOLEM ||
1119. 		    u.umonnum == PM_LEATHER_GOLEM) {
1120. 			You("rot!");
1121. 			rehumanize();
1122. 			break;
1123. 		}
1124. #endif
1125. 		hurtarmor(mdat, AD_DCAY);
1126. 		break;
1127. 	    case AD_HEAL:
1128. 		if(!uwep
1129. #ifdef TOURIST
1130. 		   && !uarmu
1131. #endif
1132. 		   && !uarm && !uarmh && !uarms && !uarmg && !uarmc && !uarmf) {
1133. 		    pline("%s hits!  (I hope you don't mind.)", Monnam(mtmp));
1134. #ifdef POLYSELF
1135. 			if (u.mtimedone) {
1136. 				u.mh += rnd(7);
1137. 				if(!rn2(7)) u.mhmax++;
1138. 				if(u.mh > u.mhmax) u.mh = u.mhmax;
1139. 				if(u.mh == u.mhmax && !rn2(50)) mongone(mtmp);
1140. 			} else {
1141. #endif
1142. 				u.uhp += rnd(7);
1143. 				if(!rn2(7)) u.uhpmax++;
1144. 				if(u.uhp > u.uhpmax) u.uhp = u.uhpmax;
1145. 				if(u.uhp == u.uhpmax && !rn2(50)) mongone(mtmp);
1146. #ifdef POLYSELF
1147. 			}
1148. #endif
1149. 		        exercise(A_STR, TRUE);
1150. 		        exercise(A_CON, TRUE);
1151. 			flags.botl = 1;
1152. 			if(!rn2(50)) rloc(mtmp);
1153. 			dmg = 0;
1154. 		} else
1155. 		    if(pl_character[0] == 'H') {
1156. 			    if (flags.soundok && !(moves % 5))
1157. 				verbalize("Doc, I can't help you unless you cooperate.");
1158. 			    dmg = 0;
1159. 		    } else hitmsg(mtmp, mattk);
1160. 		break;
1161. 	    case AD_CURS:
1162. 		hitmsg(mtmp, mattk);
1163. 		if(!night() && mdat == &mons[PM_GREMLIN]) break;
1164. 		if(!mtmp->mcan && !rn2(10)) {
1165. 		    if (flags.soundok)
1166. 			if (Blind) You("hear laughter.");
1167. 			else       pline("%s chuckles.", Monnam(mtmp));
1168. #ifdef POLYSELF
1169. 		    if (u.umonnum == PM_CLAY_GOLEM) {
1170. 			pline("Some writing vanishes from your head!");
1171. 			rehumanize();
1172. 			break;
1173. 		    }
1174. #endif
1175. 		    attrcurse();
1176. 		}
1177. 		break;
1178. 	    case AD_STUN:
1179. 		hitmsg(mtmp, mattk);
1180. 		if(!mtmp->mcan && !rn2(4)) {
1181. 		    make_stunned(HStun + dmg, TRUE);
1182. 		    dmg /= 2;
1183. 		}
1184. 		break;
1185. 	    case AD_ACID:
1186. 		hitmsg(mtmp, mattk);
1187. 		if(!mtmp->mcan && !rn2(3))
1188. #ifdef POLYSELF
1189. 		    if (resists_acid(uasmon)) {
1190. 			pline("You're covered in acid, but it seems harmless.");
1191. 			dmg = 0;
1192. 		    } else
1193. #endif
1194. 		      {
1195. 			pline("You're covered in acid!	It burns!");
1196. 			exercise(A_STR, FALSE);
1197. 		      }
1198. 		else		dmg = 0;
1199. 		break;
1200. 	    case AD_SLOW:
1201. 		hitmsg(mtmp, mattk);
1202. 		if(!ctmp && (Fast & (INTRINSIC|TIMEOUT)) &&
1203. 					!defends(AD_SLOW, uwep) && !rn2(4)) {
1204. 		    Fast &= ~(INTRINSIC|TIMEOUT);
1205. 		    You("feel yourself slowing down.");
1206. 		    exercise(A_DEX, FALSE);
1207. 		}
1208. 		break;
1209. 	    case AD_DREN:
1210. 		hitmsg(mtmp, mattk);
1211. 		if(!ctmp && !rn2(4)) drain_en(dmg);
1212. 		dmg = 0;
1213. 		break;
1214. 	    case AD_CONF:
1215. 		hitmsg(mtmp, mattk);
1216. 		if(!mtmp->mcan && !rn2(4) && !mtmp->mspec_used) {
1217. 		    mtmp->mspec_used = mtmp->mspec_used + (dmg + rn2(6));
1218. 		    if(Confusion)
1219. 			 You("are getting even more confused.");
1220. 		    else You("are getting confused.");
1221. 		    make_confused(HConfusion + dmg, FALSE);
1222. 		}
1223. 		/* fall through to next case */
1224. 	    case AD_DETH:
1225. 		pline("%s reaches out with its deadly touch.", Monnam(mtmp));
1226. #ifdef POLYSELF
1227. 		if (is_undead(uasmon)) {
1228. 		    /* Still does normal damage */
1229. 		    pline("Was that the touch of death?");
1230. 		    break;
1231. 		}
1232. #endif
1233. 		if(!Antimagic && rn2(20) > 16)  {
1234. 		    killer_format = KILLED_BY_AN;
1235. 		    killer = "touch of death";
1236. 		    done(DIED);
1237. 		} else {
1238. 		    if(!rn2(5)) {
1239. 			if(Antimagic) shieldeff(u.ux, u.uy);
1240. 			pline("Lucky for you, it didn't work!");
1241. 			dmg = 0;
1242. 		    } else You("feel your life force draining away...");
1243. 		}
1244. 		break;
1245. 	    case AD_PEST:
1246. 		pline("%s reaches out, and you feel fever and chills.",
1247. 			Monnam(mtmp));
1248. 		(void) diseasemu(mdat); /* plus the normal damage */
1249. 		break;
1250. 	    case AD_FAMN:
1251. 		pline("%s reaches out, and your body shrivels.",
1252. 			Monnam(mtmp));
1253. 		exercise(A_CON, FALSE);
1254. 		morehungry(rn1(40,40));
1255. 		/* plus the normal damage */
1256. 		break;
1257. 	    default:	dmg = 0;
1258. 			break;
1259. 	}
1260. 	if(u.uhp < 1) done_in_by(mtmp);
1261. 
1262. /*	Negative armor class reduces damage done instead of fully protecting
1263.  *	against hits.
1264.  */
1265. 	if (dmg && u.uac < 0) {
1266. 		dmg -= rnd(-u.uac);
1267. 		if (dmg < 1) dmg = 1;
1268. 	}
1269. 
1270. 	if(dmg) {
1271. 	    if(Half_physical_damage)
1272. 		dmg = (dmg+1) / 2;
1273. #ifdef MULDGN
1274. 	    else if(pl_character[0] == 'P' && uwep && is_quest_artifact(uwep)
1275. 		    && is_undead(mtmp->data))
1276. 		dmg = (dmg+1) / 2;
1277. #endif
1278. 	    mdamageu(mtmp, dmg);
1279. 	}
1280. 
1281. #ifdef POLYSELF
1282. 	res = passiveum(olduasmon, mtmp, mattk);
1283. 	stop_occupation();
1284. 	return res;
1285. #else
1286. 	stop_occupation();
1287. 	return 1;
1288. #endif
1289. }
1290. 
1291. #endif /* OVL1 */
1292. #ifdef OVLB
1293. 
1294. STATIC_OVL int
1295. gulpmu(mtmp, mattk)	/* monster swallows you, or damage if u.uswallow */
1296. 	register struct monst *mtmp;
1297. 	register struct attack  *mattk;
1298. {
1299. 	struct trap *t = t_at(u.ux, u.uy);
1300. 	int	tmp = d((int)mattk->damn, (int)mattk->damd);
1301. 	int	tim_tmp;
1302. 	register struct obj *otmp2;
1303. #ifdef WALKIES
1304. 	int	i;
1305. #endif
1306. 
1307. 	if(!u.uswallow) {	/* swallows you */
1308. #ifdef POLYSELF
1309. 		if (uasmon->msize >= MZ_HUGE) return(0);
1310. #endif
1311. 		if ((t && ((t->ttyp == PIT) || (t->ttyp == SPIKED_PIT))) &&
1312. 		    sobj_at(BOULDER, u.ux, u.uy))
1313. 			return(0);	
1314. 		if (Punished) unplacebc();	/* ball&chain go away */
1315. 		remove_monster(mtmp->mx, mtmp->my);
1316. 		place_monster(mtmp, u.ux, u.uy);
1317. 		u.ustuck = mtmp;
1318. 		newsym(mtmp->mx,mtmp->my);
1319. 		pline("%s engulfs you!", Monnam(mtmp));
1320. 		stop_occupation();
1321. 		if (u.utrap) {
1322. 			You("are released from the %s!",
1323. 				u.utraptype==TT_WEB ? "web" : "trap");
1324. 			u.utrap = 0;
1325. 		}
1326. #ifdef WALKIES
1327. 		if((i = number_leashed()) > 0) {
1328. 			pline("The leash%s snap%s loose...",
1329. 					(i > 1) ? "es" : "",
1330. 					(i > 1) ? "" : "s");
1331. 			unleash_all();
1332. 		}
1333. #endif
1334. #ifdef POLYSELF
1335. 		if (u.umonnum==PM_COCKATRICE && !resists_ston(mtmp->data)) {
1336. 			pline("%s turns to stone!", Monnam(mtmp));
1337. 			stoned = 1;
1338. 			xkilled(mtmp, 0);
1339. 			return 2;
1340. 		}
1341. #endif
1342. 		display_nhwindow(WIN_MESSAGE, FALSE);
1343. 		vision_recalc(2);	/* hero can't see anything */
1344. 		u.uswallow = 1;
1345. 		/*assume that u.uswldtim always set >=0*/
1346. 		u.uswldtim = (tim_tmp =
1347. 			(-u.uac + 10 + rnd(25 - (int)mtmp->m_lev)) >> 1) > 0 ?
1348. 			    tim_tmp : 0;
1349. 		swallowed(1);
1350. 		for(otmp2 = invent; otmp2; otmp2 = otmp2->nobj) {
1351. 			(void) snuff_lit(otmp2);
1352. 		}
1353. 	} else {
1354. 
1355. 	    if(mtmp != u.ustuck) return(0);
1356. 	    switch(mattk->adtyp) {
1357. 
1358. 		case AD_DGST:
1359. 		    if(!u.uswldtim) {	/* a3 *//*no cf unsigned <=0*/
1360. 			pline("%s totally digests you!", Monnam(mtmp));
1361. 			tmp = u.uhp;
1362. 		    } else {
1363. 			pline("%s digests you!", Monnam(mtmp));
1364. 		        exercise(A_STR, FALSE);
1365. 		    }
1366. 		    break;
1367. 		case AD_PHYS:
1368. 		    You("are pummeled with debris!");
1369. 		    exercise(A_STR, FALSE);
1370. 		    break;
1371. 		case AD_ACID:
1372. #ifdef POLYSELF
1373. 		    if (resists_acid(uasmon)) {
1374. 			You("are covered with a seemingly harmless goo.");
1375. 			tmp = 0;
1376. 		    } else
1377. #endif
1378. 		    {
1379. 		      if (Hallucination) pline("Ouch!  You've been slimed!");
1380. 		      else You("are covered in slime!  It burns!");
1381. 		      exercise(A_STR, FALSE);
1382. 		    }
1383. 		    break;
1384. 		case AD_BLND:
1385. 		    if (!defends(AD_BLND, uwep)) {
1386. 			if(!Blind) {
1387. 			    You("can't see in here!");
1388. 			    make_blinded((long)tmp,FALSE);
1389. 			} else
1390. 			    /* keep him blind until disgorged */
1391. 			    make_blinded(Blinded+1,FALSE);
1392. 		    }
1393. 		    tmp = 0;
1394. 		    break;
1395. 		case AD_ELEC:
1396. 		    if(!mtmp->mcan && rn2(2)) {
1397. 			pline("The air around you crackles with electricity.");
1398. 			if (Shock_resistance) {
1399. 				shieldeff(u.ux, u.uy);
1400. 				You("seem unhurt.");
1401. #if defined(POLYSELF)
1402. 				ugolemeffects(AD_ELEC,tmp);
1403. #endif
1404. 				tmp = 0;
1405. 			}
1406. 		    } else tmp = 0;
1407. 		    break;
1408. 		case AD_COLD:
1409. 		    if(!mtmp->mcan && rn2(2)) {
1410. 			if (Cold_resistance) {
1411. 				shieldeff(u.ux, u.uy);
1412. 				You("feel mildly chilly.");
1413. #if defined(POLYSELF)
1414. 				ugolemeffects(AD_COLD,tmp);
1415. #endif
1416. 				tmp = 0;
1417. 			} else You("are freezing to death!");
1418. 		    } else tmp = 0;
1419. 		    break;
1420. 		case AD_FIRE:
1421. 		    if(!mtmp->mcan && rn2(2)) {
1422. 			if (Fire_resistance) {
1423. 				shieldeff(u.ux, u.uy);
1424. 				You("feel mildly hot.");
1425. #if defined(POLYSELF)
1426. 				ugolemeffects(AD_FIRE,tmp);
1427. #endif
1428. 				tmp = 0;
1429. 			} else You("are burning to a crisp!");
1430. 		    } else tmp = 0;
1431. 		    break;
1432. 		case AD_DISE:
1433. 		    if (!diseasemu(mtmp->data)) tmp = 0;
1434. 		    break;
1435. 		default:	tmp = 0;
1436. 				break;
1437. 	    }
1438. 	}
1439. 
1440. 	if(Half_physical_damage) tmp = (tmp+1) / 2;
1441. 
1442. 	mdamageu(mtmp, tmp);
1443. 	if(tmp) stop_occupation();
1444. 	if(u.uswldtim) --u.uswldtim;
1445. 	if(!u.uswldtim
1446. #ifdef POLYSELF
1447. 	    || u.umonnum==PM_COCKATRICE
1448. 	    || uasmon->msize >= MZ_HUGE
1449. #endif
1450. 	    ) {
1451. #ifdef POLYSELF
1452. 	    if (u.umonnum == PM_COCKATRICE) {
1453. 		pline("%s very hurriedly %s you!", Monnam(mtmp), 
1454. 		       is_animal(mtmp->data)? "regurgitates" : "expels");
1455. 		u.uswldtim = 0;
1456. 	    } else {
1457. #endif
1458. 		You("get %s!", 
1459. 		    is_animal(mtmp->data)? "regurgitated" : "expelled");
1460. 		if(flags.verbose && is_animal(mtmp->data))
1461. 			pline("Obviously %s doesn't like your taste.",
1462. 			       mon_nam(mtmp));
1463. #ifdef POLYSELF
1464. 	    }
1465. #endif
1466. 	    expels(mtmp, mtmp->data, FALSE);
1467. 	}
1468. 	return(1);
1469. }
1470. 
1471. STATIC_OVL int
1472. explmu(mtmp, mattk, ufound)	/* monster explodes in your face */
1473. register struct monst *mtmp;
1474. register struct attack  *mattk;
1475. boolean ufound;
1476. {
1477.     if (mtmp->mcan) return(0);
1478. 
1479.     if (!ufound)
1480. 	pline("%s explodes at a spot in thin air!",
1481. 	      canseemon(mtmp) ? Monnam(mtmp) : "It");
1482.     else {
1483. 	register int tmp = d((int)mattk->damn, (int)mattk->damd);
1484. 	register boolean not_affected = defends((int)mattk->adtyp, uwep);
1485. 
1486. 	hitmsg(mtmp, mattk);
1487. 
1488. 	switch (mattk->adtyp) {
1489. 	    case AD_COLD:
1490. 		not_affected |= Cold_resistance;
1491. 
1492. 		if (!not_affected) {
1493. 		    if (flags.verbose) You("get blasted!");
1494. 		    if (ACURR(A_DEX) > rnd(20)) {
1495. 			You("duck the blast...");
1496. 			tmp = (tmp+1) / 2;
1497. 		    }
1498. 		    if (Half_physical_damage) tmp = (tmp+1) / 2;
1499. 		    mdamageu(mtmp, tmp);
1500. 		}
1501. 		break;
1502. 
1503. 	    case AD_BLND:
1504. 		not_affected |=
1505. #ifdef POLYSELF
1506. 			(u.umonnum == PM_YELLOW_LIGHT) ||
1507. #endif
1508. 			Blind;
1509. 		if (!not_affected) {
1510. 		    if (mon_visible(mtmp)) {
1511. 			You("are blinded by a blast of light!");
1512. 			make_blinded((long)tmp, FALSE);
1513. 		    } else
1514. 			You("get the impression it was not terribly bright.");
1515. 		}
1516. 		break;
1517. 
1518. 	    default:
1519. 		break;
1520. 	}
1521. 	if (not_affected) {
1522. 	    You("seem unaffected by it.");
1523. #if defined(POLYSELF)
1524. 	    ugolemeffects((int)mattk->adtyp, tmp);
1525. #endif
1526. 	}
1527.     }
1528.     mondead(mtmp);
1529.     return(2);	/* it dies */
1530. }
1531. 
1532. STATIC_OVL int
1533. gazemu(mtmp, mattk)	/* monster gazes at you */
1534. 	register struct monst *mtmp;
1535. 	register struct attack  *mattk;
1536. {
1537. 	switch(mattk->adtyp) {
1538. 	    case AD_STON:
1539. 		if (mtmp->mcan) {
1540. 		    You("notice that %s isn't all that ugly.",mon_nam(mtmp));
1541. 		   break;
1542. 		}
1543. 		if (canseemon(mtmp)) {
1544. 			You("look upon %s.", mon_nam(mtmp));
1545. # ifdef POLYSELF
1546. 			if (resists_ston(uasmon)) {
1547. 				pline("So what?");
1548. 				break;
1549. 			}
1550. 			if(poly_when_stoned(uasmon) && polymon(PM_STONE_GOLEM))
1551. 			    break;
1552. # endif
1553. 			You("turn to stone...");
1554. 			killer_format = KILLED_BY_AN;
1555. 			killer = mons[PM_MEDUSA].mname;
1556. 			done(STONING);
1557. 	    	}
1558. 		break;
1559. 	    case AD_CONF:
1560. 		if(!mtmp->mcan && canseemon(mtmp) && mtmp->mcansee && 
1561. 					!mtmp->mspec_used && rn2(5)) {
1562. 		    int conf = d(3,4);
1563. 
1564. 		    mtmp->mspec_used = mtmp->mspec_used + (conf + rn2(6));
1565. 		    if(!Confusion)
1566. 			pline("%s gaze confuses you!", 
1567. 			                  s_suffix(Monnam(mtmp)));
1568. 		    else
1569. 			You("are getting more and more confused.");
1570. 		    make_confused(HConfusion + conf, FALSE);
1571. 		}
1572. 		break;
1573. 	    case AD_STUN:
1574. 		if(!mtmp->mcan && canseemon(mtmp) && mtmp->mcansee &&
1575. 					!mtmp->mspec_used && rn2(5)) {
1576. 		    int stun = d(2,6);
1577. 
1578. 		    pline("%s stares piercingly at you!", Monnam(mtmp));
1579. 		    mtmp->mspec_used = mtmp->mspec_used + (stun + rn2(6));
1580. 		    make_stunned(HStun + stun, TRUE);
1581. 		}
1582. 		break;
1583. 	    case AD_BLND:
1584. 		if(!mtmp->mcan && canseemon(mtmp) && !defends(AD_BLND, uwep) &&
1585. 		   distu(mtmp->mx,mtmp->my) <= BOLT_LIM*BOLT_LIM) {
1586. 		    int blnd = d((int)mattk->damn, (int)mattk->damd);
1587. 		    You("are blinded by %s radiance!", 
1588. 			              s_suffix(mon_nam(mtmp)));
1589. 		    make_blinded((long)blnd,FALSE);
1590. 		    make_stunned((long)d(1,3),TRUE);
1591. 		}
1592. 		break;
1593. 	    default: impossible("Gaze attack %d?", mattk->adtyp);
1594. 		break;
1595. 	}
1596. 	return(1);
1597. }
1598. 
1599. #endif /* OVLB */
1600. #ifdef OVL1
1601. 
1602. void
1603. mdamageu(mtmp, n)	/* mtmp hits you for n points damage */
1604. 	register struct monst *mtmp;
1605. 	register int n;
1606. {
1607. #ifdef POLYSELF
1608. 	if (u.mtimedone) {
1609. 		u.mh -= n;
1610. 		flags.botl = 1;
1611. 		if (u.mh < 1) rehumanize();
1612. 		return;
1613. 	}
1614. #endif
1615. 	u.uhp -= n;
1616. 	flags.botl = 1;
1617. 	if(u.uhp < 1)
1618. 		done_in_by(mtmp);
1619. }
1620. 
1621. #endif /* OVL1 */
1622. #ifdef OVLB
1623. 
1624. #ifdef POLYSELF
1625. STATIC_OVL void
1626. urustm(mon, obj)
1627. register struct monst *mon;
1628. register struct obj *obj;
1629. {
1630. 	boolean vis = cansee(mon->mx, mon->my);
1631. 
1632. 	if (!mon || !obj) return; /* just in case */
1633. 	if (u.umonnum == PM_RUST_MONSTER && 
1634. 	    is_rustprone(obj) && obj->oeroded < MAX_ERODE) {
1635. 		if (obj->greased || obj->oerodeproof || (obj->blessed && rn2(3))) {
1636. 		    if (vis)
1637. 			pline("Somehow, %s weapon is not affected.",
1638. 						s_suffix(mon_nam(mon)));
1639. 		    if (obj->greased && !rn2(2)) obj->greased = 0;
1640. 		} else {
1641. 		    if (vis)
1642. 			pline("%s %s%s!",
1643. 			        s_suffix(Monnam(mon)), aobjnam(obj, "rust"),
1644. 			        obj->oeroded ? " further" : "");
1645. 		    obj->oeroded++;
1646. 		}
1647. 	}
1648. }
1649. #endif
1650. 
1651. #endif /* OVLB */
1652. #ifdef OVL1
1653. 
1654. int
1655. could_seduce(magr,mdef,mattk)
1656. struct monst *magr, *mdef;
1657. struct attack *mattk;
1658. /* returns 0 if seduction impossible,
1659.  *	   1 if fine,
1660.  *	   2 if wrong gender for nymph */
1661. {
1662. 	register struct permonst *pagr;
1663. 	boolean agrinvis, defperc;
1664. 	xchar genagr, gendef;
1665. 
1666. 	if(magr == &youmonst) {
1667. 		pagr = uasmon;
1668. 		agrinvis = (Invis != 0);
1669. 		genagr = poly_gender();
1670. 	} else {
1671. 		pagr = magr->data;
1672. 		agrinvis = magr->minvis;
1673. 		genagr = gender(magr);
1674. 	}
1675. 	if(mdef == &youmonst) {
1676. 		defperc = (See_invisible != 0);
1677. 		gendef = poly_gender();
1678. 	} else {
1679. 		defperc = perceives(mdef->data);
1680. 		gendef = gender(mdef);
1681. 	}
1682. 
1683. 	if(agrinvis && !defperc
1684. #ifdef SEDUCE
1685. 		&& mattk && mattk->adtyp != AD_SSEX
1686. #endif
1687. 		)
1688. 		return 0;
1689. 
1690. 	if(pagr->mlet != S_NYMPH
1691. 		&& ((pagr != &mons[PM_INCUBUS] && pagr != &mons[PM_SUCCUBUS])
1692. #ifdef SEDUCE
1693. 		    || (mattk && mattk->adtyp != AD_SSEX)
1694. #endif
1695. 		   ))
1696. 		return 0;
1697. 	
1698. 	if(genagr == 1 - gendef)
1699. 		return 1;
1700. 	else
1701. 		return (pagr->mlet == S_NYMPH) ? 2 : 0;
1702. }
1703. 
1704. #endif /* OVL1 */
1705. #ifdef OVLB
1706. 
1707. #ifdef SEDUCE
1708. /* Returns 1 if monster teleported */
1709. int
1710. doseduce(mon)
1711. register struct monst *mon;
1712. {
1713. 	register struct obj *ring;
1714. 	boolean fem = (mon->data == &mons[PM_SUCCUBUS]); /* otherwise incubus */
1715. 	char qbuf[QBUFSZ];
1716. 
1717. 	if (mon->mcan || mon->mspec_used) {
1718.   		pline("%s acts as though %s has got a %sheadache.",
1719.   			Monnam(mon), Blind ? "it" : fem ? "she" : "he",
1720. 			mon->mcan ? "severe " : "");
1721. 		return 0;
1722. 	}
1723. 
1724. 	if (unconscious()) {
1725. 		pline("%s seems dismayed at your lack of response.",
1726. 			Monnam(mon));
1727. 		return 0;
1728. 	}
1729. 
1730. 	if (Blind) pline("It caresses you...");
1731. 	else You("feel very attracted to %s.", mon_nam(mon));
1732. 
1733. 	for(ring = invent; ring; ring = ring->nobj) {
1734. 	    if (ring->otyp != RIN_ADORNMENT) continue;
1735. 	    if (fem) {
1736. 		if (rn2(20) < ACURR(A_CHA)) {
1737. 		    Sprintf(qbuf, "\"That %s looks pretty.  May I have it?\"",
1738. 			xname(ring));
1739. 		    makeknown(RIN_ADORNMENT);
1740. 		    if (yn(qbuf) == 'n') continue;
1741. 		} else pline("%s decides she'd like your %s, and takes it.",
1742. 			Blind ? "She" : Monnam(mon), xname(ring));
1743. 		makeknown(RIN_ADORNMENT);
1744. 		if (ring==uleft || ring==uright) Ring_gone(ring);
1745. 		if (ring==uwep) setuwep((struct obj *)0);
1746. 		freeinv(ring);
1747. 		mpickobj(mon,ring);
1748. 	    } else {
1749. 		char buf[BUFSZ];
1750. 
1751. 		if (uleft && uright && uleft->otyp == RIN_ADORNMENT
1752. 				&& uright->otyp==RIN_ADORNMENT)
1753. 			break;
1754. 		if (ring==uleft || ring==uright) continue;
1755. 		if (rn2(20) < ACURR(A_CHA)) {
1756. 		    Sprintf(qbuf,"\"That %s looks pretty.  Would you wear it for me?\"",
1757. 			xname(ring));
1758. 		    makeknown(RIN_ADORNMENT);
1759. 		    if (yn(qbuf) == 'n') continue;
1760. 		} else {
1761. 		    pline("%s decides you'd look prettier wearing your %s,",
1762. 			Blind ? "He" : Monnam(mon), xname(ring));
1763. 		    pline("and puts it on your finger.");
1764. 		}
1765. 		makeknown(RIN_ADORNMENT);
1766. 		if (!uright) {
1767. 		    pline("%s puts %s on your right hand.",
1768. 			Blind ? "He" : Monnam(mon), the(xname(ring)));
1769. 		    setworn(ring, RIGHT_RING);
1770. 		} else if (!uleft) {
1771. 		    pline("%s puts %s on your left hand.",
1772. 			Blind ? "He" : Monnam(mon), the(xname(ring)));
1773. 		    setworn(ring, LEFT_RING);
1774. 		} else if (uright && uright->otyp != RIN_ADORNMENT) {
1775. 		    Strcpy(buf, xname(uright));
1776. 		    pline("%s replaces your %s with your %s.",
1777. 			Blind ? "He" : Monnam(mon), buf, xname(ring));
1778. 		    Ring_gone(uright);
1779. 		    setworn(ring, RIGHT_RING);
1780. 		} else if (uleft && uleft->otyp != RIN_ADORNMENT) {
1781. 		    Strcpy(buf, xname(uleft));
1782. 		    pline("%s replaces your %s with your %s.",
1783. 			Blind ? "He" : Monnam(mon), buf, xname(ring));
1784. 		    Ring_gone(uleft);
1785. 		    setworn(ring, LEFT_RING);
1786. 		} else impossible("ring replacement");
1787. 		Ring_on(ring);
1788. 	    	prinv(NULL, ring, 0L);
1789. 	    }
1790. 	}
1791. 
1792. 	if (!uarmc && !uarmf && !uarmg && !uarms && !uarmh
1793. #ifdef TOURIST
1794. 								&& !uarmu
1795. #endif
1796. 									)
1797. 		pline("%s murmurs sweet nothings into your ear.",
1798. 			Blind ? (fem ? "She" : "He") : Monnam(mon));
1799. 	else
1800. 		pline("%s murmurs in your ear, while helping you undress.",
1801. 			Blind ? (fem ? "She" : "He") : Monnam(mon));
1802. 	mayberem(uarmc, "cloak");
1803. 	if(!uarmc)
1804. 		mayberem(uarm, "suit");
1805. 	mayberem(uarmf, "boots");
1806. 	if(!uwep || !welded(uwep))
1807. 		mayberem(uarmg, "gloves");
1808. 	mayberem(uarms, "shield");
1809. 	mayberem(uarmh, "helmet");
1810. #ifdef TOURIST
1811. 	if(!uarmc && !uarm)
1812. 		mayberem(uarmu, "shirt");
1813. #endif
1814. 
1815. 	if (uarm || uarmc) {
1816. 		verbalize("You're such a %s; I wish...",
1817. 				flags.female ? "sweet lady" : "nice guy");
1818. 		rloc(mon);
1819. 		return 1;
1820. 	}
1821. 	if (u.ualign.type == A_CHAOTIC && u.ualign.record < ALIGNLIM)
1822. 	    u.ualign.record++;
1823. 
1824. 	/* by this point you have discovered mon's identity, blind or not... */
1825. 	pline("Time stands still while you and %s lie in each other's arms...",
1826. 		mon_nam(mon));
1827. 	if (rn2(35) > ACURR(A_CHA) + ACURR(A_INT)) {
1828. 		/* Don't bother with mspec_used here... it didn't get tired! */
1829. 		pline("%s seems to have enjoyed it more than you...",
1830. 			Monnam(mon));
1831. 		switch (rn2(5)) {
1832. 			case 0: You("feel drained of energy.");
1833. 				u.uen = 0;
1834. 				u.uenmax -= rnd(Half_physical_damage ? 5 : 10);
1835. 			        exercise(A_CON, FALSE);
1836. 				if (u.uenmax < 0) u.uenmax = 0;
1837. 				break;
1838. 			case 1: You("are down in the dumps.");
1839. 				(void) adjattrib(A_CON, -1, TRUE);
1840. 			        exercise(A_CON, FALSE);
1841. 				flags.botl = 1;
1842. 				break;
1843. 			case 2: Your("senses are dulled.");
1844. 				(void) adjattrib(A_WIS, -1, TRUE);
1845. 			        exercise(A_WIS, FALSE);
1846. 				flags.botl = 1;
1847. 				break;
1848. 			case 3:
1849. #ifdef POLYSELF
1850. 				if (resists_drli(uasmon))
1851. 				    You("have a curious feeling...");
1852. 				else {
1853. #endif
1854. 				    You("feel out of shape.");
1855. 				    losexp();
1856. 				    if(u.uhp <= 0) {
1857. 					killer_format = KILLED_BY;
1858. 					killer = "overexertion";
1859. 					done(DIED);
1860. 				    }
1861. #ifdef POLYSELF
1862. 				}
1863. #endif
1864. 				break;
1865. 			case 4: {
1866. 				int tmp;
1867. 				You("feel exhausted.");
1868. 			        exercise(A_STR, FALSE);
1869. 				tmp = rn1(10, 6);
1870. 				if(Half_physical_damage) tmp = (tmp+1) / 2;
1871. 				losehp(tmp, "exhaustion", KILLED_BY);
1872. 				break;
1873. 			}
1874. 		}
1875. 	} else {
1876. 		mon->mspec_used = rnd(100); /* monster is worn out */
1877. 		You("seem to have enjoyed it more than %s...", mon_nam(mon));
1878. 		switch (rn2(5)) {
1879. 			case 0: You("feel raised to your full potential.");
1880. 			        exercise(A_CON, TRUE);
1881. 				u.uen = (u.uenmax += rnd(5));
1882. 				break;
1883. 			case 1: You("feel good enough to do it again.");
1884. 				(void) adjattrib(A_CON, 1, TRUE);
1885. 			        exercise(A_CON, TRUE);
1886. 				flags.botl = 1;
1887. 				break;
1888. 			case 2: You("will always remember %s...", mon_nam(mon));
1889. 				(void) adjattrib(A_WIS, 1, TRUE);
1890. 			        exercise(A_WIS, TRUE);
1891. 				flags.botl = 1;
1892. 				break;
1893. 			case 3: pline("That was a very educational experience.");
1894. 				pluslvl();
1895. 			        exercise(A_WIS, TRUE);
1896. 				break;
1897. 			case 4: You("feel restored to health!");
1898. 				u.uhp = u.uhpmax;
1899. #ifdef POLYSELF
1900. 				if (u.mtimedone) u.mh = u.mhmax;
1901. #endif
1902. 			        exercise(A_STR, TRUE);
1903. 				flags.botl = 1;
1904. 				break;
1905. 		}
1906. 	}
1907. 
1908. 	if (mon->mtame) /* don't charge */ ;
1909. 	else if (rn2(20) < ACURR(A_CHA)) {
1910. 		pline("%s demands that you pay %s, but you refuse...",
1911. 			Monnam(mon), (fem ? "her" : "him"));
1912. 	}
1913. #ifdef POLYSELF
1914. 	else if (u.umonnum == PM_LEPRECHAUN)
1915. 		pline("%s tries to take your money, but fails...",
1916. 				Monnam(mon));
1917. #endif
1918. 	else {
1919. 		long cost;
1920. 
1921. 		if (u.ugold > (long)LARGEST_INT - 10L)
1922. 			cost = (long) rnd(LARGEST_INT) + 500L;
1923. 		else
1924. 			cost = (long) rnd((int)u.ugold + 10) + 500L;
1925. 		if (mon->mpeaceful) {
1926. 			cost /= 5L;
1927. 			if (!cost) cost = 1L;
1928. 		}
1929. 		if (cost > u.ugold) cost = u.ugold;
1930. 		if (!cost) verbalize("It's on the house!");
1931. 		else {
1932. 		    pline("%s takes %ld zorkmid%s for services rendered!",
1933. 			    Monnam(mon), cost, plur(cost));
1934. 		    u.ugold -= cost;
1935. 		    mon->mgold += cost;
1936. 		    flags.botl = 1;
1937. 		}
1938. 	}
1939. 	if (!rn2(25)) mon->mcan = 1; /* monster is worn out */
1940. 	rloc(mon);
1941. 	return 1;
1942. }
1943. 
1944. static void
1945. mayberem(obj, str)
1946. register struct obj *obj;
1947. const char *str;
1948. {
1949. 	char qbuf[QBUFSZ];
1950. 
1951. 	if (!obj || !obj->owornmask) return;
1952. 
1953. 	if (rn2(20) < ACURR(A_CHA)) {
1954. 		Sprintf(qbuf,"\"Shall I remove your %s, %s?\"",
1955. 			str,
1956. 			(!rn2(2) ? "lover" : !rn2(2) ? "dear" : "sweetheart"));
1957. 		if (yn(qbuf) == 'n') return;
1958. 	} else verbalize("Take off your %s; %s.", str,
1959. 			(obj == uarm)  ? "let's get a little closer" :
1960. 			(obj == uarmc || obj == uarms) ? "it's in the way" :
1961. 			(obj == uarmf) ? "let me rub your feet" :
1962. 			(obj == uarmg) ? "they're too clumsy" :
1963. #ifdef TOURIST
1964. 			(obj == uarmu) ? "let me massage you" :
1965. #endif
1966. 			/* obj == uarmh */
1967. 			"let me run my fingers through your hair");
1968. 
1969. 	if (donning(obj)) cancel_don();
1970. 	if (obj == uarm)  (void) Armor_off();
1971. 	else if (obj == uarmc) (void) Cloak_off();
1972. 	else if (obj == uarmf) (void) Boots_off();
1973. 	else if (obj == uarmg) (void) Gloves_off();
1974. 	else if (obj == uarmh) (void) Helmet_off();
1975. 	else setworn((struct obj *)0, obj->owornmask & W_ARMOR);
1976. }
1977. #endif  /* SEDUCE */
1978. 
1979. #endif /* OVLB */
1980. 
1981. #ifdef POLYSELF
1982. 
1983. #ifdef OVL1
1984. 
1985. static int
1986. passiveum(olduasmon,mtmp,mattk)
1987. struct permonst *olduasmon;
1988. register struct monst *mtmp;
1989. register struct attack *mattk;
1990. {
1991. 	register struct permonst *mdat = mtmp->data;
1992. 	int i, tmp;
1993. 
1994. 	for(i = 0; ; i++) {
1995. 	    if(i >= NATTK) return 1;
1996. 	    if(olduasmon->mattk[i].aatyp == AT_NONE) break;
1997. 	}
1998. 	if (olduasmon->mattk[i].damn)
1999. 	    tmp = d((int)olduasmon->mattk[i].damn, 
2000.                                     (int)olduasmon->mattk[i].damd);
2001. 	else if(olduasmon->mattk[i].damd)
2002. 	    tmp = d((int)olduasmon->mlevel+1, (int)olduasmon->mattk[i].damd);
2003. 	else
2004. 	    tmp = 0;
2005. 
2006. 	/* These affect the enemy even if you were "killed" (rehumanized) */
2007. 	switch(olduasmon->mattk[i].adtyp) {
2008. 	    case AD_ACID:
2009. 		if (!rn2(2)) {
2010. 		    pline("%s is splashed by your acid!", Monnam(mtmp));
2011. 		    if(resists_acid(mdat)) {
2012. 			pline("%s is not affected.", Monnam(mtmp));
2013. 			tmp = 0;
2014. 		    }
2015. 		} else tmp = 0;
2016. 		goto assess_dmg;
2017. 	    case AD_STON: /* cockatrice */
2018. 		if (!resists_ston(mdat) &&
2019. #ifdef MUSE
2020. 		    (mattk->aatyp != AT_WEAP || !MON_WEP(mtmp)) &&
2021. #else
2022. 		    (mattk->aatyp != AT_WEAP || !select_hwep(mtmp)) &&
2023. #endif
2024. 		    mattk->aatyp != AT_GAZE && mattk->aatyp != AT_EXPL &&
2025. 		    mattk->aatyp != AT_MAGC &&
2026. #ifdef MUSE
2027. 		    (!which_armor(mtmp, W_ARMG))) {
2028. #else
2029. 		    (!is_mercenary(mdat) ||
2030. 				      !m_carrying(mtmp, LEATHER_GLOVES))) {
2031. #endif
2032. 		    if(poly_when_stoned(mdat)) {
2033. 			mon_to_stone(mtmp);
2034. 			return (1);
2035. 		    }
2036. 		    pline("%s turns to stone!", Monnam(mtmp));
2037. 		    stoned = 1;
2038. 		    xkilled(mtmp, 0);
2039. 		    return 2;
2040. 		}
2041. 		return 1;
2042. 	    default:
2043. 		break;
2044. 	}
2045. 	if (!u.mtimedone) return 1;
2046. 
2047. 	/* These affect the enemy only if you are still a monster */
2048. 	if (rn2(3)) switch(uasmon->mattk[i].adtyp) {
2049. 	    case AD_PLYS: /* Floating eye */
2050. 		if (u.umonnum == PM_FLOATING_EYE) {
2051. 		    if (!rn2(4)) tmp = 120;
2052. 		    if (mtmp->mcansee && haseyes(mtmp->data) && rn2(3) &&
2053. 				(perceives(mdat) || !Invis)) {
2054. 			if (Blind)
2055. 			    pline("As a blind %s, you cannot defend yourself.",
2056. 							uasmon->mname);
2057. 		        else {
2058. 			    pline("%s is frozen by your gaze!", Monnam(mtmp));
2059. 			    mtmp->mcanmove = 0;
2060. 			    mtmp->mfrozen = tmp;
2061. 			    return 3;
2062. 			}
2063. 		    }
2064. 		} else { /* gelatinous cube */
2065. 		    pline("%s is frozen by you.", Monnam(mtmp));
2066. 		    mtmp->mcanmove = 0;
2067. 		    mtmp->mfrozen = tmp;
2068. 		    return 3;
2069. 		}
2070. 		return 1;
2071. 	    case AD_COLD: /* Brown mold or blue jelly */
2072. 		if(resists_cold(mdat)) {
2073.   		    shieldeff(mtmp->mx, mtmp->my);
2074. 		    pline("%s is mildly chilly.", Monnam(mtmp));
2075. 		    golemeffects(mtmp, AD_COLD, tmp);
2076. 		    tmp = 0;
2077. 		    break;
2078. 		}
2079. 		pline("%s is suddenly very cold!", Monnam(mtmp));
2080. 		u.mh += tmp / 2;
2081. 		if (u.mhmax < u.mh) u.mhmax = u.mh;
2082. 		if (u.mhmax > ((uasmon->mlevel+1) * 8)) {
2083. 			register struct monst *mon;
2084. 
2085. 			if ((mon = cloneu()) != 0) {
2086. 			    mon->mhpmax = u.mhmax /= 2;
2087. 			    You("multiply from %s heat!", 
2088. 				           s_suffix(mon_nam(mtmp)));
2089. 			}
2090. 		}
2091. 		break;
2092. 	    case AD_STUN: /* Yellow mold */
2093. 		if (!mtmp->mstun) {
2094. 		    mtmp->mstun = 1;
2095. 		    pline("%s staggers.", Monnam(mtmp));
2096. 		}
2097. 		tmp = 0;
2098. 		break;
2099. 	    case AD_FIRE: /* Red mold */
2100. 		if(resists_fire(mdat)) {
2101.   		    shieldeff(mtmp->mx, mtmp->my);
2102. 		    pline("%s is mildly warm.", Monnam(mtmp));
2103. 		    golemeffects(mtmp, AD_FIRE, tmp);
2104. 		    tmp = 0;
2105. 		    break;
2106. 		}
2107. 		pline("%s is suddenly very hot!", Monnam(mtmp));
2108. 		break;
2109. 	    case AD_ELEC:
2110. 		if(resists_elec(mdat)) {
2111.   		    shieldeff(mtmp->mx, mtmp->my);
2112. 		    pline("%s is slightly tingled.", Monnam(mtmp));
2113. 		    golemeffects(mtmp, AD_ELEC, tmp);
2114. 		    tmp = 0;
2115. 		    break;
2116. 		}
2117. 		pline("%s is jolted with your electricity!", Monnam(mtmp));
2118. 		break;
2119. 	    default: tmp = 0;
2120. 		break;
2121. 	}
2122. 	else tmp = 0;
2123. 
2124.     assess_dmg:
2125. 	if((mtmp->mhp -= tmp) <= 0) {
2126. 		pline("%s dies!", Monnam(mtmp));
2127. 		xkilled(mtmp,0);
2128. 		return 2;
2129. 	}
2130. 	return 1;
2131. }
2132. 
2133. #endif /* OVL1 */
2134. #ifdef OVLB
2135. 
2136. #include "edog.h"
2137. struct monst *
2138. cloneu()
2139. {
2140. 	register struct monst *mon;
2141. 
2142. 	if (u.mh <= 1) return(struct monst *)0;
2143. 	if (uasmon->geno & G_EXTINCT) return(struct monst *)0;
2144. 	uasmon->pxlth += sizeof(struct edog);
2145. 	mon = makemon(uasmon, u.ux, u.uy);
2146. 	uasmon->pxlth -= sizeof(struct edog);
2147. 	mon = christen_monst(mon, plname);
2148. 	initedog(mon);
2149. 	mon->m_lev = uasmon->mlevel;
2150. 	mon->mhp = u.mh /= 2;
2151. 	mon->mhpmax = u.mhmax;
2152. 	return(mon);
2153. }
2154. 
2155. #endif /* OVLB */
2156. 
2157. #endif /* POLYSELF */
2158. 
2159. /*mhitu.c*/

Also on Fandom

Random Wiki