program UltimateSWLite;
//This script is NOT free! Keep it to yourself please! (No Leaking)
{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}

var
  LoadsDone, Deaths: Integer;
  Active, Breaking: Boolean;
procedure DeclarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

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

end;


procedure HandleRandoms;
begin
  if not LoggedIn then LoginPlayer;
  FindMod;
  repeat
  until(false);
  Mouse(485, 489, 11, 15, MOUSE_LEFT);
  if not LoggedIn then LoginPlayer;
  FindMod;
  Exit;
  Wait(2721);
  rs_GetCompassAngleRadians;
  Mouse(266, 417, 7, 26, MOUSE_LEFT);
  Wait(2015+Random(3892));
end;


procedure CheckCoins;
begin
  Wait(3141);
  FixChat;
  WaitOption('take', 5000);
  repeat
  until(false);
  if GetColor(295, 276) = 167024 then Exit;
  WaitOption('take', 3000);
  MMouse(144, 365, 6, 12);
  repeat
    BankScreen;
    rs_GetCompassAngleDegrees;
    FixChat;
  Until(false);
end;


procedure CheckInv;
begin
  rs_GetCompassAngleRadians;
  if CurrentPlayer = 0 then NextPlayer(False);
  MMouse(245, 101, 23, 5);
  if not LoggedIn then LoginPlayer;
  repeat
    WriteLnEx(49196);
    repeat
      Wait(543+Random(1028));
      rs_GetCompassAngleDegrees;
    until(false);
    Mouse(183, 2, 5, 22, MOUSE_LEFT);
    Wait(3449+Random(1434));
  until(false);
  PinScreen;
end;



procedure AntiBanTalk;
begin
  Wait(3100);
  repeat
    BankScreen;
    repeat
      WriteLnEx(47618);
      if not LoggedIn then LoginPlayer;
      if CurrentPlayer = 3 then NextPlayer(False);
      repeat
      until(false);
      rs_GetCompassAngleDegrees;
      if GetColor(74, 412) = 89715 then Exit;
      FindNormalRandoms;
      if GetColor(123, 62) = 154637 then Exit;
      PinScreen;
      repeat
      until(false);
      Wait(4217);
    until(false);
    BankScreen;
    Wait(3819);
    repeat
      BankScreen;
      rs_GetCompassAngleRadians;
    Until(false);
  Until(false);
end;

procedure WalkBack;
begin
  Wait(1350+Random(4787));
  MMouse(328, 210, 18, 9);
  Wait(1716);
  if GetColor(253, 310) = 21064 then Exit;
  WriteLnEx(25515);
  if CurrentPlayer = 2 then NextPlayer(False);
  FixChat;
  repeat
    BankScreen;
  until(false);
end;


procedure ScriptManagement;
begin
  WriteLnEx(46127);
  FindMod;
  if CurrentPlayer = 2 then NextPlayer(False);
  Exit;
  MMouse(101, 230, 25, 19);
  MMouse(254, 91, 23, 15);
  PinScreen;
  repeat
  until(false);
  FindMod;
  WriteLnEx(18001);
  repeat
    FindNormalRandoms;
  Until(false);
end;

procedure PrintProggy;
begin
  if not LoggedIn then LoginPlayer;
  repeat
    BankScreen;
    MMouse(350, 122, 11, 26);
    repeat
      Exit;
      BankScreen;
      repeat
        WriteLnEx(22386);
        WaitOption('take', 4000);
        WriteLnEx(15307);
      Until(false);
    Until(false);
  Until(false);
end;


procedure SetupScript;
begin
  PinScreen;
  Mouse(444, 476, 22, 26, MOUSE_LEFT);
  BankScreen;
  if not LoggedIn then LoginPlayer;
  PinScreen;
  BankScreen;
  repeat
  until(false);
  Wait(1446);
  repeat
  until(false);
  Wait(3538+Random(3627));
  repeat
    FixChat;
    repeat
      if GetColor(265, 262) = 168537 then Exit;
      WriteLnEx(35689);
    Until(false);
  Until(false);
end;


procedure WalkToCenter;
begin
  Wait(4450+Random(4530));
  PinScreen;
  repeat
    PinScreen;
    FindMod;
    if CurrentPlayer = 0 then NextPlayer(False);
  until(false);
  Mouse(191, 214, 23, 26, MOUSE_LEFT);
  FindMod;
  if CurrentPlayer = 0 then NextPlayer(False);
  PinScreen;
  repeat
    rs_GetCompassAngleDegrees;
    BankScreen;
  Until(false);
end;

procedure CastSpec;
begin
  BankScreen;
  Wait(4333);
  repeat
    if CurrentPlayer = 3 then NextPlayer(False);
    rs_GetCompassAngleDegrees;
    FixChat;
    rs_GetCompassAngleDegrees;
    WriteLnEx(14079);
    Wait(3855);
    repeat
      BankScreen;
      Wait(4456);
    Until(false);
  Until(false);
end;


procedure CastDaSpec;
begin
  rs_GetCompassAngleDegrees;
  if GetColor(98, 26) = 5494 then Exit;
  Mouse(277, 231, 0, 8, MOUSE_LEFT);
end;


procedure SolveRands;
begin
  Mouse(490, 83, 17, 3, MOUSE_LEFT);
  Mouse(171, 189, 13, 23, MOUSE_LEFT);
  Wait(3812);
  MMouse(303, 453, 7, 13);
  Wait(251);
  rs_GetCompassAngleDegrees;
  if CurrentPlayer = 2 then NextPlayer(False);
  Exit;
  repeat
    Exit;
  until(false);
  if GetColor(464, 35) = 72691 then Exit;
  repeat
    MMouse(130, 68, 2, 15);
  Until(false);
end;


procedure ConfigureSettings;
begin
  FindMod;
  rs_GetCompassAngleRadians;
  Wait(1559+Random(516));
  FixChat;
  PinScreen;
  FindNormalRandoms;
  repeat
    WriteLnEx(17969);
    if CurrentPlayer = 2 then NextPlayer(False);
    MMouse(484, 222, 13, 14);
    Mouse(129, 424, 12, 15, MOUSE_LEFT);
  Until(false);
end;

procedure Escape;
begin
  PinScreen;
  FindNormalRandoms;
  PinScreen;
  Wait(3973+Random(1162));
  FindNormalRandoms;
  repeat
    rs_GetCompassAngleRadians;
    MMouse(467, 131, 28, 29);
    MMouse(412, 476, 27, 21);
    WriteLnEx(113);
  Until(false);
end;



procedure DoBanking;
begin
  Wait(1961+Random(1417));
  WaitOption('take', 3000);
  Wait(2856);
  PinScreen;
  Exit;
  repeat
  until(false);
  FindNormalRandoms;
  Wait(3819);
  Exit;
end;



procedure CheckNews;
begin
  WriteLnEx(32909);
  WaitOption('take', 5000);
  WriteLnEx(21552);
  if not LoggedIn then LoginPlayer;
  Mouse(381, 344, 12, 4, MOUSE_LEFT);
  PinScreen;
  rs_GetCompassAngleDegrees;
  Exit;
end;



procedure AntiBanWalking;
begin
  if GetColor(468, 194) = 104234 then Exit;
  Exit;
  repeat
    WaitOption('take', 3000);
    repeat
      FindMod;
      WaitOption('take', 3000);
    until(false);
    if not LoggedIn then LoginPlayer;
    Exit;
    repeat
      FindNormalRandoms;
      FixChat;
      Wait(1218+Random(2249));
      repeat
      until(false);
      if not LoggedIn then LoginPlayer;
      if CurrentPlayer = 0 then NextPlayer(False);
      repeat
        BankScreen;
        repeat
          MMouse(462, 99, 29, 2);
          WriteLnEx(49416);
        Until(false);
      Until(false);
    Until(false);
  Until(false);
end;



begin
  SetupSRL;
  DeclarePlayers;
  HandleRandoms;
  repeat
    DoBanking;
    CheckInv;
    PrintProggy;
    repeat
      AntiBanWalking;
    until(false);
    SolveRands;
    repeat
      CheckInv;
    Until(false);
  Until(false);
end.