[Sergey]

Вот сваял скрипт (и малость содрал), пишет в приват количество денег в инвентаре.

// скрипт на количество денег в инвентаре

const
   name='CTEPBA';  //ник чара
//******************************************************************************
var
   i,k,l: integer;
//******************************************************************************
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[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;
      
end.

Проверял он пашет. Но правда серв баганутый. Но чет у мя сомнения на правильность работы его....