Results 1 to 6 of 6

Thread: How do i add an antiban?

  1. #1
    Join Date
    Mar 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default How do i add an antiban?

    Hey all, first of all this sin't my script but this one doesn't have an antiban and needs it desperately, so if anyone could please add one? I would appreciate it VERY much, thanks!

    Code:
    program GlassBlower;
    {$include srl/srl/misc/smart.simba}
    {$I SRL/SRL.simba}
    {$I srl/srl/misc/debug.simba}
    
    const
      SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
      SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)
    
    var
      StartTime,XPS:Integer;
      //progress variables
      XP,XPH,Sec,Slot:Integer;
      StatGain,XP1,XP2:Integer;
    procedure DeclarePlayers;
    begin
    
      Slot := 22; //choose your bank slot where the glass is at.
    
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
    end;
    procedure Proggy;
    begin
    XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
    Sec:= (1+((Getsystemtime-StartTime)/1000));
    XPH := (3600*XP) / (SeC);
    statGain := XP;
    
    writeLn('===================================');
    writeLn('============S1NGlassblower==========');
    writeLn('Time Running: ' + TimeRunning);
    writeLn('XP Earned: ' + IntToStr(XP));
    writeLn('XP/h: ' + IntToStr(XPH));
    writelN('===================================');
    writeLn('===================================');
    
      Stats_Commit;
    
    end;
    procedure CraftOrbs;
    var
      x,y,DTM,t:Integer;
    begin
    DTM := DTMFromString('mlwAAAHicY2dgYLjAyMBwEYivA/E1ID4NxKeg7IVAvAKI5wPxTCBeBsQLgHgREHu4uwJ1M2HFRgy4ASMeDAUAQzsLUQ==');
    
      MouseItem(Random(25),1);
      if WaitColor(305,362,4543066,5,10000) then
      begin
        if FindDTM(DTm,x,y,MCX1,MCY1,MCX2,MCY2) then
        begin
          Mouse(x,y,1,1,True);
          MarkTime(t);
          repeat
            XP1 := GetXPBarTotal;
            wait(random(5000));
            Proggy;
            if Timefrommark(t) > 200000 then
              exit;
          until(FindDTM(DTM,x,y, 681,422,730,457));
        end;
      end;
    end;
    procedure Bank;
    var
    t:integer;
    begin
      OpenBankChestEdge(SRL_BANK_SW);
      MarkTime(t);
      repeat
        wait(100);
        if PinScreen then
        begin
          InPin(Players[CurrentPlayer].Pin);
        end;
        if TimeFromMark(t) > 5999 then
        begin
          Bank;
          exit;
        end;
      until(BankScreen);
      if BankScreen then
      begin
        DepositAll;
        MouseBankSlot(22,0);
        WaitOption('All',4000);
        repeat
          wait(10);
        until(InvFull);
        if InvFull then
          CloseBank;
      end;
    end;
    begin
     ClearDebug;
      SetupLogin;
      DeclarePlayers;
      LoginPlayer;
        if (Players[CurrentPlayer].Integers[1] = 0) then
        begin
          if not IsXPBarOpen then ToggleXPBar(true);
          Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
          XPS := GetXPBarTotal;
          Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
        end;
        StartTime:=GetSystemTime;
        SetupSRLStats(1068, SRLStats_User, SRLStats_Password);
      repeat
        Bank;
        CraftOrbs;
      until(not LoggedIn);
      stats_IncVariable('Crafting EXP (Gained)', statGain);
      stats_Commit;
    end.

  2. #2
    Join Date
    Mar 2012
    Location
    Color :D
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Adding antiban in this script would make you looks even more like a bot? lol
    IMO, I'd just blow the glass only for more efficient XP/Hr.

  3. #3
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    GlassBlowing get's crafting XP right? The only thing I would occasionally get it to do is hover over the crafting skill, something like:
    Simba Code:
    Case Random(500) of
      0 : HoverSkill(SKILL_Crafting, False);
    end;

  4. #4
    Join Date
    Mar 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by putonajonny View Post
    GlassBlowing get's crafting XP right? The only thing I would occasionally get it to do is hover over the crafting skill, something like:
    Simba Code:
    Case Random(500) of
      0 : HoverSkill(SKILL_Crafting, False);
    end;
    Thank you very much, where abouts would i add this?

    I'm a noob to SIMBA scripting sorry

  5. #5
    Join Date
    Jan 2012
    Posts
    2,568
    Mentioned
    35 Post(s)
    Quoted
    356 Post(s)

    Default

    U can insert them at almost anywhere in the script, for efficiency wise it may be better to insert at places where u will be waiting (like while blowing the pipe).
    I'd make an antiban procedure with more actions though, explore the antiban includes for some pre-made ones. (eg. RandomRClick)
    Read through the beginner scripting tutorial if u dont know how to do it.

  6. #6
    Join Date
    Dec 2011
    Location
    The Netherlands
    Posts
    1,631
    Mentioned
    47 Post(s)
    Quoted
    254 Post(s)

    Default

    Simba Code:
    repeat
            XP1 := GetXPBarTotal;
            wait(random(5000));
            Proggy;
            if Timefrommark(t) > 200000 then
              exit;
          until(FindDTM(DTM,x,y, 681,422,730,457));
    Place it somewhere in there so yeah.. make an antiban procedure how you want to have it.

    Example:
    Simba Code:
    procedure Antiban;
    begin
      case Random(500) of
        0: HoverSkill(SKILL_Crafting, False);
      end;
    end;

    Place it in there.
    Simba Code:
    repeat
            XP1 := GetXPBarTotal;
            wait(random(5000));
            Antiban;
            Proggy;
            if Timefrommark(t) > 200000 then
              exit;
          until(FindDTM(DTM,x,y, 681,422,730,457));

    Now to get the correct antiban timing you need to do some maths, an inventory takes like 20 seconds so antiban gets called 3-4 times each time. You want to check crafting xp roughly every 5-10 minutes so I would make it have around 7.5*3.5*(60/20)=78,75 -> case Random(79) to check crafting xp every 5-10 minutes or so.

    Script source code available here: Github

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •