hedgewars/uCommandHandlers.pas
changeset 11025 999afa63035f
parent 11024 b02e38762bbb
child 11046 47a8c19ecb60
equal deleted inserted replaced
11024:b02e38762bbb 11025:999afa63035f
   490 
   490 
   491 procedure chCapture(var s: shortstring);
   491 procedure chCapture(var s: shortstring);
   492 begin
   492 begin
   493 s:= s; // avoid compiler hint
   493 s:= s; // avoid compiler hint
   494 flagMakeCapture:= true;
   494 flagMakeCapture:= true;
   495 flagDumpLand:= (LocalMessage and gmPrecise  <> 0) and (cReducedQuality and rqBlurryLand = 0);
   495 flagDumpLand:= (LocalMessage and gmPrecise  <> 0);
   496 end;
   496 end;
   497 
   497 
   498 procedure chRecord(var s: shortstring);
   498 procedure chRecord(var s: shortstring);
   499 begin
   499 begin
   500 s:= s; // avoid compiler hint
   500 s:= s; // avoid compiler hint