var
Npc: TL2Npc;
i: integer;
begin
// Заход в инстансу
Npc:= nil;
for i:= 0 to NpcList.count - 1 do
if (pos('Хранитель', NpcList(i).name) > 0) and
(User.DistTo(NpcList(i)) < 300) then
begin
Npc:= NpcList(i);
break;
end;
if (Npc.valid) then
Engine.FaceControl(0, false);
if (Npc.valid) and ((User = Party.Leader) or (not Party.Leader.valid)) then
begin
Engine.SetTarget(Npc);
Engine.DlgOpen;
delay(50);
Engine.DlgSel(1, 50);
end;
if (Npc <> nil) and (not Npc.valid) then
begin
print('Вход в инстансу совершен');
Engine.FaceControl(0, true);
end;
end.