hedgewars/uGearsRender.pas
changeset 10000 d657b6656c19
parent 9998 736015b847e3
child 10001 ec523563826e
equal deleted inserted replaced
9999:8f2dc49262c3 10000:d657b6656c19
   927             begin
   927             begin
   928             if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtResurrector) then
   928             if (CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtResurrector) then
   929                 DrawTextureCentered(ox, sy - cHHRadius - 7 - HealthTagTex^.h, HealthTagTex);
   929                 DrawTextureCentered(ox, sy - cHHRadius - 7 - HealthTagTex^.h, HealthTagTex);
   930 
   930 
   931             if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   931             if bShowFinger and ((Gear^.State and gstHHDriven) <> 0) then
   932                 DrawSprite(sprFinger, ox - 16, oy - 64,
   932                 begin
       
   933                 ty := oy - 56;
       
   934                 // move finger higher up if tags are above hog
       
   935                 if (cTagsMask and htTeamName) <> 0 then
       
   936                     ty := ty - Team^.NameTagTex^.h - 2;
       
   937                 if (cTagsMask and htName) <> 0 then
       
   938                     ty := ty - NameTagTex^.h - 2;
       
   939                 if (cTagsMask and htHealth) <> 0 then
       
   940                     ty := ty - HealthTagTex^.h - 2;
       
   941                 DrawSprite(sprFinger, ox - 16, ty,
   933                             GameTicks div 32 mod 16);
   942                             GameTicks div 32 mod 16);
       
   943                 end;
   934 
   944 
   935             if (Gear^.State and gstDrowning) = 0 then
   945             if (Gear^.State and gstDrowning) = 0 then
   936                 if (Gear^.State and gstHHThinking) <> 0 then
   946                 if (Gear^.State and gstHHThinking) <> 0 then
   937                     DrawSprite(sprQuestion, ox - 10, oy - cHHRadius - 34, (RealTicks shr 9) mod 8)
   947                     DrawSprite(sprQuestion, ox - 10, oy - cHHRadius - 34, (RealTicks shr 9) mod 8)
   938             end
   948             end