changeset 15163 | d97f0b96e45f |
parent 15120 | 07de9e60c305 |
child 15177 | 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