hedgewars/uGearsRender.pas
changeset 4394 c1f2ca416ea8
parent 4388 b14e24444bca
child 4578 f3cf226fad16
equal deleted inserted replaced
4392:95e27e12d0e9 4394:c1f2ca416ea8
   795             if (cTagsMask and htTransparent) <> 0 then
   795             if (cTagsMask and htTransparent) <> 0 then
   796                 Tint($FF, $FF, $FF, $FF)
   796                 Tint($FF, $FF, $FF, $FF)
   797             end;
   797             end;
   798         if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
   798         if (Gear^.State and gstHHDriven) <> 0 then // Current hedgehog
   799             begin
   799             begin
       
   800             if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtResurrector) then
       
   801                 DrawCentered(ox, sy - cHHRadius - 7 - HealthTagTex^.h, HealthTagTex);
       
   802 
   800             if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   803             if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   801                 DrawSprite(sprFinger, ox - 16, oy - 64,
   804                 DrawSprite(sprFinger, ox - 16, oy - 64,
   802                             GameTicks div 32 mod 16);
   805                             GameTicks div 32 mod 16);
   803 
   806 
   804             if (Gear^.State and gstDrowning) = 0 then
   807             if (Gear^.State and gstDrowning) = 0 then