1120 

  1120 

  1121 if (GameFlags and gfArtillery) <> 0 then

  1121 if (GameFlags and gfArtillery) <> 0 then

  1122     cArtillery:= true;

  1122     cArtillery:= true;

  1123 

  1123 

  1124 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then

  1124 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then

  1125     for i:= 0 to Pred(vobCount*2) do

  1126     for i:= 0 to Pred(vobCount*2) do

  1126         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);

  1127         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);

  1127 end;

  1130 end;

  1128 

  1131 

  1129 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord);

  1132 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord);

  1130 begin

  1133 begin

  1131 doMakeExplosion(X, Y, Radius, Mask, $FFFFFFFF);

  1134 doMakeExplosion(X, Y, Radius, Mask, $FFFFFFFF);