Grinch,
Сбрасывать пакет не нужно.. Вот что-то попыталась сделать, но помоему бред, помоги написать плз что-нить подобное, только верно работающее.
Код:
var
id: Integer;
l: Integer;
begin
if (fromclient) and (pck=#$6C) then begin
id:= StrToInt(HSTr(pck[2]+pck[3]+pck[4]+pck[5]));
l := StrToInt(Hstr(pck[6]+pck[7]+pck[8]+pck[9])) - 1;
buf:=#$6C;
WriteD(id);
WriteD(l);
WriteD(0);
SendToServer;
end;
end.