dffsg1

program EffzsBonesToBananas;

{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}

var
loads: integer =0;
procedure declarePlayers();
begin
  players.setup(['printer196', 'luckycause1@ahoo.com'], 'default1');
  currentPlayer := 0;

  with players[0] do
  begin
    integers[0] := 50;
    integers[1] := 25;
    booleans[0] := true;
  end;

  with players[1] do
  begin
    integers[0] := 50;
    integers[1] := 25;
    booleans[0] := true;
  end;
end;

procedure setangle();
begin
  if not isLoggedIn() then
  begin
    players[currentPlayer].login();
  end;

  mainScreen.setAngle(MS_ANGLE_HIGH);
  minimap.setAngle(MM_DIRECTION_SOUTH); //Camera Direction
end;

procedure findbanker();
var
  preSet: TBox;
  esc: TBox;
  lobby: TBox;
begin
  writeLn('Looking For Bank');
  writeLn('////////////////////////////////////');
  minimap.setAngle(43);
  setangle();
  mouse(282, 145, 15, 15, MOUSE_MOVE);

  if not isMouseOverText(['ank']) then
  begin
   wait(randomRange(600, 1000));
   esc := intToBox(789, 0, 798, 10);
   wait(randomRange(400, 800));
   mouseBox(esc, MOUSE_LEFT);
   wait(randomRange(400, 700));
   lobby := intToBox(405, 326, 523, 346);
   wait(randomRange(400, 700));
   mouseBox(lobby, MOUSE_LEFT);
   wait(randomRange(1000, 2000));
   mouseOffClient(OFF_CLIENT_RANDOM);
   ClearDebug();
   writeLn('Banker not found, logged out.');
   writeLn('////////////////////////////////////');
   terminateScript;
  end;

 if isMouseOverText(['ank']) then
  begin
   fastClick(MOUSE_LEFT);
   writeLn('Banking');
   writeLn('////////////////////////////////////');

   wait(randomRange(300, 800));
   preSet := intToBox(181, 563, 211, 587);
   wait(randomRange(300, 500));
   mouseBox(preSet, MOUSE_LEFT);
   writeLn('Load Preset');
   writeLn('////////////////////////////////////');
  end;
end;

procedure banking();
var
  openbank: TBox;
  preSet: TBox;
  esc: TBox;
  lobby: TBox;
begin
  if not isLoggedIn() then
  begin
    players[currentPlayer].login();
  end;

   openbank := intToBox(269, 148, 309, 160);
   wait(randomRange(400, 800));
   mouseBox(openbank, MOUSE_MOVE);

  if not isMouseOverText(['ank']) then
  begin
  findbanker();
  end;

 if isMouseOverText(['ank']) then
  begin
   fastClick(MOUSE_LEFT);
   writeLn('Banking');
   writeLn('////////////////////////////////////');

   wait(randomRange(400, 800));
   preSet := intToBox(181, 563, 211, 587);
   wait(randomRange(400, 900));
   mouseBox(preSet, MOUSE_LEFT);
   writeLn('Load Preset');
   writeLn('////////////////////////////////////');
  end;
end;


procedure convert();
var
  item1: TBox;
  grind: TBox;
begin
  if not isLoggedIn() then
    exit;

  wait(randomRange(400, 800));
  item1 := intToBox(520, 344, 550, 373);
  wait(randomRange(400, 600));
  mouseBox(item1, MOUSE_LEFT);
  writeLn('Convert');
  writeLn('////////////////////////////////////');
  Inc(loads);
end;

Procedure AntiBan();
Begin
    Case Random(100) Of
      0..20:  begin
                tabStats.open();
                wait(randomRange(2750,4750));
                tabBackpack.open();
               end;
      21..49: sleepAndMoveMouse(randomRange(1000,2000));
      50..75: pickUpMouse();
      76..99: smallRandomMouse();
    End;
    loads := 0;
    exit;
End;

procedure lookoff;
var
I: integer;
begin
  i := random(150);
   begin
   Case I of 0:
   begin
     mouseOffClient(OFF_CLIENT_RANDOM);
    ClearDebug();
    writeLn('Looking Off');
    writeLn('////////////////////////////////////');
    wait(randomRange(30000, 90000));
   end;
   end;
  end;
end;

procedure breaklobby;
var
  I: integer;
  esc: TBox;
  lobby: TBox;
begin
  i := random(500);
  begin
  Case I of 0:
  begin
    wait(randomRange(600, 1000));
   esc := intToBox(789, 0, 798, 10);
   wait(randomRange(400, 800));
   mouseBox(esc, MOUSE_LEFT);
    wait(randomRange(400, 700));
   lobby := intToBox(272, 326, 395, 346);
   wait(randomRange(400, 700));
    mouseBox(lobby, MOUSE_LEFT);
    wait(randomRange(1000, 2000));
    mouseOffClient(OFF_CLIENT_RANDOM);
    ClearDebug();
    writeLn('Break Lobby');
    writeLn('////////////////////////////////////');
    wait(randomRange(60000, 120000));
    end;
    end;
  end;
end;

begin
  clearDebug();
  setupSRL();
  declarePlayers();
  if not isLoggedIn() then
  begin
  players[currentPlayer].login();
  end;

  repeat
  setangle();
  banking();
  convert();
  lookoff();
  breaklobby();
  until (false);
end.