-   script  hatred_reset    -1,{
OnInit:
    bindatcmd("hatredreset",strnpcinfo(3)+"::OnReset");
    end;
OnReset:
    mes "Are you sure you want to reset Hatred?";
    if (select("Yes:No")==2)
        close;
    next;
    mes "Reset Done";
    PC_HATE_MOB_SUN = 0;
    PC_HATE_MOB_MOON = 0;
    PC_HATE_MOB_STAR = 0;
    close;
}