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;
зделол вот так мб можна было проще но зато свое =) и работает_)