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

Основной раздел => Использование => Topic started by: shurup240 on February 14, 2014, 12:30:02 PM

Title: Открывалка Зомбилетто
Post by: shurup240 on February 14, 2014, 12:30:02 PM

Привет скриптоделам! Хотелось бы узнать, можно ли написать скрипт для открытия зомбилетто?

Title: Re: Открывалка Зомбилетто
Post by: Крис Тинка on February 14, 2014, 07:21:58 PM

Думаю, что можно)))

Title: Re: Открывалка Зомбилетто
Post by: Артур on February 16, 2014, 10:51:14 AM

Открыть то можно и самому главное что бы из подарков принял и поставил

Title: Re: Открывалка Зомбилетто
Post by: Redleon on February 16, 2014, 03:27:31 PM

Quote from: Крис Тинка on February 14, 2014, 07:21:58 PM

Думаю, что можно)))

Кристина, пожаалуйста)))
 я могу отблагодарить)

Title: Re: Открывалка Зомбилетто
Post by: Vint on February 16, 2014, 06:47:10 PM

Товарищи. Поиск сломался?
Всё написано ещё год назад. http://crapware.aidf.org/forum/index.php?topic=69.msg1679#msg1679
Написано ещё для 4.7-4.8.
Чем соседский подарок отличается от зомбилетто?
Картинку сделать 1 минута. Ещё одна переделать под 4.9 если нужно.

Title: Re: Открывалка Зомбилетто
Post by: Крис Тинка on February 16, 2014, 06:48:15 PM

Для Clikermann 4.9
Необходим участок 10 х 10 зомбилетто. Весь участок должен помещаться на экране. Первый подарок ставить в верхний угол.

Code: (clickermann) [Select]

#name "Зомбилетто"
$time_1 = 1500 // Время открытия окна с подарками (мс)
$time_2 = 500 // Время закрытия окна с подарками  (мс)
$time_3 = 10  // Время между сбором и расстановкой (сек)
//--------------------------------
//--------------------------------
//--------------------------------
HINTPOPUP ("Откройте окно с подарками.", "Clickermann")
$check = 0
WHILE($check = 0) // Ждем зажатия ЛКМ
   IF(ISKEYDOWN (1) = 1)
      $x_sklad = $_xmouse
      $y_sklad = $_ymouse
      $check = 1
   END_IF
   WAITMS(30)
END_CYC
WHILE(ISKEYDOWN (1) = 1)// Ждем отпускания ЛКМ
   WAITMS(30)
END_CYC
HINTPOPUP ("Примите 1 подарок.", "Clickermann")
$check = 0
WHILE($check = 0) // Ждем зажатия ЛКМ
   IF(ISKEYDOWN (1) = 1)
      $x_podarok = $_xmouse
      $y_podarok = $_ymouse
      $check = 1
   END_IF
   WAITMS(30)
END_CYC
WHILE(ISKEYDOWN (1) = 1)// Ждем отпускания ЛКМ
   WAITMS(30)
END_CYC
HINTPOPUP ("Поставьте подарок.", "Clickermann")
$check = 0
WHILE($check = 0) // Ждем зажатия ЛКМ
   IF(ISKEYDOWN (1) = 1)
      $x = $_xmouse
      $y = $_ymouse
      $check = 1
   END_IF
   WAITMS(30)
END_CYC
WHILE(ISKEYDOWN (1) = 1)// Ждем отпускания ЛКМ
   WAITMS(30)
END_CYC
$c = 0
$d = 0
WHILE($x > 0)
   FOR($a, $a < 10)
      $kx = -48*$a
      $ky = 24*$a
      FOR($b, $b < $a + 1)
         IF($c = 0)
            MOVE($x_sklad, $y_sklad)
            WAITMS(100)
            LCLICK($x_sklad, $y_sklad)
            WAITMS($time_1)
            MOVE($x_podarok, $y_podarok)
            WAITMS(100)
            LCLICK($x_podarok, $y_podarok)
            WAITMS($time_2)
         END_IF         
         MOVE($x + $kx, $y + $ky - $d)
         WAITMS(100)
         LCLICK($x + $kx, $y + $ky - $d)
         INC($kx,96)
      END_CYC
   END_CYC
   IF($c = 0)
      $c = 1
      $d = 30
   ELSE
      $c = 0
      $d = 0
      WAIT($time_3)
   END_IF
END_CYC
HALT

Title: Re: Открывалка Зомбилетто
Post by: nefedovvadim on February 16, 2014, 07:33:26 PM

Спасибо огромное!

Title: Re: Открывалка Зомбилетто
Post by: shurup240 on February 16, 2014, 11:39:24 PM

Quote from: Крис Тинка on February 16, 2014, 06:48:15 PM

Для Clikermann 4.9
Необходим участок 10 х 10 зомбилетто. Весь участок должен помещаться на экране. Первый подарок ставить в верхний угол.

Code: (clickermann) [Select]

#name "Зомбилетто"
$time_1 = 1500 // Время открытия окна с подарками (мс)
$time_2 = 500 // Время закрытия окна с подарками  (мс)
$time_3 = 10  // Время между сбором и расстановкой (сек)
//--------------------------------
//--------------------------------
//--------------------------------
HINTPOPUP ("Откройте окно с подарками.", "Clickermann")
$check = 0
WHILE($check = 0) // Ждем зажатия ЛКМ
   IF(ISKEYDOWN (1) = 1)
      $x_sklad = $_xmouse
      $y_sklad = $_ymouse
      $check = 1
   END_IF
   WAITMS(30)
END_CYC
WHILE(ISKEYDOWN (1) = 1)// Ждем отпускания ЛКМ
   WAITMS(30)
END_CYC
HINTPOPUP ("Примите 1 подарок.", "Clickermann")
$check = 0
WHILE($check = 0) // Ждем зажатия ЛКМ
   IF(ISKEYDOWN (1) = 1)
      $x_podarok = $_xmouse
      $y_podarok = $_ymouse
      $check = 1
   END_IF
   WAITMS(30)
END_CYC
WHILE(ISKEYDOWN (1) = 1)// Ждем отпускания ЛКМ
   WAITMS(30)
END_CYC
HINTPOPUP ("Поставьте подарок.", "Clickermann")
$check = 0
WHILE($check = 0) // Ждем зажатия ЛКМ
   IF(ISKEYDOWN (1) = 1)
      $x = $_xmouse
      $y = $_ymouse
      $check = 1
   END_IF
   WAITMS(30)
END_CYC
WHILE(ISKEYDOWN (1) = 1)// Ждем отпускания ЛКМ
   WAITMS(30)
END_CYC
$c = 0
$d = 0
WHILE($x > 0)
   FOR($a, $a < 10)
      $kx = -48*$a
      $ky = 24*$a
      FOR($b, $b < $a + 1)
         IF($c = 0)
            MOVE($x_sklad, $y_sklad)
            WAITMS(100)
            LCLICK($x_sklad, $y_sklad)
            WAITMS($time_1)
            MOVE($x_podarok, $y_podarok)
            WAITMS(100)
            LCLICK($x_podarok, $y_podarok)
            WAITMS($time_2)
         END_IF         
         MOVE($x + $kx, $y + $ky - $d)
         WAITMS(100)
         LCLICK($x + $kx, $y + $ky - $d)
         INC($kx,96)
      END_CYC
   END_CYC
   IF($c = 0)
      $c = 1
      $d = 30
   ELSE
      $c = 0
      $d = 0
      WAIT($time_3)
   END_IF
END_CYC
HALT

А как сделать, что-бы в фоне работало?

Title: Re: Открывалка Зомбилетто
Post by: Константин on February 17, 2014, 12:14:25 AM

а можно это сделать задержку в конце цикла чуть чуть подольше ? А то лут , который из зомбилетт вылетает, мешает постановке новых ( . Секунд на 10 подольше

Title: Re: Открывалка Зомбилетто
Post by: shurup240 on February 17, 2014, 12:50:08 AM

Quote from: Vint on February 16, 2014, 06:47:10 PM

Товарищи. Поиск сломался?
Всё написано ещё год назад. http://crapware.aidf.org/forum/index.php?topic=69.msg1679#msg1679
Написано ещё для 4.7-4.8.
Чем соседский подарок отличается от зомбилетто?
Картинку сделать 1 минута. Ещё одна переделать под 4.9 если нужно.

Если бы я что-то в этом понимал) я рядовой пользователь) Спасибо Вам за полезные скрипты!

Title: Re: Открывалка Зомбилетто
Post by: Крис Тинка on February 17, 2014, 06:49:17 AM

Quote from: Константин on February 17, 2014, 12:14:25 AM

а можно это сделать задержку в конце цикла чуть чуть подольше ? А то лут , который из зомбилетт вылетает, мешает постановке новых ( . Секунд на 10 подольше

Ну так меняй значение переменной "time_3"

Title: Re: Открывалка Зомбилетто
Post by: Артур on February 17, 2014, 01:47:50 PM

Quote from: Крис Тинка on February 17, 2014, 06:49:17 AM

Quote from: Константин on February 17, 2014, 12:14:25 AM

а можно это сделать задержку в конце цикла чуть чуть подольше ? А то лут , который из зомбилетт вылетает, мешает постановке новых ( . Секунд на 10 подольше

Ну так меняй значение переменной "time_3"

А что сделать что бы он выкладывал больше так у меня он сейчас ставит треугольником по 55 шт

Title: Re: Открывалка Зомбилетто
Post by: Крис Тинка on February 17, 2014, 03:01:20 PM

FOR ($a, $a < 10) - 10 рядов

Title: Re: Открывалка Зомбилетто
Post by: Артур on February 18, 2014, 06:17:07 AM

Quote from: Крис Тинка on February 17, 2014, 03:01:20 PM

FOR ($a, $a < 10) - 10 рядов

Спасибо тебе Кристина огромное  :-*

Title: Re: Открывалка Зомбилетто
Post by: иван on February 18, 2014, 07:29:57 PM

Спасибо :)