Autoit Last chaos
Hallo Leute allso
ich habe da so en bot Geht auch aber , er findet nich immer moobs so und nur grune
;D
Opt("PixelCoordMode",2)
Opt("MouseCoordMode",2)
$Green = "0x5B9600"
HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
while 1
ToolTip ("Running...",0,0)
$coord = PixelSearch(150,120,866,508,$Green,5)
$n = @error
If NOT @error Then
while $n = 0
$x = Random($coord[0], $coord[0]+50, 1)
$y = Random($coord[1], $coord[1]+50, 1)
MouseClick("right", $x, $y, 2, 0)
$mm = PixelGetColor ( 580 , 9 )
$mob = Hex($mm, 6)
If $mob Then
ExitLoop
$coord = PixelSearch(150,120,866,508,$Green,5)
EndIf
$n = @error
wend
If $mob = "1C1E14" Then
while $mob = "1C1E14"
Send("{F1}")
sleep(350)
Send("{F3}")
$mm = PixelGetColor ( 508, 9 )
$mob = Hex($mm, 6)
wend
Sleep (1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
Send("{F2}")
Sleep(1000)
EndIf
Else
Send("{Right 6}")
Endif
WEnd
kann mir einer sagen wie ich das mache das er da auch weise moobs angreift und ob ich das da dann einfach einfugen kann ?? weil ich habe kp wie autoit geht xD
 |
