Code: Select all

function ItemID(Item: cardinal):boolean;
begin
UOSay('.itemid');
if not WaitForTarget(5000) then exit;
TargetToObject(Item);
if not CheckLag(5000) then exit;
WaitGump('2055');
result:= true;
end;

Code: Select all

procedure CastWallNPC;
begin
 Cast('Wall Of Stone');
 WaitTargetXYZ(GetX(NPC), GetY(NPC), GetZ(NPC));
end;

Code: Select all

procedure CastWallNPC;
begin
 Cast('Wall Of Stone');
 WaitTargetObject(NPC);
end;

Code: Select all

NPC: cardinal;

Code: Select all

procedure CloseContainer;
begin
UseObject(Backpack);
end;

function IsContainerOpened(Container: cardinal):boolean;
begin
result:= LastContainer = Container;
end;

Code: Select all

procedure OnGumpIncoming(ID, GumpID, X, Y: cardinal);
begin
AddToSystemJournal('!');
end;

begin
SetEventProc(evIncomingGump, 'OnGumpIncoming');
while true do wait(1000);
end.