Chocolate Posted August 29, 2013 Group: Members Topic Count: 14 Topics Per Day: 0.00 Content Count: 59 Reputation: 4 Joined: 08/28/13 Last Seen: April 4, 2015 Share Posted August 29, 2013 (edited) //===== 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.w...howtopic=236779 //============================================================ - 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; OnTimer3300000: RestartEvent: set .Event,0; set .SpecialPorings[1],0; set .NormalPorings[1],0; removemapflag .Map$,mf_noskill; set $@ran, rand(1,10); if ($@ran == 10) set .Map$,"lighthalzen"; if ($@ran == 9) set .Map$,"louyang"; if ($@ran == 8) set .Map$,"comodo"; if ($@ran == 7) set .Map$,"xmas"; if ($@ran == 6) set .Map$,"aldebaran"; if ($@ran == 5) set .Map$,"izlude"; 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; } i was wondering if its possible to add teleport for special poring 3~5sec before the special poring teleports Edited August 29, 2013 by Xynvaroth Changed topic title to a more informative one. Quote Link to comment Share on other sites More sharing options...
Capuche Posted August 29, 2013 Group: Developer Topic Count: 10 Topics Per Day: 0.00 Content Count: 2407 Reputation: 613 Joined: 07/05/12 Last Seen: May 20 Share Posted August 29, 2013 I don't understand your request. Can you re-explain ? Quote Link to comment Share on other sites More sharing options...
Chocolate Posted August 30, 2013 Group: Members Topic Count: 14 Topics Per Day: 0.00 Content Count: 59 Reputation: 4 Joined: 08/28/13 Last Seen: April 4, 2015 Author Share Posted August 30, 2013 (edited) I don't understand your request. Can you re-explain ? Okay...as what you see i can disable normal porings in the settings so special poring have ability to teleport 3~5sec its like a mvp when you hitting him he will teleport or if he is idle for 3~10sec special poring will teleport Sorry for miss tpys using phone bump Edited August 30, 2013 by Chocolate Quote Link to comment Share on other sites More sharing options...
GmOcean Posted August 31, 2013 Group: Members Topic Count: 31 Topics Per Day: 0.01 Content Count: 666 Reputation: 93 Joined: 04/27/12 Last Seen: August 17, 2015 Share Posted August 31, 2013 (edited) To do that, you need to make a new monster in your mob_db2, and just have it copy poring stats completely, sprite and all. Then you need to give it the proper skills in mob_skill_db after that, it's just making the script spawn your new poring instead of normal porings. For further help regarding this, go to the Database Support section. Edited August 31, 2013 by Lionhardt Quote Link to comment Share on other sites More sharing options...
Question
Chocolate
//= Poring Summoner
//===== By: ==================================================
//= Bahmut (Made it automated)
//= MoonlightRO (Original)
//===== Current Version: =====================================
//= 1.4
//===== Compatible With: =====================================
//= TXT & SQL
//===== Link to orginal: =====================================
//= http://www.eathena.w...howtopic=236779
//============================================================
- 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;
OnTimer3300000:
RestartEvent:
set .Event,0;
set .SpecialPorings[1],0;
set .NormalPorings[1],0;
removemapflag .Map$,mf_noskill;
set $@ran, rand(1,10);
if ($@ran == 10) set .Map$,"lighthalzen";
if ($@ran == 9) set .Map$,"louyang";
if ($@ran == 8) set .Map$,"comodo";
if ($@ran == 7) set .Map$,"xmas";
if ($@ran == 6) set .Map$,"aldebaran";
if ($@ran == 5) set .Map$,"izlude";
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;
}
Changed topic title to a more informative one.
Link to comment
Share on other sites
3 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.