CP_HP_MP_Fix_C5.fsc
// (c)ra2fbg http://allcheats.ru/showpost.php?p=562868&postcount=5
var
IDpck : integer;
procedure PatySmallWindowUpdate;
var
memberOID,curCP,maxCP,curHP,maxHP,curMP,maxMP,i : integer;
memberName,pck : string;
begin
i:=ScanPck5(_gBuff,4,'dsddd',memberOID,memberName,curCP,maxCP,curHP);
ScanPck5(_gBuff,i,'ddd',maxHP,curMP,maxMP,null,null);
pck:=FormatPck('%cdddddddddddddd',[$0E,memberOID,6,$21,curCP,$22,maxCP,$09,curHP,$0A,maxHP,$0B,curMP,$0C,maxMP]);
gSys.EnSendC(pck);
end;
begin
if _gFromServ then begin
if length(_gBuff)<3 then begin
gBlockPacket;
exit;
end;
IDpck := ord(_gBuff[3]);
case IDpck of
$52 : PatySmallWindowUpdate;
end;
end;
end.