hedgewars/uGearsRender.pas
changeset 15486 d668fcb9307e
parent 15465 a18f7e4681b8
child 15621 969f67193d0b
equal deleted inserted replaced
15485:91c972f126b7 15486:d668fcb9307e
  1654                     DrawTextureF(SpritesData[sprPiano].Texture, 1, x, y, 0, 1, 128, 128);
  1654                     DrawTextureF(SpritesData[sprPiano].Texture, 1, x, y, 0, 1, 128, 128);
  1655                     end;
  1655                     end;
  1656      gtPoisonCloud: begin
  1656      gtPoisonCloud: begin
  1657                     if Gear^.Timer < 1020 then
  1657                     if Gear^.Timer < 1020 then
  1658                         Tint(Gear^.Tint and $FFFFFF00 or Gear^.Timer div 8)
  1658                         Tint(Gear^.Tint and $FFFFFF00 or Gear^.Timer div 8)
  1659                     else if Gear^.Timer > 3980 then
  1659                     else if (Gear^.Timer > Gear^.WDTimer - 1020) and (Gear^.WDTimer > 2040) then
  1660                         Tint(Gear^.Tint and $FFFFFF00 or (5000 - Gear^.Timer) div 8)
  1660                         Tint(Gear^.Tint and $FFFFFF00 or (Gear^.WDTimer - Gear^.Timer) div 8)
  1661                     else
  1661                     else
  1662                         Tint(Gear^.Tint);
  1662                         Tint(Gear^.Tint);
  1663                     DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 3, 0, 0, x, y, 0, 1, 22, 22, (RealTicks shr 4 + Gear^.UID * 100) mod 360);
  1663                     DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 3, 0, 0, x, y, 0, 1, 22, 22, (RealTicks shr 4 + Gear^.UID * 100) mod 360);
  1664                     untint
  1664                     untint
  1665                     end;
  1665                     end;