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

[Переплут]

вот оператор shift ты успешно юзаешь, а почему не юзаешь push где это нужно было (в выше приведенном коде)?

[lexik]

и вообще - хэшами будет более продуктивно хранить такие данные, памяти меньше жрать будут, ну и доступ более удобный...

[Ladon]

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

[Urik]

...и все трое на умняке таком сидят, аж жуть! )