wimax, вот так я себе узнавал ObjectID банки маны c помощью ее ID (728), мб поможет.., сразу говорю, пакеты с с4, так что не надейся с копипастить
delphi Код:
const
name = '*' ;
MPlimit = 50;
var
Invertory:array[1..80,1..2] of integer;
i:word;
MP:integer;
procedure Init;
begin
buf:=#$0F;
SendToServerEx(name);
end;
procedure Free;
begin
end;
procedure MPpotion;
begin
for i:=1 to 80 do
begin
Invertory[i,1]:=0;
Invertory[i,2]:=0;
end;
for i:=1 to 80 do
begin
Invertory[i,1]:=ReadD(i*28+8);
Invertory[i,2]:=ReadD(i*28+12);
if Invertory[i,2]=728 then MP:=Invertory[i,1];
end;
end;
procedure MPUse;
begin
buf:=#$14;
WriteD(MP);
WriteD(0);
SendToServerEx(name);
end;
procedure MPcheck;
begin
if (ReadD(6)=2) and (ReadD(10)=11) and (ReadD(14)<ReadD(22)/100*MPlimit) then MPUse;
end;
begin
if FromServer then
case pck[1] of
#$1B: MPpotion;
#$0E: MPcheck;
end;
end.