hedgewars/uGears.pas
changeset 15200 0879fba70510
parent 15170 3cc1a79de3fd
child 15220 ceb289e8a582
equal deleted inserted replaced
15199:b0ed2b17c0cf 15200:0879fba70510
   716 Gear:= GearsList;
   716 Gear:= GearsList;
   717 while Gear <> nil do
   717 while Gear <> nil do
   718     begin
   718     begin
   719     x:= hwRound(Gear^.X) + WorldDx;
   719     x:= hwRound(Gear^.X) + WorldDx;
   720     y:= hwRound(Gear^.Y) + WorldDy;
   720     y:= hwRound(Gear^.Y) + WorldDy;
       
   721     if Gear^.Kind = gtAirMine then
       
   722         RenderAirMineGuiExtras(Gear, x, y);
   721     RenderGearHealth(Gear, x, y);
   723     RenderGearHealth(Gear, x, y);
   722     RenderGearTimer(Gear, x, y);
   724     RenderGearTimer(Gear, x, y);
   723     if Gear^.Kind = gtHedgehog then
   725     if Gear^.Kind = gtHedgehog then
   724         RenderHHGuiExtras(Gear, x, y);
   726         RenderHHGuiExtras(Gear, x, y);
   725     Gear:= Gear^.NextGear
   727     Gear:= Gear^.NextGear