Не видел исправленной записи ObjectID бутылок предложенной VORON'ом,
поэтому выкладываю исправленное мною.
Работатет под С4.
Код:
//**************************************************************************
//Записываем ObjectID некоторых банок
if pck[1]=#$1B then
for i:= 0 to round((length(pck)- 5)/28) do begin
if (ReadH(i*28+4+8) = 5592) then begin //Greater CP Potion
OidGCP:= ReadD(i*28+8);//ObjectID
NGCP:= ReadH(i*28+4+4+8);//кол-во
end;
if (ReadH(i*28+4+8) = 1539) then begin //Greater Healing Potion
OidGHP:= ReadD(i*28+8);//ObjectID
NGHP:= ReadH(i*28+4+4+8);//кол-во
end;
if (ReadH(i*28+4+8) = 6036) then begin //Greater Magic Haste Potion
OidGMG:= ReadD(i*28+8);//ObjectID
NGMG:= ReadH(i*28+4+4+8);//кол-во
end;
if (ReadH(i*28+4+8) = 1374) then begin //Greater Haste Potion
OidGHS:= ReadD(i*28+8);//ObjectID
NGHS:= ReadH(i*28+4+4+8);//кол-во
end;
if (ReadH(i*28+4+8) = 1375) then begin //Greate Swift Attack Potion
OidGSW:= ReadD(i*28+8);//ObjectID
NGSW:= ReadH(i*28+4+4+8);//кол-во
end;
end;
//**************************************************************************