Function set_mon_data

src/mondata.c:12–38

set up an individual monster's base type (initial creation, shapechange) */

/* set up an individual monster's base type (initial creation, shapechange) */
void
set_mon_data(struct monst *mon, struct permonst *ptr)
{
    int new_speed, old_speed = mon->data ? mon->data->mmove : 0;
    short *movement_p = (mon == &gy.youmonst) ? &u.umovement : &mon->movement;

    mon->data = ptr;
    mon->mnum = (short) monsndx(ptr);

    if (*movement_p) { /* used to adjust poly'd hero as well as monsters */
        new_speed = ptr->mmove;
        /* prorate unused movement if new form is slower so that
           it doesn't get extra moves leftover from previous form;
           if new form is faster, leave unused movement as is */
        if (new_speed < old_speed) {
            /*
             * Some static analysis warns that this might divide by 0
               mon->movement = new_speed * mon->movement / old_speed;
             * so add a redundant test to suppress that.
             */
            *movement_p *= new_speed;
            if (old_speed > 0) /* old > new and new >= 0, so always True */
                *movement_p /= old_speed;
        }
    }
    return;
}

/* does monster-type have any attack for a specific type of damage? */
struct attack *