Help Keep Us Free And Help Yourself To:
Our NEW 100% Free Public Item/Gold Dupe Method
NEW ALLIANCE 1-80 LEVELING GUIDE!!!
NEW HORDE 1-80 LEVELING GUIDE!!!
Our Speedy Gold Guide Hello i have made a Wow Bot with Pixealsearch using…
Code:
You musst just change the pixelcolore….#include <array.au3>
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$name = Random(1000000, 9000000000 ,1)
$Form1 = GUICreate($name, 395, 280, 366, 252)
$Button1 = GUICtrlCreateButton("Start", 288, 16, 81, 33, 0)
$Button2 = GUICtrlCreateButton("Ende", 288, 56, 81, 33, 0)
$Button3 = GUICtrlCreateButton("Optionen", 288, 104, 81, 33, 0)
$Button4 = GUICtrlCreateButton("Info", 288, 152, 81, 33, 0)
*****tState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
sleep(5000)
Dim $pos=0
Dim $timer=0
dim $timer2=0
start()
func timer()
sleep(24000)
EndFunc
func start()
sleep(2000)
$timer=TimerInit()
send("{1}")
sleep(2000)
search()
EndFunc
Func search()
if TimerDiff($timer) > 3000 then
wait()
Return
Else
$var = PixelSearch(241, 330, 1007, 670, 0x471408,25)
if @error Then
search()
Else
MouseMove($var[0], $var[1])
$pos=MouseGetPos()
$timer2=TimerInit()
MouseMove($pos[0]+55,$pos[1]+55)
bobber()
EndIf
EndIf
EndFunc
func wait()
sleep(1000)
start()
EndFunc
Func bobber()
if TimerDiff($timer2) > 11000 Then
wait()
Return
Else
$bobber = PixelSearch($pos[0]-30,$pos[1]-30,$pos[0]+30,$pos[1]+30, 0xA2A67D, 25)
if @error Then
ac()
Else
MouseClick("right",$bobber[0],$bobber[1])
start()
EndIf
EndIf
EndFunc
Func ac()
sleep(41)
bobber()
EndFunc
Leave a comment