Program Ent;
var
t:Integer;

{$Include 'all.inc'}

Begin
SetARStatus(true);
while not dead do
begin
for t:= 0 to 30 do
begin
if targetPresent then canceltarget;
Checktargeterror(2,2);
CheckSave;
UseSkill('Enticement');
WaitTargetObject($03862DA5); //ID твари которую будете брать на интисмент
wait(500);
WaitTargetObject(self);
wait(2800);
end;
end; {end while}
End.