BUILDIN_FUNC(homunculus_mutate)
{
    int homun_id, m_class, m_id;
    int homun_array = {6048,6049,6050,6051,6052};
    TBL_PC *sd;
 
    sd = script_rid2sd(st);
    if( sd == NULL )
        return 0;
 
    if(script_hasdata(st,2))
        homun_id = script_getnum(st,2);
    else
        homun_id = homun_array[rnd() % 5]:
 
    if(merc_is_hom_active(sd->hd)) {
        m_class = hom_class2mapid(sd->hd->homunculus.class_);
        m_id    = hom_class2mapid(homun_id);
        
        if ( m_class&HOM_EVO && m_id&HOM_S && sd->hd->homunculus.level >= 99 )
            hom_mutate(sd->hd, homun_id);
        else
            clif_emotion(&sd->hd->bl, E_SWT);
    }
    return 0;
}