rizkiolivia
New member
// 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;
}
}
// 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;
}
}