для нормального отображения ItemList
поправь в
PacketsT1 строку так сделай
11=ItemList:h(ShowWindow)h(ListSize:Loop.01.
0022)h(ItemType1)
Код:
begin
j:=4; //смещение для ListCount
ListCount:=ReadH(j); //количество итемов не должно превышать max!
for i:=1 to maxitems do
if (i<=ListCount) then begin// считаем
BaseItems[i,1]:=ReadH(j); //ItemType1 2
BaseItems[i,2]:=ReadD(j); //ObjectID 4
BaseItems[i,3]:=ReadD(j); //ItemID 4
BaseItems[i,4]:=ReadD(j); //LocationSlot 4
BaseItems[i,5]:=ReadD(j); //Count 4
BaseItems[i,6]:=ReadH(j); //ItemType2 2
BaseItems[i,7]:=ReadH(j); //CustomType1 2
BaseItems[i,8]:=ReadH(j); //isEquipped 2
BaseItems[i,9]:=ReadD(j); //BodyPart 4
BaseItems[i,10]:=ReadH(j); //EnchantLevel 2
BaseItems[i,11]:=ReadH(j); //CustType2 2
BaseItems[i,12]:=ReadD(j); //Aug 4
// итого 36- длина блока считывания
//debugmsg('OID='+inttostr(BaseItems[i,2])+' ID='+inttostr(BaseItems[i,3]));
inc(j,36);// 36= длина блока из пакета : 11=ItemList- это 72 минус 36 -длина блока считывания
end else for k:=1 to 12 do BaseItems[i,k]:=0; // забиваем нулями
//вносим изменения в чекбоксы
Код:
0004 h ListSize: 39 (0x0027)
[Начало повторяющегося блока 1/39]
0006 h ItemType1: 0 (0x0000)
0008 d ObjectID: 270496338 (0x101F7252)
0012 d ItemID: Unknown Items ID:14125(372D) (0x0000372D)
0016 d LocationSlot: 0 (0x00000000)
0020 d Count: 1 (0x00000001)
0024 h ItemType2: 0 (0x0000)
0026 h CustomType1: 0 (0x0000)
0028 h isEquipped: 0 (0x0000)
0030 d BodyPart: 0 (0x00000000)
0034 h EnchantLevel: 128 (0x0080)
0036 h CustType2: 0 (0x0000)
0038 h AugmentID: 1 (0x0001)
0040 h 0: 0 (0x0000)
0042 d Mana: 0 (0x00000000)
0046 d AttackAttrElement: -1 (0xFFFFFFFF)
0050 d AttackAttrElementVal: 65534 (0x0000FFFE)
0054 d DefAttrFire: 0 (0x00000000)
0058 d DefAttrWater: 0 (0x00000000)
0062 d DefAttrWind: 0 (0x00000000)
0066 d DefAttrEarth: -1 (0xFFFFFFFF)
0070 d DefAttrHoly: 1566048256 (0x5D580000)
0074 d DefAttrUnholy: 925700127 (0x372D101F)
[Конец повторяющегося блока 1/39]
[Начало повторяющегося блока 2/39]
0078 h ItemType1: 0 (0x0000)
78-6=72
вроде так
может еще надо править пакет
21=InventoryUpdate: