//===== 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