hedgewars/uGearsRender.pas
changeset 10441 d2f599997b54
parent 10390 13bfbade06a5
child 10443 42dadeb6e8ae
equal deleted inserted replaced
10439:7de934f2247c 10441:d2f599997b54
   808 
   808 
   809     with HH^ do
   809     with HH^ do
   810         begin
   810         begin
   811         if defaultPos then
   811         if defaultPos then
   812             begin
   812             begin
   813             if HH^.Team^.hasGone then
   813             if HH^.Team^.hasGone then Tint($FFFFFF80);
   814                  Tint($FFFFFF80)
       
   815             else if HH^.Effects[hePoisoned] <> 0 then
       
   816                  Tint($B7FFBCFF)
       
   817             else Tint(HH^.Gear^.Tint);
       
   818             DrawSpriteRotatedF(sprHHIdle,
   814             DrawSpriteRotatedF(sprHHIdle,
   819                 sx,
   815                 sx,
   820                 sy,
   816                 sy,
   821                 (RealTicks div 128 + Gear^.Pos) mod 19,
   817                 (RealTicks div 128 + Gear^.Pos) mod 19,
   822                 sign,
       
   823                 0);
       
   824             untint;
       
   825             DrawSpriteRotatedF(sprHHIdle,
       
   826                 sx,
       
   827                 sy,
       
   828                 (RealTicks div 128 + Gear^.Pos) mod 19 + 32,
       
   829                 sign,
   818                 sign,
   830                 0);
   819                 0);
   831             HatVisible:= true;
   820             HatVisible:= true;
   832             end;
   821             end;
   833 
   822