out of memory

string TEXT=Geroj_Stati;
char Geroj_Stati_yes[20];
strcpy(#Geroj_Stati_yes[0], TEXT);
deletetext(#Geroj_Stati_yes[0], " " | "-");

function Parametri()
{

string Geroj_Stati,Protivnik_Stati;
double correct_Geroj[0],correct_Protivnik[0];

m_KIB1: sleep(200);
readtext(NUM | MARK, #Geroj_Stati, 7, 3, -1, -1, -1, #color_text_KIB_5[0], #color_fon_KIB_5[0], 5, -1, 286, 269, 497, 291, w_KIB);


if (formatsn(Geroj_Stati)>0) goto m_KIB4;
m_KIB4: string TEXT=Geroj_Stati;
char Geroj_Stati_yes[20];
strcpy(#Geroj_Stati_yes[0], TEXT);
deletetext(#Geroj_Stati_yes[0], " " | "-");

sleep(200);
readtext(NUM | MARK, #Protivnik_Stati, 8, 3, -1, -1, -1, #color_text_KIB_6[0], #color_fon_KIB_6[0], 5, -1, 592, 260, 795, 291, w_KIB);


if (formatsn(Protivnik_Stati)>0) goto m_KIB10;
m_KIB10: string TEXT1=Protivnik_Stati;
char Protivnik_Stati_yes[20];
strcpy(#Protivnik_Stati_yes[0], TEXT1);
deletetext(#Protivnik_Stati_yes[0], " " | "-");


if (formatsn(format(#Geroj_Stati_yes[0]))>formatsn(format(#Protivnik_Stati_yes[0]))) goto m_KIB9;
else goto m_KIB11;
m_KIB9: if (findimage_(#Image_22_KIB[0][0], 1000, 200, 0, 1, 0, 0, -1, 0, 0, 500, -1, -1, -1, 10, 50, 1, 692, 473, 883, 550, #sum_KIB, #x_KIB, #y_KIB)>0) goto m_KIB12;
else goto m_KIB11;
m_KIB12: findimage_(#Image_24_KIB[0][0], 3000, 1000, 0, 0, 0, 0, -1, 0, 0, 500, -1, -1, -1, 10, 50, 1, 380, 516, 466, 599, #sum_KIB, #x_KIB, #y_KIB);
if (findimage_(#Image_26_KIB[0][0], 1000, 500, 0, 0, 0, 0, -1, 0, 0, 500, -1, -1, -1, 10, 50, 1, 606, 546, 24, 610, #sum_KIB, #x_KIB, #y_KIB)>0) goto m_KIB18;
else goto m_KIB12;
m_KIB18: mouse_(200, 1, 530, 565, 3000); goto m_KIB17;
m_KIB7: messagebox(format(#Geroj_Stati_yes[0]));
goto exit_KIB;
m_KIB11: findimage_(#Image_23_KIB[0][0], 1000, 200, 0, 1, 0, 0, -1, 0, 0, 1000, -1, -1, 0, 10, 50, 1, 626, 556, 694, 609, #sum_KIB, #x_KIB, #y_KIB); goto m_KIB1;
m_KIB15: key_(27, 1, "", 0, 1000, 500);

goto exit_KIB;
m_KIB13: findimage_(#Image_25_KIB[0][0], 3000, 0, 0, 0, 0, 0, -1, 0, 0, 500, -1, -1, -1, 0, 100, 1, 207, 474, 370, 548, #sum_KIB, #x_KIB, #y_KIB); goto m_KIB15;
m_KIB17:

exit_KIB:;
}

pause ( p1 )
sumKIB = 0
if ( t != 0 )
timKIB = gettime ( )
if ( r == 0 && p == 100 )
sum = findimage ( k , # Image [ 0 ] [ 0 ] , fon , # x [ 0 ] , # y [ 0 ] , xs , ys , xf , yf , r , r , r , r , r , r , p , 1 , w_KIB )