622     end;

   622     end;

   623 

   623 

   624 snowRight:= max(LAND_WIDTH,4096)+512;

   624 snowRight:= max(LAND_WIDTH,4096)+512;

   625 snowLeft:= -(snowRight-LAND_WIDTH);

   625 snowLeft:= -(snowRight-LAND_WIDTH);

   626 

   626 

   628     for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do

   628     for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do

   629         AddGear(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft, LAND_HEIGHT + LongInt(GetRandom(750)) - 1300, gtFlake, 0, _0, _0, 0);

   629         AddGear(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft, LAND_HEIGHT + LongInt(GetRandom(750)) - 1300, gtFlake, 0, _0, _0, 0);

   630 end;

   630 end;

   631 

   631 

   632 procedure AssignHHCoords;

   632 procedure AssignHHCoords;