Люди у меня жесткая проблема решил написать 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("Nobuyuki Forces - Gioca Giochi Online Gratuiti su Gioco.it - Mozilla Firefox", "") Then WinActivate("Nobuyuki Forces - Gioca Giochi Online Gratuiti su Gioco.it - Mozilla Firefox", "")
WinWaitActive("Nobuyuki Forces - Gioca Giochi Online Gratuiti su Gioco.it - Mozilla Firefox", "")
HotKeySet("{HOME}", "atkFallens")
HotKeySet("{F10}", "exitNow")
$left = 386
$top = 378
$right = 986
$bottom = 775
$colour = 0x04A594A
While True
If $atk = 1 Then
$func = PixelSearch( $left, $top, $right, $bottom, $colour)
If not @Error then
MouseClick ("left" , $func[0], $func[1], 1, 0)
MouseClick ("left")
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
Код:
$left = 386
$top = 378
$right = 986
$bottom = 775
Если не роботает иши с помоши Au3Info сможеш наити.....
А да у тебя там адрес стоял на черный цвет если хочешь чтобы не был черный цвет делай и игру в окно...
________________
Учусь на Autoit >_> Достала тебя уже знаю сукцко
Последний раз редактировалось Auto_IT_Uses^.^; 04.07.2011 в 09:42.