mmc - печать из триггера ПОСЛЕ строки.

[diver]

Срабатывает триггерт на строку, и печатает сообщение через echo(). Так вот сообщения всегда выводятся ДО строки, на которую сработал триггер. А можно ли как-то умудриться напечатать их после?

[Раххаль]

Насколько мне известно, есть два способа:
1) Обрабатывать в триггере raw-текст строки, вызвавшей срабатывание триггера и находящийся в переменных $_ и $; и менять этот текст, добавляя после свой. Документация http://mmc.mud.ru/mmc.txt, описание MMC API, функция trig.
2) Возможно более простой - при срабатывании триггера создавать ещё один триггер на любую строку (^.*$), который выведет необходимый текст а затем удалится. Возможная проблема - задержка вывода текста до получения следующей строки (без "реж сж" почти невозможно, в "реж сж" вполне возможно).
Также вопрос производительности, если таких систем будет довольно много - может начать тормозить. От вопросов производительности, кстати, не надо отмахиваться - я видел конфиг, который начинал тормозить на спаме из принца (какой там спам - фигня одна), не говоря уже о каких-нибудь рипеях (1,2,3).

[diver]

не выходит. не дает писать на другой строке. =(
рисует квадратики вместо каретки и все.

[Путей]

почему у меня такое чувство что глубоко законспирированный раххаль все таки поигрывает в мад))

[diver]

не. я не он.

[zallexx]

Развивая тему $_
P::trig
{
$buf = $_;
$: = '';
P::echo "\003I".$buf;
P::echo "Итить-колотить моя строка!";
} '^Вы улыбнулись.$';

- работает, но с цветами надо заморачиваться.

P::trig
{
P::timeout
{
P::echo("тыщ-пыщ");
} 1, 1;
} '^Вы улыбнулись.$';

- тоже работает, но там лишние пустые строчки появляются.

создавать ещё один триггер на любую строку (^.*$), который выведет необходимый текст а затем удалится

А как удалить добавленный через P::trig тригер, что-то я не догоняю( И кстати что там за $flags? Может у кого-то завалялся readme.txt где "флаги подробно расписаны"? Буду оч. благодарен если кто объяснит про удаление и эти флаги)

[Тролль]

Развивая тему $_
P::trig
{
$buf = $_;
$: = '';
P::echo "\003I".$buf;
P::echo "Итить-колотить моя строка!";
} '^Вы улыбнулись.$';

- работает, но с цветами надо заморачиваться.



P::trig {
$: = '';
P::echo CL::unparse_colors($;);
P::echo "Итить колотить твоя строка!";
} '^Вы улыбнулись\.$';

сойдёт?

[zallexx]

ну, во-первых, после $: = '' будет '' и в $; и в $_, но это не суть)
по сути - спасибо) ништяк)

[zallexx]

2 diver:
Самый имхо нормальный вариант в итоге:

P::trig
{
P::echo CL::unparse_colors($;);
P::echo "Итить-колотить моя строка!";
} '^Вы улыбнулись\.$', 'g';

[diver]

Развивая тему $_
P::trig
{
$buf = $_;
$: = '';
P::echo "\003I".$buf;
P::echo "Итить-колотить моя строка!";
} '^Вы улыбнулись.$';

блин, как я сам не допер! =) прикольно.

[diver]

А как удалить добавленный через P::trig тригер, что-то я не догоняю( И кстати что там за $flags? Может у кого-то завалялся readme.txt где "флаги подробно расписаны"? Буду оч. благодарен если кто объяснит про удаление и эти флаги)

Возможные флаги:
'-' - disable - запретить применение этого триггера (по умолчанию все триггеры создаются активными)
'g' - gag - клиент не должен печатать совпавшую строку
'm' - multiple - ищутся все вхождения <regexp> в строке, а не только первое
<число> - priority - приоритет, определяющий порядок применения триггеров. Триггеры применяются в порядке уменьшения приоритетов. По умолчанию у всех триггеров приоритет равен 1000.
's'|'n' - save|nosave - сохранять ли триггер в файл конфигурации при выходе
'f' - fall-through - обычно клиент прекращает поиск триггеров, после
первого совпадения. Если необходимо применять
другие триггеры после этого, при его определении
необходимо указать флаг 'f'.
'x<число>' - максимальное число срабатываний, после которого
триггер автоматически отключатся, по умолчанию не ограничено, счетчик сбрасывается по команде /enable
Пример простого триггера:
action {^You are hungry\.$} {get bread $container;eat bread} 1000gs:CORE

пользуюсь я этим так:



P::trig {

if (CheckLore ("$1") > 0) {
Lenor::debug ("Предмет -$1- уже известен.");
} else {
Lenor::debug ("Новый предмет -$1-.");
$strItemName = "$1";
P::enable ("ITEMDESCRIPTION");
};
} '^Предмет "(.+)", тип : (\S+)', f1;

P::trig {
P::disable ("ITEMDESCRIPTION");
Lenor::debug ("Добавляем новый предмет -$strItemName-.");
AddToShortLore ($strItemName . "," . $AC . $strItemDesc . $Mat);
} '^$', 'f1:ITEMDESCRIPTION';

P::trig {$AC .= "$1/";} '^защита \\(AC\\) : (\d+)', 'f1:ITEMDESCRIPTION';
и так далее

так что отменять триггер необходимости не возникает. он итак не включается без надобности.

доку к ммц от автора можно взять тут:
http://mmc.mud.ru/mmc.txt
и тут:

[diver]

P::trig {
$: = '';
P::echo CL::unparse_colors($;);
P::echo "Итить колотить твоя строка!";
} '^Вы улыбнулись\.$';

сойдёт?

самое то что доктор прописал =)

[Тролль]

Я тут подумал - $:=''; убивает дальнейшие триги, которые могут хотеть сработать на эту строчку.

Короче, вот что работает (проверил) :

my $str="";

P::trig {
return if not $str;
P::echo $str;
$str = '';
} '^.*$', 'f1000';

P::trig {
$str = "YO! Работает!!!";
} '^Вы улыбнулись\.', 'f1000';

[diver]

Тролль
опробовал. круто. хотят тут есть один косячек на мой взгляд, тем не менее в маде работает великолепно. перешел на эту систему =)
только изменил под свои нужды.


our $strAfterTrig="";

P::trig {
return if not $strAfterTrig;
P::echo $strAfterTrig;
P::disable ("PRINTAFTERTRIG");
$strAfterTrig = '';
} '^.*$', 'f10100:PRINTAFTERTRIG';

sub PrintAfter($) {
$strAfterTrig = $strAfterTrig . shift;
P::enable ("PRINTAFTERTRIG");
};