Для Clikermann 4.9
Необходим участок 10 х 10 зомбилетто. Весь участок должен помещаться на экране. Первый подарок ставить в верхний угол.
#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