Code: Select all
procedure startQuest();
var
gi : TGumpInfo;
i : Integer;
begin
while (GetX(self()) <> questCoordsX) or (GetY(self()) <> questCoordsY) do
begin
NewMoveXY(questCoordsX, questCoordsY, True, 0, True);
Wait(1000);
end;
UseObject(questGiverID);
Wait(1000);
if NumGumpButton(0, ContinueButton) then
Wait(1000);
GetGumpInfo(GetGumpsCount - 1, gi);
if Length(gi.XmfHTMLGumpColor) > 0 then
for i := 0 to Length(gi.XmfHTMLGumpColor) - 1 do
if 'crossbow bolts' := GetClilocByID(gi.XmfHTMLGumpColor[i],Cliloc_id) then
begin
AddToSystemJournal('OK');
end;
//AddToSystemJournal(GetClilocByID(gi.XmfHTMLGumpColor[i].Cliloc_id));
end;
with the Script do not work, help me! thanks.