hedgewars/uGears.pas
changeset 15221 0879fba70510
parent 15191 3cc1a79de3fd
child 15241 ceb289e8a582
equal deleted inserted replaced
15220:b0ed2b17c0cf 15221: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