--- a/hedgewars/VGSHandlers.inc	Fri Jul 02 17:46:53 2010 +0200
+++ b/hedgewars/VGSHandlers.inc	Sat Jul 03 00:11:23 2010 +0200
@@ -18,6 +18,8 @@
 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
 var sign: float;
 begin
+if ((cReducedQuality and rqkillFlakes) <> 0) then exit;
+
 sign:= 1;
 with Gear^ do
     begin