Проверка на включение модулей, требуется помощь

[Belfigor]

И тем больше денег принесет

 

[McSkull]

Уже и не знаю, что делать.

Задача:
- Определить состояние Стрип Минера (Вкл или Выкл).

Проблема в том, что цвет в середине модуля не изменяется... :(
А на краю модуля (там где бежит белая полоска) цвет меняется очень интенсивно и как минимум там 3 цвета с кучей оттенков.

Подскажите как реши эту проблемуку?

 

[hikki]

Делай widescreen, тоесть так чтоб сверху и снизу экран были полосы черные, или используй карту и отматывай ее в сторону, чтоб весь экран черный был. И тогда сможеш найти точку на экране которая черная в случае неактивности модуля, а если модуль активирован бегущая полоска будет создавать там какой либо цвет.

$at1 = PixelGetColor($F_key_x, $F_key_y)
If $at1 = 0 Then Send("{F1}")

вот кусок, проверяет модуль на работу, если не работает то включает F1
$F_key_x, $F_key_y соотвественно координаты точки что должна быть черной при отключеном модуле

 

[McSkull]

2 hikki
Спасибо.
Широкоформатный режим помог решить проблему.

:IL_AutoIt_1:

 

[swg]

В след патче широкоформатный режим убирают. Готовьтесь. Хороший был режим и далеко не для ботов :(

 

[Belfigor]

Будем прекрасно жить и без широкоформатного режима :D

 

[hikki]

Буду как и все в режиме карты летать, а проверку на наличие меню и диалогов еще какнибудь прикручу. Надо кстати на тест будет заглянуть.

 

[McSkull]

Буду как и все в режиме карты летать, а проверку на наличие меню и диалогов еще какнибудь прикручу. Надо кстати на тест будет заглянуть.

Широкоформатного режима нет... :(

Карта стала не черной а с разными оттенками.

У меня проверка включенных лазеров не работает... :'(

Кото-то придумал как с этим бороться? (не хочется рыть лед...)

P.S.
Видимо стоит ожидать серьезного роста цены на Минералы...

 

[hikki]

вроде нормальная черная карта, пока тестирую и все работает

 

[Belfigor]

У меня все на ура воркает

Case $ToCheck = "Module" ;ConCheck("Module", "High", 2)
            If $Location <> "Space" Then Return "#"
            Local $var = PixelSearch(540, 726, 573, 726, 0xE6E6E6, 10) ;Ищим HUD. Каждый раз после вызова этой функции ее работа начинается именно с поиска маленького треугольничка меню справа внизу худа
            If Not @error Then
                Local     $HighSlots[2] = [$var[0] + 43, $var[1] - 76], _ 
                        $MidSlots[2] = [$var[0] + 68, $var[1] - 32], _ 
                        $LowSlots[2] = [$var[0] + 43, $var[1] + 12], _
                        $Step = 51
            Else
                ErrorMsg("Не могу найти худ ConChek('Module')")
            EndIf
            
            Select
                Case $AdvCheck = "High"
                    If $AdvCheck2 <> 0 Then
                        $AdvCheck2 = $AdvCheck2 - 1
                        PixelSearch($HighSlots[0]+51*$AdvCheck2, $HighSlots[1], $HighSlots[0]+51*$AdvCheck2, $HighSlots[1], 0x000000, 5)
                        If Not @error Then 
                            Return "Inactive"
                        Else
                            Return "Active"
                        EndIf
                    Else
                        ;Вернуть состояние всех хайслотов
                    EndIf
                Case $AdvCheck = "Mid"
                    If $AdvCheck2 <> 0 Then
                        $AdvCheck2 = $AdvCheck2 - 1
                        PixelSearch($MidSlots[0]+51*$AdvCheck2, $MidSlots[1], $MidSlots[0]+51*$AdvCheck2, $MidSlots[1], 0x000000, 5)
                        If Not @error Then 
                            Return "Inactive"
                        Else
                            Return "Active"
                        EndIf
                    Else
                        ;Вернуть состояние всех мидслотов
                    EndIf    
                Case $AdvCheck = "Low"
                    If $AdvCheck2 <> 0 Then
                        $AdvCheck2 = $AdvCheck2 - 1
                        PixelSearch($LowSlots[0]+51*$AdvCheck2, $LowSlots[1], $LowSlots[0]+51*$AdvCheck2, $LowSlots[1], 0x000000, 5)
                        If Not @error Then 
                            Return "Inactive"
                        Else
                            Return "Active"
                        EndIf
                    Else
                        ;Вернуть состояние всех лоуслотов
                    EndIf    
                Case Else
                    ErrorMsg("Неверный ввод в ConCheck('Module')")
                EndSelect

 

[DJ_Tommy]

Кстати, белф прав - есть 2 режима карты:
первый показывавет систему в которой ты находишься, со всеми ее планетами лунами и проч.
второй показывает карту галактики в виде кучи точек.
Так вот тебе нужен именно второй режим, причем сделать максимальное удаление и покрутить карту так что бы она не залезала на модули и различные таблицы.