poebot

sub podskazka {
# Подсказка
    $pkg = shift;
    my $конт_время=time;
    my $конфа = $название_конфы;
    ${$конфа.'ожидание'} = shift;
    my $адрес_конфы = shift;
if ("@_" ne ${$конфа.'фраза'}) {
    ${$конфа.'счетчик'} = 1;
    @{$конфа.'буквы'} = ();
}
    ${$конфа.'фраза'} = "@_";
if ($конт_время>=$глоб_конф->{ctl_time}+${$конфа.'ожидание'} 
    && $глоб_конф->{nomer_igry}==0) {
	unless (@{$конфа.'буквы'}) {
		${$конфа.'ктл_фраза'} = ${$конфа.'фраза'};
		@{$конфа.'буквы'} = split (//,${$конфа.'фраза'});
        ${$конфа.'кол_букв'} = @{$конфа.'буквы'};
        ${$конфа.'ктл_фраза'} =~ s/\w/*/g;
	}

    if (${$конфа.'счетчик'}<${$конфа.'кол_букв'}) {
        ${$конфа.'буква'} = shift (@{$конфа.'буквы'});
	    if (${$конфа.'буква'} =~ /\w/) {
	       ${$конфа.'ктл_фраза'} =~ s/\*/${$конфа.'буква'}/;
	       $глоб_конф->{ctl_time}=$конт_время;
	       $messaga = "Подсказка: \"${$конфа.'ктл_фраза'}\"";
	       &soobschenie(from => "$адрес_конфы");
               ${$конфа.'счетчик'}++;
	    }
    } elsif (${$конфа.'счетчик'}==${$конфа.'кол_букв'}) {
    	$messaga = "Подсказки исчерпаны, вы проиграли. Правильный ответ \"${$конфа.'фраза'}\"\n";
	    ${$конфа.'счетчик'} = 1;
	    @{$конфа.'буквы'} = ();
	    $глоб_конф->{nomer_igry} = 1;
	    &vybor_voprosa($pkg,$название_конфы,$адрес_конфы);
    }
}

}