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

[LionHS]

Сообщение от 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.

Не понимаю, как этот скрипт может работать... У меня не работает, да и по коду это наблюдается...
а именно в строчках

         Say('item ID='+IntToStr(k));
         Say('количество адены='+IntToStr(l));

то есть он будет писать item ID = 57
количество адены = 57.

Пробовал исправить и дошёл максимум до этого:

const
   name=''; //ник чара
//******************************************************************************
var
   i,k,l: integer;
   //******************************************************************************



procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

  procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(name);
  WriteS(msg);
  SendToClientEx(name);
end;



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


      end;
end.

В общем-то здесь не хватает чего, что выдерает из пакета #$39 количество аден. Я не нашёл как сам пакет, так и строчку с аденами в нём...
Помогайте