equal
deleted
inserted
replaced
164 |
164 |
165 procedure doStepBubble(Gear: PVisualGear; Steps: Longword); |
165 procedure doStepBubble(Gear: PVisualGear; Steps: Longword); |
166 begin |
166 begin |
167 Gear^.X:= Gear^.X + (cWindSpeed * 100 + Gear^.dX) * Steps; |
167 Gear^.X:= Gear^.X + (cWindSpeed * 100 + Gear^.dX) * Steps; |
168 Gear^.Y:= Gear^.Y - cDrownSpeed * Steps; |
168 Gear^.Y:= Gear^.Y - cDrownSpeed * Steps; |
169 |
169 |
170 if (Gear^.FrameTicks <= Steps) or (hwRound(Gear^.Y) < cWaterLine) then |
170 if (Gear^.FrameTicks <= Steps) or (hwRound(Gear^.Y) < cWaterLine) then |
171 DeleteVisualGear(Gear) |
171 DeleteVisualGear(Gear) |
172 else |
172 else |
173 dec(Gear^.FrameTicks, Steps) |
173 dec(Gear^.FrameTicks, Steps) |
174 end; |
174 end; |
332 begin |
332 begin |
333 AddVisualGear:= nil; |
333 AddVisualGear:= nil; |
334 exit |
334 exit |
335 end; |
335 end; |
336 |
336 |
337 if cReducedQuality and |
337 if cReducedQuality and |
338 (Kind <> vgtTeamHealthSorter) and |
338 (Kind <> vgtTeamHealthSorter) and |
339 (Kind <> vgtSmallDamageTag) and |
339 (Kind <> vgtSmallDamageTag) and |
340 (Kind <> vgtSpeechBubble) then |
340 (Kind <> vgtSpeechBubble) then |
341 begin |
341 begin |
342 AddVisualGear:= nil; |
342 AddVisualGear:= nil; |
343 exit |
343 exit |
344 end; |
344 end; |