equal
deleted
inserted
replaced
506 for i:= 0 to 6 do |
506 for i:= 0 to 6 do |
507 begin |
507 begin |
508 vg:= VisualGearLayers[i]; |
508 vg:= VisualGearLayers[i]; |
509 while vg <> nil do |
509 while vg <> nil do |
510 if vg^.Kind = vgtFlake then |
510 if vg^.Kind = vgtFlake then |
511 begin |
511 begin |
512 tmp:= vg^.NextGear; |
512 tmp:= vg^.NextGear; |
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 hasBorder or (not cSnow) 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) |