//===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================new_4-4,148,169,4 script Poring Summoner 4W_M_03,{mes "[Poring Summoner]";if(getgroupid() < 10) { if(.Event) mes "There is no Poring Summon Event on now."; else { mes "There is a Poring Summon Event on now!"; mes "Location: " + .Map$; mes "Special Porings: " + .SpecialPorings[1]; mes "Normal Porings: " + .NormalPorings[0]; } end;}mes "Please customize the Poring Summon Event:";Main:next;mes "[Poring Summoner]"; switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) { case 1: mes "Which item would you like Special Porings to drop?"; mes "Please input the item ID:"; input .ItemID; goto Main; case 2: mes "How many Special Porings would you like me to summon?"; input .SpecialPorings; goto Main; case 3: mes "How many Normal Porings would you like me to summon?"; input .NormalPorings; goto Main; case 4: mes "Starting the event now...";OnMinute41: //Triggers at each new hour, so 1:30, 2:30, 3:30, 4:30 etc. set $@ran, rand(1,24); if ($@ran == 24) set .Map$,"morroc"; if ($@ran == 23) set .Map$,"geffen"; if ($@ran == 22) set .Map$,"payon"; if ($@ran == 21) set .Map$,"alberta"; if ($@ran == 20) set .Map$,"izlude"; if ($@ran == 19) set .Map$,"aldebaran"; if ($@ran == 18) set .Map$,"comodo"; if ($@ran == 17) set .Map$,"yuno"; if ($@ran == 16) set .Map$,"amatsu"; if ($@ran == 15) set .Map$,"gonryun"; if ($@ran == 14) set .Map$,"umbala"; if ($@ran == 13) set .Map$,"niflheim"; if ($@ran == 12) set .Map$,"louyang"; if ($@ran == 11) set .Map$,"jawaii"; if ($@ran == 10) set .Map$,"ayothaya"; if ($@ran == 9) set .Map$,"einbroch"; if ($@ran == 8) set .Map$,"lighthalzen"; if ($@ran == 7) set .Map$,"einbech"; if ($@ran == 6) set .Map$,"hugel"; if ($@ran == 5) set .Map$,"rachel"; if ($@ran == 4) set .Map$,"veins"; if ($@ran == 3) set .Map$,"moscovia"; if ($@ran == 2) set .Map$,"manuk"; if ($@ran == 1) set .Map$,"splendide"; set .Event,1; 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; OnInit: set .ItemID, 7539; set .NormalPorings,40; set .SpecialPorings,20; announce "Kill The Poring : The Poring Event has begin!",bc_all; sleep 5000; announce "Kill The Poring : Each special poring rewarded Poring Coin",bc_all; sleep 5000; announce "Location: " + .Map$,bc_all; sleep 5000; announce "Special Porings: " + .SpecialPorings,bc_all; sleep 5000; announce "Normal Porings: " + .NormalPorings,bc_all; sleep 5000; end; case 5: mes "Ending the event now..."; goto EndEvent; }OnTimer1800000: announce "Poring Summoner has ended. No one killed the Porings.",bc_all; killmonster .Map$,"All"; set .Event,0; stopnpctimer; end;OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map; getitem .ItemID,1; goto PoringCount;OnNormalKill: set .NormalPorings[1],.NormalPorings[1]-1; goto PoringCount;PoringCount: announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map; if(!.SpecialPorings[1]) goto EndEvent; end;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;}
hi all, im using this script. each time i @reloadscript, this npc will respawn poring at unknown place.
can someone make it not spawn after @reloadscript or make it spawn on specific map that I have set on the script ?
hi all, im using this script. each time i @reloadscript, this npc will respawn poring at unknown place.
can someone make it not spawn after @reloadscript or make it spawn on specific map that I have set on the script ?
Share this post
Link to post
Share on other sites