[wimax]

PHP код:

procedure ItemList;
begin
    for i:=0 to 100 do
        begin   
            Invertory[i,1]:=0;
            Invertory[i,2]:=0;
        end;
    for i:=0 to 100 do
        begin 
            Invertory[i,1]:=ReadD(i*68+6); 
            Invertory[i,2]:=ReadD(i*68+10); 
            if Invertory[i,2]=itemid then ObjId:=Invertory[i,1];
        end;
            
end;

procedure UseSoe;
begin
if (ReadD(2)=924) then 
begin
buf:=#$19;
WriteD(ObjId20);
WriteD(0);
SendToServerEx(Name);
end;
end;  

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


зделол вот так мб можна было проще но зато свое =) и работает_)