Need assistance with script

[DarkKitty7]

Hello I can't seem to figure the last part of my script out so i'm posting here for possible help.

I'd like for when i turn it on, it scans the "2182, 437" area of my desktop here for the "16316667" color, when the color changes i want it to play the "music.wav" 3 times, and then wait for "16316667" to re-appear, once the color "16316667" has re-appeared then I'd like for it to start all over at the top, and wait until "16316667" has dissappeared.

Currently the error is: it seems to be stuck in an infinite loop of spamming 'music.wav' once the pixel changes and then it keeps repeating and not stopping, i'd like for it to stop until color "16316667" comes back.

Hope that makes sense, thanks =)

Global $on=0
HotKeySet("{a}", "Music")
While 1
Sleep(1000)
WEnd


Func Music()
if $on=0 Then
SoundPlay("H:\Music.wav"); On
$on=1
Sleep(200)

Else

Beep(5500, 500) ; Off
$on=0
Sleep(500)
EndIf
While $on=1
Sleep(1000)
PixelSearch(2182, 437, 2182, 437, 16316667, 10) ;music
If @error Then
SoundPlay("H:\Music.wav")
Sleep(10000)
SoundPlay("H:\Music.wav")
Sleep(10000)
SoundPlay("H:\Music.wav")
Else
PixelSearch(2182, 437, 2182, 437, 16316667, 10)
If Not @error Then
EndIf
EndIf
WEnd
EndFunc

[Nessie]

What application are you trying to automate? Maybe there is a better way than that.

Hi!

[DarkKitty7]

It's not an application its just a pixel of color on my desktop

[PhoenixXL]

Check if it works

expandcollapse popup

#include <WinAPI.au3>
Global $fContinueLoop = False
Global $hDesktop = _WinAPI_GetDesktopWindow()

HotKeySet("{a}", "Music")
HotKeySet("{x}", "ToggleMusicLoop") ;For Exitting the Loop
While 1
Sleep(10) ;Shouldn't be more than 10
WEnd


Func Music()

While $fContinueLoop ;Continue until X is pressed
Sleep(10)
PixelSearch(2182, 437, 2182, 437, 16316667, 10, 1, $hDesktop) ;Search the Desktop Window
If @error Then ;Color Changed
For $i = 0 To 3 ;Play the Song Thrice
SoundPlay("H:\Music.wav")
Sleep(10000)
Next
EndIf
;Lets wait for the color to reappear
PixelWait(2182, 437, 2182, 437, 16316667, 10, 1, $hDesktop) ;Search the Desktop Window
WEnd

EndFunc   ;==>Music

Func ToggleMusicLoop()
$fContinueLoop = Not $fContinueLoop
EndFunc   ;==>ToggleMusicLoop

Func PixelWait($left, $top, $right, $bottom, $color, $shadevariation = 0, $step = 1, $hwnd = 0, $iTimeout = 5000) ;$iTimeout - Wait for 5Secs, set this to 0 to wait forever
Local $iTimer = 0, $aRet = 0
If $iTimeout Then $iTimer = TimerInit()

Do
If $iTimeout And TimerDiff($iTimer) > $iTimeout Then Return SetError(1, 0, 0)
$aRet = PixelSearch($left, $top, $right, $bottom, $color, $shadevariation, $step, $hwnd) ;Search
Until (@error = 0)

Return $aRet
EndFunc   ;==>PixelWait

Regards Edited April 26, 2013 by PhoenixXL

[DarkKitty7]

this one does not work for me, and to be honest is quite confusing as well, i wanted to keep the code very simple like my above example since i'm just starting to get into autoit.

i think i need to setup some type of variables, can autoit only do $example=0 and $example=1 ? or can you add more like =2 =3 =4?

[PhoenixXL]

Does this help

expandcollapse popup

Global $fContinueLoop = False

HotKeySet("{a}", "Music")
HotKeySet("{x}", "ToggleMusicLoop") ;For Exitting the Loop
While 1
Sleep(10)
WEnd


Func Music()
$fContinueLoop = True ;So that the loop runs
While $fContinueLoop

Sleep(10)

PixelSearch(2182, 437, 2182, 437, 16316667, 10) ;Search the Pixel

If @error Then ;Color Changed
SoundPlay("H:\Music.wav")
Sleep(10000)
SoundPlay("H:\Music.wav")
Sleep(10000)
SoundPlay("H:\Music.wav")
Sleep(10000)

;Lets wait for the color to reappear
Do ;Now search the pixel until it is found
PixelSearch(2182, 437, 2182, 437, 16316667, 10) ;Search the Pixel
Until @error = 0 ;if no error then pixel is found

EndIf

WEnd

EndFunc   ;==>Music

Func ToggleMusicLoop()
$fContinueLoop = False
;if the loop inside function Music is running it would end since $fContinueloop is now set to false
EndFunc   ;==>ToggleMusicLoop

Ask if you have any problems with this script. In AutoIt variables can hold char, numbers and many other. So you can make $i = 2

Regards