hedgewars/uGears.pas
changeset 12215 442bab755bb4
parent 12197 de9144250c37
child 12311 cdd884397760
--- a/hedgewars/uGears.pas	Mon Apr 10 13:51:07 2017 +0200
+++ b/hedgewars/uGears.pas	Mon Apr 10 14:15:00 2017 +0200
@@ -42,6 +42,7 @@
 procedure ProcessGears;
 procedure EndTurnCleanup;
 procedure DrawGears;
+procedure DrawGearsTimers;
 procedure FreeGearsList;
 procedure AddMiscGears;
 procedure AssignHHCoords;
@@ -585,6 +586,20 @@
     DrawHHOrder();
 end;
 
+procedure DrawGearsTimers;
+var Gear: PGear;
+    x, y: LongInt;
+begin
+Gear:= GearsList;
+while Gear <> nil do
+    begin
+    x:= hwRound(Gear^.X) + WorldDx;
+    y:= hwRound(Gear^.Y) + WorldDy;
+    RenderGearTimer(Gear, x, y);
+    Gear:= Gear^.NextGear
+    end;
+end;
+
 procedure FreeGearsList;
 var t, tt: PGear;
 begin