Topics

1

Общие вопросы / Как определить направление?

« on: May 26, 2022, 01:14:24 AM »

Помогите определить угол, направления камеры.

2

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

« on: May 25, 2022, 10:57:26 PM »

Помогите оптимизировать, эти масивы все не как не поддаются...
Еще проблема иногда тупо не работает, не могу понять почему.
Образец в закрепе

Code: (clickermann) [Select]

$Start = 0
WHILE($Start = 0)  // Получаю начало координат х и у
   GETSCREEN (15,590, 145,615)
   COLORMODE(8, 15,590, 145,615)
   IF_PICTURE_IN (15,590, 145,615, "Коры\x.bmp")
      $Sx = $_return1+15
      $Sy = $_return2
      IF_PICTURE_IN (15,590, 145,615, "Коры\y.bmp")
         $Start = 1
         $Sx2 = $_return1+15
         $Sy2 = $_return2
         WAITMS(10)
      ELSE
         WAITMS(10)
         LOGWRITE ("нет координат")
      END_IF
   END_IF
END_CYC

// Сканирую цифры по х
UNDEFINE($arr)
$Stop = 0   
WHILE($Stop = 0)
   FOR($No = 0, $No <= 10)
      IF_PICTURE_IN ($Sx,$Sy, $Sx+7,$Sy+11, STRCONCAT("Коры\",$No,".bmp"))
         IF($No = 10)
            $Stop = 1
         ELSE
            ARRPUSH($arr, $No)
         END_IF
         $No = 777
      END_IF
   END_CYC
   INC($Sx,7)
END_CYC

$x = ""
FOR($a=0,$a<ARRSIZE($arr))
   $x = STRCONCAT($x,$arr[$a])
END_CYC

// Сканирую цифры по у
UNDEFINE($arr)
$Stop = 0
WHILE($Stop = 0)
   FOR($No = 0, $No <= 10)
      IF_PICTURE_IN ($Sx2,$Sy2, $Sx2+7,$Sy2+11, STRCONCAT("Коры\",$No,".bmp"))
         IF($No = 10)
            $Stop = 1
         ELSE
            ARRPUSH($arr, $No)
         END_IF
         $No = 777
      END_IF
   END_CYC
   INC($Sx2,7)
END_CYC

$y = ""
FOR($a=0,$a<ARRSIZE($arr))
   $y = STRCONCAT($y,$arr[$a])
END_CYC


LOGWRITE ($x," - ", $y)
halt


3

Общие вопросы / dll и кликер

« on: April 26, 2022, 11:52:57 AM »

Привет, нужна помощь, есть одна dll при ее инжекте в кликерман, защита игры перестает реагировать на него. Собственно вопрос можно как то прикрутить эту длл к кликеру, что  бы все время не инжектить или что бы кликер сам себя инжектил при запуске?

4

Общие вопросы / postmessage

« on: March 20, 2021, 03:55:08 PM »

Всем привет! Помогите пожалуйста. Как через postmessage, отправить команду для мышки? С клавишами разобрался, в низу пример кода что нужно сделать, клавиша отправляется а вот как команду миши отправить не знаю.

Code: (clickermann) [Select]

SUB(Клавиша, $par)
   postmessage($Okno, 0x0100, $par, 0) // нажать
   postmessage($Okno, 0x0101, $par, 0) // отпустить
END_SUB

$Okno = wndfind("Paint")
wndgetinfo($Okno, $o_x, $o_y, $r_g, $r_v)

$Clik_x = ROUND($r_g/2,0)
$Clik_y = ROUND($r_v/2,0)

Клавиша(#1)

// То что ниже, как отправить окну?
LDOWN($Clik_x, $Clik_y) // Зажать в центре окна
WAITMS(200)
LUP($Clik_x + 200, $Clik_y) // Переместить на 200 пикселей отпустить

HALT

5

Общие вопросы / Навигация

« on: February 12, 2021, 06:33:49 PM »

Привет всем, помогите создать навигаци по меню. Посоветуйте что использовать, подпрограмму или лучше масив, со вторым не очень лажу. Нужно что то компактное и с легким обращением, типа нажать зеленую кнопку 1,2,3,4 или желтую 1,2,3,4. Есть вариан с зарание прописанными вычислениями но выглядит очень грамозко.

Code: (clickermann) [Select]

SUB(Сумка)
   $Sumka = 0
   WHILE($Sumka = 0)
      GETSCREEN(130,10, 1700,600)
      COLORMODE(7, 130,10, 1700,600)
      IF_PICTURE_IN (130,10, 1700,600, "..\Нарезка\Сумка.bmp")
         $Sumka = 1
         $x =  $_return1
         $y =  $_return2
         LOGWRITE ("коры ", $x, " x ", $y)
         // = Сейф ==
         $KLD_x = $x - 90
         $KLD_y = $y + 30
         // = Востанов ==
         $VOS_x = $x - 10
         $VOS_y = $y + 30
         // = Разбор ===
         $RAZ_x = $x + 15
         $RAZ_y = $y + 30
         // = Удалить ===
         $UDL_x = $x + 35
         $UDL_y = $y + 30
         // = Экипиров ===
         $EKP_x = $x + 210
         $EKP_y = $y + 170
         // = Зелья ===
         $BUT_x = $x + 210
         $BUT_y = $y + 205
         // = Прочее ===
         $YWK_x = $x + 210
         $YWK_y = $y + 270
         // = Удал/Раз ===
         $COM_x = $x - 210
         $COM_y = $y + 460
      ELSE
         KEYPRESS(#a) // Открыть сумку
         WAITMS(300)
      END_IF
   END_CYC
   WAITMS(100)
END_SUB

Щас обращение такое

Code: (clickermann) [Select]

Сумка()
LCLICK($KLD_x,$KLD_y)  // Открыть сейф

А хотелось бы, как в подпрограмме, типа вот так:

Code: (clickermann) [Select]

Сейф (1)

6

Общие вопросы / Номер картинки

« on: February 04, 2021, 02:18:19 PM »

Всем привет прошу помочь, не как не могу разобраться с массивами, как то они сложны для меня. Скрипт есть, нужно определить какая картинка найдена.
Есть 20 картинок, точнее скрины цыфр от 1 до 20, мне нужно что бы из данного скрипта в лог писало какая цифра нашлась.

Code: (clickermann) [Select]

FOR($Varr = 1, $Varr < 21)
   GETSCREEN
   SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, STRCONCAT($Varr, ".bmp"), -1, 100)
   $scan_size = ARRSIZE($ARR_SCAN)
   FOR($ARR_NUM=0, $ARR_NUM < $scan_size, 2)
      $X = $ARR_SCAN[$ARR_NUM]
      $Y = $ARR_SCAN[$ARR_NUM+1]
      LCLICK($X + 3, $Y + 3)
      WAITMS(100)
   END_CYC
   UNDEFINE($ARR_SCAN)
   WAITMS(50)
END_CYC

LOGWRITE ($Varr)

7

Общие вопросы / Помогите пожалуйста

« on: December 16, 2020, 11:08:16 PM »

Очень прошу помочь, нужен якорь на карте. Трудно даже логику построить, придумал следующее, мини карта по центру персонаж(желтый квадратик) в углу напарник (синий квадратик якорь).  Красный круг это зона по которой будет бегать персонаж, зеленый квадрат зона по которой будет смещаться напарник(он стоит на одном месте) смещение будет происходить из зи персонажа. С кажу сразу к персонажу прямо прицепится проблематично, поэтому придется использовать в качестве якоря напарника. Я вижу это так, задать центр якоря, проверять на сколько от центра ушел якорь кликнуть в противоположную сторону. Не могу сделать следующее, как мне вычислить на сколько пикселей сместился якорь и потом кликнуть мышкой на (количество смещённых пикселей в соотношении 3 к 100) то есть, если кликнуть мышкой на 100 пикселей в сторону, то якорь на мини карте смещается на 3 пикселя. Ничего особенного не нужно, тупо нужно держать персонажа в красном кругу. Если есть другие идеи подскажите помогите как это сделать?

radikal ru

8

Общие вопросы / Поиск картинок

« on: November 19, 2020, 05:06:01 PM »

Картинки находи все работает норм, но после того как найдет картинку, клики идут с лева на право и сверху вниз. Возможно ли сделать так что бы прокликивалось наоборот, с низу вверх и с права на лево?

Code: (clickermann) [Select]

FOR($Varr=1, $Varr < 30)
   GETSCREEN
   SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, STRCONCAT($Varr, ".bmp"), -1, 100)
   $scan_size = ARRSIZE($ARR_SCAN)
   FOR($ARR_NUM=0, $ARR_NUM < $scan_size, 2)
      $X = $ARR_SCAN[$ARR_NUM]
      $Y = $ARR_SCAN[$ARR_NUM+1]
      LCLICK($X + 3, $Y + 3)
      WAITMS(100)
   END_CYC
   UNDEFINE($ARR_SCAN)
   WAITMS(50)
END_CYC

9

Общие вопросы / SENDMESSAGE / POSTMESSAGE

« on: November 22, 2019, 11:34:17 AM »

Помогите с этим разобраться SENDMESSAGE / POSTMESSAGE
SENDMESSAGE / POSTMESSAGE (hwnd, message, wParam, lParam)

Code: (clickermann) [Select]

hwnd - HWND окна // Это понятно
message - сообщение окну (*) // Это понятно
wParam, lParam - параметры сообщения // А вот это совсем не понятно, где их брать?
Допустим я хочу нажать цифру 1 в выбранном окне

Code: (clickermann) [Select]

// поиск окна
$h = wndfind("comp2")
postmessage($h, 0x31, ==, ==)

halt

10

Общие вопросы / Можно ли это уменьшить?

« on: November 18, 2019, 03:59:45 AM »

В поиск атаки и защиты (если один из них есть) производится одно и тоже действие, но не знаю как объединить их.

Code: (clickermann) [Select]

$check4 = 0
WHILE($check4 = 0)
   GETSCREEN
   COLORMODE(7)
   $con2 = PXLCOUNT ($korwx - 128,$korwy + 388, $korwx - 95,$korwy + 421, 8355711)
   IF($con2 = 1156)
      WAITMS(100)
      DBLCLICK($korwx + RND(225,235),$korwy + RND(125,135))
      WAITMS(100)
      DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
      WAITMS(100)
      LCLICK($korwx + RND(120,150), $korwy + RND(455,466))
      LOGWRITE ("Пусто")
   ELSE
      LOGWRITE ("поиск атаки")
      IF_PICTURE_IN ($korwx - 142,$korwy + 340, $korwx - 82,$korwy + 440, "куба.bmp", -1, 100)
         LOGWRITE ("атака")
         DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
         WAITMS(100)
         DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
         WAITMS(100)
         DBLCLICK($korwx + RND(225,235),$korwy + RND(125,135))
         WAITMS(100)
         DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
         WAITMS(100)
      ELSE
         LOGWRITE ("поиск защиты")
         IF_PICTURE_IN ($korwx - 142,$korwy + 340, $korwx - 82,$korwy + 440, "кубз.bmp", -1, 100)
            LOGWRITE ("защита")
            DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
            WAITMS(100)
            DBLCLICK($_return1 + RND(10,20),$_return2 + RND(10,20))
            WAITMS(100)
            DBLCLICK($korwx + RND(225,235),$korwy + RND(125,135))
            WAITMS(100)
            DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
            WAITMS(100)
         ELSE
            LOGWRITE ("поиск 10+")
            IF(PXL($korwx + 217, $korwy + 119) = 16777215)
               $check4 = 1
               WAITMS(200)
            ELSE
               IF_PIXEL_IN($korwx + 232,$korwy + 116, $korwx + 243,$korwy + 125, 8355839)
                  $check4 = 1
                  WAITMS(200)
               ELSE
                  LOGWRITE ("добиваем")
                  WAITMS(500)
                  DBLCLICK($korwx + RND(225,235),$korwy + RND(90,100))
                  WAITMS(400)
                  LCLICK($korwx + RND(120,150), $korwy + RND(455,466))
                  WAITMS(1900)
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_CYC

11

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

« on: November 14, 2019, 01:54:33 AM »

прошу помочь со скриптом, никак не могу придумать как реализовать следующее.
Есть окно с клетками 9 клеток по ширине 11 по высоте, от центра одной клетки до центра второй 35 пикселей что по высоте что по ширине, нужно проверить каждую на наличии пикселя каждую если он есть кликнуть 2 раза.

12

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

« on: November 12, 2019, 08:29:19 PM »

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

Code: (clickermann) [Select]

IF($first = 0)
   $first = 1
   $count = INPUTBOX("Кол-во проходов:", "1", 999)
   $count2 = $count + INPUTBOX("Кол-во проходов:", "1", 999)
   $count3 = $count2 + $count + INPUTBOX("Кол-во проходов:", "1", 999)
   IF($count = "")
      HALT
   END_IF
END_IF

// Тут мой скрипт
LOGWRITE ("скрипт")

INC($count,-1)
IF($count = 0)
   LOGWRITE ("закрыть 1 окна")
END_IF

INC($count2,-1)
IF($count = 0)
   LOGWRITE ("закрыть 2 окна")
END_IF

INC($count3,-1)
IF($count = 0)
   LOGWRITE ("закрыть 3 окна")
   halt
END_IF

13

Общие вопросы / прошу помощи

« on: November 12, 2019, 02:02:50 PM »

Помогите пожалуйста никак не могу сделать что бы работало(
Нужно проверить 2 пикселя в разных частях (оба находятся в этой области GETSCREEN(393,178, 411,187)) если один или оба найдены выход из цикла если нет то (LOGWRITE ("Добиваем"))

Code: (clickermann) [Select]

$check = 0
WHILE($check = 0)
   GETSCREEN(393,178, 411,187)
   COLORMODE(6, 393,178, 411,187)
   IF_PIXEL_IN(393,178, 401,180, 4145023, 4145087)
      $check = 1
      LOGWRITE ("1")
      WAITMS(100)
   ELSE
      IF_PIXEL_IN(370,179, 373,185, 16777215, 12566463)
         $check = 1
         LOGWRITE ("2")
         WAITMS(100)
      ELSE
         WAITMS(200)
         DBLCLICK(368,156)
         LOGWRITE ("Добиваем")
         WAITMS(200)
         LCLICK(285,521)
         WAITMS(1400)
      END_IF
      WAITMS(50)
   END_IF
END_CYC
Может так можно?

Code: (clickermann) [Select]

IF_PIXEL_IN(393,178, 401,180, 4145023, 4145087) | (370,179, 373,185, 16777215, 12566463)
$check = 1

14

Общие вопросы / Удалённое управление

« on: November 08, 2019, 02:54:34 PM »

Суть вопроса, уже пару тем написал по поводу, игра блочит кликер, возможно ли запустить кликер на одном компе, игру на втором и через допустим тимвивер управлять игрой? Ну или если такое возможно то посоветуйте аналог тимвиверу, почему то я подозреваю что тим не подойдёт для этого там картинка не очень норм.

15

Общие вопросы / Отключение монитора

« on: November 07, 2019, 12:38:07 AM »

Можно ли, средствами кликера отключить монитор?
Как и для чего это нужно. Есть монитор с двумя входами, к нему подключено 2 системника, так вот мне нужно переключется между ними, кнопками трудно это делать, но при отключении монитора на 1 системнике, монитор автоматом показывает изображение второго системника. Возможно, если есть другой способ, это сделать программно, было бы здорово, найти решение.