24 Августа 2019 16:25 
Навигация
 +  - 
Скачать игры
Сейчас на сайте
24.08.2019
Warhangel
09:50:39
offline
22.08.2019
jeka_1989
1 день
offline
22.08.2019
syby4ez
1 день
offline
21.08.2019
idolgf
2 дней
offline
18.08.2019
voodi4
6 дней
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 сообщений по данной теме, которая была просмотрена 375 раз.
Реклама
livecoin Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: Варка Hellfire Oil и Lunargent
Наверх Распечатать сообщение #1
Опубликовано 17-06-2018 04:46
Аватар пользователя

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



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

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

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


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

Для для 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
Ставрополь17.08.2019
(на 1 месяц)
Поставщик кафельной плитки ПРАЙД Керамика
• Хозяйство - Сырье и материалы Цена: 1 1
Москва07.06.2019
(на 24 месяца)
Справка о несудимости в Москве
• Работа и бизнес - Разное Цена: 1 1
Москва05.12.2018
(на 24 месяца)
Универсальный гипермаркет Gecsa
• Развлечения - Туризм Цена: 1 1
Казань06.11.2017
(на 24 месяца)
Продажа опрессовочного оборудования для РВД
• Хозяйство - Оборудование Цена: 1 1
Москва18.10.2017
(на 24 месяца)
Облако тегов тем форума
9 качеств миллионеров по исследованию журнала Forbes, Квест на Cleric, Ixion Saga Online - первое видео, Патч для PTS от 9.03.13, Высказывания на латыни, ROMEWAR - как играть!, Free Realms - версия для PS3 будет показана на E3, Квест на Tyrant, Platinum motorspot "Epic", R2 online — Прохождение всех квестов Колфорта, Компиляция L2jFree, Пожилой, но шебутной коллега, Как определить неисправность дисплея (матрицы) ноутбука, Знали ли Вы насколько полезна клавиша Win на Вашей клавиатуре?, Как студент ответил на вопрос про АД
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Поиск по торрентам Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2019 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.