mmc и базар

[Ladon]

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

при просмотре базара все лоты попадают в выборку, потом при вводе команды "лот" выдается информация о следующем лоте.
"лотыочистить" убирает из выборки все что было.
очень даже удобно искать себе брасы крафченые.

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");
	} "лот";