unit UserScript;

function Process(e: IInterface): Integer;
begin
  if Signature(e) <> 'REFR' then Exit;
  SetElementNativeValues(e, 'Record Header\Record Flags\Ground', '1');
end;

end.