program PremiumSilverCrafterPro;

{.include srl/srl/misc/Smart.simba}
{.include SRL/SRL.simba}
var
  Deaths, Slept: Integer;
  Debug: String;
  Active, Breaking: Boolean;
procedure DeclarePlayers;
begin
  NumberOfPlayers(5);
  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;

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

procedure HitTheGround;
begin
  Wait(4673 Random(3587));
  if GetColor(95, 430) = 14281 then Exit;
  repeat
    rs_GetCompassAngleRadians;
  Until(false);
end;

procedure HandleRandoms;
begin
  Exit;
  if not LoggedIn then LoginPlayer;
  FixChat;
  FindNormalRandoms;
  rs_GetCompassAngleDegrees;
  repeat
    if GetColor(7, 54) = 123276 then Exit;
    WriteLnEx(26855);
    PinScreen;
  Until(false);
end;

procedure HitTheButtons;
begin
  WaitOption(\'take\', 1000);
  if not LoggedIn then LoginPlayer;
  Wait(371 Random(3644));
  if not LoggedIn then LoginPlayer;
  rs_GetCompassAngleRadians;
  repeat
  Until(false);
end;


procedure TakeCare;
begin
  WriteLnEx(47077);
  repeat
    PinScreen;
    rs_GetCompassAngleDegrees;
    repeat
      Mouse(456, 11, 29, 10, MOUSE_LEFT);
      WriteLnEx(24705);
    until(false);
    FixChat;
    Wait(4006 Random(1476));
  Until(false);
end;


procedure Login2;
begin
  Mouse(480, 270, 19, 21, MOUSE_LEFT);
  Wait(971 Random(1991));
  FindMod;
  Exit;
  MMouse(322, 41, 1, 26);
end;


procedure AntiBanTalk;
begin
  WriteLnEx(657);
  BankScreen;
  if CurrentPlayer = 3 then NextPlayer(False);
  BankScreen;
  Mouse(387, 212, 23, 16, MOUSE_LEFT);
  repeat
    if not LoggedIn then LoginPlayer;
    repeat
      if not LoggedIn then LoginPlayer;
      WaitOption(\'take\', 3000);
      repeat
        Mouse(395, 95, 7, 8, MOUSE_LEFT);
      until(false);
    Until(false);
  Until(false);
end;


procedure Sneeze;
begin
  WriteLnEx(4430);
  PinScreen;
  Mouse(110, 484, 29, 14, MOUSE_LEFT);
  FindNormalRandoms;
  repeat
  Until(false);
end;



procedure CheckNews;
begin
  WriteLnEx(30608);
  Wait(2498 Random(2607));
  FindNormalRandoms;
  if not LoggedIn then LoginPlayer;
end;


procedure DoBanking;
begin
  BankScreen;
  BankScreen;
  WriteLnEx(37637);
  Exit;
  rs_GetCompassAngleDegrees;
end;

procedure Rotate;
begin
  rs_GetCompassAngleDegrees;
  FindNormalRandoms;
  PinScreen;
  if GetColor(334, 256) = 123270 then Exit;
  WaitOption(\'take\', 6000);
  repeat
  until(false);
  WaitOption(\'take\', 2000);
  FindMod;
end;


procedure Speak;
begin
  BankScreen;
  Mouse(155, 305, 9, 11, MOUSE_LEFT);
  Exit;
  FindNormalRandoms;
  repeat
    Exit;
  until(false);
  rs_GetCompassAngleRadians;
  if GetColor(384, 351) = 166214 then Exit;
  WriteLnEx(4392);
  Wait(4003 Random(2894));
  Mouse(333, 144, 28, 28, MOUSE_LEFT);
  if CurrentPlayer = 1 then NextPlayer(False);
  rs_GetCompassAngleRadians;
  repeat
  until(false);
end;



procedure SetupScript;
begin
  BankScreen;
  rs_GetCompassAngleDegrees;
  repeat
    WriteLnEx(36583);
    PinScreen;
    FindMod;
  until(false);
  Exit;
end;

procedure AntiBan2;
begin
  if not LoggedIn then LoginPlayer;
  PinScreen;
  WriteLnEx(30461);
end;

procedure CastSpec;
begin
  rs_GetCompassAngleDegrees;
  Exit;
  Exit;
  repeat
    FindMod;
  until(false);
  PinScreen;
  rs_GetCompassAngleRadians;
  WriteLnEx(1707);
  repeat
  until(false);
  rs_GetCompassAngleRadians;
end;


begin
  SetupSRL;
  DeclarePlayers;
  CheckNews;
  repeat
    SetupScript;
  until(false);
  AntiBan2;
  HitTheGround;
  Sneeze;
  DoBanking;
  AntiBanTalk;
  Login2;
  CheckNews;
  HandleRandoms;
  TakeCare;
  Login2;
  Sneeze;
  HitTheButtons;
  repeat
  until(false);
  Sneeze;
end.