[wimax]

Const
Name='1234';
itemid=1234;

procedure Init; //Вызывается при включении скрипта
begin
buf:=#$14;
SendToServerEx(Name);
end;

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

end;

procedure ItemList;
var
i:integer;
ID:integer;
begin
    for i := 0 to 100 do
    begin
      if readd(i) = itemid then
      begin
        ID := readd(i - 8);
        exit;
      end;
      if readd(i) <> itemid then
        i := i + 64;
    end;
    
end;

procedure UseSoe;
var
ID:integer;
begin
buf:=#$19;
WriteD(ID);
WriteD(0);
SendToServerEx(Name);
end;

begin
if FromServer and (ConnectName=Name) 
then
case pck[1] of 
#$11: ItemList;
#$62:
begin
if (ReadD(2)=924) then 
UseSoe;
end;  
end;
end.

хроники freya
когда  юзает итем 
buf:=#$19;
WriteD(ID);
WriteD(0);

id ето objid пишет 0
хули не пашыт скрипт ?)