Пишу бота викторины на перле
собственно вот кусок кода:
sub blabla{
my ......
$obj->{hint}++;
@allchars=split(\'\',$obj->{cur_answer});
for($i2=1;$i2<$length;++$i2){
$char=$allchars[$i2];
if( $i==$obj->{hint} && $i<=$maxhint ){
$chars[$i2]=$char;
}else{
$chars[$i2]="*";
}
++$i;
if( $i % 6==0 ){$i=0;}
}
$obj->{curhint}=join(\'\',@chars);
}
Что он должен делать: из ответа по очереди заменять незасвеченные буквы на *, при этом циклируясь на 6 символах (извините за ломаный русский - сами мы не местные)
В общем если ответ "сембернар", то вот что он должен последовательно выводить:
c*****н**
*е*****а*
**м*****р
***б*****
А вот что он сейас выдает(правильный ответ "кричать"):
*и*****
**ч*****
***а****
****т***