Author Topic: Плавное перемещение мыши в 4.11  (Read 2996 times)

0 Members and 1 Guest are viewing this topic.

TimurMZFK

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Плавное перемещение мыши в 4.11
« on: January 02, 2016, 09:35:12 PM »
В предыдущей версии 4.10 я использовал процедуры из скрипта m-move.cms который нашел на форуме за что кстати огромное спасибо автору. Но в 4.11 плавного перемещения не наблюдается при любом значении переменной move_speed . Не могу сообразить пока почему так происходит , подскажите пожалуйста что может помочь?

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Re: Плавное перемещение мыши в 4.11
« Reply #1 on: January 02, 2016, 09:55:45 PM »
Все прекрасно работает

Code: (clickermann) [Select]
SUB (m-move, $MOVE_END_X, $MOVE_END_Y)   
   $MOVE_SPEED = 6 // множитель скорости в попугаях меньше-быстрее. Можно дробный
   $MOVE_Start_X = $_xmouse
   $MOVE_Start_Y = $_ymouse
   $MOVE_X = $MOVE_Start_X
   $MOVE_Y = $MOVE_Start_Y
   
   $dist= DIST($MOVE_END_X,$MOVE_END_Y,$MOVE_Start_X,$MOVE_Start_Y)
   
   $MOVE_SPEEDVAR= INT((SQRT($dist))/$MOVE_SPEED)   
   IF($MOVE_SPEEDVAR < 1)
      $MOVE_SPEEDVAR=1
   END_IF
   
   $MOVE_step=($dist-1)/$MOVE_SPEEDVAR
   $MOVE_X_step = ($MOVE_END_X-$MOVE_Start_X)/$MOVE_step
   $MOVE_Y_step = ($MOVE_END_Y-$MOVE_Start_Y)/$MOVE_step       

   FOR($MOVE_i=0, $MOVE_i<INT($MOVE_step))
      $MOVE_X = $MOVE_X+$MOVE_X_step
      $MOVE_Y = $MOVE_Y+$MOVE_Y_step
      MOVE(ROUND($MOVE_X,0), ROUND($MOVE_Y,0))
      WAITMS(1)
   END_CYC
   
   MOVE($MOVE_END_X, $MOVE_END_Y)
END_SUB

SUB (m-lclick, $MOVE_END_X, $MOVE_END_Y)
   $LC1 = $MOVE_END_X
   $LC2 = $MOVE_END_Y
   m-move($MOVE_END_X, $MOVE_END_Y)
   WAITMS(20)
   LDOWN($LC1, $LC2)
   WAITMS(30)
   LUP($LC1, $LC2)
   WAITMS(30)
END_SUB

m-lclick(1053,1045)
HALT