#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\300_Icones\Dossiers\11.ico
#AutoIt3Wrapper_outfile=Pixou.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=Par Hck
#AutoIt3Wrapper_Res_Fileversion=1.0.0.6
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Misc.au3>

Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 1)



HotKeySet("{F2}", "com")
HotKeySet("{ESC}", "quit")
HotKeySet("{PAUSE}", "Pause")

dim $pos[2],$Paused = 0, $pix1, $pix2, $pix0,$x,$y

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Utilitaire", 334, 230, 193, 125)
$Label1 = GUICtrlCreateLabel("Utilitaire pour faire une recherche de pixel rapide et précise sous Autoit", 0, 0, 335, 17)
$Label2 = GUICtrlCreateLabel("Créé en association avec Bender, codé par Hck.", 40, 16, 235, 17)
$Label3 = GUICtrlCreateLabel("Placez votre souris sur l'objet à detecter, puis appuyez sur F2", 24, 48, 291, 17)
$Code = GUICtrlCreateEdit("", 16, 64, 305, 150)
GUICtrlSetData(-1, "Code")
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd



func com()
	
    $pos = MouseGetPos()
	
	$pix0 = PixelGetColor($pos[0],$pos[1])
	
	traytip("",hex($pix0,6),0)
	
    $pix1 = PixelGetColor($pos[0] + 1,$pos[1])
 
    $pix2 = PixelGetColor($pos[0],$pos[1] + 1)

    MouseMove($pos[0],$pos[1],1)
	
    GUICtrlSetData($code,'while 1' & @CRLF & '$coord = PixelSearch ( $x , $y , $x2 , $y2 , 0x' & hex($pix0,6) & ')' & @CRLF & '      if not @error then' & @CRLF & '         if Hex(pixelgetcolor($coord[0]+1, $coord[1] )) = "00' & hex($pix1,6) & '" then' & @CRLF & '            if Hex(pixelgetcolor($coord[0], $coord[1] +1)) = "00' & hex($pix2,6) & '" then' & @CRLF & '               exitloop' & @CRLF & '            endif' & @CRLF & '         endif' & @CRLF & '      endif' & @CRLF & 'WEnd')

endfunc


While 1
	Sleep(50)
WEnd

Func quit()
	Exit
EndFunc   ;==>quit

Func Pause() ; la pause
	TrayTip("Clear TIP", "", 0)
	$Paused = Not $Paused
	If $Paused Then
		TrayTip("Pause !", "Pause ", 1, 1)
		While $Paused
			Sleep(100)
		WEnd
	Else
		TrayTip("plus pause !", "plus Pause", 1, 1)
	EndIf

EndFunc   ;==>Pause