Fix: pet kills of unique monsters were missing from the livelog.

Unique-monster death livelogs are written in mondead(), gated on the
player_killed/pet_killer statics. Two systemic problems: many pet-kill
paths (breath and wand rays, thrown projectiles, beheading, passive
counterattacks, petrification, explosions, gas clouds, psychic waves)
never called set_pet_killer(), silently dropping the livelog entry,
and monkilled() never cleared player_killed afterward, so a later
death that reached mondead()/mondied() directly (drowning, traps)
could inherit the stale flag and write a spurious "killed <unique>"
entry. Rework the flow so mondead() snapshots and clears both statics
on entry: attribution is set immediately before a death call and can
never leak past it.

* src/mon.c:
  - mondead() consumes player_killed/pet_killer into locals as its
    first statements; the livelog block reads only the snapshot and
    its gate becomes (hero kill || pet kill).
  - monkilled() no longer converts or resets the flags; xkilled()
    sets player_killed immediately before its death dispatch (it
    previously set it before an early return that could leak TRUE)
    and drops its now-redundant tail resets.
  - monstone() clears attribution at its two early returns that
    skip mondead() (vampshifter revert, lifesaved).
  - corpse_chance() credits a swallowed pet gas spore that rips
    its engulfer open.
  - m_detach() clears the new exploder global like buzzer/thrower.

* src/zap.c:
  - credit the beam originator (buzzer) at the dobuzz() beam kill,
    disintegrate_mon(), the resist() m_using kill, and the clay
    golem death in cancel_monst() - tame dragon breath and pet
    wand zaps now livelog.
  - zap_over_floor() poison gas clouds pass an explicit creator;
    the hero predicate matches the old set_heros_fault() logic so
    hero credit for spell-explosion and trap-beam clouds is
    unchanged.

* src/muse.c: set buzzer around every mbhit()-based wand zap (not
  just the buzz-type wands) so striking/cancellation deaths can be
  attributed; muse_unslime()'s scroll-of-fire explosion and the
  monster stinking-cloud scroll thread the responsible monster.

* src/mthrowu.c: ohitmon() credits the throwing pet at its kill
  site and around potionhit() (cleared afterward since the potion
  may not kill).

* src/mhitm.c:
  - credit pets for beheading and 1-in-30 deadly poison kills
    (both previously bare mondied()), the armor-material sear in
    missmm(), every passivemm() counterattack kill including the
    assess_dmg tail, and all four monster-vs-monster petrification
    sites (monstone() now reaches the livelog with attribution).
  - the gray dragon-scaled armor passive cancel passed
    youattack=TRUE in a monster-vs-monster context, handing the
    hero credit and blame when it killed a clay golem attacker;
    pass FALSE and credit the wearer instead.
  - wrap the melee and passive-hide cancellation calls so a tame
    canceller gets credit for a clay golem death.

* src/monmove.c: credit a tame mind flayer's psychic wave kills;
  mb_trapped() door-trap blasts and hezrou stench clouds thread
  the responsible monster.

* src/eat.c: eat_brains() credits a tame petrifier when the brain
  eater turns to stone.

* src/explode.c, src/decl.c, include/decl.h: new exploder global
  (same lifecycle as buzzer/thrower, saved and restored around
  nested calls so chained gas spore blasts keep the right actor);
  mon_explodes() sets it after its internal mondead() so
  m_detach() does not clear it; the explode() monkilled branch
  credits a tame exploder.

* src/mcastu.c, src/artifact.c: thread the caster/wielder through
  the acid blast, fire/ice bolt, and Tempest/Harbinger/Dichotomy
  surge explosions.

* src/region.c, include/region.h, include/extern.h, src/read.c,
  src/mkmaze.c: create_gas_cloud() takes an explicit creator
  (&youmonst, a monster, or NULL for environment) and records a
  creator m_id in NhRegion for pet credit at the gas cloud kill
  site. The new field is deliberately not saved (both allocators
  zero the struct), so the save format is unchanged; attribution
  is dropped across save/reload.

* src/spell.c: the spell 'Power Word Kill' used monkilled(), denying XP,
  conduct effects, and the livelog for a directly targeted hero kill;
  use xkilled().

Delayed-death attribution (withering, zombie sickness, disease,
petrification timers) still only tracks hero-vs-not bits; per-monster
source tracking needs new saved fields and is left for a future
save-breaking version.

Author: k21971

doc/evilhack-changelog.md

@@ -5537,4 +5537,5 @@ The following changes to date are:
 - Fix: double m_detach when monster-cast dispel evil kills
 - Fix: hidden water lurker reveal said "under the something"
 - Accidental bumps into unseen peacefuls cost luck, not alignment
+- Fix: pet kills of unique monsters were missing from the livelog
 

include/decl.h

@@ -308,7 +308,8 @@ E NEARDATA struct u_realtime urealtime;
 
 E NEARDATA const struct monst zeromonst; /* for init of new or temp monsters */
 E NEARDATA struct monst youmonst; /* monster details when hero is poly'd */
-E NEARDATA struct monst *mydogs, *migrating_mons, *buzzer, *thrower;
+E NEARDATA struct monst *mydogs, *migrating_mons, *buzzer, *thrower,
+                        *exploder;
 E NEARDATA struct monst* ukiller;
 
 E NEARDATA struct mvitals {

include/extern.h

@@ -2410,7 +2410,8 @@ E void FDECL(show_region, (NhRegion *, XCHAR_P, XCHAR_P));
 E void FDECL(save_regions, (int, int));
 E void FDECL(rest_regions, (int, BOOLEAN_P));
 E void FDECL(region_stats, (const char *, char *, long *, long *));
-E NhRegion *FDECL(create_gas_cloud, (XCHAR_P, XCHAR_P, int, int));
+E NhRegion *FDECL(create_gas_cloud, (XCHAR_P, XCHAR_P, int, int,
+                                     struct monst *));
 E boolean NDECL(region_danger);
 E void NDECL(region_safety);
 

include/region.h

@@ -61,6 +61,12 @@ typedef struct {
     int glyph;       /* Which glyph to use if visible */
     anything arg;    /* Optional user argument (Ex: strength of
                         force field, damage of a fire zone, ...*/
+    unsigned int creator_mid; /* m_id of the monster that created this
+                                 region (0 = hero or environment), for
+                                 pet kill attribution; deliberately NOT
+                                 saved/restored (both create_region and
+                                 rest_regions zero the struct), so
+                                 attribution is dropped across reload */
 } NhRegion;
 
 /* Size caps used by rest_regions() to reject corrupt save prefixes */

src/artifact.c

@@ -2201,6 +2201,7 @@ int dieroll; /* needed for Magicbane and vorpal blades */
     char hittee[BUFSZ];
     struct artifact *atmp;
     struct obj *target;
+    struct monst *save_exploder;
     int j, k, l, permdmg = 0;
     int hurtle_distance;
     boolean def_underwater;
@@ -2481,11 +2482,14 @@ int dieroll; /* needed for Magicbane and vorpal blades */
             } else {
                 pline("A massive surge of energy courses through the %s!",
                       simpleonames(otmp));
+                save_exploder = exploder;
+                exploder = magr;
                 explode(youdefend ? u.ux : mdef->mx,
                         youdefend ? u.uy : mdef->my,
                         (youattack ? ZT_BREATH(ZT_LIGHTNING)
                                    : -ZT_BREATH(ZT_LIGHTNING)), d(6, 6),
                         (youattack ? 0 : MON_CASTBALL), EXPL_SHOCK);
+                exploder = save_exploder;
                 return TRUE;
             }
         }
@@ -2665,11 +2669,14 @@ int dieroll; /* needed for Magicbane and vorpal blades */
             } else {
                 pline("A surge of acid flows through the %s!",
                       simpleonames(otmp));
+                save_exploder = exploder;
+                exploder = magr;
                 explode(youdefend ? u.ux : mdef->mx,
                         youdefend ? u.uy : mdef->my,
                         (youattack ? ZT_BREATH(ZT_ACID)
                                    : -ZT_BREATH(ZT_ACID)), d(6, 6),
                         (youattack ? 0 : MON_CASTBALL), EXPL_ACID);
+                exploder = save_exploder;
                 return TRUE;
             }
         }
@@ -2982,21 +2989,27 @@ int dieroll; /* needed for Magicbane and vorpal blades */
             } else if (rn2(2)) {
                 if (!(resists_fire(mdef) || defended(mdef, AD_FIRE))) {
                     pline("A surge of flame flows through the blade!");
+                    save_exploder = exploder;
+                    exploder = magr;
                     explode(youdefend ? u.ux : mdef->mx,
                             youdefend ? u.uy : mdef->my,
                             (youattack ? ZT_BREATH(ZT_FIRE)
                                        : -ZT_BREATH(ZT_FIRE)), d(4, 6),
                             (youattack ? 0 : MON_CASTBALL), EXPL_FIERY);
+                    exploder = save_exploder;
                     return TRUE;
                 }
             } else {
                 if (!(resists_cold(mdef) || defended(mdef, AD_COLD))) {
                     pline("A surge of frost flows through the blade!");
+                    save_exploder = exploder;
+                    exploder = magr;
                     explode(youdefend ? u.ux : mdef->mx,
                             youdefend ? u.uy : mdef->my,
                             (youattack ? ZT_BREATH(ZT_COLD)
                                        : -ZT_BREATH(ZT_COLD)), d(4, 6),
                             (youattack ? 0 : MON_CASTBALL), EXPL_FROSTY);
+                    exploder = save_exploder;
                     return TRUE;
                 }
             }

src/decl.c

@@ -261,6 +261,11 @@ NEARDATA struct monst *migrating_mons = (struct monst *) 0;
 NEARDATA struct monst *buzzer = (struct monst *) 0;
 /* monster throwing/firing/thrusting a weapon at the hero (for thitu()) */
 NEARDATA struct monst *thrower = (struct monst *) 0;
+/* monster responsible for the current explode() call, for crediting
+   pet-caused explosion kills; same tight set/clear discipline as
+   buzzer/thrower, with callers saving and restoring the previous value
+   so chained explosions (gas spores) cannot inherit the wrong actor */
+NEARDATA struct monst *exploder = (struct monst *) 0;
 NEARDATA struct autopickup_exception *apelist =
                             (struct autopickup_exception *)0;
 

src/eat.c

@@ -641,6 +641,8 @@ int *dmg_p; /* for dishing out extra damage in lieu of Int loss */
                mind flayers don't have those capabilities */
             if (visflag && canseemon(magr))
                 pline("%s turns to stone!", Monnam(magr));
+            if (mdef->mtame)
+                set_pet_killer(mdef);
             monstone(magr);
             if (!DEADMONSTER(magr)) {
                 /* life-saved; don't continue eating the brains */

src/explode.c

@@ -542,6 +542,8 @@ int expltype;
                            left; adtyp itself must NOT be mutated --
                            later iterations and the post-loop player
                            block still read it */
+                        if (exploder && exploder->mtame)
+                            set_pet_killer(exploder);
                         monkilled(mtmp, "",
                                   xkflg ? -AD_RBRE : (int) adtyp);
                     }
@@ -1005,6 +1007,7 @@ mon_explodes(mon, mattk)
 struct monst *mon;
 struct attack *mattk;
 {
+    struct monst *save_exploder;
     int dmg;
     int type;
     if (mattk->damn)
@@ -1036,8 +1039,15 @@ struct attack *mattk;
     Sprintf(killer.name, "%s explosion", s_suffix(mon->data->mname));
     killer.format = KILLED_BY_AN;
 
+    /* credit the exploding monster for blast kills (set after the
+       mondead() above so m_detach() doesn't clear it; a dead pet is
+       still valid for the mtame check until dmonsfree()); save and
+       restore so a chained explosion cannot clobber an outer one */
+    save_exploder = exploder;
+    exploder = mon;
     explode(mon->mx, mon->my, type, dmg, MON_EXPLODE,
             adtyp_to_expltype(mattk->adtyp));
+    exploder = save_exploder;
 
     /* reset killer */
     killer.name[0] = '\0';

src/mcastu.c

@@ -1010,6 +1010,7 @@ struct monst *caster, *target;
 int dmg, spellnum;
 short learned_otyp; /* pre-selected learned spell, or 0 */
 {
+    struct monst *save_exploder;
     boolean yours = (caster == &youmonst);
     boolean youdefend = (target == &youmonst);
     boolean seecaster = (yours || canseemon(caster)
@@ -1151,8 +1152,11 @@ short learned_otyp; /* pre-selected learned spell, or 0 */
         if (youdefend) {
             if (seecaster)
                 pline("%s douses you in a torrent of acid!", Monnam(caster));
+            save_exploder = exploder;
+            exploder = caster;
             explode(u.ux, u.uy, ZT_ACID, d((ml / 2) + 4, 8),
                     MON_CASTBALL, EXPL_ACID);
+            exploder = save_exploder;
             if (how_resistant(ACID_RES) == 100) {
                 shieldeff(u.ux, u.uy);
                 pline("The acid dissipates harmlessly.");
@@ -1172,9 +1176,12 @@ short learned_otyp; /* pre-selected learned spell, or 0 */
             else if (seecaster)
                 pline("%s douses %s in a torrent of acid!",
                       Monnam(caster), mon_nam(target));
+            save_exploder = exploder;
+            exploder = caster;
             explode(target->mx, target->my, ZT_ACID,
                     d((ml / 2) + 4, 8),
                     yours ? 0 : MON_CASTBALL, EXPL_ACID);
+            exploder = save_exploder;
             if (DEADMONSTER(target)) {
                 dmg = 0;
                 break;
@@ -1457,12 +1464,15 @@ short learned_otyp; /* pre-selected learned spell, or 0 */
             if (seecaster)
                 pline("%s blasts you with %s!", Monnam(caster),
                       (spellnum == MGC_FIRE_BOLT) ? "fire" : "ice");
+            save_exploder = exploder;
+            exploder = caster;
             explode(u.ux, u.uy,
                     (spellnum == MGC_FIRE_BOLT) ? ZT_FIRE : ZT_COLD,
                     resist_reduce(d((ml / 5) + 1, 8),
                                   (spellnum == MGC_FIRE_BOLT) ? FIRE_RES : COLD_RES),
                     MON_CASTBALL,
                     (spellnum == MGC_FIRE_BOLT) ? EXPL_FIERY : EXPL_FROSTY);
+            exploder = save_exploder;
             if (how_resistant((spellnum == MGC_FIRE_BOLT) ? FIRE_RES : COLD_RES) == 100) {
                 shieldeff(u.ux, u.uy);
                 monstseesu((spellnum == MGC_FIRE_BOLT) ? M_SEEN_FIRE : M_SEEN_COLD);
@@ -1477,11 +1487,14 @@ short learned_otyp; /* pre-selected learned spell, or 0 */
             else if (seecaster)
                 pline("%s blasts %s with %s!", Monnam(caster), mon_nam(target),
                       (spellnum == MGC_FIRE_BOLT) ? "fire" : "ice");
+            save_exploder = exploder;
+            exploder = caster;
             explode(target->mx, target->my,
                     (spellnum == MGC_FIRE_BOLT) ? ZT_FIRE : ZT_COLD,
                     d((ml / 5) + 1, 8),
                     yours ? 0 : MON_CASTBALL,
                     (spellnum == MGC_FIRE_BOLT) ? EXPL_FIERY : EXPL_FROSTY);
+            exploder = save_exploder;
             if (DEADMONSTER(target)) {
                 dmg = 0;
                 break;