Набор вспомогательных алиасов для работы с базаром.
Получается несколько удобнее чем реализовано на уровне сервера.
при просмотре базара все лоты попадают в выборку, потом при вводе команды "лот" выдается информация о следующем лоте.
"лотыочистить" убирает из выборки все что было.
очень даже удобно искать себе брасы крафченые.
Код:
my @lot = ();
my @price = ();
trig {
$lot[$#lot+1] = $1;
$price[$#price+1] = $2;
} '^\[\s?(\d+)\].*?(\d+)$', '1000fn:bazar';
alias {
@lot = ();
@price = ();
} "лотыочистить";
alias {
my $l = shift(@lot);
my $p = shift(@price);
echo ("ЛОТ $l - цена $p");
sendl("базар и $l");
} "лот";