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

[Ladon]

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

hook {
# функции передается prompt, пришедший из mud'а. Изменяй, как хочешь.
my $prompt = shift;

if ($prompt =~ /Листать \:.*?\((\d+)\/(\d+)\)\./) {
my $nextList = $1+1;
sendl($nextList);
}
$prompt;
} "prompt";