diff -r 7e6362c0ba96 -r 442bab755bb4 hedgewars/uGearsRender.pas --- a/hedgewars/uGearsRender.pas Mon Apr 10 13:51:07 2017 +0200 +++ b/hedgewars/uGearsRender.pas Mon Apr 10 14:15:00 2017 +0200 @@ -36,6 +36,7 @@ rounded : array[0..MAXROPEPOINTS + 2] of TVertex2f; end; procedure RenderGear(Gear: PGear; x, y: LongInt); +procedure RenderGearTimer(Gear: PGear; x, y: LongInt); procedure DrawHHOrder(); var RopePoints: record @@ -1532,9 +1533,13 @@ gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, Gear^.Angle); gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF); // debug end; - if Gear^.RenderTimer and (Gear^.Tex <> nil) then - DrawTextureCentered(x + 8, y + 8, Gear^.Tex); if Gear^.State and gstFrozen <> 0 then untint end; +procedure RenderGearTimer(Gear: PGear; x, y: LongInt); +begin +if Gear^.RenderTimer and (Gear^.Tex <> nil) then + DrawTextureCentered(x + 8, y + 8, Gear^.Tex); +end; + end.