hedgewars/uLandObjects.pas
changeset 15147 d97f0b96e45f
parent 15104 07de9e60c305
child 15161 84e98f0f7f7b
--- a/hedgewars/uLandObjects.pas	Sat Jun 15 02:50:51 2019 +0200
+++ b/hedgewars/uLandObjects.pas	Sat Jun 15 03:27:06 2019 +0200
@@ -567,7 +567,7 @@
     begin
     if Maxcnt = 0 then
         exit;
-    x:= 0;
+    x:= leftX;
     repeat
         y:= topY+32; // leave room for a hedgie to teleport in
         repeat
@@ -589,7 +589,7 @@
             inc(y, 3);
         until y >= LAND_HEIGHT - Height;
         inc(x, getrandom(6) + 3)
-    until x >= LAND_WIDTH - Width;
+    until x >= rightX - Width;
     bRes:= cnt <> 0;
     if bRes then
         begin