Quick and dirty code:
ACTool code
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
Contants
SampleX=20
SampleY=20
SampleR=0
SampleG=0
SampleB=0
SoundToPlay=C:\Windows\startup.wav
End
LoadRGB $SampleX,$SampleY
SetConst SampleR = {RGBRED}
SetConst SampleG = {RGBGREEN}
SetConst SampleB = {RGBBLUE}
While 1=1
Call CheckForChangedPixel
End
Procedure CheckForChangedPixel
LoadRGB $SampleX, $SampleY
If Not($Sample$ = {RGBRED}) AND Not($SampelG = {RGBGREEN}) AND Not($SampleB = {RGBBLUE}) Then
PlaySound $SoundToPlay
End
I wasn't too sure about the Not = syntax and Playsound, and I dont have a copy of ACTool here at work to verify that that's the correct context, but it should mostly work.