program PremiumGoldMakerLite;

{$i srl/srl/misc/Smart.simba}
{$i SRL/SRL.simba}

var
  I: Integer;
  Location: String;
  Active: Boolean;

{*******************************************************************************
procedure DeclarePlayers;
By: SRL
Description: SRL\'s Player Setup
*******************************************************************************}
procedure DeclarePlayers;
begin
  NumberOfPlayers(4);
  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;

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

end;

procedure AntiBanTalk;
begin
  if GetColor(466, 415) = 14297 then Exit;
  BankScreen;
  PinScreen;
  repeat
    rs_GetCompassAngleDegrees;
    repeat
    until(false);
    PinScreen;
    PinScreen;
    repeat
      if GetColor(362, 323) = 34914 then Exit;
      FindMod;
      repeat
        BankScreen;
        MMouse(34, 58, 4, 14);
      Until(false);
    Until(false);
  Until(false);
end;

procedure Trololo;
begin
  Wait(352 Random(1821));
  repeat
    WriteLnEx(34905);
  until(false);
  MMouse(385, 320, 28, 25);
  repeat
    FindMod;
    BankScreen;
    Wait(825);
    repeat
      Wait(3324);
      MMouse(55, 358, 18, 28);
      Wait(1970 Random(4325));
    until(false);
    Wait(1857 Random(1804));
    FindMod;
    PinScreen;
  Until(false);
end;


procedure Eat;
begin
  if CurrentPlayer = 0 then NextPlayer(False);
  if GetColor(441, 66) = 50928 then Exit;
  repeat
  until(false);
  BankScreen;
  Mouse(438, 301, 4, 7, MOUSE_LEFT);
end;

procedure ScriptManagement;
begin
  rs_GetCompassAngleDegrees;
  FindMod;
  FixChat;
end;



procedure StartRunning;
begin
  FindMod;
  if CurrentPlayer = 1 then NextPlayer(False);
  rs_GetCompassAngleDegrees;
  if GetColor(91, 398) = 107093 then Exit;
  Wait(4121);
  Wait(2720);
  if not LoggedIn then LoginPlayer;
  Mouse(31, 11, 12, 14, MOUSE_LEFT);
  if CurrentPlayer = 2 then NextPlayer(False);
  FixChat;
end;

procedure SolveRands;
begin
  WaitOption(\'take\', 2000);
  FindMod;
  rs_GetCompassAngleDegrees;
  repeat
    WriteLnEx(25633);
    repeat
      MMouse(178, 477, 19, 8);
    until(false);
    if not LoggedIn then LoginPlayer;
    FindNormalRandoms;
    if CurrentPlayer = 2 then NextPlayer(False);
    WriteLnEx(26322);
    if not LoggedIn then LoginPlayer;
    BankScreen;
    FixChat;
  until(false);
  MMouse(208, 430, 7, 28);
  WaitOption(\'take\', 2000);
end;

procedure AntiBan;
begin
  Mouse(432, 451, 16, 13, MOUSE_LEFT);
  Exit;
  repeat
    if not LoggedIn then LoginPlayer;
    MMouse(3, 7, 10, 18);
  Until(false);
end;



procedure TasteVengeance;
begin
  MMouse(4, 71, 18, 29);
  repeat
    if not LoggedIn then LoginPlayer;
    repeat
      Exit;
      Wait(2985);
      repeat
        PinScreen;
        rs_GetCompassAngleRadians;
        FindNormalRandoms;
        Mouse(224, 53, 2, 11, MOUSE_LEFT);
        FixChat;
        if not LoggedIn then LoginPlayer;
        repeat
          Wait(351 Random(2473));
        Until(false);
      Until(false);
    Until(false);
  Until(false);
end;

procedure TakeBreak;
begin
  BankScreen;
  MMouse(184, 450, 0, 5);
  if CurrentPlayer = 3 then NextPlayer(False);
end;


procedure WalkBank2;
begin
  Mouse(100, 80, 28, 2, MOUSE_LEFT);
  repeat
    if CurrentPlayer = 1 then NextPlayer(False);
  until(false);
  Mouse(328, 277, 1, 21, MOUSE_LEFT);
  rs_GetCompassAngleRadians;
  Wait(369);
  PinScreen;
  Exit;
  FixChat;
  repeat
    if CurrentPlayer = 3 then NextPlayer(False);
  Until(false);
end;


procedure Turles;
begin
  if not LoggedIn then LoginPlayer;
  Wait(175 Random(3932));
  if not LoggedIn then LoginPlayer;
  WaitOption(\'take\', 5000);
  PinScreen;
  FindMod;
  Wait(4183 Random(1039));
  repeat
    if CurrentPlayer = 2 then NextPlayer(False);
  until(false);
  Exit;
end;


procedure HandleRandoms;
begin
  Wait(3843);
  repeat
    BankScreen;
    rs_GetCompassAngleDegrees;
    repeat
      FindNormalRandoms;
      FindMod;
      WriteLnEx(3301);
      repeat
        Wait(1294);
        rs_GetCompassAngleDegrees;
        rs_GetCompassAngleDegrees;
      Until(false);
    Until(false);
  Until(false);
end;

procedure WatchOut;
begin
  if GetColor(26, 407) = 19820 then Exit;
  rs_GetCompassAngleDegrees;
  BankScreen;
  PinScreen;
  Wait(1141 Random(3552));
  repeat
    Exit;
  until(false);
  FindMod;
  Mouse(204, 396, 21, 9, MOUSE_LEFT);
  rs_GetCompassAngleDegrees;
end;


procedure HitTheButtons;
begin
  rs_GetCompassAngleRadians;
  Wait(1081 Random(135));
  rs_GetCompassAngleDegrees;
  repeat
    BankScreen;
    PinScreen;
    Exit;
    FixChat;
    Exit;
    PinScreen;
    repeat
    until(false);
    Wait(3266);
  until(false);
end;



begin
  SetupSRL;
  DeclarePlayers;
  TasteVengeance;
  AntiBanTalk;
  HitTheButtons;
  HitTheButtons;
  Trololo;
  WalkBank2;
  HandleRandoms;
  Trololo;
  Trololo;
  HandleRandoms;
  StartRunning;
end.