Author Topic: Clickermann для Рагнарок  (Read 3526 times)

0 Members and 1 Guest are viewing this topic.

heroes911

  • Зашел в гости
  • *
  • Posts: 1
    • View Profile
Clickermann для Рагнарок
« on: April 01, 2017, 05:04:13 PM »
Доброе время суток.

Скачал программу Clickermann и решил попробовать её в игре рагнарок.
Играю на AtlasRO в 3 окна.
Подскажите как сделать чтоб на окне (№2) через каждые 1-2 минуты нажималась F8.
Но при этом  не переключаясь с 1 окна возможно так?

p.s. я попробовал с помощью команд alt+w привязать к №2 окну(с помощью записи alt+r) у меня вышло,но он переключается в него целиком.


Атеист

  • Guest
Re: Clickermann для Рагнарок
« Reply #1 on: April 01, 2017, 11:42:14 PM »
Code: (clickermann) [Select]
// В начале скрипта пишем (из Справки)...

HSETTEXT( WNDFIND("Рагнарок"), "Первое окно") // По HWND окна находим первое окно с названием "Рагнарок" и переименовываем его в "Первое окно"
HSETTEXT( WNDFIND("Рагнарок"), "Второе окно") // По HWND окна находим вотрое окно с названием "Рагнарок" и переименовываем его в "Второе окно"
HSETTEXT( WNDFIND("Рагнарок"), "Третье окно") // По HWND окна находим третье окно с названием "Рагнарок" и переименовываем его в "Третье окно"

// Теперь все окна с разными заголовками.
// Находим HWND нужонго окна по его заголовку, привязываемся, выполняем действия, отвязываемся и т.д.

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Clickermann для Рагнарок
« Reply #2 on: April 02, 2017, 07:57:34 AM »
Забудь вообще про запись. Многие команды типо KEYDOWN KEYUP в режиме привязки не работают. Работает только KEYPRESS. Поэтому код надо писать в ручную.

Code: (clickermann) [Select]
$title = "Рагнарок" // заголовок окна игры
$n = 0
WHILE(WNDFIND($title) > 0) // переименуем окна
   INC($n,1)
   HSETTEXT(WNDFIND($title), STRCONCAT("Окно ", $n))
END_CYC

$hwnd1 = WNDFIND("Окно 1") // определяем HWNDы окон
$hwnd2 = WNDFIND("Окно 2")
$hwnd3 = WNDFIND("Окно 3")

START:

IF($hwnd1 > 0)
   HSET($hwnd1,1) // привязываемся к окну 1
   WAITMS(50)   
   
// Действия для окна 1
   
END_IF

IF($hwnd2 > 0)
   HSET($hwnd2,1) // привязываемся к окну 2
   WAITMS(50)   
   
// Действия для окна 2
   KEYPRESS(#F8)
   WAIT(RND(60,120)) // случайная задержка 1-2 минуты
   
END_IF

IF($hwnd3 > 0)
   HSET($hwnd3,1) // привязываемся к окну 3
   WAITMS(50)

// Действия для окна 3
   
END_IF

WAITMS(50)

GOTO(START)
« Last Edit: April 02, 2017, 08:02:40 AM by Oraven »