program PremiumRingMakerPro;
//PREMIUM SCRIPT - KEEP PRIVATE

{$i srl/srl/misc/Smart.simba}
{$i SRL/SRL.simba}


var
  Deaths, Slept, Gained: Integer;
  Location: String;
  Active, Breaking, Stupid: 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 BoredOfTypingProcedures;
begin
  BankScreen;
  MMouse(174, 371, 21, 28);
  PinScreen;
  rs_GetCompassAngleRadians;
  if not LoggedIn then LoginPlayer;
  FindMod;
  repeat
  until(false);
end;


procedure SetWalkings;
begin
  FindNormalRandoms;
  Wait(4318+Random(1606));
  WaitOption('take', 6000);
  Wait(3481);
  PinScreen;
  WriteLn(43869);
  Exit;
  if GetColor(129, 443) = 134812 then Exit;
  PinScreen;
  repeat
    Wait(2484);
    Wait(2960+Random(108));
    WaitOption('take', 2000);
    repeat
    until(false);
    rs_GetCompassAngleRadians;
    repeat
      WriteLn(46466);
      WriteLn(380);
      rs_GetCompassAngleDegrees;
      FindNormalRandoms;
      rs_GetCompassAngleDegrees;
      PinScreen;
      FixChat;
      WriteLn(26906);
      MMouse(43, 387, 24, 12);
      Wait(2136+Random(24));
    Until(false);
  Until(false);
end;

procedure TasteVengeance;
begin
  Mouse(212, 389, 27, 21, MOUSE_LEFT);
  Mouse(349, 485, 16, 27, MOUSE_LEFT);
  if GetColor(243, 160) = 49578 then Exit;
  WaitOption('take', 4000);
  PinScreen;
  WriteLn(30136);
end;

procedure Escape;
begin
  if GetColor(165, 98) = 56888 then Exit;
  if GetColor(301, 6) = 158208 then Exit;
  Wait(107+Random(943));
  Wait(4111+Random(2911));
  repeat
  until(false);
  Exit;
  WaitOption('take', 6000);
  repeat
  Until(false);
end;


procedure Eat;
begin
  if GetColor(362, 33) = 129236 then Exit;
  Exit;
  if CurrentPlayer = 0 then NextPlayer(False);
  Wait(4573+Random(4246));
end;

procedure ModAround;
begin
  FindMod;
  repeat
    WriteLn(22281);
    PinScreen;
  until(false);
end;



procedure DoAntibans;
begin
  Wait(4557);
  if not LoggedIn then LoginPlayer;
  repeat
  until(false);
  if not LoggedIn then LoginPlayer;
  repeat
    rs_GetCompassAngleRadians;
  until(false);
  WaitOption('take', 6000);
  Exit;
  FixChat;
  Mouse(136, 137, 10, 8, MOUSE_LEFT);
  FixChat;
  repeat
    rs_GetCompassAngleDegrees;
    if not LoggedIn then LoginPlayer;
    rs_GetCompassAngleRadians;
    if not LoggedIn then LoginPlayer;
    FixChat;
  until(false);
end;



procedure CheckInv;
begin
  PinScreen;
  Mouse(67, 301, 6, 8, MOUSE_LEFT);
  Exit;
  WriteLn(43875);
  if CurrentPlayer = 2 then NextPlayer(False);
  Mouse(156, 108, 27, 9, MOUSE_LEFT);
  Exit;
  PinScreen;
end;


procedure WatchOut;
begin
  if GetColor(440, 79) = 41557 then Exit;
  Wait(1429);
  repeat
    BankScreen;
    if GetColor(155, 141) = 65271 then Exit;
    rs_GetCompassAngleDegrees;
    FindMod;
    WriteLn(10534);
  Until(false);
end;




begin
  SetupSRL;
  DeclarePlayers;
  TasteVengeance;
  ModAround;
  repeat
    ModAround;
    BoredOfTypingProcedures;
    SetWalkings;
  Until(false);
end.