equal
deleted
inserted
replaced
689 |
689 |
690 procedure KickFlakes(Radius, X, Y: LongInt); |
690 procedure KickFlakes(Radius, X, Y: LongInt); |
691 var Gear, t: PVisualGear; |
691 var Gear, t: PVisualGear; |
692 dmg: LongInt; |
692 dmg: LongInt; |
693 begin |
693 begin |
694 if (vobCount = 0) or (vobCount > 200) then exit; |
694 if (vobCount = 0) or (vobCount > 200) or cReducedQuality then exit; |
695 t:= VisualGearsList; |
695 t:= VisualGearsList; |
696 while t <> nil do |
696 while t <> nil do |
697 begin |
697 begin |
698 Gear:= t; |
698 Gear:= t; |
699 if Gear^.Kind = vgtFlake then |
699 if Gear^.Kind = vgtFlake then |