procedure Tournament();
var
  i: integer;
  npc: TL2Live;
begin
  while true do
  begin
    NpcList.ByID(27250, npc);
    if (Assigned(npc)) then
    begin
      Engine.SetTarget(npc);
      Engine.MoveTo(npc);
      Engine.DlgOpen;
      Engine.DlgSel(3);
      //Engine.DlgSel(1);
      delay(5000);
    end;
  end;
end;

procedure getTarget();
var
  i: integer;
  i2: integer;
begin
  while true do
  begin
    //delay(5000);
    print(CharList.Count);
    if CharList.Count<10 then
    begin
    for i:= 0 to CharList.Count-1 do
    begin
      //if (CharList(i).InZone) or (User.DistTo(CharList(i)) < 2000) then
      if (User.DistTo(CharList(i)) < 2000) then
      begin
        //engine.settarget(CharList(i));
      delay(100);
      engine.settarget(CharList(i));
      //delay(100);
      //engine.useskill(1339);
      delay(100);
      engine.useskill(1083);
      for i2:=0 to 10 do
      begin
        engine.useskill(1230);
      end;
      end;
    end;
    end;
  end;
end;

begin
  Script.NewThread(@Tournament);
  Script.NewThread(@getTarget);
end.