hedgewars/uGearsRender.pas
changeset 7978 2ce76d1f594b
parent 7856 70c086d9b03f
child 8026 4a4f21070479
child 8145 6408c0ba4ba1
equal deleted inserted replaced
7976:e1029baf2483 7978:2ce76d1f594b
   748 
   748 
   749     with HH^ do
   749     with HH^ do
   750         begin
   750         begin
   751         if defaultPos then
   751         if defaultPos then
   752             begin
   752             begin
       
   753             if HH^.Team^.hasGone then Tint($FF, $FF, $FF, $80);
   753             DrawSpriteRotatedF(sprHHIdle,
   754             DrawSpriteRotatedF(sprHHIdle,
   754                 sx,
   755                 sx,
   755                 sy,
   756                 sy,
   756                 (RealTicks div 128 + Gear^.Pos) mod 19,
   757                 (RealTicks div 128 + Gear^.Pos) mod 19,
   757                 sign,
   758                 sign,
   789                         (RealTicks div 128 + Gear^.Pos) mod 19 + 32,
   790                         (RealTicks div 128 + Gear^.Pos) mod 19 + 32,
   790                         sign,
   791                         sign,
   791                         32,
   792                         32,
   792                         32);
   793                         32);
   793                     Tint($FF, $FF, $FF, $FF)
   794                     Tint($FF, $FF, $FF, $FF)
   794                     end
   795                     end;
       
   796                 if HH^.Team^.hasGone then Tint($FF, $FF, $FF, $FF)
   795                 end
   797                 end
   796             else
   798             else
   797                 begin
   799                 begin
   798                 DrawTextureF(HatTex,
   800                 DrawTextureF(HatTex,
   799                     HatVisibility,
   801                     HatVisibility,