author | Wuzzy <Wuzzy2@mail.ru> |
Sat, 15 Jun 2019 03:27:06 +0200 | |
changeset 15147 | d97f0b96e45f |
parent 15146 | af14c418c92f |
child 15148 | 794dc7237ca1 |
--- 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