†PrEDok†
21.09.2010, 15:36
Люди у меня жесткая проблема решил написать AIM на AutoIt но сталкнулся с проблемой при наводке на нужный цвет тоесть бота мыш улитает куданить в бок!
Помагати будьте так добры!Я просто уже незнаю что и делать!
; Declare Variables
$atk = 0
; ToolTip displaying function keys
Tooltip("HOME = On/Off Attack Fallens, F10 = Exit", 0, 0)
; List of command keys
If Not WinActive("Point Blank", "") Then WinActivate("Point Blank", "")
WinWaitActive("Point Blank", "")
HotKeySet("{HOME}", "atkFallens")
HotKeySet("{F10}", "exitNow")
While True
If $atk = 1 Then
$coord = PixelSearch( 158, 86, 1128, 797, 0xFF0000, 40 )
If not @Error then
MouseMove ( $coord [ 0 ] , $coord [ 0 ] , 0)
MouseClick("left",$coord[0],$coord[1] , 0 )
EndIf
EndIf
WEnd
; Functions
; On/Off atkFallens():
Func atkFallens()
If $atk = 0 Then
$atk = 1
Tooltip("Auto attacking Fallens (HOME to disable)", 0, 0)
Else
$atk = 0
Tooltip("HOME = On/Off Attack Fallens, F10 = Exit", 0, 0)
EndIf
EndFunc
; Exit
Func exitNow()
Exit
EndFunc
ИЛИ ПОДСКАЖИТЕ КАКОЙНИТЬ СПОСОБ ЕЩЕ!
Помагати будьте так добры!Я просто уже незнаю что и делать!
; Declare Variables
$atk = 0
; ToolTip displaying function keys
Tooltip("HOME = On/Off Attack Fallens, F10 = Exit", 0, 0)
; List of command keys
If Not WinActive("Point Blank", "") Then WinActivate("Point Blank", "")
WinWaitActive("Point Blank", "")
HotKeySet("{HOME}", "atkFallens")
HotKeySet("{F10}", "exitNow")
While True
If $atk = 1 Then
$coord = PixelSearch( 158, 86, 1128, 797, 0xFF0000, 40 )
If not @Error then
MouseMove ( $coord [ 0 ] , $coord [ 0 ] , 0)
MouseClick("left",$coord[0],$coord[1] , 0 )
EndIf
EndIf
WEnd
; Functions
; On/Off atkFallens():
Func atkFallens()
If $atk = 0 Then
$atk = 1
Tooltip("Auto attacking Fallens (HOME to disable)", 0, 0)
Else
$atk = 0
Tooltip("HOME = On/Off Attack Fallens, F10 = Exit", 0, 0)
EndIf
EndFunc
; Exit
Func exitNow()
Exit
EndFunc
ИЛИ ПОДСКАЖИТЕ КАКОЙНИТЬ СПОСОБ ЕЩЕ!