Messages

31

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: August 25, 2020, 10:03:33 AM »

ребята прошу вашей помощи.......в разборе данного параметра в скрипте

Code: (clickermann) [Select]

GETSCREEN(112,211, 555,405)
   IF_PICTURE_IN (112,211, 555,405, "кат.bmp")
      $x =  $_return1
      $y =  $_return2
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0верхБД.bmp") // вот в етой строке интересует как узнать охват зоны поиска по  етим параметрам ?  и как  научится выщитывать  ее самостоятельно

Code: (clickermann) [Select]

$x-116,$y-51, $y+268,$y+690

32

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: August 22, 2020, 05:56:46 PM »

Vint  Спасибо тоесть  делать GETSCREEN(222,244 666,777) по  кординатам  ето быстрее?......  чем  в миох скриптах....
ок буду тестировать  а щяс буду на форуме искаить  скрипт  как выставить окно в точно заданые  кординаты  я  его на форуме встречал))
Ненашел собрал сам....

Code: (clickermann) [Select]

LDOWN(1033,27) // место появления окна
WAITMS(50)
MOVE(354,34) // место куда перемещять
WAITMS(50)
LUP(354,34)
LOGWRITE ("переместил окно")

HALT


а еще  вопрос сюда ....что продуктивнее  поиск по пикселю.... или  поиск  ХЕШ?  есть места  где   область картинки не  изменяется .

Code: (clickermann) [Select]

GETSCREEN
$count = PXLCRC (10,20, 100, 40)
logwrite("Hash: ", $count)
TOCLIP ($count) // Сразу записывает хеш в буфер обмена - тебе уже не надо его копировать, чтоб вставить потом.
HALT // Скрипт сам остановится

33

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: August 20, 2020, 10:45:28 AM »

ну так как ты показал я пробывал вроди не работает  щяс  буду тестировать   еще....не мог понять куда ставить END_IF
вот  пример 2 скрипта как их  обьеденить в один
Первый скрипт

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub

//Ждем картинку  ===========================================================

$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (112,211, 555,405, "кат.bmp")
      LOGWRITE ("ЕСТЬ КАТ")
      $x =  $_return1
      $y =  $_return2
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("нашел=0")
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")
            $check = 1
            LCLICK($_return1, $_return2)
            WAITMS(100)
            LOGWRITE ("нашел=1")
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")
               $check = 1
               LCLICK($_return1, $_return2)
               WAITMS(100)
               LOGWRITE ("нашел=2")
            ELSE
               WAITMS(50)
               
               LOGWRITE ("нету  ищю снова ")
            END_IF
         END_IF
      END_IF
   END_IF
END_CYC




//Если картинка найдена то ищем пиксели итд.
Find_pix(494, 959, 503, 963, 213)  //  Есть


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (246,812, 468,844, "ПРИНЯТЬ ЗАКАЗ.bmp", -1, 100)
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
      WAIT(5)
      LCLICK(580,911)  // 1250067
      WAIT(1)
      LCLICK(574,907)  // 1250067
     
     
   ELSE
      WAITMS(50)
   END_IF
END_CYC
WAIT(6)
И второй  они одинаковы только  зоны поиска немного разные

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub

//Ждем картинку  ===========================================================

$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (111,411, 555,605, "катерина низ.bmp")
      LOGWRITE ("ЕСТЬ КАТ")
      $x =  $_return1
      $y =  $_return2
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0низ.bmp")
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("нашел=0")
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")
            $check = 1
            LCLICK($_return1, $_return2)
            WAITMS(100)
            LOGWRITE ("нашел=1")
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2низ.bmp")
               $check = 1
               LCLICK($_return1, $_return2)
               WAITMS(100)
               LOGWRITE ("нашел=2")
            ELSE
               LOGWRITE ("нету  ищю снова ")
            END_IF
         END_IF
      END_IF
   END_IF
END_CYC




//Если картинка найдена то ищем пиксели итд.
Find_pix(494, 959, 503, 963, 213)  //  Есть

$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (246,812, 468,844, "ПРИНЯТЬ ЗАКАЗ.bmp", -1, 100)
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC




$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
        WAIT(5)
      LCLICK(580,911)  // 1250067
      WAIT(1)
      LCLICK(574,907)  // 1250067
     
     
   ELSE
      WAITMS(50)
   END_IF
END_CYC
WAIT(5)нехватает опыта как ето обьеденить

34

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: August 20, 2020, 08:55:00 AM »

Реебята   надоело работать с  двумя и более  окнами кликермана ...... хочу в один скрипт  помнеститься... вот мозг не  срабатывает  где правельно поставить End_IF

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub

//Ждем картинку ===============ПЕРВАЯ ЧСТЬ============================================


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (112,211, 553,405, "кат.bmp")
      LOGWRITE ("ЕСТЬ КАТ")
      $x =  $_return1
      $y =  $_return2
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("нашел=0")
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")
            $check = 1
            LCLICK($_return1, $_return2)
            WAITMS(100)
            LOGWRITE ("нашел=1")
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")
               $check = 1
               LCLICK($_return1, $_return2)
               WAITMS(100)
               LOGWRITE ("нашел=2")
            ELSE
               IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "3.bmp")
                  $check = 1
                  LCLICK($_return1, $_return2)
                  WAITMS(100)
                  LOGWRITE ("нашел=3")
               ELSE
                  LOGWRITE ("нету  ищю снова ")
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_IF
//==========================================ВТОРАЯ ЧАСТЬ ПРИСОЕДИНИЛ   КАК ЧТОБЫ ОДНИМ ГЕТ СКРИНОМ ВСЕ РАБОТАЛО ????????
IF_PICTURE_IN (112,411, 553,605, "катерина низ.bmp")
   LOGWRITE ("ЕСТЬ КАТ")
   $x =  $_return1
   $y =  $_return2
   IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0низ.bmp")
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
      LOGWRITE ("нашел=0")
   ELSE
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("нашел=1")
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")
            $check = 1
            LCLICK($_return1, $_return2)
            WAITMS(100)
            LOGWRITE ("нашел=2")
           
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "3.bmp")
               $check = 1
               LCLICK($_return1, $_return2)
               WAITMS(100)
               LOGWRITE ("нашел=3")
            END_IF
         END_IF
      END_IF
   END_IF   
END_CYC






//Если картинка найдена то ищем пиксели итд.
Find_pix(494, 959, 503, 963, 213)  //  Есть

$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (246,812, 468,844, "ПРИНЯТЬ ЗАКАЗ.bmp", -1, 100)
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC



$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
      WAIT(7)
      LCLICK(580,911)  // 1250067
      WAIT(1)
      LCLICK(574,907)  // 1250067
     
     
   ELSE
      WAITMS(50)
   END_IF
END_CYC
WAIT(6)

35

Общие вопросы / Re: нужна помощь со скриптом

« on: August 20, 2020, 01:34:22 AM »

Вопрос времени мне тоже изначально было тяжело йо-йо и все не охотно помогали но помогали.... А сейчас у меня произошло изменение в программе правил скрипт за 10 минут самостоятельно вопрос времени)

36

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: July 24, 2020, 02:53:13 AM »

кароче  раз оно  так  плохо  идет  то  легче  запустить  два  кликера   раз не могу  понять ....... и все  будет  работать

37

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: July 23, 2020, 10:47:00 PM »

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

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)   //  саб   делает  2  функции строка 130
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub

//Ждем картинку  ===========================================================
$all = 0
IF($all = 0 )
   
   
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN (112,211, 553,1037, "кат.bmp")   // картинка  в первом  квадрате   зеленая
         LOGWRITE ("ЕСТЬ КАТ")
         //============================ОБЯЗАТЕЛЬНО ЧИТАТЬ НИЖЕ========================
         // а  вот  тут  надо  както сказать кликеру  чтобы  он  если нету  первой  зеленой картинки в  первом квадрате  чтобы искал во втором  квадрате   так  сказать какоето проверочное  условие ......
         
         
         $x =  $_return1
         $y =  $_return2
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")  // синяя
            $check = 1
            LCLICK($_return1, $_return2)
            WAITMS(100)
            LOGWRITE ("нашел=0")
         ELSE
            LOGWRITE ("нету КМ")
           
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")  // синяя
               $check = 1
               LCLICK($_return1, $_return2)
               WAITMS(100)
               LOGWRITE ("нашел=1")
            ELSE
               LOGWRITE ("нету КМ")
               IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")   // синяя
                  $check = 1
                  LCLICK($_return1, $_return2)
                  WAITMS(100)
                  LOGWRITE ("нашел=2")
               ELSE
                  LOGWRITE ("нету КМ")
                  IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "3.bmp")// синяя
                     $check = 1
                     LCLICK($_return1, $_return2)
                     WAITMS(100)
                     LOGWRITE ("нашел=3")
                  ELSE
                     LOGWRITE ("нету  ищю снова ")
                     $all = 0
                     
                     
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
   END_CYC
END_IF
//======================тут вроди как  поиск  второго квадрата  все так
//Ждем картинку  ===========================================================
$all = 0
IF($all = 0 )
   
   
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN (111,411, 555,605, "кат.bmp")   // картинка  в первом  квадрате   зеленая
         LOGWRITE ("ЕСТЬ КАТ")
         //============================ОБЯЗАТЕЛЬНО ЧИТАТЬ НИЖЕ========================
         // а  вот  тут  надо  както сказать кликеру  чтобы  он  если нету  первой  зеленой картинки в  первом квадрате  чтобы искал во втором  квадрате   так  сказать какоето проверочное  условие ......
         
         
         $x =  $_return1
         $y =  $_return2
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")  // синяя
            $check = 1
            LCLICK($_return1, $_return2)
            WAITMS(100)
            LOGWRITE ("нашел=0")
         ELSE
            LOGWRITE ("нету КМ")
           
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")  // синяя
               $check = 1
               LCLICK($_return1, $_return2)
               WAITMS(100)
               LOGWRITE ("нашел=1")
            ELSE
               LOGWRITE ("нету КМ")
               IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")   // синяя
                  $check = 1
                  LCLICK($_return1, $_return2)
                  WAITMS(100)
                  LOGWRITE ("нашел=2")
               ELSE
                  LOGWRITE ("нету КМ")
                  IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "3.bmp")// синяя
                     $check = 1
                     LCLICK($_return1, $_return2)
                     WAITMS(100)
                     LOGWRITE ("нашел=3")
                  ELSE
                     LOGWRITE ("нету  ищю снова ")
                     $all = 0
                     
                     
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
   END_CYC
END_IF

//Если картинка найдена то ищем пиксели итд.
Find_pix(496, 945, 498, 950, 213)  //  Есть
Find_pix(369, 819, 433, 835, 4342338) // Жду


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC шах и  мат......... как  тебе  такое ??  как   теперь  твой  саб  с моим склеить?  или  можна  мой както  подправить ?

38

Биржа труда / Re: нужен скрипт

« on: July 23, 2020, 04:04:56 PM »

сдаешься?

39

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: July 23, 2020, 05:46:51 AM »

Народ кто шарит может кинуть правильно смысл

(strpos($Масив в котором ищем, "Фраза1", "Фраза2"))

Выдает ошибку, что не так ?

Мне нужно чтобы он любую из двух фраз искал, а не обе сразу

Clickermann -> Справка -> Язык сценариев -> Строки и строковые файлы -> strpos
strpos вроде только одну подстроку ищет...

А если два условия поставить это будет бред ?

Допустим:

(strpos($Масив в котором ищем, "Фраза1"))
(strpos($Масив в котором ищем, "Фраза2"))

Code: (clickermann) [Select]

// Так ищем обе подстроки
IF(strpos($stroka, "Фраза1"))
   IF(strpos($stroka, "Фраза2"))
      LOGWRITE ("Обе подстроки найдены")
   END_IF
END_IF
// А так ищем любую из подстрок
$flag = 0
IF(strpos($stroka, "Фраза1"))
   $flag = 1
else
   IF(strpos($stroka, "Фраза2"))
      $flag = 1
   END_IF
END_IF

IF($flag)
   LOGWRITE ("Одна из подстрок, или обе присутствуют.")
END_IF

чтото вроди етого нудно в моем скрипте но непонимаю.....

40

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: July 23, 2020, 03:46:47 AM »

во  проснулся  ночью...... и   на  свежую голову  попробывал  свои  силы в  переменных... но чтото    пока  не  работает  не понимаю как  циклу сказать что я от него  хочу описание  в картинке https://drive.google.com/file/d/1ehIv7cCw0oKmuy_IdnhPLOwJc4mW3KfK/view?usp=sharing

Code: (clickermann) [Select]

$gc = 0          // основная  переменная всего  скрипта которая возвращяет цикл   если не нащлось $gc3 $gc5
While($gc ! 1)
   
   
   $gc2 = 0 //переменная 1 квадрата
   While($gc2 ! 1) //условие  если $gc2= 1 ищем @gc3
     
     
     
      // ================================1111111================
     
      LOGWRITE ("начало GC2")
     
      GETSCREEN
      IF_PICTURE_IN (112,208, 557,408, "кат.bmp")   // первый красный  квадрат
         $x =  $_return1  //  переменная  кординаты квадрата
         $y =  $_return2
         WAITMS(100)
      ELSE
         $check = 1
      END_IF
     
     
      LOGWRITE ("вышли  и  погнали  дальше")
     
     
      $gc3 = 0 //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
      While($gc3 ! 1) //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
         
         
         GETSCREEN($x,$y)
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")    // используем  переменную с верху
            LOGWRITE ("0")
            LCLICK($_return1, $_return2)
            WAITMS(100)
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")     // // используем  переменную с верху
               LOGWRITE ("1")
               LCLICK($_return1, $_return2)
               WAITMS(100)
            ELSE
               IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")   // используем  переменную с верху
                 
                  LOGWRITE ("2")
                 
                  LCLICK($_return1, $_return2)
                  WAITMS(100)
                 
                 
                  WAITMS(50)
                 
               ELSE //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                  $check = 1 //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                 
               END_IF
            END_IF       //==================== Не  нашло   переходим  к  поиску во втором  квадрате       как ето реализовать?
         END_IF
      END_CYC
   END_CYC
                    LOGWRITE ("начало GC3")
   
   //===========================================2222222222222222==============================
   $gc3 = 0 //переменная 2 квадрата
   While($gc3 ! 1) //условие  если $gc3= 1 ищем @gc4
     
      GETSCREEN
      IF_PICTURE_IN (111,407, 552,629, "кат.bmp")  //  второй  красный  квадрат
         $x =  $_return1
         $y =  $_return2              //  переменная  кординаты квадрата
         
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   
   $gc4 = 0 //переменная  синего  квадратика  если есть  нажал погнали дальше
   While($gc4 ! 1) //условие  если $gc2= 1 ищем @gc3
     
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")    //  ищем  если есть  клик если нету
         
         LOGWRITE ("0")
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")     //  ищем  если есть  клик если нету
           
            LOGWRITE ("1")
            LCLICK($_return1, $_return2)
            WAITMS(100)
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")    //  ищем  если есть  клик если нету               переходим к 21 строке  и  в ето все  в  цикл
               
               
               LOGWRITE ("2")
               
               LCLICK($_return1, $_return2)
               WAITMS(100)
               
            ELSE //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
               $check = 1 //@@@@@@@@@@@@
            END_IF
         END_IF
      END_IF
   END_CYC
END_CYC


41

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: July 22, 2020, 09:13:23 PM »

ребята  может ето все както в цикл?

Циклы в цикл? А потом и этот цик в принципе можно в цикл закатать.

да   дядя  имено  вот  набросил визуально задание  так  мне   легче   понять  и  другим  обьяснить  вот  пока  что сложил но  оно  не  работает ........
картинкаhttps://drive.google.com/file/d/1ehIv7cCw0oKmuy_IdnhPLOwJc4mW3KfK/view?usp=sharing



.

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub



$gc = 0         // произвольная переменная  только  не  могу  ее пременить правельно
While($gc ! 1)
   
   // ================================1111111================
   
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN (112,208, 557,408, "кат.bmp")   // первый красный  квадрат
         $x =  $_return1  //  переменная  кординаты квадрата
         $y =  $_return2
         $check = 1
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_IF
   
   
   
   
   $check = 0
   WHILE($check = 0)
     
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")    // используем  переменную с верху
         $check = 1
         LOGWRITE ("0")
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")     // // используем  переменную с верху
            $check = 1
            LOGWRITE ("1")
            LCLICK($_return1, $_return2)
            WAITMS(100)
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")   // используем  переменную с верху
               $check = 1
               
               LOGWRITE ("2")
               
               LCLICK($_return1, $_return2)
               WAITMS(100)
               
               
               WAITMS(50)
            END_IF
         END_IF       //==================== Не  нашло   переходим  к  поиску во втором  квадрате       как ето реализовать?
      END_IF
   END_CYC
   
   //===========================================2222222222222222==============================
   
                           
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PICTURE_IN (111,407, 552,629, "кат.bmp")  //  второй  красный  квадрат
         $x =  $_return1               
         $y =  $_return2              //  переменная  кординаты квадрата
         $check = 1
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
   
   $check = 0
   WHILE($check = 0)
     
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")    //  ищем  если есть  клик если нету
         $check = 1
         LOGWRITE ("0")
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")     //  ищем  если есть  клик если нету
            $check = 1
            LOGWRITE ("1")
            LCLICK($_return1, $_return2)
            WAITMS(100)
         ELSE
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")    //  ищем  если есть  клик если нету               переходим к 21 строке  и  в ето все  в  цикл
               $check = 1
               
               LOGWRITE ("2")
               
               LCLICK($_return1, $_return2)
               WAITMS(100)
               
               
               WAITMS(50)
            END_IF
         END_IF
      END_IF
   END_CYC
END_CYC
HALT

//Если картинка найдена то ищем пиксели итд.
Find_pix(496, 945, 498, 950, 213)  //  Есть
Find_pix(369, 819, 433, 835, 4342338) // Жду


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC

42

Общие вопросы / Re: подпрогама

« on: July 22, 2020, 03:58:15 PM »

аа ты что думал  тут на  форуме 10  активных человек  сидят....... и мы  простые неучи  их раздражаем ........

43

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: July 22, 2020, 01:52:15 PM »

 ребята  может ето все както в цикл?

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub



$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (112,211, 552,406, "кат.bmp")   //  ищем  если есть   ищем 42 строку
      $check = 1
      $x =  $_return1
      $y =  $_return2
      WAITMS(100)
   ELSE
      IF_PICTURE_IN (112,211, 552,406, "кат.bmp")  //  ищем  если есть   ищем 42 строку
         $check = 1
         $x =  $_return1
         $y =  $_return2
         WAITMS(100)
      ELSE
         WAITMS(50)
      END_IF
   END_IF
END_CYC





IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "0.bmp")    //  ищем  если есть  клик если нету 
   
   LOGWRITE ("0")
   LCLICK($_return1, $_return2)
   WAITMS(100)
ELSE
   IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "1.bmp")     //  ищем  если есть  клик если нету
     
      LOGWRITE ("1")
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "2.bmp")    //  ищем  если есть  клик если нету               переходим к 18 строке  и  в ето все  в  цикл
         
         LOGWRITE ("2")
         
         LCLICK($_return1, $_return2)
         WAITMS(100)
         
         
         WAITMS(50)
      END_IF
   END_IF
END_IF




//Если картинка найдена то ищем пиксели итд.
Find_pix(496, 945, 498, 950, 213)  //  Есть
Find_pix(369, 819, 433, 835, 4342338) // Жду


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC   не научился  понимать как добавлять циклы ))))

44

Общие вопросы / Re: Вопрос В помощи освоения условий Else, WHILE,

« on: July 21, 2020, 10:42:18 AM »

ребят  опять  мудрую как   быть ...... вот   что у меня  щяс  получается  вроди работает но  строка 20
ето первый поиск если  находит  нужно чтобы  искал 23   и 25  по  очереди ...... а  мне кажится  он  зависает  при  таком  написании   может чтото подправить ?

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub

//Ждем картинку  ===========================================================
$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (112,211, 553,1037, "кат.bmp") //  ее ищем  сразу   если  она  есть  ищем  ниже 23  25 строки
     $x =  $_return1
      $y =  $_return2
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "11.bmp")  //  если нету  ищем  ниже
      ELSE
         IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "33.bmp")
           
            $check = 1
            LCLICK($_return1, $_return2)
            WAITMS(100)
         END_IF
      END_IF
   END_IF
END_CYC



//Если картинка найдена то ищем пиксели итд.
Find_pix(496, 945, 498, 950, 213)  //  Есть
Find_pix(369, 819, 433, 835, 4342338) // Жду


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC
он вообще  Зависает  и   комп  виснет  чтото   не  то  делаю......

 но  вот  ето исполнение   скрипта   не  тормозит комп  вродибы что  скажите

Code: (clickermann) [Select]

SUB(Find_pix, $x, $y, $x1, $y1, $color)
   $check = 0
   WHILE($check = 0)
      GETSCREEN
      IF_PIXEL_IN($x, $y, $x1, $y1, $color)
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
         LOGWRITE ("pix fined")
      ELSE
         WAITMS(50)
      END_IF
   END_CYC
end_sub

//Ждем картинку  ===========================================================
$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (112,211, 553,1037, "кат.bmp")
      $x =  $_return1
      $y =  $_return2
      IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "11.bmp")
         $check = 1
         LCLICK($_return1, $_return2)
         WAITMS(100)
      ELSE
         IF_PICTURE_IN (112,211, 553,1037, "кат.bmp")
            $x =  $_return1
            $y =  $_return2
            IF_PICTURE_IN ($x-116,$y-51, $y+268,$y+690, "33.bmp")
               $check = 1
               LCLICK($_return1, $_return2)
               WAITMS(100)
            END_IF
         END_IF
      END_IF
   END_IF
END_CYC



//Если картинка найдена то ищем пиксели итд.
Find_pix(496, 945, 498, 950, 213)  //  Есть
Find_pix(369, 819, 433, 835, 4342338) // Жду


$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (233,65, 407,1034, "Есть.bmp", -1, 100) // ето последнее действие после  САБА
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC и  если  такая  картинка   то  ничего не  произходит  хотя  должно  кликнуть  по  нижней    голова  не  понимает как    подкооректировать

45

Общие вопросы / Re: Нужна помощь

« on: July 20, 2020, 04:42:02 PM »

тебе что то вроде  етого надо если правильно расшифровал твои  каракули)))) когда  пишешь  перечитай что написал.

Code: (clickermann) [Select]

$check = 0
WHILE($check = 0)
   GETSCREEN
  IF_PIXEL_IN(0,0, $_xmax,$_ymax, 255)// красный
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
    IF_PIXEL_IN(0,0, $_xmax,$_ymax, 255)// синий
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
    IF_PIXEL_IN(0,0, $_xmax,$_ymax, 255)// желтый
      $check = 1
      LCLICK($_return1, $_return2)
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
END_CYC