Stalker NPC

[Unknown]

prontera,155,180,5    script    dksfsdfkb    100,{
    mes "select which skill you want to be copy, your existing one will be overwrite";
    next;
    set .@menu, select(.menu$) -1;
    if ( getskilllv(.skill$[.@menu * 3 +1]) ) {
        mes "you already copied that skill";
        close;
    }
    mes "are you sure you want to copy "+ .skill$[.@menu * 3] +"?";
    mes "you'll need to relogin again";
    next;
    if ( select ( "Yes", "No" ) == 2 ) close;
    set CLONE_SKILL, .skill$[.@menu * 3 +1];
    set CLONE_SKILL_LV, .skill$[.@menu * 3 +2];
    atcommand "@kick "+ strcharinfo(0);
    end;
OnInit:
    setarray .skill$, 
        "< Remove >", 0, 0,
        "Fire Bolt", 19, 10,
        "Cold Bolt", 14, 10,
        "Lightning Bolt", 20, 10;
    set .@skillsize, getarraysize(.skill$);
    for ( set .@i,0; .@i < .@skillsize; set .@i, .@i +3 )
        set .menu$, .menu$ + .skill$[.@i] +":";
    end;
}

Is it possible to choose the lvl of the skill you want to copy (like: Please, select the skill you want to copy. next; Please, select its level)? Since that NPC only teaches you lvl 10 skills. Also... Once I log out the copied skill doesn't disappear x__x can someone help me? Thanks in advance!

[Unknown]

bump...

[Capuche]

prontera,155,180,5 script dksfsdfkb 100,{

mes "select which skill you want to be copy, your existing one will be overwrite";

next;

set .@menu, select(.menu$) -1;

if ( getskilllv(.skill$[.@menu * 3 +1]) ) {

mes "you already copied that skill";

close;

}

mes "are you sure you want to copy "+ .skill$[.@menu * 3] +"?";

mes "you'll need to relogin again";

next;

if ( select ( "Yes", "No" ) == 2 ) close;

.@text$ = atoi( .skill$[.@menu * 3 +2] ) > 1 ? "-" + .skill$[.@menu * 3 +2] : "" ;

mes "choose a level (1" + .@text$ + ")";

if ( input( .@input, 1, ( atoi( .skill$[.@menu * 3 +2] ) > 1 ? atoi( .skill$[.@menu * 3 +2] ) : 1 )) != 0 ) {

mes "wrong level";

close;

}

set CLONE_SKILL, atoi( .skill$[.@menu * 3 +1] );

set CLONE_SKILL_LV, .@input;

atcommand "@kick "+ strcharinfo(0);

end;

OnInit:

setarray .skill$,

// "< Remove >", 0, 0,

"Fire Bolt", 19, 10,

"Cold Bolt", 14, 10,

"Lightning Bolt", 20, 10;

set .@skillsize, getarraysize(.skill$);

for ( set .@i,0; .@i < .@skillsize; set .@i, .@i +3 )

set .menu$, .menu$ + .skill$[.@i] +":";

end;

}

[Unknown]

Thanks!

[XoXoX]

prontera,155,180,5	script	dksfsdfkb	100,{
	mes "select which skill you want to be copy, your existing one will be overwrite";
	next;
	set .@menu, select(.menu$) -1;
	if ( getskilllv(.skill$[.@menu * 3 +1]) ) {
		mes "you already copied that skill";
		close;
	}
	mes "are you sure you want to copy "+ .skill$[.@menu * 3] +"?";
	mes "you'll need to relogin again";
	next;
	if ( select ( "Yes", "No" ) == 2 ) close;
	.@text$ = atoi( .skill$[.@menu * 3 +2] ) > 1 ? "-" + .skill$[.@menu * 3 +2] : "" ;
	mes "choose a level (1" + .@text$ + ")";
	if ( input( .@input, 1, ( atoi( .skill$[.@menu * 3 +2] ) > 1 ? atoi( .skill$[.@menu * 3 +2] ) : 1 )) != 0 ) {
		mes "wrong level";
		close;
	}
	set CLONE_SKILL, atoi( .skill$[.@menu * 3 +1] );
	set CLONE_SKILL_LV, .@input;
	atcommand "@kick "+ strcharinfo(0);
	end;
OnInit:
	setarray .skill$, 
		// "< Remove >", 0, 0,
		"Fire Bolt", 19, 10,
		"Cold Bolt", 14, 10,
		"Lightning Bolt", 20, 10;
	set .@skillsize, getarraysize(.skill$);
	for ( set .@i,0; .@i < .@skillsize; set .@i, .@i +3 )
		set .menu$, .menu$ + .skill$[.@i] +":";
	end;
}

 

Possible to add last skill menu, Last skill the player has copied?

[Capuche]

Yes it's possible, you just need to save the index of the menu and the skill level for example in a variable.

[johnbond]

prontera,155,180,5	script	dksfsdfkb	100,{
	mes "select which skill you want to be copy, your existing one will be overwrite";
	next;
	set .@menu, select(.menu$) -1;
	if ( getskilllv(.skill$[.@menu * 3 +1]) ) {
		mes "you already copied that skill";
		close;
	}
	mes "are you sure you want to copy "+ .skill$[.@menu * 3] +"?";
	mes "you'll need to relogin again";
	next;
	if ( select ( "Yes", "No" ) == 2 ) close;
	.@text$ = atoi( .skill$[.@menu * 3 +2] ) > 1 ? "-" + .skill$[.@menu * 3 +2] : "" ;
	mes "choose a level (1" + .@text$ + ")";
	if ( input( .@input, 1, ( atoi( .skill$[.@menu * 3 +2] ) > 1 ? atoi( .skill$[.@menu * 3 +2] ) : 1 )) != 0 ) {
		mes "wrong level";
		close;
	}
	set CLONE_SKILL, atoi( .skill$[.@menu * 3 +1] );
	set CLONE_SKILL_LV, .@input;
	atcommand "@kick "+ strcharinfo(0);
	end;
OnInit:
	setarray .skill$, 
		// "< Remove >", 0, 0,
		"Fire Bolt", 19, 10,
		"Cold Bolt", 14, 10,
		"Lightning Bolt", 20, 10;
	set .@skillsize, getarraysize(.skill$);
	for ( set .@i,0; .@i < .@skillsize; set .@i, .@i +3 )
		set .menu$, .menu$ + .skill$[.@i] +":";
	end;
}

 

 

Wow this is nice Mr. Capuche.

 

But can you debugg this for me because I get an error when I run it using 3ceam.

script error on npc/extras/stalker.txt line 15
    parse_line: expect command, missing function name or calling undeclared func
tion
    10 :        }
    11 :        mes "are you sure you want to copy "+ .skill$[.@menu * 3] +"?";
    12 :        mes "you'll need to relogin again";
    13 :        next;
    14 :        if ( select ( "Yes", "No" ) == 2 ) close;
*   15 :        '.'@text$ = atoi( .skill$[.@menu * 3 +2] ) > 1 ? "-" + .skill$[.
@menu * 3 +2] : "" ;
    16 :        mes "choose a level (1" + .@text$ + ")";
    17 :        if ( input( .@input, 1, ( atoi( .skill$[.@menu * 3 +2] ) > 1 ? a
toi( .skill$[.@menu * 3 +2] ) : 1 )) != 0 ) {
    18 :                mes "wrong level";
    19 :                close;
    20 :        }

Thank you sir.

[Capuche]

Please read

http://rathena.org/board/topic/78263-scripting-faqtipstricks/?p=267219

It's better if you learn to solve this common issue