Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

Попробовал своими силами, помогите доделать скрипт

-

Общение и обсуждение, архив Lineage 2

- Cобытия, информация, вопросы и ответы по Lineage 2

Ответ
 
Опции темы
Старый 15.04.2019, 14:27   #1
 Разведчик
Аватар для Reedus
 
Reedus никому не известный тип
Регистрация: 15.04.2019
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Попробовал своими силами, помогите доделать скрипт

Скрипт на сдачу квеста в Орене. На медали с Махумов.

Пока вышло только начать диалог и сдать квест. А как бы правильно зацыклить? Условие брал с интернета. ИД итема верный. Я запускаю, он сдает 1 раз и стоит. Хелпаните как пустить по кругу. Пока итемов больше 400. Спасибо заранее!

uses SysUtils, Classes;
var Figth_Flag:boolean;
Item: TL2Item;
Npc: TL2Npc;

begin
while Inventory.Quest.ByID(15714, Item) and (Item.count > 400)
do

Delay(1); // Пауза
Engine.SetTarget('Pinaps'); // Выбрать в таргет НПС с таким то ником
Engine.MoveToTarget(-20); // Подойти к НПС
Engine.DlgOpen; // Начать диалог с НПС
Engine.DlgSel(2); // Выбрать диалог по списку
Delay(1); // Пауза
Engine.DlgSel(1);
Delay(1); // Пауза
Engine.DlgSel(1);
Delay(1); // Пауза
//Engine.DlgClose;
Engine.DlgSel(1);
Delay(1); // Пауза

end.
  Ответить с цитированием
Старый 17.04.2019, 22:53   #2
 Старший сержант
Аватар для ScythLab
 
ScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нацииScythLab гордость нации
Регистрация: 24.10.2014
Сообщений: 216
Популярность: 2780
Сказал(а) спасибо: 19
Поблагодарили 22 раз(а) в 16 сообщениях
 
По умолчанию Re: Попробовал своими силами, помогите доделать скрипт

После do поставить begin, и куда-то влепить end.
PS. Еще подредактировать условие, добавить контроль, что предметы уменьшаются и будет счастье.
________________
ScythBot: [Ссылки могут видеть только зарегистрированные пользователи. ].
Не забываем кликать "Спасибо", вам бесплатно, а мне приятно
  Ответить с цитированием
Старый 18.04.2019, 07:09   #3
Super Moderator
 Маршал
Аватар для Тигрь
 
Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(
Регистрация: 05.05.2009
Сообщений: 875
Популярность: 48955
Золото Zhyk.Ru: 850
Сказал(а) спасибо: 155
Поблагодарили 739 раз(а) в 274 сообщениях
 
По умолчанию Re: Попробовал своими силами, помогите доделать скрипт

Код:
uses 
  SysUtils,
  Classes;
var 
  Figth_Flag:boolean;
  Item: TL2Item;
  Npc: TL2Npc;
begin
  while Inventory.Quest.ByID(15714, Item) and (Item.count > 400) do
  begin
    Delay(1); // Пауза
    Engine.SetTarget('Pinaps'); // Выбрать в таргет НПС с таким то ником
    Engine.MoveToTarget(-20); // Подойти к НПС
    Engine.DlgOpen; // Начать диалог с НПС
    Engine.DlgSel(2); // Выбрать диалог по списку
    Delay(1); // Пауза
    Engine.DlgSel(1);
    Delay(1); // Пауза
    Engine.DlgSel(1);
    Delay(1); // Пауза
    //Engine.DlgClose;
    Engine.DlgSel(1);
    Delay(1); // Пауза
  end;
end.
учитесь нормально код оформлять а не все строки писать с начала строки. тогда и ошибки будет сразу видно.
________________
Продаю приват читы для AION Absolute, desteny 3.5, Legend, Cataclysm, Ru, EU, NA
Продаю многооконку на R2 Пишу читы на заказ под любые игры. Предложения в ЛС.
Все мои читы/программы/статьи тут: http://zhyk.ru/forum/showpost.php?p=38501&postcount=21
  Ответить с цитированием
Ответ

Метки
орен квест, скрипт, скрипт квест, скрипт махумы

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Руководство] Заточка до +5 своими силами. _ZeRG_ Общение и обсуждение Perfect World 83 04.03.2015 07:04
Помогите пожалуйста помочь доделать МЕНЮ в C++ serega0106 Вопросы и ответы, обсуждения 0 01.02.2012 07:45
[Помогите!] la2.hutor.ru помогите доделать плз.IG+OOG dotais Заявки на настройку бота 1 23.07.2011 15:13
Помогите доделать скрипт))) =CLOSED= Общение и обсуждение Aion 5 17.05.2011 14:18

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 01:50.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net