equal
deleted
inserted
replaced
174 for i:= max(maxDrops div 3, min(32, Random(maxDrops))) downto 0 do |
174 for i:= max(maxDrops div 3, min(32, Random(maxDrops))) downto 0 do |
175 begin |
175 begin |
176 particle := AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), cWaterLine, vgtDroplet); |
176 particle := AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), cWaterLine, vgtDroplet); |
177 if particle <> nil then |
177 if particle <> nil then |
178 begin |
178 begin |
179 particle^.dX := particle^.dX - hwFloat2Float(Gear^.dX); |
179 particle^.dX := particle^.dX - hwFloat2Float(Gear^.dX) / 10; |
180 particle^.dY := particle^.dY - hwFloat2Float(Gear^.dY) / 2; |
180 particle^.dY := particle^.dY - hwFloat2Float(Gear^.dY) / 5; |
181 end |
181 end |
182 end |
182 end |
183 end; |
183 end; |
184 if isSubmersible and (CurAmmoGear^.Pos = 0) then CurAmmoGear^.Pos := 1000 |
184 if isSubmersible and (CurAmmoGear^.Pos = 0) then CurAmmoGear^.Pos := 1000 |
185 end |
185 end |