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.

[lexayar]

Врядли тебе сервер пришлет чужой статус апдейт. Будет только твой показывать Возможно еще членов пати.

[xkor]

lexayar, помойму даже офф до сих пор при взятии в таргет присылает статус апдейт от твоего таргета)
по крайней мере до интерлюда включительно так было точно...

[Grinch]

угу но цп там нету и мп подавно тока хп цели

[lexayar]

Хм... надо тогда попробовать.