SUB(oispc,$img1)

LCLICK(1316,204)  // переход вверх страницы
WAITMS(50)
KEYDOWN(#CTRL)
WAITMS(50)
KEYPRESS(#HOME)
WAITMS(50)
KEYUP(#CTRL)

    $сh=0// задаем счетчик прокрутки страницы
ki://метка

WAIT(2)
GETSCREEN //снимок экрана

if_picture_in(0,0,INT($_xmax/2),INT($_ymax/2),$img1)// если на снимке есть картинка

MOVE($_return1+5,$_return2+5)

 
 WAIT(1)    
SOUND("bell1.wav")

 ELSE
WHEELDOWN// скролл
 $сh=$сh+1// при прокрутке счетчик+1
 IF($сh=100)// если  раз прокрутили колесико
 SOUND("bell1.wav")
HALT// стоп программа
 
 END_IF// конец цикла

 GOTO(ki)

// задержка 2с

END_IF// конец цикла
END_SUB    

SUB(click)// подпр. айку последовательно
    $a=0
    $b=0
    $ch=0// задаем счетчик прокрутки страницы
    $n=0 // найденные айки
    

ski://метка

WAIT(1)

GETSCREEN //снимок экрана

if_picture_in($a,$b,$_xmax,$_ymax,"aik.bmp")// последовательный айк
   MOVE($_return1,$_return2)
        
     $n=$n+1         
        IF($n=$ob) //если текущий айк равен заданому последовательному
     MOVE  ($_return1-500,$_return2-10)
   LCLICK($_return1-500,$_return2-10)                                          
        $ob=$ob+1
     GOTO(start2)
      END_IF
     // продолжаем поиск
    
    
   $b=$_return2+30
    
    GOTO(ski)                                        
   END_IF
 
     WHEELDOWN        
    IF($ch>150)
     $ch=0
         GOTO(start)                                      
   END_IF
    
    $b=610
    WAIT(1)    
    GOTO(ski)
END_SUB

// Начало программы    
    
    $ob=1 // начальный для клика лайк

start:     //

    
    poisc("seo1.bmp")

    click()
start2:
WAIT(20)

SOUND("blip2.wav")
WAIT(1)
SOUND("blip1.wav")

WAIT(20)
KEYDOWN(#CTRL)
KEYPRESS(#W)
KEYUP(#CTRL)
GOTO(start)