Messages

61

Общие вопросы / Re: Как исключить уже успешно выполненные условия (если, то, кроме)

« on: April 21, 2020, 11:41:44 PM »

 как  минимум   скопируй  суда   скрипт  и второе  Else  атм  не надо  если  есть End_if

62

Общие вопросы / Re: Последовательность

« on: April 02, 2020, 08:57:45 PM »

Очень не понятный вопрос, покажи что у тебя уже есть.

https://www.youtube.com/watch?v=vaFmretTrpM

ахахахха  епать колотить ))) красавчик )) )

63

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

« on: March 29, 2020, 05:02:18 PM »

ну   ребят  кто  шарит подскажите .....

64

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

« on: March 27, 2020, 05:23:09 PM »

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

Если в "этих же" то и указываю эти же координаты, в чём проблема?

https://drive.google.com/file/d/1SWCOZxjbv1x4AawxYA4OWKQrFLlfjdMw/view?usp=sharing

Записсал видеообращение  Лично вам)))

65

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

« on: March 26, 2020, 01:21:26 PM »

так  а  как  задать  координаты  правельно???
когда  ищем  несколько  картинок  и    надо задать  координаты  найденой  первой  картинки   в  поиск  второй
 тоесть нашли первую картинку  ок. и    ищем  в  етихже  координатах сразу вторую.
 чтото не могу подобрать ничего из  списка СИСТЕМНЫЕ ПЕРЕМЕННЫЕ......
нашел в соседней  теме   чтото похожее...... чюствую что   ето  похоже что мне надо но тут  писали   отцы форума.... .и   мне  такое  не  понять  пытался  разобрать  через  справку  справка  закрылась.....  от  испуга
http://crapware.aidf.org/forum/index.php?topic=4442.msg30333#msg30333   ссылка на  соседнюю тему .........

Code: (clickermann) [Select]

GETSCREEN
COLORMODE(5)
SCANPXL($array_scan, 0,0, $_xmax,$_ymax, 8339295)
$size = ARRSIZE($array_scan)
FOR($i = 0, $i < $size, 2)
   FOR($k = $i + 2, $k < $size, 2)
      $y =     $array_scan[$k+1] - $array_scan[$i+1]
      $x = ABS($array_scan[$k]   - $array_scan[$i])
      IF( ($y > - 1 & $y < 5) & ($x > 10 & $x < 50) )
         MOVE(ROUND( ($array_scan[$i] + $array_scan[$k]) / 2, 0), ROUND( ($array_scan[$i+1] + $array_scan[$k+1]) / 2, 0))
         $size = 0
      END_IF
   END_CYC
END_CYC
 
UNDEFINE($array_scan)
 
HALT

66

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

« on: March 26, 2020, 12:50:12 PM »

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

Code: (clickermann) [Select]

$check = 0
WHILE($check = 0)
   GETSCREEN(120,518, 502,998)
COLORMODE(6)
   
   IF_PICTURE_IN (120,518, 502,998, "с6.bmp", -1, 100)
LOGWRITE ("нашел старокоз")
   
      IF_PICTURE_IN ($_return1+50, $_return2+50, "2.bmp", -1, 100) // вот  конкретно тут  интересует ........
LOGWRITE ("нашел по  кординатам  цифру 22222")
     
         $check = 1
         LCLICK($_return1, $_return2)
LOGWRITE ("получилось!!!!")
         
         WAITMS(100)
      ELSE
LOGWRITE ("борода..........")
     
         WAITMS(50)
      END_IF
        END_IF
   END_CYC
   
   HALT

67

Биржа труда / Re: готов заплатить за простой скрипт !

« on: March 22, 2020, 06:34:03 PM »

опиши   минимально задание

68

Общие вопросы / задать кординаты поиска картинки с условием

« on: March 20, 2020, 05:11:27 PM »

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

Code: (clickermann) [Select]

$check = 0
WHILE($check = 0)
   GETSCREEN
   IF_PICTURE_IN (111,189, 549,998, "С9.bmp", -1, 100) // тут надо  както надо указать нижнюю картинку 2 при нахождении етой картинки     тут  кординаты красногообведения
      $check = 1
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "Б", -1, 100)// тут 2 картинка  и  как изменить кординаты поиска не знаю  может  не правельно думаю.... тут  надо подсказка ваша
      IF_PICTURE_IN (0,0, $_xmax,$_ymax, "3.", -1, 100) //3 картинка при которой  только  возможно  нажатие  Lclick. и  тут надо както кординаты подменять так как   етих  значений  может быть несколько
     
      WAITMS(100)
   ELSE
      WAITMS(50)
   END_IF
   END_IF
   END_IF
END_CYC


69

Общие вопросы / Re: Как делать скриншоты безпрерывно чтобы словить нужный момент?

« on: March 20, 2020, 04:10:30 PM »

 у  меня  так  несколько  раз делал
15:07:46 18 раз за 1003 мс
15:08:01 26 раз за 1017 мс
15:08:04 27 раз за 1000 мс
15:08:07 3 раз за 1446 мс
15:08:10 26 раз за 1000 мс
15:08:16 24 раз за 1027 мс
15:08:24 22 раз за 1027 мс
15:08:59 28 раз за 1037 мс
15:09:04 23 раз за 1020 мс
15:09:06 18 раз за 1016 мс

СКРИНИЛ ВЕСЬ МОНИТОР   

70

Общие вопросы / Как делать скриншоты безпрерывно чтобы словить нужный момент?

« on: March 20, 2020, 10:42:53 AM »

Нужно делать  5-8 скриншотов  в  секунду   ето реально ?

71

Общие вопросы / Re: Распознование одинковых элементов в картинке

« on: March 17, 2020, 08:34:17 PM »

 ну  а если сделать как в  шахматах дать имя каждому  квадратику  и  анализировать..... тоесть  есть "строка 5" 4  подряд  зеленых
а строка  4  столбец 3   также  есть   зеленый .  и  скрипту  нужно  передвинуть или нажать  чтобы  совместить   с  одной  строки  на  другую .....
PS
 поправте  сели  бред   мысль  такая )))  но я я талантлив )

72

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

« on: March 15, 2020, 12:04:12 PM »

Примерно вот такое надо соорудить.

Я тебе сооружать ничего не стану. Хочешь - пиши людям на "биржу" и заказывай скрипт для себя. Я лиш объясню построение логики в скрипте. А как ты этим воспользуешься и как выстроишь логику под свои нужды - это уже твое дело.

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

73

Общие вопросы / Re: Скрипт для рыбалки

« on: March 15, 2020, 09:13:13 AM »

все   нормально  ну   я   некоторые  вещи досихпор не  понимаю)) например  SUB   какую  роль  он  тут  играет ))) так  что  тут пол  форума таких))))

74

Общие вопросы / Re: Скрипт для рыбалки

« on: March 15, 2020, 01:17:30 AM »

спасибо  твои труды  были  не напрасны   у  меня  получилось ! ! !

75

Общие вопросы / Re: Скрипт для рыбалки

« on: March 14, 2020, 10:55:42 AM »

И так   в   проблемы  на  том  же  месте скрип доходит  до  средина  бегунка...и   тянет  не отпуская     в 14  строке   левый  кончик  может   правй??   
дето вы  меня   напутали.....
HITO будь  ты  человеком   доведи меня  до конца  ну    не  понимаю  хоть убей.... не    тянит  рыбу  и ппц

Code: (clickermann) [Select]

SUB(клик, $x, $y) // подпрограмма
   MOVE($x, $y)
   WAITMS(100)
   LCLICK($x, $y)
   WAITMS(100)
   MOVE($_xmax,$_ymax)
   WAITMS(100)
END_SUB


GETSCREEN(541,164, 1249,708)
LOGWRITE ("гринскрин")

// Колормодим левый нижний кончик бегунка, который выскакивает при вытаскивании рыбы.
COLORMODE(5, 301,298, 304,302)
// Проверяем наличие основной кнопки
$count = PXLCRC (841,638, 982,638)
IF($count = 2530869496)
   LOGWRITE ("Нашел забросить")
   
   IF(($_xmouse ! 980)|($_ymouse ! 648))
      MOVE(980,648)
      LOGWRITE ("Мыщь на месте")
     
   else
      // Забросить
      $count = PXLCRC (880,666, 928,666)
      IF($count = 2759833793)
         LOGWRITE ("Забросить  есть")
         
         IF($zabros_time < $_ms)
            // Забрасываем удочку
            LCLICK(980,648)
            $zabros_time = $_ms+1000
         END_IF
      else
         // Тянуть
         IF($count = 1383316320)
            LOGWRITE ("ТЯНУТЬ нашол")
           
            // Середина бегунка
            $count = PXLCRC (905,400, 921,400)
            IF($count = 2530178584)
               LOGWRITE ("середина  бегунка ")
               
               IF($tyanem_on < $_ms)
                  LDOWN(980,648)
               END_IF
            else
               // Красный и оранжевый пиксель бегунка вытягивания рыбы (которые мы колормодили в начале скрипта)   ВОТ ТУТ И  ЗАСТРЯЛ  ШО  ЗА ПИКСЕЛИ  НЕПОЕИМАЮ
               IF_PIXEL_IN(301,298, 304,302, 2047999,2056191) //    Я  ТАК ПОНЯЛ  ДВА ПИКСЕЛЯ ПОДРЯД  ИЩЕМ  НЕДОГОНЯЮ  КАК ИХ ПОЛУЧИТЬ  ДА И  ЕЩЕ С  КОЛОРМОДОМ
                  LUP($_xmouse,$_ymouse)
                  $tyanem_on = $_ms+200
               else                     
                  LDOWN(980,648)                      //
               END_IF
            END_IF
         else
            LUP($_xmouse,$_ymouse)
         END_IF
      END_IF
   END_IF
else
   // Закрываем все лишние выскочившие окна
   // Улов1
   $count = PXLCRC (653,114, 673,134)
   IF($count = 2117573021)
      IF($ulov1_time < $_ms)
         клик(663, 124)
         $ulov1_time = $_ms+1000
      END_IF
   else
      // Улов2
      IF($count = 1205236069)
         IF($ulov2_time < $_ms)
            клик(663, 124)
            $ulov2_time = $_ms+1000
         END_IF
      else
         // Задание завершено
         $count = PXLCRC (322,450, 345,463)
         IF($count = 348085353)
            IF($zadanie_time < $_ms)
               клик(332, 454)
               $zadanie_time = $_ms+1000
            END_IF
         else
            // Рыба сорвалась
            $count = PXLCRC (393,417, 408,426)
            IF($count = 2638569478)
               IF($feyk_time < $_ms)
                  клик(401, 421)
                  $feyk_time = $_ms+1000
               END_IF
            else
               // Левл
               $count = PXLCRC (533,125, 550,140)
               IF($count = 3199739223)
                  IF($levl_time < $_ms)
                     клик(542, 132)
                     $levl_time = $_ms+1000
                  END_IF
               else
                 
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_IF



WAITMS(50)