Jump to content

rizkiolivia

Members
  • Content Count

    47
  • Joined

  • Last visited

Posts posted by rizkiolivia


  1. 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;
     
    }
    }

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

    }

    }

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.