Emistry's Stalker NPC skill failed on warp

[EL Dragon]

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

einbech,71,97,6	script	Stalker	747,{

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:
switch(select("Jupiter Thuner",				        // Case 1:
			"Heal",				        // Case 2:
			"Napalm Beat",				// Case 3:
			"Soul Strike",				// Case 4:
			"Cold Bolt",				// Case 5:
			"Frost Diver",				// Case 6:
			"Fire Ball",				// Case 7:
			"Fire Wall",			        // Case 8:
			"Fire Bolt",				// Case 9:
			"Lightning Bolt",			// Case 10:
			"Thunderstorm",				// Case 11:
			"Mammonite",				// Case 12:
			"Bowling Bash",				// Case 13:
			"Fire Pillar",				// Case 14:
			"Meteor Storm",				// Case 15:
			"Lord of Vermilion",		        // Case 16:
			"Storm Gust",				// Case 17:
			"Heaven's Drive",			// Case 18:
			"Earth Spike",				// Case 19:
			"Bomb",				        // Case 20:
			"Acid Terror",				// Case 21:
			"Grand Cross",				// Case 22:
			"Triple Attack",			// Case 23:
			"Pressure",			        // Case 24:
			"Crimson Fire Blossom",		        // Case 25:
			"Dragon Fire Formation",	        // Case 26:
			"Lightning Spear of Ice",	        // Case 27:
			"Falling Ice Pillar",		        // Case 28:
			"Wind Blade",				// Case 29:
			"North Wind")){				// Case 30:


// -- 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,84,10,0;				// Jupiter Thuner
	case 2:	callsub S_CopySkill,28,10,0;				// Heal
	case 3:	callsub S_CopySkill,11,10,0;				// Napalm Beat
	case 4:	callsub S_CopySkill,13,10,0;				// Soul Strike
	case 5:	callsub S_CopySkill,14,10,0;				// Cold Bolt
	case 6:	callsub S_CopySkill,15,10,0;				// Frost Diver
	case 7:	callsub S_CopySkill,17,10,0;				// Fire Ball
	case 8:	callsub S_CopySkill,18,10,0;				// Fire Wall
	case 9:	callsub S_CopySkill,19,10,0;				// Fire Bolt
	case 10: callsub S_CopySkill,20,10,0;				// Lightning Bolt
	case 11: callsub S_CopySkill,21,10,0;				// Thunderstorm
	case 12: callsub S_CopySkill,42,10,0;				// Mammonite
	case 13: callsub S_CopySkill,62,10,0;				// Bowling Bash
	case 14: callsub S_CopySkill,80,10,0;				// Fire Pillar
	case 15: callsub S_CopySkill,83,10,0;				// Meteor Storm
	case 16: callsub S_CopySkill,85,10,0;				// Lord of Vermilion
	case 17: callsub S_CopySkill,89,10,0;				// Storm Gust
	case 18: callsub S_CopySkill,91,10,0;				// Heaven's Drive
	case 19: callsub S_CopySkill,90,10,0;				// Earth Spike
	case 20: callsub S_CopySkill,229,5,0;				// Bomb
	case 21: callsub S_CopySkill,230,5,0;				// Acid Terror
	case 22: callsub S_CopySkill,254,10,0;				// Grand Cross
	case 23: callsub S_CopySkill,263,10,0;				// Triple Attack
	case 24: callsub S_CopySkill,367,5,0;				// Pressure
	case 25: callsub S_CopySkill,534,10,0;				// Crimson Fire Blossom
	case 26: callsub S_CopySkill,536,5,0;				// Dragon Fire Formation
	case 27: callsub S_CopySkill, 537,10,0;				// Lightning Spear of Ice
	case 28: callsub S_CopySkill,539,5,0;				// Falling Ice Pillar
	case 29: callsub S_CopySkill,540,10,0;				// Wind Blade
	case 30: callsub S_CopySkill,542,5,0;			// North Wind
	}
	
	
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 ] : Check Your Skill Tree Now..for the New Skill.";
close;
OnPCLoginEvent:
if ( StalkerSkill != 0 ){
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

pls help