// Simple Invasion Script
// Originally Created by jKaizu
// FreestyleRO

-	script	10minuteinvasion	-1,{

OnInit:
	bindatcmd "inva",strnpcinfo(3)+"::OnStartInva";
	bindatcmd "invares",strnpcinfo(3)+"::OnResetInva";
	set .InvaID,1002;
	set .InvaMap$,"prontera";
	end;

OnStartInva:
OnMinute15:
OnMinute30:
OnMinute45:
OnMinute00:
	.InvaCount = 10;
	killmonsterall .InvaMap$,"all";
	announce "[ Invasion ]: "+.InvaCount+" "+getmonsterinfo(.InvaID,0)+" has been invaded the "+.InvaMap$+".",0;
	monster .InvaMap$,0,0,"Invasion Monster",.InvaID,.InvaCount,strnpcinfo(0)+"::OnParooDead";
	end;

OnParooDead:
	if(mobcount(.InvaMap$,"all") < 1) goto L_Done;
	set .InvaCount,-1;
	announce "[ "+strcharinfo(0)+" ] has killed 1 "+getmonsterinfo(.InvaID,0)+".",0;
	announce "( "+mobcount(.InvaMap$,"all")+" ) "+getmonsterinfo(.InvaID,0)+" left in "+.InvaMap$+".",0;
	end;

L_Done:
	announce "[ "+strcharinfo(0)+" ] has killed the last "+getmonsterinfo(.InvaID,0)+".",0;
	announce "[ Invasion ]: Event has ended.",0;
	end;
}