19 Июня 2025 19:15 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
19.06.2025
Aloha123
01:40:33
offline
14.06.2025
Warhangel
5 дней
offline
11.06.2025
andr3w021
1 неделя
offline
09.06.2025
mariagi...
1 неделя
offline
09.06.2025
filyagr...
1 неделя
offline
Последние фото
Game of Blocks : WesterosCraft and Game of Thrones
Game of Blocks : Wes...
Альбом: Скриншоты

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



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

Последние видео
Видео THE WORLD LIVE -  since 2008 | earthTV : So thank you for the many views of this stream, please enjoy the original classic television version of THE WORLD LIVE, first uploaded here for you in 2008 with just 7 locations.

Онлайн камеры:  THE WORLD LIVE - since 2008 | earthTV

Видео The Best Of Norway's Railway Cab Views : I\

Онлайн камеры:  The Best Of Norway's Railway Cab Views

Видео 130 LIVE World Cameras : 130 LIVE World Cameras, Relaxing Music, Map, Daily Timelapse - Your Armchair Travel

Онлайн камеры:  130 LIVE World Cameras

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

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



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

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

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


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

Скрипт на прохождение квеста на Чудесный Кубик.
Условия начала скрипта - наличие по 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
Ставрополь17.06.2025
(на 1 месяц)
ПАО «Уралкалий» реализует невостребованные ТМЦ
• Хозяйство - Оборудование Цена: 1 1
Пермь16.06.2025
(на 1 месяц)
АО «ШААЗ» реализует неликвиды в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Курган26.05.2025
(на 1 месяц)
Игра Stark World 2024
• Игры - Игровые ресурсы Цена: 1 1
Волгоград11.07.2024
(на 24 месяца)
Облако тегов тем форума
Купить компьютер, Song Dynasty Online в разработке, Какие процессоры лучше, 64-битные или 32-битные? И почему?, TradingView: биткоин стал вторым по популярности активом в США после акций Tesla, Китайская пара продала своих детей чтобы купить голды, Digital Storm Veloce - 13-дюймовый игровой ноутбук от Clevo, Тактика на Синдрагосу, Age of Wushu - Ремесло и собирательство, Противоугонная защита, "Во власти скипетра" (Художественный Фильм), Баги CrossFire 2018, 19 способов понизить пинг на сервере, Как узнать Token and Protocol Version?, Квест на Spellhowler, Итоги первого Всероссийского Турнира кланов LOMA.
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат

Powered by PHP-Fusion copyright © 2002 - 2025 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.