yuno_pre,32,97,4	script	PoringInvasion	909,{
	if (getgmlevel() >= 99) goto poringadmin;
	end;

poringadmin:
		mes "[poringers]";
		mes "poring poring! ^FF0000~Hi GM " + strcharinfo(0) + ", Wanna play today?~^000000";
		mes "poring poring... poring! ^FF0000~Just tell me what to do!~^000000";
		switch(select("Start Event:Stop Event")) {
case 1:
	next;
	mes "[poringers]";
	mes "poring! ^FF0000~Sure thing!~^000000";
	emotion 33;
	close2;
	goto L_poringannounce;

case 2:
	next;
	mes "[poringers]";
	mes "poring poring poring...";
	close2;
	goto endingevent;
	end;
}

OnClock0900:
goto L_poringannounce;

L_poringannounce:
	set $@EventPorON,1;
	set $@EventPorONSes,$@EventPorONSes+1;
	donpcevent "PoringInvasion#evnt3::OnEnable";
	initnpctimer;
	end;

OnTimer3600000:
	set $@RoundCountPor,0;
	killmonster "prontera","All";
	announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
	stopnpctimer;
	removemapflag "prontera",mf_nomobloot;
	removemapflag "alberta",mf_nomobloot;
	removemapflag "aldebaran",mf_nomobloot;
	removemapflag "amatsu",mf_nomobloot;
	removemapflag "ayothaya",mf_nomobloot;
	removemapflag "comodo",mf_nomobloot;
	removemapflag "einbroch",mf_nomobloot;
	removemapflag "geffen",mf_nomobloot;
	removemapflag "gonryun",mf_nomobloot;
	removemapflag "hugal",mf_nomobloot;
	removemapflag "izlude",mf_nomobloot;
	removemapflag "jawaii",mf_nomobloot;
	removemapflag "lighthalzen",mf_nomobloot;
	removemapflag "louyang",mf_nomobloot;
	removemapflag "morocc",mf_nomobloot;
	removemapflag "payon",mf_nomobloot;
	set $@RoundCountPor,0;
	set $@EventPorON,0;
	end;

endingevent:
	set $@RoundCountPor,0;
	killmonster "prontera","All";
	announce "Poring forces have been able to overcome. Poring Invasion Event Done!",0;
	stopnpctimer;
	removemapflag "prontera",mf_nomobloot;
	removemapflag "alberta",mf_nomobloot;
	removemapflag "aldebaran",mf_nomobloot;
	removemapflag "amatsu",mf_nomobloot;
	removemapflag "ayothaya",mf_nomobloot;
	removemapflag "comodo",mf_nomobloot;
	removemapflag "einbroch",mf_nomobloot;
	removemapflag "geffen",mf_nomobloot;
	removemapflag "gonryun",mf_nomobloot;
	removemapflag "hugal",mf_nomobloot;
	removemapflag "izlude",mf_nomobloot;
	removemapflag "jawaii",mf_nomobloot;
	removemapflag "lighthalzen",mf_nomobloot;
	removemapflag "louyang",mf_nomobloot;
	removemapflag "morocc",mf_nomobloot;
	removemapflag "payon",mf_nomobloot;
	set $@RoundCountPor,0;
	set $@EventPorON,0;
	end;
}

//--------------------------------------------------
-	script	PoringInvasion#evnt3	-1,{
OnEnable:
announce "Poring family seems to have started angry because it continues to hurt ...",0;
sleep2 5000;
announce "They have begun approaching ...",0;
sleep2 5000;
announce "They are no longer as usual ...",0;
sleep2 5000;
announce "session "+ $@EventPorONSes +"Poring invasion begins!",0;
	goto L_Start;
	end;

L_Start:
switch( rand(16)) {
case 1:
	monster "prontera",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Prontera ...",0;
	setmapflag "prontera",mf_nomobloot;
	end;

case 2:
	monster "alberta",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Alberta ...",0;
	setmapflag "alberta",mf_nomobloot;
	end;

case 3:
	monster "aldebaran",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of AlDe Baran ...",0;
	setmapflag "aldebaran",mf_nomobloot;
	end;

case 4:
	monster "amatsu",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Amatsu ...",0;
	setmapflag "amatsu",mf_nomobloot;
	end;

case 5:
	monster "ayothaya",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Ayothaya ...",0;
	setmapflag "ayothaya",mf_nomobloot;
	end;

case 6:
	monster "comodo",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Comodo ...",0;
	setmapflag "comodo",mf_nomobloot;
	end;

case 7:
	monster "einbroch",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Einbroch ...",0;
	setmapflag "einbroch",mf_nomobloot;
	end;

case 8:
	monster "geffen",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Geffen ...",0;
	setmapflag "geffen",mf_nomobloot;
	end;

case 9:
	monster "gonryun",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Gonryun ...",0;
	setmapflag "gonryun",mf_nomobloot;
	end;

case 10:
	monster "hugel",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Hugal ...",0;
	setmapflag "hugal",mf_nomobloot;
	end;

case 11:
	monster "izlude",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Izlude ...",0;
	setmapflag "izlude",mf_nomobloot;
	end;

case 12:
	monster "jawaii",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Jawaii ...",0;
	setmapflag "jawaii",mf_nomobloot;
	end;

case 13:
	monster "lighthalzen",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Lighthalzen ...",0;
	setmapflag "lighthalzen",mf_nomobloot;
	end;

case 14:
	monster "louyang",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Louyang ...",0;
	setmapflag "louyang",mf_nomobloot;
	end;

case 15:
	monster "morocc",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Morocc ...",0;
	setmapflag "morocc",mf_nomobloot;
	end;

case 16:
	monster "payon",0,0,"Poring",1002,30,"PoringInvasionWin::OnMobKilled3";
	announce "They raid The city of Payon ...",0;
	setmapflag "payon",mf_nomobloot;
	end;

	}
end;
}

-	script	PoringInvasionWin	-1,{



OnMobKilled3:
if ($@EventPorON == 1) {
announce "Bronze Coin won by "+ strcharinfo(0) + ".",bc_all | bc_blue;
set $@RoundCountPor,$@RoundCountPor+1;
getitem 673,1;
end;
}
end;
}