Что нового

Local Monitor Модуль

Автор
B

Belfigor

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

Kosh82

Новичок
Сообщения
4
Репутация
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 596
Репутация
938
не прикреплён (
Сообщение автоматически объединено:

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

Kosh82

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

Kosh82

Новичок
Сообщения
4
Репутация
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 596
Репутация
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

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

Kosh82

Новичок
Сообщения
4
Репутация
0
хм. Возможно подскажу, прописную истину, но вы координаты указываете абсолютные или клиентской части игры?
Во-первых вы спросили, а не подсказали. Во-вторых проблема в подхватывании цвета нейтрала, а не координатах.
 

mr.Gbabak

Осваивающий
Сообщения
248
Репутация
21
Во-первых вы спросили, а не подсказали. Во-вторых проблема в подхватывании цвета нейтрала, а не координатах.
Во первых это вам нужна помощь.
Во вторых, если вы так принципиально относитесь к формулировкам, то что означает подхватывание цвета?

в третьих:
Несколько раз пытался вбить данные о цвете нетралов/врагов, но почему-то всегда выдаёт цвет фона
Предоставленный вами код не может выдавать ничего.

Сформулируйте мысль правильно.
Ну и покажите весь код.
Dim $LocalRightTopX = , $LocalRightTopY = , $ScanRangeLeftTopX = , $ScanRangeLeftTopY = , $ScanRangeRightBottomX = , $ScanRangeRightBottomY = ; координаты левого верхнего угла локала и области скана Dim $Neutral = , $Offwar = , $Socorp = , $Soal = ;etc... Цвета целей
Вот эти координаты интересны особенно.
(А так же проверьте, работает ли скриншот окна евы. Была подобная проблема, но там очень специфичные условия возникновения данных условий)
 
Верх