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

Основной раздел => Общие вопросы => Topic started by: Fugger on August 23, 2017, 04:34:22 AM

Title: Движение мыши по спирали
Post by: Fugger on August 23, 2017, 04:34:22 AM

Доброго времени суток. Нужно, чтобы мышь двигалась по спирали, очевидно же. Если возьмётесь за это, то сделайте это пожалуйста  с настройкой скорости, радиуса и центра

Title: Re: Движение мыши по спирали
Post by: Vint on August 23, 2017, 08:51:05 AM

Вот "взялись", а настройки скорости нет.  :D

И это не спираль, а серия концентрических окружностей.
(http://savepic.net/9718618m.png) (http://savepic.net/9718618.htm)


Вот равномерная спираль:

Code: (clickermann) [Select]

$cx = INT($_xmax/2)
$cy = INT($_ymax/2)
$r = 30  //шаг между витками
$pi = 3.1415926535

//LDOWN($cx, $cy)

FOR($f=0, $f < 3600, 3)
    $a = $r/565/2 * $pi * $f
    LOGWRITE ($f," / ", $a)
   
    $x = $cx + INT($a*COS($f))
    $y = $cy + INT($a*SIN($f))
   
    IF(($y > $_ymax) | ($y < 0))
        $f = 10000
    ELSE
        MOVE($x,$y)
        //WAITMS(10)
    END_IF
END_CYC
//LUP($_xmouse, $_ymouse)

HALT
(http://savepic.net/9720666m.png) (http://savepic.net/9720666.htm)


Вот прямоугольная спираль:

Code: (clickermann) [Select]

$i = 2
$x = INT($_xmax/2)
$y = INT($_ymax/2)

$pp = INT($i/2)
LDOWN($x,$y)

FOR($l=$i, $l < 100, $i)
   MOVE($x+$l, $y-($l-$pp))
   WAITMS(100)
   MOVE($x+$l, $y+$l)
   WAITMS(50)
   
   MOVE($x-($l+$pp), $y+$l)
   WAITMS(50)
   MOVE($x-($l+$pp), $y-($l+$pp))
   WAITMS(50)   
END_CYC
LUP($_xmouse, $_ymouse)

HALT(http://savepic.net/9722717.png)

Title: Re: Движение мыши по спирали
Post by: Oraven on August 23, 2017, 08:59:14 AM

Да погодите вы, я просто скинул уже готовое. Вот еще вариант

Code: (clickermann) [Select]

$x0 = 786 // координата центра
$y0 = 624

$r = 10 // шаг точек круга
$r2 = 1 // Начальный радиус

MOVE($x0,$y0) // Это для теста демонстрации в Painte
LDOWN(-1,-1) // зажимаем левую кнопку, рисуем

WHILE($r2 < 200) // Предельный радиус
   FOR($a=0,$a<360+$r,$r)
      MOVE(ROUND($x0+$r2*cos($a),0),ROUND($y0+$r2*sin($a),0))
      WAITMS(5)
      $r2 = $r2+0.5 // шаг расширения круга
   END_CYC   
END_CYC

LUP(-1,-1) // отпускаем

HALT

Title: Re: Движение мыши по спирали
Post by: Vint on August 23, 2017, 09:35:03 AM

 ;D Только всё равно "очевидное" применение не очевидно.
Кроме как, нащупывание чего-нибудь курсором... Или колдовство

Title: Re: Движение мыши по спирали
Post by: Fugger on August 23, 2017, 12:56:57 PM

Чтож, спасибо. Я кстати уже нашёл на сайте похожее(цветок), но задолбался до нужного размера и в нужном месте настраивать, там одна переменная зависит от другой..бррр..