« previous next »
Pages: [1]

Author Topic: работает только если все верно .... а оно не всегда так помогите пжж  (Read 3201 times)

0 Members and 2 Guests are viewing this topic.

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
работает только если все верно .... а оно не всегда так помогите пжж
« on: July 01, 2017, 09:26:03 PM »
Code: (clickermann) [Select]
GETSCREEN  ($xx+491,$yy-57,$xx+713,$yy+622)  //(908,50, 1130,729)
         IF_PICTURE_IN ($xx+491,$yy-57,$xx+713,$yy+622, "на ос.bmp", -1, 70)// если нашли то запоминаем где она
            LOGWRITE (" на ос")
            $x= $_return1
            $y= $_return2
            GETSCREEN ($x-549,$y-27, $x-501,$y+20)
            IF_PICTURE_IN ($x-549,$y-27, $x-501,$y+20, "нек на стр.bmp", -1, 70)// если вот это подтвердилось то  все дальше работает а если нет то не работает зависает((( из за того что на страницы эта кнопка может быть несколько раз а кликер ищет с ЛВУ и получаеться что он возвращается искать картинку и о5 натыкаеться на ту же но она не подходит нам как сделать чтоб если не подошла он кординаты запомнил и уже ее пропускал
               LOGWRITE ("это то что нам нада")
               m_move($x+RND(-5,5),$y+RND(-5,5))
               LCLICK($_xmouse,$_ymouse)
               m_move($x+500+RND(-5,5),$y+RND(-5,5))
             
               $time1 = $_time_t + 10
               WHILE($time1 > $_time_t)
                  GETSCREEN ($xx+501,$yy+449,$xx+722,$yy+588) //(918,556, 1139,695)
                  COLORMODE(6, $xx+501,$yy+449,$xx+722,$yy+588)
                  IF_PICTURE_IN ($xx+501,$yy-449,$xx+722,$yy+588, "нек б.bmp", -1, 70)
                     $time1 = 0
                     LOGWRITE ("нашли б")
                     m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                     LCLICK($_xmouse,$_ymouse)
                     
                     
                     $time2 = $_time_t + 10
                     WHILE($time2 > $_time_t)
                        GETSCREEN ($xx-25,$yy+328,$xx+280,$yy+537)//(399,465, 679,644)
                        IF_PICTURE_IN ($xx-25,$yy+328,$xx+280,$yy+537, "нап.bmp", -1, 70)
                         
                           $time2 = 0
                           m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                           LCLICK($_xmouse,$_ymouse)
                           WAITMS(rnd(1500,1700))
                        ELSE
                           LOGWRITE ("не нашли нап")
                           WAITMS(50)
                        END_IF
                     END_CYC
                  ELSE
                     LOGWRITE ("не нашли б")
                     WAITMS(50)
                  END_IF
               END_CYC
               
            ELSE
               
               LOGWRITE ("это не нек ")// нужно запомнить кординыты и игнорить 
               GOTO(skip)
            END_IF
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #1 on: July 02, 2017, 08:47:48 AM »
В данном скрипте не хватает END_IF в конце, но раз это часть большого скрипта возможно ты его просто не скопировал.

Вот например картинка нашлась в координате 500,500
Code: (clickermann) [Select]
$x = 500
$y = 500

LOGWRITE ($x-549,",",$y-27,", ", $x-501,",",$y+20)
HALTЛог:
Code: [Select]
9:46:02 -49,473, -1,520В этом случаи у тебя область поиска будет задана не верно!
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #2 on: July 02, 2017, 11:59:52 AM »
Code: (clickermann) [Select]
$_xm1= 85
$_ym2= 49

SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
   $MOVE_Start_X = $_xmouse
   $MOVE_Start_Y = $_ymouse
   $MOVE_X = $MOVE_Start_X
   $MOVE_Y = $MOVE_Start_Y
   
   $dist = DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
   $MOVE_step = ($dist-1)/INT(SQRT($dist))
   $MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
   $MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step
   
   FOR($MOVE_i=0, $MOVE_i < INT($MOVE_step))
      $MOVE_X = $MOVE_X + $MOVE_X_step
      $MOVE_Y = $MOVE_Y + $MOVE_Y_step
      MOVE(INT($MOVE_X) + RND(-2,2), INT($MOVE_Y) + RND(-2,2))
      WAITMS($rnwait) // задержка при движении по точкам
   END_CYC
END_SUB

SUB(m_move,$M_X,$M_Y)
   $rnwait = RND(6,15) // случайная скорость
   $MOVE_MID_X = INT(($_xmouse+$M_X)/2)
   $MOVE_MID_Y = INT(($_ymouse+$M_Y)/2)
   $otx = INT(ABS($_xmouse - $M_X) * 0.12)
   $oty = INT(ABS($_ymouse - $M_Y) * 0.12)
   mouse_move($MOVE_MID_X+RND(-$otx,$otx), $MOVE_MID_Y+RND(-$oty,$oty))
   mouse_move($M_X,$M_Y)
   MOVE($M_X,$M_Y) //Передвинуть окончательно в заданную точку
END_SUB

IF($xx1212=0 )

   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "в.bmp")
      $xx = $_return1
      $yy = $_return2
      LOGSHOW (1, 49,102)
      LOGWRITE ("привязались")
      $xx1212=1
      $tim23 = $_time_t + 300
   ELSE
     
      LOGWRITE ("не привязались")
      HALT
      $xx1212=1
   END_IF
   
END_IF
IF($tim23 < $_time_t)
   m_move($_xm1+RND(-2,2), $_ym2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $tim23 = $_time_t + 300
   $t87=1
   //
END_IF



GETSCREEN  ($xx+547,$yy+519,$xx+598,$yy+610)  // (964,626,1015,717)
IF_PICTURE_IN ($xx+547,$yy+519,$xx+598,$yy+610, "череп.bmp", -1, 80)
   LOGWRITE ("нашли череп")
   IF($t87=1 )
      WAITMS(500)   
     
      $t87=0
   END_IF
   $tim23 = 0
   $tim23 = $_time_t + 300
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $ti=1
 
   skip1:
   
   $time = $_time_t + 10
   WHILE($time > $_time_t)
      GETSCREEN ($xx+98,$yy+514,$xx+162,$yy+591) //(515,621,579 ,698)
      IF_PICTURE_IN ($xx+98,$yy+514,$xx+162,$yy+591, "мне.bmp", -1, 70)
         $time = 0
         LOGWRITE ("нашли мне")
         IF($ti = 1)
            WAITMS(800) 
            $ti=0
         END_IF
         GETSCREEN ($xx+491,$yy-57,$xx+713,$yy+622)
         
         SCANPICTURE($ARR_SCAN, $xx+491,$yy-57,$xx+713,$yy+622, "на остров.bmp", -1, 70)
         LOGWRITE ("нашли на остров")
         $ARR_NUM = 0
         WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
            $X = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            $Y = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
           ($X, $Y)   // перемещаем курсор
            LOGWRITE ("X: ", $X, " Y: ", $Y)
            WAITMS(100)
            GETSCREEN ($x-549,$y-27, $x-501,$y+20)
            IF_PICTURE_IN ($x-549,$y-27, $x-501,$y+20, "то на стр.bmp", -1, 70)
               LOGWRITE ("это то жмякаем на остров")
               m_move($x+RND(-5,5),$y+RND(-5,5))
               LCLICK($_xmouse,$_ymouse)
               m_move($x+500+RND(-5,5),$y+RND(-5,5))
             
               $time1 = $_time_t + 10
               WHILE($time1 > $_time_t)
                  GETSCREEN ($xx+501,$yy+449,$xx+722,$yy+588) //(918,556, 1139,695)
                  COLORMODE(6, $xx+501,$yy+449,$xx+722,$yy+588)
                  IF_PICTURE_IN ($xx+501,$yy-449,$xx+722,$yy+588, "то.bmp", -1, 70)
                     $time1 = 0
                     LOGWRITE ("нашли тыкаем")
                     m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                     LCLICK($_xmouse,$_ymouse)
                   
                     
                     $time2 = $_time_t + 10
                     WHILE($time2 > $_time_t)
                        GETSCREEN ($xx-25,$yy+328,$xx+280,$yy+537)//(399,465, 679,644)
                        IF_PICTURE_IN ($xx-25,$yy+328,$xx+280,$yy+537, "напасть.bmp", -1, 70)
                           LOGWRITE ("нашли напасть")
                           $time2 = 0
                           m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                           LCLICK($_xmouse,$_ymouse)
                           WAITMS(rnd(1500,1700))
                        ELSE
                           LOGWRITE ("не нашли напасть")
                           WAITMS(50)
                        END_IF
                     END_CYC
                  ELSE
                     LOGWRITE ("не нашли ")
                     WAITMS(50)
                  END_IF
               END_CYC
               
            ELSE
               
               LOGWRITE ("это не то след стр")
               
            END_IF
           
           
           
         ELSE
            LOGWRITE ("не нашли на остров")
            GETSCREEN($xx+245,$yy+478,$xx+682,$yy+618) //(662,585, 1099,725)
            IF_PICTURE_IN ($xx+245,$yy+478,$xx+682,$yy+618, "след стр.bmp", -1, 70)
               LOGWRITE ("след сттр")
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               
               
               m_move($_xmouse+100,$_ymouse)
               WAITMS(rnd(300,500))

UNDEFINE($ARR_SCAN)

               
               GOTO(skip1)
               ELSE
GOTO(ski)
            END_IF
         END_CYC
         
         
   
      ELSE
         
         WAITMS(50)
      END_IF
   END_CYC
   
   
END_IF
ski:
SUB(элики,$dname1)
   GETSCREEN  ($xx+37,$yy+436, $xx+657,$yy+561)
   IF_PICTURE_IN ($xx+37,$yy+436, $xx+657,$yy+561, $dname1, -1, 80)
   
         LOGWRITE ("юзаем:" ,$dname1,")
     
      m_move($_return1+RND(-10,10), $_return2+RND(-10,10))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(rnd(400,600))   
     
   END_IF
END_SUB
GETSCREEN($xx+282,$yy+41, $xx+378,$yy+73)
IF_PICTURE_IN ($xx+282,$yy+41, $xx+378,$yy+73, "ход.bmp", -1, 80)
 
   элики("молния.bmp")
   элики("плевок.bmp")
 
   
   WAITMS(rnd(200,250))   
   
END_IF
 UNDEFINE($ARR_SCAN)
GETSCREEN ($xx+635,$yy-34,$xx+716,$yy+48)//(1052,73, 1133,155)
IF_PICTURE_IN (1052,73, 1133,155, "крестик.bmp", -1, 90)
   LOGWRITE ("нашли крестик")
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   WAITMS(rnd(2000,4000)) 
   LOGCLEAR
   
   m_move($_return1+100+RND(-2,2), $_return2+RND(-20,20))
END_IF


WAITMS(rnd(50,90))   вот так все работает как нужно но писали что с цыкла нельзя гото а я по другому не могу понять как сделать подправте чтоб было все правильно но работал  так же как вот сейчас
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #3 on: July 02, 2017, 12:42:27 PM »
Ошибка:
Строка 98
($X, $Y)   // перемещаем курсор - Куда MOVE делось? Сотри строку полностью если она тебе не нужна

Строка 147
ELSE вне условия посреди цикла WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))

Строка 183
LOGWRITE ("юзаем:" ,$dname1,") - лишнее ,"

UNDEFINE($ARR_SCAN) написано не пойми где.
Обнулять массив нужно после цикла WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
либо до SCANPICTURE. Даже если массива еще нет то ошибки не будет.

Для начала разберись с ELSE на 147 строке.
Конечно же выпрыгивать через гото из циклов нельзя.
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #4 on: July 02, 2017, 05:06:04 PM »
98 строку убрал и в 183 поправил а насчет  ELSE  Строка 147 я не понял куда его нужно пристроить это дложно делаться если не нашло   SCANPICTURE($ARR_SCAN, $xx+491,$yy-57,$xx+713,$yy+622, "на остров.bmp", -1, 70) а удаления масива понапихивал везде  :Dот того что если оно только после выхода и цыкла что то не то наврное из за того что в цыкле это если но ян з как исправить а работать и так работает как нада но все равно хотелось бы чтоб все было как нада а не через *опу ;D можете показать где оно должно быть  ???
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #5 on: July 02, 2017, 05:55:11 PM »
Исправил, теперь все корректно. Гото там вообще не нужны все решается логикой.

Code: (clickermann) [Select]
$_xm1= 85
$_ym2= 49

SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
   $MOVE_Start_X = $_xmouse
   $MOVE_Start_Y = $_ymouse
   $MOVE_X = $MOVE_Start_X
   $MOVE_Y = $MOVE_Start_Y
   
   $dist = DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
   $MOVE_step = ($dist-1)/INT(SQRT($dist))
   $MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
   $MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step
   
   FOR($MOVE_i=0, $MOVE_i < INT($MOVE_step))
      $MOVE_X = $MOVE_X + $MOVE_X_step
      $MOVE_Y = $MOVE_Y + $MOVE_Y_step
      MOVE(INT($MOVE_X) + RND(-2,2), INT($MOVE_Y) + RND(-2,2))
      WAITMS($rnwait) // задержка при движении по точкам
   END_CYC
END_SUB

SUB(m_move,$M_X,$M_Y)
   $rnwait = RND(6,15) // случайная скорость
   $MOVE_MID_X = INT(($_xmouse+$M_X)/2)
   $MOVE_MID_Y = INT(($_ymouse+$M_Y)/2)
   $otx = INT(ABS($_xmouse - $M_X) * 0.12)
   $oty = INT(ABS($_ymouse - $M_Y) * 0.12)
   mouse_move($MOVE_MID_X+RND(-$otx,$otx), $MOVE_MID_Y+RND(-$oty,$oty))
   mouse_move($M_X,$M_Y)
   MOVE($M_X,$M_Y) //Передвинуть окончательно в заданную точку
END_SUB

IF($xx1212=0 )
   
   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "в.bmp")
      $xx = $_return1
      $yy = $_return2
      LOGSHOW (1, 49,102)
      LOGWRITE ("привязались")
      $xx1212=1
      $tim23 = $_time_t + 300
   ELSE       
      LOGWRITE ("не привязались")
      HALT
      $xx1212=1
   END_IF
   
END_IF

IF($tim23 < $_time_t)
   m_move($_xm1+RND(-2,2), $_ym2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $tim23 = $_time_t + 300
   $t87=1
END_IF



GETSCREEN  ($xx+547,$yy+519,$xx+598,$yy+610)  // (964,626,1015,717)
IF_PICTURE_IN ($xx+547,$yy+519,$xx+598,$yy+610, "череп.bmp", -1, 80)
   LOGWRITE ("нашли череп")
   IF($t87=1 )
      WAITMS(500)       
      $t87=0
   END_IF
   $tim23 = 0
   $tim23 = $_time_t + 300
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $ti=1
   
   $time = $_time_t + 10
   WHILE($time > $_time_t)
      GETSCREEN ($xx+98,$yy+514,$xx+162,$yy+591) //(515,621,579 ,698)
      IF_PICTURE_IN ($xx+98,$yy+514,$xx+162,$yy+591, "мне.bmp", -1, 70)
         $time = 0
         LOGWRITE ("нашли мне")
         IF($ti = 1)
            WAITMS(800)
            $ti=0
         END_IF
         
         UNDEFINE($ARR_SCAN) // перед поиском обнуляем массив
         GETSCREEN ($xx+491,$yy-57,$xx+713,$yy+622)
         SCANPICTURE($ARR_SCAN, $xx+491,$yy-57,$xx+713,$yy+622, "на остров.bmp", -1, 70)
         LOGWRITE ("нашли на остров")
         $ARR_NUM = 0
         WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
            $X = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            $Y = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            WAITMS(100)
            GETSCREEN ($x-549,$y-27, $x-501,$y+20)
            IF_PICTURE_IN ($x-549,$y-27, $x-501,$y+20, "то на стр.bmp", -1, 70)
               LOGWRITE ("это то жмякаем на остров")
               m_move($x+RND(-5,5),$y+RND(-5,5))
               LCLICK($_xmouse,$_ymouse)
               m_move($x+500+RND(-5,5),$y+RND(-5,5))
               
               $time1 = $_time_t + 10
               WHILE($time1 > $_time_t)
                  GETSCREEN ($xx+501,$yy+449,$xx+722,$yy+588) //(918,556, 1139,695)
                  COLORMODE(6, $xx+501,$yy+449,$xx+722,$yy+588)
                  IF_PICTURE_IN ($xx+501,$yy-449,$xx+722,$yy+588, "то.bmp", -1, 70)
                     $time1 = 0
                     LOGWRITE ("нашли тыкаем")
                     m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                     LCLICK($_xmouse,$_ymouse)
                     
                     
                     $time2 = $_time_t + 10
                     WHILE($time2 > $_time_t)
                        GETSCREEN ($xx-25,$yy+328,$xx+280,$yy+537)//(399,465, 679,644)
                        IF_PICTURE_IN ($xx-25,$yy+328,$xx+280,$yy+537, "напасть.bmp", -1, 70)
                           LOGWRITE ("нашли напасть")
                           $time2 = 0
                           m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                           LCLICK($_xmouse,$_ymouse)
                           WAITMS(rnd(1500,1700))
                        ELSE
                           LOGWRITE ("не нашли напасть")
                           WAITMS(50)
                        END_IF
                     END_CYC
                  ELSE
                     LOGWRITE ("не нашли ")
                     WAITMS(50)
                  END_IF
               END_CYC
               
            ELSE
               
               LOGWRITE ("это не то след стр")
               
            END_IF
         END_CYC
         
         IF(ARRSIZE($ARR_SCAN) = 0) // если массив пуст, значит не нашли на остров.bmp
            LOGWRITE ("не нашли на остров")
            GETSCREEN($xx+245,$yy+478,$xx+682,$yy+618) //(662,585, 1099,725)
            IF_PICTURE_IN ($xx+245,$yy+478,$xx+682,$yy+618, "след стр.bmp", -1, 70)
               LOGWRITE ("след сттр")
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)               
               
               m_move($_xmouse+100,$_ymouse)
               WAITMS(rnd(300,500))             
               
               $time = $_time_t + 10 // продлеваем цикл WHILE($time > $_time_t)
            ELSE
               $time = 0 // выход из цикла WHILE($time > $_time_t)
            END_IF
         END_IF
         
      ELSE
         
         WAITMS(50)
      END_IF
   END_CYC
   
END_IF

SUB(элики,$dname1)
   GETSCREEN  ($xx+37,$yy+436, $xx+657,$yy+561)
   IF_PICTURE_IN ($xx+37,$yy+436, $xx+657,$yy+561, $dname1, -1, 80)       
      LOGWRITE ("юзаем:" ,$dname1)       
      m_move($_return1+RND(-10,10), $_return2+RND(-10,10))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(rnd(400,600))       
   END_IF
END_SUB

GETSCREEN($xx+282,$yy+41, $xx+378,$yy+73)
IF_PICTURE_IN ($xx+282,$yy+41, $xx+378,$yy+73, "ход.bmp", -1, 80)     
   элики("молния.bmp")
   элики("плевок.bmp")     
   WAITMS(rnd(200,250))   
END_IF

GETSCREEN ($xx+635,$yy-34,$xx+716,$yy+48)//(1052,73, 1133,155)
IF_PICTURE_IN (1052,73, 1133,155, "крестик.bmp", -1, 90)
   LOGWRITE ("нашли крестик")
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   WAITMS(rnd(2000,4000))
   LOGCLEAR   
   m_move($_return1+100+RND(-2,2), $_return2+RND(-20,20))
END_IF

WAITMS(rnd(50,90))
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #6 on: July 02, 2017, 06:04:12 PM »
ой спасибо огромное :) просто я вчера сидел это все вобше угадывал методом тыка :-\
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #7 on: July 02, 2017, 11:52:54 PM »
и все же нет не то  :'(  код то поправили но смысл теперь не тот он делает не так как нада (((((((((((((((((( :-[
разница в моем кривом варианте после того как он найдет на остров он провиряет то ли это если не то он возвращаеться и уже проверяет следующую картинку из масива если и это не то тогда возвращаеться назад проверять картинку из масива следующую если ее нет то выходит что картинки на остров больше нет значит след стр удаляем преждий масив и по новому если картинка есть проверяем то или не то если не то следующую  проверяем а в вашем примере выходит тоже самое что бы просто через условия сдела он ток первую найденую проверяет то ли это если не то то все аминь завис  :'(
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #8 on: July 03, 2017, 12:19:04 AM »
Code: (clickermann) [Select]
$_xm1= 85
$_ym2= 49

SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
   $MOVE_Start_X = $_xmouse
   $MOVE_Start_Y = $_ymouse
   $MOVE_X = $MOVE_Start_X
   $MOVE_Y = $MOVE_Start_Y
   
   $dist = DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
   $MOVE_step = ($dist-1)/INT(SQRT($dist))
   $MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
   $MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step
   
   FOR($MOVE_i=0, $MOVE_i < INT($MOVE_step))
      $MOVE_X = $MOVE_X + $MOVE_X_step
      $MOVE_Y = $MOVE_Y + $MOVE_Y_step
      MOVE(INT($MOVE_X) + RND(-2,2), INT($MOVE_Y) + RND(-2,2))
      WAITMS($rnwait) // задержка при движении по точкам
   END_CYC
END_SUB

SUB(m_move,$M_X,$M_Y)
   $rnwait = RND(6,15) // случайная скорость
   $MOVE_MID_X = INT(($_xmouse+$M_X)/2)
   $MOVE_MID_Y = INT(($_ymouse+$M_Y)/2)
   $otx = INT(ABS($_xmouse - $M_X) * 0.12)
   $oty = INT(ABS($_ymouse - $M_Y) * 0.12)
   mouse_move($MOVE_MID_X+RND(-$otx,$otx), $MOVE_MID_Y+RND(-$oty,$oty))
   mouse_move($M_X,$M_Y)
   MOVE($M_X,$M_Y) //Передвинуть окончательно в заданную точку
END_SUB

IF($xx1212=0 )
   
   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "в.bmp")
      $xx = $_return1
      $yy = $_return2
      LOGSHOW (1, 49,102)
      LOGWRITE ("привязались")
      $xx1212=1
      $tim23 = $_time_t + 300
   ELSE
      LOGWRITE ("не привязались")
      HALT
      $xx1212=1
   END_IF
   
END_IF

IF($tim23 < $_time_t)
   m_move($_xm1+RND(-2,2), $_ym2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $tim23 = $_time_t + 300
   $t87=1
END_IF



GETSCREEN  ($xx+547,$yy+519,$xx+598,$yy+610)  // (964,626,1015,717)
IF_PICTURE_IN ($xx+547,$yy+519,$xx+598,$yy+610, "череп.bmp", -1, 80)
   LOGWRITE ("нашли череп")
   IF($t87=1 )
      WAITMS(500)
      $t87=0
   END_IF
   $tim23 = 0
   $tim23 = $_time_t + 300
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $ti=1
   
   $time = $_time_t + 10
   WHILE($time > $_time_t)
      GETSCREEN ($xx+98,$yy+514,$xx+162,$yy+591) //(515,621,579 ,698)
      IF_PICTURE_IN ($xx+98,$yy+514,$xx+162,$yy+591, "мне.bmp", -1, 70)
         $time = 0
         LOGWRITE ("нашли мне")
         IF($ti = 1)
            WAITMS(800)
            $ti=0
         END_IF
         
         UNDEFINE($ARR_SCAN) // перед поиском обнуляем массив
         GETSCREEN ($xx+491,$yy-57,$xx+713,$yy+622)
         SCANPICTURE($ARR_SCAN, $xx+491,$yy-57,$xx+713,$yy+622, "на остров.bmp", -1, 70)
         LOGWRITE ("нашли на остров")
         $ARR_NUM = 0
         WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
            $X = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            $Y = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            WAITMS(100)
            GETSCREEN ($x-549,$y-27, $x-501,$y+20)
            IF_PICTURE_IN ($x-549,$y-27, $x-501,$y+20, "то на стр.bmp", -1, 70)
               LOGWRITE ("это то жмякаем на остров")
               m_move($x+RND(-5,5),$y+RND(-5,5))
               LCLICK($_xmouse,$_ymouse)
               m_move($x+500+RND(-5,5),$y+RND(-5,5))
               
               $time1 = $_time_t + 10
               WHILE($time1 > $_time_t)
                  GETSCREEN ($xx+501,$yy+449,$xx+722,$yy+588) //(918,556, 1139,695)
                  COLORMODE(6, $xx+501,$yy+449,$xx+722,$yy+588)
                  IF_PICTURE_IN ($xx+501,$yy-449,$xx+722,$yy+588, "то.bmp", -1, 70)
                     $time1 = 0
                     LOGWRITE ("нашли тыкаем")
                     m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                     LCLICK($_xmouse,$_ymouse)
                     
                     
                     $time2 = $_time_t + 10
                     WHILE($time2 > $_time_t)
                        GETSCREEN ($xx-25,$yy+328,$xx+280,$yy+537)//(399,465, 679,644)
                        IF_PICTURE_IN ($xx-25,$yy+328,$xx+280,$yy+537, "напасть.bmp", -1, 70)
                           LOGWRITE ("нашли напасть")
                           $time2 = 0
                           m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                           LCLICK($_xmouse,$_ymouse)
                           WAITMS(rnd(1500,1700))
                        ELSE
                           LOGWRITE ("не нашли напасть")
                           WAITMS(50)
                        END_IF
                     END_CYC
                  ELSE
                 
                     LOGWRITE ("не нашли. выход")
                     WAITMS(50)
                  END_IF
               END_CYC
               
            ELSE
// вот тут как сделать чтоб если картинка на остров есть но это на нужный нам остров потому что картинка острова "то" нам не подходит и нужно вернуться проверки следующей картинки на остров на тей же страницы но пропуская эту что только что проверели и если не провереных картинок на остров уже нет то тогда след страница и удаления масива потому что там о5 нада искать эти картинки
               LOGWRITE ("это не то след стр")
               
            END_IF
         END_CYC
         
         IF(ARRSIZE($ARR_SCAN) = 0) // если массив пуст, значит не нашли на остров.bmp
            LOGWRITE ("не нашли на остров")
            GETSCREEN($xx+245,$yy+478,$xx+682,$yy+618) //(662,585, 1099,725)
            IF_PICTURE_IN ($xx+245,$yy+478,$xx+682,$yy+618, "след стр.bmp", -1, 70)
               LOGWRITE ("след сттр")
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               
               m_move($_xmouse+100,$_ymouse)
               WAITMS(rnd(300,500))
               
               $time = $_time_t + 10 // продлеваем цикл WHILE($time > $_time_t)
            ELSE
               $time = 0 // выход из цикла WHILE($time > $_time_t)
            END_IF
         END_IF
         
      ELSE
         
         WAITMS(50)
      END_IF
   END_CYC
   
END_IF

SUB(элики,$dname1)
   GETSCREEN  ($xx+37,$yy+436, $xx+657,$yy+561)
   IF_PICTURE_IN ($xx+37,$yy+436, $xx+657,$yy+561, $dname1, -1, 80)
      LOGWRITE ("юзаем:" ,$dname1)
      m_move($_return1+RND(-10,10), $_return2+RND(-10,10))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(rnd(400,600))
   END_IF
END_SUB

GETSCREEN($xx+282,$yy+41, $xx+378,$yy+73)
IF_PICTURE_IN ($xx+282,$yy+41, $xx+378,$yy+73, "ход.bmp", -1, 80)
   элики("молния.bmp")
   элики("плевок.bmp")
   WAITMS(rnd(200,250))
END_IF

GETSCREEN ($xx+635,$yy-34,$xx+716,$yy+48)//(1052,73, 1133,155)
IF_PICTURE_IN (1052,73, 1133,155, "крестик.bmp", -1, 90)
   LOGWRITE ("нашли крестик")
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   WAITMS(rnd(2000,4000))
   LOGCLEAR
   m_move($_return1+100+RND(-2,2), $_return2+RND(-20,20))
END_IF

WAITMS(rnd(50,90))

Logged

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #9 on: July 03, 2017, 01:03:49 AM »
Quote from: Зануда on July 02, 2017, 11:52:54 PM
и все же нет не то  :'(  код то поправили но смысл теперь не тот он делает не так как нада (((((((((((((((((( :-[
разница в моем кривом варианте после того как он найдет на остров он провиряет то ли это если не то он возвращаеться и уже проверяет следующую картинку из масива если и это не то тогда возвращаеться назад проверять картинку из масива следующую если ее нет то выходит что картинки на остров больше нет значит след стр удаляем преждий масив и по новому если картинка есть проверяем то или не то если не то следующую  проверяем а в вашем примере выходит тоже самое что бы просто через условия сдела он ток первую найденую проверяет то ли это если не то то все аминь завис  :'(
Казнить нельзя помиловать.
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #10 on: July 03, 2017, 01:11:39 AM »
Quote from: dramster on July 03, 2017, 01:03:49 AM
Quote from: Зануда on July 02, 2017, 11:52:54 PM
и все же нет не то  :'(  код то поправили но смысл теперь не тот он делает не так как нада (((((((((((((((((( :-[
разница в моем кривом варианте после того как он найдет на остров он провиряет то ли это если не то он возвращаеться и уже проверяет следующую картинку из масива если и это не то тогда возвращаеться назад проверять картинку из масива следующую если ее нет то выходит что картинки на остров больше нет значит след стр удаляем преждий масив и по новому если картинка есть проверяем то или не то если не то следующую  проверяем а в вашем примере выходит тоже самое что бы просто через условия сдела он ток первую найденую проверяет то ли это если не то то все аминь завис  :'(
Казнить нельзя помиловать.
меня? :-[ или код? ???
Logged

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #11 on: July 03, 2017, 06:51:03 AM »
Да и тебя и твою училку русского языка! Надо знаки препинания писать и не делать ошибок, при том что тот же браузер может проверить ошибки.

Исправлено
Code: (clickermann) [Select]
$_xm1= 85
$_ym2= 49

SUB(mouse_move,$MOVE_END_X,$MOVE_END_Y)
   $MOVE_Start_X = $_xmouse
   $MOVE_Start_Y = $_ymouse
   $MOVE_X = $MOVE_Start_X
   $MOVE_Y = $MOVE_Start_Y
   
   $dist = DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
   $MOVE_step = ($dist-1)/INT(SQRT($dist))
   $MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
   $MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step
   
   FOR($MOVE_i=0, $MOVE_i < INT($MOVE_step))
      $MOVE_X = $MOVE_X + $MOVE_X_step
      $MOVE_Y = $MOVE_Y + $MOVE_Y_step
      MOVE(INT($MOVE_X) + RND(-2,2), INT($MOVE_Y) + RND(-2,2))
      WAITMS($rnwait) // задержка при движении по точкам
   END_CYC
END_SUB

SUB(m_move,$M_X,$M_Y)
   $rnwait = RND(6,15) // случайная скорость
   $MOVE_MID_X = INT(($_xmouse+$M_X)/2)
   $MOVE_MID_Y = INT(($_ymouse+$M_Y)/2)
   $otx = INT(ABS($_xmouse - $M_X) * 0.12)
   $oty = INT(ABS($_ymouse - $M_Y) * 0.12)
   mouse_move($MOVE_MID_X+RND(-$otx,$otx), $MOVE_MID_Y+RND(-$oty,$oty))
   mouse_move($M_X,$M_Y)
   MOVE($M_X,$M_Y) //Передвинуть окончательно в заданную точку
END_SUB

IF($xx1212=0 )
   
   GETSCREEN
   IF_PICTURE_IN(0,0, $_xmax,$_ymax, "в.bmp")
      $xx = $_return1
      $yy = $_return2
      LOGSHOW (1, 49,102)
      LOGWRITE ("привязались")
      $xx1212=1
      $tim23 = $_time_t + 300
   ELSE
      LOGWRITE ("не привязались")
      HALT
      $xx1212=1
   END_IF
   
END_IF

IF($tim23 < $_time_t)
   m_move($_xm1+RND(-2,2), $_ym2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $tim23 = $_time_t + 300
   $t87=1
END_IF



GETSCREEN  ($xx+547,$yy+519,$xx+598,$yy+610)  // (964,626,1015,717)
IF_PICTURE_IN ($xx+547,$yy+519,$xx+598,$yy+610, "череп.bmp", -1, 80)
   LOGWRITE ("нашли череп")
   IF($t87=1 )
      WAITMS(500)
      $t87=0
   END_IF
   $tim23 = 0
   $tim23 = $_time_t + 300
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   $ti=1
   
   $time = $_time_t + 10
   WHILE($time > $_time_t)
      GETSCREEN ($xx+98,$yy+514,$xx+162,$yy+591) //(515,621,579 ,698)
      IF_PICTURE_IN ($xx+98,$yy+514,$xx+162,$yy+591, "мне.bmp", -1, 70)
         $time = 0
         LOGWRITE ("нашли мне")
         IF($ti = 1)
            WAITMS(800)
            $ti=0
         END_IF
         
         UNDEFINE($ARR_SCAN) // перед поиском обнуляем массив
         GETSCREEN ($xx+491,$yy-57,$xx+713,$yy+622)
         SCANPICTURE($ARR_SCAN, $xx+491,$yy-57,$xx+713,$yy+622, "на остров.bmp", -1, 70)
         LOGWRITE ("нашли на остров")
         $ARR_NUM = 0
         $check_ostrov = 0
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
            $X = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            $Y = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            WAITMS(100)
            GETSCREEN ($x-549,$y-27, $x-501,$y+20)
            IF_PICTURE_IN ($x-549,$y-27, $x-501,$y+20, "то на стр.bmp", -1, 70)
               LOGWRITE ("это то жмякаем на остров")
               m_move($x+RND(-5,5),$y+RND(-5,5))
               LCLICK($_xmouse,$_ymouse)
               m_move($x+500+RND(-5,5),$y+RND(-5,5))
               
               $time1 = $_time_t + 10
               WHILE($time1 > $_time_t)
                  GETSCREEN ($xx+501,$yy+449,$xx+722,$yy+588) //(918,556, 1139,695)
                  COLORMODE(6, $xx+501,$yy+449,$xx+722,$yy+588)
                  IF_PICTURE_IN ($xx+501,$yy-449,$xx+722,$yy+588, "то.bmp", -1, 70)
                     $time1 = 0
                     LOGWRITE ("нашли тыкаем")
                     m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                     LCLICK($_xmouse,$_ymouse)
                     
                     
                     $time2 = $_time_t + 10
                     WHILE($time2 > $_time_t)
                        GETSCREEN ($xx-25,$yy+328,$xx+280,$yy+537)//(399,465, 679,644)
                        IF_PICTURE_IN ($xx-25,$yy+328,$xx+280,$yy+537, "напасть.bmp", -1, 70)
                           LOGWRITE ("нашли напасть")
                           $time2 = 0
                           m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                           LCLICK($_xmouse,$_ymouse)
                           WAITMS(rnd(1500,1700))
                        ELSE
                           LOGWRITE ("не нашли напасть")
                           WAITMS(50)
                        END_IF
                     END_CYC
                  ELSE
                     
                     LOGWRITE ("не нашли. выход")
                     WAITMS(50)
                  END_IF
               END_CYC
              $check_ostrov = 1 // помечаем что хотя бы 1 картинка подходит под условия
            ELSE 
               LOGWRITE ("это не то след стр")                 
            END_IF
         END_CYC
         
         IF($check_ostrov = 0) // если флаг = 0, значит не нашли "то на стр.bmp"
            LOGWRITE ("не нашли на остров")
            GETSCREEN($xx+245,$yy+478,$xx+682,$yy+618) //(662,585, 1099,725)
            IF_PICTURE_IN ($xx+245,$yy+478,$xx+682,$yy+618, "след стр.bmp", -1, 70)
               LOGWRITE ("след сттр")
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
               
               m_move($_xmouse+100,$_ymouse)
               WAITMS(rnd(300,500))
               
               $time = $_time_t + 10 // продлеваем цикл WHILE($time > $_time_t)
            ELSE
               $time = 0 // выход из цикла WHILE($time > $_time_t)
            END_IF
         END_IF
         
      ELSE
         
         WAITMS(50)
      END_IF
   END_CYC
   
END_IF

SUB(элики,$dname1)
   GETSCREEN  ($xx+37,$yy+436, $xx+657,$yy+561)
   IF_PICTURE_IN ($xx+37,$yy+436, $xx+657,$yy+561, $dname1, -1, 80)
      LOGWRITE ("юзаем:" ,$dname1)
      m_move($_return1+RND(-10,10), $_return2+RND(-10,10))
      LCLICK($_xmouse,$_ymouse)
      WAITMS(rnd(400,600))
   END_IF
END_SUB

GETSCREEN($xx+282,$yy+41, $xx+378,$yy+73)
IF_PICTURE_IN ($xx+282,$yy+41, $xx+378,$yy+73, "ход.bmp", -1, 80)
   элики("молния.bmp")
   элики("плевок.bmp")
   WAITMS(rnd(200,250))
END_IF

GETSCREEN ($xx+635,$yy-34,$xx+716,$yy+48)//(1052,73, 1133,155)
IF_PICTURE_IN (1052,73, 1133,155, "крестик.bmp", -1, 90)
   LOGWRITE ("нашли крестик")
   m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
   LCLICK($_xmouse,$_ymouse)
   WAITMS(rnd(2000,4000))
   LOGCLEAR
   m_move($_return1+100+RND(-2,2), $_return2+RND(-20,20))
END_IF

WAITMS(rnd(50,90))
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #12 on: July 03, 2017, 08:09:39 AM »
извеняйте у меня не было училки по русском  :-X  спасибо надеюс теперь будет как нужно работать :) и код красивый будет  :D
Logged

Зануда

  • Активный участник
  • ***
  • Posts: 104
    • View Profile
Re: работает только если все верно .... а оно не всегда так помогите пжж
« Reply #13 on: July 03, 2017, 09:29:32 AM »
все проверил работает как и нужно да еще и код теперь правильный без косяков спасибо огромное  ;) :) кстати кто шарит и у кого есть время  рожуйте как для самого чайника  ;D по поводу цыкла с  масивом хоть там и есть комментарии но я все равно что то не вехал  :-\
Code: (clickermann) [Select]
UNDEFINE($ARR_SCAN) // перед поиском обнуляем массив
         GETSCREEN ($xx+491,$yy-57,$xx+713,$yy+622)
         SCANPICTURE($ARR_SCAN, $xx+491,$yy-57,$xx+713,$yy+622, "на остров.bmp", -1, 70)
         LOGWRITE ("нашли на остров")
         $ARR_NUM = 0
         $check_ostrov = 0
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
            $X = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            $Y = $ARR_SCAN [$ARR_NUM]
            INC($ARR_NUM,1)
            WAITMS(100)
            GETSCREEN ($x-549,$y-27, $x-501,$y+20)
            IF_PICTURE_IN ($x-549,$y-27, $x-501,$y+20, "то на стр.bmp", -1, 70)
               LOGWRITE ("это то жмякаем на остров")
               m_move($x+RND(-5,5),$y+RND(-5,5))
               LCLICK($_xmouse,$_ymouse)
               m_move($x+500+RND(-5,5),$y+RND(-5,5))
 
               $time1 = $_time_t + 10
               WHILE($time1 > $_time_t)
                  GETSCREEN ($xx+501,$yy+449,$xx+722,$yy+588) //(918,556, 1139,695)
                  COLORMODE(6, $xx+501,$yy+449,$xx+722,$yy+588)
                  IF_PICTURE_IN ($xx+501,$yy-449,$xx+722,$yy+588, "то.bmp", -1, 70)
                     $time1 = 0
                     LOGWRITE ("нашли тыкаем")
                     m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                     LCLICK($_xmouse,$_ymouse)
 
 
                     $time2 = $_time_t + 10
                     WHILE($time2 > $_time_t)
                        GETSCREEN ($xx-25,$yy+328,$xx+280,$yy+537)//(399,465, 679,644)
                        IF_PICTURE_IN ($xx-25,$yy+328,$xx+280,$yy+537, "напасть.bmp", -1, 70)
                           LOGWRITE ("нашли напасть")
                           $time2 = 0
                           m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
                           LCLICK($_xmouse,$_ymouse)
                           WAITMS(rnd(1500,1700))
                        ELSE
                           LOGWRITE ("не нашли напасть")
                           WAITMS(50)
                        END_IF
                     END_CYC
                  ELSE
 
                     LOGWRITE ("не нашли. выход")
                     WAITMS(50)
                  END_IF
               END_CYC
              $check_ostrov = 1 // помечаем что хотя бы 1 картинка подходит под условия
            ELSE 
               LOGWRITE ("это не то след стр")                 
            END_IF
         END_CYC
 
         IF($check_ostrov = 0) // если флаг = 0, значит не нашли "то на стр.bmp"
            LOGWRITE ("не нашли на остров")
            GETSCREEN($xx+245,$yy+478,$xx+682,$yy+618) //(662,585, 1099,725)
            IF_PICTURE_IN ($xx+245,$yy+478,$xx+682,$yy+618, "след стр.bmp", -1, 70)
               LOGWRITE ("след сттр")
               m_move($_return1+RND(-2,2), $_return2+RND(-2,2))
               LCLICK($_xmouse,$_ymouse)
 
               m_move($_xmouse+100,$_ymouse)
               WAITMS(rnd(300,500))
 
               $time = $_time_t + 10 // продлеваем цикл WHILE($time > $_time_t)
            ELSE
               $time = 0 // выход из цикла WHILE($time > $_time_t)
            END_IF
         END_IF
Logged
Pages: [1]
« previous next »