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

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

Ladon 14.03.2005 08:56

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

trig {
my $who=$1; #сохранение имени чара
my $req=$3; #сохранение запроса чара
echo ("$who $req"); #показ имени и запроса для визуального контроля
foreach my $item (keys %base) # цикл перебор всех предметов в базе известного шмота
{
if ($base{$item} =~ m/$req/) #если описание предмета содержит похожее на запрос
{
$item =~ s/^Предмет "(.*)"\,(.*)$/$1/; #отрубаем лишнее из данных лора (оно хранится в исходном виде, как от зачитывания свитка)
$item =~ s/^\s{2,}//; #отрубание в имени предмета ведущих пробелов
$item =~ s/\s{2,}$//; #отрубание пробелов к конце названия предмета
$item =~ s/\s\s/\s/g; #отрубание двойных пробелов в середине названия
$item =~ s/\s/\./g; #замена пробелов на точки, сделано потому что запакованое хранится с точками в названии, для доставания
#echo ("$item");

foreach my $item_exist (keys %packed_styff) #цикл по всем предметам хранящимся в сумке
{
$item_exist =~ s/^\s{2,}//; #-ведущие пробелы
$item_exist =~ s/\s{2,}$//; #-завершающие пробелы
$item_exist =~ s/\s\s/\s/g; #-двойные пробелы
$item_exist =~ s/\s/\./g; #замена пробелов на точки
if ($item eq $item_exist) {sendl("ска $who $item");} #если совпали имена из базы и из сумки то сообщить
};

};
};

} '^(\S+) (сказал|сказала|сказали) : \'Подбери мне (.*)\'', "1000fn:Info";;;;

Скайе 14.03.2005 10:01

Re: холдерское раздолье
 
обожаю регекспы
(.*)"\,(.*) - и жизнь становится лучше :)

virrok 14.03.2005 10:29

Re: холдерское раздолье
 
Вообще конечно было б хорошо, если б для кланов были реализованы типа складов, ественно с которых берутся деньги. А в параметрах указывать, кто может ложить, к примеру не ниже десятника, или определенные имена.


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

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