old

procedure Assist;
begin
  while Delay(defaultDelay) do begin
    if (Engine.Status = lsOnline) then begin
      if ((User.Buffs.ByID(IDSKILL_NOBLESSE, noblesse))
      {and (User.Buffs.ByID(IDSKILL_ARCANEPOWER, arcanePower))}
      and (not (Engine.GetZoneType = ztPeace))) then begin

        if ((Party.Chars.ByName(NAME_ASSISTER1, assister1))
        and (not assister1.Dead)
        and (assister1.Buffs.ByID(IDSKILL_NOBLESSE, noblesse))) then begin
          if ((not (assister1.Target = User))
          and (not (assister1.Target.IsMember))
          and (assister1.Target.L2Class = lcChar)
          and (not (assister1.Target.ClanID = User.ClanID))
          and (not (assister1.Target.ClanID = IDCLAN_SMURF))) then
            Engine.SetTarget(assister1.Target);
        end;

        if ((Party.Chars.ByName(NAME_ASSISTER2, assister2))             // Enter 2nd assist nickname
        and (assister1.Dead)
        and (assister2.Buffs.ByID(IDSKILL_NOBLESSE, noblesse))) then begin
          if ((not (assister2.Target = User))
          and (not (assister2.Target.IsMember))
          and (assister2.Target.L2Class = lcChar)
          and (not (assister2.Target.ClanID = User.ClanID))
          and (not (assister2.Target.ClanID = IDCLAN_SMURF))) then
            Engine.SetTarget(assister2.Target);
        end;

        if ((Party.Chars.ByName(NAME_ASSISTER3, assister3))             // Enter 3rd assist nickname
        and (assister1.Dead)
        and (assister2.Dead)
        and (assister3.Buffs.ByID(IDSKILL_NOBLESSE, noblesse))) then begin
          if ((not (assister3.Target = User))
          and (not assister3.Target.IsMember)
          and (assister3.Target.L2Class = lcChar)
          and (not (assister3.Target.ClanID = User.ClanID))
          and (not (assister3.Target.ClanID = IDCLAN_SMURF))) then
            Engine.SetTarget(assister3.Target);
        end;
        if (Party.Chars.ByName(NAME_ASSISTER4, assister4))              // Enter 4th assist nickname
        and (assister1.Dead)
        and (assister2.Dead)
        and (assister3.Dead)
        and (assister4.Buffs.ByID(IDSKILL_NOBLESSE, noblesse)) then begin
          if (not (assister4.Target = User))
          and (not assister4.Target.IsMember)
          and (assister4.Target.L2Class = lcChar)
          and (not (assister4.Target.ClanID = User.ClanID))
          and (not (assister4.Target.ClanID = IDCLAN_SMURF)) then
            Engine.SetTarget(assister4.Target);
        end;
      end;
    end;
  end;
end;