Открывалка Зомбилетто

[shurup240]

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

[Крис Тинка]

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

[Артур]

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

[Redleon]

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

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

[Vint]

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

[Крис Тинка]

Для 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

[nefedovvadim]

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

[shurup240]

Для 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

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

[Константин]

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

[shurup240]

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

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

[Крис Тинка]

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

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

[Артур]

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

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

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

[Крис Тинка]

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

[Артур]

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

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

[иван]

Спасибо