Heya. I thought it would be nice to contribute since mmowned help me many times.So this is an Auto-it Fishbot i made a while ago with pixelsearch. And im explaining how things working in the code.
Feel free to use this \ edit it etc.
First off!
If you saw this on any other site with the nick kirrunax. just so you know. Thats me.
You need auto-it. Wont COMPILE it for you.
put your spelldetail to max.
Enable autoloot
Zoom so you cant see your char.
Here is the code:
Code:
;##########
;## Wow pos and size.
Global $wow = 'World of Warcraft'
Global $WowSize = WinGetClientSize($wow)
Global $WowPos = WinGetPos($wow)
;##########
;## When the bot should stop
Global $StopAfterXfishes = 800
Global $StopAfterXminutes = 120
;##########
;## Hotkeys
; Lure macro is:
; /use Lure
; /use FihsingPole
Global $FishKey = '1'
Global $LureKey = '2'
;##########
;## Using an lure function so Adlib can enable lure once evry 31 min, with macro
func Lure()
Send($LureKey)
Sleep(3500)
EndFunc
;##########
;## This will be used many times. to reduce text i will make it to an function
func Throw()
Send($FishKey)
Sleep(3000)
Global $current = timerinit()
EndFunc
;##########
;## LetFishSum!
func LetsFish()
$Fish = 0
$Timer = TimerInit()
;######
;# Activate the wow window and hide the ui
WinActivate($wow)
WinWaitActive($wow)
AdlibEnable('Lure',60000*31)
Do
Throw();Just throws the bobbler
$Splash = PixelSearch($WowPos[0],$WowPos[1]+35,$WowSize[0],$WowSize[1],0xF3F3F3,25,2);Search for the bobbler in the whole wow window.
while $Splash = true
$Splash = PixelSearch($WowPos[0],$WowPos[1]+35,$WowSize[0],$WowSize[1],0xF3F3F3,25,2)
Sleep(100)
if Round(timerdiff($current)/1000,0) >= 30 Then;If the bobbler is not seen in 30 sec. Then throw again
Throw()
EndIf
wend
MouseClick('right',$Splash[0],$Splash[1],1,0);Rightclick where the color was found
Sleep(1000)
$Fish+=1;Count the fishes
ToolTip('Fishes hooked: ~'&$Fish&' total time: '&Round(timerdiff($timer)/1000/60,0)&' minutes',$WowPos[0],$WowPos[1],'Fishsticks 1.0: Will stop after ~'&$StopAfterXfishes&' fishes is catched, or after '&$StopAfterXminutes&' minutes')
Until $Fish >= $StopAfterXfishes or Round(timerdiff($timer)/1000/60,0) >= $StopAfterXminutes;Stop after the time you want or when the x fihses was found
AdlibDisable()
EndFunc
LetsFish();Start the whole loop
Cheers Natt_!