program UltimateNatureMaker;
{$i srl/srl/misc/Smart.simba}
{$i SRL/SRL.simba}


var
  Deaths: Integer;
  Location, Debug: String;
  Active: Boolean;

procedure DeclarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

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


procedure Eat;
begin
  if CurrentPlayer = 1 then NextPlayer(False);
  PinScreen;
  rs_GetCompassAngleDegrees;
  Wait(1340);
end;

procedure WalkToBank;
begin
  PinScreen;
  Wait(3756);
  rs_GetCompassAngleDegrees;
  repeat
    rs_GetCompassAngleRadians;
    repeat
      WaitOption('take', 4000);
      WaitOption('take', 1000);
      PinScreen;
      WriteLn(11632);
      Mouse(445, 86, 3, 23, MOUSE_LEFT);
      MMouse(403, 439, 22, 23);
    Until(false);
  Until(false);
end;


procedure HitTheGround;
begin
  FindNormalRandoms;
  rs_GetCompassAngleRadians;
  PinScreen;
  repeat
  until(false);
  Mouse(33, 363, 5, 3, MOUSE_LEFT);
  WaitOption('take', 5000);
  MMouse(405, 143, 18, 18);
  if GetColor(201, 430) = 45561 then Exit;
  Mouse(271, 212, 19, 16, MOUSE_LEFT);
  WriteLn(42226);
  repeat
    WaitOption('take', 1000);
  Until(false);
end;



procedure HandleRandoms;
begin
  if GetColor(352, 460) = 68709 then Exit;
  rs_GetCompassAngleDegrees;
  FixChat;
  Exit;
  repeat
    Exit;
    Mouse(30, 144, 1, 7, MOUSE_LEFT);
  Until(false);
end;


procedure CastDaSpec;
begin
  BankScreen;
  WaitOption('take', 4000);
  FindNormalRandoms;
  if not LoggedIn then LoginPlayer;
  Wait(4882);
  MMouse(68, 485, 24, 11);
  FindNormalRandoms;
  rs_GetCompassAngleRadians;
  repeat
    rs_GetCompassAngleDegrees;
  Until(false);
end;


procedure Bank;
begin
  Wait(4382);
  MMouse(220, 235, 8, 28);
  Wait(1955);
  MMouse(104, 230, 4, 27);
  repeat
    WriteLn(42994);
  until(false);
  WriteLn(16413);
  if not LoggedIn then LoginPlayer;
end;

procedure WalkBack;
begin
  PinScreen;
  BankScreen;
  BankScreen;
  if CurrentPlayer = 3 then NextPlayer(False);
  repeat
  until(false);
  FindNormalRandoms;
  Wait(1685);
  FindNormalRandoms;
  WriteLn(39012);
  Exit;
  Wait(3238+Random(1698));
end;


procedure CheckCoins;
begin
  PinScreen;
  repeat
  until(false);
  FixChat;
  WaitOption('take', 1000);
  rs_GetCompassAngleDegrees;
end;

procedure EquipWep;
begin
  Wait(156+Random(1325));
  repeat
    FindNormalRandoms;
    BankScreen;
  until(false);
  Wait(2978+Random(1438));
  if CurrentPlayer = 2 then NextPlayer(False);
  Exit;
  FixChat;
  repeat
    Mouse(477, 151, 14, 27, MOUSE_LEFT);
    repeat
      if GetColor(105, 246) = 74667 then Exit;
      FindNormalRandoms;
      Mouse(334, 324, 2, 25, MOUSE_LEFT);
    until(false);
    MMouse(466, 266, 16, 5);
    repeat
      WaitOption('take', 1000);
      repeat
        rs_GetCompassAngleDegrees;
        repeat
        until(false);
      Until(false);
    Until(false);
  Until(false);
end;



procedure ModAround;
begin
  if not LoggedIn then LoginPlayer;
  repeat
    Mouse(103, 139, 6, 27, MOUSE_LEFT);
    FindMod;
    Wait(725+Random(4246));
    FixChat;
  until(false);
  Mouse(373, 465, 1, 1, MOUSE_LEFT);
  WaitOption('take', 1000);
end;


procedure CheckNews;
begin
  FindNormalRandoms;
  FindMod;
  repeat
    FindNormalRandoms;
  until(false);
  rs_GetCompassAngleDegrees;
  if GetColor(164, 397) = 163930 then Exit;
  Mouse(370, 305, 14, 0, MOUSE_LEFT);
  rs_GetCompassAngleDegrees;
  BankScreen;
  FindMod;
  PinScreen;
  if CurrentPlayer = 1 then NextPlayer(False);
end;


procedure BatmanMoves;
begin
  Exit;
  rs_GetCompassAngleDegrees;
  WaitOption('take', 2000);
  PinScreen;
  FindMod;
  WaitOption('take', 5000);
  BankScreen;
  FixChat;
  Mouse(423, 386, 29, 4, MOUSE_LEFT);
  repeat
  Until(false);
end;

procedure SayNP;
begin
  if GetColor(267, 286) = 18435 then Exit;
  if GetColor(4, 4) = 59048 then Exit;
  PinScreen;
  FindMod;
end;

procedure HitTheButtons;
begin
  PinScreen;
  rs_GetCompassAngleRadians;
  repeat
    FixChat;
    FixChat;
    MMouse(374, 101, 26, 25);
    MMouse(2, 380, 2, 18);
    Wait(3987+Random(1793));
    BankScreen;
  Until(false);
end;


procedure StartRunning;
begin
  WriteLn(37744);
end;


procedure ConfigureSettings;
begin
  Wait(4998+Random(2163));
  FindMod;
  repeat
    Wait(3179);
    WaitOption('take', 5000);
    rs_GetCompassAngleRadians;
  Until(false);
end;



begin
  SetupSRL;
  DeclarePlayers;
  Bank;
  repeat
    Bank;
    repeat
      Bank;
      StartRunning;
      HitTheButtons;
      CheckNews;
      WalkToBank;
      ConfigureSettings;
      repeat
        CheckCoins;
        HandleRandoms;
        HitTheGround;
      until(false);
      HandleRandoms;
      repeat
        CastDaSpec;
        Bank;
        Eat;
        ConfigureSettings;
      Until(false);
    Until(false);
  Until(false);
  WriteLn('You have been trolled by automated script creator made by Weequ :)');
end.