(first i m so sorry for my english i no good in this language) I need your help, if any one can help me. I try to do a script for a quest JOURNEY TO A SETTLEMENT, in my server this quest is repeatable and i get many passes for frintezza boss. I write the script but don't work property, i want to do the script do the quest for eg 10 time, but i cant do the loop work fine, so if any can read this script and meaby can tell me what is wrong.
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
//QUEST JOURNEY TO A SETTLEMENT //
// //
// //
//Localización: four mausoleums muy adentro en imperial tomb en Town Goddard //
//Begin NPC: Nameless Spirit //
//Reward: Frintezza's Magic Force Field Removal Scroll //
//Quest repetible: in this server "yes" //
// //
//1ª Nameless Spirit will ask you to bring antelope skin. //
//2ª Kill antelope canyon y antelope canyon slave en wall of argos to get the quest item antelope skin X 1 //
// then go back to NPC. //
//3ª speak with Nameless Spirit and give him the antelope skin. //
//4ª him reward you with the Frintezza's Magic Force Field Removal Scroll. //
//5ª take the quest again. //
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
var
QuestItem: TL2Item;
Item: TL2Item;
begin
Engine.MoveTo(147960,-55272,-2728);
//move to Goddard GK Tatiana
Delay(500);
Engine.SetTarget(31275);
//Target GK Tatiana
Delay(500);
Engine.DlgOpen;
//Talk GK Tatiana
Delay(500);
Engine.DlgSel('[Noblesse Exclusive] Teleport');
//select Nobles Teleport
Delay(500);
Engine.DlgSel(2);
// Select Teleport Hounting Ground without Token
Delay(500);
Engine.DlgSel('Four Sepulchers - 1000 9');
// Select destination Four sepulchers teleport
Delay(500);
Engine.CancelTarget;
// Cancel Target GK Tatiana
Engine.MoveTo(178296,-85560,-7216);
//Move Nameless Spirit NPC (begin of the quest)
Delay(500);
Engine.SetTarget(31453);
//Target Nameless Spirit
Delay(500);
Engine.DlgOpen;
// talk with NPC Nameless Spirit
Delay(500);
Engine.DlgSel('Quest');
//Request quest
Delay(500);
Engine.DlgSel('65402');
// Select Quest Journey to a Settlement
Delay(500);
Engine.DlgSel('I will do it.');
//accept the quest
Delay(500);
Engine.CancelTarget;
// Cancel Target Nameless Spirit
if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin
//ID 8073 is Frintezza Magic Force Field Removal Scroll final reward from quest, this item is save it into the user inventory
Engine.UseItem(736);
//Take Soe
Delay(10000);
Engine.MoveTo(147960,-55272,-2728);
//Move to GK Tatiana
Delay(500);
Engine.SetTarget(31275);
//Target GK Tatiana
Delay(500);
Engine.DlgOpen;
// Talk with GK Tatiana
Delay(500);
Engine.DlgSel('Teleport');
//Select Teleport
Delay(500);
Engine.DlgSel('Wall of Argos - 2200 9');
//Select destination wall of argos
Delay(500);
Engine.CancelTarget;
// Cancel Target GK Tatiana
if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin
// ID 8072 is Antilope Skin item first part of quest only need one, this item is save it into the quest user inventory
Engine.FaceControl(0,true);
// activate BOT
end.
Engine.FaceControl(0,false);
// deactivate BOT
Engine.UseItem(736);
//Take Soe
Delay(10000);
Engine.MoveTo(147960,-55272,-2728);
//Move GK Tatiana
Delay(500);
Engine.SetTarget(31275);
//Target GK Tatiana
Delay(500);
Engine.DlgOpen;
//Talk GK Tatiana
Delay(500);
Engine.DlgSel('[Noblesse Exclusive] Teleport');
//select Nobles Teleport
Delay(500);
Engine.DlgSel(2);
// Select Teleport Hounting Ground without Token
Delay(500);
Engine.DlgSel('Four Sepulchers - 1000 9');
// Select destination Four sepulchers teleport
Delay(500);
Engine.CancelTarget;
// Cancel Target GK Tatiana
Engine.MoveTo(178296,-85560,-7216);
//Move to Nameless Spirit
Delay(500);
Engine.SetTarget(31453);
//Target Nameless Spirit
Delay(500);
Engine.DlgOpen;
//Talk Nameless Spirit
Delay(500);
Engine.DlgSel('Quest');
// Select Quest
Delay(500);
Engine.DlgSel('65402');
// Select Journey to a Settlement
Delay(500);
Engine.DlgSel('Here it is.');
// Give Item ID 8072 to NPC
Delay(500);
Engine.DlgOpen;
//Talk Nameless Spirit
Delay(500);
Engine.DlgSel('Quest');
// Select Quest
Delay(500);
Engine.DlgSel('65402');
// Select Journey to a Settlement
Delay(500);
Engine.DlgSel('I will do it.');
//accept the quest
Delay(500);
Engine.CancelTarget;
// Cancel Target Nameless Spirit
end.
end.