WorldCheats Forum

Форум
Форум посвященный главным образом MMORPG играм. Никаких ХАЙДОВ!

 
ФорумПорталЧаВоПоискПользователиГруппыРегистрацияВход

Поделиться | 
 

 Lasers.au3 (CheckLaser и LaserPress)

Предыдущая тема Следующая тема Перейти вниз 
АвторСообщение
Lexx98
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 36
Возраст : 36
Награда :  
Дата регистрации : 2009-08-04

СообщениеТема: Lasers.au3 (CheckLaser и LaserPress)   Вт Авг 18, 2009 7:51 am

; Зависит от CheckPixel в модуле Colors.au3 [link]
; CheckLaser проверяет включён ли лазер номер $LaserNum (соответствует номеру клавиши F1-F8), работает при разрешени окна еве 1024*768. Проверка идёт в первых точках которые начинают светиться по окружности.
; LaserPress включает (при $on=1) или выключает (при $on=0) лазер с номером $LaserNum. Дополнительную проверку на включенность перед вызовом не требует, ибо проверяет сама.
; Естественно, работает только при настройках клиента уже описанных где-то в этом форуме - widescreen on.


; Вот тут примерно, только скрин брался старый, без widescreen включенного.
;;;;;;;;;;;;;;;;;;;;

Func CheckLaser($LaserNum)
if CheckPixel($WinPos[0]+614+51*($Lasernum-1), $WinPos[1]+671, $WinPos[0]+616+51*($Lasernum-1), $WinPos[1]+672, 0x101010)==1 then
return 1
else
return 0
endif
;;;;616+51 672 тут 616 - х координата точки проверки первого лазера, 51 - расстояние между иконками лазеров. 672 - y координата точки проверки.
EndFunc ; => CheckLaser

Func LaserPress($LaserNum, $on)
if CheckLaser($LaserNum)<>$on then
Send("{F"&$LaserNum&"}")
$Randc=Random(100, 500)
Sleep($Randc)
endif
EndFunc; => LaserPress


Последний раз редактировалось: Lexx98 (Вт Авг 18, 2009 11:50 am), всего редактировалось 1 раз(а)
Вернуться к началу Перейти вниз
Посмотреть профиль
Lyuk
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 41
Возраст : 37
Награда :  
Дата регистрации : 2009-04-30

СообщениеТема: Re: Lasers.au3 (CheckLaser и LaserPress)   Вт Авг 18, 2009 9:15 am

Добавь пожалуйста скриншот с обозначением точки проверки
Вернуться к началу Перейти вниз
Посмотреть профиль
Archy26
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 73
Возраст : 35
Награда :  
Дата регистрации : 2009-06-01

СообщениеТема: Re: Lasers.au3 (CheckLaser и LaserPress)   Ср Авг 19, 2009 12:57 am

С тримкалором, работать будет и БЕЗ вайдскрина, если задать значение яркости от 235 до 255
Хотя, может и подглючивать.
Вернуться к началу Перейти вниз
Посмотреть профиль
Lexx98
Пользователь
Пользователь
avatar

Мужчина Количество сообщений : 36
Возраст : 36
Награда :  
Дата регистрации : 2009-08-04

СообщениеТема: Re: Lasers.au3 (CheckLaser и LaserPress)   Ср Авг 19, 2009 4:04 am

Не уверен, там вроде не настолько яркая полоса, именно в том месте. Я вон с 0х101010 сравниваю. Хотя, возможно я и перестраховываюсь, не помню уже точно. Да и мало ли, вдруг солнце как раз там окажется, и всё, без вайдскрина никак.

Оказалось, скрипт всё же чуть-чуть сбоит. Поскольку область поиска пикселя задана чуть шире, иногда в неё попадает часть названия врека, которая отображается даже на чёрном фоне вайдскрина. Замирает собака, поскольку думает что сальвагер включён, когда он не включён, и ждёт когда врек отсальважится, до бесконечности.
Нужно либо чуть уменьшить зону поиска чтоб лишних пикселей не захватывать (если название никогда не залазит на ту тёмную окружность, по которой полоска активности бегает), либо проверять на зелёный цвет активации.
UPD. Также бывает достаточно просто отодвинуть камеру чуть дальше от корабля, чтобы все притаскиваемые вреки были в центре экрана. Хотя сделать распознавание зелёного все-равно стоит.
Вернуться к началу Перейти вниз
Посмотреть профиль
Спонсируемый контент




СообщениеТема: Re: Lasers.au3 (CheckLaser и LaserPress)   

Вернуться к началу Перейти вниз
 
Lasers.au3 (CheckLaser и LaserPress)
Предыдущая тема Следующая тема Вернуться к началу 
Страница 1 из 1

Права доступа к этому форуму:Вы не можете отвечать на сообщения
WorldCheats Forum :: Лаборатория Читера :: EVE Online-
Перейти: