equal
deleted
inserted
replaced
135 if hwRound(Gear^.Y) < cWaterLine + 64 + Gear^.Radius then |
135 if hwRound(Gear^.Y) < cWaterLine + 64 + Gear^.Radius then |
136 // don't play splash if they are already way past the surface |
136 // don't play splash if they are already way past the surface |
137 PlaySound(sndSplash) |
137 PlaySound(sndSplash) |
138 end; |
138 end; |
139 |
139 |
140 if not cReducedQuality and (hwRound(Gear^.Y) < cWaterLine + 64 + Gear^.Radius) then |
140 if ((cReducedQuality and rqPlainSplash) = 0) and (hwRound(Gear^.Y) < cWaterLine + 64 + Gear^.Radius) then |
141 begin |
141 begin |
142 AddVisualGear(hwRound(Gear^.X), cWaterLine, vgtSplash); |
142 AddVisualGear(hwRound(Gear^.X), cWaterLine, vgtSplash); |
143 |
143 |
144 maxDrops := (Gear^.Radius div 2) + hwRound(Gear^.dX * Gear^.Radius * 2) + hwRound(Gear^. |
144 maxDrops := (Gear^.Radius div 2) + hwRound(Gear^.dX * Gear^.Radius * 2) + hwRound(Gear^. |
145 dY * Gear^.Radius * 2); |
145 dY * Gear^.Radius * 2); |