equal
deleted
inserted
replaced
656 snowRight:= max(LAND_WIDTH,4096)+512; |
656 snowRight:= max(LAND_WIDTH,4096)+512; |
657 snowLeft:= -(snowRight-LAND_WIDTH); |
657 snowLeft:= -(snowRight-LAND_WIDTH); |
658 |
658 |
659 if (not hasBorder) and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
659 if (not hasBorder) and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
660 for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do |
660 for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do |
661 AddGear(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft, LongInt(LAND_HEIGHT + GetRandom(750)) - 1300, gtFlake, 0, _0, _0, 0); |
661 AddGear(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft, LAND_HEIGHT + LongInt(GetRandom(750)) - 1300, gtFlake, 0, _0, _0, 0); |
662 end; |
662 end; |
663 |
663 |
664 |
664 |
665 procedure ShotgunShot(Gear: PGear); |
665 procedure ShotgunShot(Gear: PGear); |
666 var t: PGear; |
666 var t: PGear; |