getscreen 
GOSUB(Записываем рабочее место Инвенторя)
GOSUB(Читаем рабочее место Инвенторя)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Нет руды для стали.bmp")
 $maxx=5
 $i=0
FOR ($i, $i<$maxx) 
//  I...V  Вкладка     инвентаря
IF_PICTURE_IN (0,0, $_xmax,$_ymax, STRCONCAT("Вкладка",$i,".bmp"))
MOVE($_return1, $_return2) //наводим на верхний координату вкладки инвенторя
waitms(500)
MOVE($_return1+45, $_return2+17)/наводим на нижнию координату вкладки инвенторя
waitms(500)
dbLCLICK($_return1+23, $_return2+6)// нажимаем  в середину вкладки инвенторя
waitms(500)
GOSUB (Найти кристалы)
GOsUB (Найти Руду) 
//если нашли кристалы в какой-то вкладке то остановить цикл 
 END_IF
END_CYC
END_IF