Помогите оптимизировать, эти масивы все не как не поддаются...
Еще проблема иногда тупо не работает, не могу понять почему.
Образец в закрепе
$Start = 0
WHILE($Start = 0) // Получаю начало координат х и у
GETSCREEN (15,590, 145,615)
COLORMODE(8, 15,590, 145,615)
IF_PICTURE_IN (15,590, 145,615, "Коры\x.bmp")
$Sx = $_return1+15
$Sy = $_return2
IF_PICTURE_IN (15,590, 145,615, "Коры\y.bmp")
$Start = 1
$Sx2 = $_return1+15
$Sy2 = $_return2
WAITMS(10)
ELSE
WAITMS(10)
LOGWRITE ("нет координат")
END_IF
END_IF
END_CYC
// Сканирую цифры по х
UNDEFINE($arr)
$Stop = 0
WHILE($Stop = 0)
FOR($No = 0, $No <= 10)
IF_PICTURE_IN ($Sx,$Sy, $Sx+7,$Sy+11, STRCONCAT("Коры\",$No,".bmp"))
IF($No = 10)
$Stop = 1
ELSE
ARRPUSH($arr, $No)
END_IF
$No = 777
END_IF
END_CYC
INC($Sx,7)
END_CYC
$x = ""
FOR($a=0,$a<ARRSIZE($arr))
$x = STRCONCAT($x,$arr[$a])
END_CYC
// Сканирую цифры по у
UNDEFINE($arr)
$Stop = 0
WHILE($Stop = 0)
FOR($No = 0, $No <= 10)
IF_PICTURE_IN ($Sx2,$Sy2, $Sx2+7,$Sy2+11, STRCONCAT("Коры\",$No,".bmp"))
IF($No = 10)
$Stop = 1
ELSE
ARRPUSH($arr, $No)
END_IF
$No = 777
END_IF
END_CYC
INC($Sx2,7)
END_CYC
$y = ""
FOR($a=0,$a<ARRSIZE($arr))
$y = STRCONCAT($y,$arr[$a])
END_CYC
LOGWRITE ($x," - ", $y)
halt
