AutoBR v0.1

    WinActivate("H1Z1")

    MouseMove(100, 100)

    While True
        If (PixelGetColor(907, 188) <> 6710886) Then
            ExitLoop
        EndIf
    WEnd

    Sleep(100)

    Click(988, 183)
    Click(1018, 458)
    Click(1073, 722)

    Func Click($x, $y)
        For $i = 0 To 3
            MouseMove($x, $y, 3)
            Sleep(5)
            MouseClick("left")
            Sleep(5)
        Next
        Sleep(10)
    EndFunc