hedgewars/uGearsRender.pas
changeset 15327 d93d8b51aaca
parent 15326 ccac4e0472f9
child 15330 11b3d4869f6d
equal deleted inserted replaced
15326:ccac4e0472f9 15327:d93d8b51aaca
  1545                     setTintAdd(true);
  1545                     setTintAdd(true);
  1546                     if IsTooDarkToRead(Gear^.Hedgehog^.Team^.Clan^.Color) then
  1546                     if IsTooDarkToRead(Gear^.Hedgehog^.Team^.Clan^.Color) then
  1547                         Tint($FFFFFFFF)
  1547                         Tint($FFFFFFFF)
  1548                     else
  1548                     else
  1549                         Tint($000000FF);
  1549                         Tint($000000FF);
  1550                     DrawSpriteRotatedF(sprSwitchBack, x, y - 40, 0, 0, (RealTicks shr 2) mod 360);
  1550                     DrawSpriteRotatedF(sprSwitchBack, x + 1, y - 40, 0, 0, (RealTicks div 5) mod 360);
  1551 
  1551 
  1552                     Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
  1552                     Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
  1553                     DrawSpriteRotatedF(sprSwitch, x, y - 40, 0, 0, (RealTicks shr 2) mod 360);
  1553                     DrawSpriteRotatedF(sprSwitch, x + 1, y - 40, 0, 0, (RealTicks div 5) mod 360);
  1554                     untint;
  1554                     untint;
  1555                     setTintAdd(false);
  1555                     setTintAdd(false);
  1556                     end;
  1556                     end;
  1557           gtTarget: begin
  1557           gtTarget: begin
  1558                     Tint($FF, $FF, $FF, round($FF * Gear^.Timer / 1000));
  1558                     Tint($FF, $FF, $FF, round($FF * Gear^.Timer / 1000));