Guest User

Untitled

a guest
Jul 17th, 2019
118
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. HotKeySet("{f2}", getline)
  2. HotKeySet("{ESC}", Quit)
  3. while 1
  4.     Sleep(25)
  5. WEnd
  6.  
  7.  
  8. Func Quit ()
  9.     Exit
  10. EndFunc
  11.  
  12. Func getline ()
  13.     Local $aLine[144]
  14.     Local $iCounter = 0
  15.     For $i = 1003 To 1146
  16.         $aLine[$iCounter] = StringTrimLeft(Hex(PixelGetColor($i, 482)), 2)
  17.         $iCounter += 1
  18.     Next
  19.     For $i = 0 to $iCounter - 1
  20.         ConsoleWrite($aLine[$i] & " | ")
  21.     Next
  22.     ConsoleWrite(@CRLF)
  23. EndFunc
RAW Paste Data