Что нового

[Мышь, клавиатура] (Куплю) Хочу заказать AIM для APB RELOADED от 1000 - 2000 рублей

KOTuK

Новичок
Сообщения
11
Репутация
0
Я пробовал этот скрипт но курсор не фиксирует цель а наоборот улетает от нее то в ноги то в небо по разному.
Код:
While 1
$Variable = PixelSearch(932, 511, 989, 569, 0xA0D018)
If IsArray($Variable) = True Then
   MouseMove($Variable[0],$Variable[1], 1)
   MouseClick("LEFT")
EndIf
WEnd

Func _Exit()
Exit
EndFunc


Короче куплю рабочий скрипт за 1000 - 2000 рублей в зависимости от качества.
 

DStalker

Ботоводство+Мультибоксинг = время выспаться ;)
Сообщения
37
Репутация
2
Для начала у тебя прицел изменяет цвет с белого на красный, если враг попал под прицел, верно?
тогда сузь площадь поиска до размера прицела. Ищи красный цвет, как только цвет меняется на красный, то стреляй.
Код:
#include <Array.au3>
#include <GUIConstantsEx.au3>
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
While 1
$Variable = PixelSearch(300, 200, 600, 400, 0xA0D018,0);0xA0D018 замени на цвет красного курсора. координаты области поиска сделай поменьше и в центре
If IsArray($Variable) = True Then
   MouseMove($Variable[0],$Variable[1], 1)
   MouseClick ("left", , , 3, 0) ; 3 выстрела
EndIf
WEnd

Func _Exit()
Exit
EndFunc
 
Автор
K

KOTuK

Новичок
Сообщения
11
Репутация
0
Выдает такую ошибку при наведение на цвет

Код:
#include <Array.au3>
#include <GUIConstantsEx.au3>
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
While 1
$Variable = PixelSearch(927,506,988,558,0xBB1414,0);0xA0D018 замени на цвет красного курсора. координаты области поиска сделай поменьше и в центре
If IsArray($Variable) = True Then
   MouseMove($Variable[0],$Variable[1], 1)
   MouseClick ("left", , , 3, 0) ; 3 выстрела
EndIf
WEnd

Func _Exit()
Exit
EndFunc
 

DStalker

Ботоводство+Мультибоксинг = время выспаться ;)
Сообщения
37
Репутация
2
а, ну да.. сразу не проверил... так попробуй, у меня во втором варианте ошибка ушла...
курсор не будет следовать за целью, он только будет стрелять три раза. как только курсор сменит цвет на красный)
2й вариант:
Код:
#include <Array.au3>
#include <GUIConstantsEx.au3>
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
While 1
$Variable = PixelSearch(927,506,988,558,0xBB1414,0); красный цвет прицела смотри со скришота .глубина цвета 0
If IsArray($Variable) = True Then
   MouseClick ("left",$Variable[0],$Variable[1], 3,0) ; 3 выстрела
EndIf
WEnd

Func _Exit()
Exit
EndFunc

и да, цвет прицела красный нужен.. Сделай скриншот экрана, когда прицел красный и посмотри цвет получивщийся.
 
Автор
K

KOTuK

Новичок
Сообщения
11
Репутация
0
Вообще скрипт не стреляет проверь сам :'(
 

DStalker

Ботоводство+Мультибоксинг = время выспаться ;)
Сообщения
37
Репутация
2
цвет прицела укажи правельный. 1. сделай скриншот через кнопку prtsc 2.зайди в фотошоп , вставь скриншот
3.пипеткой возьми красный цвет с прицела, и посмотри какое значение..4. вставь это значение которое используется в скрипте

или вставь картинку с красным прицелом сюда в формате bmp, только не в jpg. я сам посмотрю цвет))


Добавлено:
Сообщение автоматически объединено:

Еще вариант), чисто выстрел при появлении красного цвета прицела, сработает если цвет именно той красноты что и прицел;)
Код:
#include <Array.au3>
#include <GUIConstantsEx.au3>
Opt("PixelCoordMode", 2) ;Отсчет координат пикселей от левого верхнего угла клиентской части окна
Opt("MouseCoordMode", 2) ;Отсчет координат мыши от левого верхнего угла клиентской части окна
While 1
$Variable = PixelSearch(927,506,988,558,0xBB1414,0); красный цвет прицела смотри со скришота .глубина цвета 0
If IsArray($Variable) = True Then
   MouseClick ("left") ; так попробуй, если цвет красный появится, точно выстрелит))
EndIf
WEnd

Func _Exit()
Exit
EndFunc
 
Верх