холдерское раздолье
триг для холдеров, по моему интересный Ж)
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";;;; |
Re: холдерское раздолье
обожаю регекспы
(.*)"\,(.*) - и жизнь становится лучше :) |
Re: холдерское раздолье
Вообще конечно было б хорошо, если б для кланов были реализованы типа складов, ественно с которых берутся деньги. А в параметрах указывать, кто может ложить, к примеру не ниже десятника, или определенные имена.
|
Часовой пояс GMT +4, время: 03:56. |
Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot