[dyh9l]

wimax, вот так я себе узнавал ObjectID банки маны c помощью ее ID (728), мб поможет.., сразу говорю, пакеты с с4, так что не надейся с копипастить

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.