Author Topic: Перемещение мышки по клику.  (Read 1652 times)

0 Members and 1 Guest are viewing this topic.

Paanic

  • Зашел в гости
  • *
  • Posts: 3
    • View Profile
Перемещение мышки по клику.
« on: May 26, 2017, 09:48:16 AM »
Нужен скрипт. Который будет сохранять координаты мыши при правом клике. И сохранять координаты при левом клике мыши. И соответственно переносить мышь. При правом нажатии там где была мышь при левом нажатии. И при левом нажатии там где она была при правом нажатии. Гайду по данному языку я не нашёл. Так что пишу сюда. Помогите пожалуйста.
Все что получилось написать вспоминая PHP:
 $b=0
 $n=0
   $h=0
   $j=0

if(RCLICKDOWN,$b=$_xmouse,$n=$_ymouse)

MOVE($h,$j)


if(RCLICKDOWN,$h=$x,$j=$y)
MOVE($b,$n)

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Перемещение мышки по клику.
« Reply #1 on: May 26, 2017, 10:08:27 AM »
Гайду по данному языку я не нашёл.
Справку встроенную не нашёл?  :o

Code: (clickermann) [Select]
DEFINE($xl, -1)
DEFINE($xr, -1)

IF(ISKEYDOWN(1) = 1)
    $xl = $_xmouse
    $yl = $_ymouse
    WHILE(ISKEYDOWN(1) = 1)
        WAITMS(20)
    END_CYC
    IF($xr > -1)
        MOVE($xr, $yr)
    END_IF
END_IF
WAITMS(20)


IF(ISKEYDOWN(2) = 1)
    $xr = $_xmouse
    $yr = $_ymouse
    WHILE(ISKEYDOWN(2) = 1)
        WAITMS(20)
    END_CYC
    IF($xl > -1)
        MOVE($xl, $yl)
    END_IF
END_IF
WAITMS(20)


Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Перемещение мышки по клику.
« Reply #2 on: May 26, 2017, 10:08:58 AM »
Справка идет вместе с кликером. Как её можно не найти я не понимаю...

Этот вариант сохраняет координаты и больше их не меняет.
Code: (clickermann) [Select]
IF($first1 = 0)
   IF(ISKEYDOWN(1)=1) // если нажата левая кнопка
      WHILE(ISKEYDOWN(1)=1)
         WAITMS(5)
      END_CYC
      $first1 = 1
      $x1 = $_xmouse // сохраняем координату
      $y1 = $_ymouse
   END_IF
ELSE
   IF((ISKEYDOWN(1)=1)&($first2 = 1)) // если нажата левая кнопка и координата правой определена
      WHILE(ISKEYDOWN(1)=1)
         WAITMS(5)
      END_CYC
      WAITMS(50)
      MOVE($x2,$y2) // переносим
   END_IF
END_IF

IF($first2 = 0)
   IF(ISKEYDOWN(2)=1) // если нажата правая кнопка
      WHILE(ISKEYDOWN(2)=1)
         WAITMS(5)
      END_CYC
      $first2 = 1
      $x2 = $_xmouse // сохраняем координату
      $y2 = $_ymouse
   END_IF
ELSE
   IF((ISKEYDOWN(2)=1)&($first1 = 1)) // если нажата правая кнопка и координата левой определена
      WHILE(ISKEYDOWN(2)=1)
         WAITMS(5)
      END_CYC
      WAITMS(50)
      MOVE($x1,$y1) // переносим
   END_IF
END_IF

WAITMS(20) // задержка холостого прохода для разгрузки процессора

Этот вариант переопределяет координаты при каждом нажатии кнопок.
Убрал излишние задержки
Code: (clickermann) [Select]
DEFINE($xl, -1)
DEFINE($xr, -1)

IF(ISKEYDOWN(1) = 1)
   $xl = $_xmouse
   $yl = $_ymouse
   WHILE(ISKEYDOWN(1) = 1)
      WAITMS(5)
   END_CYC
   IF($xr > -1)
      MOVE($xr, $yr)
   END_IF
END_IF

IF(ISKEYDOWN(2) = 1)
   $xr = $_xmouse
   $yr = $_ymouse
   WHILE(ISKEYDOWN(2) = 1)
      WAITMS(5)
   END_CYC
   IF($xl > -1)
      MOVE($xl, $yl)
   END_IF
END_IF

WAITMS(20)
« Last Edit: May 26, 2017, 10:17:29 AM by Oraven »

Paanic

  • Зашел в гости
  • *
  • Posts: 3
    • View Profile
Re: Перемещение мышки по клику.
« Reply #3 on: May 26, 2017, 02:28:12 PM »
Code: [Select]
[quote author=Vint link=topic=3253.msg21991#msg21991 date=1495782507]
[quote author=Paanic link=topic=3253.msg21989#msg21989 date=1495781296]
Гайду по данному языку я не нашёл.
[/quote]
Справку встроенную не нашёл?  :o

[/quote]

Спасибо. Справка не работает. Я бы почитал не ленился.

Paanic

  • Зашел в гости
  • *
  • Posts: 3
    • View Profile
Re: Перемещение мышки по клику.
« Reply #4 on: May 26, 2017, 02:31:11 PM »
Справка идет вместе с кликером. Как её можно не найти я не понимаю...

Этот вариант сохраняет координаты и больше их не меняет.
Code: (clickermann) [Select]
IF($first1 = 0)
   IF(ISKEYDOWN(1)=1) // если нажата левая кнопка
      WHILE(ISKEYDOWN(1)=1)
         WAITMS(5)
      END_CYC
      $first1 = 1
      $x1 = $_xmouse // сохраняем координату
      $y1 = $_ymouse
   END_IF
ELSE
   IF((ISKEYDOWN(1)=1)&($first2 = 1)) // если нажата левая кнопка и координата правой определена
      WHILE(ISKEYDOWN(1)=1)
         WAITMS(5)
      END_CYC
      WAITMS(50)
      MOVE($x2,$y2) // переносим
   END_IF
END_IF

IF($first2 = 0)
   IF(ISKEYDOWN(2)=1) // если нажата правая кнопка
      WHILE(ISKEYDOWN(2)=1)
         WAITMS(5)
      END_CYC
      $first2 = 1
      $x2 = $_xmouse // сохраняем координату
      $y2 = $_ymouse
   END_IF
ELSE
   IF((ISKEYDOWN(2)=1)&($first1 = 1)) // если нажата правая кнопка и координата левой определена
      WHILE(ISKEYDOWN(2)=1)
         WAITMS(5)
      END_CYC
      WAITMS(50)
      MOVE($x1,$y1) // переносим
   END_IF
END_IF

WAITMS(20) // задержка холостого прохода для разгрузки процессора

Этот вариант переопределяет координаты при каждом нажатии кнопок.
Убрал излишние задержки
Code: (clickermann) [Select]
DEFINE($xl, -1)
DEFINE($xr, -1)

IF(ISKEYDOWN(1) = 1)
   $xl = $_xmouse
   $yl = $_ymouse
   WHILE(ISKEYDOWN(1) = 1)
      WAITMS(5)
   END_CYC
   IF($xr > -1)
      MOVE($xr, $yr)
   END_IF
END_IF

IF(ISKEYDOWN(2) = 1)
   $xr = $_xmouse
   $yr = $_ymouse
   WHILE(ISKEYDOWN(2) = 1)
      WAITMS(5)
   END_CYC
   IF($xl > -1)
      MOVE($xl, $yl)
   END_IF
END_IF

WAITMS(20)

Большое спасибо друг очень помог!

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Перемещение мышки по клику.
« Reply #5 on: May 26, 2017, 03:39:42 PM »
Спасибо. Справка не работает. Я бы почитал не ленился.

Не работает? Хм. А в папке с кликером, там где запускаешь не обратил внимание на файл с кричащим названием
"Если не открывается справка.txt"

Там лежит ссылка сюда же в раздел Ошибки в прикреплённую первой тему
http://crapware.aidf.org/forum/index.php?topic=1031.0
« Last Edit: May 26, 2017, 03:41:19 PM by Vint »