// --------------------------------------------------------------------------------------------* 
//                                                                                             //
// ______                                           _                                          // 
// | ___ \                                         | |                                         //
// | |_/ /___  ___  ___ _ __ ___   ___  _   _ _ __ | |_                                        //
// |    // _ \/ __|/ _ \ '_ ` _ \ / _ \| | | | '_ \| __|                                       // 
// | |\ \ (_) \__ \  __/ | | | | | (_) | |_| | | | | |_                                        //
// \_| \_\___/|___/\___|_| |_| |_|\___/ \__,_|_| |_|\__|                                       //
//                                                                                             //
//                                         _____           _       _                           //
//                                        /  ___|         (_)     | |                          //
//                                        \ `--.  ___ _ __ _ _ __ | |_                         //
//                                         `--. \/ __| '__| | '_ \| __|                        //
//                                        /\__/ / (__| |  | | |_) | |_                         //
//                                        \____/ \___|_|  |_| .__/ \__|                        //
//                                                          | |                                //
//                                                          |_|                                //
// --------------------------------------------------------------------------------------------*
//					Create By ~ Rosemount				       //
//					Current Version ~ v1.0	                               //
//					Tested ~ Latest Rathena                                //
// --------------------------------------------------------------------------------------------*

prontera,148,175,5	script	Detective Adam	853,{
if ( getgmlevel() >= 99 ) callsub staff;
if ( Zeny < $price) callsub no_zeny;
set Zeny, Zeny - $price;
mes "Please Insert Name";
next;
input @names$;
set @gmname$,"Co Admin"; // Staff name
set @gmname2$,"Kuda"; // Staff name
set @adminname$,"Admin"; // staff name
set @selfname$,strcharinfo(0);
if ( @selfname$ == @names$ ) callsub self_Warp; // self warp message
if ( @adminname$ == @names$ ) callsub Jump_GM; // warp to gm message
if ( @gmname$ == @names$ ) callsub Jump_GM; // warp to gm message
if ( @gmname2$ == @names$ ) callsub Jump_GM;
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;
close;

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;

Jump_GM:
mes "I Failed to find location GM";
close;

self_Warp:
mes "What the fish you trying to do!";
close;

L_Jump:
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;
}
}