Jump to content

shironaito22

Members
  • Posts

    28
  • Joined

  • Last visited

Posts posted by shironaito22

  1. Hi Legends , May I ask for a script, title is written on top 

    1. The old player will Input the new players Ingame name ...

    2. The NPC will read the IP Address of Old player and the New player that the/she referred to play on server

    3. The old player will recieve REFERRAL BONUS ITEM if the new player that he or she invited is still active by that day ......

     

     

    Sorry for my bad english 

    Hope youll help me 

     

     

    THANKS A LOT

  2. Hi good day guys ..Im having an issue right now on my map .. everytime I zoom in my map is getting shadows like in DOTA ..and every time im walking the place behind me turns into shadow ..but in other maps like prontera etc are not having this kind of problem .. how to fix this on browedit ?...sorry for my bad english ..hope you can help me ...

    sample.png

  3. Hi,can I request for a script that will increase droprate of monsters in a certain map if you are hunting with them .. For example is in my goldroom ...my gold droprate is 30% chance ..if im joining a party this chance will increase ...if it is possible like 2-man party adds +5% .3-man adds 10% so on ....please help 

  4.  

     

    Hi! first of all I would like to explain how this NPC works

    We have a PRIVILEGE System on our server ..Depending on what Privilege Ticket you bought.I would like to REquest a ZENY ROOM that

    1. Allows player to enter the zeny room ONCE DAILY depending on his/her Privilege level ..

    (Bronze is 30minutes,Silver is 1 hour and gold is 2hours)

    2. After a certain time limit ..zeny room will automatically kick the player outside and prohibits the player to enter again witihin 24hrs or maybe 12hrs will do ..

    3. IN CASE : the player disconnects the timer stops ticking and when he or she relogs in, he or she can resume his/her farming ...

     

    THANKYOU FOR YOUR HELP GUYS ! 

     

    sorry for my bad english

  5. On 3/18/2014 at 11:45 PM, Skorm said:

     

    
    
     

    //Version : (2011/5/27-22:46)

    - script fi -1,{

    OnWhisperGlobal:

    if(!getgmlevel())

    end;

    if(@whispervar0$=="all")

    callfunc "itemforall",strcharinfo(0),atoi(@whispervar1$),atoi(@whispervar2$);

    if(@whispervar0$=="map")

    callfunc "itemforallmap",strcharinfo(0),atoi(@whispervar1$),atoi(@whispervar2$),@whispervar3$;

    end;

    }

    function script itemforallmap {

    getmapxy(.@N$,.@B,.@C,0);

    if( getitemname(getarg(1)) == "null" ){ announce "error id 1-1",bc_self,0x00FFFF; end; }

    if( getarg(1) <= 0 ){ announce "error id 2-1",bc_self,0x00FFFF; end; }

    while( .@V < $PlayerNumber ){

    set .@V,.@V+1;

    getmapxy(.@N123$,.@B,.@C,0,rid2name(getd("$RecordAID"+.@V)));

    if( .@N$ == .@N123$ && getarg(3) == "" )||( getarg(3) != "" && getarg(3) == .@N123$ ){

    message rid2name(getd("$RecordAID"+.@V)),getarg(0)+" give you "+getitemname(getarg(1))+"x"+getarg(2)+". Now hurry and pick it up!";

    //getitem getarg(1),getarg(2),getd("$RecordAID"+.@V);

    //makeitem getarg(1),getarg(2),.@N123$,.@B,.@C;

    for(set .@a,0;.@a<getarg(2);set .@a,.@a+1) makeitem getarg(1),1,.@N123$,.@B,.@C;

    }

    }

    return;

    }

    function script itemforall {

    if( getitemname(getarg(1)) == "null" ){ announce "error id 1-2",bc_self,0x00FFFF; end; }

    if( getarg(1) <= 0 ){ announce "error id 2-2",bc_self,0x00FFFF; end; }

    while( .@V < $PlayerNumber ){

    set .@V,.@V+1;

    if( isloggedin(getd("$RecordAID"+.@V)) ){

    message rid2name(getd("$RecordAID"+.@V)),getarg(0)+" give you "+getitemname(getarg(1))+"x"+getarg(2)+". Now hurry and pick it up!";

    getmapxy(.@N123$,.@B,.@C,0,rid2name(getd("$RecordAID"+.@V)));

    //makeitem getarg(1),getarg(2),.@N123$,.@B,.@C;

    for(set .@a,0;.@a<getarg(2);set .@a,.@a+1) makeitem getarg(1),1,.@N123$,.@B,.@C;

    //getitem getarg(1),getarg(2),getd("$RecordAID"+.@V);

    }

    }

    return;

    }

    - script BlackHoleEvent -1,{

    OnPCLoginEvent:

    setd "$RecordAID"+set($PlayerNumber,$PlayerNumber+1),getcharid(3);

    end;

    OnInit:

    OnTimer5000:

    initnpctimer;

    for(set .@i,1;.@i<=$PlayerNumber;set .@i,.@i+1)

    {

    if(!isloggedin(getd("$RecordAID"+.@i)))

    {

    if(!getd("$RecordAID"+.@i))

    {

    set $PlayerNumber,0;

    break;

    }

    setd "$RecordAID"+.@i,getd("$RecordAID"+(.@i+1));

    setd "$RecordAID"+(.@i+1),0;

    set .@i,.@i-1;

    }

    }

    end;

    }

     

    Hi sir @Skorm can you teach me how to make it in random Cell drops ??? coz its just like @dropall command .. or any one can help me ,thanks

  6. Hi guys ..specially to sir @Syouji .. Ive edited my payon town now ..heres what happend .. on the main area which is the middle part i removed some houses there ,,and changed the RED gat to GREEN one to enable walking thought it ... but the problema was ... when im done editing and insert it to my GRF .. the Area of Unwalkable are still Unwalkable ... heres a photo of my map, the yellow box area are the area that is originally unwalkable ..and i changed it to walkable ... but still cannot walk throughht it ...sorry for my badenglish ..thanks in advance 

    Untitled.png

  7. Hi .. Im using @Annie Ruru's BG Script and it requires GM permission to start ..I just want to request to modify it and make it automated ..like every afternoon it will start automatically (Happyhour) and every evening..heres the script ..thankyou  

    -    script    bg_emp#control    -1,{
    OnInit:
        setarray .rewarditem, 7829, 10; // reward to the winning team
        set .winningscore, 5; // final score to win
        set .eventlasting, 20 * 60; // abort the system if there's no progress, 20 mins * seconds
        set .register_lasting, 10 * 60; // 10 minutes to joins, else abort registration, 10 mins * seconds
        sleep 1;
        disablenpc .rednpcname$;
        disablenpc .bluenpcname$;
        end;
    OnStart:
        if ( getwaitingroomstate( 0, .rednpcname$ ) < .minplayer2start || getwaitingroomstate( 0, .bluenpcname$ ) < .minplayer2start ) end;
        set .red, waitingroom2bg( "bat_a01", 171,346, strnpcinfo(0)+"::OnRedQuit", strnpcinfo(0)+"::OnRedDead", .rednpcname$ );
        copyarray .team1aid, $@arenamembers, $@arenamembersnum;
        set .blue, waitingroom2bg( "bat_a01", 162,50, strnpcinfo(0)+"::OnBlueQuit", strnpcinfo(0)+"::OnBlueDead", .bluenpcname$ );
        copyarray .team2aid, $@arenamembers, $@arenamembersnum;
        .inprogress = 2;
        awake strnpcinfo(0);
        bg_warp .red, "bat_a01", 171,346;
        bg_warp .blue, "bat_a01", 162,50;
        setwall "bat_a01", 154,51, 6, 4, 0, "bg_emp_town_blue";
        setwall "bat_a01", 164,347, 6, 4, 0, "bg_emp_town_red";
        bg_updatescore "bat_a01", 0, 0;
        sleep 6000; if ( .inprogress == 0 ) goto L_Abort;
        mapannounce "bat_a01", "Rules are simple. The first one to break the opponent's emperium will get a score.", 0;
        sleep 3000; if ( .inprogress == 0 ) goto L_Abort;
        mapannounce "bat_a01", "Score "+ .winningscore +" rounds to win ! ... GET READY", 0;
        sleep 2000; if ( .inprogress == 0 ) goto L_Abort;
        while (1) {
            for ( .@i = 5; .@i > 0; .@i-- ) {
                mapannounce "bat_a01", .@i +"", 0;
                sleep 1000; if ( .inprogress == 0 ) goto L_Abort;
            }
            if ( .score[1] == .winningscore -1 && .score[2] == .winningscore -1 )
                mapannounce "bat_a01", "Final Round start!", 0;
            else
                mapannounce "bat_a01", "Round "+ .round++ +" start!", 0;
            bg_monster .red,"bat_a01",171,346, "--ja--",1915, strnpcinfo(3)+"::OnRedDown";
            bg_monster .blue,"bat_a01",162,50, "--ja--",1914, strnpcinfo(3)+"::OnBlueDown";
            delwall "bg_emp_town_red";
            delwall "bg_emp_town_blue";
            sleep .eventlasting * 1000; if ( .inprogress == 0 ) goto L_Abort;
            .score[ .winside ]++;
            bg_updatescore "bat_a01", .score[1], .score[2];
            killmonster "bat_a01", strnpcinfo(3)+"::OnRedDown";
            killmonster "bat_a01", strnpcinfo(3)+"::OnBlueDown";
            if ( .winside )
                mapannounce "bat_a01", .empkiller$ +" has Destroy "+( ( .winside == 1 )?"Blue":"Red" )+"'s side Emperium. "+( ( .winside == 1 )?"Red":"Blue" )+" team score a point !", 0;
            if ( .score[1] == .winningscore || .score[2] == .winningscore || !.winside ) break;
            sleep 5000; if ( .inprogress == 0 ) goto L_Abort;
            bg_warp .red, "bat_a01", 171,346;
            bg_warp .blue, "bat_a01", 162,50;
            setwall "bat_a01", 154,51, 6, 4, 0, "bg_emp_town_blue";
            setwall "bat_a01", 164,347, 6, 4, 0, "bg_emp_town_red";
            .winside = 0;
        }
        if ( .winside ) {
            mapannounce "bat_a01", ( ( .winside == 1 )?"Red":"Blue" )+" side wins !", 0;
            .@size = getarraysize( getd(".team"+ .winside +"aid") );
            for ( .@i = 0; .@i < .@size; .@i++ )
                getitem .rewarditem[0], .rewarditem[1], getd(".team"+ .winside +"aid["+ .@i +"]" );
        } else
            mapannounce "bat_a01", "Time Out. Aborting the match.", 0;
        sleep 5000;
    L_Abort:
        bg_warp .red, "prontera", 155,182;
        bg_warp .blue, "prontera", 158,182;
        bg_destroy .red;
        bg_destroy .blue;
        delwall "bg_emp_town_red";
        delwall "bg_emp_town_blue";
        deletearray .team1aid;
        deletearray .team2aid;
        .round = .winside = .score[2] = .score[1] = .inprogress = 0;
        end;
    OnRedDown: callsub L_EmpDown, 2;
    OnBlueDown: callsub L_EmpDown, 1;
    L_EmpDown:
        .empkiller$ = strcharinfo(0);
        .winside = getarg(0);
        awake strnpcinfo(3);
    OnRedDead:
    OnBlueDead:
        end;
    OnRedQuit: callsub L_quit, .red, "Red", "Blue", 2;
    OnBlueQuit: callsub L_quit, .blue, "Blue", "Red", 1;
    L_quit:
        if ( bg_get_data( getarg(0), 0 ) ) end;
        mapannounce "bat_a01", "All "+ getarg(1) +" team members has Quit ! "+ getarg(2) +" side wins !", 0;
        .@size = getarraysize( getd(".team"+ getarg(3) +"aid") );
        for ( .@i = 0; .@i < .@size; .@i++ )
            getitem .rewarditem[0], .rewarditem[1], getd(".team"+ getarg(3) +"aid["+ .@i +"]" );
        goto L_Abort;
    OnAutoAbort:
        sleep .register_lasting * 1000;
        delwaitingroom .rednpcname$;
        delwaitingroom .bluenpcname$;
        disablenpc .rednpcname$;
        disablenpc .bluenpcname$;
        if ( .inprogress == 1 ) {
            .inprogress = 0;
            announce "battleground has self-aborted because not enough members", 0;
        }
        end;
    }
    
    prontera,156,186,5    script    gm_start    100,{
        if ( getgmlevel() < 99 ) {
            mes "I only talk to gm";
            close;
        }
        if ( getvariableofnpc( .inprogress, "bg_emp#control" ) ) {
            mes "abort ?";
            next;
            if ( select ( "Yes", "No" ) == 2 ) close;
            set getvariableofnpc( .inprogress, "bg_emp#control" ), 0;
            awake "bg_emp#control";
            killmonster "bat_a01", "bg_emp#control::OnRedDown";
            killmonster "bat_a01", "bg_emp#control::OnBlueDown";
            announce strcharinfo(0) +" has abort the battleground", 0;
            close;
        }
        mes "select how many players to start";
        next;
        if ( input( .@a, 1, 30 ) ) close;
        set getvariableofnpc( .minplayer2start, "bg_emp#control" ), .@a;
        announce strcharinfo(0) +" has hosted "+ .@a +"vs"+ .@a +" battleground", 0;
        enablenpc getvariableofnpc( .rednpcname$, "bg_emp#control" );
        enablenpc getvariableofnpc( .bluenpcname$, "bg_emp#control" );
        donpcevent getvariableofnpc( .rednpcname$, "bg_emp#control" ) +"::OnStart";
        donpcevent getvariableofnpc( .bluenpcname$, "bg_emp#control" ) +"::OnStart";
        set getvariableofnpc( .inprogress, "bg_emp#control" ), 1;
        donpcevent "bg_emp#control::OnAutoAbort";
        close;
    }
    
    prontera,155,182,5    script    Red side#bg_emp    100,{
        end;
    OnStart:
        waitingroom "Red side", getvariableofnpc( .minplayer2start, "bg_emp#control" ) +1, "bg_emp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_emp#control" );
        end;
    OnInit:
        set getvariableofnpc( .rednpcname$, "bg_emp#control" ), strnpcinfo(0);
        end;
    }
    
    prontera,158,182,5    script    Blue side#bg_emp    100,{
        end;
    OnStart:
        waitingroom "Blue side", getvariableofnpc( .minplayer2start, "bg_emp#control" ) +1, "bg_emp#control::OnStart", getvariableofnpc( .minplayer2start, "bg_emp#control" );
        end;
    OnInit:
        set getvariableofnpc( .bluenpcname$, "bg_emp#control" ), strnpcinfo(0);
        end;
    }
    
    bat_a01    mapflag    battleground    2
    bat_a01    mapflag    nosave    SavePoint
    bat_a01    mapflag    nowarp
    bat_a01    mapflag    nowarpto
    bat_a01    mapflag    noteleport
    bat_a01    mapflag    nomemo
    bat_a01    mapflag    nopenalty
    bat_a01    mapflag    nobranch
    bat_a01    mapflag    noicewall

     

  8. Hi .. I have a problem on my server ... when im equiping lets say WOOL SCARF ..its defense is only 3 ..which is normal. ..when i refine it to +1 .the bonus def wil increaase to 1 so on up to +3 ..but in +4 my bonus def adds +12 .. +7 wool scaft is giving me + 28 bonus def :( HELP PLEASE

  9. R> Coin to Poring coin Exchanger 

    with Weight check 

    1 Poring coin is = to 10m 

    10 Bronze coin = 1 Poring coin

    5 Silver coin = 1 poring coin
    1 Gold coin = 1 poring coin 

     

    lets say i asked for 1 poring coin but my bronze is only 9pcs ..the NPC will say "Im sorry you dont have enough Bronze coin"

     

    heres a Simple code i grabbed from a forum and modified it ..

     

     

    THANKS

     

    credits to the owner of this script

    itemmall,194,73,2    script    Poring Coin Exchanger    763,{
    
    while( 1 ){
    switch( select("Bronze Coin to Event Token:Silver Coin to Event Token:Gold Coin to Event Token:Exit") ){
    Case 1:
     if( !countitem(673) ){
      mes "You didnt have enough Silver Coin.";
      close;
     }else{
      mes "You have "+countitem(673)+" Silver Coin.";
      mes "How many Bronze Coin will be convert to Weedring Token ?";
      input @Amount,0,countitem(673);
      if( !@Amount || (( .bronze * @Amount ) ) > 1000000000 ){
       mes "Deal Cancelled.";
      }else{
       delitem 673,@Amount * 10;
       mes "Converted "+@Amount * 10+" of Bronze Coin into Weedring Token.";
       mes "Gained Total of "+( .Rates * @Amount )+" of Zeny.";
        getitem 7539,@Amount;
      }
     }
     next;
     break;
    Case 2:
     if( !countitem(675) ){
     mes "You didnt have enough Weedring Token.";
     }else{
     mes "You have "+countitem(675)+" Weedring Token.";
      mes "How many Weedring Token will be convert to Archangeling Token ?";
      input @Amount,0,countitem(675);
      if( !@Amount || (( .bronze * @Amount ) ) > 1000000000 ){
       mes "Deal Cancelled.";
      }else{
      delitem 675,@Amount * 5;
       mes "Converted "+@Amount * 10+" of Bronze Coin into Weedring Token.";
       mes "Gained Total of "+( .Rates * @Amount )+" of Zeny.";
        getitem 7539,@Amount;  }
     }
     next;
     break;
    Case 3:
     if( !countitem(671) ){
     mes "You didnt have enough Weedring Token.";
     }else{
     mes "You have "+countitem(671)+" Weedring Token.";
      mes "How many Weedring Token will be convert to Archangeling Token ?";
      input @Amount,0,countitem(671);
      if( !@Amount || (( .bronze * @Amount ) ) > 1000000000 ){
       mes "Deal Cancelled.";
      }else{
      delitem 671,@Amount;
       mes "Converted "+@Amount * 10+" of Bronze Coin into Weedring Token.";
       mes "Gained Total of "+( .Rates * @Amount )+" of Zeny.";
        getitem 7539,@Amount;  }
     }
     next;
     break;
    Case 4:
        mes "Comeback if you change your mind";
        close;
    
    }
    }
    close;
    }

    u input or asked the npc to give you 

×
×
  • Create New...