Function dobuzz

src/zap.c:4779–5037

* type == 0 to 9 : you zapping a wand * type == 10 to 19 : you casting a spell * type == 20 to 29 : you breathing as a monster * type == -10 to -19 : monster casting spell * type == -20 to -29 : monster breathing at you * type == -30 to -39 : monster zapping a wand * called with dx = dy = 0 for vertical bolts */

 * called with dx = dy = 0 for vertical bolts
 */
void
dobuzz(
    int type,               /* 0..29 (by hero) or -39..-10 (by monster) */
    int nd,                 /* damage strength ('number of dice') */
    coordxy sx, coordxy sy, /* starting point */
    int dx, int dy,         /* direction delta */
    boolean sayhit, boolean saymiss, /* report out of sight hit/miss events */
    boolean forcemiss)
{
    int range, fltyp = zaptype(type), damgtype = fltyp % 10;
    coordxy lsx, lsy;
    struct monst *mon;
    coord save_bhitpos;
    boolean shopdamage = FALSE,
            fireball = (type == ZT_SPELL(ZT_FIRE)), /* set once */
            gas_hit = FALSE; /* will be set during each iteration */
    struct obj *otmp;
    int spell_type;
    int hdmgtype = Hallucination ? rn2(6) : damgtype;

    /* if it's a hero spell then get its SPE_TYPE */
    spell_type = is_hero_spell(type) ? SPE_MAGIC_MISSILE + damgtype : 0;

    if (u.uswallow) {
        int tmp;

        if (type < 0)
            return;
        tmp = zhitm(u.ustuck, type, nd, &otmp);
        if (!u.ustuck) {
            u.uswallow = 0;
        } else {
            pline("%s rips into %s%s", The(flash_str(fltyp, FALSE)),
                  mon_nam(u.ustuck), exclam(tmp));
            /* Using disintegration from the inside only makes a hole... */
            if (tmp == MAGIC_COOKIE)
                u.ustuck->mhp = 0;
            if (DEADMONSTER(u.ustuck))
                killed(u.ustuck);
        }
        return;
    }
    if (type < 0)
        newsym(u.ux, u.uy);
    range = rn1(7, 7);
    if (dx == 0 && dy == 0)
        range = 1;
    save_bhitpos = gb.bhitpos;

    tmp_at(DISP_BEAM, zapdir_to_glyph(dx, dy, hdmgtype));
    while (range-- > 0) {
        lsx = sx;
        sx += dx;
        lsy = sy;
        sy += dy;
        if (!isok(sx, sy) || levl[sx][sy].typ == STONE)
            goto make_bounce;