hedgewars/uLandObjects.pas
changeset 1869 490005509a7b
parent 1801 bc0c5c21376e
child 1906 644f93d8f148
--- a/hedgewars/uLandObjects.pas	Sat Mar 07 20:23:49 2009 +0000
+++ b/hedgewars/uLandObjects.pas	Sun Mar 08 12:55:40 2009 +0000
@@ -425,7 +425,7 @@
    Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed);
 
 for i:= 0 to Pred(vobCount) do
-    AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + LAND_WIDTH), random(LAND_HEIGHT+200) - 100, vgtFlake);
+    AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + LAND_WIDTH), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
 
 Close(f);
 {$I+}