Автокликер Clickermann :: Форум

Основной раздел => Биржа труда => Topic started by: lDC512L on February 04, 2016, 04:36:46 AM

Title: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 04:36:46 AM
сколько будет стоить бот на игру ( примерно 100-150 строк программы)???
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 05:19:45 AM
смотря что сделать надо)  для игры загадочный дом?
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:06:41 AM
угу, для него родимого )))
если играл то по простому сделать автоматический поиск зарядок, искать которых нехватает, если нашел то попрошайничать у всех, как закончит перейти к следующей и так до конца )
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:07:38 AM
то что напрограммировал работает не совсем так как хотелось бы )) по отдельности работает а вместе начинает тупить )
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 06:08:42 AM
скинь, что есть
Quote
сделать автоматический поиск зарядок, искать которых нехватает, если нашел то попрошайничать у всех, как закончит перейти к следующей
конкретнее формулируй) я вот не шарю, что за зарядки) я пробовал писать скрипт для поиска и клика по предмету. написал обычный кликатель по полю, но с 4 уровня штрафуют за частые ошибочные клики
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:13:06 AM
в архиве и скрины для кнопок и сама прога
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 06:24:27 AM
а что неккоректно именно работает?
кстати, строки -74-76
Code: (clickermann) [Select]
sub(Chelovechki)
   $konec=0                                                                          ///Chelovechki
   while($konec=4)   
у тебя этот цикл  не запустится никогда. флаг ноль, а ты заходишь и выполняешь  цикл ниже, пока флаг равен 4. переназначения нигде не нашел
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:28:27 AM
ну как минимум она не сшита  :P нужно довести до ума все подпрограммы и потом сделать главную программу запуска ) отдельно подпрограммы вроде работают ( по крайней мере на момент написания самой подпрограммы работали )
ниже скрин того что нужно просить у других людей, если есть игра в вк, то открой игру, открой сундук справа ( коллекции) запусти саб(перелист) он покажет что именно нужно
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 06:38:50 AM
ну как минимум она не сшита  :P нужно довести до ума все подпрограммы и потом сделать главную программу запуска ) отдельно подпрограммы вроде работают ( по крайней мере на момент написания самой подпрограммы работали )
ниже скрин того что нужно просить у других людей, если есть игра в вк, то открой игру, открой сундук справа ( коллекции) запусти саб(перелист) он покажет что именно нужно
нажать на каждый недостающий элемент коллекции,  просить, пока не кончатся люди в списке, закрывать окно, кликать на следующую зеленую кнопку. как пройду все предметы, закрываю коллекцию,  иду на следующий обмен, верно?
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:41:12 AM
да
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:43:58 AM
еще, в программе должно проверяться окно ( на случай когда инет тупит и действия не доходят, бывает такое что тыкает на кнопку она не срабатывает из-за лагов, приходится на нее тыкать еще раз)
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 06:45:22 AM
Кстати, ты в курсе, что зарядки можно не искать?  сверху есть фильтр - собранные, 4/5, заряженные
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:49:40 AM
ты путаешь предметы коллекций и зарядки к ним, то что ты написал это предметы коллекций
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 06:54:38 AM
[spoiler](https://pp.vk.me/c629331/v629331606/65a40/ekyM_d1RPKI.jpg)[/spoiler]
 вот  игра. зарядки, предметы. у меня платье есть, осталось теперь выпросить оставшиеся предметы, верно? нажимаю на предмет под кнопкой зарядить,  затем- попросить и прошу людей. или я неправильно понимаю задачу?)
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:56:22 AM
нас интересует это поле, под словом зарядить там у тебя 2 предмета необходимые для зарядки, вот их и надо попросить
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:58:13 AM
getscreen                                                                         ///Perelist
   if_pixel_in( 0, 0, 947,336, 1516513)
      lclick($_return1, $_return2)
      wait(1)
      green()
   else
      if_pixel_in( 947,336,$_xmax,$_ymax, 1516513)
         lclick($_return1, $_return2)
         wait(1)
         green()
      else
         if_pixel_in( 0, 0, $_xmax, $_ymax, 2661665, 7405146)
            lclick($_return1, $_return2)
            wait(1)
         end_if   // конец условия
      end_if
   end_if

это кусок программы в конце, он как раз занимается обтыкиванием того что нужно
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 07:04:14 AM
Code: (clickermann) [Select]
getscreen                                                                         ///Perelist
   if_pixel_in( 0, 0, 947,336, 1516513) // если находим  в верхней части экрана зеленую кнопку листания, то жмем и уходим в грин
      lclick($_return1, $_return2)
      wait(1)
      green()
   else
      if_pixel_in( 947,336,$_xmax,$_ymax, 1516513)//иначе смотрим нижнюю часть экрана
         lclick($_return1, $_return2)
         wait(1)
         green()
      else
         if_pixel_in( 0, 0, $_xmax, $_ymax, 2661665, 7405146)//если пусто все, нет зеленых кнопок, ищем другие цвета кликаем и ничего не делаем
            lclick($_return1, $_return2)
            wait(1)
         end_if   // конец условия
      end_if
   end_if

у меня он тыкал монотонно на следующую страницу. я закомментировал код, глянь - это то что ты планировал, или нет?))кстати, ты грин неправильно сделал, я скорректировал)
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 07:12:18 AM
нет, мы ищем красную рамку, цвет по ходу изменили в игре, если есть красная рамка на верхней половинке экрана то тыкаемся в нее , если нет то смотрим нижнюю часть экрана, если и там не будет то перелистываем страницу, тут из 4-х предметов есть 1-н, значит тыкаем в нее, дальше появиться окно с зелеными кнопками
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 07:14:16 AM
закрой коллекции, снова открой и нажми двойную назад, у тебя будет коллекция где этих красных рамок 4 шт на 1-ой коллекции
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 07:28:37 AM
Code: (clickermann) [Select]


//========ВСТАВИТЬ КАПЧу В ОКНО======================

// Переыыыделанный скрипт на капчу для ВК
SUB(paste) //========== Вставить ===============================================    ///Paste
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "kodsuda.bmp", -1, 100) //Код Сюда
      WAITMS (50)
      lclick($_return1, $_return2)
      KEYDOWN (#CTRL) // Ctrl+V
      WAITMS (50)
      KEYDOWN (#V)
      WAITMS (50)
      KEYUP (#V)
      WAITMS (50)
      KEYUP (#CTRL)
      WAITMS (50)
      KEYDOWN (#ENTER)
      WAITMS (50)
      KEYUP (#ENTER)
      WAITMS (50)
   END_IF
END_SUB
//========ВСТАВИТЬ КАПЧу В ОКНО======================



//=============РАСПОЗНАЕМ КАПЧУ==================

SUB(capcha)////// Капча       ////
   repeat:                                                                          ///Capcha
   GETSCREEN      //Делаем скрин
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "key1.bmp", -1, 100) //ищем значок AGC
      lclick($_return1+50, $_return2+90)       //тык в распознать
      WAITMS(100)
      GETSCREEN
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "key1.bmp")
         $AGC_x = $_return1+25            //навели на поле с индикатором по Х
         $AGC_y = $_return2+56      //Навели на поле с индикатором по Y
         LOGWRITE("AGClient X=", $_return1, ", Y=", $_return2)
      END_IF
     
      $pic=0
      WHILE($pic=0)
         GETSCREEN
         IF (PXL($AGC_x, $AGC_y)=65535) // жёлтый
            WAITMS(300)
         END_IF
         IF (PXL($AGC_x, $AGC_y)=65280) // зелёный
            WAITMS(100)
            $pic=1 // выходим из цикла
         END_IF
         IF (PXL($AGC_x, $AGC_y)=255) // красный
            LOGWRITE("Не распознали")
            HINTPOPUP("Не распознали")
            $pic=2
         END_IF
      END_CYC
     
      IF($pic=2) // если не распознали отправляем повторно
         GOTO(repeat)
      END_IF
      paste()
      WAITMS(300)
   END_IF
END_SUB
//=============РАСПОЗНАЕМ КАПЧУ==================


//===========тыкаемся в спиоск друзей до последнего человека=====================

sub(Chelovechki)
   $konec=0                                                                          ///Chelovechki
   while($konec<4)          //если последний встречался 4 раза подряд то выход
      GETSCREEN
      IF_PICTURE_IN (468,356, 784,510, "lostpeople.bmp", -1, 100)
         $konec=$konec+1
         IF_PICTURE_IN (427,546,1095,693, "close.bmp", -1, 100)
            LCLICK($_return1, $_return2)
         END_IF
      else
         IF_PIXEL_IN(588,396, 994,656, 25087)  //Ищем звездочку
            $konec=0
            wait(1)
            LCLICK($_return1, $_return2)
            WAITMS(500)
         END_IF
         //=======Окно отправки попрошаек==================================
         $pop = 0
         WHILE($pop = 0)
            GETSCREEN
            IF_PICTURE_IN (0,0, $_xmax,$_ymax, "tormoz.bmp", -1, 100)   //если окно тормозит
               wait(1)
            else
               IF_PICTURE_IN (518,364, 1093,619, "Otpravit.bmp", -1, 100)     //находим отправить и тыкаемся в нее
                  LCLICK($_return1, $_return2)
                  $pop = 1
               END_IF
               GETSCREEN
               IF_PICTURE_IN (522,208, 960,485, "kodsuda.bmp", -1, 100)
                  capcha()
               END_IF
            END_IF
         END_CYC
      END_IF
   END_CYC
   //goto start
END_SUB
//===========тыкаемся в спиоск друзей до последнего человека=====================

//============Ищем зеленые кнопки=======================
sub(green)
   getscreen
   scanpicture($var, 0,0, $_xmax,$_ymax, "green.bmp")     //ищем зеленые кнопки
   while (arrsize($var) > 0)
      $y = arrpop($var)
      $x = arrpop($var)
     
      lclick($x,$y)//на кнопку
     
      ///////Проверка последнего человека, если нет то тыкаемся в просилки///
      Chelovechki()
   END_CYC
   undefine($var)
END_SUB


//====тут ищем красную кнопку для вызова попрошайки где будет в дальнейшем зеленые кнопки===================
//==============написал недавно и пока не придумал как и куда ее воткнуть=======================

//sub(perelist)   //ищем красную кнопку
getscreen                                                                         ///Perelist
if ($upred=0)
   if_pixel_in( 0, 0, 947,497, 131176)
      lclick($_return1, $_return2)
      wait(1)
      $upred=1
      green()
   end_if
else
   if ($upred2=0)
      if_pixel_in(947,497,$_xmax,$_ymax, 131176)
         lclick($_return1, $_return2)
         wait(1)
         $upred2=1
         green()
      end_if
   else
      if_pixel_in( 0, 0, $_xmax, $_ymax, 1516513)
         lclick($_return1, $_return2)
         wait(1)
         $upred2=0
         $upred=0
      end_if   // конец условия
   end_if
end_if
//END_SUB
//=============================================
//=============================================

В твоем коде - если последний человек встречался 4 раза подряд.. что это такое?))  можно же проще. кликаем попросить - вылезает поле с друзьями. жмем каждого, они постепенно уходят. как уйдет последний, выходим.

Насчет предметов для зарядки- я повесил флаги. кликнули сверху - флаг1 обозвали,  потом сделали всЕ, вернулись, пошли на второй флаг. два флага  закрашены - кликаем новую стр, обнуляем флаги)
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 07:32:23 AM
у меня не получилось.... я пытался но он упорно не принимал что все люди ушли, тогда я создал мульт акаунт, сделал черную аватарку и по ней ориентировался)))) но если сделаешь что тыкнул в последнего то выходи, НО все равно надо будет проверять массив доконца, так как кнопок просилок может быть 4 шт, и в каждой может находится человек которого ты еще не тыкнул, поэтому и проверка что 4 раза встретился подряд
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 08:03:10 AM
запусти)

Code: (clickermann) [Select]


//========ВСТАВИТЬ КАПЧу В ОКНО======================

// Переыыыделанный скрипт на капчу для ВК
SUB(paste) //========== Вставить ===============================================    ///Paste
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "kodsuda.bmp", -1, 100) //Код Сюда
      WAITMS (50)
      lclick($_return1, $_return2)
      KEYDOWN (#CTRL) // Ctrl+V
      WAITMS (50)
      KEYDOWN (#V)
      WAITMS (50)
      KEYUP (#V)
      WAITMS (50)
      KEYUP (#CTRL)
      WAITMS (50)
      KEYDOWN (#ENTER)
      WAITMS (50)
      KEYUP (#ENTER)
      WAITMS (50)
   END_IF
END_SUB
//========ВСТАВИТЬ КАПЧу В ОКНО======================



//=============РАСПОЗНАЕМ КАПЧУ==================

SUB(capcha)////// Капча       ////
   repeat:                                                                          ///Capcha
   GETSCREEN      //Делаем скрин
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "key1.bmp", -1, 100) //ищем значок AGC
      lclick($_return1+50, $_return2+90)       //тык в распознать
      WAITMS(100)
      GETSCREEN
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "key1.bmp")
         $AGC_x = $_return1+25            //навели на поле с индикатором по Х
         $AGC_y = $_return2+56      //Навели на поле с индикатором по Y
         LOGWRITE("AGClient X=", $_return1, ", Y=", $_return2)
      END_IF
     
      $pic=0
      WHILE($pic=0)
         GETSCREEN
         IF (PXL($AGC_x, $AGC_y)=65535) // жёлтый
            WAITMS(300)
         END_IF
         IF (PXL($AGC_x, $AGC_y)=65280) // зелёный
            WAITMS(100)
            $pic=1 // выходим из цикла
         END_IF
         IF (PXL($AGC_x, $AGC_y)=255) // красный
            LOGWRITE("Не распознали")
            HINTPOPUP("Не распознали")
            $pic=2
         END_IF
      END_CYC
     
      IF($pic=2) // если не распознали отправляем повторно
         GOTO(repeat)
      END_IF
      paste()
      WAITMS(300)
   END_IF
END_SUB
//=============РАСПОЗНАЕМ КАПЧУ==================


//===========тыкаемся в спиоск друзей до последнего человека=====================

sub(Chelovechki)
   $konec=2
   WAIT(1)
   ///Chelovechki
   while($konec!0)          //
      GETSCREEN
      IF_PIXEL_IN(588,396, 994,656, 25087)  //Ищем звездочку
         LCLICK($_return1, $_return2)
         while ($pop=0)
            WAITMS(3000)
            GETSCREEN
            LCLICK(803,485)
            IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Otpravit.bmp", -1, 100)     //находим отправить и тыкаемся в нее
               LCLICK($_return1, $_return2)
               $pop = 1
               $konec=0
            END_IF
         end_cyc
         $pop=0
      else
         IF_PICTURE_IN (427,546,1095,693, "close.bmp", -1, 100)
            LCLICK($_return1, $_return2)
            $konec=0
            $zv=0
         END_IF
      END_IF
      IF_PICTURE_IN (522,208, 960,485, "kodsuda.bmp", -1, 100)
         capcha()
      END_IF
   END_CYC
   WAITMS(3000)
END_SUB
//===========тыкаемся в спиоск друзей до последнего человека=====================

//============Ищем зеленые кнопки=======================
sub(green)
   getscreen
   if   (arrsize($var) = 0)
      scanpicture($var, 0,0, $_xmax,$_ymax, "green.bmp")     //ищем зеленые кнопки
   end_if
   while (arrsize($var) > 0)
      if ($zv=0)
         $y = arrpop($var)
         $x = arrpop($var)
         $zv=1
      end_if
      lclick($x,$y)//на кнопку
     
      ///////Проверка последнего человека, если нет то тыкаемся в просилки///
      Chelovechki()
   END_CYC
   undefine($var)
END_SUB


//====тут ищем красную кнопку для вызова попрошайки где будет в дальнейшем зеленые кнопки===================
//==============написал недавно и пока не придумал как и куда ее воткнуть=======================

//sub(perelist)   //ищем красную кнопку
getscreen                                                                         ///Perelist
if ($upred=0)
   if_pixel_in( 0, 0, 947,497, 131176)
      lclick($_return1, $_return2)
      wait(1)
      $upred=1
      green()
   end_if
else
   if ($upred2=0)
      if_pixel_in(947,497,$_xmax,$_ymax, 131176)
         lclick($_return1, $_return2)
         wait(1)
         $upred2=1
         green()
      end_if
   else
      if_pixel_in( 0, 0, $_xmax, $_ymax, 1516513)
         lclick($_return1, $_return2)
         wait(1)
         $upred2=0
         $upred=0
      end_if   // конец условия
   end_if
end_if
//END_SUB
//=============================================
//=============================================
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 03:34:38 PM
неа, даже кнопки не тыкает в самом начале что должен делать )
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 03:37:58 PM
точнее не нажимает зеленую кнопку перехода на след стр коллекции если на этой странице все предметы есть, если листать руками то ищет и жмет НО потом в окне с зелеными кнопками тыкаеться 1-н раз и стоп
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 03:43:49 PM
подредактируй, походу у тебя цвет не ищет. измени цвета пикселей. я их менял под себя.
Title: Re: Сколько будет стоить
Post by: lDC512L on February 04, 2016, 06:34:27 PM
подредактировал )))
Code: [Select]
//sub(perelist)   //ищем красную кнопку
getscreen                                                                         ///Perelist
if ($upred=0)
   if_pixel_in( 862,311,945,452, 131176)
     
      lclick($_return1, $_return2)
      wait(1)
      $upred=1
      green()
   end_if
else
   if ($upred2=0)
      if_pixel_in(867,558,944,653, 131176)
         lclick($_return1, $_return2)
         wait(1)
         $upred2=1
         green()
      end_if
   end_if
end_if
if_pixel_in( 0, 0, $_xmax, $_ymax, 3048217, 6083138)
   lclick($_return1, $_return2)
   wait(1)
   $upred2=0
   $upred=0
end_if
вот так работает) надо было перелистывание из цикла вынести))) теперь другая проблема: если всех обтыкал в 1-ой кнопке то снова тыкает в ту кнопку где нету уже человека + не закрывает окно если попросил последнего
Title: Re: Сколько будет стоить
Post by: Кликермен on February 04, 2016, 10:43:56 PM
вот так работает у меня этот скрипт
(https://psv4.vk.me/c404225/u268539606/docs/42141563bcd8/Video_000113.gif)

в самом конце измени диапазоны поиска красных кнопок под себя(там поиск 3 пикселей - 1 - верхняя область зарядок, 2 - нижняя, самый последний - листание вперед),   исправь самый последний пиксель, чтобы находил зеленую стрелку после всех манипуляций. также кнопка попросить у меня не находилась, я закомментировал,  и прописал жесткую ссылку(тоже подправь у себя). ну и сделай скрин кнопки закрыть.  у тебя не работает, потому что на двух страницах разных -разные кнопки закрыть.   ты вырезал где звездочки, а надо еще вырезать, где зеленые кнопки. ну, в целом все))

Code: (clickermann) [Select]

//========ВСТАВИТЬ КАПЧу В ОКНО======================

// Переыыыделанный скрипт на капчу для ВК
SUB(paste) //========== Вставить ===============================================    ///Paste
   GETSCREEN
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "kodsuda.bmp", -1, 100) //Код Сюда
      WAITMS (50)
      lclick($_return1, $_return2)
      KEYDOWN (#CTRL) // Ctrl+V
      WAITMS (50)
      KEYDOWN (#V)
      WAITMS (50)
      KEYUP (#V)
      WAITMS (50)
      KEYUP (#CTRL)
      WAITMS (50)
      KEYDOWN (#ENTER)
      WAITMS (50)
      KEYUP (#ENTER)
      WAITMS (50)
   END_IF
END_SUB
//========ВСТАВИТЬ КАПЧу В ОКНО======================



//=============РАСПОЗНАЕМ КАПЧУ==================

SUB(capcha)////// Капча       ////
   repeat:                                                                          ///Capcha
   GETSCREEN      //Делаем скрин
   IF_PICTURE_IN (0,0, $_xmax,$_ymax, "key1.bmp", -1, 100) //ищем значок AGC
      lclick($_return1+50, $_return2+90)       //тык в распознать
      WAITMS(100)
      GETSCREEN
      IF_PICTURE_IN (0,0,$_xmax,$_ymax, "key1.bmp")
         $AGC_x = $_return1+25            //навели на поле с индикатором по Х
         $AGC_y = $_return2+56      //Навели на поле с индикатором по Y
         LOGWRITE("AGClient X=", $_return1, ", Y=", $_return2)
      END_IF
     
      $pic=0
      WHILE($pic=0)
         GETSCREEN
         IF (PXL($AGC_x, $AGC_y)=65535) // жёлтый
            WAITMS(300)
         END_IF
         IF (PXL($AGC_x, $AGC_y)=65280) // зелёный
            WAITMS(100)
            $pic=1 // выходим из цикла
         END_IF
         IF (PXL($AGC_x, $AGC_y)=255) // красный
            LOGWRITE("Не распознали")
            HINTPOPUP("Не распознали")
            $pic=2
         END_IF
      END_CYC
     
      IF($pic=2) // если не распознали отправляем повторно
         GOTO(repeat)
      END_IF
      paste()
      WAITMS(300)
   END_IF
END_SUB
//=============РАСПОЗНАЕМ КАПЧУ==================


//===========тыкаемся в спиоск друзей до последнего человека=====================

sub(Chelovechki)
   $konec=2
   WAIT(1)
   ///Chelovechki
   while($konec!0)          //
      GETSCREEN
      IF_PIXEL_IN(588,396, 994,656, 25087)  //Ищем звездочку
         LCLICK($_return1, $_return2)
         while ($pop=0)
            WAITMS(3000)
            //            GETSCREEN
            LCLICK(803,485)
            //            IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Otpravit.bmp", -1, 100)     //находим отправить и тыкаемся в нее
            //               LCLICK($_return1, $_return2)
            $pop = 1
            $konec=0
            //         END_IF
         end_cyc
         $pop=0
      else
         IF_PICTURE_IN (427,546,1095,693, "close.bmp", -1, 100)
            LCLICK($_return1, $_return2)
            $konec=0
            $zv=0
         END_IF
      END_IF
      IF_PICTURE_IN (522,208, 960,485, "kodsuda.bmp", -1, 100)
         capcha()
      END_IF
   END_CYC
   WAITMS(3000)
END_SUB
//===========тыкаемся в спиоск друзей до последнего человека=====================

//============Ищем зеленые кнопки=======================
sub(green)
   getscreen
   if   (arrsize($var) = 0)
      scanpicture($var, 0,0, $_xmax,$_ymax, "green.bmp")     //ищем зеленые кнопки
   end_if
   while ((arrsize($var) > 0)|($zv=1))
      if ($zv=0)
         $y = arrpop($var)
         $x = arrpop($var)
         $zv=1
      end_if
      lclick($x,$y)//на кнопку
     
      ///////Проверка последнего человека, если нет то тыкаемся в просилки///
      Chelovechki()
   END_CYC
   undefine($var)
   LCLICK(880,700)
   print("пууух")
END_SUB


//====тут ищем красную кнопку для вызова попрошайки где будет в дальнейшем зеленые кнопки===================
//==============написал недавно и пока не придумал как и куда ее воткнуть=======================

//sub(perelist)   //ищем красную кнопку
getscreen                                                                         ///Perelist
if ($upred=0)
   if_pixel_in(0, 0, 947,497, 131176)
      lclick($_return1, $_return2)
      wait(1)
      $upred=1
      green()
   end_if
else
   if ($upred2=0)
      if_pixel_in(800,497,$_xmax,$_ymax, 131176)
         lclick($_return1, $_return2)
         wait(1)
         $upred2=1
         green()
      end_if
   else
      if_pixel_in( 0, 0, $_xmax, $_ymax, 1516513)
         lclick($_return1, $_return2)
         wait(1)
         $upred2=0
         $upred=0
      end_if   // конец условия
   end_if
end_if
//END_SUB
//=============================================
//=============================================
Title: Re: Сколько будет стоить
Post by: lDC512L on February 05, 2016, 01:45:20 AM
спасибо за помошь, ща интернет тупит по страшному, домой приеду затестю, там отпишу что и как работает, ато тут половина не работает из-за интернета )