28 Марта 2024 18:38 
Заработай шерингом
Навигация
 +  - 
Скачать игры
Сейчас на сайте
24.03.2024
4071505
4 дней
offline
20.03.2024
V1ad
1 неделя
offline
19.03.2024
nhocly1
1 неделя
offline
17.03.2024
Jevelin
1 неделя
offline
14.03.2024
albinam...
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 сообщений по данной теме, которая была просмотрена 2077 раз.
Реклама
Обменник Обменник
Просмотр темы
Логин:
Пароль:  
Форум » Игровые форумы » Lineage » Боты и скрипты
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов)  
Ответить
Иконка 
Адреналин: Квест на Чудесный Кубик
Наверх Распечатать сообщение #1
Опубликовано 06-04-2021 13:53
Аватар пользователя

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



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

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

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


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

Скрипт на прохождение квеста на Чудесный Кубик.
Условия начала скрипта - наличие по 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.03.2024
(на 1 месяц)
Группа «Илим» реализует неликвиды своих предприятий
• Хозяйство - Оборудование Цена: 1 1
Санкт-Петербург16.03.2024
(на 1 месяц)
ООО «Ставролен» реализует неликвиды
• Хозяйство - Сырье и материалы Цена: 1 1
Ставрополь13.03.2024
(на 1 месяц)
ПАО «Уралкалий» реализует невостребованные ТМЦ в ассортименте
• Хозяйство - Оборудование Цена: 1 1
Пермь09.03.2024
(на 1 месяц)
Облако тегов тем форума
Копейщик, Разрушитель и гномы – прокачка, Как успешно пройти проверку лицензионности Windows XP, Купить компьютер, Топ-12 самых ожидаемых 2019, Квест на Gladiator, Запчасти для двигателей, Квест на профессию Adventurer для Treasure Hunter, Швейцарское подразделение Газпромбанка провело первые сделки с BTC, Scoria исходники защиты SPS, DigitalMint установила криптоматы в 20 магазинах сети Circle K в США, Артур Хейс рассказал о вложениях в токены проектов DeFi, К 2017 году у 2,2 млн россиян будет спутниковый Интернет, Отзывы Тут - Вся правда о компаниях, Умения играют важную роль в Guild Wars 2, 1503 А.D.: Тhe New Wоrld
Главная Статьи Файлы Форум Ссылки Новости Фотогалерея Объявления Видео Файлобменник Гороскоп Торренты Радио Видеочат
Powered by PHP-Fusion copyright © 2002 - 2024 by Nick Jones. Released as free software without warranties under GNU Affero GPL v3.