[Помогите!] Попробовал своими силами, помогите доделать скрипт - Zhyk.Ru Forums
Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.Ru LIVE! Реклама на Zhyk.Ru Доска почета top.zhyk.ru (beta) Премиум-аккаунт

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

-

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

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

Ответ
 
Опции темы Опции просмотра
Старый 15.04.2019, 13: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, 21:53   #2
 Сержант
Аватар для ScythLab
 
ScythLab определенно авторитетная личностьScythLab определенно авторитетная личностьScythLab определенно авторитетная личностьScythLab определенно авторитетная личностьScythLab определенно авторитетная личностьScythLab определенно авторитетная личностьScythLab определенно авторитетная личностьScythLab определенно авторитетная личностьScythLab определенно авторитетная личность
Регистрация: 24.10.2014
Сообщений: 166
Популярность: 1129
Сказал(а) спасибо: 2
Поблагодарили 15 раз(а) в 9 сообщениях
 
По умолчанию Re: Попробовал своими силами, помогите доделать скрипт

После do поставить begin, и куда-то влепить end.
PS. Еще подредактировать условие, добавить контроль, что предметы уменьшаются и будет счастье.
________________
ScythBot: [Ссылки могут видеть только зарегистрированные пользователи. ].
Не забываем кликать "Спасибо", вам бесплатно, а мне приятно
  Ответить с цитированием
Старый 18.04.2019, 06:09   #3
Младший Модератор
 Лейтенант-командор
Аватар для Тигрь
 
Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(Тигрь сломал счётчик популярности :(
Регистрация: 05.05.2009
Сообщений: 744
Популярность: 42914
Золото Zhyk.Ru: 850
Сказал(а) спасибо: 136
Поблагодарили 731 раз(а) в 269 сообщениях
 
По умолчанию 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 Cynix, OldAion, 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 06:04
Помогите пожалуйста помочь доделать МЕНЮ в C++ serega0106 Вопросы и ответы, обсуждения 0 01.02.2012 06:45
[Помогите!] la2.hutor.ru помогите доделать плз.IG+OOG dotais Заявки на настройку бота 1 23.07.2011 14:13
Помогите доделать скрипт))) =CLOSED= Общение и обсуждение Aion 5 17.05.2011 13:18

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

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

Пишите нам: forum@zhyk.ru
Copyright © 2019 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net