hedgewars/uGearsRender.pas
changeset 15321 ccac4e0472f9
parent 15308 01bd0a087163
child 15322 d93d8b51aaca
equal deleted inserted replaced
15320:1eb99a13964d 15321:ccac4e0472f9
  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                     DrawSprite(sprSwitchBack, x - 16, y - 56, (RealTicks shr 6) mod 12);
  1550                     DrawSpriteRotatedF(sprSwitchBack, x, y - 40, 0, 0, (RealTicks shr 2) 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                     DrawSprite(sprSwitch, x - 16, y - 56, (RealTicks shr 6) mod 12);
  1553                     DrawSpriteRotatedF(sprSwitch, x, y - 40, 0, 0, (RealTicks shr 2) 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));