Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Vint

Pages: 1 [2] 3 4 ... 263
16
Нашел одну из тем

Может быть так можно?

Code: (clickermann) [Select]
IF(($var = "А") | ($var = "Б") | ($var = "В"))
   $s = "Есть"
ELSE
   $s = "Нет"
 END_IF
Написал этот скриптик со смартфона, поэтому проверить на ПК сегодня не могу.

Знак & означает: а также
Знак ! означает: всё, кроме
Знак | и означает: или

Верно? Где по условиям можно почитать информацию?

Это серьёзно? Ты всё это время не использовал условия?

А где же почитать, где почитать... Может в справке раздел "введение", да  нет, ерунда какая-то.

17
Любителям Visual Studio Code сделал подсветку синтаксиса.

Хотел сделать автодополнение, но там очень сложно, поэтому прописал всё сниппетами. Так тоже нормально.

Качаем всё и ставим с GitHub
https://github.com/Vintets/ClickermannLangConfigForVSCode

Демо:
https://youtu.be/5D_4wNOWO8E

Вид в разных темах

Theme Dark +


Theme Monokai +


Theme Light +


Theme Quiet Light

18
Как создать папку на ПК в указанном пути, чтобы ее название соответствовало значению переменной и если там пробел, то пробел и оставался?
Например,
Code: (clickermann) [Select]
$d = "Молочная сказка"
Взять название в кавычки
Code: (clickermann) [Select]
$d = "Молочная сказка"
EXECUTE("cmd.exe", STRCONCAT(" /C md ", CHAR(34), $d, CHAR(34)))

Получилось решить вопрос через Молочная_сказка. Но тогда со стороны руководства могут быть вопросы и подозрения, что здесь что-то не так.
Вопросы руководства по имени папки? Я и в быту часто создаю с нижним подчёркиванием, меня сразу уволят?  ;D
Это так. Просто удивило.

В идеале нужно, чтобы была возможность найти, есть ли с таким названием папка в указанном пути и если нет, то создать.
Это не нужно. Ничего не случится если создавать заново.

19
Я в полной уверенности, что проверил по RDP запустил, потом написал. И только сейчас вспомнил, что у нас переделали работу убрав RDP и поставив локальные 1С.
Так что проверить не как. Рекомендую проверить у себя в другом приложении.

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


Нажать пальцем на клавиатуре например Ctrl + A и воспроизведение кликером этой же команды:
Code: (clickermann) [Select]
WAITMS (250)
KEYDOWN (#CTRL)
WAITMS (250)
KEYPRESS (#A)
KEYUP (#CTRL)
WAITMS (250)
это разные вещи?
Для большинства программ одно и то же. Есть очень-очень мало программ, которые сознательно не обрабатывают WinApi сообщения и сами обрабатывают клавиатуру. Ни RDP ни 1С к ним не относятся. Всё прекрасно работает.
Code: (clickermann) [Select]
LCLICK(383,553) // Активируем окно 1С после запуска скрипта
WAITMS(500)

KEYDOWN(#CTRL)
WAITMS(30)
KEYPRESS(#A)
WAITMS(50)
KEYUP(#CTRL)
WAITMS(30)

HALT

21
Общие вопросы / Re: Изменеие цвета пиксля
« on: August 09, 2023, 01:32:06 PM »
Сглаживание изображения. Конкретно в играх несколько сглаживаний. Плюс изначально размеры могут быть вычисляемые и при изменении размера окна, всё меняется.
Если меняется без изменения размера, а только при перемещении окна, то это типа субпиксельного сглаживания.
Вариантов много, может игра рендерит в более высоком разрешении, а затем уменьшает до рабочего применяя субпиксельное сглаживание.
А может у тебя просто со временем графика изменяется, а не только при перемещении окна.

22
Общие вопросы / Re: Изменеие цвета пиксля
« on: August 09, 2023, 12:21:27 PM »
почему это
Потому, что сглаживание

как лечить?
Использовать COLORMODE

23
Общие вопросы / Re: Дебагер
« on: August 08, 2023, 02:35:36 PM »
День добрый люди, дали мне скрипт кликерманна с 110к строк кода, много копипасты и тд и тп, хочу переписать скрипт под питон модуль и нужно разобраться с кучей переменных и оптимизировать код, подскажите ( я не нашел как) можно ли как то скрипт запустить построчно? Надо разобраться с переменными и их значениями... уж очень много быдлокода в скрипте, ну а так же есть ли сторонний редактор какой или плагин для редактора с подсветкой синтаксиса ?

Дебаггера нет. 110к строк это наверно тупо запись или запись+вкрапления кода.
Подсветка есть для Notepad++

24
Code: (clickermann) [Select]
WHILE($check = 1)
    GETSCREEN (6,150,1843,945)
    IF_PICTURE_IN (6,150,1843,945, "событие.bmp", -1, 60)
        $check = 1
        IF(ISKEYDOWN(#ALT) = 1)
            $check = 0
            WAITMS(320)
            LOGWRITE ("Даааааааааааа!")
            WAITMS(20)
            HALT
            WHILE(ISKEYDOWN(#ALT) = 1)
                WAITMS(20)
            END_CYC
        END_IF
        WAITMS(20)
    ELSE // если картинка не найдена
        HALT
    END_IF
END_CYC

25
делаю бота для игры, часть "А" игрок появляется на 1 из примерно 70 точек, встаёт на позицию и смотрит в сторону где может быть враг, но он может быть и со спины, для чего хочется сделать поочерёдный поворот из стороны в сторону для проверки на наличие врага, но не знаю как сделать что бы при активации одного из тригеров после выполнения части "Б" скрипт возвращался тому GOTO, от которого ушёл
Так это не GOTO, тебе подпрограмма нужна.

Code: (clickermann) [Select]
SUB(trgr)  // ЧАСТЬ Б  проверка на изменение пикселя (тригербот)
    $s = 0
    GETSCREEN(640, 508, 644, 512)
    $a = PXL(642, 511)
    $a2 = colorG($a)
    $a3 = colorB($a)
   
    $trigger_loop = 1
    WHILE($trigger_loop = 1)
        // тут в дальнейшем так же добавлю выход из тригербота на случай смерти
        GETSCREEN(640, 508, 644, 512)
        $b = PXL(642, 511)
        $b2 = colorG($b)
        $b3 = colorB($b)
        IF(($a2+20 < $b2) | ($a2-20 > $b2))
            INC($s, 1)
        END_IF
        IF(($a3+20 < $b3) | ($a3-20 > $b3))
            INC($s, 1)
        END_IF
        IF($s > 1)
            LCLICK($_xmouse, $_ymouse)
            WAIT(3)
            $trigger_loop = 0
            // обратно к части а
        ELSE
            WAITMS(50)
        END_IF
    END_CYC
END_SUB

// ЧАСТЬ А
$pxl = pxl(111,111)
IF($pxl = 11) //проверка позиции
    LOGWRITE("1") // запись в лог какая из частей сработала
    KEYPRESS(#O)
    WAITMS(100)
    MOVER(111, 111) // поворот в сторону с которой может выйти враг
    WAIT(1)
    RCLICK($_xmouse, $_ymouse)
    WAIT(1)
    trgr()
    // хочу   добавить дополнительный MOVER и GOTO
END_IF

Выкинул условие IF($affa = 404) т.к. ты через него перепрыгиваешь всё равно, если нужно сам добавь.

26
lDown, lup заменить на lclick, т.к. зажатия в привязке не работают.
По непроходящим кликам: запускать кликер от имени администратора. Если нужно, отключить UAC

27
Общие вопросы / Re: Проверка на пиксель
« on: June 27, 2023, 02:22:48 PM »
Code: (clickermann) [Select]
SUB(name1)
    LCLICK(40,91)
    WAIT(1)
    DBLCLICK(92,116)
    WAIT(2)
    KEYDOWN (#CTRL)
    WAITMS (50)
    KEYPRESS (#C)
    KEYUP (#CTRL)
    WAIT(1)
    LCLICK(947,1008)
    WAIT(1)
    DBLCLICK(1535,267)
    WAIT(1)
    KEYDOWN (#CTRL)
    WAITMS (50)
    KEYPRESS (#V)
    KEYUP (#CTRL)
    WAIT(1)
    LCLICK(1694,374)
    WAIT(7)
END_SUB

name1()
GETSCREEN
IF_PIXEL_IN(0,0, $_xmax,$_ymax, 255)
    // действия если цвет найден
ELSE
    name1()
END_IF

28
Общие вопросы / Re: Проверка на пиксель
« on: June 27, 2023, 12:52:10 PM »
В шаблонах есть
PXL - это если проверить цвет конкретного пиксела
или
IF_PIXEL_IN - найти пиксел определённого цвета в указанной области

29
Прочее / Re: Юмор по теме и не только
« on: June 21, 2023, 02:14:03 PM »
Новые капчи подвезли


30
Общие вопросы / Re: Действия на время
« on: June 21, 2023, 08:18:12 AM »
Что то не так(
Спустя 3 минуты доп.действия зациклились...

Поправил. Это я изменил в одном месте и забыл изменить в другом.

Pages: 1 [2] 3 4 ... 263