Эта процедура одинаково работает на C4 и IL
Код:
var
MyID, CurHP, MaxHP : integer;
procedure StatsUpdate;
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);
end;
end;
end;
begin
if (ConnectName=Name) and FromServer then begin
case pck[1] of
#$0E: begin
if (MyID=ReadD(2)) then StatsUpdate;
end;
end;
end;
end.