CP/HP вместо титула

[mks]

хз, может где и прокатит(например где при взятии в таргет приходит статусапдэйт перса)

Var
CurHP,MaxHP,CurCP,MaxCP,CurMP,MaxMP,objID: integer;

procedure Init;
begin

end;

procedure StatusUpdate;
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do begin
    case pck[i*8+10] of
      #$09: CurHP:=ReadD(i*8+14);
      #$0A: MaxHP:=ReadD(i*8+14);
      #$0B: CurMP:=ReadD(i*8+14);
      #$0C: MaxMP:=ReadD(i*8+14);
      #$21: CurCP:=ReadD(i*8+14);
      #$22: MaxCP:=ReadD(i*8+14);
    end;
  end;
end;

procedure Free;
begin

end;

procedure OnConnect(WithClient: Boolean);
begin

end;

procedure OnDisonnect(WithClient: Boolean);
begin

end;

begin
   if fromserver and (pck[1]=#$18) then
      begin
         StatusUpdate;
         objID:=ReadD(2);

         buf:=#$CC;
         WriteD(objID);
         WriteS('CP:'+inttostr(CurCP)+'  HP:'+inttostr(CurHP));
         SendToClient;

      end;

end.