procedure sop228;
var
P1, P2 : pointer;
Action: TL2Action;
Actor: TL2Live;
SkillID: integer;
begin
while Engine.Status = lsOnline do
begin
Action := Engine.WaitAction([laCast], P1, P2);
if Action = laCast then
begin
Actor := TL2Live(P1);
SkillID := Actor.Cast.ID;
if (User.DistTo(Actor)<700) and not (Actor.IsMember) and ((SkillID = ай) or (skillId = ай))
then
begin
Engine.SetTarget(Actor);
delay(10);
engine.useskill(1436);
delay(10);
end;
end;
end;
end;
begin
script.newthread(@sop228);
end.