mmc пролистывание

[Ladon]

стало необходимым пролистать длинный текст в Былинах, вот может кому пригодится

hook {
# функции передается prompt, пришедший из mud'а. Изменяй, как хочешь.
	my $prompt = shift;
	
	if ($prompt =~ /Листать \:.*?\((\d+)\/(\d+)\)\./) {
		my $nextList = $1+1;
		sendl($nextList);
	}
	$prompt;
} "prompt";