Количество денег в инвентаре....

[Sergey]

Скрипт проверял с забитым инвентарем под нехочю. Работает норм, при деиствия с деньгами он пишет в приват скок их. А я его еше подописал и те просто бегаю собираю деньги по достижении 2ккк автоматом обменивает на 1 кол. Просто у мя сомнения на верность

if FromServer and (ConnectName=name)and (pck[1]=#$27)and (pck[12]=#$39)then
      begin
         i:=12;
         k:=ReadD(i);    //item ID
         l:=ReadD(i);    //количество адены
         Say('Мои деньги:');
         Say('item ID='+IntToStr(k));
         Say('количество адены='+IntToStr(l));
      end;

есть впечатление что можно сделать подругому,чтоб проверял еше что либо по ID.