changeset 10858 | bd281e854e02 |
parent 10731 | bc359abe0484 |
child 10859 | d7e3abe3d5c2 |
--- a/hedgewars/uVisualGearsHandlers.pas Mon Mar 16 11:12:18 2015 +0300 +++ b/hedgewars/uVisualGearsHandlers.pas Tue Mar 17 23:57:26 2015 +0300 @@ -515,7 +515,8 @@ procedure doStepTeamHealthSorterWork(Gear: PVisualGear; Steps: Longword); var i, t, h: LongInt; begin -for t:= 1 to min(Steps, Gear^.Timer) do +if currsorter = Gear then + for t:= 1 to min(Steps, Gear^.Timer) do begin dec(Gear^.Timer); if (Gear^.Timer and 15) = 0 then