Messages

31

Общие вопросы / Re: не работают - значит так задумано!

« on: June 13, 2022, 08:50:11 PM »

Здравствуйте, не могу понять в чем дело. Не работают клавиши клавиатуры с привязкой к окну. Без привязки - клавиши работают

Здравствуйте, mijoper - Вы зажаты.
 Дело в том что в привязке зажатия не работают.
 Это ФИЧА!

32

Общие вопросы / Re: Кликер EXE'шник.

« on: June 12, 2022, 08:04:06 AM »

Я точно не знаю нo вроде на  Kibor есть такая функция.

Умно, особенно если код написан на Clickermann

33

Общие вопросы / Re: Ожидание цвета на 4 маслах

« on: June 11, 2022, 11:42:07 AM »

Code: (clickermann) [Select]

GETSCREEN
IF((PXL(100,200)=255)&(PXL(100,300)=255)&(PXL(100,400)=255)&(PXL(100,500)=255))
   LOGWRITE ("мой сценари ;)")
END_IF
WAITMS(500)


34

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

« on: June 11, 2022, 11:36:34 AM »

Всем привет,  помогите...

Code: (clickermann) [Select]

GETSCREEN
IF(PXL(100,200) = 255)
   IF(PXL(100,300) = 255)
      IF(PXL(100,400) = 255)
         IF(PXL(100,500) = 255)
            LOGWRITE ("мой сценари ;)")             
         END_IF
      END_IF
   END_IF
END_IF
WAITMS(500)


35

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

« on: June 11, 2022, 11:32:31 AM »

Всем привет,  помогите с написанием скрипта. Условие такое что кликермен проверяет 4 координаты на наличие красного цвета и когда заданный цвет появляется на всех 4 точках то начинается мой сценари. А когда заданный цвет появляется на 2 или 3 точках то ничего происходить не должно.

Вам-же уже писали такой сценарий, что бегаете, тудэма-сюдема с этой писаной торбой?

36

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

« on: June 04, 2022, 04:47:11 PM »

Готовы код меня устроил, просто я хочу применить этот таймер к другим скриптам.

В вашем коде нет таймера, это цикл ожидания, пока указанный пиксель не станет заданного цвета.

37

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

« on: June 04, 2022, 04:24:29 PM »

Естественно, что такой специфической функции нет. Нежно  скриптом засекать время при нахождении и ждать по таймеру исчезнет за отведённое время или нет.

Простите меня за мою назойливость, но можете написать как это будет выгледеть здесь.

GETSCREEN
WHILE(PXL (100, 100) ! 255)
   WAITMS (100)
   GETSCREEN
END_CYC

Нет это Вы меня простите, не понимаю, какое отношение ваш пример может иметь к вашей теме и чем не устроил готовый код?

38

Использование / Re: Детектировать разнонаправленные треугольники

« on: June 04, 2022, 04:22:06 PM »

А можно попросить кусок кода ?

Code: (clickermann) [Select]


SUB(тип.танка) // --- опред. тип цели на поле  --------------
   // === переменные для выбора  направления  к цели
   $cel_x=$_return1
   $cel_y=$_return2+$korr_markera
   $strelka_x = $_return1 //
   $strelka_y =  $_return2
   $opr_tip = PXLCOUNT ($_return1-7,$_return2-2, $_return1+7,$_return2+19,2039775)
   LOGWRITE($cwic_tip,"  ","тип-",$opr_tip,"  ", $cel_x,"-",$cel_y,)
   $tip_cel1 =  $opr_tip
  IF ($opr_tip >28)    //  было 28  при нормальном увеличении 
   HINTPOPUP ($cwic_tip,"тип-",$opr_tip)
   LOGWRITE("есть цель-",$cwic_tip,"  ", $cel_x,"-",$cel_y," тип",$opr_tip)
   goto(skip_cel)
ELSE
   SWITCH($cwic_tip)
      CASE(1)
         goto(skip_poisk_celi_1)
      case(2)
         goto(skip_poisk_celi_2)
      DEFAULT
         goto(skip_poisk_celi_3)
   END_SWITCH
END_IF

END_SUB

skip111:
GETSCREEN
WAITMS(30)
COLORMODE(5)    // 350,248,1070,600
WAITMS(30)
$cel_y = 400
skip_poisk_celi_1:
$cwic_tip = 1
IF_PIXEL_IN ( 680,$cel_y+5,760,485, 2039775)
   тип.танка()
END_IF  // ===== 1 поиск в центре завершён===
$cel_y = 340
skip_poisk_celi_2:
$cwic_tip = 2
IF_PIXEL_IN (620,$cel_y+5,820,545, 2039775)
   тип.танка()
END_IF   // ===== второй поиск в центре завершён===
$cel_y = 248
skip_poisk_celi_3:
$cwic_tip = 3
IF_PIXEL_IN (350,$cel_y+5,1070,600, 2039775)
   тип.танка()
ELSE
   goto(skip_2_poisk_celi)
END_IF // ===== 3 поиск в центре завершён===
// ===  поиск цели завершён  ====
Вот небольшой кусок. Насколько помню, бот проверял последовательно три сектора, чтоб выбивать сначала ближайших к себе и подсчитав число пикселей определял тип найденной цели, танк, ПТ ,арта или групповая цель если в область подсчёта попадало несколько врагов стоящих очень близко.

39

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

« on: June 04, 2022, 03:21:12 PM »

Спасибо за ответ.  Возникла проблема с тем что некоторые пиксели в указаных координатах просто мигают (появляются и исчезают) в этом случае выполнениее сценария бесмыслено. А нужно учитывать те которые появились и не исчезли ну или хотябы продержались некоторое время 10-15с. Есть ли такая функция?

Code: (clickermann) [Select]

#name "просто мигають"

$var=10 // указать некоторое время в секундах

GETSCREEN
WAITMS(500)

THREAD(name1, 1)
   IF($var1=0)
      IF(PXL(1185,580)=13297609)  // ждем зеленый
         WAIT($var)
         IF(PXL(1185,580)=13297609)
            LOGWRITE ("зеленый 1")
            $var1=1
            // Мой сценарий
         END_IF
      END_IF
   ELSE
      IF(PXL(1185,580)=1700990) // ждем красный
         WAIT($var)
         IF(PXL(1185,580)=1700990) // ждем красный
            LOGWRITE ("красный 1")
            $var1=0
            // Мой сценарий
         END_IF
      END_IF
   END_IF
   WAITMS(100)
END_THREAD

THREAD(name2, 1)
   IF($var2=0)
      IF(PXL(100,100)=13297609)  // ждем зеленый  вместо 100,100 вписать координаты проверяемых пикселей!
         WAIT($var)
         IF(PXL(100,100)=13297609)  // ждем зеленый
            LOGWRITE ("зеленый 2")
            $var2=1
            // Мой сценарий
         END_IF
      END_IF
   ELSE
      IF(PXL(100,100)=1700990) // ждем красный
         WAIT($var)
         IF(PXL(100,100)=1700990) // ждем красный
            LOGWRITE ("красный 2")
            $var2=0
            // Мой сценарий
         END_IF
      END_IF
   END_IF
   WAITMS(100)
END_THREAD

THREAD(name3, 1)
   IF($var3=0)
      IF(PXL(100,100)=13297609)  // ждем зеленый
         WAIT($var)
         IF(PXL(100,100)=13297609)  // ждем зеленый
            LOGWRITE ("зеленый 3")
            $var3=1
            // Мой сценарий
         END_IF
      END_IF
   ELSE
      IF(PXL(100,100)=1700990) // ждем красный
         WAIT($var)
         IF(PXL(100,100)=1700990) // ждем красный
            LOGWRITE ("красный 3")
            $var3=0
            // Мой сценарий
         END_IF
      END_IF
   END_IF
   WAITMS(100)
END_THREAD

THREAD(name4, 1)
   IF($var4=0)
      IF(PXL(100,100)=13297609)  // ждем зеленый
         WAIT($var)
         IF(PXL(100,100)=13297609)  // ждем зеленый
            LOGWRITE ("зеленый 4")
            $var4=1
            // Мой сценарий
         END_IF
      END_IF
   ELSE
      IF(PXL(100,100)=1700990) // ждем красный
         WAIT($var)
         IF(PXL(100,100)=1700990) // ждем красный
            LOGWRITE ("красный 4")
            $var4=0
            // Мой сценарий
         END_IF
      END_IF
   END_IF
   WAITMS(100)
END_THREAD


40

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

« on: June 04, 2022, 03:03:51 PM »

Естественно, что такой специфической функции нет. Нежно  скриптом засекать время при нахождении и ждать по таймеру исчезнет за отведённое время или нет.

41

Использование / Re: Детектировать разнонаправленные треугольники

« on: June 04, 2022, 01:53:33 PM »

Сначала ищется красный пиксель, потом подсчитывается число красных пикселей в ограниченной области от найденного и если соответствует требованиям, то координаты запоминаются в массив, делается отступ на заданное число пикселей и сканирование миникарты продолжается. В игре WoT, мой бот так успешно и быстро  находил цели для арты.

42

Общие вопросы / Re: не работает WHILE

« on: June 01, 2022, 12:09:17 PM »

Code: (clickermann) [Select]

$check = 0
WHILE($check = 0) //
   IF(($r = 1) or ($r = 2))
      GETSCREEN(460,69,461,70 )
      IF(PXL(460,69) = 1043800)// зеленный круг
         LOGWRITE("выходим из цикла")
         WAITMS(RND(1230,2660))
         $check = 1 // если найдено выходим из цикла
      ELSE // если не найдено
         WAITMS(RND(260,490))
         GETSCREEN(18,471,19,472)
         IF(PXL(18,471) = 14540253)//галка
            LOGWRITE("галка")
            IF($r = 1)
               LCLICK (RND(252,306),RND(352,361)) //выбрал  место 1
               LOGWRITE("выбрал  место 1")
               WAITMS(RND(1230,2660))
            ELSE // если не найдено
               IF($r = 2)
                  LCLICK (RND(215,227),RND(233,245)) //выбрал  место 2
                  LOGWRITE("выбрал  место 2")
                  WAITMS(RND(1230,2660))
               ELSE // если не найдено
                  LOGWRITE("не найдено")
                  WAITMS(RND(460,590))
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_CYC


43

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

« on: May 30, 2022, 11:54:20 AM »

На удивление вставил первоначальный скрипт и всё заработало:)

Статья 69. ВРЕДИТЕЛЬСТВО
Вредительство — активно, и в то же время тайно, проводимые действия для нанесения вреда. Либо умышленное неисполнение обязанностей, приводящее к нанесению вреда — саботаж.

В своей исторической речи на совещании хозяйственников 23 июня 1931 года Иосиф Сталин предупреждал:

«...Вредители есть и будут, пока есть у нас классы, пока имеется капиталистическое окружение»

Сталин, Вопросы ленинизма, 10-е изд., стр. 461

44

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

« on: May 30, 2022, 08:27:26 AM »

но если слово до звездочки уже есть в файле, то выплывает окно
Ошибка при интерпритации строки INT($count)

почему до звёздочки?
$count = STRCUT($str, STRPOS($str, "*") + 1, 10)
 в данном случае в переменную копируются 10 символов строки после звёздочки!
 Вам на месте конечно виднее, но я бы  перед копированием проверял длину строки, чтоб не давать команду на копирование того чего нет.
 и после этой строки на время отладки добавил вывод переменной $count в лог, чтоб сразу стало понятно на что ругается следующая строка.
Вы уже года три эту Кефирную тему разрабатываете - Достойно уважения на фоне массы за полчаса "сломавших Всю голову" и "Всё уже перепробовал" (кроме заглянуть в справку или меню команд  )

45

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

« on: May 28, 2022, 06:46:28 AM »

Сдается  у нас очередная рулетка
Вижу у автора с языком плоховато, поэтому от просившихся сюда подпрограмм пришол к более простому варианту Помоши.

Code: (clickermann) [Select]

#name "скрипт - Ждун"
//вместо 100,100 вписать координаты проверяемых пикселей!
GETSCREEN
IF($var1=0)
   IF(PXL(1185,580)=13297609)  // ждем зеленый
      LOGWRITE ("зеленый 1")     
      $var1=1
      // Мой сценарий
   END_IF
ELSE
   IF(PXL(1185,580)=1700990) // ждем красный
      LOGWRITE ("красный 1")
      $var1=0
      // Мой сценарий
   END_IF
END_IF

IF($var2=0)
   IF(PXL(100,100)=13297609)  // ждем зеленый
      LOGWRITE ("зеленый 2")     
      $var2=1
      // Мой сценарий
   END_IF
ELSE
   IF(PXL(100,100)=1700990) // ждем красный
      LOGWRITE ("красный 2")
      $var2=0
      // Мой сценарий
   END_IF
END_IF

IF($var3=0)
   IF(PXL(100,100)=13297609)  // ждем зеленый
      LOGWRITE ("зеленый 3")     
      $var3=1
      // Мой сценарий
   END_IF
ELSE
   IF(PXL(100,100)=1700990) // ждем красный
      LOGWRITE ("красный 3")
      $var3=0
      // Мой сценарий
   END_IF
END_IF

IF($var4=0)
   IF(PXL(100,100)=13297609)  // ждем зеленый
      LOGWRITE ("зеленый 4")     
      $var4=1
      // Мой сценарий
   END_IF
ELSE
   IF(PXL(100,100)=1700990) // ждем красный
      LOGWRITE ("красный 4")
      $var4=0
      // Мой сценарий
   END_IF
END_IF
WAITMS(100)