Функция регруппа для трейнов.

[gglol]

const
Members:array[0..7]of string=(
'' ,
'' ,
'' ,
'' ,
'' ,
'' ,
'' ,
''
); //Ники пати мемберов
function AllHere():boolean;
var i:integer;
obj:TL2Live;
begin
for i:=0 to 7
do if charlist.byname(Members,obj)
and (obj.DistTo(User) < 100)
then Result:=True else
begin
Result:=false;
break;
end;
end;





Пример использования:

Спойлер

begin
if AllHere() then
begin
//Действия после регрупа
end;
end.

Тем кто водит трейны может пригодиться.

 

[Krickt]

Твой код не будет правильно работать вообще-то.
Если 1ый мембер будет далеко, а 7ой близко, то функция вернет true.

Нужно так.
Вернет False если персонаж не в пати / кто-то из пати далеко

function AllHere: boolean;
var
  i: integer;
begin
  Result:= true;

  if (Party.Chars.count = 0) then
  begin
    Result:= false;
    exit;
  end;
  for i:= 0 to Party.Chars.count - 1 do
    if (not Party.Chars.items(i).valid) or (User.DistTo(Party.Chars.items(i)) > 100) then
    begin
      Result:= false;
      exit;
    end;
end;

 

[gglol]

Поправил в своем варианте, спасибо. Я пробиваю по никам т к, конь и барды находятся офпати.

 

[Krickt]

@gglol, тогда так поприятнее будет:

const
  OffPartyList: array of string = [
  'Ник коня',
  'Ник СВСа'
  ];

function AllHere: boolean;
var
  i: integer;
  Ch: TL2Char;
begin
  Result:= true;

  if (Party.Chars.count = 0) then
  begin
    Result:= false;
    exit;
  end;
  for i:= 0 to Party.Chars.count - 1 do
    if (not Party.Chars.items(i).valid) or (User.DistTo(Party.Chars.items(i)) > 100) then
    begin
      Result:= false;
      exit;
    end;
  for i:= 0 to high(OffPartyList) do
    if (not CharList.ByName(OffPartyList[i], Ch)) or (not Ch.valid) or (User.DistTo(Ch) > 100) then
    begin
      Result:= false;
      exit;
    end;
end;