-	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;
}