МПМ Былины - Мир Древней Руси

МПМ Былины - Мир Древней Руси (https://www.bylins.su/vbb/index.php)
-   Клиенты для игры (https://www.bylins.su/vbb/forumdisplay.php?f=52)
-   -   ПодЦветка с заменой. + часики (ММС) (https://www.bylins.su/vbb/showthread.php?t=2093)

Jungle 16.03.2006 15:00

ПодЦветка с заменой. + часики (ММС)
 
Товарищи, как мне подсветить строку в ММС?, я хочу сделать следующее:
Вот это подсветить каким-нибудь цветом.

/substitute {$1 сказал[а-я] : } {$1 -> $2}

И добавить время, если получится перед $1. Чтобы было примерно так:

[20:30:00] Кто-то -> 'тест'

dzMUDiST 16.03.2006 16:06

trig {
my @time = (localtime)[2,1];
$clock = join ":", @time;
$: = "\003I\[$clock\] $1 -> \'$2\'";
} '^([^ ]*?) сказал.? : \'(.*?)\'', 'f1000';

Вот только режет строки с ' (кавычками)

Jungle 16.03.2006 16:24

А где это надо писать? в *.pm ?

d_blacky 16.03.2006 17:09

В файле mmc.ini, или другом любом файле, если mmc стартует с параметром командной строки -- именем этого файла. (оттуда будет грузиться конфиг).

Jungle 16.03.2006 17:12

Нашел куда добавить, но имхо я помню, что давно-давно я делал как-то по-другому ;( и прописывал сразу из ММС что да как. и с кавычками этими тоже пхало ;(

Urik 16.03.2006 20:07

Цитата:

Сообщение от d_blacky
-- именем этого файла. (оттуда будет грузиться конфиг).

ИМЕНЕМ ФАЙЛА ПРИКАЗЫВАЮ - ГРУЗИСЬ!!!

Аристарх 16.03.2006 21:16

телнет форева!!!

d_blacky 17.03.2006 05:43

Цитата:

Сообщение от Urik
ИМЕНЕМ ФАЙЛА ПРИКАЗЫВАЮ - ГРУЗИСЬ!!!

очень содержательный ответ, несущий глубокий концептуальный и подсмысловой контекст...
Ничего интересней (по теме) сказать не нашлось?

Вот мой вариант часиков, (в нем не происходит смещения текста когда часы отображают:
[9:59] Кто-то -> 'что-то'
[10:00] Кто-то -> 'что-то'
(конечно когда это в главном окне происходит это не так заметно, но если сбрасывать это еще и в како-нибудь из окон -- то там это как-то криво смотрится, когда строчки начинают с 1 до 9 часов смещаться).
Цитата:

trig {
my $out = "\003I\[".(sprintf "%2d:%2d", (localtime)[2,1])."\]\003H $1 -> \'$2\'";
wecho(1, $out); # хотя мб можно сразу посылать "$:" в кач-ве аргумента, просто оно !reading, поэтому кое где ее нельзя так легко использовать как обычную переменную.
$: = $out;
} '^(\w+?) сказал.? : \'(.*?)$\'', 'f1000';

Цитата:

Сообщение от Jungle
Нашел куда добавить, но имхо я помню, что давно-давно я делал как-то по-другому ;( и прописывал сразу из ММС что да как. и с кавычками этими тоже пхало ;(

Можно в строку ввода писать любой perl код по типу:
/perl{trig{sendl("г спам!")} '^Минул час\.$', "test"}
, но в этом случае эти триггеры не сохранятся при выключении клиента (даже если выключать его через /quit, а не как закрывают jmc.

По поводу *.pm -- можно из них добавлять информацию через:
include -- если *.pm оформлен просто как кусок текста на перле,
или через use (когда .pm реально оформлен по всем правилам как Perl Module, а не просто как кусок кода)


Часовой пояс GMT +4, время: 03:39.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot