var
PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer;
PName,StatusPacket : String;
BEGIN
if _gFromServ then
begin
if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
begin
ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP, PMaxMP,null,null);
StatusPacket := FormatPck('%cdddddddddddddd',[$18,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
gSys.EnSendC(StatusPacket);
end;
end;
END.