Попробовал своими силами, помогите доделать скрипт
Скрипт на сдачу квеста в Орене. На медали с Махумов.
Пока вышло только начать диалог и сдать квест. А как бы правильно зацыклить? Условие брал с интернета. ИД итема верный. Я запускаю, он сдает 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); // Пауза
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