Function thitm

src/trap.c:6710–6773

Monster is hit by trap. */

/* Monster is hit by trap. */
staticfn boolean
thitm(
    int tlev,          /* missile's attack level */
    struct monst *mon, /* target */
    struct obj *obj,   /* missile; might be Null */
    int d_override,    /* non-zero: force hit for this amount of damage */
    boolean nocorpse)  /* True: a trap is completely burning up the target */
{
    int strike;
    boolean trapkilled = FALSE;

    if (d_override)
        strike = 1;
    else if (obj)
        strike = (find_mac(mon) + tlev + obj->spe <= rnd(20));
    else
        strike = (find_mac(mon) + tlev <= rnd(20));

    /* Actually more accurate than thitu, which doesn't take
     * obj->spe into account.
     */
    if (!strike) {
        if (obj && cansee(mon->mx, mon->my))
            pline_mon(mon, "%s is almost hit by %s!",
                      Monnam(mon), doname(obj));
    } else {
        int dam = 1;
        boolean harmless = (obj && stone_missile(obj)
                            && passes_rocks(mon->data));

        if (obj && cansee(mon->mx, mon->my))
            pline_mon(mon, "%s is hit by %s%s",
                      Monnam(mon), doname(obj),
                      harmless ? " but is not harmed." : "!");
        if (d_override) {
            dam = d_override;
        } else if (obj) {
            dam = dmgval(obj, mon);
            if (dam < 1)
                dam = 1;
        }
        if (!harmless) {
            mon->mhp -= dam;
            if (mon->mhp <= 0) {
                int xx = mon->mx, yy = mon->my;

                monkilled(mon, "", nocorpse ? -AD_RBRE : AD_PHYS);
                if (DEADMONSTER(mon)) {
                    newsym(xx, yy);
                    trapkilled = TRUE;
                }
            }
        } else {
            strike = 0; /* harmless; don't use up the missile */
        }
    }
    if (obj && (!strike || d_override)) {
        place_object(obj, mon->mx, mon->my);