Что нового

Local Monitor Модуль

Автор
B

Belfigor

Модератор
Локальный модератор
Сообщения
3 595
Репутация
938
Конечно, у дискорда открытое апи, при желании сможешь быстро доработать
 

Kosh82

Новичок
Сообщения
3
Репутация
0
LocalMonitor v0.2
Код:
Opt("MustDeclareVars", 1)
Dim $ScanSade = 5 ;Уровень оттенка
Dim $LocalRightTopX = , $LocalRightTopY = , $ScanRangeLeftTopX = , $ScanRangeLeftTopY = , $ScanRangeRightBottomX = , $ScanRangeRightBottomY = ; координаты левого верхнего угла локала и области скана
Dim $Any = , $Neutral = , $Offwar = , $Socorp = , $Soal = ;etc... Цвета целей

While 1
    Scan($Neutral)
    Scan($Offwar)
    Scan($Any)
WEnd

Func Scan($Target)
    PixelSearch($ScanRangeLeftTopX, $ScanRangeLeftTopY, $ScanRangeRightBottomX, $ScanRangeRightBottomY, $Target, $ScanSade)
    If Not @error Then
        MsgBox(0, "Message", "Подтверждено наличие искомой цели.")
    EndIf
EndFunc


Для ленивых кому лень даже автоит скачать и запустить скрипт ниже прикреплен exe-шник локал монитора v0.3.
Распознает нейтралов и минусов и выводит вам сообщение как только увидит их в списке локала.
не прикреплён (
Сообщение автоматически объединено:

Вообще не понятно как пользоваться. Можно мини гайд? Ева в окне на втором мониторе
 
Последнее редактирование:
Автор
B

Belfigor

Модератор
Локальный модератор
Сообщения
3 595
Репутация
938
не прикреплён (
Сообщение автоматически объединено:

Вообще не понятно как пользоваться. Можно мини гайд? Ева в окне на втором мониторе
Таки с момента написания того поста прошло больше 10 лет, и вложение тупо не пережило все невзгоды случившиеся с форумом за эти годы.
Собственно в названии переменных и комментах есть вся необходима инфа.
Необходимо указать левый верхний и правый нижний углы списка где расположены иконки локала, указать цвета нейтралов, оффваров, сокорпов и соалов. Переменная Any в наши дни больше не нужна, так же можно добавить другпие цвета на которые нужно чтобы реагировал код.
 

Kosh82

Новичок
Сообщения
3
Репутация
0
Несколько раз пытался вбить данные о цвете нетралов/врагов, но почему-то всегда выдаёт цвет фона
 

Kosh82

Новичок
Сообщения
3
Репутация
0
покажи свой текущий код
Код:
Opt("MustDeclareVars", 1)
Dim $ScanSade = 5 ;Уровень оттенка
Dim $LocalRightTopX = , $LocalRightTopY = , $ScanRangeLeftTopX = , $ScanRangeLeftTopY = , $ScanRangeRightBottomX = , $ScanRangeRightBottomY = ; координаты левого верхнего угла локала и области скана
Dim $Neutral = , $Offwar = , $Socorp = , $Soal = ;etc... Цвета целей
 
While 1
    Scan($Neutral)
    Scan($Offwar)
    Scan($Any)
WEnd
 
Func Scan($Target)
    PixelSearch($ScanRangeLeftTopX, $ScanRangeLeftTopY, $ScanRangeRightBottomX, $ScanRangeRightBottomY, $Target, $ScanSade)
    If Not @error Then
        MsgBox(0, "Message", "Подтверждено наличие искомой цели.")
    EndIf
EndFunc
Проблема в определении цвета участка экрана. Программа не подхватывает его
 
Автор
B

Belfigor

Модератор
Локальный модератор
Сообщения
3 595
Репутация
938
Код:
Opt('MustDeclareVars', 1)

Global Const $iScanSade = 20 ;Уровень оттенка
Global Const $iScanRangeLeftTopX = ;Координата X левого верхнего угла области поиска
Global Const $iScanRangeLeftTopY = ;Координата Y левого верхнего угла области поиска
Global $iScanRangeRightBottomX = $iScanRangeLeftTopX + 1;Координата X правого нижнего угла области поиска
Global $iScanRangeRightBottomY = $iScanRangeLeftTopY + 150 ;Координата Y правого нижнего угла области поиска
Global Const $Neutral = 0x828282
Global Const $Red = 0x910202
Global Const $Orange = 0xC14502
 
While 1
    Scan($Neutral)
    Scan($Red)
    Scan($Orange)
WEnd
 
Func Scan($Target)
    PixelSearch($iScanRangeLeftTopX, $iScanRangeLeftTopY, $iScanRangeRightBottomX, $iScanRangeRightBottomY, $Target, $ScanSade)
    If Not @error Then
        MsgBox(0, "Message", "Подтверждено наличие искомой цели.")
    EndIf
EndFunc

Не тестил, но это должен быть рабочий вариант.
 
Верх