equal
deleted
inserted
replaced
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); |
180 particle^.dY := particle^.dY - hwFloat2Float(Gear^.dY) |
180 particle^.dY := particle^.dY - hwFloat2Float(Gear^.dY) / 2; |
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 |