--- a/hedgewars/uGears.pas	Tue Aug 07 19:32:33 2018 +0200
+++ b/hedgewars/uGears.pas	Wed Aug 08 11:19:08 2018 +0200
@@ -42,7 +42,7 @@
 procedure ProcessGears;
 procedure EndTurnCleanup;
 procedure DrawGears;
-procedure DrawGearsTimers;
+procedure DrawGearsGui;
 procedure FreeGearsList;
 procedure AddMiscGears;
 procedure AssignHHCoords;
@@ -584,7 +584,8 @@
     DrawHHOrder();
 end;
 
-procedure DrawGearsTimers;
+// Draw gear timers and other GUI overlays
+procedure DrawGearsGui;
 var Gear: PGear;
     x, y: LongInt;
 begin
@@ -594,6 +595,8 @@
     x:= hwRound(Gear^.X) + WorldDx;
     y:= hwRound(Gear^.Y) + WorldDy;
     RenderGearTimer(Gear, x, y);
+    if Gear^.Kind = gtHedgehog then
+        RenderHHGuiExtras(Gear, x, y);
     Gear:= Gear^.NextGear
     end;
 end;