Версия 5.27 Функция распознавания текста.

readtext(NUM, #text_KIB, 8, 1, 100, -1, -1, -1, -1, 0, -1, 483, 238, 537, 258, w_KIB);

kill++;
regexreplace(-1, #text_KIB, text_KIB, " ", "");
messagebox(text_KIB);
poteri=poteri+formatsn(text_KIB);
textout(0, 10, 0, "Убито: " +format(kill), 1);
textout(1, 10, 17, "потери: " +format(poteri), 1);

string Text;
loadsymbolbase ("D:\Kibor2\basetext.sib");
readtext (NUM, #Text, 8, 1, -1, -1, -1, -1, -1, 0, -1, 372, 222, 456, 261, -1);
messagebox (Text); // распознанный текст


// передаём в функцию распознанный текст и оценку корректности от 0 до 1
Text = correct(Text, 0.5);
messagebox(Text); // текст, после проверки корректности



function correct(string text, double correct_symbol)
{
char c[999];
string temp="";
int size_text = size(text);

strcpy(#c[0], text); // скопировать строку в массив
for(int i=0; i<size_text; i++) // цикл для всех символов в строке
{
if(symbolcorrect(i) >= correct_symbol)temp=temp+c[i]; // если символ корректен, записывает его в строку
}

return temp; // возвращаем строку, в которой только корректно распознанные символы
}

kill++;
regexreplace(-1, #text_KIB, text_KIB, " ", "");
regexreplace(-1, #text_KIB, text_KIB, "[^\d]", "");
messagebox(text_KIB);
poteri=poteri+formatsn(text_KIB);
textout(0, 10, 0, "Óáèòî: " +format(kill), 1);
textout(1, 10, 17, "ïîòåðè: " +format(poteri), 1);