program UltimateNatureMakerPro;
{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}

var
  I, LoadsDone, Deaths, Slept, Gained: Integer;
  Location, Debug: String;
  Active: Boolean;

{*******************************************************************************
procedure DeclarePlayers;
By: SRL
Description: SRL\'s Player Setup
*******************************************************************************}
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 EquipWep;
begin
  Wait(126);
  Wait(871);
  Wait(2473);
  Wait(3879 Random(2867));
  repeat
    FixChat;
    MMouse(147, 377, 24, 0);
  until(false);
  MMouse(190, 193, 22, 25);
end;

procedure Trololo;
begin
  MMouse(439, 281, 6, 0);
  if GetColor(402, 250) = 106324 then Exit;
  FindMod;
  WaitOption(\'take\', 4000);
end;

procedure ScriptManagement;
begin
  BankScreen;
  WaitOption(\'take\', 5000);
  FindNormalRandoms;
  repeat
  until(false);
  BankScreen;
  MMouse(148, 77, 29, 10);
end;



procedure SetWalkings;
begin
  if not LoggedIn then LoginPlayer;
  repeat
    if CurrentPlayer = 0 then NextPlayer(False);
    Wait(759);
    rs_GetCompassAngleRadians;
    MMouse(198, 65, 1, 26);
    BankScreen;
    if not LoggedIn then LoginPlayer;
    FixChat;
  Until(false);
end;

procedure WalkToMiddle;
begin
  WriteLn(41185);
  Exit;
  Exit;
  Mouse(101, 156, 19, 7, MOUSE_LEFT);
end;



procedure CheckNews;
begin
  FixChat;
  FixChat;
  Mouse(446, 480, 4, 23, MOUSE_LEFT);
  FindMod;
  FindMod;
  rs_GetCompassAngleRadians;
  Mouse(269, 165, 5, 23, MOUSE_LEFT);
  if CurrentPlayer = 2 then NextPlayer(False);
  repeat
    Mouse(116, 150, 5, 2, MOUSE_LEFT);
    Mouse(367, 15, 2, 23, MOUSE_LEFT);
    if CurrentPlayer = 3 then NextPlayer(False);
    repeat
      MMouse(409, 268, 14, 9);
    Until(false);
  Until(false);
end;

procedure SayNP;
begin
  rs_GetCompassAngleDegrees;
  WaitOption(\'take\', 2000);
  if not LoggedIn then LoginPlayer;
  FindNormalRandoms;
end;


procedure TakeCare;
begin
  BankScreen;
  repeat
    WriteLn(7942);
  until(false);
  WriteLn(32698);
  WriteLn(46712);
  Exit;
  FixChat;
  PinScreen;
  FixChat;
end;



procedure ModAround;
begin
  if CurrentPlayer = 1 then NextPlayer(False);
  repeat
    rs_GetCompassAngleDegrees;
    rs_GetCompassAngleRadians;
    WaitOption(\'take\', 4000);
  until(false);
  FindMod;
  WaitOption(\'take\', 2000);
  Wait(4940);
  rs_GetCompassAngleRadians;
end;



procedure WalkBank2;
begin
  if CurrentPlayer = 1 then NextPlayer(False);
  Exit;
  Wait(1326);
  FixChat;
  BankScreen;
  MMouse(357, 446, 28, 26);
  repeat
    FindNormalRandoms;
  Until(false);
end;

procedure AntiBanTalk;
begin
  FindNormalRandoms;
  repeat
    Wait(1382 Random(3609));
    repeat
      if CurrentPlayer = 0 then NextPlayer(False);
      WriteLn(772);
      repeat
      until(false);
      PinScreen;
      FindMod;
    until(false);
    if GetColor(368, 405) = 32800 then Exit;
  until(false);
  Exit;
  PinScreen;
  rs_GetCompassAngleDegrees;
  if GetColor(90, 478) = 18320 then Exit;
end;

procedure SetupScript;
begin
  BankScreen;
  Wait(163);
  WaitOption(\'take\', 6000);
  Mouse(141, 220, 28, 21, MOUSE_LEFT);
  repeat
    WriteLn(23023);
  until(false);
  rs_GetCompassAngleRadians;
  if not LoggedIn then LoginPlayer;
  repeat
  Until(false);
end;


begin
  SetupSRL;
  DeclarePlayers;
  TakeCare;
  WalkBank2;
  ModAround;
  ScriptManagement;
  SetWalkings;
  TakeCare;
  repeat
    CheckNews;
    repeat
      Trololo;
      repeat
        SayNP;
        repeat
          WalkToMiddle;
        Until(false);
      Until(false);
    Until(false);
  Until(false);
end.