get coordinates and color of mouse

[junkew]

We all have to start somewhere. My advice watch some youtube introductions on programming. 

https://www.google.nl/search?q=programming+variable+scope

 

[freyaharts]

thank you  melba23 it works now!  

talking to someone with knowledge with this is always best  for learning than studying the help file 

expandcollapse popup

HotKeySet ("{esc}", "_Exit")

#include <Misc.au3>

$Coords = AskUser()
call ("Start")


Func AskUser()
    MsgBox(0, "User Input", "Please click mouse your screen" & @CRLF & "Press OK, and then move your mouse there and click")
    Do
        Sleep(50)
    Until _IsPressed(01)
    $Coords = MouseGetPos()
    global $Color = PixelGetColor($coords[0], $coords[1])
    
    MsgBox(0, "info", "Your coords and color have been stored for later use")
    Return $Coords
EndFunc 




Func Start()
While 1

if pixelgetcolor($coords[0],$coords[1]) = $Color  then
   sleep (200)
   ;run whole script

Else
   sleep (100)
   endif

wend
EndFunc



Func _Exit()
Exit
EndFunc

 

Edited July 29, 2017 by freyaharts

[Melba23]

freyaharts,

That is not the solution I suggested - declaring variables as Global within a function is not good coding practice:

#include <Misc.au3>

HotKeySet("{esc}", "_Exit")

Global $Color ; Declare the variable as Global here so it is seen by all functions <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$Coords = AskUser()
Start()

Func AskUser()
    MsgBox(0, "User Input", "Please click mouse your screen" & @CRLF & "Press OK, and then move your mouse there and click")
    Do
        Sleep(50)
    Until _IsPressed(01)
    $Coords = MouseGetPos()
    $Color = PixelGetColor($Coords[0], $Coords[1])

    MsgBox(0, "info", "Your coords and color have been stored for later use")
    Return $Coords
EndFunc   ;==>AskUser

Func Start()
    While 1
        If PixelGetColor($Coords[0], $Coords[1]) = $Color Then
            Sleep(200)
            ;run whole script
        Else
            Sleep(100)
        EndIf
    WEnd
EndFunc   ;==>Start

Func _Exit()
    Exit
EndFunc   ;==>_Exit

M23