equal
deleted
inserted
replaced
766 procedure AddFlakes; |
766 procedure AddFlakes; |
767 var i: LongInt; |
767 var i: LongInt; |
768 begin |
768 begin |
769 if (cReducedQuality and rqKillFlakes) <> 0 then exit; |
769 if (cReducedQuality and rqKillFlakes) <> 0 then exit; |
770 |
770 |
771 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
771 if hasBorder or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
772 for i:= 0 to Pred(vobCount * cScreenSpace div LAND_WIDTH) do |
772 for i:= 0 to Pred(vobCount * cScreenSpace div LAND_WIDTH) do |
773 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
773 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
774 else |
774 else |
775 for i:= 0 to Pred((vobCount * cScreenSpace div LAND_WIDTH) div 3) do |
775 for i:= 0 to Pred((vobCount * cScreenSpace div LAND_WIDTH) div 3) do |
776 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
776 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |