program PremiumEarthMakerPro;
//PREMIUM SCRIPT - KEEP PRIVATE
{$i srl/srl/misc/Smart.simba}
{$i SRL/SRL.simba}
var
  I, LoadsDone, Gained: Integer;
  Location, Debug: String;
  Active, Breaking: Boolean;

procedure DeclarePlayers;
begin
  NumberOfPlayers(2);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Active := True;
    Pin := '';
  end;

  with Players[1] do
  begin
    Name := '';
    Pass := '';
    Active := True;
    Pin := '';
  end;
end;
procedure CastSpec;
begin
  if CurrentPlayer = 3 then NextPlayer(False);
  FindNormalRandoms;
  Mouse(175, 344, 19, 7, MOUSE_LEFT);
  repeat
  until(false);
  Mouse(23, 466, 2, 9, MOUSE_LEFT);
  repeat
    Mouse(222, 301, 6, 25, MOUSE_LEFT);
  Until(false);
end;

procedure Rotate;
begin
  MMouse(403, 17, 1, 9);
  FindMod;
  rs_GetCompassAngleDegrees;
  if CurrentPlayer = 2 then NextPlayer(False);
  PinScreen;
  FixChat;
  rs_GetCompassAngleDegrees;
  rs_GetCompassAngleRadians;
  if GetColor(262, 162) = 97573 then Exit;
end;


procedure SetWalkings;
begin
  WaitOption('take', 1000);
  repeat
  until(false);
  Mouse(213, 117, 29, 3, MOUSE_LEFT);
  rs_GetCompassAngleDegrees;
  FixChat;
  rs_GetCompassAngleRadians;
  rs_GetCompassAngleDegrees;
  repeat
    if CurrentPlayer = 0 then NextPlayer(False);
  until(false);
end;



procedure ConfigureSettings;
begin
  rs_GetCompassAngleDegrees;
  PinScreen;
  rs_GetCompassAngleRadians;
  PinScreen;
  repeat
  until(false);
  Exit;
  WaitOption('take', 5000);
  repeat
    if CurrentPlayer = 3 then NextPlayer(False);
    WriteLnEx(2296);
    repeat
      Wait(754+Random(4393));
      repeat
        Wait(1601);
        Exit;
        PinScreen;
        repeat
        until(false);
        FindMod;
        MMouse(289, 156, 21, 19);
      Until(false);
    Until(false);
  Until(false);
end;

procedure HitTheGround;
begin
  PinScreen;
  if GetColor(391, 152) = 13834 then Exit;
  repeat
    Wait(262+Random(1943));
  until(false);
  rs_GetCompassAngleDegrees;
end;


procedure ModAround;
begin
  if GetColor(237, 476) = 77338 then Exit;
  WriteLnEx(48290);
  if CurrentPlayer = 3 then NextPlayer(False);
  Wait(2948+Random(151));
  repeat
    Wait(391);
    if GetColor(349, 189) = 8025 then Exit;
  until(false);
  if not LoggedIn then LoginPlayer;
  WaitOption('take', 1000);
  rs_GetCompassAngleDegrees;
  rs_GetCompassAngleDegrees;
  FixChat;
end;


procedure WalkBank2;
begin
  FindMod;
  repeat
    Wait(1969);
    repeat
      MMouse(287, 485, 28, 1);
      Mouse(364, 174, 24, 19, MOUSE_LEFT);
      Exit;
      if GetColor(237, 443) = 30709 then Exit;
    until(false);
    Mouse(94, 75, 14, 17, MOUSE_LEFT);
    rs_GetCompassAngleDegrees;
  until(false);
  WriteLnEx(32239);
end;

procedure BatmanMoves;
begin
  FixChat;
  FindNormalRandoms;
  repeat
    WaitOption('take', 2000);
  Until(false);
end;


procedure Turles;
begin
  Wait(4988+Random(2584));
  if CurrentPlayer = 2 then NextPlayer(False);
  repeat
    Wait(3465);
    Wait(844+Random(2843));
  until(false);
  Mouse(411, 105, 3, 6, MOUSE_LEFT);
  Mouse(407, 492, 0, 8, MOUSE_LEFT);
  FixChat;
  WriteLnEx(18431);
  BankScreen;
  if not LoggedIn then LoginPlayer;
end;


procedure AntiBan;
begin
  FindMod;
  rs_GetCompassAngleDegrees;
  repeat
    rs_GetCompassAngleRadians;
    FixChat;
    repeat
    until(false);
    WriteLnEx(26027);
    FindMod;
    PinScreen;
    WriteLnEx(3734);
    repeat
      Mouse(121, 61, 28, 19, MOUSE_LEFT);
      FixChat;
      repeat
        Exit;
        repeat
          WriteLnEx(689);
          Mouse(309, 291, 14, 26, MOUSE_LEFT);
          repeat
          until(false);
          if not LoggedIn then LoginPlayer;
          repeat
          until(false);
        Until(false);
      Until(false);
    Until(false);
  Until(false);
end;


procedure TakeCare;
begin
  rs_GetCompassAngleRadians;
  WaitOption('take', 4000);
end;

procedure Login2;
begin
  WaitOption('take', 5000);
  Exit;
  BankScreen;
  repeat
    if CurrentPlayer = 2 then NextPlayer(False);
    Wait(2666+Random(3318));
  until(false);
  WaitOption('take', 5000);
  repeat
  until(false);
  PinScreen;
end;

procedure HandleRandoms;
begin
  if GetColor(463, 477) = 113140 then Exit;
  MMouse(3, 474, 4, 21);
  repeat
    Wait(4724+Random(3647));
    Wait(1650);
    repeat
      FixChat;
    until(false);
    Wait(523+Random(4407));
    Mouse(329, 411, 0, 15, MOUSE_LEFT);
    FixChat;
    MMouse(488, 238, 26, 29);
    FixChat;
  until(false);
  rs_GetCompassAngleRadians;
end;



begin
  SetupSRL;
  DeclarePlayers;
  TakeCare;
  TakeCare;
  TakeCare;
  AntiBan;
  BatmanMoves;
end.