раз уж мы некропостим, то у меня вот так:
Код:
function msgBuild(var Buf: TBuffer; var m: T_SMSG_ATTACKSTOP): longint; overload;
begin
pkt.InitCmd (Buf, SMSG_ATTACKSTOP);
pkt.AddGUID (Buf, m.AttackerGUID);
pkt.AddGUID (Buf, m.TargetGUID);
pkt.AddLong (Buf, m.Following);
result:= pkt.pktLen;
end;
это от классика 1.12
вообще булеан у близзов мнооооого где передается в виде инта, а мнооооого где в виде байта. это нормально. просто одну фичу делала одна команда программистов (которая не экономит трафик), другую - другая (которая экономит).