i improved a little since i was in lack of a whisper sound.
it scans every 10-15s for a whisper and if found then plays whisper.wav
that also works if wow sound is off (since i hated when hearing all BOOM when joining bgs, and disturbing my studying and a sillent whisper sound "pip")
now you can put a very loud DING DING DING, and you wont be disturbed by other noises.
Also it chooses random time so it's much more difficult to catch you if they try to.
other thing - i suggess to name file one of these names : [Only registered and activated users can see links. Click Here To Register...]
it scans every 10-15s for a whisper and if found then plays whisper.wav
that also works if wow sound is off (since i hated when hearing all BOOM when joining bgs, and disturbing my studying and a sillent whisper sound "pip")
now you can put a very loud DING DING DING, and you wont be disturbed by other noises.
Also it chooses random time so it's much more difficult to catch you if they try to.
other thing - i suggess to name file one of these names : [Only registered and activated users can see links. Click Here To Register...]
Quote:
$bord_vert = 23
$bord_hori = 4
$wind_size = WinGetClientSize("World of Warcraft")
$wind_posi = WinGetPos("World of Warcraft")
$wind_x = $wind_posi[0] + $bord_hori
$wind_y = $wind_posi[1] + $bord_vert
WinActivate("World of Warcraft")
WinSetOnTop("World of Warcraft", "", 0)
For $z = 1 to 4 Step 1
Send("{home}")
Next
Send("{end}")
Func whisperscan()
$whispercolor = '0xAB57AF'
$data = WinGetPos('World of Warcraft')
PixelSearch($data[0], $data[1], $data[0] + $data[2], $data[1] + $data[3], $whispercolor, 3, 5)
if Not @error Then SoundPlay('whisper.wav')
EndFunc
While 1
For $i = 50 to 550 Step 100
For $g = 50 to 750 Step 50
Sleep(50)
MouseMove($g + $wind_x,$i + $wind_y)
MouseClick("right")
Sleep(50)
Next
Next
whisperscan()
Sleep(Int(Random(10000,15000)))
whisperscan()
Sleep(Int(Random(10000,15000)))
whisperscan()
Sleep(Int(Random(10000,15000)))
whisperscan()
Sleep(Int(Random(10000,15000)))
WEnd