Noob Q : Pixel Group?

[Guest Goat]

i was wondering how to make auto it look for a group of pixels of a certain colour? or is it not possible?

[DirtyBanditos]

i was wondering how to make auto it look for a group of pixels of a certain colour?  or is it not possible?

<{POST_SNAPBACK}>

Hello look on the Autoit3 help files or use the search func on his forums!

Ok I Post you This exampel of Pixelsearch to learn from it)

expandcollapse popup

HotKeySet("{esc}", "test")
Global $test

While 1
   If $Test Then
      Sleep(2000)
      MouseClick( "left", 955, 657, 2, 1)
      $a = _LoadPixelRectFromFile( "testes.txt")
      $b = _FindPixelRect(354, 188, 460, 629, $a)
      If Not @error Then
         Call("Play")
         ContinueLoop
      Else
         Sleep(1000)
         MouseMove(615, 687, 1)
         Sleep(1000)
         MouseClick( "left", 615, 687, 1, 1)
         ContinueLoop
      EndIf
   EndIf
   
WEnd

Func Test()
   $test= Not $Test
EndFunc  ;==>test

Func Play()
   MouseMove($b[0], $b[1])
   Sleep(1000)
   MouseClick( "left")
   Sleep(3000)
   Send("ggggg")
   Sleep(500)
   MouseClick( "left")
   Sleep(5000)
  EndFunc  ;==>Play

Func _FindPixelRect($_NL, $_NT, $_NR, $_NB, ByRef $_APIXRECT)
   If Not IsArray($_APIXRECT) Or Not UBound($_APIXRECT, 2) Then
      SetError(1)
      Return 0
   EndIf
   
   If ($_NL + UBound($_APIXRECT, 2) > $_NR) Or ($_NT + UBound($_APIXRECT) > $_NB) Then
      SetError(2)
      Return 0
   EndIf
   
   $_NR = $_NR - UBound($_APIXRECT, 2) + 1
   $_NB = $_NB - UBound($_APIXRECT) + 1
   $_NLIMITX = UBound($_APIXRECT)
   $_NLIMITY = UBound($_APIXRECT, 2)
   
   $_ACOORD = PixelSearch($_NL, $_NT, $_NR, $_NB, $_APIXRECT[0][0])
   While Not @error
      For $_NY = 1 To $_NLIMITY
         For $_NX = 1 To $_NLIMITX
            If $_APIXRECT[$_NY - 1][$_NX - 1] <> PixelGetColor($_ACOORD[0] + $_NX - 1, $_ACOORD[1] + $_NY - 1) Then
               SetError(1)
               ExitLoop 2
            EndIf
         Next
      Next
      If Not @error Then
         Return $_ACOORD
      Else
         $_ATEMP = PixelSearch($_ACOORD[0] + 1, $_ACOORD[1], $_NR, $_ACOORD[1], $_APIXRECT[0][0])
         If @error Then
            $_NT = $_ACOORD[1] + 1
            If $_NT > $_NB Then
               SetError(1)
               Return 0
            EndIf
            $_ACOORD = PixelSearch($_NL, $_NT, $_NR, $_NB, $_APIXRECT[0][0])
         Else
            $_ACOORD = $_ATEMP
         EndIf
      EndIf
   WEnd
   SetError(1)
   Return 0
EndFunc  ;==>_FindPixelRect


Func _LoadPixelRect($_NL, $_NT, $_NR, $_NB)
   If ($_NL > $_NR Or $_NT > $_NB) Then
      SetError(1)
      Return 0
   EndIf
   
   Dim $_APIXRECT[$_NB - $_NT + 1][$_NR - $_NL + 1]
   
   For $_NY = $_NT To $_NB
      For $_NX = $_NL To $_NR
         $_APIXRECT[$_NY - $_NT][$_NX - $_NL] = PixelGetColor($_NX, $_NY)
      Next
   Next
   
   Return $_APIXRECT
EndFunc  ;==>_LoadPixelRect


Func _LoadPixelRectFromFile($_SZBUFFER)
   If Not FileExists($_SZBUFFER) Then
      SetError(1)
      Return 0
   EndIf
   
   $_SZBUFFER = StringStripCR(FileRead($_SZBUFFER, FileGetSize($_SZBUFFER)))
   If StringRight($_SZBUFFER, 1) == @LF Then $_SZBUFFER = StringTrimRight($_SZBUFFER, 1)
   $_SZBUFFER = StringSplit($_SZBUFFER, @LF)
   $_SZLINE = StringSplit($_SZBUFFER[1], ",")
   
   $_NLIMITX = $_SZLINE[0]
   $_NLIMITY = $_SZBUFFER[0]
   
   Dim $_APIXRECT[$_NLIMITY][$_NLIMITX]
   
   For $_NY = 1 To $_NLIMITY
      $_SZLINE = StringSplit($_SZBUFFER[$_NY], ",")
      If $_SZLINE[0] <> $_NLIMITX Then
         SetError(1)
         Return 0
      EndIf
      For $_NX = 1 To $_NLIMITX
         $_APIXRECT[$_NY - 1][$_NX - 1] = Number($_SZLINE[$_NX])
      Next
   Next
   
   Return $_APIXRECT
EndFunc  ;==>_LoadPixelRectFromFile


Func _SavePixelRect(ByRef $_ARECT, $_SZFILE)
   Dim $_SZBUFFER = ""
   
   If Not IsArray($_ARECT) Or Not UBound($_ARECT, 2) Then
      SetError(1)
      Return 0
   EndIf
   
   $_LIMITY = UBound($_ARECT)
   $_LIMITX = UBound($_ARECT, 2)
   
   For $_NY = 0 To $_LIMITY - 1
      For $_NX = 0 To $_LIMITX - 1
         $_SZBUFFER = $_SZBUFFER & $_ARECT[$_NY][$_NX] & ","
      Next
      $_SZBUFFER = StringTrimRight($_SZBUFFER, 1) & @CRLF
   Next
   
   $_SZBUFFER = StringTrimRight($_SZBUFFER, 2)
   
   FileDelete($_SZFILE)
   FileWrite($_SZFILE, $_SZBUFFER)
   Return 1
EndFunc  ;==>_SavePixelRect

Edited January 15, 2005 by DirtyBanditos

[Insolence]

I couldn't even learn from that... I'd have to study the entire thing.

I suggest you just look at the help file for pixelsearch

[layer]

DiryBanditos... that looks nice but since he is new, maye just a little simple script will suit his needs

Straight from helpfile..

;Function:
PixelSearch ( left, top, right, bottom, color [, shade-variation] [, step]] )






; Find a pure red pixel in the range 0,0-20,300
$coord = PixelSearch( 0, 0, 20, 300, 0xFF0000 )
If Not @error Then
    MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1])
EndIf


; Find a pure red pixel or a red pixel within 10 shades variations of pure red
$coord = PixelSearch( 0, 0, 20, 300, 0xFF0000, 10 )
If Not @error Then
    MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1])
EndIf

i recomend you go to the help file and go to the index and search "PixelSearch"...

[DirtyBanditos]

DiryBanditos... that looks nice but since he is new, maye just a little simple script will suit his needs

Straight from helpfile..

;Function:
PixelSearch ( left, top, right, bottom, color [, shade-variation] [, step]] )
; Find a pure red pixel in the range 0,0-20,300
$coord = PixelSearch( 0, 0, 20, 300, 0xFF0000 )
If Not @error Then
    MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1])
EndIf
; Find a pure red pixel or a red pixel within 10 shades variations of pure red
$coord = PixelSearch( 0, 0, 20, 300, 0xFF0000, 10 )
If Not @error Then
    MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1])
EndIf

i recomend you go to the help file and go to the index and search "PixelSearch"...

<{POST_SNAPBACK}>

Sorry Layer you have right! Edited January 15, 2005 by DirtyBanditos