procedure deathshot;
var
P1, P2 : pointer;
Action: TL2Action;
Actor: TL2Live;
SkillID: integer;
begin
 while delay(10) do
  begin
    Action := Engine.WaitAction([laCast], P1, P2);
    if (Action = laCast) and not isAgred(user) then
        begin
            Actor := TL2Live(P1);
            SkillID := Actor.Cast.ID;
if  ((Actor.IsMember)and ((Actor.name=maName) and not isAgred(Actor))   and (SkillID = 990)and (actor.cast.endtime+1000 > 0) and(skillCoolTime(990) < 950)) and (user.distto(actor.target)<900)
            then begin
                Engine.assist(Actor.name);
                delay(10);
                deathcast(user);
  end;
  end;
  end;
  end;