Get color by pixel Pong BOT

#include <MsgBoxConstants.au3>
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")

Local $colorHex = ""

Local $reg1 = []
Local $reg2 = []

Local $posBuscada = []

;obtener region rectangular
;seleccionar color a buscar

While 1
    if _IsPressed("31", $hDLL) Then
    ;CLICK PRESIONADO
    ConsoleWrite("Cargando..")
    While _IsPressed("31", $hDLL)

    WEnd
    ;CLICK LIBERADO
    obtenercolor()

    ElseIf _IsPressed("1B", $hDLL) Then
        ConsoleWrite("Cerrando applicacion")
        ExitLoop
    EndIf

WEnd


    Func obtenerColor()
        ToolTip("Tienes 5 segundos para elegir un color")
        sleep(5000)
        ;obtenemos posicion del color deseado
        Local $pos = MouseGetPos()

        ;Obtener color con coordenadas
        Local $color = PixelGetColor($pos[0], $pos[1])

        $colorHex =  Hex($color, 6)
        ConsoleWrite($colorHex & @CRLF)
        primerRegion()
    EndFunc


    Func primerRegion()
        ToolTip("la primer region")
        sleep(5000)
        ;obtenemos region rectangular
        $reg1 = MouseGetPos()
        consoleWrite($reg1[0] & "," & $reg1[1] & @CRLF)
        segundaRegion()
    EndFunc

    Func segundaRegion()
        ToolTip("la segunda region")
        sleep(5000)
        ;obtenemos region rectangular
        $reg2 = MouseGetPos()
        consoleWrite($reg2[0] & "," & $reg2[1] & @CRLF)

        ToolTip("Procesando...")

        buscarColorEnRegion()

    EndFunc


    Func buscarColorEnRegion()
        while 1
            $posBuscada = pixelSearch($reg1[0], $reg1[1], $reg2[0], $reg2[1], "0x" & $colorHex, 10)


            IF not @error then
                ;ConsoleWrite("X: " & $posBuscada[0] & ", Y:" & $posBuscada[1])
                MouseMove($posBuscada[0], $posBuscada[1], 1)

            endif

            If _IsPressed("1B", $hDLL) Then
                ConsoleWrite("Cerrando applicacion")
                ExitLoop
            EndIf

        WEnd

    EndFunc

DllClose($hDLL)