Author Topic: Поиск курсора  (Read 2298 times)

0 Members and 2 Guests are viewing this topic.

shalagin1996bk

  • Зашел в гости
  • *
  • Posts: 1
    • View Profile
Поиск курсора
« on: June 13, 2014, 05:31:48 PM »
Все просто. От середины экрана будет идти по спирали курсор мышки и про появление другова курсора он нажмет на него.
В зависимости какой будет, будут разные действия!
Стандартный для поиска - будет дальше искать
Одно нажатие лкм - когда появиться курсор в виде "рука"
Нажатие лкм+пкм - когда курсор будет в виде "меч"

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Поиск курсора
« Reply #1 on: June 13, 2014, 07:25:58 PM »
Все просто. От середины экрана будет идти по спирали курсор мышки и про появление другова курсора он нажмет на него.
В зависимости какой будет, будут разные действия!
Стандартный для поиска - будет дальше искать
Одно нажатие лкм - когда появиться курсор в виде "рука"
Нажатие лкм+пкм - когда курсор будет в виде "меч"
Тяжело понимать такое описание... Не сразу и понял что, где появляется.
Code: (clickermann) [Select]
GETSCREEN
IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "ruka.bmp")
   LCLICK($_return1,$_return2)
   WAITMS(100)
ELSE
   IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "mech.bmp")
      RDOWN($_return1,$_return2)
      WAITMS(50)
      LCLICK($_return1,$_return2)
      WAITMS(50)
      RUP($_return1,$_return2)
      WAITMS(100)
   END_IF
END_IF
WAITMS(50)


aden

  • Оплот сообщества
  • ****
  • Posts: 363
    • View Profile
Re: Поиск курсора
« Reply #2 on: June 13, 2014, 07:32:54 PM »
мне кажется скрипт и курсор мышки должен по спирали вести или я ошибаюсь?

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Поиск курсора
« Reply #3 on: June 13, 2014, 07:37:33 PM »
Да. Меня смутили слова "будет идти". Я отчего-то подумал, что он уже идёт и с этой частью кода проблем нет. :)


Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Re: Поиск курсора
« Reply #4 on: June 14, 2014, 09:26:43 PM »
Code: (clickermann) [Select]
$cx = INT($_xmax/2)
$cy = INT($_ymax/2)
$r = 0.1
$pi = 3.1415926535

FOR($f,$f<3600, 3)
   $a = $r/2 * $pi * $f
   $COS = COS($f)
   $SIN = SIN($f)
   
   $x = $cx + INT($a*$COS)
   $y = $cy + INT($a*$SIN)
   
   IF(($y > $_ymax) | ($y < 0))
      $f = 10000
   ELSE
      MOVE($x,$y)
      WAITMS(10)
      GETSCREEN
      IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "ruka.bmp")
         LCLICK($_return1,$_return2)
         WAITMS(100)
      ELSE
         IF_PICTURE_IN ($_xmouse,$_ymouse,$_xmouse+30,$_ymouse+30, "mech.bmp")
            RDOWN($_return1,$_return2)
            WAITMS(50)
            LCLICK($_return1,$_return2)
            WAITMS(50)
            RUP($_return1,$_return2)
            WAITMS(100)
         END_IF
      END_IF
   END_IF
END_CYC