[TAMBIK]

//******************************************************************************
begin
// при приходе от сервера пакета 21 InventoryUpdate выполнить
 if FromServer and (ConnectName=name) and (pck[1]=#$21) then  begin
          i:=12;           // пропускаем 
          k:=ReadD(i);  // считываем 
          i:=i+4;          // пропускаем 
   if ( k=57) then  begin //  если к равно ID предмета выполнить
          l:=ReadD(i);   // считываем 
         Say('Мои деньги:');
         Say('item ID='+IntToStr(k));
         Say('количество адены='+IntToStr(l));
      end;
    end;