set $path c:\images\
set %loko[1] Вася
set %loko[2] Лена
set %loko[3] Петя
set %loko[4] Марина
set %loko[5] Оксана

for #i 1 5
   set $a findimage (#startX #startY #endX #endY ($path%loko[#i].bmp) %crds 2) 
end_for

set #startX 0 
set #startY 0
set #endX 1280
set #endY 1024
set #sosed 40   // отступ в сторону для поиска шарика в соседней ячейке
set $bmp .bmp
   // ищем левый-верхний угол рамки
   set $ramka findimage (#startX #startY #endX #endY (c:\images6\рамка.bmp) %crds 2 100 1)   
   if $ramka > 0     
      set #x1 %crds[1 1] + 10        // задаем область для поиска ячейки относительно рамки
      set #y1 %crds[1 2] + 10
      set #x2 #x1 + #sosed
      set #y2 #y1 + #sosed 
      for #b 1 6
         for #a 1 6
            for #s 1 5 
               set $s1 findimage (#x1 #y1 #x2 #y2 (c:\images6\#s$bmp) %crds2 2 100 1)   
               if $s1 > 0
                  set %pole[#b #a] #s     // нашли шарик - записали его в общий массив на своё место
                  set #x1 #x1 + #sosed 
                  set #x2 #x2 + #sosed 
                  break
               end_if  
            end_for
         end_for
         set #x1 %crds[1 1] + 10
         set #x2 #x1 + #sosed
         set #y1 #y1 + #sosed   
         set #y2 #y2 + #sosed 
      end_for
   end_if
   save_array %pole c:\images6\pole.txt    // записали в файл получившийся массив.
end_script

while ( $a = 0 ) and ( $b = 0 )
set $a Findimage....%arr
set $b Findimage....%crds
if $a > 1
   set #x %arr[1 1] 
   set #y %arr[1 2]  
   Left #x, #y
end_if
if $b > 1
   set #x %crds[1 1] 
   set #y %crds[1 2]  
   Left #x, #y
end_if
end_while

while ( $a = 0 ) and ( $b = 0 )
set $a Findimage....%arr
set $b Findimage....%crds
if $a > 1
   set #x %arr[1 1] 
   set #y %arr[1 2]  
   Left #x, #y
end_if
if $b > 1
   set #x %crds[1 1] 
   set #y %crds[1 2]  
   Left #x, #y
end_if
end_while

set $a findimage (#startX #startY #endX #endY ($path%cash[#i].bmp) %crds 2) 
   if $a > 0
      if #i = 1
         set #x %crds[1 1] + 50
         set #y %crds[1 2]  - 20 
      end_if
      if #i = 2
         set #x %crds[1 1] + 180
         set #y %crds[1 2]  - 190 
      end_if
          Left #x, #y // клик по первой найденной картинки
   end_if

for #i 1 3
 set $name $path%loko[#i]
 set $a findimage (#startX #startY #endX #endY ($name) %crds 2 80 3 10)
 ...
end_for