equal
deleted
inserted
replaced
985 vg:= tmp |
985 vg:= tmp |
986 end |
986 end |
987 else vg:= vg^.NextGear; |
987 else vg:= vg^.NextGear; |
988 end; |
988 end; |
989 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
989 if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then |
990 for i:= 0 to Pred(vobSDCount * cScreenSpace div LAND_WIDTH) do |
990 for i:= 0 to Pred(vobSDCount * cScreenSpace div 4096) do |
991 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
991 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake) |
992 else |
992 else |
993 for i:= 0 to Pred((vobSDCount * cScreenSpace div LAND_WIDTH) div 3) do |
993 for i:= 0 to Pred((vobSDCount * cScreenSpace div 4096) div 3) do |
994 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
994 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
995 end; |
995 end; |
996 |
996 |
997 procedure initModule; |
997 procedure initModule; |
998 var i: LongWord; |
998 var i: LongWord; |