SUB(poisc,$img1)

LCLICK(1316,204)  // 15658734
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
    $sh=0// задаем счетчик
    $n=0 // кликнутые айки
    

ski://метка

WAIT(1)

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

if_picture_in($a,$b,$_xmax,$_ymax,"aik2.bmp")// последовательный айк
   MOVE($_return1,$_return2)
        
     $n=$n+1
        IF($n=$ob) //если текущий айк равен заданому последовательному
     MOVE  ($_return1-450,$_return2-10)
   LCLICK($_return1-450,$_return2-10)                                          
        $ob=$ob+1
     GOTO(start2)
      END_IF
     // продолжаем поиск
    
    
   $b=$_return2+30
    
    GOTO(ski)                                        
   END_IF

if($ob=1) // условие конца программы
     SOUND("blip1.wav")
     HALT
end_if    
    
    WAIT(1)
SOUND("blip1.wav")
WAIT(1)
KEYDOWN(#CTRL)
KEYPRESS(#F5)
KEYUP(#CTRL)
$ob=1 // начальный для клика лайк
GOTO(start)
    
END_SUB
    
    
    $ob=1 // начальный для клика лайк

start:     // активируем последовательно по айкам видео

        
    poisc("seo2.bmp")

    click()
start2:
// просмотр сайта с ожиданием исчезновения надписи Ждите

WAIT(2)
$an=0 // кол. проверок
  ancor:      
 
    GETSCREEN
  if_picture_in(0,0,$_xmax,$_ymax,"kpW.bmp")// капча    
   
   WAIT(2)
 
   $an=$an+1
        IF($an>30)
            GOTO(con)
    END_IF
        
    
   GOTO(ancor)
        
    END_IF

con:
SOUND("blip2.wav")
WAIT(1)
SOUND("blip1.wav")
WAIT(20)
KEYDOWN(#CTRL)
KEYPRESS(#W)
KEYUP(#CTRL)
GOTO(start)