Help me for NPC Copy Skill (Shadow Caster)

[freak]

Hei, may I have your NPC Copy Skill script for Shadow Caster or Stalker? I have script like this.

 prontera,150,150,5    script    Stalker    909,{
if ( StalkerSkill != 0 )goto Remove_Skill;
if ( getskilllv(225) == 0 ) goto End_Talk;
if ( getskilllv(225) > 0 ) goto Start_Talk;
Remove_Skill:
    skill StalkerSkill,0,0;
    set StalkerSkill,0;
    dispbottom "[ Stalker NPC ] : Previous Skills has been Removed..";
    dispbottom "[ Stalker NPC ] : Even Skills Icons remained. But [ Un-Useable ]";
    end;
End_Talk:
    mes "[ ^FF0000Stalker NPC^000000 ]";
    mes "Please make sure you have the skills required to copy a skills.";
    close;
// -- Edit Format :   "<Skill Name>", for each case at a new line in order for a Better viewing..
Start_Talk:
mes "[ ^FF0000Stalker NPC^000000 ]";
mes "Choose which skills you want to copy..but a Payment will be charged for each skill you choose.";
next;
switch(select("Acid Demonstration",                // Case 1:
            "First Wind",                // Case 2:
            "Jack Frost",                // Case 3:
            "Sacrifice",                // Case 4:
            "Spear of Ice",                // Case 5:
            "Strom Gust")){                // Case 6:
            //"Aspersio",                    // Case 7:
            //"B.S Sacramenti",            // Case 8:
            //"Bowling Bash",                // Case 9:
            //"Backstab")){                // Case 10:
// -- Edit Format :  callsub S_CopySkill,<Skill ID>,<Skill Level 10>,<Skill Cost>;
// -- Leave the Level as 10 better.because after they relog ..they will auto get level 10 Skills.
// -- I think can add up to 128 Case. Which is 128 Skills choose-able~
// -- If you want it to announce then add "announce" at the back of <skill cost> like Case 10.
    case 1:    callsub S_CopySkill,4490,10,500000;                // Acid
    case 2:    callsub S_CopySkill,540,5,500000;                // First Wind
    case 3:    callsub S_CopySkill,2204,5,500000;                // Jack Frost
    case 4:    callsub S_CopySkill,368,5,500000;                // Sacrifice
    case 5:    callsub S_CopySkill,537,10,500000;                // Spear of Ice
    case 6:    callsub S_CopySkill,89,10,500000,"announce";                // Strom Gust
    //case 7:    callsub S_CopySkill,68,getskilllv(225),500000;                // Aspersio
    //case 8:    callsub S_CopySkill,69,getskilllv(225),500000;                // B.S Sacramenti
    //case 9:    callsub S_CopySkill,62,getskilllv(225),500000;                // Bowling Bash
    //case 10:    callsub S_CopySkill,212,getskilllv(225),500000,"announce";            // Backstab
    }
    
S_CopySkill:
    if ( Zeny < getarg(2)){
        mes "[ ^FF0000Stalker NPC^000000 ]";
        mes "You must have at least "+getarg(2)+" Zeny to get the Skill.";
        close;
        }
    skill getarg(0),getarg(1),0;
    set Zeny,Zeny-getarg(2);
    set StalkerSkill,getarg(0);
    dispbottom "[ Stalker NPC ] : New Skill fee is [ "+getarg(2)+" Zeny ].";
    dispbottom "[ Stalker NPC ] : Check Your Skill Tree Now..for the New Skill.";
    if (compare(getarg(3),"announce")) announce strcharinfo(0) + " has just obtained a new skill !!",bc_map;
    end;
//OnPCLoginEvent:
    //if ( StalkerSkill != 1 ){
    //skill StalkerSkill,getskilllv(225),0;
    //}
    //end;
    
}

 

 

 

but, when I get one skill and I go to dungeon or other city. My skill was dissapear. I hope you can help me. Thank before

Edited June 25, 2013 by Capuche
Script in Code for long content

[konakona]

Always use Preserve