[APXAHGEJI]

Не видел исправленной записи 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;
    //**************************************************************************