HotKeySet("{f2}", getline)
HotKeySet("{ESC}", Quit)
while 1
    Sleep(25)
WEnd


Func Quit ()
    Exit
EndFunc

Func getline ()
    Local $aLine[144]
    Local $iCounter = 0
    For $i = 1003 To 1146
        $aLine[$iCounter] = StringTrimLeft(Hex(PixelGetColor($i, 482)), 2)
        $iCounter += 1
    Next
    For $i = 0 to $iCounter - 1
        ConsoleWrite($aLine[$i] & " | ")
    Next
    ConsoleWrite(@CRLF)
EndFunc