Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: Paanic on May 26, 2017, 09:48:16 AM

Title: Перемещение мышки по клику.
Post by: Paanic 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)

Title: Re: Перемещение мышки по клику.
Post by: Vint on May 26, 2017, 10:08:27 AM

Quote from: Paanic on May 26, 2017, 09:48:16 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)

Title: Re: Перемещение мышки по клику.
Post by: Oraven 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)

Title: Re: Перемещение мышки по клику.
Post by: Paanic 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]

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

Title: Re: Перемещение мышки по клику.
Post by: Paanic on May 26, 2017, 02:31:11 PM

Quote from: Oraven 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)

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

Title: Re: Перемещение мышки по клику.
Post by: Vint on May 26, 2017, 03:39:42 PM

Quote from: Paanic on May 26, 2017, 02:28:12 PM

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

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

Там лежит ссылка сюда же в раздел Ошибки в прикреплённую первой тему
http://crapware.aidf.org/forum/index.php?topic=1031.0