program PlankPickingBot;
{$define SMART}
{$I SRL/OSR.simba}
{$I RSWalker/Walker.simba}

var
  TPA: TpointArray;
  x, y, PlankDTM, CCounter, CurrentWorld: Integer;
  RSW: TRSWalker;
  Antiban: TAntiban;
  Starting_pos, Bank_path: TPointArray;


const
  Login_name := 'jofebor@emailapps.in';
  Login_passowrd := 'Dketmgwhfv123';
  BANK_TILE  := Point(409, 615);
  STARTING_TILE := Point(485, 612);

procedure LDTM;
begin
  PlankDTM := DTMFromString('mvQEAAHic1cxhCoJAEIbhbw1R8UeI1GG8SEfoMhohkmURek5TepedI/jHgQdmv5nZk6RnJL3wwRcTRut99saABzq0aFDjhrtlne30SJw08/cPC1aI7ODCLEOOEmfj+wJHm6WIXbjz99dLFR4birXj+gNGGBNh');
end;

procedure FDTM;
begin
end;

procedure setupAntiban();
begin
  Antiban.Init(SKILL_FISHING);

  Antiban.AddTask([@Antiban.HoverPlayers, ONE_MINUTE*9, 0.33]);
  Antiban.AddTask([@Antiban.CheckSkill, ONE_MINUTE*12, 0.33]);
  Antiban.AddTask([@Antiban.LoseFocus, ONE_MINUTE* 18, 0.33]);
  Antiban.AddBreak([80*ONE_MINUTE, 25*ONE_MINUTE,  0.05, 0.25]);
  Antiban.AddTask([@Antiban.RandomCompass, ONE_MINUTE*5, 0.33]);
  Antiban.AddTask([@Antiban.OpenRandomTab, ONE_MINUTE*15, 0.33]);
  Antiban.AddTask([@Antiban.VeryShortBreak, ONE_MINUTE*20, 0.33]);
end;


procedure LogInEnd;
begin
  Wait(300+random(150));
  Mouse.Move(455, 290);
  Wait(150+random(150));
  Mouse.Click(mouse_Left);
  wait(250+random(150));
  LoginScreen.EnterLogin('jofebor@emailapps.in');
  Wait(150+random(350));
  LoginScreen.EnterPassword('Dketmgwhfv123');
  wait(250+random(100));
  Keyboard.PressKey(13);
  wait(5000+random(500));
  srl.FindColors(TPA, CTS2(584, 5), Box(273, 300, 485, 376));
  Mouse.Move(TPA.Cluster(5).Biggest.Bounds);
  wait(150+random(300));
  Mouse.Click(mouse_left);
end;

procedure LoggingInWorld311;
begin
  Mouse.Move(61, 488);
  wait(150+random(250));
  Mouse.Click(mouse_left);
  wait(150+random(250));
  Mouse.Move(91, 236);
  Wait(50+random(250));
  Mouse.Click(mouse_Left);// WORLD 311
  CurrentWorld := 311;
  LogInEnd;
end;

procedure LoggingInWorld312;
begin
  Mouse.Move(61, 488);
  wait(150+random(250));
  Mouse.Click(mouse_left);
  wait(150+random(250));
  Mouse.Move(96, 254);
  Wait(50+random(250));
  Mouse.Click(mouse_Left);// WORLD 312
  CurrentWorld := 312;
  LogInEnd;
end;

procedure LoggingInWorld313;
begin
  Mouse.Move(61, 488);
  wait(150+random(250));
  Mouse.Click(mouse_left);
  wait(150+random(250));
  Mouse.Move(83, 274);
  Wait(50+random(250));
  Mouse.Click(mouse_Left);// WORLD 313
  CurrentWorld := 313;
  LogInEnd;
end;

procedure LoggingInWorld314;
begin
  Mouse.Move(61, 488);
  wait(150+random(250));
  Mouse.Click(mouse_left);
  wait(150+random(250));
  Mouse.Move(96, 291);
  Wait(50+random(250));
  Mouse.Click(mouse_Left);// WORLD 314
  CurrentWorld := 314;
  LogInEnd;
end;



procedure myAntiban;
begin
  if not SRL.IsLoggedIn() then
    Exit;

   SRL.DismissRandom();
   Antiban.DoAntiban();
end;

procedure WalkTo(Path: TPointArray);
begin
  myAntiban();
  RSW.WalkPath(Path);
end;

procedure StartingPos;
begin
  myAntiban();
  WalkTo(Starting_Pos);
end;

procedure WalkToBank;
begin
  myAntiban();
  WalkTo(Bank_path);
end;

procedure banking;
begin
  Wait(500+random(1000));
  repeat
  srl.FindColors(TPA, CTS2 (1726064, 5), Box(4, 4, 493, 319));
  Mouse.Move(TPA.Cluster(5).Biggest.Bounds);
  until(MainScreen.IsUpText(['ank chest']));
  wait(450+random(350));
  Mouse.Click(mouse_left);
  wait(2000+random(1000));
  BankScreen.DepositAll;
  wait(450+random(1000));
  StartingPos;
end;

procedure InventoryFull;
begin
  If Inventory.IsFull then
    begin
      WalkToBank;
      Wait(1000+random(500));
      banking;
    end;
end;

procedure PickUpPlanks;
begin
  InventoryFull;
  repeat
    srl.FindColors(TPA, CTS2 (4021614, 3), Box(4, 4, 514, 337));
    Mouse.Move(TPA.Cluster(5).Biggest.Bounds);
  until(MainScreen.IsUpText(['lank'], 100));
    wait(500+random(300));
    Mouse.Click(mouse_left);
    wait(3000+random(600));
    myAntiban();
end;

procedure InventoryEmpty;
begin
  If not Inventory.IsFull then
    begin
      StartingPos;
      PickUpPlanks;
    end;
end;

procedure WorldHopLogin;
begin
    if CurrentWorld := 311 then
    begin
      LoggingInWorld312;
      Wait(500+random(250));
      PickUpPlanks;
    end else
      Exit;
  if CurrentWorld := 312 then
    begin
      LoggingInWorld313;
      Wait(500+random(250));
      PickUpPlanks;
    end else
      Exit;
  if CurrentWorld := 313 then
    begin
      LoggingInWorld314;
      Wait(500+random(250));
      PickUpPlanks;
    end else
      Exit;
  if CurrentWorld := 314 then
    begin
      LoggingInWorld311;
      Wait(500+random(250));
      PickUpPlanks;
    end else
      Exit;
end;

procedure WorldHop;
var
  myTimer: TCountDown;

begin
  myTimer.Init(10000);
  repeat
  PickUpPlanks;
  until(myTimer.IsFinished);
  StartingPos;
  Wait(3000+random(400));
  Logout.ClickLogout;
  WorldHopLogin;
end;

procedure SetCamera;
begin
  Options.Open;
  wait(150+random(250));
  Mouse.Move(656, 274);
  wait(150+random(200));
  Mouse.Click(mouse_left);
  wait(200+random(300));
  Inventory.Open;
end;

procedure MainLoop;
begin
  if (not SRL.IsLoggedIn) then
    begin
      LoggingInWorld311;
      MainScreen.SetAngle(True);
      SetCamera;
      Inventory.Open;
     end;
InventoryEmpty;
WorldHop;
end;


begin
  srl.Setup([]);
  srl.Options += [soDebugAntiban];
  RSW.Init('[2_2].png');
  setupAntiban();
  Starting_pos := [STARTING_TILE];
  Bank_path := [BANK_TILE];
  LDTM;
  repeat
    MainLoop;
  until(False);
  FDTM;
end.