program SorcGarden;

{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}
var
  I: Integer;
  Location, Debug: String;
  Breaking: Boolean;
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 HandleRandoms;
begin
  Exit;
  if not LoggedIn then LoginPlayer;
  Exit;
  repeat
    PinScreen;
    if not LoggedIn then LoginPlayer;
    FixChat;
    WriteLn(6673);
    rs_GetCompassAngleDegrees;
    rs_GetCompassAngleRadians;
    FixChat;
  Until(false);
end;

procedure WalkBack;
begin
  rs_GetCompassAngleDegrees;
  repeat
    if not LoggedIn then LoginPlayer;
    if not LoggedIn then LoginPlayer;
  until(false);
  MMouse(488, 349, 14, 19);
  FixChat;
  BankScreen;
  rs_GetCompassAngleDegrees;
end;

procedure BoredOfTypingProcedures;
begin
  Mouse(23, 457, 9, 18, MOUSE_LEFT);
  Exit;
  FixChat;
  repeat
  Until(false);
end;



procedure CheckCoins;
begin
  Wait(4612);
  if CurrentPlayer = 0 then NextPlayer(False);
  FindNormalRandoms;
  Mouse(15, 438, 10, 29, MOUSE_LEFT);
  WaitOption('take', 2000);
  Mouse(458, 15, 1, 0, MOUSE_LEFT);
end;


procedure PencilStategy;
begin
  BankScreen;
  FindNormalRandoms;
  if not LoggedIn then LoginPlayer;
  rs_GetCompassAngleRadians;
  Exit;
  repeat
  until(false);
  rs_GetCompassAngleDegrees;
end;


procedure TogglePray;
begin
  if CurrentPlayer = 3 then NextPlayer(False);
  if CurrentPlayer = 3 then NextPlayer(False);
  if GetColor(226, 225) = 3198 then Exit;
  WaitOption('take', 5000);
  rs_GetCompassAngleRadians;
  FindMod;
  rs_GetCompassAngleRadians;
  if GetColor(16, 245) = 138793 then Exit;
  if not LoggedIn then LoginPlayer;
  repeat
    Exit;
  until(false);
  rs_GetCompassAngleRadians;
  Wait(189);
  Wait(1466);
  if GetColor(79, 109) = 31679 then Exit;
  rs_GetCompassAngleRadians;
end;


procedure SetWalkings;
begin
  Wait(3781);
  repeat
    WriteLn(9806);
    BankScreen;
  until(false);
  if CurrentPlayer = 2 then NextPlayer(False);
end;


procedure CheckInv;
begin
  MMouse(480, 266, 4, 29);
  repeat
    WriteLn(16853);
    repeat
      Exit;
      WriteLn(34276);
    until(false);
    Wait(2562);
    FindMod;
    PinScreen;
    Wait(2301);
  until(false);
  FindNormalRandoms;
  Mouse(352, 451, 12, 2, MOUSE_LEFT);
  rs_GetCompassAngleRadians;
  WriteLn(15965);
  repeat
  Until(false);
end;


procedure SetupScript;
begin
  Exit;
  Mouse(69, 98, 4, 24, MOUSE_LEFT);
end;



procedure Trololo;
begin
  FindMod;
  rs_GetCompassAngleDegrees;
  FindMod;
  repeat
    PinScreen;
    Mouse(288, 361, 4, 19, MOUSE_LEFT);
    WaitOption('take', 1000);
    repeat
    until(false);
  Until(false);
end;


procedure AntiBan;
begin
  rs_GetCompassAngleRadians;
  Wait(886);
  FindNormalRandoms;
  if GetColor(205, 75) = 36437 then Exit;
  Wait(4210);
  repeat
    if GetColor(320, 3) = 21170 then Exit;
    PinScreen;
    repeat
      Wait(2401+Random(1067));
      if not LoggedIn then LoginPlayer;
      Mouse(459, 205, 17, 22, MOUSE_LEFT);
      FindNormalRandoms;
      FindMod;
    Until(false);
  Until(false);
end;

procedure AntiBanWalking;
begin
  WaitOption('take', 3000);
  FindNormalRandoms;
  FixChat;
  repeat
    if not LoggedIn then LoginPlayer;
    Mouse(309, 365, 6, 0, MOUSE_LEFT);
    FixChat;
    WaitOption('take', 2000);
    WriteLn(3452);
    FindNormalRandoms;
    repeat
      FindMod;
      Wait(1556);
      WriteLn(15225);
      FindNormalRandoms;
      if not LoggedIn then LoginPlayer;
      repeat
        MMouse(89, 190, 8, 6);
        FindMod;
      Until(false);
    Until(false);
  Until(false);
end;


procedure WalkBank2;
begin
  FindMod;
  repeat
  until(false);
  Exit;
  repeat
  Until(false);
end;


procedure EquipWep;
begin
  WriteLn(12239);
  FindMod;
  BankScreen;
  if not LoggedIn then LoginPlayer;
  FindMod;
  if CurrentPlayer = 0 then NextPlayer(False);
  if not LoggedIn then LoginPlayer;
end;


begin
  SetupSRL;
  DeclarePlayers;
  BoredOfTypingProcedures;
  TogglePray;
  BoredOfTypingProcedures;
end.