[supernewbie]

4E=PartySmallWindowAll:d(ObjectID)d(LootDistributi on)d(ListSize:Loop.01.0022)d(MemberObjId)s(MemberN ame)d(CurrentCP)d(MaxCP)d(CurrentHP)d(MaxHP)d(Curr entMP)d(MaxMP)d(Level)d(ClassID:Get.ClassID)d(0)d( Race)d(0)d(0)d(PetOid=0 - skip next 7 values)d(PetNpcId)s(PetName)d(PetHp)d(PetMaxHP)d(P etMP)d(PetMaxMP)d(PetLevel)

var
  values:array [0..100] of variant;
  i,j:integer;

begin
  j:=2;
  ReadMask('ddd',j,values); //читаем статичные данные, в values[2] будет кол-во пати мемберов
  for i:=0 to values[2]-1 do //цикл по всем пати мемберам
  begin
    ReadMask('dsddddddddddddd',j,values); //читаем инфу о пати мембере без пета
    //тут вся куйня, распределение инфы по классам, etc
    if values[14]<>0 then ReadMask('ddsddddd',j,values); //если пет есть (петИд не 0) - читаем инфу о пете
  end;
end.

PS делал особо не проверяя, так что проверь формат, индексы, синтаксис и тд тп