; AutoIt Version: 3.0
; Language: English
; Platform: WinXP
; Author: XXXXXXXXXXXXX
;
; Script Function:
; WoW FishBot.
;
; Wow Window Title - World of Warcraft
; WoW Window Size - w1032 x h795
; classname=GxWindowClassD3d
; Colour of splash - 0xA2A67D
; 0xC1AD7A
; 0xD0C08D
; Position of item - x:44 y:226
; Position of hotkey 0 - x:409 y:768
; Prompt the user to run the script using Yes/No prompt
$run = MsgBox(4, "FishBot", "Do you want to run FishBot?")
; Exit if "No"
If $run = 7 Then
Exit
EndIf
; Initial shit
$time = MsgBox(4, "FishBot - Time of Day?", "Yes = Day | No = Night")
WinActivate("World of Warcraft")
HotKeySet("{PAUSE}", "EndScript")
; Script Start
While 1
MouseClick("left", 409, 768, 1, 2)
MouseMove(500, 500)
$start = TimerInit()
$dif = TimerDiff($start)
While 1
If $time = 6 Then
$coord = PixelSearch (5, 300, 1024, 560, 0xF6F6F6, 30, 4)
Else
$coord = PixelSearch (5, 300, 1024, 560, 0xEEEEEE, 55, 3)
EndIf
; 5, 300 - 1024, 560 can be changed if you want to search a wider area.
; Not recommended though since you can just adjust your view to fit all
; the water in that space. The bigger the area, the less likely it is to
; detect it.
; If the splash isn't getting detected then change the hex colour to
; something a bit closer. Top one is day, bottom is night.
If UBound($coord)>1 Then
MouseClick("right", $coord[0], $coord[1], 1, 3)
Sleep(500)
MouseClick("right", 44, 226, 1, 5)
ExitLoop
Else
Sleep(250)
$dif = TimerDiff($start)
If $dif > 30000 Then
ExitLoop
EndIf
EndIf
WEnd
WEnd
; Function to exit script
Func EndScript()
$exit = MsgBox(4, "FishBot", "End FishBot?")
If $exit = 6 Then
Exit
EndIf
EndFunc
It works with finding the colour in some particular pixel when you are fishing. The guys who are familiar with AutoIt will have do some tune-up (XY Position etc)
Best regards
