HotKeySet("{F4}","quitter")
HotKeySet("{UP}","up")
HotKeySet("{DOWN}","down")
HotKeySet("{LEFT}","left")
HotKeySet("{RIGHT}","right")
HotKeySet("{END}","end")
local $u,$d,$l,$r,$e
Do
   local $c = 0
   Local $pos = MouseGetPos()
   Local $var = PixelGetColor($pos[0], $pos[1])
   local $varh
   local $decalagex
   local $decalagey
   $varh = Hex($var, 6)
   if $pos[0]>960 then
	  $decalagex = -250
   Else
   EndIf
   if $pos[0]<961 then
	  $decalagex = 10
   Else
   EndIf
   if $pos[1]<541 then
	  $decalagey = 10
   Else
   EndIf
   if $pos[1]>540 then
	  $decalagey = -30
   Else
   EndIf
   ToolTip("x="&$pos[0]&" y="&$pos[1]&" hex="&$varh&" dec="&$var, $pos[0] + $decalagex , $pos[1] + $decalagey)
	  If $l = 1 Then
		 MouseMove ( $pos[0] - 1 , $pos[1] )
		 $l = 0
		 else
	  EndIf
	  If $r = 1 Then
		 MouseMove ( $pos[0] + 1 , $pos[1] )
		 $r = 0
		 else
	  EndIf
	  If $u = 1 Then
		 MouseMove ( $pos[0] , $pos[1] - 1 )
		 $u	 = 0
		 else
	  EndIf
	  If $d = 1 Then
		 MouseMove ( $pos[0] , $pos[1] + 1 )
		 $d = 0
		 else
	  EndIf
	  If $e = 1 Then
		 $c = 1
		 else
	  EndIf
Until $c = 1

quitter()
func up()
   $u = 1
EndFunc
func down()
   $d = 1
EndFunc
func left()
   $l = 1
EndFunc
func right()
   $r = 1
EndFunc
func end()
   $e = 1
EndFunc

Func quitter()
   alertedesecurite()
    Exit
EndFUnc
func alertedesecurite()
   MsgBox(0, "black opium","FIN UTILITAIRE SOURIS")
EndFunc