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 cSnow 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 begin |
|
630 ry:= LAND_HEIGHT + LongInt(GetRandom(750)) - 1300; |
|
631 rx:= LongInt(GetRandom(snowRight - snowLeft)) + snowLeft; |
|
632 AddGear(rx, ry, gtFlake, 0, _0, _0, 0); |
|
633 end |
630 end; |
634 end; |
631 |
635 |
632 procedure AssignHHCoords; |
636 procedure AssignHHCoords; |
633 var i, t, p, j: LongInt; |
637 var i, t, p, j: LongInt; |
634 ar: array[0..Pred(cMaxHHs)] of PHedgehog; |
638 ar: array[0..Pred(cMaxHHs)] of PHedgehog; |