Chocolate Posted September 2, 2013 Posted September 2, 2013 //===== 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 Poring Summoner -1,{ OnInit: //---- NPC Config ----- set .SpecialPorings,100; set .NormalPorings,0; //--------------------- initnpctimer; end; OnSpecialKill: set .SpecialPorings[1],.SpecialPorings[1]-1; announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map; // getitem .ItemID,1; set PoringPoint,PoringPoint+1; dispbottom "You got 1 Poring Point"; 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; OnClock1200: OnClock1600: OnClock2000: OnClock0000: OnClock0400: OnClock0800: RestartEvent: set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; removemapflag .Map$,mf_noskill; set $@ran, rand(1,10); 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; end; } here's the script and here's the error Quote
Emistry Posted September 2, 2013 Posted September 2, 2013 you dont have this label in the script.. EndEvent: // blablabalbalbala end; perhap you removed it ?? Quote
Chocolate Posted September 2, 2013 Author Posted September 2, 2013 you dont have this label in the script.. EndEvent: // blablabalbalbala end; perhap you removed it ?? where i suppose to add that? Quote
Emistry Posted September 2, 2013 Posted September 2, 2013 you should go get the original script ... Quote
Chocolate Posted September 2, 2013 Author Posted September 2, 2013 cannot find the original this was modified. Quote
Question
Chocolate
here's the script
and here's the error
4 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.