Var
  PlayerColor: Integer;
  TargetColors: Array[1..2] of Integer;
  KeyPressed: Boolean;

Function PlayerIsNear(PlayerX, PlayerY, TargetX, TargetY: Integer): Boolean;
Begin
End;

Procedure MoveTowardsTarget(PlayerX, PlayerY, TargetX, TargetY: Integer);
Begin
End;

Procedure CheckKeyPressed;
Begin
  KeyPressed := KeyDown(VK_CONTROL) and KeyDown(VK_F1);
End;

Procedure MainLoop;
Var
  PlayerX, PlayerY: Integer;
  TargetX, TargetY: Integer;
  TargetIndex: Integer;
Begin
  Repeat
    CheckKeyPressed; // Check if Ctrl + F1 is pressed to end the script
    If KeyPressed Then Exit;

    If FindColor(PlayerX1, PlayerY1, PlayerX2, PlayerY2, PlayerColor, 1) Then
    Begin
      PlayerX := PlayerX1 + Random(PlayerX2 - PlayerX1);
      PlayerY := PlayerY1 + Random(PlayerY2 - PlayerY1);

      For TargetIndex := Low(TargetColors) to High(TargetColors) do
      Begin
        If FindColor(TargetX1, TargetY1, TargetX2, TargetY2, TargetColors[TargetIndex], 1) Then
        Begin
          TargetX := TargetX1 + Random(TargetX2 - TargetX1);
          TargetY := TargetY1 + Random(TargetY2 - TargetY1);

          If PlayerIsNear(PlayerX, PlayerY, TargetX, TargetY) Then
          Begin
            MouseClick(TargetX, TargetY, 1);
            Delay(Random(1000) + 500);
          End
          Else
          Begin
            MoveTowardsTarget(PlayerX, PlayerY, TargetX, TargetY);
            Delay(Random(1000) + 500);
          End;
        End;
      End;
    End;
  Until False;
End;

Begin
  KeyPressed := False;
  PlayerColor := $FF0000; // Example: Red color (hex: FF0000)
  TargetColors[1] := $00FF00; // Example: Green color (hex: 00FF00)
  TargetColors[2] := $0000FF; // Example: Blue color (hex: 0000FF)
  MainLoop;
End.