Так и сделал, догадался до вашего поста)))))))))))
по поводу проверки готова комната или нет, чтобы не тыкал в ту  где был,
[code]Chose:
// перебор комнат
HINTPOPUP("Стадия 9", "Выполняется поиск комнат... ")
$room = 1
FOR($room, $room<19)	// восемь комнат
  GETSCREEN
  IF_PICTURE_IN (0,0,$_xmax,$_ymax,STRCONCAT("room",$room,".bmp"))
     LOGWRITE ("Стадия 9", "Найдена комната ",$room)
     HINTPOPUP("Стадия 9", "Найдена комната ",$room)
     LCLICK($_return1+20, $_return2+20)
     wait(10)
     GOSUB(Learning)
  ELSE
     LOGWRITE ("Стадия 9", "Не найдена комната ",$room," поиск следующей.")
     HINTPOPUP ("Стадия 9", "Не найдена комната ",$room," поиск следующей.")
     WAITMS(300)
  END_IF
END_CYC
           // Проверка готова ли комната к сбору.
							SUB(Learning)
               wait(10)
               HINTPOPUP("Стадия 9", "Проверяем готова ли комната к сбору.")
               Wait(10)
               $check1 = 0
               $time = $_time_t + 120 // 2 минуты
               WHILE(($check1 = 0) & ($time > $_time_t))
                  IF_PICTURE_IN (0,0, $_xmax,$_ymax, "ready.bmp")                    
                     HINTPOPUP("Стадия 9", "Комната готова - передаем управление в Taking")
                     wait(10)
                     gosub(Taking)
                     $check1 = 1
                     wait(10)
                  Else
                     HINTPOPUP("Стадия 9", "Комната не готова или уведомления")
                     goto
                  END_IF
               END_CYC
            END_SUB
					//СОбирательство
            SUB(Taking)
               wait(10)
               HINTPOPUP("Стадия 9", "Ищем клавишу взять.")
               Wait(10)
               $check1 = 0
               $time = $_time_t + 120 // 2 минуты
               WHILE(($check1 = 0) & ($time > $_time_t))
                  IF_PICTURE_IN (0,0, $_xmax,$_ymax, "take.bmp")
                     LCLICK($_return1+5, $_return2+5)
                     HINTPOPUP("Стадия 9", "Собираем дела  Подпрограмма проверки клавиши взять")
                     wait(10)
                     $check1 = 1
                     wait(10)
                     Else
                     HINTPOPUP("Стадия 9", "Взять - не найдено, видимо закрыто уведомлениями. Переход к Attention")
                     gosub(ATTENTION1)
                  END_IF
               END_CYC
            END_SUB
            [/code]