Jump to content

Yasunari Ishibashi

Members
  • Posts

    157
  • Joined

  • Last visited

Posts posted by Yasunari Ishibashi

  1. ok thanks emistry :(

       	 if(checkcart() == 1)
               set @cart,1;
           if(checkfalcon() == 1)
               set @falcon,1;
           if(checkriding() == 1)
               set @riding,1;
           if(checkwarg() == 1)
               set @warg,1;
    
           if(@cart == 1) {
               setcart;
           }
           if(@falcon == 1) {
               setfalcon;
           }
           if(@riding == 1) {
               setriding;
           }
           if(@warg == 1) {
               setwarg;
           }
    

    I want to add the script above, because each check AntiBot cart, falcon, peco is lost, how to apply the script i fear misplaced.

  2. so the function is equal to hourlypoint script, but there is little that I change that to minutes & change hourly script function is to give 671 (silver coin) when using a custom headger 673 (bronze coin) every minute and every hour there is a special gift that is 7306 (token Coin) but to get a special prize shall be by check AntiBot if successful answer will get special gifts and if they can not answer AntiBot is then automatically kick from the server, if you can fix my script?

    sorry if my english bad,

    I hope you can understand what I mean... :(

  3. -    script    ZenyMenit    -1,{
    function GetString;
    
    //--Start of the Script
    OnPCLoginEvent:
    if(getgmlevel() > 10) goto Out;
    attachnpctimer ""+strcharinfo(0)+"";
    initnpctimer;
    end;
    
    Out:
    end;
    
    OnTimer30000:
    //Check if Vending (normal or @at)
    if(checkvending() >= 1 || checkchatting() == 1) {
       dispbottom "Menit Zeny berhenti karena anda sedang vending / chatting. Silahkan relog untuk mengulang dari awal.";
       stopnpctimer;
       end;
    }
    //Check if Idle
    getmapxy( .@map$, .@x, .@y, 0 );
    if(@map$ == .@map$ && @x == .@x && @y == .@y) {
       set @afk, @afk + 1;
    }
    //If move timer resets
    else {
       set @afk, 0;
    }
       set @map$, .@map$; set @x, .@x; set @y, .@y;
    //Idle Check for 55 Minutes
    if(@afk == 55) {
       dispbottom "Menit Zeny berhenti karena kamu idle selama 55 menit. Silahkan relog untuk mengulang dari awal.";
       stopnpctimer;
       end;
    }
    end;
    
    OnTimer60000:
    set @minute, @minute + 1;
    if(countitem(25574) == 1) || (countitem(25576) == 1) || (countitem(25578) == 1) || (countitem(25579) == 1) || (countitem(25584) == 1){
    set .@point_amt, 1;
    getitem 674,.@point_amt;
    }else{
    set .@bonus_amt, 1;
    getitem 675,.@bonus_amt;
    }
    //Check for 1 Minute
    dispbottom "Total Hour's Played: " + @consecutive_hour;
    dispbottom "Total Minute's Played: " + @minute;
    if(@minute == 60){
    switch( rand(2) ){
       Case 0:
           atcommand "@option 2";
           set .@String$,GetString( 15,rand(5,10) );
           mes "[Antibot Check]";
           mes "Input the ^FF0000RED COLOUR^000000 part";
           mes "^0000FF"+GetString( 15,rand(5,10) )+"^FF0000"+.@String$+"^0000FF"+GetString( 15,rand(3,10) )+"^000000";
           input .@Input$;
           if( .@Input$ != .@String$ ){
               atcommand "@kick "+strcharinfo(0);
    }else{
       set @minute,0;
       set .@cpoint_amt, 1;
       getitem 7606,.@cpoint_amt;
       set @consecutive_hour, @consecutive_hour + 1;
       atcommand "@option 0";
    }
           break;
    
       Case 1:
           set .@A,rand(1000);
           set .@B,rand(1000);
           mes "If A = "+.@A+"   B = "+.@B;
           switch( rand(4) ){
               Case 0:
                   set .@Answer,.@A + .@B;
                   mes "How many is A + B ?";
                   break;
               Case 1:
                   set .@Answer,.@A - .@B;
                   mes "How many is A - B ?";
                   break;
               Case 2:
                   set .@Answer,.@A * .@B;
                   mes "How many is A * B ?";
                   break;
               Case 3:
                   set .@Answer,.@A / .@B;
                   mes "How many is A / B ?";
                   break;
           }
           input .@Input;
           if( .@Input != .@Answer ){
               mes "Wrong";
               atcommand "@kick "+strcharinfo(0);
    }else{
       set @minute,0;
       set .@cpoint_amt, 1;
       getitem 7606,.@cpoint_amt;
       set @consecutive_hour, @consecutive_hour + 1;
       atcommand "@option 0";
    }
           break;
       if(@consecutive_hour == 2) {
       set @consecutive_hour,0;
    }
    stopnpctimer;
    initnpctimer;
    end;
    
    }
    
    
    function    GetString    {
    if( getarg(0) & 1 ) setarray .@List$[ getarraysize( .@List$ ) ],"1","2","3","4","5","6","7","8","9";
    if( getarg(0) & 2 ) setarray .@List$[ getarraysize( .@List$ ) ],"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z";
    if( getarg(0) & 4 ) setarray .@List$[ getarraysize( .@List$ ) ],"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z";
    if( getarg(0) & 8 ) setarray .@List$[ getarraysize( .@List$ ) ],"!","@","#","$","%","^","&","*","(",")","-","=","/","+";
    
    set .@Str$,"";
    while( getstrlen( .@Str$ ) < getarg(1) )
       set .@Str$,.@Str$ + .@List$[ rand( getarraysize( .@List$ ) ) ];
    return .@Str$;
    
    }
    }
    }
    

    what gave the script every minute not give rewards?

    just get it in the first minute and the next stop, is there something wrong? please correct my script, thank you.

  4. Question 1 :

    atcommand "@option 2";
    mes "[Antibot Check]";
    mes "Please Red Colour Key in the Code...";
    set .Code,rand(10000,99999);
    mes "^0000FF"+rand(1,9999)+"^FF0000"+.Code+"^0000FF"+rand(1,9999)+"^000000";
    input @Code;
    if( @Code != .Code ){
    atcommand "@kick "+strcharinfo(0);
    }else{
    atcommand "@kick "+strcharinfo(0);
    atcommand "@option 0";
    }

    what if the script adding the alphabet A-Z in number

    example:

    set .Code,rand(11111,ABCDEFGHIJKLMNOPQRSTUVWXYZ,99999,ABCDEFGHIJKLMNOPQRSTUVWXYZ);

    if anyone can help?

    Question 2 :

    does anyone have a script AntiBot as shown image below?

    Bump...

    post-1298-0-00328100-1335785709_thumb.jpg

  5. -    shop    Coin_shop    -1,501:50
    prontera,164,169,4    script    Coin Converter    436,{
       set @i,0;
       mes "[ Coin Converter ]";
       mes "Pilih yang kamu inginkan?";
       mes "Pilih salah satu.";
       callshop "Coin_shop",1;
       npcshopattach "Coin_shop";
       end;
    
    OnBuyItem:
       if(.BuildQuest) {
           for(set .e,0; !compare(getarg(.e+1),"Zeny"); set .e,.e+2) {}
           npcshopadditem "Coin_shop",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
           setarray .Shop[.i],getarg(.e+2);
           set .i,.i+1;
           goto Quest_Setup;
       }
       if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; }
       for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; }
       mes "[ Coin Converter ]";
       mes "Saya memerlukan berikut ini :";
       for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
       if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny";
       mes "^000000Sebagai gantinya, saya akan memberikan :^0000FF";
       for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
       switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
           case 1:
               for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
                   next;
                   mes "Anda harus memiliki " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
                   mes "Silahkan mendapatkan ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
                   close;
               }
               if(Zeny < getarg(@i)) {
                   next;
                   mes "Kamu tidak memiliki cukup zeny.";
                   mes "Silahkan mendapatkan ^FF0000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
                   close;
               }
               for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
               set Zeny,Zeny-getarg(@i);
               for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
               if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
               close;
           case 2:
               set @bottomview, getlook(3);
               set @topview, getlook(4);
               set @midview, getlook(5);
               addtimer 1000, strnpcinfo(3)+"::On_Leave";
               set @equip,getiteminfo(@bought_nameid, 5);
               set @view, getiteminfo(@bought_nameid, 11);
               if(@equip != -1 && @view > 0) {
                   if(@equip & 1) atcommand "@changelook 3 " + @view;
                   if(@equip & 256) atcommand "@changelook 1 " + @view;
                   if(@equip & 512) atcommand "@changelook 2 " + @view;
               }
               next;
               goto OnBuyItem;
           case 3:
               close;
       }
    On_Leave:
       atcommand "@changelook 1 " + @topview;
       atcommand "@changelook 2 " + @midview;
       atcommand "@changelook 3 " + @bottomview;
       set @equip,0;
       set @view,0;
       set @topview,0;
       set @midview,0;
       set @bottomview,0;
       end;
    OnInit:
       npcshopitem "Coin_shop",0,0;
       set .BuildQuest,1;
       set .i,1;
    Quest_Setup:
       switch(.i) {
           default: set .BuildQuest,0; set .e,0; set .i,0; end;
           case 1: callsub OnBuyItem,675,5,1,"SZeny",674,1,0;
           case 2: callsub OnBuyItem,674,10,1,"SZeny",673,1,0;
           case 3: callsub OnBuyItem,673,10,1,"SZeny",671,1,0;
           case 4: callsub OnBuyItem,671,10,1,"SZeny",670,1,0;        
       }
    }

    if anyone can help justify my script problem? thanks

    post-1298-0-28582200-1335628754_thumb.png

  6. Request refine custom :

    forging a script function with the base material elumunium & Oridecon but I want to put plus the desired number.

    example:

    we talk to npc and choose which will equip such armor forged & NPC replied to the wrought-up plus what? for example, we answered +6 then automatically we forge to +6 without repeating chat with the NPC. what can? please help me, thanks.

  7. what if using more than one instance headger :

    if(getequipid(EQI_HEAD_MID)==25234,25345,23435,23452)

    is it true as above?

    if the script is working 24 hours? when the player online for 24 hours? or having to relog every few hours?

    Thank you for helping me.

  8. prontera,155,181,5	script	Sample	757,{
    set .charName$,strcharinfo(0);
    mes "[Marco Hombreng]";
    mes "Anda hanya memiliki 10 menit di dalam map.";
    next;
    menu "Gua Iblis[" + getmapusers("morocc") + " / 10]",mangkat;
    mangkat:
    announce "[Marco Hombreng]: "+strcharinfo(0)+" Masuk Gua Iblis",0;
    warp.Map$,0,0;
    initnpctimer;
    end;
    
    
    OnInit:
    set .Map$,"morocc";
    set .timeOut,60000;
    end;
    
    OnTimer1000:
    if(getnpctimer(0)>=.timeOut)
    goto TimesUp;
    else
    {
    message .charName$,"You have "+((.timeOut-getnpctimer(0))/1000)+" Seconds.";
    initnpctimer;
    }
    end;
    
    TimesUp:
    message .charName$,"Time's Up!! You will be warped out right now..";
    mapannounce .Map$,"Time's Up !! You will be warped out right now..",0;
    mapwarp .Map$,"prontera",155,181;
    end;
    }
    

    please correct my script went wrong, the script timeout not working properly.

    OnInit:
    set .Map$,"morocc";
    set .timeOut,60000;
    end;
    
    OnTimer1000:
    if(getnpctimer(0)>=.timeOut)
    goto TimesUp;
    else
    {
    message .charName$,"You have "+((.timeOut-getnpctimer(0))/1000)+" Seconds.";
    initnpctimer;
    }
    end;

    thanks

  9. random chat color so no one color broadcaster.

    And for special zeny hourly script that uses custom headger (ItemID 25234) to get 10 silver coin every minute, and when not to use custom headger only get a silver coin every minute, if you can help change the script I mentioned above?

×
×
  • Create New...