Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Закрытая тема
 
Опции темы
Старый 05.01.2013, 14:41   #931
 Разведчик
Аватар для pecypc
 
pecypc никому не известный тип
Регистрация: 01.01.2010
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 5 раз(а) в 4 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Цитата:
Сообщение от TAHKEPEHOKПосмотреть сообщение
А как сделать так, чтоб было непрерывное нажатие? Чтобы можно было перетащить экран или предметы. Возможно ли такое вообще?

Может инструкцию для кликермана прочитаешь уже?

Код:
LDOWN (x, y) - зажимает левую клавишу мышки
x, y - координаты, в которые будет помещен курсор перед тем как произвести действие


LUP (x, y) - отпускает левую клавишу мышки
x, y - координаты, в которые будет помещен курсор перед тем как произвести действие
Добавлено через 3 минуты
Цитата:
Сообщение от Gilgalad83Посмотреть сообщение
Ребята подскажите скрипт для посадки урожая пожалуйста

В этой теме есть заготовка Urogay.zip, ищите.

Последний раз редактировалось pecypc; 05.01.2013 в 14:44. Причина: Добавлено сообщение
 
Старый 06.01.2013, 01:13   #932
 Разведчик
Аватар для Gilgalad83
 
Gilgalad83 никому не известный тип
Регистрация: 05.01.2013
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

А где взять ?
 
Старый 07.01.2013, 14:32   #933
 Пехотинец
Аватар для ятру2
 
ятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союзаятру2 трижды герой Советского Союза
Регистрация: 19.03.2011
Сообщений: 80
Популярность: 6587
Золото Zhyk.Ru: 27
Сказал(а) спасибо: 78
Поблагодарили 161 раз(а) в 131 сообщениях
Отправить сообщение для ятру2 с помощью ICQ Отправить сообщение для ятру2 с помощью Telegram Отправить сообщение для ятру2 с помощью Yahoo
 
По умолчанию Re: Бот для Зомби фермы

Цитата:
Сообщение от -=VankoG=-Посмотреть сообщение
С помощью программы Качалка и накрутка Зомби Ферма + Антибан можно получить неограниченное количество зомбаксов, монет и мозгов совершенно бесплатно.

________________

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Цитата:
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Сообщение от Zhyk
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Нам пояснили эту ситуацию тем, что оператор была не в настроении

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).


Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Цитата:
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Ты олдфаг, ятру2!

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).

Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).

 
Старый 07.01.2013, 14:36   #934
 Разведчик
Аватар для maksim4ik991
 
maksim4ik991 скоро будет известенmaksim4ik991 скоро будет известенmaksim4ik991 скоро будет известен
Регистрация: 21.06.2012
Сообщений: 29
Популярность: 205
Сказал(а) спасибо: 220
Поблагодарили 8 раз(а) в 7 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Цитата:
Сообщение от -=VankoG=-Посмотреть сообщение
С помощью программы Качалка и накрутка Зомби Ферма + Антибан можно получить неограниченное количество зомбаксов, монет и мозгов совершенно бесплатно.

ти хоть сам вериш себе?
 
Старый 09.01.2013, 01:00   #935
 Разведчик
Аватар для Jeep4x4
 
Jeep4x4 никому не известный тип
Регистрация: 02.12.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

привет! Спасибо большое за хорошего бота... только хотел вот попросить чтоб добавил еще соберание чёртовых брёвен и секвои на ужасном острове
 
Старый 09.01.2013, 09:39   #936
 Разведчик
Аватар для Alex1998z
 
Alex1998z никому не известный тип
Регистрация: 12.10.2012
Сообщений: 9
Популярность: 10
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Цитата:
Сообщение от Jeep4x4Посмотреть сообщение
привет! Спасибо большое за хорошего бота... только хотел вот попросить чтоб добавил еще соберание чёртовых брёвен и секвои на ужасном острове

Прочитай справку и добавь сам, это не так сложно.
Или дай мне свой аккаунт, я допишу. Твой аккаунт мне нужен для выявления цветов ресурсов и ничего больше.
________________
ПоМоГ_СтаВь_СПАСИБКУ
 
Старый 09.01.2013, 12:01   #937
 Разведчик
Аватар для Incunabula
 
Incunabula никому не известный тип
Регистрация: 28.09.2011
Сообщений: 42
Популярность: 10
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Бот для Зомби фермы

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

Добавлено через 2 часа 52 минуты
в частности нужен шаблон ...что бы я мог кликать по заданным координатам определенное количество раз и с определенной задержкой ...помогите кто дружит с скриптом ....

Последний раз редактировалось Incunabula; 09.01.2013 в 14:53. Причина: Добавлено сообщение
 
Старый 09.01.2013, 15:08   #938
 Разведчик
Аватар для Jeep4x4
 
Jeep4x4 никому не известный тип
Регистрация: 02.12.2012
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Вроде с бревнами разобрался, помогите плиз узнать соответствующий цвет пикселя чёртовой секвойи
 
Старый 09.01.2013, 15:16   #939
Заблокирован
 Пехотинец
Аватар для Cisar
 
Cisar душа компанииCisar душа компанииCisar душа компанииCisar душа компанииCisar душа компанииCisar душа компанииCisar душа компанииCisar душа компании
Регистрация: 09.12.2012
Сообщений: 62
Популярность: 1013
Сказал(а) спасибо: 38
Поблагодарили 25 раз(а) в 19 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Цитата:
Сообщение от IncunabulaПосмотреть сообщение
что бы я мог кликать по заданным координатам определенное количество раз и с определенной задержкой ...помогите кто дружит с скриптом ....

Может быть кликерман поможет
 
Старый 09.01.2013, 15:28   #940
 Разведчик
Аватар для Incunabula
 
Incunabula никому не известный тип
Регистрация: 28.09.2011
Сообщений: 42
Популярность: 10
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Бот для Зомби фермы

плохо что ув.JeM-D34336 положил большой и толстый на ферму и насчет новых рецептов там кто то пытался выложить но скачать не выходит ...
 
Старый 09.01.2013, 20:41   #941
 Разведчик
Аватар для pecypc
 
pecypc никому не известный тип
Регистрация: 01.01.2010
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 5 раз(а) в 4 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Вот "Бот Зомби ферма v 1.5.8.cms" с новыми рецептами. В архиве почему-то не удаётся выложить.

Код:
//Бот Зомби ферма v 1.5.8 (16.10.2012)
#name "Бот Зомби ферма v 1.5.8"
// Скрипт для Clickermann v4.6 - 4.7

//===== ОПЦИИ ==========================//
//////////////////////////////////////////

// Прием подарков (0 - выключено, 1 - включено)
$gifts = 0

// Прием пряников (0 - выключено, 1 - включено)
$elka_gifts = 0

// Оконный режим (0 - выключено, 1 - включено)
$window = 0

// Звук системного динамика (0 - выключено, 1 - включено)
$sound = 1

// Раскапываться если закопали (0 - выключено, 1 - включено)
$rascopka = 0

// автоперезагрузка страницы (0 - выключено, 1,2,3... номер острова)
$sboi = 0
//== ОПЦИИ АВТОПЕРЕЗАГРУЗКИ ==============
// 0 - Автоперезагрузка отключена
// 1 - ДОМАШНИЙ остров
// 2 - остров ЛЮБВИ или ОСТРОВ X
// 3 - остров МАЙЯ, АЛЬФА, ОМЕГА, Дремучий, Лунный и Остров гигантов
// 4 - остров ВЕРЫ
// 5 - остров НАДЕЖДЫ или СТРАШНЫЙ ОСТРОВ
// 6 - СЕКРЕТНЫЙ остров
// 7 - МОБИЛЬНЫЙ ОСТРОВ

//варка (0 - выключено, 1 - 54 рецепты)
$varevo = 0
//== ОПЦИИ ВАРКИ =========================
// 0 - Варка отключена
// 1 - Гипномак
// 2 - Клеверхелл
// 3 - Черничный крендель
// 4 - Золотая пыль
// 5 - Кукурузные палочки
// 6 - Баклажадина
// 7 - Гарбузики
// 8 - Японский горох
// 9 - Белая краска
// 10 - Росянка острая
// 11 - Черника с косточкой
// 12 - Грибная текила
// 13 - Черепки в томате
// 14 - Волчий штык
// 15 - Глазная настойка
// 16 - Чесночная лилия
// 17 - Сонный качан
// 18 - Гипносон
// 19 - Хелия
// 20 - Глазная росянка
// 21 - Волчья кость
// 22 - Голова-гриб
// 23 - Сонхелл
// 24 - Сонная росянка
// 25 - Волчья пасть
// 26 - Волчиум
// 27 - Зомбиум
// 28 - Краска Синяя
// 29 - Краска Розовая
// 30 - Чернила
// 31 - Сталь
// 32 - Зомбаксид
// 33 - Валенок
// 34 - Овощная бочка
// 35 - Палочка-выручалочка
// 36 - Шоколад
// 37 - Слёзы зомби
// 38 - Акварель
// 39 - Альбом
// 40 - Так себе по Человековедению
// 41 - Корректор
// 42 - Нормально в Зомбологии
// 43 - Букет
// 44 - Хорошо по Человековедению
// 45 - Хорошо по Зомбологии
// 46 - Шпаргалка
// 47 - Зомбология на отлично
// 48 - Человековедение на отлично
// 49 - Медаль
// 50 - Компот
// 51 - Вишнёвый джем
// 52 - Лимонный микс
// 53 - Мармелад
// 54 - Чертовщина

//===== ВЫБОР РЕСУРСОВ ===================
// 0 - выключено, 1 - включено
$res01 = 1  //дрова
$res02 = 1  //пальма
$res03 = 1  //секвоя
$res04 = 1  //камни
$res05 = 1  //мрамор
$res06 = 1  //белый мрамор
$res07 = 1  //черный мрамор
$res08 = 1  //Кварц
$res09 = 1  //бочки
$res10 = 1  //сундук
$res11 = 1  //рюкзачек
$res12 = 1  //чемодан
$res13 = 1  //Еловая ветка
$res14 = 1  //Снег
$res15 = 1  //Ведро рыбака
// Альтернативный режим сбора
$res16 = 0  //Табличка "забери" для -2 масштаба

//////////////////////////////////////////
//////////////////////////////////////////
//===== ПРОГРАММА ======================//
$svarevo = $varevo
$opred = 0
$wait = $_time_t + 2419200
$vX = 0
$vY = 0
LOGSHOW(0)

IF($res16 > 0)
   $res01 = 0  //дрова
   $res02 = 0  //пальма
   $res03 = 0  //секвоя
   $res04 = 0  //камни
   $res05 = 0  //мрамор
   $res06 = 0  //белый мрамор
   $res07 = 0  //черный мрамор
   $res08 = 0  //Кварц
   $res09 = 0  //бочки
   $res10 = 1  //сундук
   $res11 = 0  //рюкзачек
   $res12 = 1  //чемодан
   $res13 = 0  //Еловая ветка
   $res14 = 0  //Снег
   $res15 = 0  //Ведро рыбака
END_IF

IF($window = 1)
   $sboi = 0
END_IF

start:
COLORMODE(0)
IF(($opred = 0) & ($window = 0))
   GOSUB(Опр_полож_экрана)
   WAITMS(500)
END_IF

GOSUB(проверка)
GOSUB(любые_диалоги)

IF($gifts = 1)
   GETSCREEN
   IF_PIXEL_IN($vX+35,$vY+530,$vX+103,$vY+599, 2251223)
      IF ($_return1 > 0)
         $_return1 = $vX+76
         $_return2 = $vY+593
         GOSUB(клик)
         WAITMS(1500)
         GOSUB(прием_подарков)
         WAITMS(500)
      END_IF
   END_IF
END_IF

WAITMS(50)
GOSUB(Сбор_ресов)
WAITMS(50)
IF($elka_gifts = 1)
   GOSUB(Сбор_подарков)
   WAITMS(50)
END_IF

IF(($varevo < 0) | ($varevo > 54))
   $varevo = 0
   HINTPOPUP("Номер рецепта задан неверно.","Ошибка")
END_IF

IF($varevo > 0)
   GOSUB(варево)
END_IF

IF(($wait < $_time_t) & ($svarevo > 0))
   $wait = $_time_t + 2419200
   $varevo = $svarevo
END_IF

// WAITMS(500)
goto(start)

//===== КОНЕЦ ПРОГРАММЫ ==================

SUB(Опр_полож_экрана) //== ОПРЕДЕЛЯЮ ПОЛОЖЕНИЕ ЭКРАНА ==========================
   GETSCREEN
   IF_PICTURE_IN (1,1,$_xmax,$_ymax, "textures\ZF_BOT_Screen2.bmp")
      $vX = $_return1-42
      $vY = $_return2-13
      //LOGWRITE("x: ", $_return1," y: ", $_return2)
      //LOGWRITE("x2: ", $vX," y2: ", $vY)
      $hwnd = hget($vX+403,$vY+365)
      $hwndbr = hget($vX+403,$vY-16)
      $opred = 1
   ELSE
      IF(($sboi > 0) & ($reload = 1))
         GOSUB(перезагрузка)
      ELSE
         HINTPOPUP("Игра не найдена!")
         HALT
      END_IF
   END_IF
   
   IF($reload = 1)
      WAIT(5)
      // Перезагрузка: Этап 3 ожидание загрузки друзей
      $wait_screen = 1
      WHILE($wait_screen = 1)
         GOSUB(любые_диалоги)
         GETSCREEN
         IF_PICTURE_IN (1,1,$_xmax,$_ymax, "Textures\ZF_BOT_Screen3.bmp")
            WAITMS (1000)
            HINTPOPUP("Ожидание загрузки друзей", "Сообщение")
            GOSUB(проверка)
         Else
            $wait_screen = 0
            $wait_time = 0
            HINTPOPUP("Друзья загружены", "Сообщение")
            WAIT (5)
         END_IF
      END_CYC
      
      GOSUB(проверка)
      GOSUB(любые_диалоги)
      GOSUB(обновление)
      GOSUB(проверка)
      WAITMS(500)
      GETSCREEN
      if ((pxl($vX+757,$vY+309) = 3160910) | (pxl($vX+762,$vY+309) = 3160910)) // проверка панели управления
      else
         LCLICK($vX+759,$vY+507)
      END_IF
      MOVE($vX+29,$vY+188)
      WAIT(1)
      GETSCREEN
      // Домашний остров
      if (($sboi = 1) & ($reload = 1))
         IF($elka_gifts = 0)
            LCLICK($vX+757,$vY+437)
            WAITMS(500)
            LCLICK($vX+757,$vY+437)
         END_IF
         WAITMS(600)
         LDOWN($vX+638,$vY+419)
         WAITMS(200)
         MOVE($vX+567,$vY+373)
         WAITMS(200)
         LUP($vX+567,$vY+373)
         $reload = 0
      END_IF
      // остров любви или остров X
      if (($sboi = 2) & ($reload = 1))
         LCLICK($vX+757,$vY+437)
         WAITMS(500)
         LCLICK($vX+757,$vY+437)
         WAITMS(600)
         LDOWN($vX+695,$vY+386)
         WAITMS(200)
         MOVE($vX+218,$vY+359)
         WAITMS(200)
         LUP($vX+218,$vY+359)
         $reload = 0
      END_IF
      // остров майя или альфа или омега
      if (($sboi = 3) & ($reload = 1))
         LCLICK($vX+757,$vY+437)
         WAITMS(500)
         LCLICK($vX+757,$vY+437)
         WAITMS(600)
         LDOWN($vX+632,$vY+335)
         WAITMS(200)
         MOVE($vX+400,$vY+334)
         WAITMS(200)
         LUP($vX+400,$vY+334)
         $reload = 0
      END_IF
      // остров Веры
      if (($sboi = 4) & ($reload = 1))
         LCLICK($vX+757,$vY+437)
         WAITMS(500)
         LCLICK($vX+757,$vY+437)
         WAITMS(600)
         LDOWN($vX+696,$vY+404)
         WAITMS(200)
         MOVE($vX+209,$vY+327)
         WAITMS(200)
         LUP($vX+209,$vY+327)
         $reload = 0
      END_IF
      // остров Надежды или Страшный остров
      if (($sboi = 5) & ($reload = 1))
         LCLICK($vX+757,$vY+437)
         WAITMS(500)
         LCLICK($vX+757,$vY+437)
         WAITMS(600)
         LDOWN($vX+673,$vY+519)
         WAITMS(200)
         MOVE($vX+327,$vY+466)
         WAITMS(200)
         LUP($vX+327,$vY+466)
         $reload = 0
      END_IF
      // Секретный остров
      if (($sboi = 6) & ($reload = 1))
         LCLICK($vX+757,$vY+437)
         WAITMS(500)
         LCLICK($vX+757,$vY+437)
         WAITMS(600)
         LDOWN($vX+676,$vY+348)
         WAITMS(200)
         MOVE($vX+455,$vY+329)
         WAITMS(200)
         LUP($vX+455,$vY+329)
         $reload = 0
      END_IF
      // мобильный
      if (($sboi = 7) & ($reload = 1))
         LCLICK($vX+757,$vY+437)
         WAITMS(500)
         LCLICK($vX+757,$vY+437)
         WAITMS(600)
         LDOWN($vX+512,$vY+379)
         WAITMS(200)
         MOVE($vX+483,$vY+526)
         WAITMS(200)
         LUP($vX+483,$vY+526)
         $reload = 0
      END_IF
      
      WAITMS(1000)
      $reload = 0
      $check_human = 0
      $check_human2 = 0
      LOGWRITE("Игра перезагружена")
   END_IF
   MOVE($vX+29,$vY+188)
END_SUB

SUB(клик) //== КЛИК ============================================================
   LDOWN($_return1,$_return2)
   WAITMS(200)
   LUP($_return1,$_return2)
   WAITMS(100)
   UNDEFINE($_return1)
   UNDEFINE($_return2)
   MOVE($vX+29,$vY+188)
END_SUB

SUB(клик2) //== КЛИК2 ===========================================================
   //LOGWRITE("colorcount: ", PXLCOUNT ($clresx-30,$clresy-30, $clresx+30, $clresy+30, $color))
   IF(PXLCOUNT ($clresx-30,$clresy-30, $clresx+30, $clresy+30, $color) > $colorcount)
      //LOGWRITE("X: ", $clresx, " ","Y: ", $clresy)
      $skip_res = 1
      LDOWN($clresx+$clrespx,$clresy+$clrespy)
      WAITMS(200)
      LUP($clresx+$clrespx,$clresy+$clrespy)
      WAITMS(100)
      LDOWN($vX+557,$vY+9)
      WAITMS(50)
      LUP($vX+557,$vY+9)
      WAITMS(100)
      MOVE($vX+29,$vY+188)
      If($signal = 1)
         $signal = 0
         HINTPOPUP("Сундучек!")
         GOSUB(sound1)
      END_IF
      GOSUB(проверка)
      GETSCREEN
   END_IF
END_SUB

SUB(клик3) //== КЛИК3 ===========================================================
   LDOWN($clresx+$clrespx,$clresy+$clrespy)
   WAITMS(200)
   LUP($clresx+$clrespx,$clresy+$clrespy)
   WAITMS(60)
   LDOWN($clresx+$clrespx,$clresy+$clrespy)
   WAITMS(200)
   LUP($clresx+$clrespx,$clresy+$clrespy)
   WAITMS(60)
   LDOWN($clresx+$clrespx,$clresy+$clrespy)
   WAITMS(200)
   LUP($clresx+$clrespx,$clresy+$clrespy)
   WAITMS(50)
   LDOWN($vX+557,$vY+9)
   WAITMS(50)
   LUP($vX+557,$vY+9)
   WAITMS(200)
   MOVE($vX+29,$vY+188)
   GOSUB(проверка)
   GETSCREEN
END_SUB

SUB(прием_подарков) //== ПРИЕМ ПОДАРКОВ ========================================
   $nextgift = 0
   $nextgift2 = 0
   
   WHILE($nextgift = 0)
      GOSUB(проверка)
      GETSCREEN
      if (pxl($vX+399,$vY+156) = 9803157)
         WAITMS(1000)
         $nextgift = 0
      Else
         $nextgift = 1
      end_if
   END_CYC
   
   WHILE($nextgift2 = 0)
      $_return1 = $vX+378
      $_return2 = $vY+164
      GOSUB(клик)
      WAITMS(250)
      GOSUB(проверка)
      GETSCREEN
      IF (pxl($vX+70,$vY+107) = 9686500)
         $nextgift2 = 0
      Else
         $nextgift2 = 1
      END_IF
   END_CYC
END_SUB

//==============================================================================
SUB(Сбор_ресов)  //== СБОР РЕСУРСОВ ============================================
   MOVE($vX+29,$vY+188)
   $skip_res = 0
   
   GETSCREEN
   If (($res01 = 1) & ($skip_res = 0)) //дрова
      $color = 3627399
      $colorcount = 3
      $clrespx = 0
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res02 = 1) & ($skip_res = 0)) //пальма
      $color = 4955873
      $colorcount = 3
      $clrespx = 0
      $clrespy = 0
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res03 = 1) & ($skip_res = 0)) //секвоя
      $color = 2053235
      $colorcount = 3
      $clrespx = 0
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res13 = 1) & ($skip_res = 0)) //Еловая ветка
      $color = 5137697
      $colorcount = 3
      $clrespx = 0
      $clrespy = 1
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res04 = 1) & ($skip_res = 0)) //камни
      $color = 3823713
      $colorcount = 3
      $clrespx = -1
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res14 = 1) & ($skip_res = 0)) // Снег
      $color = 14799290
      $colorcount = 3
      $clrespx = 1
      $clrespy = 3
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res05 = 1) & ($skip_res = 0)) //мрамор
      $color = 8437830
      $colorcount = 3
      $clrespx = 0
      $clrespy = 0
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res06 = 1) & ($skip_res = 0)) //белый мрамор
      $color = 11646420
      $colorcount = 3
      $clrespx = 0
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res07 = 1) & ($skip_res = 0)) //черный мрамор
      $color = 3945003
      $colorcount = 3
      $clrespx = 2
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res08 = 1) & ($skip_res = 0)) //Кварц
      $color = 13933692
      $colorcount = 2
      $clrespx = 0
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res09 = 1) & ($skip_res = 0)) //бочки
      $color = 3571911
      $colorcount = 3
      $clrespx = 0
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res10 = 1) & ($skip_res = 0)) //сундук
      $color = 3363203
      $colorcount = 3
      $clrespx = 0
      $clrespy = 2
      $signal = 1
      GOSUB(поиск_ресов)
      $signal = 0
   END_IF
   
   If (($res11 = 1) & ($skip_res = 0)) //Рюкзак кладоискателя
      $color = 2837110
      $colorcount = 1
      $clrespx = 0
      $clrespy = 3
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res15 = 1) & ($skip_res = 0)) //Ведро рыбака
      $color = 3559820
      $colorcount = 3
      $clrespx = -5
      $clrespy = 12
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res12 = 1) & ($skip_res = 0)) //чемодан
      $color = 3632284
      $colorcount = 3
      $clrespx = 0
      $clrespy = 2
      GOSUB(поиск_ресов)
   END_IF
   
   If (($res16 = 1) & ($skip_res = 0)) //Табличка "забери" для -2 масштаба
      If ($wait_z < $_time_t)
         $clrespx = 17
         $clrespy = 58
         GOSUB(поиск_забери)
         $wait_z = $_time_t + 30
      END_IF
   END_IF
END_SUB

SUB(поиск_ресов)
   $xres1 = $vX+99
   $yres1 = $vY+99
   $xres2 = $vX+736
   $yres2 = $vY+551
   
   $sres = 0
   $sres2 = 0
   
   // отступ
   $size = 40
   
   getscreen
   if_pixel_in($xres1, $yres1, $xres2, $yres2, $color)
      //LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
      $clresx = $_return1
      $clresy = $_return2
      GOSUB(клик2)
      
      WHILE($sres = 0)
         $sYres2 = $clresy + $size
         $sYres1 = $clresy
         $sres2 = 0
         
         WHILE($sres2 = 0)
            if_pixel_in($clresx + $size, $sYres1, $xres2, $sYres2, $color)
               //LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
               $clresx = $_return1
               $clresy = $_return2
               GOSUB(клик2)
            Else
               $sres2 = 1
            end_if
         END_CYC
         
         if_pixel_in($xres1, $clresy + $size, $xres2, $yres2, $color)
            //LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
            $clresx = $_return1
            $clresy = $_return2
            GOSUB(клик2)
         Else
            $sres = 1
         end_if
      END_CYC
   end_if
END_SUB

SUB(поиск_забери)
   $xres1 = $vX+99
   $yres1 = $vY+99
   $xres2 = $vX+736
   $yres2 = $vY+551
   
   $sres = 0
   $sres2 = 0
   
   // отступ
   $size = 40
   
   getscreen
   if_pixel_in($xres1, $yres1, $xres2, $yres2, 16580257, 16645550, 16580507, 16580505, 16580503)
      //LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
      $clresx = $_return1
      $clresy = $_return2
      GOSUB(клик3)
      
      WHILE($sres = 0)
         $sYres2 = $clresy + $size
         $sYres1 = $clresy
         $sres2 = 0
         
         WHILE($sres2 = 0)
            if_pixel_in($clresx + $size, $sYres1, $xres2, $sYres2, 16580257, 16645550, 16580507, 16580505, 16580503)
               //LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
               $clresx = $_return1
               $clresy = $_return2
               GOSUB(клик3)
            Else
               $sres2 = 1
            end_if
         END_CYC
         
         if_pixel_in($xres1, $clresy + $size, $xres2, $yres2, 16580257, 16645550, 16580507, 16580505, 16580503)
            //LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
            $clresx = $_return1
            $clresy = $_return2
            GOSUB(клик3)
         Else
            $sres = 1
         end_if
      END_CYC
   end_if
END_SUB

SUB(Сбор_подарков) //== Сбор подарков с елок ===================================
   $skip_pod = 0
   
   GETSCREEN
   COLORMODE(5)
   IF_PICTURE_IN ($vX+99,$vY+99,$vX+736,$vY+551, "textures\ZF_BOT_Podarok_1.bmp")
      $skip_pod = 1
      //HINTPOPUP("Маленькая ёлочка")
      GOSUB(клик)
   END_IF
   
   IF($skip_pod = 0)
      IF_PICTURE_IN ($vX+99,$vY+99,$vX+736,$vY+551, "textures\ZF_BOT_Podarok_2.bmp")
         $skip_pod = 1
         //HINTPOPUP("Большая ёлка")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($skip_pod = 0)
      IF_PICTURE_IN ($vX+99,$vY+99,$vX+736,$vY+551, "textures\ZF_BOT_Podarok_3.bmp")
         $skip_pod = 1
         //HINTPOPUP("Огромная ёлка")
         GOSUB(клик)
      END_IF
   END_IF
   COLORMODE(0)
   
   IF($skip_pod = 1)
      WAITMS(1000)
      GOSUB(проверка)
      
      WAITMS(200)
      
      $var_podarok = 0
      
      GETSCREEN
      WHILE($var_podarok = 0)
         if ((pxl($vX+223,$vY+562) = 16756214) | (pxl($vX+223,$vY+562) = 16751092))
            $_return1 = $vX+248
            $_return2 = $vY+552
            GOSUB(клик)
            WAITMS(200)
            GOSUB(проверка)
            GETSCREEN
         Else
            $var_podarok = 1
         END_IF
      END_CYC
      WAITMS(100)
      GOSUB(любые_диалоги)
   END_IF
END_SUB

SUB(варево)  //== ВАРЕВО =======================================================
   MOVE($vX+29,$vY+188)
   GETSCREEN
   IF_PIXEL_IN($vX+99,$vY+99,$vX+736,$vY+551, 2313333)
      GOSUB(клик)
   END_IF
   WAITMS(1300)
   GETSCREEN
   if ((pxl($vX+153,$vY+107) = 15071999) & (pxl($vX+283,$vY+103) = 5266804) & (pxl($vX+224,$vY+153) = 7643322) & (pxl($vX+270,$vY+276) = 9620708))
      GETSCREEN
      if (pxl($vX+224,$vY+685) = 3296867) // проверка первой вкладки (1)
         GOSUB(проверка)
         GOSUB(загрузка)
      ELSE
         FOR($str, $str < 5)
            GOSUB(проверка)
            $_return1 = $vX+224
            $_return2 = $vY+685
            GOSUB(клик)
         END_CYC
         WAITMS(300)
         GOSUB(проверка)
         GOSUB(загрузка)
      END_IF
   END_IF
   WAIT(1)
END_SUB

SUB(загрузка) //== Загрузка ингредиентов =======================================
   IF($varevo = 1) // Гипномак
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 2) // Клеверхелл
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 3) // Черничный крендель
      $_return1 = $vX+742
      $_return2 = $vY+399
      GOSUB(клик)
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 4) // Золотая пыль
      $_return1 = $vX+742
      $_return2 = $vY+399
      GOSUB(клик)
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 5) // Кукурузные палочки
      FOR($str, $str < 2)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 6) // Баклажадина
      FOR($str, $str < 2)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 7) // Гарбузики
      FOR($str, $str < 3)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 8) // Японский горох
      FOR($str, $str < 3)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 9) // Белая краска
      FOR($str, $str < 4)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 10) // Росянка острая
      FOR($str, $str < 4)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 11) // Черника с косточкой
      FOR($str, $str < 5)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 12) // Грибная текила
      FOR($str, $str < 5)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 13) // Черепки в томате
      FOR($str, $str < 6)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 14) // Волчий штык
      FOR($str, $str < 6)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 15) // Глазная настойка
      FOR($str, $str < 7)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 16) // Чесночная лилия
      FOR($str, $str < 7)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 17) // Сонный качан
      FOR($str, $str < 8)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 18) // Гипносон
      FOR($str, $str < 8)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 19) // Хелия
      FOR($str, $str < 9)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 20) // Глазная росянка
      FOR($str, $str < 9)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 21) // Волчья кость
      FOR($str, $str < 10)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 22) // Голова-гриб
      FOR($str, $str < 10)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 23) // Сонхелл
      FOR($str, $str < 11)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 24) // Сонная росянка
      FOR($str, $str < 11)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 25) // Волчья пасть
      FOR($str, $str < 12)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 26) // Волчиум
      FOR($str, $str < 12)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 27) // Зомбиум
      FOR($str, $str < 13)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 28) // Краска Синяя
      FOR($str, $str < 13)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 29) // Краска Розовая
      FOR($str, $str < 14)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 30) // Чернила
      FOR($str, $str < 14)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 31) // Сталь
      FOR($str, $str < 15)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 32) // Зомбаксид
      FOR($str, $str < 15)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 33) // Валенок
      FOR($str, $str < 16)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 34) // Овощная бочка
      FOR($str, $str < 16)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 35) // Палочка-выручалочка
      FOR($str, $str < 17)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 36) // Шоколад
      FOR($str, $str < 17)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 37) // Слёзы зомби
      FOR($str, $str < 18)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 38) // Акварель
      FOR($str, $str < 18)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 39) // Альбом
      FOR($str, $str < 19)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Варить нечего!")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 40) // Так себе по Человековедению
      FOR($str, $str < 19)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 41) // Корректор
      FOR($str, $str < 20)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 42) // Нормально в Зомбологии
      FOR($str, $str < 20)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 43) // Букет
      FOR($str, $str < 21)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 44) // Хорошо по Человековедению
      FOR($str, $str < 21)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 45) // Хорошо по Зомбологии
      FOR($str, $str < 22)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 46) // Шпаргалка
      FOR($str, $str < 22)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 47) // Зомбология на отлично
      FOR($str, $str < 23)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 48) // Человековедение на отлично
      FOR($str, $str < 23)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 49) // Медаль
      FOR($str, $str < 24)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 50) // Компот
      FOR($str, $str < 24)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 51) // Вишнёвый джем
      FOR($str, $str < 25)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
   
   IF($varevo = 52) // Лимонный микс
      FOR($str, $str < 25)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF

   IF($varevo = 53) // Мармелад
      FOR($str, $str < 26)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+581,$vY+364) = 50943)
         $_return1 = $vX+581
         $_return2 = $vY+364
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF      
   END_IF
   
	    IF($varevo = 54) // Чертовщина
      FOR($str, $str < 26)
         GOSUB(проверка)
         WAITMS(50)
         $_return1 = $vX+742
         $_return2 = $vY+399
         GOSUB(клик)
      END_CYC
      WAITMS(300)
      GETSCREEN
      if (pxl($vX+580,$vY+645) = 50943)
         $_return1 = $vX+580
         $_return2 = $vY+645
         GOSUB(клик)
      ELSE
         $wait = $_time_t+300
         $varevo = 0
         $_return1 = $vX+722
         $_return2 = $vY+100
         HINTPOPUP("Нет ингредиентов. Повторная проверка через 5 минут.")
         GOSUB(клик)
      END_IF
   END_IF
	   
END_SUB

//===== ЗВУКИ ==================================================================

SUB(sound1)  // Сундучек!
   IF($sound = 1)
      for($i,$i<3)
         SOUND ("Sound\Sunduk.wav")
         waitms(1900)
      end_cyc
      GOSUB(проверка)
   END_IF
END_SUB

SUB(sound2) // Друг раскопался
   IF($sound = 1)
      for($i,$i<3)
         SOUND ("Sound\Alarm.wav")
         waitms(1500)
      end_cyc
      GOSUB(проверка)
   END_IF
END_SUB

//===== УСТРАНЕНИЕ ПРОБЛЕМ =====================================================

SUB(проверка)
   $proverka = 0
   WHILE($proverka = 0)
      $proverka = 1
      GETSCREEN
      IF($proverka = 1)
         //== СБОЙ СВЯЗИ ===============================================
         IF_PICTURE_IN ($vX+161,$vY+223,$vX+632,$vY+515, "Textures\ZF_BOT_T_Sboi.bmp")
            HINTPOPUP("Сбой связи")
            LOGWRITE("Сбой связи")
            $proverka = 0
            IF($sboi > 0)
               GOSUB(перезагрузка)
            ELSE
               HALT
            END_IF
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== НЕТ ВКОНТАКТА =========================================
         if ((pxl($vX+239,$vY+311) = 16777215) & (pxl($vX+266,$vY+362) = 2261928) & (pxl($vX+303,$vY+293) = 14547199) & (pxl($vX+302,$vY+365) = 5219002))
            HINTPOPUP("НЕТ ВКОНТАКТА")
            LOGWRITE("НЕТ ВКОНТАКТА")
            $proverka = 0
            IF($sboi > 0)
               GOSUB(перезагрузка)
            ELSE
               HALT
            END_IF
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== ПАДЕНИЕ ПЛАГИНА =============================================
         IF(($window = 0) & ($opred = 1))
            $hwndbr2 = hget($vX+403,$vY-16)
            IF($hwndbr ! $hwndbr2)  // Падение браузера
               $proverka = 0
               HINTPOPUP("ПАДЕНИЕ БРАУЗЕРА")
               LOGWRITE("Падение браузера")
               HALT
            END_IF
            $hwnd2 = hget($vX+403,$vY+365)
            IF($hwnd ! $hwnd2)
               $proverka = 0
               HINTPOPUP("Падение флеш плеера")
               LOGWRITE("Падение флеш плеера")
               IF($sboi > 0)
                  GOSUB(перезагрузка)
               ELSE
                  HALT
               END_IF
            END_IF
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== КОЛЛЕКЦИЯ ==================================================
         IF ((pxl($vX+323,$vY+273) = 21910) & (pxl($vX+399,$vY+272) = 21910) & (pxl($vX+478,$vY+273) = 21910) & (pxl($vX+436,$vY+271) = 14547199))
            //  HINTPOPUP("КОЛЛЕКЦИЯ")
            $_return1 = $vX+305
            $_return2 = $vY+458
            GOSUB(клик)
            $_return1 = $vX+314
            $_return2 = $vY+458
            GOSUB(клик)
            $proverka = 0
            WAIT(2)
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== НЕТ МОЗГОВ ===============================================
         //LOGWRITE("НЕТ_МОЗГОВ: ", PXLXOR ($vX+219,$vY+301,$vX+310,$vY+419))
         IF(PXLXOR ($vX+219,$vY+301,$vX+310,$vY+419) = 9005892)
            $_return1 = $vX+252
            $_return2 = $vY+455
            GOSUB(клик)
            HINTPOPUP("Друг раскопался")
            GOSUB(sound2)
            LOGWRITE("Друг раскопался")
            $proverka = 0
            WAIT(1)
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== УЖЕ ДОБЫВАЕТ ===========================================
         //LOGWRITE("УЖЕ_ДОБЫВАЕТ: ", PXLXOR ($vX+214,$vY+284,$vX+338,$vY+427))
         IF(PXLXOR ($vX+214,$vY+284,$vX+338,$vY+427) = 7629285)
            $_return1 = $vX+383
            $_return2 = $vY+457
            GOSUB(клик)
            $proverka = 0
            WAIT(1)
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== ЕЩЕ МОЗГОВ! ===============================================
         IF_PICTURE_IN($vX+99,$vY+99,$vX+736,$vY+551, "textures\ZF_BOT_T_brain.bmp")
            MOVE($vX+29,$vY+188)
            WAITMS(500)
            
            GETSCREEN
            IF_PICTURE_IN($vX+99,$vY+99,$vX+736,$vY+551, "textures\ZF_BOT_T_brain.bmp")
               $_return1 = $_return1-40
               $_return2 = $_return2+185
               GOSUB(клик)
               $proverka = 0
               WAIT(1)
            END_IF
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== СООБЩЕНИЕ О ПОДАРКЕ ==========================================
         IF_PICTURE_IN($vX+184,$vY+271,$vX+351,$vY+432, "textures\ZF_BOT_T_Podarok.bmp")
            MOVE($vX+29,$vY+188)
            WAITMS(500)
            
            GETSCREEN
            IF_PICTURE_IN($vX+184,$vY+271,$vX+351,$vY+432, "textures\ZF_BOT_T_Podarok.bmp")
               $_return1 = $_return1+79
               $_return2 = $_return2+83
               GOSUB(клик)
               WAITMS(100)
               $_return1 = $_return1-12
               $_return2 = $_return2+130
               GOSUB(клик)
               $proverka = 0
               WAIT(1)
            END_IF
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== ЗАКОПАЛИ =================================================
         IF($check_human = 0)
            IF_PICTURE_IN($vX+533,$vY+0,$vX+640,$vY+31, "textures\ZF_BOT_human.bmp")
               $check_human = 1
               $check_human2 = 1
            Else
               $check_human = 1
               $check_human2 = 0
            END_IF
         END_IF
         
         IF($check_human2 = 0)
            IF_PICTURE_IN($vX+156,$vY+238,$vX+400,$vY+462, "textures\ZF_BOT_Vas_zakopali.bmp")
               IF($rascopka = 0)
                  $_return1 = $vX+248 //нераскапывать
               ELSE
                  $_return1 = $vX+520 //раскапывать
               END_IF
               $_return2 = $vY+458
               GOSUB(клик)
               $proverka = 0
               WAIT(1)
            END_IF
         END_IF
      END_IF
      
      IF($proverka = 1)
         //== Задание выполнено (квест) =================================
         IF_PICTURE_IN($vX+99,$vY+99,$vX+736,$vY+551, "textures\ZF_BOT_T_Quest.bmp")
            MOVE($vX+29,$vY+188)
            WAITMS(500)
            
            GETSCREEN
            IF_PICTURE_IN($vX+99,$vY+99,$vX+736,$vY+551, "textures\ZF_BOT_T_Quest.bmp")
               $_return1 = $_return1-44
               $_return2 = $_return2+341
               GOSUB(клик)
               $proverka = 0
               WAIT(1)
            END_IF
         END_IF
      END_IF
   END_CYC
END_SUB

SUB(любые_диалоги) //== ВСЯКИЕ ДРУГИЕ ДИАЛОГИ ==================================
   GETSCREEN
   IF_PICTURE_IN ($vX+17,$vY+3,$vX+804,$vY+703, "textures\ZF_BOT_Close.bmp", 65280)
      MOVE($vX+29,$vY+188)
      WAITMS(600)
      GETSCREEN
      IF_PICTURE_IN ($vX+17,$vY+3,$vX+804,$vY+703, "textures\ZF_BOT_Close.bmp", 65280)
         $_return1 = $_return1+15
         $_return2 = $_return2+12
         GOSUB(клик)
         WAIT(1)
      END_IF
   END_IF
END_SUB

SUB(обновление)  //== Обновление! (Сообщение при загрузке) =====================
   GETSCREEN
   IF_PICTURE_IN($vX+148,$vY+446,$vX+666,$vY+638, "textures\ZF_BOT_Obnovlenie.bmp")
      $_return1 = $vX+135
      $_return2 = $vY+347
      GOSUB(клик)
      WAIT(1)
   END_IF
END_SUB

SUB(перезагрузка) //== ПЕРЕЗАГРУЗКА СТРАНИЦЫ ===================================
   LOGWRITE("Перезагрузка страницы")
   $count_r = 0
   reload:
   $reload = 1
   $opred = 0
   LCLICK($vX+813,$vY+77)
   WAITMS(100)
   KEYPRESS(116)
   HINTPOPUP("Ожидание загрузки игры", "Сообщение")
   
   // Перезагрузка: Этап 1 ожидание загрузочного экрана
   $wait_screen = 1
   $wait_time = $_time_t + 300
   WHILE($wait_screen = 1)
      GETSCREEN
      IF_PICTURE_IN (1,1,$_xmax,$_ymax, "Textures\ZF_BOT_Screen1.bmp")
         //LOGWRITE("Экран загрузки найден")
         $wait_screen = 0
         $wait_time = 0
      Else
         IF($count_r > 3)
            LOGWRITE("Не удалось перезагрузить игру")
            HALT
         END_IF
         
         IF($wait_time < $_time_t)
            $wait_time = 0
            $wait_screen = 0
            INC($count_r, 1)
            goto(reload)
         END_IF
         WAITMS (500)
      END_IF
      
      $hwndbr2 = hget($vX+403,$vY-16)
      IF($hwndbr ! $hwndbr2)  // Падение браузера
         HINTPOPUP("ПАДЕНИЕ БРАУЗЕРА")
         LOGWRITE("Падение браузера")
         HALT
      END_IF
   END_CYC
   
   // Перезагрузка: Этап 2 ожидание загрузки игры
   $wait_screen = 1
   $wait_time = $_time_t + 1200
   WHILE(($wait_screen = 1) & ($wait_time > $_time_t))
      
      GETSCREEN
      IF_PICTURE_IN (1,1,$_xmax,$_ymax, "Textures\ZF_BOT_T_Sboi.bmp")
         HINTPOPUP("Сбой связи")
         LOGWRITE("Сбой связи")
         goto(reload)
      END_IF
      
      GOSUB(любые_диалоги)
      GETSCREEN
      IF_PICTURE_IN (1,1,$_xmax,$_ymax, "Textures\ZF_BOT_Screen2.bmp")
         //LOGWRITE("Игра загружена")
         $wait_screen = 0
         $wait_time = 0
         HINTPOPUP("Игра загружена", "Сообщение")
      Else
         WAITMS (500)
      END_IF
      
      $hwndbr2 = hget($vX+403,$vY-16)
      IF($hwndbr ! $hwndbr2)  // Падение браузера
         HINTPOPUP("ПАДЕНИЕ БРАУЗЕРА")
         LOGWRITE("Падение браузера")
         HALT
      END_IF
   END_CYC
   
   goto(start)
END_IF

END_SUB
 
Пользователь сказал cпасибо:
stels1111 (10.01.2013)
Старый 09.01.2013, 21:55   #942
 Разведчик
Аватар для Incunabula
 
Incunabula никому не известный тип
Регистрация: 28.09.2011
Сообщений: 42
Популярность: 10
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Бот для Зомби фермы

pecypc, спасибо !!! а с бригадой элвиса не мог бы помочь ? выше писал что бы он ее носил по островам и вскапывал, сеял и собирал ...
 
Старый 09.01.2013, 23:34   #943
 Разведчик
Аватар для Anch665
 
Anch665 никому не известный тип
Регистрация: 21.12.2012
Сообщений: 29
Популярность: 10
Сказал(а) спасибо: 20
Поблагодарили 4 раз(а) в 3 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Возможно ли бота заставить варить рецепты с использованием соли?
 
Старый 10.01.2013, 17:35   #944
 Разведчик
Аватар для YolleR
 
YolleR никому не известный тип
Регистрация: 06.01.2013
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

Помогите, пишет падение флеш плеера хотя всё норм
 
Старый 11.01.2013, 23:01   #945
 Разведчик
Аватар для YolleR
 
YolleR никому не известный тип
Регистрация: 06.01.2013
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Бот для Зомби фермы

падение флеш плеера пишет. Браузер хром всё вроде как норм
 
Закрытая тема

Метки
бот, зомби ферма, кликер


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Бот для зомби фермы Ментяра Свободное обсуждение 7 25.05.2015 21:11
[Помогите!] Люди помогите настроить бота для Зомби фермы)))) KaMaZ777 Свободное обсуждение 4 05.04.2011 11:05
[Продам] Для фермы аки---на ру5! .:BLACK-SHIFT:. Dark Orbit 0 30.03.2011 01:50
[Помогите!] Создайте бота для Зомби Фермы, только новой а не старой. Очень надо! drum_terror Свободное обсуждение 3 11.03.2011 20:10
Получи в Зомби Ферме 15 зомби баксов wes666 Свободное обсуждение 5 28.02.2011 23:43

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 22:49.

Пишите нам: forum@zhyk.ru
Copyright © 2025 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net