equal
deleted
inserted
replaced
485 var i: LongInt; |
485 var i: LongInt; |
486 begin |
486 begin |
487 if (cReducedQuality and rqKillFlakes) <> 0 then |
487 if (cReducedQuality and rqKillFlakes) <> 0 then |
488 exit; |
488 exit; |
489 |
489 |
490 if hasBorder or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
490 if hasBorder or (not cSnow) then |
491 for i:= 0 to Pred(vobCount * cScreenSpace div 4096) do |
491 for i:= 0 to Pred(vobCount * cScreenSpace div 4096) do |
492 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
492 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
493 else |
493 else |
494 for i:= 0 to Pred((vobCount * cScreenSpace div 4096) div 3) do |
494 for i:= 0 to Pred((vobCount * cScreenSpace div 4096) div 3) do |
495 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
495 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
513 DeleteVisualGear(vg); |
513 DeleteVisualGear(vg); |
514 vg:= tmp |
514 vg:= tmp |
515 end |
515 end |
516 else vg:= vg^.NextGear; |
516 else vg:= vg^.NextGear; |
517 end; |
517 end; |
518 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
518 if hasBorder or (not cSnow) then |
519 for i:= 0 to Pred(vobSDCount * cScreenSpace div 4096) do |
519 for i:= 0 to Pred(vobSDCount * cScreenSpace div 4096) do |
520 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
520 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
521 else |
521 else |
522 for i:= 0 to Pred((vobSDCount * cScreenSpace div 4096) div 3) do |
522 for i:= 0 to Pred((vobSDCount * cScreenSpace div 4096) div 3) do |
523 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
523 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |