Request Edit My Script

[rizkiolivia 0]

can some 1 help me for cooding this script. only party member can jumper...

 

 

 

 

 

// Created By ~ Rosemount

// Current Version ~ v1.1

 

payon,141,207,5    script    Detective Adam    853,{

if ( getgmlevel() >= 99 ) callsub staff;

if ( Zeny < $price) callsub no_zeny;

mes "Please Insert Name";

next;

input @names$;

setarray .GMNames$[0], "Admin","Helper","GM","Staff","Suppoter","Assistant","Rewind-RO";

for ( set @j, 0; @j < getarraysize(.GMNames$); set j, @j + 1)

if(compare(@names$,.GMNames$[@j])) {

mes "I failed to find location GM";

close;

}

set @selfname$,strcharinfo(0);

if ( @selfname$ == @names$ ) callsub self_Warp; // self warp message

if(getmapxy(.@mapname$,.@mapx,.@mapy,0,@names$)!=0) callsub not_found;

mes "===================================";

mes " - Player Name : ^FF0000"+@names$+"^000000";

mes "===================================";

mes " - Map Name : ^FF0000"+.@mapname$+"^000000";

mes "===================================";

mes " - Coordinate X : ^FF0000"+.@mapx+"^000000";

mes "===================================";

mes " - Coordinate Y : ^FF0000"+.@mapy+"^000000";

mes "===================================";

close2;

goto L_Menu;

 

L_Menu:

menu "~ Warp to [ "+@names$+" ]",L_Jump,"~ Not now",L_No;

 

staff:

switch(select("~ Setting Price:~ Check Price:~ Warp to:~ Cancel")) {

 

case 1:

mes "Cost Services";

input $price;

close2;

goto staff;

    

case 2:

mes ""+$price+" zeny";

close2;

goto staff;

 

case 3:

input @names$;

set @selfname$,strcharinfo(0);

if( @names$ == @selfname$) callsub self_Warp;

if(getmapxy(.@mapname$,.@mapx,.@mapy,0,@names$)!=0) callsub not_found;

warp .@mapname$,.@mapx,.@mapy;

end;

 

case 4:

close;

 

no_zeny:

mes "Cost Warp : ^FF0000"+$price+"^000000 Zeny";

mes "Current Zeny : ^0DB40D"+Zeny+"^000000 Zeny";

close;

 

not_found:

mes "I cannot find location of ^FF0000"+@names$+"^000000";

close;

 

self_Warp:

mes "What the fish you trying to do!";

close;

 

L_Jump:

set Zeny, Zeny - $price;

warp .@mapname$,.@mapx,.@mapy;

close;

 

L_No:

mes "Bla bla bla";

close;

 

}

}

[evilpuncker 503]

please use pastebin.com or something like that

[Oceanid 1]

Post in the original topic you made instead of making a new topic for the same script. For your original topic you can use this and modify it for what you want. http://pastebin.com/raw/rY7a4uvP

Edited April 20, 2016 by Oceanid

[rizkiolivia 0]

Help me edit this script. Only party member can jumper use this npc.

[bWolfie 138]

 

C'mon man, use the

 boxes or pastebin.

[Oceanid 1]

// Created By ~ Rosemount

// Current Version ~ v1.1

 

payon,141,207,5 script Detective Adam 853,{

if ( getgmlevel() >= 99 ) callsub staff;

if ( Zeny < $price) callsub no_zeny;

mes "Please Insert Name";

next;

input @names$;

set @selfname$,strcharinfo(0);

if ( @selfname$ == @names$ ) callsub self_Warp; // self warp message

if(getmapxy(.@mapname$,.@mapx,.@mapy,0,@names$)!=0) callsub not_found;

mes "===================================";

mes " - Player Name : ^FF0000"+@names$+"^000000";

mes "===================================";

mes " - Map Name : ^FF0000"+.@mapname$+"^000000";

mes "===================================";

mes " - Coordinate X : ^FF0000"+.@mapx+"^000000";

mes "===================================";

mes " - Coordinate Y : ^FF0000"+.@mapy+"^000000";

mes "===================================";

close2;

goto L_Menu;

 

L_Menu:

menu "~ Warp to [ "+@names$+" ]",L_Jump,"~ Not now",L_No;

 

staff:

switch(select("~ Setting Price:~ Check Price:~ Warp to:~ Cancel")) {

 

case 1:

mes "Cost Services";

input $price;

close2;

goto staff;

 

case 2:

mes ""+$price+" zeny";

close2;

goto staff;

 

case 3:

input @names$;

set @selfname$,strcharinfo(0);

if( @names$ == @selfname$) callsub self_Warp;

if(getmapxy(.@mapname$,.@mapx,.@mapy,0,@names$)!=0) callsub not_found;

warp .@mapname$,.@mapx,.@mapy;

end;

 

case 4:

close;

 

no_zeny:

mes "Cost Warp : ^FF0000"+$price+"^000000 Zeny";

mes "Current Zeny : ^0DB40D"+Zeny+"^000000 Zeny";

close;

 

not_found:

mes "I cannot find location of ^FF0000"+@names$+"^000000";

close;

 

self_Warp:

mes "What the fish you trying to do!";

close;

 

L_Jump:

if(getcharid(1,@names$) != getcharid(1,@selfname$)) {

mes "You can only warp to members of your party.";

close;

}else{

set Zeny, Zeny - $price;

warp .@mapname$,.@mapx,.@mapy;

close;

}

L_No:

mes "Bla bla bla";

close;

 

}

}

Edited April 20, 2016 by Oceanid

[mrlongshen 22]

@@True Zeal AHAHAHAHA ! damn your photo. 

@@rizkiolivia please use codebox..

Edited April 20, 2016 by mrlongshen

[rizkiolivia 0]

Thanks you very much..

 

Oceanid

 

and all...