equal
deleted
inserted
replaced
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 |
627 if (not hasBorder) and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
627 if (not hasBorder) and cSnow then |
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; |