I need help with the "Poring Summoner" script

[Chocolate]

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

[Capuche]

I don't understand your request. Can you re-explain ?

[Chocolate]

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

[GmOcean]

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