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)
delphi Код:
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 делал особо не проверяя, так что проверь формат, индексы, синтаксис и тд тп