[mks]

var
  i:integer;

begin
  if FromServer and (pck[1]=#$32) then
  begin
    i:=22;
    ReadS(i);
    i:=i+504;
    buf:=pck;
    WriteD(1,i);
    pck:=buf;
  end;
end.

Кстати вот новый фэйкГМ для грации