21 Апреля 2021 21:11 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
20.04.2021
Sacrame...
23:24:30
offline
20.04.2021
Warhangel
1 день
offline
19.04.2021
Doom
2 дней
offline
14.04.2021
theconq...
1 неделя
offline
02.04.2021
atlande...
2 недель
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

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



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

Последние видео
Видео The Heretic: the complete short film : The Heretic is a short film created by Unity’s Demo team. After debuting its first part at GDC 2019, the completed short is now available to watch in its entirety.

Игрофильмы:  The Heretic: the complete short film

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

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

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

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

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

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



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

Зарегистрирован: 24.03.10
Со дня регистрации: 4046
Откуда: Россия

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


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

Скрипт на прохождение квеста на Чудесный Кубик.
Условия начала скрипта - наличие по 10 штук Проворных, Толстых и Уродливых Оранжевых рыбок.
Начать скрипт у входа в церковь Гирана.
Без рыбалки.



 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 RunToHelvetia;
 begin
    while User.InCombat do     //Если в бою, ждем.
      begin
      print'В бою, жду...';
      delay(5000);
      end;
    if CheckItemCount(6450) or
  CheckItemCount(6451) or
  CheckItemCount(6452) < 10 then  //Нет рыбки - конец.
  Print 'Нет рыбки, отбой';
    if CheckItemCount(6450) and
  CheckItemCount(6451) and
  CheckItemCount(6452) >= 10 then //Есть рыбка - погнали.
  begin
    Print 'Рыбка есть, начинаю';
    Engine.BypassToServer('_bbshome'); // TP Giran
    Delay(500);
    Engine.BypassToServer('_support_teleport_0_0'); // TP Giran
    Delay(500);
    Engine.BypassToServer('_support_teleport_0_1_0'); // TP Giran
    Delay(500);
    Engine.BypassToServer('_support_teleport_1_1_0'); // TP Giran
    Delay(7000);
    Engine.MoveTo(82985, 148436, -3495);   //Бежим в Гроцери
    Engine.MoveTo(81552, 147509, -3490);
    Engine.MoveTo(81496, 147228, -3559);
    Engine.MoveTo(81281, 146917, -3559);
    Engine.MoveTo(81136, 146956, -3559);
    Engine.MoveTo(80018, 147430, -3559);
    Engine.MoveTo(79986, 147582, -3559);
    Engine.MoveTo(80058, 147640, -3535);
    Engine.MoveTo(80102, 147641, -3534);
    Engine.MoveTo(80452, 147889, -3533);
    start();
    end;
    end;
 
 
 procedure start;
 begin
  Engine.GetMailItems;        //Принимаем почту(если работает на вашем серве)
  Delay(500);
  Engine.Settarget(30081);    //Helvetia
Delay(500);
Engine.Dlgopen;
Delay(500);
Engine.DlgSel(&# 39;Quest');
Delay(500);
Engine.DlgSel(1);
Delay(500);
check();
 end;
 
 procedure check;
 begin
 if Engine.QuestStatus(40,5) then       //Если квест на манор - отменяем.
 begin
 print 'Взял квест на манор, отменяю';
 Engine.CancelQuest(40);
 start();
 end ;
 if Engine.QuestStatus(40,2) then       //Если квест на рыбку - продолжаем.
 begin
 print 'Взял квест на рыбку, все норм';
 ofulle();
 end;
 end;
 
 procedure ofulle;
 begin
 Engine.MoveTo(80466, 147794, -3504);
 Engine.MoveTo(80491, 147732, -3534);
 Engine.Settarget(31572);    //ofulle
 Delay(500);
 Engine.Dlgopen;
 Delay(500);
 Engine.DlgSel('Quest');
 Delay(500);
 Engine.DlgSel(4);
 Delay(500);
 Engine.DlgSel(1);
 Delay(500);
 Engine.DlgSel(1);
 Delay(500);
 Engine.Dlgopen;
 Delay(500);
 En gine.DlgSel('Quest');
 Delay(500);
 Engine.DlgSel(4);
 Delay(500);
 Engine.MoveTo(80435, 147801, -3534);
 Engine.MoveTo(80461, 147902, -3533);
 Delay(500);
 Engine.Settarget(30081);    //Helvetia
 Delay(500);
 Engine.Dlgopen;
 Delay(500);
 Engine.DlgSel('Quest');
 Delay(500);
 Engine.DlgSel(1);
 Delay(500);
 itog();
end;
 
 procedure itog;                    //Проверка на наличие кубика
 begin
 if CheckItemCount(10632) > 0 then
 print 'Готово, кубик у нас!';
 if CheckItemCount(10632) < 1 then
 print 'Что-то пошло не так, кубика нет(';
end;
begin
if User.level > 0 then RunToHelvetia;
end.


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

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

Последние объявления
ФотоЗаголовокГородРазмещено
Филиал «КЧХК» АО ОХК УРАЛХИМ реализует неликвиды
• Хозяйство - Оборудование Цена: 1 1
Киров18.04.2021
(на 1 месяц)
Тайские Лекарства от целлюлита помагают сбросить лишний вес
• Для дома - Здоровье Цена: 1 1
Санкт-Петербург10.10.2020
(на 24 месяца)
Магазин абразивных материалов «Абразивмастер»
• Хозяйство - Оборудование Цена: 1 1
Москва17.06.2020
(на 24 месяца)
Самое лучшее для похудения помогают народные рецепты для похудения в аптеке
• Для дома - Здоровье Цена: 1 1
Москва20.02.2020
(на 24 месяца)
Аптека поможет похудеть эффективно и продает капсулы самая лучшая диета
• Для дома - Здоровье Цена: 1 1
Ярославль22.12.2019
(на 24 месяца)
Облако тегов тем форума
Исходник Counter-Strike 1.6, Бесплатные VPN-сервисы, которые могут продать ваши данные, [CS: Source] Как сделать действия админа невидимыми, Исходный код команды ihgap, Cosmopolitan рекомендует Айон, ЦБ Китая и ОАЭ присоединяются к проекту «моста» для государственных криптовалют Таиланда и Гонконга, Как выбирать девушек, на примере автомобиля, Японская финансовая группа SBI запустила сервис кредитования в биткоинах, Mortal Kombat: Legacy - четвертый эпизод, Гайд Lockpicking [1-350], ТРОН: Наследие. Русский трейлер HD, Адреналин: автоквест нублес, тарас, баюм, валик, POS - руководство пользователя, Банк Кореи будет использовать блокчейн для развития экономики, Hunted: The Forge - За кулисами разработки
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат
Яндекс.Метрика
Powered by PHP-Fusion copyright © 2002 - 2021 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.