program GoblinKiller;

{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}


var
  LoadsDone, Gained: Integer;
  Location, Debug: String;
  Breaking, Stupid: Boolean;
procedure DeclarePlayers;
begin
  NumberOfPlayers(3);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;

  with Players[1] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;
  with Players[2] do
  begin
    Name := \'\';
    Pass := \'\';
    Active := True;
    Pin := \'\';
  end;
end;

procedure Bank;
begin
  Exit;
  WriteLnEx(34396);
  FixChat;
  Mouse(494, 35, 10, 2, MOUSE_LEFT);
  PinScreen;
  repeat
    Wait(2614);
    FixChat;
  Until(false);
end;



procedure StartRunning;
begin
  if CurrentPlayer = 1 then NextPlayer(False);
  repeat
  until(false);
  WriteLnEx(31555);
  FindMod;
  if not LoggedIn then LoginPlayer;
end;


procedure AntiBanWalking;
begin
  WaitOption(\'take\', 2000);
  BankScreen;
  if GetColor(419, 152) = 8942 then Exit;
  rs_GetCompassAngleDegrees;
  MMouse(4, 282, 14, 25);
  repeat
    WriteLnEx(34015);
  until(false);
  MMouse(117, 319, 14, 19);
  if not LoggedIn then LoginPlayer;
  repeat
  until(false);
  WaitOption(\'take\', 3000);
end;

procedure Speak;
begin
  MMouse(238, 340, 1, 16);
  WaitOption(\'take\', 4000);
  WaitOption(\'take\', 2000);
  FindNormalRandoms;
  FixChat;
  WaitOption(\'take\', 5000);
  Exit;
  rs_GetCompassAngleRadians;
  repeat
  until(false);
  FindNormalRandoms;
  if GetColor(32, 458) = 65436 then Exit;
end;

procedure CheckCoins;
begin
  MMouse(209, 471, 12, 28);
  WaitOption(\'take\', 5000);
  Mouse(8, 374, 3, 19, MOUSE_LEFT);
  FindNormalRandoms;
  repeat
    if CurrentPlayer = 2 then NextPlayer(False);
    PinScreen;
    BankScreen;
    repeat
      BankScreen;
      repeat
        Mouse(5, 104, 8, 21, MOUSE_LEFT);
        MMouse(420, 20, 19, 29);
      Until(false);
    Until(false);
  Until(false);
end;



procedure HandleRandoms;
begin
  PinScreen;
  repeat
    FindNormalRandoms;
    FindMod;
    rs_GetCompassAngleDegrees;
    rs_GetCompassAngleRadians;
    repeat
      FixChat;
      repeat
        MMouse(103, 375, 15, 11);
        Wait(3811 Random(4122));
      until(false);
      FindNormalRandoms;
      repeat
        WaitOption(\'take\', 5000);
        FindNormalRandoms;
      until(false);
      Wait(1189);
      repeat
      until(false);
      if CurrentPlayer = 0 then NextPlayer(False);
    Until(false);
  Until(false);
end;

procedure WalkToCenter;
begin
  PinScreen;
  if not LoggedIn then LoginPlayer;
  Mouse(123, 143, 21, 23, MOUSE_LEFT);
  WriteLnEx(18989);
  repeat
    FindNormalRandoms;
    FindNormalRandoms;
    Mouse(119, 105, 6, 4, MOUSE_LEFT);
    Wait(804 Random(2032));
    Mouse(486, 378, 18, 1, MOUSE_LEFT);
    FixChat;
    repeat
    Until(false);
  Until(false);
end;



procedure TakeBreak;
begin
  PinScreen;
  Exit;
  Wait(337);
end;


procedure WalkBank2;
begin
  rs_GetCompassAngleRadians;
  repeat
    if not LoggedIn then LoginPlayer;
    PinScreen;
    rs_GetCompassAngleRadians;
    Exit;
    Mouse(214, 292, 25, 5, MOUSE_LEFT);
    if GetColor(27, 484) = 61778 then Exit;
  until(false);
  Exit;
  FindMod;
  Exit;
  Mouse(116, 264, 22, 28, MOUSE_LEFT);
  MMouse(497, 245, 15, 27);
  FixChat;
end;



begin
  SetupSRL;
  DeclarePlayers;
  WalkBank2;
  TakeBreak;
  Speak;
  TakeBreak;
  WalkBank2;
  repeat
  Until(false);
end.