WinterGrasp fisher

[DoubleMcLovin]

click everywhere but the bobber

If you are having trouble with it missing your bobber, it is just a difference of screen color (eg: effect levels).

It is currently set to detect the red of your bobber, and look around that for the splash. If there are red trees around you, those might throw it off. And if you can't get it just take a screenshot of your bobber and get a decent pixel of it and replace where necessary in the code.

[soskie]

changed the colors many times and the same thing happens



Thanks though

[Vyre]

Thanks, will try it :]

[soskie]

Not cool...

; AutoIt Version: 3.0
; Language: English
; Platform: WinXP
; Author: Mibz (Pantless Krab)
;
; 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

[DoubleMcLovin]

While the skeleton looks similar between these, analysis of mine shows that it searches for the bobber and splash in a different manor. My bot focuses on the bobber rather than the splash.

However, I would like to thank you. I did base my code off this bot's skeleton and concept, though without my revisions this bot will hardly do much besides click around the screen all night. I had used it almost two years ago and have made several major revisions since then due to the original hardly functioning. I had forgotten the name of the original owner because I never planned on releasing my revision. I have updated my original post to give credit for the concept.