Invasion Bug

[Ninjamon]

//===== rAthena Script =======================================
//= Poring Summoner
//===== By: ==================================================
//= Bahmut (Made it automated)
//= MoonlightRO (Original)
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= TXT & SQL
//===== Link to orginal: =====================================
//= [url="http://www.eathena.ws/board/index.php?showtopic=236779"]http://www.eathena.w...howtopic=236779[/url]
//============================================================
-	script	PoringSummoner	-1,{
OnInit:
	//---- NPC Config -----
	set .SpecialPorings,20;
	set .NormalPorings,100;
	//---------------------
	initnpctimer;
	end;
 
OnSpecialKill:
	set .SpecialPorings[1],.SpecialPorings[1]-1;
	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
	getitem .ItemID,7711,1;
	//set PoringPoint,PoringPoint+1;
	dispbottom "You got 1 Event Ticket";
	//dispbottom "Total Poring Points:"+PoringPoint;
	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;
 
OnMinute45:



RestartEvent:
	set .Event,0;
	set .SpecialPorings[1],0;
	set .NormalPorings[1],0;
	
	removemapflag .Map$,mf_noskill;
	set $@ran, rand(1,9);
	if ($@ran == 9) set .Map$,"lighthalzen";
	if ($@ran == 8) set .Map$,"louyang";
	if ($@ran == 7) set .Map$,"comodo";
	if ($@ran == 6) set .Map$,"xmas";
	if ($@ran == 5) set .Map$,"aldebaran";
	if ($@ran == 4) set .Map$,"payon";
	if ($@ran == 3) set .Map$,"geffen";
	if ($@ran == 2) set .Map$,"morocc";
	if ($@ran == 1) set .Map$,"prontera";
	killmonster .Map$,"All";
	setmapflag .Map$,mf_noskill;
	monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";
	monster .Map$,0,0,"Poring",1002,.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;
	close;

EndEvent:
	if(.Event) announce "The Poring Summon Event is now over!",bc_all;
	killmonster .Map$,"All";
	set .Event,0;
	set .SpecialPorings[1],0;
	set .NormalPorings[1],0;
	end;
}

Killmonster doesn't work when the event is over. Any help perhaps?

up

up

[Promise]

Any error on the console?

[Ninjamon]

There is none but it doesn't kill the monster after the event.