МПМ Былины - Мир Древней Руси - Показать сообщение отдельно

dzMUDiST · 16.03.2006, 15:06

trig {
my @time = (localtime)[2,1];
$clock = join ":", @time;
$: = "\003I\[$clock\] $1 -> \'$2\'";
} '^([^ ]*?) сказал.? : \'(.*?)\'', 'f1000';

Вот только режет строки с ' (кавычками)

16.03.2006, 15:06	#2
dzMUDiST Занятой мадер Регистрация: 10.03.2004 Адрес: Минск Сообщений: 149	trig { my @time = (localtime)[2,1]; $clock = join ":", @time; $: = "\003I\[$clock\] $1 -> \'$2\'"; } '^([^ ]?) сказал.? : \'(.?)\'', 'f1000'; Вот только режет строки с ' (кавычками)