im anhang ist die kompilierte version
Code:
; 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
