viewing paste HatredReset | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
-       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;
}
Viewed 829 times, submitted by Dastgir.