Hades03 Posted May 20, 2012 Share Posted May 20, 2012 make it every 55mins ok ty Eathena.txt Quote Link to comment Share on other sites More sharing options...
Bahmut Posted May 20, 2012 Share Posted May 20, 2012 Here: //===== 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,1000; set .SpecialPorings,2; set .NormalPorings,2; //--------------------- initnpctimer; 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 Poring: " + .SpecialPorings[1] + " || Normal Poring: " + .NormalPorings[1],bc_map; if(!.SpecialPorings[1]) goto EndEvent; end; OnTimer216000000: RestartEvent: killmonster .Map$,"All"; set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; removemapflag .Map$,mf_noskill; set [email protected], rand(1,10); if ([email protected] == 10) set .Map$,"lighthalzen"; if ([email protected] == 9) set .Map$,"louyang"; if ([email protected] == 8) set .Map$,"comodo"; if ([email protected] == 7) set .Map$,"xmas"; if ([email protected] == 6) set .Map$,"aldebaran"; if ([email protected] == 5) set .Map$,"izlude"; if ([email protected] == 4) set .Map$,"payon"; if ([email protected] == 3) set .Map$,"geffen"; if ([email protected] == 2) set .Map$,"morocc"; if ([email protected] == 1) set .Map$,"prontera"; 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; end; } Quote Link to comment Share on other sites More sharing options...
Bahmut Posted May 20, 2012 Share Posted May 20, 2012 This should work. But I haven't tested it yet so report any error. Also I want to recommend you to learn the rA scripting language by yourself. Because you are requesting quite a lot of scripts lately. //===== rAthena Script ======================================= //= Poring Summoner //===== By: ================================================== //= Bahmut (Made it automated) //= MoonlightRO (Original) //===== Current Version: ===================================== //= 1.3 //===== 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,1000; set .SpecialPorings,2; set .NormalPorings,2; //--------------------- initnpctimer; 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 Poring: " + .SpecialPorings[1] + " || Normal Poring: " + .NormalPorings[1],bc_map; if(!.SpecialPorings[1]) goto EndEvent; end; OnTimer216000000: RestartEvent: killmonster .Map$,"All"; set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; set [email protected], rand(1,10); if ([email protected] == 10) set .Map$,"lighthalzen"; if ([email protected] == 9) set .Map$,"louyang"; if ([email protected] == 8) set .Map$,"comodo"; if ([email protected] == 7) set .Map$,"xmas"; if ([email protected] == 6) set .Map$,"aldebaran"; if ([email protected] == 5) set .Map$,"izlude"; if ([email protected] == 4) set .Map$,"payon"; if ([email protected] == 3) set .Map$,"geffen"; if ([email protected] == 2) set .Map$,"morocc"; if ([email protected] == 1) set .Map$,"prontera"; 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; end; } Quote Link to comment Share on other sites More sharing options...
v00m3r Posted May 20, 2012 Share Posted May 20, 2012 and is it possible when the event is on all skill are disabled? Quote Link to comment Share on other sites More sharing options...
v00m3r Posted May 21, 2012 Share Posted May 21, 2012 @Bahmut thank you!!! ^^ this is great.. Quote Link to comment Share on other sites More sharing options...
make it every 55mins ok ty
Eathena.txt
Link to comment
Share on other sites