equal
deleted
inserted
replaced
608 var i: LongInt; |
608 var i: LongInt; |
609 begin |
609 begin |
610 if (cReducedQuality and rqKillFlakes) <> 0 then exit; |
610 if (cReducedQuality and rqKillFlakes) <> 0 then exit; |
611 |
611 |
612 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
612 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
613 for i:= 0 to Pred(vobCount) do |
613 for i:= 0 to Pred(vobCount * cScreenSpace div LAND_WIDTH) do |
614 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
614 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
615 else |
615 else |
616 for i:= 0 to Pred(vobCount div 3) do |
616 for i:= 0 to Pred((vobCount * cScreenSpace div LAND_WIDTH) div 3) do |
617 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
617 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
618 end; |
618 end; |
619 |
619 |
620 procedure ChangeToSDFlakes; |
620 procedure ChangeToSDFlakes; |
621 var i: LongInt; |
621 var i: LongInt; |
631 DeleteVisualGear(vg); |
631 DeleteVisualGear(vg); |
632 vg:= tmp |
632 vg:= tmp |
633 end |
633 end |
634 else vg:= vg^.NextGear; |
634 else vg:= vg^.NextGear; |
635 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
635 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
636 for i:= 0 to Pred(vobSDCount) do |
636 for i:= 0 to Pred(vobSDCount * cScreenSpace div LAND_WIDTH) do |
637 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
637 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
638 else |
638 else |
639 for i:= 0 to Pred(vobSDCount div 3) do |
639 for i:= 0 to Pred((vobSDCount * cScreenSpace div LAND_WIDTH) div 3) do |
640 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
640 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
641 end; |
641 end; |
642 |
642 |
643 procedure initModule; |
643 procedure initModule; |
644 begin |
644 begin |