Author Topic: Сколько будет стоить  (Read 8996 times)

0 Members and 1 Guest are viewing this topic.

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #15 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

это кусок программы в конце, он как раз занимается обтыкиванием того что нужно

Кликермен

  • Активный участник
  • ***
  • Posts: 112
    • View Profile
Re: Сколько будет стоить
« Reply #16 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

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

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #17 on: February 04, 2016, 07:12:18 AM »
нет, мы ищем красную рамку, цвет по ходу изменили в игре, если есть красная рамка на верхней половинке экрана то тыкаемся в нее , если нет то смотрим нижнюю часть экрана, если и там не будет то перелистываем страницу, тут из 4-х предметов есть 1-н, значит тыкаем в нее, дальше появиться окно с зелеными кнопками

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #18 on: February 04, 2016, 07:14:16 AM »
закрой коллекции, снова открой и нажми двойную назад, у тебя будет коллекция где этих красных рамок 4 шт на 1-ой коллекции

Кликермен

  • Активный участник
  • ***
  • Posts: 112
    • View Profile
Re: Сколько будет стоить
« Reply #19 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 обозвали,  потом сделали всЕ, вернулись, пошли на второй флаг. два флага  закрашены - кликаем новую стр, обнуляем флаги)
« Last Edit: February 04, 2016, 07:30:19 AM by Кликермен »

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #20 on: February 04, 2016, 07:32:23 AM »
у меня не получилось.... я пытался но он упорно не принимал что все люди ушли, тогда я создал мульт акаунт, сделал черную аватарку и по ней ориентировался)))) но если сделаешь что тыкнул в последнего то выходи, НО все равно надо будет проверять массив доконца, так как кнопок просилок может быть 4 шт, и в каждой может находится человек которого ты еще не тыкнул, поэтому и проверка что 4 раза встретился подряд

Кликермен

  • Активный участник
  • ***
  • Posts: 112
    • View Profile
Re: Сколько будет стоить
« Reply #21 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
//=============================================
//=============================================

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #22 on: February 04, 2016, 03:34:38 PM »
неа, даже кнопки не тыкает в самом начале что должен делать )

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #23 on: February 04, 2016, 03:37:58 PM »
точнее не нажимает зеленую кнопку перехода на след стр коллекции если на этой странице все предметы есть, если листать руками то ищет и жмет НО потом в окне с зелеными кнопками тыкаеться 1-н раз и стоп

Кликермен

  • Активный участник
  • ***
  • Posts: 112
    • View Profile
Re: Сколько будет стоить
« Reply #24 on: February 04, 2016, 03:43:49 PM »
подредактируй, походу у тебя цвет не ищет. измени цвета пикселей. я их менял под себя.

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #25 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-ой кнопке то снова тыкает в ту кнопку где нету уже человека + не закрывает окно если попросил последнего

Кликермен

  • Активный участник
  • ***
  • Posts: 112
    • View Profile
Re: Сколько будет стоить
« Reply #26 on: February 04, 2016, 10:43:56 PM »
вот так работает у меня этот скрипт


в самом конце измени диапазоны поиска красных кнопок под себя(там поиск 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
//=============================================
//=============================================

lDC512L

  • Освоившийся
  • **
  • Posts: 39
    • View Profile
Re: Сколько будет стоить
« Reply #27 on: February 05, 2016, 01:45:20 AM »
спасибо за помошь, ща интернет тупит по страшному, домой приеду затестю, там отпишу что и как работает, ато тут половина не работает из-за интернета )