changeset 4695 | ac2cb3b99d70 |
parent 4669 | 296dbccdf376 |
child 4704 | a07dfebaa497 |
--- a/hedgewars/uGears.pas Sun Dec 26 18:56:31 2010 +0300 +++ b/hedgewars/uGears.pas Sun Dec 26 11:17:01 2010 -0500 @@ -1122,8 +1122,11 @@ cArtillery:= true; if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then + begin for i:= 0 to Pred(vobCount*2) do AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0); + disableLandBack:= true + end end; procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord);