SRL Archive - First Scripts

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.

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.

so is this an edited version ?

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 :)

From: matan50010
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

From: gaetano
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.

its not really allowed unless you have permission

~shut

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