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