a

//===== rAthena Script =======================================
//= Poring Summoner
//===== By: ==================================================
//= Bahmut (Made it automated)
//= MoonlightRO (Original)
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= TXT & SQL
//===== Link to orginal: =====================================
//= http://www.eathena.ws/board/index.php?showtopic=236779
//============================================================

-	script	Poring Summoner	-1,{

	OnInit:
		//---- NPC Config -----
		set .ItemID,7729;
		set .SpecialPorings,100;
		set .NormalPorings,300;
		//---------------------
		initnpctimer;
		end;

	OnSpecialKill:
		set .SpecialPorings[1],.SpecialPorings[1]-1;
		announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
		getitem .ItemID,2;
		getitem 674,1;
		goto PoringCount;

	OnNormalKill:
		set .NormalPorings[1],.NormalPorings[1]-1;
		goto PoringCount;

	PoringCount:
		announce "Special Poring: " + .SpecialPorings[1] + " || Normal Poring: " + .NormalPorings[1],bc_map;
		if(!.SpecialPorings[1]) goto EndEvent;
		end;

OnClock0400:
OnClock1000:
OnClock1600:
OnClock2200:
	RestartEvent:
		killmonster .Map$,"All";
		set .Event,0;
		set .SpecialPorings[1],0;
		set .NormalPorings[1],0;

		removemapflag .Map$,mf_noskill;
		set $@ran, rand(1,11);
		if ($@ran == 10) set .Map$,"lighthalzen";
		if ($@ran == 9) set .Map$,"louyang";
		if ($@ran == 8) set .Map$,"comodo";
		if ($@ran == 7) set .Map$,"xmas";
		if ($@ran == 6) set .Map$,"aldebaran";
		if ($@ran == 5) set .Map$,"izlude";
		if ($@ran == 4) set .Map$,"payon";
		if ($@ran == 3) set .Map$,"geffen";
		if ($@ran == 2) set .Map$,"morocc";
		if ($@ran == 1) set .Map$,"prontera";
		if ($@ran == 11) set .Map$,"pronguard";
		setmapflag .Map$,mf_noskill;
		monster .Map$,0,0,"Nekoling",3171,.SpecialPorings,"Poring Summoner::OnSpecialKill";
		monster .Map$,0,0,"Nekoling",3171,.NormalPorings,"Poring Summoner::OnNormalKill";
		set .SpecialPorings[1],.SpecialPorings;
		set .NormalPorings[1],.NormalPorings;
		announce "The Poring Event has begun!",bc_all;
		announce "Location: " + .Map$,bc_all;
		announce "Special Poring: " + .SpecialPorings,bc_all;
		announce "Normal Poring: " + .NormalPorings,bc_all;

		setnpctimer 0;
		end;
}