rising flakes will no longer fly forever

bravesoftdz · Oct 5, 2016 · 043eb1f · 043eb1f
1 parent 12c47c6
commit 043eb1f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/hedgewars/uVisualGearsHandlers.pas b/hedgewars/uVisualGearsHandlers.pas
@@ -162,7 +162,12 @@ procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
             X:= X - cScreenSpace;
             moved:= true
             end;
-            // if round(Y) < (LAND_HEIGHT - 1024 - 75) then Y:= Y + 25.0; // For if flag is set for flakes rising upwards?
+	if round(Y) < (LAND_HEIGHT - 1024 - 75) then
+		begin
+		X:= cLeftScreenBorder + random(cScreenSpace);
+		Y:= Y+(1024 + 200 + random(50));
+		moved:= true
+		end
         if (Gear^.Layer = 2) and (round(Y) - 400 > LAND_HEIGHT) and (cGravityf >= 0) then
             begin
             X:= cLeftScreenBorder + random(cScreenSpace);