program UltimateBlackDragonKillerLite;
//Finally updated and working perfectly

{$i srl/srl/misc/Smart.simba}
{$i SRL/SRL.simba}
var
  I, LoadsDone, Gained: Integer;
  Location: String;
  Stupid: Boolean;
procedure DeclarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

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


procedure ModAround;
begin
  WaitOption('take', 6000);
  Wait(1044);
  WaitOption('take', 6000);
  repeat
    rs_GetCompassAngleRadians;
    PinScreen;
    BankScreen;
    repeat
      FixChat;
      WriteLnEx(35822);
      if CurrentPlayer = 2 then NextPlayer(False);
      repeat
      until(false);
      Wait(1629);
      rs_GetCompassAngleRadians;
      FindNormalRandoms;
    Until(false);
  Until(false);
end;



procedure HitTheButtons;
begin
  MMouse(36, 373, 12, 19);
  if GetColor(390, 448) = 111394 then Exit;
  repeat
  until(false);
  Wait(1578);
  rs_GetCompassAngleRadians;
  Wait(2651+Random(4289));
  repeat
    FindNormalRandoms;
    PinScreen;
  until(false);
  PinScreen;
  FixChat;
  rs_GetCompassAngleDegrees;
  Mouse(321, 86, 27, 20, MOUSE_LEFT);
  repeat
  until(false);
  PinScreen;
  Mouse(344, 268, 4, 26, MOUSE_LEFT);
  WaitOption('take', 6000);
  WriteLnEx(25345);
  FindNormalRandoms;
  if GetColor(14, 78) = 37067 then Exit;
  Exit;
  FindNormalRandoms;
  FindMod;
  repeat
  Until(false);
end;



procedure BatmanMoves;
begin
  rs_GetCompassAngleDegrees;
  rs_GetCompassAngleRadians;
  FindNormalRandoms;
  repeat
    BankScreen;
  until(false);
  if CurrentPlayer = 1 then NextPlayer(False);
  repeat
  Until(false);
end;



procedure Login2;
begin
  PinScreen;
  repeat
    Wait(1059+Random(2923));
    BankScreen;
    WaitOption('take', 3000);
  until(false);
  FindNormalRandoms;
  Mouse(99, 367, 25, 23, MOUSE_LEFT);
  Mouse(369, 350, 17, 25, MOUSE_LEFT);
  MMouse(465, 366, 19, 6);
end;

procedure DoAntibans;
begin
  Exit;
  Wait(4917);
  Mouse(14, 324, 15, 6, MOUSE_LEFT);
  BankScreen;
  WaitOption('take', 5000);
  PinScreen;
  WriteLnEx(21287);
end;



procedure SetupScript;
begin
  FindNormalRandoms;
  if not LoggedIn then LoginPlayer;
  rs_GetCompassAngleDegrees;
  FixChat;
  if GetColor(361, 425) = 76344 then Exit;
  if GetColor(440, 223) = 44222 then Exit;
  WriteLnEx(28594);
  if CurrentPlayer = 0 then NextPlayer(False);
  repeat
  Until(false);
end;


procedure Trololo;
begin
  FindMod;
  PinScreen;
  Wait(4723+Random(86));
  FindNormalRandoms;
  repeat
  until(false);
  WriteLnEx(27589);
  Exit;
  MMouse(452, 144, 6, 14);
  if not LoggedIn then LoginPlayer;
end;


procedure Rotate;
begin
  if not LoggedIn then LoginPlayer;
  FindMod;
  FindNormalRandoms;
  BankScreen;
  Mouse(316, 229, 11, 15, MOUSE_LEFT);
  WaitOption('take', 1000);
  Exit;
end;

procedure PencilStategy;
begin
  FindNormalRandoms;
  FindNormalRandoms;
  WriteLnEx(37909);
  MMouse(371, 459, 12, 5);
  FindNormalRandoms;
  rs_GetCompassAngleRadians;
  repeat
    BankScreen;
    repeat
    until(false);
    if CurrentPlayer = 0 then NextPlayer(False);
    repeat
    until(false);
    MMouse(27, 37, 22, 14);
    WriteLnEx(33560);
  Until(false);
end;


begin
  SetupSRL;
  DeclarePlayers;
  SetupScript;
  Rotate;
  HitTheButtons;
  repeat
    HitTheButtons;
  until(false);
end.