17 Августа 2018 06:20 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
16.08.2018
Warhangel
11:53:21
offline
15.08.2018
kills
1 день
offline
13.08.2018
littledie
3 дней
offline
10.08.2018
krit131
1 неделя
offline
09.08.2018
inomn
1 неделя
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Вынос трёх пати куполом
Альбом: Скриншоты



Альбом: Флора

Последние видео
Видео ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик : Короткометражный CGI-фильм, посвященный игре The Elder Scrolls Online.

Игрофильмы:  ТРИ СУДЬБЫ - Короткометражный фэнтези-боевик

Видео Rhine Falls : Rhine Falls Live Camera streeeam

Онлайн камеры:  Rhine Falls

Видео Live Cam, Central Memorial Park, Calgary, Alberta : Central Memorial Park is a park located in central Calgary\

Онлайн камеры:  Live Cam, Central Memorial Park, Calgary, Alberta

Наша кнопочка
FAQ7.ru
Код:
RSS каналы
Новости
Комменты
Форум
Статьи
Фото
Файлы
Ссылки
Объявления
Реклама
Регистрация сайта в каталогах, раскрутка и оптимизация сайта, контекстная реклама
Автор темы: Warhangel
ID темы: 2063
Информация о теме:
Имеются 1 сообщений по данной теме, которая была просмотрена 119 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: Варка Hellfire Oil и Lunargent
Наверх Распечатать сообщение #1
Опубликовано 17-06-2018 04:46
Аватар пользователя

Супер Администратор



Сообщений: 2121
Вас поблагодарили: 18
раз(а) в 18 сообщениях

Зарегистрирован: 24.03.10
Со дня регистрации: 3068
Откуда: Россия
Пол: Мужской

Скрыть награды


Пожаловаться на это сообщение 

Для для l2server.ru - Interlude

uses SysUtils, Classes;

function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var
  tempItem: TL2Item;
begin
  if quest then
    Inventory.Quest.ByID(itemID, tempItem)
  else
    Inventory.User.ByID(itemID, tempItem);
  Result := tempItem.Count;
end;

procedure CreateMoonDust;
begin
  Engine.SetTarget(31149);
  Engine.DlgOpen;
  Delay(1500);
  Engine.DlgSel(2); // Квест
  Delay(500);
  Engine.DlgSel(1); // Вставить в урну
  Delay(500);
  Engine.DlgSel(3); // муны 10 шт
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(2); // вулканик
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // первая температура
  Delay(500);
  Engine.DlgSel(1); // смешать
  Delay(500);
end;

procedure CreateLunagent;
begin
  Engine.SetTarget(31149);
  Engine.DlgOpen;
  Delay(1500);
  Engine.DlgSel(2); // Квест
  Delay(500);
  Engine.DlgSel(1); // Вставить в урну
  Delay(500);
  Engine.DlgSel(9); // мундуст
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(3); // квиксильвер
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // первая температура
  Delay(500);
  Engine.DlgSel(1); // смешать
  Delay(500);
end;

procedure CreateMagmaDust;
begin
  Engine.SetTarget(31149);
  Engine.DlgOpen;
  Delay(1500);
  Engine.DlgSel(2); // Квест
  Delay(500);
  Engine.DlgSel(1); // Вставить в урну
  Delay(500);
  Engine.DlgSel(2); // лавастоуны
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(2); // вулканик
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // первая температура
  Delay(500);
  Engine.DlgSel(1); // смешать
  Delay(500);
end;

procedure CreateDemonplasm;
begin
  Engine.SetTarget(31149);
  Engine.DlgOpen;
  Delay(1500);
  Engine.DlgSel(2); // Квест
  Delay(500);
  Engine.DlgSel(1); // Вставить в урну
  Delay(500);
  Engine.DlgSel(5); // демонблуд
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // блутрут
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // первая температура
  Delay(500);
  Engine.DlgSel(1); // смешать
  Delay(500);
end;

procedure CreateFireEssense;
begin
  Engine.SetTarget(31149);
  Engine.DlgOpen;
  Delay(1500);
  Engine.DlgSel(2); // Квест
  Delay(500);
  Engine.DlgSel(1); // Вставить в урну
  Delay(500);
  Engine.DlgSel(8); // магмадуст
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(4); // сурфур
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // первая температура
  Delay(500);
  Engine.DlgSel(1); // смешать
  Delay(500);
end;

procedure CreateDemonicEssense;
begin
  Engine.SetTarget(31149);
  Engine.DlgOpen;
  Delay(1500);
  Engine.DlgSel(2); // Квест
  Delay(500);
  Engine.DlgSel(1); // Вставить в урну
  Delay(500);
  Engine.DlgSel(11); // демонплазм
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(4); // сурфур
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // первая температура
  Delay(500);
  Engine.DlgSel(1); // смешать
  Delay(500);
end;

procedure CreateHellfireOil;
begin
  Engine.SetTarget(31149);
  Engine.DlgOpen;
  Delay(1500);
  Engine.DlgSel(2); // Квест
  Delay(500);
  Engine.DlgSel(1); // Вставить в урну
  Delay(500);
  Engine.DlgSel(13); // фаерэсенция
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(5); // демоникэсенция
  Delay(500);
  Engine.DlgSel(1); // след шаг
  Delay(500);
  Engine.DlgSel(1); // первая температура
  Delay(500);
  Engine.DlgSel(1); // смешать
  Delay(500);
end;

begin
  Print('Начинаем!');

  Print('Варим "MoonDust"');

  while (CheckItemCount(6013) >= 10) and (CheckItemCount(6018) >= 1) do begin
    CreateMoonDust;
  end;
   
  Print('Варим "Lunagent"');

  while (CheckItemCount(6023) >= 10) and (CheckItemCount(6019) >= 1) do begin
    CreateLunagent;
  end;

  Print('Варим "MagmaDust"');
 
  while (CheckItemCount(6012) >= 10) and (CheckItemCount(6018) >= 1) do begin
    CreateMagmaDust;
  end;

  Print('Варим "Demonplasm"');
 
  while (CheckItemCount(6015) >= 10) and (CheckItemCount(6017) >= 1) do begin
    CreateDemonplasm;
  end;

  Print('Варим "FireEssense"');
 
  while (CheckItemCount(6022) >= 10) and (CheckItemCount(6020) >= 1) do begin
    CreateFireEssense;
  end;

  Print('Варим "DemonicEssense"');
 
  while (CheckItemCount(6025) >= 10) and (CheckItemCount(6020) >= 1) do begin
    CreateDemonicEssense;
  end;

  Print('Варим "HellfireOil"');
 
  while (CheckItemCount(6028) >= 1) and (CheckItemCount(6031) >= 1) do begin
    CreateHellfireOil;
  end;

  Print('Все!');
end.
 Offline
 
Посетить сайт автора
Цитировать
Ответить
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)

« Предыдущая тема | Следующая тема »
 RSS Перейти на форум:
Розыгрыши 728х90

Последние объявления
ФотоЗаголовокГородРазмещено
ООО «Ставролен» продает неликвиды
• Хозяйство - Оборудование Цена: 1 1
Ставрополь11.08.2018
(на 1 месяц)
Группа «Илим» реализует неликвиды своих предприятий
• Хозяйство - Оборудование Цена: 1 1
Санкт-Петербург23.07.2018
(на 1 месяц)
Купим автоматическую систему газового пожаротушения
• Хозяйство - Оборудование Цена: 1 1
Красноярск24.04.2018
(на 6 месяцев)
Интернет-магазин velobum.com.ua
• Транспорт - Велотранспорт Цена: 1 1
Белгород22.03.2018
(на 6 месяцев)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Облако тегов тем форума
Трейлер CBT 5 от Tencent Games, ArcheAge - подборка видеороликов, Актер, привлекший к телеэкранам наибольшее количество людей в истории, Фитинг корабля, Gyo - рыбье гуро одним глазком, Притча, Гордость Таэрна (Pride of Taern) - браузерная MMORPG от компании Whitemoon, Как по подписи определить характер Проверь себя!, Кем играть в archeage?, Почему иммунные клетки не гибнут от собственного яда, TERA - видео Dark Awakening, Начата публикация видеоруководств по игре, Желтые розы: значение подарка, Проверенный многими вид заработка в Интернете, Валериан и город тысячи планет
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2018 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.