Help Disable jump to PVP map anda Woe Map

[rizkiolivia 0]

// 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;

 

OnInit:

OnTimer1000:

delwaitingroom;

waitingroom "Cost "+$price+" Zeny",0;

goto Masa;

end;

break;

 

Masa:

initnpctimer;

}

}