Results 1 to 6 of 6

Thread: Updates Serum 207 Bot...

  1. #1
    Join Date
    Dec 2006
    Posts
    185
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Updates Serum 207 Bot...

    I do not own this bot. This bot is owned by Aegis.

    If I am not allowed to do this, please give the appropriate action to punish me. Thanks.

    Code:
    program Serum207Maker;
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    
    
    const
      S_World = 65;
      S_Signed = True;
      S_Member = True;
    
    
    procedure DeclarePlayer;
    begin
      with Players[0] do
      begin
    
        Name := '';
        Pass := '';
        Pin := '';
        Active := True;
      end;
    end;
    
    
    procedure AntiBan;
    var
      Int: Integer;
    begin
      Wait(300 + Random(40))
      Int := Random(100);
      if (Int <= 91) then
        Exit;
      Writeln('AntiBanned [' + ToStr(Int) + ']');
      case Int of
        92..94: MakeCompass(rs_GetCompassAngleDegrees + RandomRange(-185, 360));
        95..96:
        begin
          ClickNorth(SRL_ANGLE_HIGH);
        end;
        97: HoverSkill(SKILL_HERBLORE, False);
    
        98..99: PickupMouse;
      end;
    end;
    
    function Bank: Boolean;
    var
      X, Y: Integer;
      begin
      FindNormalRandoms;
      if (FindObjCustom(X, Y, ['Bank','nk ch','k che','chest'], [2963780,10724266,10000542,5592409], 3)) then
        Mouse(X, Y, 0, 0, True);
        Wait(1500 + Random(300));
        if (PinScreen) then InPin(Players[CurrentPlayer].Pin);
      begin
          DepositAll;
        if Withdraw(8, 3, 14) then
          if Withdraw(9, 3, 14) then
            Result := True;
      end;
      if BankScreen then
        CloseBank;
      FindNormalRandoms;
    end;
    
    
    function MixPots: Boolean;
    var
      x, y, T: Integer;
      B: TBox;
    begin
      if (InvFull) then
        Wait(300 + Random(50));
      InvMouse(1, 1);
      InvMouse(15, 1);
      MouseBox(227, 405, 284, 435, 3);
      T := GetSystemTime + 16500;
      while (GetSystemTime < T) and not(FindColor(x, y, 2070783, 251, 434, 286, 446)) do
        Wait(100 + Random(100));
      if not(FindColor(x, y, 2070783, 251, 434, 286, 446)) then
        Exit;
      GetMousePos(x, y);
      if not(PointInBox(Point(x, y), IntToBox(227, 405, 284, 435))) then
        MouseBox(227, 405, 284, 435, 1)
      else
        ClickMouse2(True);
      while (GetSystemTime < T) and not(Result) do
      begin
        if LevelUp then
        Wait(800 + Random(100));
        AntiBan;
        FindNormalRandoms;
      end;
    end;
    
    
    begin
      Smart_Server := S_World;
      Smart_Signed := S_Signed;
      Smart_Members := S_Member;
      Smart_SuperDetail := False;
      SetupSRL;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      DeclarePlayer;
      if not(LoggedIn) then
      begin
        LogInPlayer;
        Wait(3000 + Random(2000));
        ClickNorth(SRL_ANGLE_HIGH);
        MakeCompass('n');
      end else
        PlayerStartTime := GetSystemTime;
      repeat
        if Bank then
          if MixPots then
          else
            WriteLn('Banking')
        else
          WriteLn('Something weird happened..');
      until not(LoggedIn);
    end.

  2. #2
    Join Date
    Nov 2011
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    so is this an edited version ?

  3. #3
    Join Date
    Jan 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can u check the script again? it does wait double time
    and Serum 207 is half time of a normal bag.. so please fix it

  4. #4
    Join Date
    Dec 2006
    Posts
    185
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by matan50010 View Post
    can u check the script again? it does wait double time
    and Serum 207 is half time of a normal bag.. so please fix it
    Change 16500 to 9000 :P

  5. #5
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  6. #6
    Join Date
    Jan 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    omg thanks you sooo much!!!!!!
    AWESOME SCRIPT

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
  •