помогите разобраться пожалуйста

[Chakopay]

Спасибо посмеялся с примеров
fAkeN

 

[Denis63RUS]

@DreD, И в таргет не берёт? Если в ручную их атакуешь, то с зажатым ктрл, или просто?
попробуй вот так:

var
i:integer;
 
begin
  while 1=1 do begin
    for i:= 0 to CharList.count-1 do
    if (Charlist.Items(i).OID<>0)
    and (not CharList.Items(i).dead)
    and (user.distto(CharList.Items(i)) < 1500)
     then
      begin
      Engine.SetTarget(Charlist(i));
      Engine.attack;   // Твой скилл
      delay(500);
     end;
  end;
end.

 

[DreD]

@Denis63RUS, спасибо большое дружище берёт в таржет но не всех а некоторых только
) но и на этом огромное спасибо , лайк поставил самым активным участникам темы

 

[DreD]

@Denis63RUS, ещё проблемма скрипт работает но он пару раз стукнет моба не убивает его до конца и меняет таржет

 

[Denis63RUS]

Выполни скрипт ниже и потом скопируй сюда содержание файла c:\log1.txt

uses Classes, SysUtils;
var
i:integer;
L : TStringList;
begin
   L := TStringList.Create; 
   for i:= 0 to CharList.count-1 do
   if (not CharList.Items(i).dead) and (user.distto(CharList.Items(i)) < 2500) then
   begin
      L.Add('Описание моба №'+IntToStr(i));
      L.Add('ID:'+IntToStr(CharList.Items(i).ID));
      L.Add('Имя:'+CharList.Items(i).Name);
      L.Add('ID Класса:'+IntToStr(CharList.Items(i).ClassID));
      L.Add('OID объекта:'+IntToStr(CharList.Items(i).OID));
      L.Add('ХП объекта:'+IntToStr(CharList.Items(i).HP));
      L.Add('Базовый класс:'+IntToStr(CharList.Items(i).MainClass));
      L.Add('Расса:'+IntToStr(CharList.Items(i).Race));
      L.Add('Уровень:'+IntToStr(CharList.Items(i).Level));
      L.Add('ClanID:'+IntToStr(CharList.Items(i).ClanID));
      L.Add('');
      Print('Описание моба №'+IntToStr(i));
      Print('ID:'+IntToStr(CharList.Items(i).ID));
      Print('Имя:'+CharList.Items(i).Name);
      Print('ID Класса:'+IntToStr(CharList.Items(i).ClassID));
      Print('OID объекта:'+IntToStr(CharList.Items(i).OID));
      Print('ХП объекта:'+IntToStr(CharList.Items(i).HP));
      Print('Базовый класс:'+IntToStr(CharList.Items(i).MainClass));
      Print('Расса:'+IntToStr(CharList.Items(i).Race));
      Print('Уровень:'+IntToStr(CharList.Items(i).Level));
      Print('ClanID:'+IntToStr(CharList.Items(i).ClanID));
      Print('');      
   end;
   L.SaveToFile('C:/log1.txt');//Сохраняем список в файл
   L.Free;
end.

 

[DreD]

@Denis63RUS, http://rgho.st/private/7qzmtVRzZ/6fde77db2509c62417715c3dfa9e6124

 

[Denis63RUS]

Пробуй этот скипт:

var
i, distMin: Integer;
TargMin: TL2Char;
begin
   while 1=1 do
   begin
      distMin:=3000;
      for i:=0 to CharList.Count-1 do
      begin
         if ((CharList.Items(i).ClanID=258526829) and (not CharList.Items(i).Dead) and (user.distto(CharList.items(i))<distMin)) then
         begin
            TargMin:=CharList.Items(i);
            distMin:=user.distto(CharList.items(i));
         end;
      end;
      Engine.SetTarget(TargMin);
      while (not TargMin.Dead) and (User.Target=TargMin) do
      begin
         Engine.attack;
         delay(500);
      end;
      delay(500);
   end;
end.

 

[DreD]

@Denis63RUS, вот отсюда попробуй http://files.d-lan.dp.ua/download?file=4df58f169ae39c7757889f57e60e6013

 

[Denis63RUS]

@DreD, вот, должно работать:

var
i, distMin: Integer;
TargMin: TL2Char;
begin
   while 1=1 do
   begin
      distMin:=3000;
      for i:=0 to CharList.Count-1 do
      begin
         if ((CharList.Items(i).ClanID=268526829) and (not CharList.Items(i).Dead) and (user.distto(CharList.items(i))<distMin)) then
         begin
            TargMin:=CharList.Items(i);
            distMin:=user.distto(CharList.items(i));
         end;
      end;
      Engine.SetTarget(TargMin);
      while (not TargMin.Dead) and (User.Target=TargMin) do
      begin
         Engine.attack;
         delay(500);
      end;
      delay(500);
   end;
end.

 

[DreD]

@Denis63RUS, Дружище отдуши