Source:NetHack 3.2.0/mon.c

From NetHackWiki
(Redirected from NetHack 3.2.0/mon.c)
Jump to navigation Jump to search

Below is the full text to mon.c from the source code of NetHack 3.2.0. To link to a particular line, write [[NetHack 3.2.0/mon.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.

This content was modified from the original NetHack source code distribution (by splitting up NetHack content between wiki pages, and possibly further editing). See the page history for a list of who changed it, and on what dates.

1.    /*	SCCS Id: @(#)mon.c	3.2	96/03/07	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    /* If you're using precompiled headers, you don't want this either */
6.    #ifdef MICROPORT_BUG
7.    #define MKROOM_H
8.    #endif
9.    
10.   #include "hack.h"
11.   #include "mfndpos.h"
12.   #include "edog.h"
13.   #include <ctype.h>
14.   
15.   STATIC_DCL boolean FDECL(corpse_chance,(struct monst *));
16.   STATIC_DCL boolean FDECL(restrap,(struct monst *));
17.   #ifdef OVL2
18.   static void FDECL(kill_eggs, (struct obj *));
19.   #endif
20.   
21.   #ifdef OVLB
22.   STATIC_OVL NEARDATA struct monst *fdmon;	/* dead monster list */
23.   #else
24.   STATIC_DCL NEARDATA struct monst *fdmon;
25.   #endif
26.   
27.   #ifdef OVL1
28.   #define warnDelay 10
29.   long lastwarntime;
30.   int lastwarnlev;
31.   
32.   const char *warnings[] = {
33.   	"white", "pink", "red", "ruby", "purple", "black"
34.   };
35.   
36.   static void NDECL(warn_effects);
37.   
38.   #endif /* OVL1 */
39.   
40.   
41.   #ifdef OVLB
42.   static struct obj *FDECL(make_corpse,(struct monst *));
43.   static void FDECL(m_detach, (struct monst *,struct permonst *));
44.   
45.   /* convert the monster index of an undead to its living counterpart */
46.   int
47.   undead_to_corpse(mndx)
48.   int mndx;
49.   {
50.   	switch (mndx) {
51.   	case PM_KOBOLD_ZOMBIE:
52.   	case PM_KOBOLD_MUMMY:	mndx = PM_KOBOLD;  break;
53.   	case PM_GNOME_ZOMBIE:
54.   	case PM_GNOME_MUMMY:	mndx = PM_GNOME;  break;
55.   	case PM_ORC_ZOMBIE:
56.   	case PM_ORC_MUMMY:	mndx = PM_ORC;  break;
57.   	case PM_ELF_ZOMBIE:
58.   	case PM_ELF_MUMMY:	mndx = PM_ELF;  break;
59.   	case PM_VAMPIRE:
60.   	case PM_VAMPIRE_LORD:
61.   	case PM_HUMAN_ZOMBIE:
62.   	case PM_HUMAN_MUMMY:	mndx = PM_HUMAN;  break;
63.   	case PM_GIANT_ZOMBIE:
64.   	case PM_GIANT_MUMMY:	mndx = PM_GIANT;  break;
65.   	case PM_ETTIN_ZOMBIE:
66.   	case PM_ETTIN_MUMMY:	mndx = PM_ETTIN;  break;
67.   	default:  break;
68.   	}
69.   	return mndx;
70.   }
71.   
72.   /* Creates a monster corpse, a "special" corpse, or nothing if it doesn't
73.    * leave corpses.  Monsters which leave "special" corpses should have
74.    * G_NOCORPSE set in order to prevent wishing for one, finding tins of one,
75.    * etc....
76.    */
77.   static struct obj *
78.   make_corpse(mtmp)
79.   register struct monst *mtmp;
80.   {
81.   	register struct permonst *mdat = mtmp->data;
82.   	int num;
83.   	struct obj *obj = (struct obj *)0;
84.   	int x = mtmp->mx, y = mtmp->my;
85.   	int mndx = monsndx(mdat);
86.   
87.   	switch(mndx) {
88.   	    case PM_GRAY_DRAGON:
89.   	    case PM_RED_DRAGON:
90.   	    case PM_ORANGE_DRAGON:
91.   	    case PM_WHITE_DRAGON:
92.   	    case PM_BLACK_DRAGON:
93.   	    case PM_BLUE_DRAGON:
94.   	    case PM_GREEN_DRAGON:
95.   	    case PM_YELLOW_DRAGON:
96.   		/* Make dragon scales.  This assumes that the order of the */
97.   		/* dragons is the same as the order of the scales.	   */
98.   		if (!rn2(3)) {
99.   		    obj = mksobj_at(GRAY_DRAGON_SCALES +
100.  				    monsndx(mdat)-PM_GRAY_DRAGON, x, y, FALSE);
101.  		    obj->spe = 0;
102.  		    obj->cursed = obj->blessed = FALSE;
103.  		}
104.  		goto default_1;
105.  
106.  	    case PM_WHITE_UNICORN:
107.  	    case PM_GRAY_UNICORN:
108.  	    case PM_BLACK_UNICORN:
109.  		(void) mksobj_at(UNICORN_HORN, x, y, TRUE);
110.  		goto default_1;
111.  	    case PM_LONG_WORM:
112.  		(void) mksobj_at(WORM_TOOTH, x, y, TRUE);
113.  		goto default_1;
114.  	    case PM_KOBOLD_MUMMY:
115.  	    case PM_GNOME_MUMMY:
116.  	    case PM_ORC_MUMMY:
117.  	    case PM_ELF_MUMMY:
118.  	    case PM_VAMPIRE:
119.  	    case PM_VAMPIRE_LORD:
120.  	    case PM_HUMAN_MUMMY:
121.  	    case PM_GIANT_MUMMY:
122.  	    case PM_ETTIN_MUMMY:
123.  	    case PM_KOBOLD_ZOMBIE:
124.  	    case PM_GNOME_ZOMBIE:
125.  	    case PM_ORC_ZOMBIE:
126.  	    case PM_ELF_ZOMBIE:
127.  	    case PM_HUMAN_ZOMBIE:
128.  	    case PM_GIANT_ZOMBIE:
129.  	    case PM_ETTIN_ZOMBIE:
130.  		num = undead_to_corpse(mndx);
131.  		obj = mkcorpstat(CORPSE, &mons[num], x, y, TRUE);
132.  		obj->age -= 100;		/* this is an *OLD* corpse */
133.  		break;
134.  	    case PM_IRON_GOLEM:
135.  		num = d(2,6);
136.  		while (num--)
137.  			obj = mksobj_at(IRON_CHAIN, x, y, TRUE);
138.  		mtmp->mnamelth = 0;
139.  		break;
140.  	    case PM_CLAY_GOLEM:
141.  		obj = mksobj_at(ROCK, x, y, FALSE);
142.  		obj->quan = (long)(rn2(20) + 50);
143.  		obj->owt = weight(obj);
144.  		mtmp->mnamelth = 0;
145.  		break;
146.  	    case PM_STONE_GOLEM:
147.  		obj = mkcorpstat(STATUE, mdat, x, y, FALSE);
148.  		break;
149.  	    case PM_WOOD_GOLEM:
150.  		num = d(2,4);
151.  		while(num--) {
152.  			obj = mksobj_at(QUARTERSTAFF, x, y, TRUE);
153.  			if (obj && obj->oartifact) {	/* don't allow this */
154.  				artifact_exists(obj, ONAME(obj), FALSE);
155.  				Strcpy(ONAME(obj), "");  obj->onamelth = 0;
156.  			}
157.  		}
158.  		mtmp->mnamelth = 0;
159.  		break;
160.  	    case PM_LEATHER_GOLEM:
161.  		num = d(2,4);
162.  		while(num--)
163.  			obj = mksobj_at(LEATHER_ARMOR, x, y, TRUE);
164.  		mtmp->mnamelth = 0;
165.  		break;
166.  	    default_1:
167.  	    default:
168.  		if (mvitals[mndx].mvflags & G_NOCORPSE)
169.  			return (struct obj *)0;
170.  		else obj = mkcorpstat(CORPSE, mdat, x, y, TRUE);
171.  		break;
172.  	}
173.  	/* All special cases should precede the G_NOCORPSE check */
174.  
175.  	if (mtmp->mnamelth)
176.  	    obj = oname(obj, NAME(mtmp));
177.  	stackobj(obj);
178.  	newsym(x, y);
179.  	return obj;
180.  }
181.  
182.  #endif /* OVLB */
183.  #ifdef OVL1
184.  
185.  static void
186.  warn_effects()
187.  {
188.      if (warnlevel == 100) {
189.  	if(!Blind &&
190.  	    (warnlevel > lastwarnlev || moves > lastwarntime + warnDelay)) {
191.  	    Your("%s %s!", aobjnam(uwep, "glow"),
192.  		hcolor(light_blue));
193.  	    lastwarnlev = warnlevel;
194.  	    lastwarntime = moves;
195.  	}
196.  	warnlevel = 0;
197.  	return;
198.      }
199.  
200.      if(warnlevel >= SIZE(warnings))
201.  	warnlevel = SIZE(warnings)-1;
202.      if(!Blind && warnlevel >= 0)
203.  	if(warnlevel > lastwarnlev || moves > lastwarntime + warnDelay) {
204.  	    register const char *rr;
205.  
206.  	    lastwarntime = moves;
207.  	    lastwarnlev = warnlevel;
208.  	    switch((int) (Warning & (LEFT_RING | RIGHT_RING))) {
209.  	    case LEFT_RING:
210.  		rr = Hallucination ? "left mood ring glows" : "left ring glows";
211.  		break;
212.  	    case RIGHT_RING:
213.  		rr = Hallucination ? "right mood ring glows"
214.  			: "right ring glows";
215.  		break;
216.  	    case LEFT_RING | RIGHT_RING:
217.  		rr = Hallucination ? "mood rings glow" : "rings both glow";
218.  		break;
219.  	    default:
220.  		if (Hallucination)
221.  		    Your("spider-sense is tingling...");
222.  		else
223.  		    You_feel("apprehensive as you sense a %s flash.",
224.  			warnings[warnlevel]);
225.  		return;
226.  	    }
227.  	    Your("%s %s!", rr, hcolor(warnings[warnlevel]));
228.  	}
229.  }
230.  
231.  /* check mtmp and water for compatibility, 0 (survived), 1 (drowned) */
232.  int
233.  minwater(mtmp)
234.  register struct monst *mtmp;
235.  {
236.      boolean inpool, infountain;
237.  
238.      inpool = is_pool(mtmp->mx,mtmp->my) &&
239.  	     !is_flyer(mtmp->data) && !is_floater(mtmp->data);
240.      infountain = IS_FOUNTAIN(levl[mtmp->mx][mtmp->my].typ);
241.  
242.      /* Gremlin multiplying won't go on forever since the hit points
243.       * keep going down, and when it gets to 1 hit point the clone
244.       * function will fail.
245.       */
246.      if (mtmp->data == &mons[PM_GREMLIN] && (inpool || infountain) && rn2(3)) {
247.  	struct monst *mtmp2 = clone_mon(mtmp);
248.  
249.  	if (mtmp2) {
250.  	    mtmp2->mhpmax = (mtmp->mhpmax /= 2);
251.  	    if(cansee(mtmp->mx,mtmp->my))
252.  		pline("%s multiplies.", Monnam(mtmp));
253.  	    dryup(mtmp->mx,mtmp->my);
254.  	}
255.  	if (inpool) water_damage(mtmp->minvent, FALSE, FALSE);
256.  	return (0);
257.      }
258.      if (inpool) {
259.  	/* Most monsters drown in pools.  flooreffects() will take care of
260.  	 * water damage to dead monsters' inventory, but survivors need to
261.  	 * be handled here.  Swimmers are able to protect their stuff...
262.  	 */
263.  	if (!is_clinger(mtmp->data)
264.  	    && !is_swimmer(mtmp->data) && !amphibious(mtmp->data)) {
265.  	    if (cansee(mtmp->mx,mtmp->my))
266.  		pline("%s drowns.", Monnam(mtmp));
267.  	    mondead(mtmp);
268.  	    if (mtmp->mhp > 0) {
269.  		rloc(mtmp);
270.  		water_damage(mtmp->minvent, FALSE, FALSE);
271.  		return 0;
272.  	    }
273.  	    return (1);
274.  	}
275.      } else {
276.  	/* but eels have a difficult time outside */
277.  	if (mtmp->data->mlet == S_EEL && !Is_waterlevel(&u.uz)) {
278.  	    if(mtmp->mhp > 1) mtmp->mhp--;
279.  	    mtmp->mflee = 1;
280.  	    mtmp->mfleetim += 2;
281.  	}
282.      }
283.      return (0);
284.  }
285.  
286.  void
287.  movemon()
288.  {
289.      register struct monst *mtmp;
290.      register boolean tametype = TRUE;
291.  
292.      warnlevel = 0;
293.  
294.      while(1) {
295.  	/* Find a monster that we have not treated yet.
296.  	 * Note that mtmp or mtmp->nmon might get killed
297.  	 * while mtmp moves, so we cannot just walk down the
298.  	 * chain (even new monsters might get created!)
299.  	 *
300.  	 * Do tame monsters first.  Necessary so that when the tame
301.  	 * monster attacks something, the something gets a chance to
302.  	 * attack the tame monster back (which it's permitted to do
303.  	 * only if it hasn't made its move yet).
304.  	 */
305.  	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
306.  	    if(mtmp->mlstmv < monstermoves &&
307.  	       ((mtmp->mtame>0) == tametype)) goto next_mon;
308.  	if(tametype) {
309.  	    /* checked all tame monsters, now do other ones */
310.  	    tametype = FALSE;
311.  	    continue;
312.  	}
313.  	/* treated all monsters */
314.  	break;
315.  
316.      next_mon:
317.  	mtmp->mlstmv = monstermoves;
318.  
319.  	if(mtmp->mhp <= 0) {
320.  	    impossible("Monster with zero hp?");
321.  	    mtmp->mhp = mtmp->mhpmax = 1; /* repair */
322.  	}
323.  	if (minwater(mtmp)) continue;
324.  
325.  	if(mtmp->mblinded && !--mtmp->mblinded)
326.  	    mtmp->mcansee = 1;
327.  	if(mtmp->mfrozen && !--mtmp->mfrozen)
328.  	    mtmp->mcanmove = 1;
329.  	if(mtmp->mfleetim && !--mtmp->mfleetim)
330.  	    mtmp->mflee = 0;
331.  	if (is_hider(mtmp->data) &&
332.  		(mtmp->mundetected ||
333.  		 restrap(mtmp) ||	/* maybe hide again */
334.  		 (mtmp->m_ap_type == M_AP_FURNITURE ||
335.  					mtmp->m_ap_type == M_AP_OBJECT))) {
336.  	    mon_regen(mtmp, TRUE);	/* heal while resting */
337.  	    continue;
338.  	}
339.  	if(mtmp->mspeed != MSLOW || !(moves%2)) {
340.  	    /* continue if the monster died fighting */
341.  	    if (Conflict && !mtmp->iswiz && mtmp->mcansee) {
342.  		/* Note:
343.  		 *  Conflict does not take effect in the first round.
344.  		 *  Therefore, A monster when stepping into the area will
345.  		 *  get to swing at you.
346.  		 *
347.  		 *  The call to fightm() must be _last_.  The monster might
348.  		 *  have died if it returns 1.
349.  		 */
350.  		if (couldsee(mtmp->mx,mtmp->my) &&
351.  		    (distu(mtmp->mx,mtmp->my) <= BOLT_LIM*BOLT_LIM) &&
352.  								fightm(mtmp))
353.  		     continue;	/* mon might have died */
354.  	    }
355.  	    if(dochugw(mtmp))
356.  		/* otherwise just move the monster */
357.  		continue;
358.  	}
359.  	if(mtmp->mspeed == MFAST && dochugw(mtmp))
360.  	    continue;
361.      }
362.      if(warnlevel > 0)
363.  	warn_effects();
364.  
365.      if (any_light_source())
366.  	vision_full_recalc = 1;	/* in case a mon moved with a light source */
367.      if (fdmon) dmonsfree();	/* remove all dead monsters */
368.  }
369.  
370.  #endif /* OVL1 */
371.  #ifdef OVLB
372.  
373.  #define mstoning(obj)	(ofood(obj) && ((obj)->corpsenm == PM_COCKATRICE || \
374.  					(obj)->corpsenm == PM_MEDUSA))
375.  
376.  /*
377.   * Maybe eat a metallic object (not just gold).
378.   * Return value: 0 => nothing happened, 1 => monster ate something,
379.   * 2 => monster died (it must have grown into a genocided form, but
380.   * that can't happen at present because nothing which eats objects
381.   * has young and old forms).
382.   */
383.  int
384.  meatgold(mtmp)
385.  	register struct monst *mtmp;
386.  {
387.  	register struct obj *otmp;
388.  	struct permonst *ptr;
389.  	int poly, grow, heal, mstone;
390.  
391.  	/* If a pet, eating is handled separately, in dog.c */
392.  	if (mtmp->mtame) return 0;
393.  
394.  	/* Eats topmost metal object if it is there */
395.  	for (otmp = level.objects[mtmp->mx][mtmp->my];
396.  						    otmp; otmp = otmp->nexthere)
397.  	    if (is_metallic(otmp) && !obj_resists(otmp, 5, 95) &&
398.  		touch_artifact(otmp,mtmp)) {
399.  		if (mtmp->data == &mons[PM_RUST_MONSTER] && otmp->oerodeproof) {
400.  		    if (canseemon(mtmp) && flags.verbose) {
401.  			pline("%s eats %s!",
402.  				Monnam(mtmp),
403.  				distant_name(otmp,doname));
404.  		    }
405.  		    /* The object's rustproofing is gone now */
406.  		    otmp->oerodeproof = 0;
407.  		    mtmp->mstun = 1;
408.  		    pline("%s spits %s out in disgust!",
409.  		    	Monnam(mtmp),
410.  		    	distant_name(otmp,doname));
411.  		} else {
412.  		    if (cansee(mtmp->mx,mtmp->my) && flags.verbose)
413.  			pline("%s eats %s!", Monnam(mtmp),
414.  				distant_name(otmp,doname));
415.  		    else if (flags.soundok && flags.verbose)
416.  			You_hear("a crunching sound.");
417.  		    mtmp->meating = otmp->owt/2 + 1;
418.  		    /* Heal up to the object's weight in hp */
419.  		    if (mtmp->mhp < mtmp->mhpmax) {
420.  			mtmp->mhp += objects[otmp->otyp].oc_weight;
421.  			if (mtmp->mhp > mtmp->mhpmax) mtmp->mhp = mtmp->mhpmax;
422.  		    }
423.  		    if(otmp == uball) {
424.  			unpunish();
425.  			delobj(otmp);
426.  		    } else if (otmp == uchain) {
427.  			unpunish();	/* frees uchain */
428.  		    } else {
429.  			poly = polyfodder(otmp);
430.  			grow = mlevelgain(otmp);
431.  			heal = mhealup(otmp);
432.  			mstone = mstoning(otmp);
433.  			delobj(otmp);
434.  			ptr = mtmp->data;
435.  			if (poly) {
436.  			    if (newcham(mtmp, (struct permonst *)0))
437.  				ptr = mtmp->data;
438.  			} else if (grow) {
439.  			    ptr = grow_up(mtmp, (struct monst *)0);
440.  			} else if (mstone) {
441.  			    if (poly_when_stoned(ptr)) {
442.  			    	mon_to_stone(mtmp);
443.  			    	ptr = mtmp->data;
444.  			    } else if (!resists_ston(mtmp)) {
445.  				if (canseemon(mtmp))
446.  				    pline("%s turns to stone!", Monnam(mtmp));
447.  				monstone(mtmp);
448.  				ptr = (struct permonst *)0;
449.  			    }
450.  			} else if (heal) {
451.  			    mtmp->mhp = mtmp->mhpmax;
452.  			}
453.  			if (!ptr) return 2;		 /* it died */
454.  		    }
455.  		    /* Left behind a pile? */
456.  		    if(rnd(25) < 3) (void) mksobj_at(ROCK, mtmp->mx, mtmp->my, TRUE);
457.  		    newsym(mtmp->mx, mtmp->my);
458.  		    return 1;
459.  		}
460.  	    }
461.  	return 0;
462.  }
463.  
464.  int
465.  meatobj(mtmp)		/* for gelatinous cubes */
466.  	register struct monst *mtmp;
467.  {
468.  	register struct obj *otmp, *otmp2;
469.  	struct permonst *ptr;
470.  	int poly, grow, heal, count = 0;
471.  
472.  	/* If a pet, eating is handled separately, in dog.c */
473.  	if (mtmp->mtame) return 0;
474.  
475.  	/* Eats organic objects, including cloth and wood, if there */
476.  	/* Engulfs others, except huge rocks and metal attached to player */
477.  	for (otmp = level.objects[mtmp->mx][mtmp->my]; otmp; otmp = otmp2) {
478.  	    otmp2 = otmp->nexthere;
479.  	    if (is_organic(otmp) && !obj_resists(otmp, 5, 95) &&
480.  		    touch_artifact(otmp,mtmp)) {
481.  		if (otmp->otyp == CORPSE && otmp->corpsenm == PM_COCKATRICE &&
482.  			!resists_ston(mtmp))
483.  		    continue;
484.  		++count;
485.  		if (cansee(mtmp->mx,mtmp->my) && flags.verbose)
486.  		    pline("%s eats %s!", Monnam(mtmp),
487.  			    distant_name(otmp, doname));
488.  		else if (flags.soundok && flags.verbose)
489.  		    You_hear("a slurping sound.");
490.  		/* Heal up to the object's weight in hp */
491.  		if (mtmp->mhp < mtmp->mhpmax) {
492.  		    mtmp->mhp += objects[otmp->otyp].oc_weight;
493.  		    if (mtmp->mhp > mtmp->mhpmax) mtmp->mhp = mtmp->mhpmax;
494.  		}
495.  		if (Has_contents(otmp)) {
496.  		    register struct obj *otmp3;
497.  		    /* contents of eaten containers become engulfed; this
498.  		       is arbitrary, but otherwise g.cubes are too powerful */
499.  		    while ((otmp3 = otmp->cobj) != 0) {
500.  			obj_extract_self(otmp3);
501.  			if (otmp->otyp == ICE_BOX && otmp3->otyp == CORPSE) {
502.  			    otmp3->age = monstermoves - otmp3->age;
503.  			    start_corpse_timeout(otmp3);
504.  			}
505.  			mpickobj(mtmp, otmp3);
506.  		    }
507.  		}
508.  		poly = polyfodder(otmp);
509.  		grow = mlevelgain(otmp);
510.  		heal = mhealup(otmp);
511.  		delobj(otmp);		/* munch */
512.  		ptr = mtmp->data;
513.  		if (poly) {
514.  		    if (newcham(mtmp, (struct permonst *)0)) ptr = mtmp->data;
515.  		} else if (grow) {
516.  		    ptr = grow_up(mtmp, (struct monst *)0);
517.  		} else if (heal) {
518.  		    mtmp->mhp = mtmp->mhpmax;
519.  		}
520.  		/* in case it polymorphed or died */
521.  		if (ptr != &mons[PM_GELATINOUS_CUBE])
522.  		    return !ptr ? 2 : 1;
523.  	    } else if (otmp->oclass != ROCK_CLASS &&
524.  				    otmp != uball && otmp != uchain) {
525.  		if (cansee(mtmp->mx, mtmp->my) && flags.verbose)
526.  		    pline("%s engulfs %s.", Monnam(mtmp),
527.  			    distant_name(otmp,doname));
528.  		obj_extract_self(otmp);
529.  		mpickobj(mtmp, otmp);	/* slurp */
530.  	    }
531.  	    /* Engulf & devour is instant, so don't set meating */
532.  	    if (mtmp->minvis) newsym(mtmp->mx, mtmp->my);
533.  	}
534.  	return (count > 0) ? 1 : 0;
535.  }
536.  
537.  void
538.  mpickgold(mtmp)
539.  	register struct monst *mtmp;
540.  {
541.      register struct obj *gold;
542.  
543.      if ((gold = g_at(mtmp->mx, mtmp->my)) != 0) {
544.  	mtmp->mgold += gold->quan;
545.  	delobj(gold);
546.  	if (cansee(mtmp->mx, mtmp->my) ) {
547.  	    if (flags.verbose && !mtmp->isgd)
548.  		pline("%s picks up some gold.", Monnam(mtmp));
549.  	    newsym(mtmp->mx, mtmp->my);
550.  	}
551.      }
552.  }
553.  #endif /* OVLB */
554.  #ifdef OVL2
555.  
556.  boolean
557.  mpickstuff(mtmp, str)
558.  	register struct monst *mtmp;
559.  	register const char *str;
560.  {
561.  	register struct obj *otmp, *otmp2;
562.  
563.  /*	prevent shopkeepers from leaving the door of their shop */
564.  	if(mtmp->isshk && inhishop(mtmp)) return FALSE;
565.  
566.  	for(otmp = level.objects[mtmp->mx][mtmp->my]; otmp; otmp = otmp2) {
567.  	    otmp2 = otmp->nexthere;
568.  /*	Nymphs take everything.  Most monsters don't pick up corpses. */
569.  	    if (!str ? searches_for_item(mtmp,otmp) :
570.  		  !!(index(str, otmp->oclass))) {
571.  		if (otmp->otyp == CORPSE && (
572.  		    is_rider(&mons[otmp->corpsenm]) ||
573.  		    (otmp->corpsenm == PM_COCKATRICE
574.  			&& !(mtmp->misc_worn_check & W_ARMG)) ||
575.  		    (mtmp->data->mlet != S_NYMPH
576.  			&& otmp->corpsenm != PM_COCKATRICE
577.  			&& otmp->corpsenm != PM_LIZARD
578.  			&& !acidic(&mons[otmp->corpsenm]))
579.  		   ))
580.  			continue;
581.  		if (!touch_artifact(otmp,mtmp)) continue;
582.  		if (!can_carry(mtmp,otmp)) continue;
583.  		if (cansee(mtmp->mx,mtmp->my) && flags.verbose)
584.  			pline("%s picks up %s.", Monnam(mtmp),
585.  			      (distu(mtmp->my, mtmp->my) <= 5) ?
586.  				doname(otmp) : distant_name(otmp, doname));
587.  		obj_extract_self(otmp);
588.  		mpickobj(mtmp, otmp);
589.  		m_dowear(mtmp, FALSE);
590.  		newsym(mtmp->mx, mtmp->my);
591.  		if (otmp->otyp == BOULDER)
592.  		    unblock_point(otmp->ox,otmp->oy);	/* vision */
593.  		return TRUE;			/* pick only one object */
594.  	    }
595.  	}
596.  	return FALSE;
597.  }
598.  
599.  #endif /* OVL2 */
600.  #ifdef OVL0
601.  
602.  int
603.  curr_mon_load(mtmp)
604.  register struct monst *mtmp;
605.  {
606.  	register int curload = 0;
607.  	register struct obj *obj;
608.  
609.  	for(obj = mtmp->minvent; obj; obj = obj->nobj) {
610.  		if(obj->otyp != BOULDER || !throws_rocks(mtmp->data))
611.  			curload += obj->owt;
612.  	}
613.  
614.  	return curload;
615.  }
616.  
617.  int
618.  max_mon_load(mtmp)
619.  register struct monst *mtmp;
620.  {
621.  	register long maxload;
622.  
623.  	/* Base monster carrying capacity is equal to human maximum
624.  	 * carrying capacity, or half human maximum if not strong.
625.  	 * (for a polymorphed player, the value used would be the
626.  	 * non-polymorphed carrying capacity instead of max/half max).
627.  	 * This is then modified by the ratio between the monster weights
628.  	 * and human weights.  Corpseless monsters are given a capacity
629.  	 * proportional to their size instead of weight.
630.  	 */
631.  	if (!mtmp->data->cwt)
632.  		maxload = (MAX_CARR_CAP * (long)mtmp->data->msize) / MZ_HUMAN;
633.  	else if (!strongmonst(mtmp->data)
634.  		|| (strongmonst(mtmp->data) && (mtmp->data->cwt > WT_HUMAN)))
635.  		maxload = (MAX_CARR_CAP * (long)mtmp->data->cwt) / WT_HUMAN;
636.  	else	maxload = MAX_CARR_CAP; /*strong monsters w/cwt <= WT_HUMAN*/
637.  
638.  	if (!strongmonst(mtmp->data)) maxload /= 2;
639.  
640.  	if (maxload < 1) maxload = 1;
641.  
642.  	return (int) maxload;
643.  }
644.  
645.  /* for restricting monsters' object-pickup */
646.  boolean
647.  can_carry(mtmp,otmp)
648.  struct monst *mtmp;
649.  struct obj *otmp;
650.  {
651.  	register int newload = otmp->owt;
652.  
653.  	if (otmp->otyp == CORPSE && otmp->corpsenm == PM_COCKATRICE &&
654.  		!(mtmp->misc_worn_check & W_ARMG) &&
655.  		!resists_ston(mtmp))
656.  	    return FALSE;
657.  
658.  	if (mtmp->isshk) return(TRUE); /* no limit */
659.  	if (mtmp->mpeaceful && !mtmp->mtame) return(FALSE);
660.  	/* otherwise players might find themselves obligated to violate
661.  	 * their alignment if the monster takes something they need
662.  	 */
663.  
664.  	/* special--boulder throwers carry unlimited amounts of boulders */
665.  	if (throws_rocks(mtmp->data) && otmp->otyp == BOULDER)
666.  		return(TRUE);
667.  
668.  	/* nymphs deal in stolen merchandise, but not boulders or statues */
669.  	if (mtmp->data->mlet == S_NYMPH)
670.  		return((boolean)(!(otmp->oclass == ROCK_CLASS)));
671.  
672.  	if(curr_mon_load(mtmp) + newload > max_mon_load(mtmp)) return(FALSE);
673.  
674.  	return(TRUE);
675.  }
676.  
677.  /* return number of acceptable neighbour positions */
678.  int
679.  mfndpos(mon, poss, info, flag)
680.  	register struct monst *mon;
681.  	coord *poss;	/* coord poss[9] */
682.  	long *info;	/* long info[9] */
683.  	long flag;
684.  {
685.  	struct permonst *mdat = mon->data;
686.  	register xchar x,y,nx,ny;
687.  	register int cnt = 0;
688.  	register uchar ntyp;
689.  	uchar nowtyp;
690.  	boolean wantpool,poolok,lavaok,nodiag;
691.  	int maxx, maxy;
692.  
693.  	x = mon->mx;
694.  	y = mon->my;
695.  	nowtyp = levl[x][y].typ;
696.  
697.  	nodiag = (mdat == &mons[PM_GRID_BUG]);
698.  	wantpool = mdat->mlet == S_EEL;
699.  	poolok = is_flyer(mdat) || is_clinger(mdat) ||
700.  		 (is_swimmer(mdat) && !wantpool);
701.  	lavaok = is_flyer(mdat) || is_clinger(mdat) || likes_lava(mdat);
702.  
703.  nexttry:	/* eels prefer the water, but if there is no water nearby,
704.  		   they will crawl over land */
705.  	if(mon->mconf) {
706.  		flag |= ALLOW_ALL;
707.  		flag &= ~NOTONL;
708.  	}
709.  	if(!mon->mcansee)
710.  		flag |= ALLOW_SSM;
711.  	maxx = min(x+1,COLNO-1);
712.  	maxy = min(y+1,ROWNO-1);
713.  	for(nx = max(1,x-1); nx <= maxx; nx++)
714.  	  for(ny = max(0,y-1); ny <= maxy; ny++) {
715.  	    if(nx == x && ny == y) continue;
716.  	    if(IS_ROCK(ntyp = levl[nx][ny].typ) &&
717.  	       !((flag & ALLOW_WALL) && may_passwall(nx,ny)) &&
718.  	       !((flag & ALLOW_DIG) && may_dig(nx,ny))) continue;
719.  	    if(IS_DOOR(ntyp) && !amorphous(mdat) &&
720.  	       ((levl[nx][ny].doormask & D_CLOSED && !(flag & OPENDOOR)) ||
721.  		(levl[nx][ny].doormask & D_LOCKED && !(flag & UNLOCKDOOR))
722.  	       ) && !(flag & (ALLOW_WALL|ALLOW_DIG|BUSTDOOR))) continue;
723.  	    if(nx != x && ny != y && (nodiag ||
724.  #ifdef REINCARNATION
725.  	       ((IS_DOOR(nowtyp) &&
726.  		 ((levl[x][y].doormask & ~D_BROKEN) || Is_rogue_level(&u.uz))) ||
727.  		(IS_DOOR(ntyp) &&
728.  		 ((levl[nx][ny].doormask & ~D_BROKEN) || Is_rogue_level(&u.uz))))
729.  #else
730.  	       ((IS_DOOR(nowtyp) && (levl[x][y].doormask & ~D_BROKEN)) ||
731.  		(IS_DOOR(ntyp) && (levl[nx][ny].doormask & ~D_BROKEN)))
732.  #endif
733.  	       ))
734.  		continue;
735.  	    if((is_pool(nx,ny) == wantpool || poolok) &&
736.  	       (lavaok || !is_lava(nx,ny))) {
737.  		int dispx, dispy;
738.  		boolean monseeu = (mon->mcansee && (!Invis || perceives(mdat)));
739.  		boolean checkobj = OBJ_AT(nx,ny);
740.  
741.  		/* Displacement also displaces the Elbereth/scare monster,
742.  		 * as long as you are visible.
743.  		 */
744.  		if(Displaced && monseeu && (mon->mux==nx) && (mon->muy==ny)) {
745.  		    dispx = u.ux;
746.  		    dispy = u.uy;
747.  		} else {
748.  		    dispx = nx;
749.  		    dispy = ny;
750.  		}
751.  
752.  		info[cnt] = 0;
753.  		if(((checkobj || Displaced) &&
754.  		    sobj_at(SCR_SCARE_MONSTER, dispx, dispy))
755.  #ifdef ELBERETH
756.  		       || sengr_at("Elbereth", dispx, dispy)
757.  #endif
758.  		       || (mdat->mlet == S_VAMPIRE &&
759.  			   IS_ALTAR(levl[dispx][dispy].typ))
760.  		       ) {
761.  		    if(!(flag & ALLOW_SSM)) continue;
762.  		    info[cnt] |= ALLOW_SSM;
763.  		}
764.  		if((nx == u.ux && ny == u.uy) ||
765.  		   (nx == mon->mux && ny == mon->muy)) {
766.  			if (nx == u.ux && ny == u.uy) {
767.  				/* If it's right next to you, it found you,
768.  				 * displaced or no.  We must set mux and muy
769.  				 * right now, so when we return we can tell
770.  				 * that the ALLOW_U means to attack _you_ and
771.  				 * not the image.
772.  				 */
773.  				mon->mux = u.ux;
774.  				mon->muy = u.uy;
775.  			}
776.  			if(!(flag & ALLOW_U)) continue;
777.  			info[cnt] |= ALLOW_U;
778.  		} else {
779.  			if(MON_AT(nx, ny)) {
780.  				if(!(flag & ALLOW_M)) continue;
781.  				info[cnt] |= ALLOW_M;
782.  				if((m_at(nx,ny))->mtame) {
783.  					if(!(flag & ALLOW_TM)) continue;
784.  					info[cnt] |= ALLOW_TM;
785.  				}
786.  			}
787.  			/* Note: ALLOW_SANCT only prevents movement, not */
788.  			/* attack, into a temple. */
789.  			if(level.flags.has_temple &&
790.  			   *in_rooms(nx, ny, TEMPLE) &&
791.  			   !*in_rooms(x, y, TEMPLE) &&
792.  			   in_your_sanctuary(nx, ny)){
793.  				if(!(flag & ALLOW_SANCT)) continue;
794.  				info[cnt] |= ALLOW_SANCT;
795.  			}
796.  		}
797.  		if(checkobj && sobj_at(CLOVE_OF_GARLIC, nx, ny)) {
798.  			if(flag & NOGARLIC) continue;
799.  			info[cnt] |= NOGARLIC;
800.  		}
801.  		if(checkobj && sobj_at(BOULDER, nx, ny)) {
802.  			if(!(flag & ALLOW_ROCK)) continue;
803.  			info[cnt] |= ALLOW_ROCK;
804.  		}
805.  		if (monseeu && onlineu(nx,ny)) {
806.  			if(flag & NOTONL) continue;
807.  			info[cnt] |= NOTONL;
808.  		}
809.  		if (nx != x && ny != y && bad_rock(mdat, x, ny)
810.  			    && bad_rock(mdat, nx, y)
811.  			    && (bigmonst(mdat) || (curr_mon_load(mon) > 600)))
812.  			continue;
813.  		/* The monster avoids a particular type of trap if it's familiar
814.  		 * with the trap type.  Pets get ALLOW_TRAPS and checking is
815.  		 * done in dogmove.c.  In either case, "harmless" traps are
816.  		 * neither avoided nor marked in info[].
817.  		 */
818.  		{ register struct trap *ttmp = t_at(nx, ny);
819.  		    if(ttmp) {
820.  			if(ttmp->ttyp >= TRAPNUM || ttmp->ttyp == 0)  {
821.  impossible("A monster looked at a very strange trap of type %d.", ttmp->ttyp);
822.  			    continue;
823.  			}
824.  			if ((ttmp->ttyp != RUST_TRAP
825.  					|| mdat == &mons[PM_IRON_GOLEM])
826.  				&& ttmp->ttyp != STATUE_TRAP
827.  				&& ((ttmp->ttyp != PIT
828.  				    && ttmp->ttyp != SPIKED_PIT
829.  				    && ttmp->ttyp != TRAPDOOR
830.  				    && ttmp->ttyp != HOLE)
831.  				      || (!is_flyer(mdat) && !is_clinger(mdat)))
832.  				&& (ttmp->ttyp != SLP_GAS_TRAP ||
833.  				    !resists_sleep(mon))
834.  				&& (ttmp->ttyp != BEAR_TRAP ||
835.  				    (mdat->msize > MZ_SMALL &&
836.  				     !amorphous(mdat) && !is_flyer(mdat)))
837.  				&& (ttmp->ttyp != FIRE_TRAP ||
838.  				    !resists_fire(mon))
839.  				&& (ttmp->ttyp != SQKY_BOARD || !is_flyer(mdat))
840.  				&& (ttmp->ttyp != WEB || (!amorphous(mdat) &&
841.  				    mdat->mlet != S_SPIDER))
842.  			) {
843.  			    if (!(flag & ALLOW_TRAPS)) {
844.  				if (mon->mtrapseen & (1L << (ttmp->ttyp - 1)))
845.  				    continue;
846.  			    }
847.  			    info[cnt] |= ALLOW_TRAPS;
848.  			}
849.  		    }
850.  		}
851.  		poss[cnt].x = nx;
852.  		poss[cnt].y = ny;
853.  		cnt++;
854.  	    }
855.  	}
856.  	if(!cnt && wantpool && !is_pool(x,y)) {
857.  		wantpool = FALSE;
858.  		goto nexttry;
859.  	}
860.  	return(cnt);
861.  }
862.  
863.  #endif /* OVL0 */
864.  #ifdef OVL1
865.  
866.  boolean
867.  monnear(mon, x, y)
868.  register struct monst *mon;
869.  register int x,y;
870.  /* Is the square close enough for the monster to move or attack into? */
871.  {
872.  	register int distance = dist2(mon->mx, mon->my, x, y);
873.  	if (distance==2 && mon->data==&mons[PM_GRID_BUG]) return 0;
874.  	return((boolean)(distance < 3));
875.  }
876.  
877.  /* really free dead monsters */
878.  void
879.  dmonsfree()
880.  {
881.  	register struct monst *mtmp;
882.  
883.  	while ((mtmp = fdmon) != 0) {
884.  		fdmon = mtmp->nmon;
885.  		dealloc_monst(mtmp);
886.  	}
887.  }
888.  
889.  #endif /* OVL1 */
890.  #ifdef OVLB
891.  
892.  /* we do not free monsters immediately, in order to have their name
893.     available shortly after their demise */
894.  void
895.  monfree(mtmp)
896.  register struct monst *mtmp;
897.  {
898.  #if 0	/* can't do this; make_corpse() needs the coordinates */
899.  	mtmp->mx = mtmp->my = 0;	/* not on the map any more */
900.  #endif
901.  	mtmp->mhp = 0;			/* not living any more */
902.  	mtmp->nmon = fdmon;
903.  	fdmon = mtmp;
904.  }
905.  
906.  /* called when monster is moved to larger structure */
907.  void
908.  replmon(mtmp, mtmp2)
909.  register struct monst *mtmp, *mtmp2;
910.  {
911.      struct obj *otmp;
912.  
913.      /* transfer the monster's inventory */
914.      for (otmp = mtmp2->minvent; otmp; otmp = otmp->nobj) {
915.  #ifdef DEBUG
916.  	if (otmp->where != OBJ_MINVENT || otmp->ocarry != mtmp)
917.  	    panic("replmon: minvent inconsistency");
918.  #endif
919.  	otmp->ocarry = mtmp2;
920.      }
921.  
922.      relmon(mtmp);
923.      monfree(mtmp);
924.      place_monster(mtmp2, mtmp2->mx, mtmp2->my);
925.      if (mtmp2->wormno)	    /* update level.monsters[wseg->wx][wseg->wy] */
926.  	place_wsegs(mtmp2); /* locations to mtmp2 not mtmp. */
927.      if (emits_light(mtmp2->data)) {
928.  	/* since this is so rare, we don't have any `mon_move_light_source' */
929.  	new_light_source(mtmp2->mx, mtmp2->my,
930.  			 emits_light(mtmp2->data),
931.  			 LS_MONSTER, (genericptr_t)mtmp2);
932.  	/* here we rely on the fact that `mtmp' hasn't actually been deleted */
933.  	del_light_source(LS_MONSTER, (genericptr_t)mtmp);
934.      }
935.      mtmp2->nmon = fmon;
936.      fmon = mtmp2;
937.      if (u.ustuck == mtmp) u.ustuck = mtmp2;
938.      if (mtmp2->isshk) replshk(mtmp,mtmp2);
939.  }
940.  
941.  /* release mon from display and monster list */
942.  void
943.  relmon(mon)
944.  register struct monst *mon;
945.  {
946.  	register struct monst *mtmp;
947.  
948.  	if (fmon == (struct monst *)0)  panic ("relmon: no fmon available.");
949.  
950.  	remove_monster(mon->mx, mon->my);
951.  
952.  	if(mon == fmon) fmon = fmon->nmon;
953.  	else {
954.  		for(mtmp = fmon; mtmp && mtmp->nmon != mon; mtmp = mtmp->nmon) ;
955.  		if(mtmp)    mtmp->nmon = mon->nmon;
956.  		else	    panic("relmon: mon not in list.");
957.  	}
958.  }
959.  
960.  /* remove effects of mtmp from other data structures */
961.  static void
962.  m_detach(mtmp, mptr)
963.  struct monst *mtmp;
964.  struct permonst *mptr;	/* reflects mtmp->data _prior_ to mtmp's death */
965.  {
966.  	if(mtmp->mleashed) m_unleash(mtmp);
967.  	    /* to prevent an infinite relobj-flooreffects-hmon-killed loop */
968.  	mtmp->mtrapped = 0;
969.  	mtmp->mhp = 0; /* simplify some tests: force mhp to 0 */
970.  	relobj(mtmp, 0, FALSE);
971.  	relmon(mtmp);
972.  	if (emits_light(mptr))
973.  	    del_light_source(LS_MONSTER, (genericptr_t)mtmp);
974.  	newsym(mtmp->mx,mtmp->my);
975.  	unstuck(mtmp);
976.  	fill_pit(mtmp->mx, mtmp->my);
977.  
978.  	if(mtmp->isshk) shkgone(mtmp);
979.  	if(mtmp->wormno) wormgone(mtmp);
980.  }
981.  
982.  static void FDECL(lifesaved_monster, (struct monst *));
983.  
984.  static void
985.  lifesaved_monster(mtmp)
986.  struct monst *mtmp;
987.  {
988.  	struct obj *lifesave;
989.  
990.  	if (!nonliving(mtmp->data) && (lifesave = which_armor(mtmp, W_AMUL))
991.  			&& lifesave->otyp == AMULET_OF_LIFE_SAVING) {
992.  		/* not canseemon; amulets are on the head, so you don't want */
993.  		/* to show this for a long worm with only a tail visible. */
994.  		/* Nor do you check invisibility, because glowing and disinte- */
995.  		/* grating amulets are always visible. */
996.  		if (cansee(mtmp->mx, mtmp->my)) {
997.  			pline("But wait...");
998.  			pline("%s medallion begins to glow!",
999.  				s_suffix(Monnam(mtmp)));
1000. 			makeknown(AMULET_OF_LIFE_SAVING);
1001. 			pline("%s looks much better!", Monnam(mtmp));
1002. 			pline_The("medallion crumbles to dust!");
1003. 		}
1004. 		m_useup(mtmp, lifesave);
1005. 		if (mtmp->mhpmax <= 0) mtmp->mhpmax = 10;
1006. 		mtmp->mhp = mtmp->mhpmax;
1007. 		mtmp->mcanmove = 1;
1008. 		mtmp->mfrozen = 0;
1009. 		if (mtmp->mtame && !mtmp->isminion) {
1010. 			struct edog *edog = EDOG(mtmp);
1011. 			if (edog->hungrytime < moves+500)
1012. 				edog->hungrytime = moves+500;
1013. 		}
1014. 		if (mvitals[monsndx(mtmp->data)].mvflags & G_GENOD)
1015. 			pline("Unfortunately %s is still genocided...",
1016. 				mon_nam(mtmp));
1017. 		else
1018. 			return;
1019. 	}
1020. 	mtmp->mhp = 0;
1021. }
1022. 
1023. void
1024. mondead(mtmp)
1025. register struct monst *mtmp;
1026. {
1027. 	struct permonst *mptr;
1028. 	int tmp, lim;
1029. 
1030. 	if(mtmp->isgd) {
1031. 		/* if we're going to abort the death, it *must* be before
1032. 		 * the m_detach or there will be relmon problems later */
1033. 		if(!grddead(mtmp)) return;
1034. 	}
1035. 	lifesaved_monster(mtmp);
1036. 	if (mtmp->mhp > 0) return;
1037. 
1038. 	mptr = mtmp->data;		/* save this for m_detach() */
1039. 	/* restore chameleon, lycanthropes to true form at death */
1040. 	if (mtmp->cham)
1041. 	    set_mon_data(mtmp, &mons[PM_CHAMELEON], -1);
1042. 	else if (mtmp->data == &mons[PM_WEREJACKAL])
1043. 	    set_mon_data(mtmp, &mons[PM_HUMAN_WEREJACKAL], -1);
1044. 	else if (mtmp->data == &mons[PM_WEREWOLF])
1045. 	    set_mon_data(mtmp, &mons[PM_HUMAN_WEREWOLF], -1);
1046. 	else if (mtmp->data == &mons[PM_WERERAT])
1047. 	    set_mon_data(mtmp, &mons[PM_HUMAN_WERERAT], -1);
1048. 
1049. 	/* if MAXMONNO monsters of a given type have died, and it
1050. 	 * can be done, extinguish that monster.
1051. 	 *
1052. 	 * mvitals[].died does double duty as total number of dead monsters
1053. 	 * and as experience factor for the player killing more monsters.
1054. 	 * this means that a dragon dying by other means reduces the
1055. 	 * experience the player gets for killing a dragon directly; this
1056. 	 * is probably not too bad, since the player likely finagled the
1057. 	 * first dead dragon via ring of conflict or pets, and extinguishing
1058. 	 * based on only player kills probably opens more avenues of abuse
1059. 	 * for rings of conflict and such.
1060. 	 */
1061. 	tmp = monsndx(mtmp->data);
1062. 	if (mvitals[tmp].died < 255) mvitals[tmp].died++;
1063. 	lim = (tmp == PM_NAZGUL ? 9 : tmp == PM_ERINYS ? 3 : MAXMONNO);
1064. 	if ((int) mvitals[tmp].died > lim && !(mons[tmp].geno & G_NOGEN) &&
1065. 		!(mvitals[tmp].mvflags & G_EXTINCT)) {
1066. #ifdef DEBUG
1067. 		pline("Automatically extinguished %s.",
1068. 					makeplural(mons[tmp].mname));
1069. #endif
1070. 		mvitals[tmp].mvflags |= G_EXTINCT;
1071. 		reset_rndmonst(tmp);
1072. 	}
1073. #ifdef MAIL
1074. 	/* if the mail daemon dies, no more mail delivery.  -3. */
1075. 	else if (tmp == PM_MAIL_DAEMON) mvitals[tmp].mvflags |= G_GENOD;
1076. #endif
1077. 
1078. #ifdef KOPS
1079. 	if (mtmp->data->mlet == S_KOP) {
1080. 	    /* Dead Kops may come back. */
1081. 	    switch(rnd(5)) {
1082. 		case 1:	     /* returns near the stairs */
1083. 			(void) makemon(mtmp->data,xdnstair,ydnstair);
1084. 			break;
1085. 		case 2:	     /* randomly */
1086. 			(void) makemon(mtmp->data,0,0);
1087. 			break;
1088. 		default:
1089. 			break;
1090. 	    }
1091. 	}
1092. #endif
1093. 	if(mtmp->iswiz) wizdead();
1094. 	if(mtmp->data->msound == MS_NEMESIS) nemdead();
1095. 	m_detach(mtmp, mptr);
1096. 	monfree(mtmp);
1097. }
1098. 
1099. static boolean
1100. corpse_chance(mon)
1101. struct monst *mon;
1102. {
1103. 	struct permonst *mdat = mon->data;
1104. 
1105. 	if (mdat == &mons[PM_VLAD_THE_IMPALER] || mdat->mlet == S_LICH) {
1106. 		if (cansee(mon->mx, mon->my))
1107. 			pline("%s%ss body crumbles into dust.", Monnam(mon),
1108. 				canseemon(mon) ? "'" : "");
1109. 		return FALSE;
1110. 	}
1111. 
1112. 	/* must duplicate this below check in xkilled() since it results in
1113. 	 * creating no objects as well as no corpse
1114. 	 */
1115. 	if (
1116. #ifdef REINCARNATION
1117. 		 Is_rogue_level(&u.uz) ||
1118. #endif
1119. 	   (level.flags.graveyard && is_undead(mdat) && rn2(3)))
1120. 		return FALSE;
1121. 
1122. 	if (bigmonst(mdat) || mdat == &mons[PM_LIZARD]
1123. 		   || is_golem(mdat)
1124. 		   || is_mplayer(mdat)
1125. 		   || is_rider(mdat))
1126. 		return TRUE;
1127. 	return (boolean) (!rn2((int)
1128. 		(2 + ((int)(mdat->geno & G_FREQ)<2) + verysmall(mdat))));
1129. }
1130. 
1131. /* drop (perhaps) a cadaver and remove monster */
1132. void
1133. mondied(mdef)
1134. register struct monst *mdef;
1135. {
1136. 	mondead(mdef);
1137. 	if (mdef->mhp > 0) return;	/* lifesaved */
1138. 
1139. 	if (corpse_chance(mdef))
1140. 		(void) make_corpse(mdef);
1141. }
1142. 
1143. /* monster disappears, not dies */
1144. void
1145. mongone(mdef)
1146. register struct monst *mdef;
1147. {
1148. 	discard_minvent(mdef);	/* release monster's inventory */
1149. 	mdef->mgold = 0L;
1150. 	m_detach(mdef, mdef->data);
1151. 	monfree(mdef);
1152. }
1153. 
1154. /* drop a statue or rock and remove monster */
1155. void
1156. monstone(mdef)
1157. register struct monst *mdef;
1158. {
1159. 	struct obj *otmp, *obj;
1160. 	xchar x = mdef->mx, y = mdef->my;
1161. 
1162. 	/* we have to make the statue before calling mondead, to be able to
1163. 	 * put inventory in it, and we have to check for lifesaving before
1164. 	 * making the statue....
1165. 	 */
1166. 	lifesaved_monster(mdef);
1167. 	if (mdef->mhp > 0) return;
1168. 
1169. 	mdef->mtrapped = 0;	/* (see m_detach) */
1170. 
1171. 	if((int)mdef->data->msize > MZ_TINY ||
1172. 	   !rn2(2 + ((int) (mdef->data->geno & G_FREQ) > 2))) {
1173. 		otmp = mk_named_object(STATUE, mdef->data, x, y,
1174. 				       mdef->mnamelth ? NAME(mdef) : (char *)0);
1175. 		/* some objects may end up outside the statue */
1176. 		while ((obj = mdef->minvent) != 0) {
1177. 		    obj_extract_self(obj);
1178. 		    obj->owornmask = 0L;
1179. 		    if (obj->otyp == BOULDER ||
1180. #if 0				/* monsters don't carry statues */
1181.      (obj->otyp == STATUE && mons[obj->corpsenm].msize >= mdef->data->msize) ||
1182. #endif
1183. 				obj_resists(obj, 0, 0)) {
1184. 			if (flooreffects(obj, x, y, "fall")) continue;
1185. 			place_object(obj, x, y);
1186. 		    } else {
1187. 			if (obj->lamplit) end_burn(obj, TRUE);
1188. 			add_to_container(otmp, obj);
1189. 		    }
1190. 		}
1191. 		if (mdef->mgold) {
1192. 			struct obj *au;
1193. 			au = mksobj(GOLD_PIECE, FALSE, FALSE);
1194. 			au->quan = mdef->mgold;
1195. 			au->owt = weight(au);
1196. 			add_to_container(otmp, au);
1197. 			mdef->mgold = 0;
1198. 		}
1199. 		otmp->owt = weight(otmp);
1200. 	} else
1201. 		otmp = mksobj_at(ROCK, x, y, TRUE);
1202. 
1203. 	stackobj(otmp);
1204. 	if (cansee(x, y)) newsym(x,y);
1205. 	mondead(mdef);
1206. }
1207. 
1208. /* another monster has killed the monster mdef */
1209. void
1210. monkilled(mdef, fltxt, how)
1211. register struct monst *mdef;
1212. const char *fltxt;
1213. int how;
1214. {
1215. 	boolean be_sad = FALSE;		/* true if unseen pet is killed */
1216. 
1217. 	if ((mdef->wormno ? worm_known(mdef) : cansee(mdef->mx, mdef->my))
1218. 		&& fltxt)
1219. 	    pline("%s is %s%s%s!", Monnam(mdef),
1220. 			nonliving(mdef->data) ? "destroyed" : "killed",
1221. 		    *fltxt ? " by the " : "",
1222. 		    fltxt
1223. 		 );
1224. 	else
1225. 	    be_sad = (mdef->mtame != 0);
1226. 
1227. 	/* no corpses if digested or disintegrated */
1228. 	if(how == AD_DGST || how == -AD_RBRE)
1229. 	    mondead(mdef);
1230. 	else
1231. 	    mondied(mdef);
1232. 
1233. 	if (be_sad && mdef->mhp <= 0)
1234. 	    You("have a sad feeling for a moment, then it passes.");
1235. }
1236. 
1237. void
1238. unstuck(mtmp)
1239. register struct monst *mtmp;
1240. {
1241. 	if(u.ustuck == mtmp) {
1242. 		if(u.uswallow){
1243. 			u.ux = mtmp->mx;
1244. 			u.uy = mtmp->my;
1245. 			u.uswallow = 0;
1246. 			u.uswldtim = 0;
1247. 			if (Punished) placebc();
1248. 			vision_full_recalc = 1;
1249. 			docrt();
1250. 		}
1251. 		u.ustuck = 0;
1252. 	}
1253. }
1254. 
1255. void
1256. killed(mtmp)
1257. register struct monst *mtmp;
1258. {
1259. 	xkilled(mtmp, 1);
1260. }
1261. 
1262. /* the player has killed the monster mtmp */
1263. void
1264. xkilled(mtmp, dest)
1265. 	register struct monst *mtmp;
1266. /*
1267.  * Dest=1, normal; dest=0, don't print message; dest=2, don't drop corpse
1268.  * either; dest=3, message but no corpse
1269.  */
1270. 	int	dest;
1271. {
1272. 	register int tmp, x = mtmp->mx, y = mtmp->my;
1273. 	register struct permonst *mdat;
1274. 	int mndx;
1275. 	register struct obj *otmp;
1276. 	register struct trap *t;
1277. 	boolean redisp = FALSE;
1278. 	boolean wasinside = u.uswallow && (u.ustuck == mtmp);
1279. 
1280. 	if (dest & 1) {
1281. 	    if(!wasinside && !canspotmon(mtmp))
1282. 		You("destroy it!");
1283. 	    else {
1284. 		You("destroy %s!",
1285. 			mtmp->mtame ? x_monnam(mtmp, 0, "poor", 0)
1286. 			: mon_nam(mtmp));
1287. 	    }
1288. 	}
1289. 
1290. 	if (mtmp->mtrapped &&
1291. 	    ((t = t_at(x, y)) && (t->ttyp == PIT || t->ttyp == SPIKED_PIT)) &&
1292. 	    sobj_at(BOULDER, x, y))
1293. 		dest ^= 2; /*
1294. 			    * Prevent corpses/treasure being created "on top"
1295. 			    * of the boulder that is about to fall in. This is
1296. 			    * out of order, but cannot be helped unless this
1297. 			    * whole routine is rearranged.
1298. 			    */
1299. 
1300. 	/* dispose of monster and make cadaver */
1301. 	if(stoned) monstone(mtmp);
1302. 	else mondead(mtmp);
1303. 
1304. 	if (mtmp->mhp > 0) { /* monster lifesaved */
1305. 		/* Cannot put the non-visible lifesaving message in
1306. 		 * lifesaved_monster() since the message appears only when you
1307. 		 * kill it (as opposed to visible lifesaving which always
1308. 		 * appears).
1309. 		 */
1310. 		if (!cansee(x,y)) pline("Maybe not...");
1311. 		return;
1312. 	}
1313. 
1314. 	mdat = mtmp->data; /* note: mondead can change mtmp->data */
1315. 	mndx = monsndx(mdat);
1316. 
1317. 	if (stoned) {
1318. 		stoned = FALSE;
1319. 		goto cleanup;
1320. 	}
1321. 
1322. 	if((dest & 2)
1323. #ifdef REINCARNATION
1324. 		 || Is_rogue_level(&u.uz)
1325. #endif
1326. 	   || (level.flags.graveyard && is_undead(mdat) && rn2(3)))
1327. 		goto cleanup;
1328. 
1329. #ifdef MAIL
1330. 	if(mdat == &mons[PM_MAIL_DAEMON]) {
1331. 		stackobj(mksobj_at(SCR_MAIL, x, y, FALSE));
1332. 		redisp = TRUE;
1333. 	}
1334. #endif
1335. 	if(!accessible(x, y)) {
1336. 	    /* might be mimic in wall or dead eel or in a pool or lava */
1337. 	    redisp = TRUE;
1338. 	    if(wasinside) spoteffects();
1339. 	} else if(x != u.ux || y != u.uy) {
1340. 		/* might be here after swallowed */
1341. 		if (!rn2(6) && !(mvitals[mndx].mvflags & G_NOCORPSE)
1342. #ifdef KOPS
1343. 					&& mdat->mlet != S_KOP
1344. #endif
1345. 							) {
1346. 			int typ;
1347. 
1348. 			otmp = mkobj_at(RANDOM_CLASS, x, y, TRUE);
1349. 			/* Don't create large objects from small monsters */
1350. 			typ = otmp->otyp;
1351. 			if (mdat->msize < MZ_HUMAN && typ != FOOD_RATION
1352. 			    && typ != LEASH
1353. 			    && typ != FIGURINE
1354. 			    && (otmp->owt > 3 ||
1355. 				objects[typ].oc_big /*oc_bimanual/oc_bulky*/ ||
1356. 				objects[typ].oc_wepcat == WEP_SPEAR ||
1357. 				objects[typ].oc_wepcat == WEP_POLEARM ||
1358. 				typ == MORNING_STAR)) {
1359. 			    delobj(otmp);
1360. 			} else redisp = TRUE;
1361. 		}
1362. 		/* Whether or not it always makes a corpse is, in theory,
1363. 		 * different from whether or not the corpse is "special";
1364. 		 * if we want both, we have to specify it explicitly.
1365. 		 */
1366. 		if (corpse_chance(mtmp))
1367. 			(void) make_corpse(mtmp);
1368. 	}
1369. 	if(redisp) newsym(x,y);
1370. cleanup:
1371. 	/* punish bad behaviour */
1372. 	if(is_human(mdat) && (!always_hostile(mdat) && mtmp->malign <= 0) &&
1373. 	   (mndx < PM_ARCHEOLOGIST || mndx > PM_WIZARD) &&
1374. 	   u.ualign.type != A_CHAOTIC) {
1375. 		HTelepat &= ~INTRINSIC;
1376. 		change_luck(-2);
1377. 		if (Blind && !Telepat)
1378. 		    see_monsters(); /* Can't sense monsters any more. */
1379. 	}
1380. 	if((mtmp->mpeaceful && !rn2(2)) || mtmp->mtame)	change_luck(-1);
1381. 	if (mdat->mlet == S_UNICORN &&
1382. 				sgn(u.ualign.type) == sgn(mdat->maligntyp))
1383. 		change_luck(-5);
1384. 
1385. 	/* give experience points */
1386. 	tmp = experience(mtmp, (int)mvitals[mndx].died + 1);
1387. 	more_experienced(tmp, 0);
1388. 	newexplevel();		/* will decide if you go up */
1389. 
1390. 	/* adjust alignment points */
1391. 	if (mdat->msound == MS_LEADER)		/* REAL BAD! */
1392. 	    adjalign(-(u.ualign.record+(int)ALIGNLIM/2));
1393. 	else if (mdat->msound == MS_NEMESIS)	/* Real good! */
1394. 	    adjalign((int)(ALIGNLIM/4));
1395. 	else if (mdat->msound == MS_GUARDIAN)	/* Bad */
1396. 	    adjalign(-(int)(ALIGNLIM/8));
1397. 	else if (mtmp->ispriest) {
1398. 		adjalign((p_coaligned(mtmp)) ? -2 : 2);
1399. 		/* cancel divine protection for killing your priest */
1400. 		if (p_coaligned(mtmp)) u.ublessed = 0;
1401. 		if (mdat->maligntyp == A_NONE)
1402. 			adjalign((int)(ALIGNLIM / 4));		/* BIG bonus */
1403. 	} else if (mtmp->mtame)
1404. 		adjalign(-15);	/* bad!! */
1405. 	else if (mtmp->mpeaceful)
1406. 		adjalign(-5);
1407. 
1408. 	/* malign was already adjusted for u.ualign.type and randomization */
1409. 	adjalign(mtmp->malign);
1410. }
1411. 
1412. /* changes the monster into a stone monster of the same type */
1413. /* this should only be called when poly_when_stoned() is true */
1414. void
1415. mon_to_stone(mtmp)
1416.     register struct monst *mtmp;
1417. {
1418.     if(mtmp->data->mlet == S_GOLEM) {
1419. 	/* it's a golem, and not a stone golem */
1420. 	if(canseemon(mtmp))
1421. 	    pline("%s solidifies...", Monnam(mtmp));
1422. 	(void) newcham(mtmp, &mons[PM_STONE_GOLEM]);
1423. 	if(canseemon(mtmp))
1424. 	    pline("Now it's %s.", an(mtmp->data->mname));
1425.     } else
1426. 	impossible("Can't polystone %s!", a_monnam(mtmp));
1427. }
1428. 
1429. void
1430. mnexto(mtmp)	/* Make monster mtmp next to you (if possible) */
1431. 	struct monst *mtmp;
1432. {
1433. 	coord mm;
1434. 
1435. 	if(!enexto(&mm, u.ux, u.uy, mtmp->data)) return;
1436. 
1437. 	rloc_to(mtmp, mm.x, mm.y);
1438. }
1439. 
1440. /* mnearto()
1441.  * Put monster near (or at) location if possible.
1442.  * Returns:
1443.  *	1 - if a monster was moved from x, y to put mtmp at x, y.
1444.  *	0 - in most cases.
1445.  */
1446. boolean
1447. mnearto(mtmp,x,y,move_other)
1448. register struct monst *mtmp;
1449. xchar x, y;
1450. boolean move_other;	/* make sure mtmp gets to x, y! so move m_at(x, y) */
1451. {
1452. 	struct monst *othermon = (struct monst *)0;
1453. 	xchar newx, newy;
1454. 	coord mm;
1455. 
1456. 	if ((mtmp->mx == x) && (mtmp->my == y)) return(FALSE);
1457. 
1458. 	if (move_other && (othermon = m_at(x, y))) {
1459. 		if (othermon->wormno)
1460. 			remove_worm(othermon);
1461. 		else
1462. 			remove_monster(x, y);
1463. 	}
1464. 
1465. 	newx = x;
1466. 	newy = y;
1467. 
1468. 	if (!goodpos(newx, newy, mtmp, mtmp->data)) {
1469. 		/* actually we have real problems if enexto ever fails.
1470. 		 * migrating_mons that need to be placed will cause
1471. 		 * no end of trouble.
1472. 		 */
1473. 		if (!enexto(&mm, newx, newy, mtmp->data)) return(FALSE);
1474. 		newx = mm.x; newy = mm.y;
1475. 	}
1476. 
1477. 	rloc_to(mtmp, newx, newy);
1478. 
1479. 	if (move_other && othermon) {
1480. 	    othermon->mx = othermon->my = 0;
1481. 	    (void) mnearto(othermon, x, y, FALSE);
1482. 	    if ((othermon->mx != x) || (othermon->my != y))
1483. 		return(TRUE);
1484. 	}
1485. 
1486. 	return(FALSE);
1487. }
1488. 
1489. 
1490. static const char *poiseff[] = {
1491. 
1492. 	" feel weaker", "r brain is on fire",
1493. 	"r judgement is impaired", "r muscles won't obey you",
1494. 	" feel very sick", " break out in hives"
1495. };
1496. 
1497. void
1498. poisontell(typ)
1499. 
1500. 	int	typ;
1501. {
1502. 	pline("You%s.", poiseff[typ]);
1503. }
1504. 
1505. void
1506. poisoned(string, typ, pname, fatal)
1507. register const char *string, *pname;
1508. register int  typ, fatal;
1509. {
1510. 	register int i, plural;
1511. 	boolean thrown_weapon = !strncmp(string, "poison", 6);
1512. 		/* admittedly a kludge... */
1513. 
1514. 	if(strcmp(string, "blast") && !thrown_weapon) {
1515. 	    /* 'blast' has already given a 'poison gas' message */
1516. 	    /* so have "poison arrow", "poison dart", etc... */
1517. 	    plural = (string[strlen(string) - 1] == 's')? 1 : 0;
1518. 	    /* avoid "The" Orcus's sting was poisoned... */
1519. 	    pline("%s%s %s poisoned!", isupper(*string) ? "" : "The ",
1520. 			string, plural ? "were" : "was");
1521. 	}
1522. 
1523. 	if(Poison_resistance) {
1524. 		if(!strcmp(string, "blast")) shieldeff(u.ux, u.uy);
1525. 		pline_The("poison doesn't seem to affect you.");
1526. 		return;
1527. 	}
1528. 	i = rn2(fatal + 20*thrown_weapon);
1529. 	if(i == 0 && typ != A_CHA) {
1530. 		u.uhp = -1;
1531. 		pline_The("poison was deadly...");
1532. 	} else if(i <= 5) {
1533. 		pline("You%s!", poiseff[typ]);
1534. 		(void) adjattrib(typ, thrown_weapon ? -1 : -rn1(3,3), TRUE);
1535. 	} else {
1536. 		i = thrown_weapon ? rnd(6) : rn1(10,6);
1537. 		if(Half_physical_damage) i = (i+1) / 2;
1538. 		losehp(i, pname, KILLED_BY_AN);
1539. 	}
1540. 	if(u.uhp < 1) {
1541. 		killer_format = KILLED_BY_AN;
1542. 		killer = pname;
1543. 		done(POISONING);
1544. 	}
1545. 	(void) encumber_msg();
1546. }
1547. 
1548. /* monster responds to player action; not the same as a passive attack */
1549. /* assumes reason for response has been tested, and response _must_ be made */
1550. void
1551. m_respond(mtmp)
1552. register struct monst *mtmp;
1553. {
1554.     if(mtmp->data->msound == MS_SHRIEK) {
1555. 	if(flags.soundok) {
1556. 	    pline("%s shrieks.", Monnam(mtmp));
1557. 	    stop_occupation();
1558. 	}
1559. 	if (!rn2(10)) {
1560. 	    if (!rn2(13))
1561. 		(void) makemon(&mons[PM_PURPLE_WORM], 0, 0);
1562. 	    else
1563. 		(void) makemon((struct permonst *)0, 0, 0);
1564. 
1565. 	}
1566. 	aggravate();
1567.     }
1568.     if(mtmp->data == &mons[PM_MEDUSA] && !mtmp->mcan) {
1569. 	register int i;
1570. 	for(i = 0; i < NATTK; i++)
1571. 	     if(mtmp->data->mattk[i].aatyp == AT_GAZE) {
1572. 		 (void) gazemu(mtmp, &mtmp->data->mattk[i]);
1573. 		 break;
1574. 	     }
1575.     }
1576. }
1577. 
1578. #endif /* OVLB */
1579. #ifdef OVL2
1580. 
1581. void
1582. setmangry(mtmp)
1583. register struct monst *mtmp;
1584. {
1585. 	mtmp->mstrategy &= ~STRAT_WAITMASK;
1586. 	if(!mtmp->mpeaceful) return;
1587. 	if(mtmp->mtame) return;
1588. 	mtmp->mpeaceful = 0;
1589. 	if(mtmp->ispriest) {
1590. 		if(p_coaligned(mtmp)) adjalign(-5); /* very bad */
1591. 		else adjalign(2);
1592. 	} else
1593. 		adjalign(-1);		/* attacking peaceful monsters is bad */
1594. 	if(humanoid(mtmp->data) || mtmp->isshk || mtmp->isgd)
1595. 		pline("%s gets angry!", Monnam(mtmp));
1596. 	else if (flags.verbose && flags.soundok) growl(mtmp);
1597. 
1598. 	/* attacking your own quest leader will anger his or her guardians */
1599. 	if (!flags.mon_moving &&	/* should always be the case here */
1600. 		mtmp->data == &mons[quest_info(MS_LEADER)]) {
1601. 	    struct monst *mon;
1602. 	    struct permonst *q_guardian = &mons[quest_info(MS_GUARDIAN)];
1603. 	    int got_mad = 0;
1604. 
1605. 	    /* guardians will sense this attack even if they can't see it */
1606. 	    for (mon = fmon; mon; mon = mon->nmon)
1607. 		if (mon->data == q_guardian && mon->mpeaceful) {
1608. 		    mon->mpeaceful = 0;
1609. 		    if (canseemon(mon)) ++got_mad;
1610. 		}
1611. 	    if (got_mad && !Hallucination)
1612. 		pline_The("%s appear%s to be angry too...",
1613. 		      got_mad == 1 ? q_guardian->mname :
1614. 				    makeplural(q_guardian->mname),
1615. 		      got_mad == 1 ? "s" : "");
1616. 	}
1617. }
1618. 
1619. void
1620. wakeup(mtmp)
1621. register struct monst *mtmp;
1622. {
1623. 	mtmp->msleep = 0;
1624. 	mtmp->meating = 0;	/* assume there's no salvagable food left */
1625. 	setmangry(mtmp);
1626. 	if(mtmp->m_ap_type) seemimic(mtmp);
1627. }
1628. 
1629. /* Wake up nearby monsters. */
1630. void
1631. wake_nearby()
1632. {
1633. 	register struct monst *mtmp;
1634. 
1635. 	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
1636. 	    if (distu(mtmp->mx,mtmp->my) < u.ulevel*20) {
1637. 		if(mtmp->msleep)  mtmp->msleep = 0;
1638. 		if(mtmp->mtame)   EDOG(mtmp)->whistletime = moves;
1639. 	    }
1640. 	}
1641. }
1642. 
1643. /* Wake up monsters near some particular location. */
1644. void
1645. wake_nearto(x, y, distance)
1646. register int x, y, distance;
1647. {
1648. 	register struct monst *mtmp;
1649. 
1650. 	for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
1651. 	    if (mtmp->msleep && (distance == 0 ||
1652. 				 dist2(mtmp->mx, mtmp->my, x, y) < distance))
1653. 		mtmp->msleep = 0;
1654. 	}
1655. }
1656. 
1657. /* NOTE: we must check for mimicry before calling this routine */
1658. void
1659. seemimic(mtmp)
1660. register struct monst *mtmp;
1661. {
1662. 	/*
1663. 	 *  Discovered mimics don't block light.
1664. 	 */
1665. 	if ((mtmp->m_ap_type == M_AP_FURNITURE &&
1666. 		(mtmp->mappearance==S_hcdoor || mtmp->mappearance==S_vcdoor))||
1667. 	    (mtmp->m_ap_type == M_AP_OBJECT && mtmp->mappearance == BOULDER))
1668. 	    unblock_point(mtmp->mx,mtmp->my);
1669. 
1670. 	mtmp->m_ap_type = M_AP_NOTHING;
1671. 	mtmp->mappearance = 0;
1672. 	newsym(mtmp->mx,mtmp->my);
1673. }
1674. 
1675. /* force all chameleons to become normal */
1676. void
1677. rescham()
1678. {
1679. 	register struct monst *mtmp;
1680. 
1681. 	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
1682. 		if(mtmp->cham) {
1683. 			mtmp->cham = 0;
1684. 			(void) newcham(mtmp, &mons[PM_CHAMELEON]);
1685. 		}
1686. 		if(is_were(mtmp->data) && mtmp->data->mlet != S_HUMAN)
1687. 			new_were(mtmp);
1688. 		if(mtmp->m_ap_type && cansee(mtmp->mx, mtmp->my)) {
1689. 			seemimic(mtmp);
1690. 			/* we pretend that the mimic doesn't */
1691. 			/* know that it has been unmasked.   */
1692. 			mtmp->msleep = 1;
1693. 		}
1694. 	}
1695. }
1696. 
1697. /* Let the chameleons change again -dgk */
1698. void
1699. restartcham()
1700. {
1701. 	register struct monst *mtmp;
1702. 
1703. 	for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
1704. 		if (mtmp->data == &mons[PM_CHAMELEON])
1705. 			mtmp->cham = 1;
1706. 		if(mtmp->data->mlet == S_MIMIC && mtmp->msleep &&
1707. 				cansee(mtmp->mx, mtmp->my)) {
1708. 			set_mimic_sym(mtmp);
1709. 			newsym(mtmp->mx,mtmp->my);
1710. 		}
1711. 	}
1712. }
1713. 
1714. /* unwatched hiders may hide again; if so, a 1 is returned.  */
1715. STATIC_OVL boolean
1716. restrap(mtmp)
1717. register struct monst *mtmp;
1718. {
1719. 	if(mtmp->cham || mtmp->mcan || mtmp->m_ap_type ||
1720. 	   cansee(mtmp->mx, mtmp->my) || rn2(3) || (mtmp == u.ustuck))
1721. 		return(FALSE);
1722. 
1723. 	if(mtmp->data->mlet == S_MIMIC) {
1724. 		set_mimic_sym(mtmp);
1725. 		return(TRUE);
1726. 	} else
1727. 	    if(levl[mtmp->mx][mtmp->my].typ == ROOM)  {
1728. 		mtmp->mundetected = 1;
1729. 		return(TRUE);
1730. 	    }
1731. 
1732. 	return(FALSE);
1733. }
1734. 
1735. /* make a chameleon look like a new monster; returns 1 if it actually changed */
1736. int
1737. newcham(mtmp, mdat)
1738. register struct monst *mtmp;
1739. register struct permonst *mdat;
1740. {
1741. 	register int mhp, hpn, hpd;
1742. 	int mndx, tryct;
1743. 	struct permonst *olddata = mtmp->data;
1744. 
1745. 	/* mdat = 0 -> caller wants a random monster shape */
1746. 	tryct = 0;
1747. 	if(mdat == 0) {
1748. 		while (++tryct < 100) {
1749. 			mndx = rn1(SPECIAL_PM - LOW_PM, LOW_PM);
1750. 			mdat = &mons[mndx];
1751. 			/* polyok rules out all M2_PNAME and M2_WERE's */
1752. 			if (!is_human(mdat) && polyok(mdat)
1753. 					&& !is_placeholder(mdat)
1754. 					&& !(mvitals[mndx].mvflags & G_GENOD))
1755. 				break;
1756. 		}
1757. 		if (tryct >= 100) return(0); /* Should never happen */
1758. 	}
1759. 
1760. 	if(is_male(mdat)) {
1761. 		if(mtmp->female) mtmp->female = FALSE;
1762. 	} else if (is_female(mdat)) {
1763. 		if(!mtmp->female) mtmp->female = TRUE;
1764. 	} else if (!is_neuter(mdat)) {
1765. 		if(!rn2(10)) mtmp->female = !mtmp->female;
1766. 	}
1767. 
1768. 	if (In_endgame(&u.uz) && is_mplayer(olddata)) {
1769. 		/* mplayers start out as "Foo the Bar", but some of the
1770. 		 * titles are inappropriate when polymorphed, particularly
1771. 		 * into the opposite sex.  players don't use ranks when
1772. 		 * polymorphed, so dropping the rank for mplayers seems
1773. 		 * reasonable.
1774. 		 */
1775. 		char *p = index(NAME(mtmp), ' ');
1776. 		if (p) {
1777. 			*p = '\0';
1778. 			mtmp->mnamelth = p - NAME(mtmp) + 1;
1779. 		}
1780. 	}
1781. 
1782. 	if(mdat == mtmp->data) return(0);	/* still the same monster */
1783. 
1784. 	if(mtmp->wormno) {			/* throw tail away */
1785. 		wormgone(mtmp);
1786. 		place_monster(mtmp, mtmp->mx, mtmp->my);
1787. 	}
1788. 
1789. 	hpn = mtmp->mhp;
1790. 	hpd = (mtmp->m_lev < 50) ? ((int)mtmp->m_lev)*8 : mdat->mlevel;
1791. 	if(!hpd) hpd = 4;
1792. 
1793. 	mtmp->m_lev = adj_lev(mdat);		/* new monster level */
1794. 
1795. 	mhp = (mtmp->m_lev < 50) ? ((int)mtmp->m_lev)*8 : mdat->mlevel;
1796. 	if(!mhp) mhp = 4;
1797. 
1798. 	/* new hp: same fraction of max as before */
1799. #ifndef LINT
1800. 	mtmp->mhp = (int)(((long)hpn*(long)mhp)/(long)hpd);
1801. #endif
1802. 	if(mtmp->mhp < 0) mtmp->mhp = hpn;	/* overflow */
1803. /* Unlikely but not impossible; a 1HD creature with 1HP that changes into a
1804.    0HD creature will require this statement */
1805. 	if (!mtmp->mhp) mtmp->mhp = 1;
1806. 
1807. /* and the same for maximum hit points */
1808. 	hpn = mtmp->mhpmax;
1809. #ifndef LINT
1810. 	mtmp->mhpmax = (int)(((long)hpn*(long)mhp)/(long)hpd);
1811. #endif
1812. 	if(mtmp->mhpmax < 0) mtmp->mhpmax = hpn;	/* overflow */
1813. 	if (!mtmp->mhpmax) mtmp->mhpmax = 1;
1814. 
1815. 	/* take on the new form... */
1816. 	set_mon_data(mtmp, mdat, 0);
1817. 
1818. 	if (emits_light(olddata) != emits_light(mtmp->data)) {
1819. 	    /* used to give light, now doesn't, or vice versa,
1820. 	       or light's range has changed */
1821. 	    if (emits_light(olddata))
1822. 		del_light_source(LS_MONSTER, (genericptr_t)mtmp);
1823. 	    if (emits_light(mtmp->data))
1824. 		new_light_source(mtmp->mx, mtmp->my, emits_light(mtmp->data),
1825. 				 LS_MONSTER, (genericptr_t)mtmp);
1826. 	}
1827. 	mtmp->perminvis = pm_invisible(mdat);
1828. 	mtmp->minvis = mtmp->invis_blkd ? 0 : mtmp->perminvis;
1829. 	if (!(hides_under(mdat) && OBJ_AT(mtmp->mx, mtmp->my)) &&
1830. 			!(mdat->mlet == S_EEL && is_pool(mtmp->mx, mtmp->my)))
1831. 		mtmp->mundetected = 0;
1832. 	if (u.ustuck == mtmp) {
1833. 		if(u.uswallow) {
1834. 			if(!attacktype(mdat,AT_ENGL)) {
1835. 				/* Does mdat care? */
1836. 				if (!noncorporeal(mdat) && !amorphous(mdat) &&
1837. 				    !is_whirly(mdat) &&
1838. 				    (mdat != &mons[PM_YELLOW_LIGHT])) {
1839. 					You("break out of %s%s!", mon_nam(mtmp),
1840. 					    (is_animal(mdat)?
1841. 					    "'s stomach" : ""));
1842. 					mtmp->mhp = 1;  /* almost dead */
1843. 				}
1844. 				expels(mtmp, olddata, FALSE);
1845. 			}
1846. 		} else if (!sticks(mdat) && !sticks(uasmon))
1847. 			unstuck(mtmp);
1848. 	}
1849. 
1850. #ifndef DCC30_BUG
1851. 	if (mdat == &mons[PM_LONG_WORM] && (mtmp->wormno = get_wormno()) != 0) {
1852. #else
1853. 	/* DICE 3.0 doesn't like assigning and comparing mtmp->wormno in the
1854. 	 * same expression.
1855. 	 */
1856. 	if (mdat == &mons[PM_LONG_WORM] &&
1857. 		(mtmp->wormno = get_wormno(), mtmp->wormno != 0)) {
1858. #endif
1859. 	    /* we can now create worms with tails - 11/91 */
1860. 	    initworm(mtmp, rn2(5));
1861. 	    if (count_wsegs(mtmp))
1862. 		place_worm_tail_randomly(mtmp, mtmp->mx, mtmp->my);
1863. 	}
1864. 
1865. 	newsym(mtmp->mx,mtmp->my);
1866. 
1867. 	mon_break_armor(mtmp);
1868. 	if (!(mtmp->misc_worn_check & W_ARMG))
1869. 	    mselftouch(mtmp, "No longer petrify-resistant, ",
1870. 			!flags.mon_moving);
1871. 	possibly_unwield(mtmp);
1872. 	m_dowear(mtmp, FALSE);
1873. 
1874. 	/* This ought to re-test can_carry() on each item in the inventory
1875. 	 * rather than just checking ex-giants & boulders, but that'd be
1876. 	 * pretty expensive to perform.  If implemented, then perhaps
1877. 	 * minvent should be sorted in order to drop heaviest items first.
1878. 	 */
1879. 	/* former giants can't continue carrying boulders */
1880. 	if (mtmp->minvent && !throws_rocks(mdat)) {
1881. 	    register struct obj *otmp, *otmp2;
1882. 
1883. 	    for (otmp = mtmp->minvent; otmp; otmp = otmp2) {
1884. 		otmp2 = otmp->nobj;
1885. 		if (otmp->otyp == BOULDER) {
1886. 		    obj_extract_self(otmp);
1887. 		    /* probably ought to give some "drop" message here */
1888. 		    if (flooreffects(otmp, mtmp->mx, mtmp->my, "")) continue;
1889. 		    place_object(otmp, mtmp->mx, mtmp->my);
1890. 		}
1891. 	    }
1892. 	}
1893. 
1894. 	return(1);
1895. }
1896. 
1897. /* sometimes an egg will be special */
1898. #define BREEDER_EGG (!rn2(77))
1899. 
1900. /*
1901.  * Determine if the given monster number can be hatched from an egg.
1902.  * Return the monster number to use as the egg's corpsenm.  Return
1903.  * NON_PM if the given monster can't be hatched.
1904.  */
1905. int
1906. can_be_hatched(mnum)
1907. int mnum;
1908. {
1909.     mnum = little_to_big(mnum);
1910.     /*
1911.      * Queen bees lay killer bee eggs (usually), but killer bees don't
1912.      * grow into queen bees.  Ditto for [winged-]gargoyles.
1913.      */
1914.     if (mnum == PM_KILLER_BEE || mnum == PM_GARGOYLE ||
1915. 	    (lays_eggs(&mons[mnum]) && (BREEDER_EGG ||
1916. 		(mnum != PM_QUEEN_BEE && mnum != PM_WINGED_GARGOYLE))))
1917. 	return mnum;
1918.     return NON_PM;
1919. }
1920. 
1921. /* type of egg laid by #sit; usually matches parent */
1922. int
1923. egg_type_from_parent(mnum, force_ordinary)
1924. int mnum;	/* parent monster; caller must handle lays_eggs() check */
1925. boolean force_ordinary;
1926. {
1927.     if (force_ordinary || !BREEDER_EGG) {
1928. 	if (mnum == PM_QUEEN_BEE) mnum = PM_KILLER_BEE;
1929. 	else if (mnum == PM_WINGED_GARGOYLE) mnum = PM_GARGOYLE;
1930.     }
1931.     return mnum;
1932. }
1933. 
1934. /* decide whether an egg of the indicated monster type is viable; */
1935. /* also used to determine whether an egg or tin can be created... */
1936. boolean
1937. dead_species(m_idx, egg)
1938. int m_idx;
1939. boolean egg;
1940. {
1941. 	/*
1942. 	 * For monsters with both baby and adult forms, genociding either
1943. 	 * form kills all eggs of that monster.  Monsters with more than
1944. 	 * two forms (small->large->giant mimics) are more or less ignored;
1945. 	 * fortunately, none of them have eggs.  Species extinction due to
1946. 	 * overpopulation does not kill eggs.
1947. 	 */
1948. 	return (boolean)
1949. 		(m_idx >= LOW_PM &&
1950. 		 ((mvitals[m_idx].mvflags & G_GENOD) != 0 ||
1951. 		  (egg &&
1952. 		   (mvitals[big_to_little(m_idx)].mvflags & G_GENOD) != 0)));
1953. }
1954. 
1955. /* kill off any eggs of genocided monsters */
1956. static void
1957. kill_eggs(obj_list)
1958. struct obj *obj_list;
1959. {
1960. 	struct obj *otmp;
1961. 
1962. 	for (otmp = obj_list; otmp; otmp = otmp->nobj)
1963. 	    if (otmp->otyp == EGG) {
1964. 		if (dead_species(otmp->corpsenm, TRUE)) {
1965. 		    /*
1966. 		     * It seems we could also just catch this when
1967. 		     * it attempted to hatch, so we wouldn't have to
1968. 		     * search all of the objlists.. or stop all
1969. 		     * hatch timers based on a corpsenm.
1970. 		     */
1971. 		    kill_egg(otmp);
1972. 		}
1973. #if 0	/* not used */
1974. 	    } else if (otmp->otyp == TIN) {
1975. 		if (dead_species(otmp->corpsenm, FALSE))
1976. 		    otmp->corpsenm = NON_PM;	/* empty tin */
1977. 	    } else if (otmp->otyp == CORPSE) {
1978. 		if (dead_species(otmp->corpsenm, FALSE))
1979. 		    ;		/* not yet implemented... */
1980. #endif
1981. 	    } else if (Has_contents(otmp)) {
1982. 		kill_eggs(otmp->cobj);
1983. 	    }
1984. }
1985. 
1986. /* kill all members of genocided species */
1987. void
1988. kill_genocided_monsters()
1989. {
1990. 	struct monst *mtmp, *mtmp2;
1991. 	boolean kill_chameleons;
1992. 	int mndx;
1993. 
1994. 	kill_chameleons = (mvitals[PM_CHAMELEON].mvflags & G_GENOD) != 0;
1995. 	/*
1996. 	 * Called during genocide, and again upon level change.  The latter
1997. 	 * catches up with any migrating monsters as they finally arrive at
1998. 	 * their intended destinations, so possessions get deposited there.
1999. 	 *
2000. 	 * Chameleon handling:
2001. 	 *	1) if chameleons have been genocided, destroy them
2002. 	 *	   regardless of current form;
2003. 	 *	2) otherwise, force every chameleon which is imitating
2004. 	 *	   any genocided species to take on a new form.
2005. 	 */
2006. 	for (mtmp = fmon; mtmp; mtmp = mtmp2) {
2007. 	    mtmp2 = mtmp->nmon;
2008. 	    mndx = monsndx(mtmp->data);
2009. 	    if ((mvitals[mndx].mvflags & G_GENOD) ||
2010. 		    (mtmp->cham && kill_chameleons)) {
2011. 		if (mtmp->cham && !kill_chameleons)
2012. 		    (void) newcham(mtmp, (struct permonst *)0);
2013. 		else
2014. 		    mondead(mtmp);
2015. 	    }
2016. 	    if (mtmp->minvent) kill_eggs(mtmp->minvent);
2017. 	}
2018. 
2019. 	kill_eggs(invent);
2020. 	kill_eggs(fobj);
2021. 	kill_eggs(level.buriedobjlist);
2022. }
2023. 
2024. #endif /* OVL2 */
2025. #ifdef OVLB
2026. 
2027. void
2028. golemeffects(mon, damtype, dam)
2029. register struct monst *mon;
2030. int damtype, dam;
2031. {
2032. 	int heal=0, slow=0;
2033. 
2034. 	if (mon->data != &mons[PM_FLESH_GOLEM]
2035. 					&& mon->data != &mons[PM_IRON_GOLEM])
2036. 		return;
2037. 
2038. 	if (mon->data == &mons[PM_FLESH_GOLEM]) {
2039. 		if (damtype == AD_ELEC) heal = dam / 6;
2040. 		else if (damtype == AD_FIRE || damtype == AD_COLD) slow = 1;
2041. 	} else {
2042. 		if (damtype == AD_ELEC) slow = 1;
2043. 		else if (damtype == AD_FIRE) heal = dam;
2044. 	}
2045. 	if (slow) {
2046. 		if (mon->mspeed != MSLOW) {
2047. 			if (mon->mspeed == MFAST) mon->mspeed = 0;
2048. 			else mon->mspeed = MSLOW;
2049. 			if (cansee(mon->mx, mon->my))
2050. 				pline("%s seems to be moving slower.",
2051. 					Monnam(mon));
2052. 		}
2053. 	}
2054. 	if (heal) {
2055. 		if (mon->mhp < mon->mhpmax) {
2056. 			mon->mhp += dam;
2057. 			if (mon->mhp > mon->mhpmax) mon->mhp = mon->mhpmax;
2058. 			if (cansee(mon->mx, mon->my))
2059. 				pline("%s seems healthier.", Monnam(mon));
2060. 		}
2061. 	}
2062. }
2063. 
2064. boolean
2065. angry_guards(silent)
2066. register boolean silent;
2067. {
2068. 	register struct monst *mtmp;
2069. 	register int ct = 0, nct = 0, sct = 0, slct = 0;
2070. 
2071. 	for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
2072. 		if((mtmp->data == &mons[PM_WATCHMAN] ||
2073. 			       mtmp->data == &mons[PM_WATCH_CAPTAIN])
2074. 					&& mtmp->mpeaceful) {
2075. 			ct++;
2076. 			if(cansee(mtmp->mx, mtmp->my) && mtmp->mcanmove) {
2077. 				if (distu(mtmp->mx, mtmp->my) == 2) nct++;
2078. 				else sct++;
2079. 			}
2080. 			if(mtmp->msleep || mtmp->mfrozen) {
2081. 				slct++;
2082. 				mtmp->msleep = mtmp->mfrozen = 0;
2083. 			}
2084. 			mtmp->mpeaceful = 0;
2085. 		}
2086. 	}
2087. 	if(ct) {
2088. 	    if(!silent) { /* do we want pline msgs? */
2089. 		if(slct) pline_The("guard%s wake%s up!",
2090. 				 slct > 1 ? "s" : "", slct == 1 ? "s" : "");
2091. 		if(nct || sct) {
2092. 			if(nct) pline_The("guard%s get%s angry!",
2093. 				nct == 1 ? "" : "s", nct == 1 ? "s" : "");
2094. 			else if(!Blind)
2095. 				You("see %sangry guard%s approaching!",
2096. 				  sct == 1 ? "an " : "", sct > 1 ? "s" : "");
2097. 		} else if(flags.soundok)
2098. 			You_hear("the shrill sound of a guard's whistle.");
2099. 	    }
2100. 	    return(TRUE);
2101. 	}
2102. 	return(FALSE);
2103. }
2104. 
2105. void
2106. pacify_guards()
2107. {
2108. 	register struct monst *mtmp;
2109. 
2110. 	for (mtmp = fmon; mtmp; mtmp = mtmp->nmon) {
2111. 	    if (mtmp->data == &mons[PM_WATCHMAN] ||
2112. 		mtmp->data == &mons[PM_WATCH_CAPTAIN])
2113. 	    mtmp->mpeaceful = 1;
2114. 	}
2115. }
2116. #endif /* OVLB */
2117. 
2118. /*mon.c*/