Зомби ферма и PC Ghost

[pratnomenis]

Принимаем подарки:

!Принимаем подарки в Зомби ферме
$corBG = "643,257" !Координаты "заднего плана" подарка
$ColBG = 14547199 !Цвет в этих координатах
$Prinyat = "812,287" !Кнопка принять

While Pxl.Get(corBG) = ColBG 
     Mouse.Left.Click(Prinyat)
Wend

[Ссылки могут видеть только зарегистрированные пользователи. ]

Добавлено через 17 минут
Отправляем подарки... (по фильтру, остальным шестерня)

!Зайдите в подарки
!Оключите уведомления и включите фильтр.
$StrelkaNextGift = "723,553"

$KnopkaPodarit = "821,394"

$KoorPodar = "789,343"
$ColorPodar = 15071999

$PokazatVseh = "507,770"

For $i = 1 To 7
	While Pxl.Get(KoorPodar) = ColorPodar
		Mouse.Left.Click(KnopkaPodarit)
	Wend
	If i < 7
	Mouse.Left.Click(StrelkaNextGift)
	Wait(100)
	End If
Next
Mouse.Left.Click(PokazatVseh)
Wait(100)
While Pxl.Get(KoorPodar) = ColorPodar
	Mouse.Left.Click(KnopkaPodarit)
Wend