[alexteam]

ну, я архитектор как бы... %)
зы. для таких вот вещей и придуман readmask...

Добавлено через 3 минуты

Обявление процедур вызываюбщихся при разборке пакета:

procedure ItemListBegin;
procedure ItemListItem(ItemType1:Word;ObjectId, ItemId, LocationSlot : integer;Count : int64;ItemType2, IsEquipped:word;BodyPart:integer;EnchantLevel:word;AugmentId,mana :integer);
procedure ItemListEnd;

основное тело (разборка пакета):

case pck[1] of
  #$11 : //(ItemList)
    begin
        count := round((length(pck)-5)/ReadH(4));
        ItemListBegin();
          for d:=0 to ReadH(4)-1 do
            begin
              readmask('hdddqhhhdhhdd',6+d*count,values);
              ItemListItem(values[0], values[1], values[2], values[3], values[4], values[5], values[7], values[8], values[9], values[11], values[12]);
            end;
        ItemListEnd();
    end;
end;