hedgewars/uGearsRender.pas
changeset 14196 ab5e710d353d
parent 13851 f01798038c2e
child 14200 1bdce164eb72
equal deleted inserted replaced
14195:43ca01d4fb46 14196:ab5e710d353d
  1568 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer)
  1568 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer)
  1569 //DrawSpriteRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle);
  1569 //DrawSpriteRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle);
  1570                         if Gear^.FlightTime > 0 then
  1570                         if Gear^.FlightTime > 0 then
  1571                             untint;
  1571                             untint;
  1572                         end;
  1572                         end;
  1573        //gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0);
       
  1574           gtTardis: if Gear^.Pos <> 4 then
  1573           gtTardis: if Gear^.Pos <> 4 then
  1575                         begin
  1574                         begin
  1576                         if Gear^.Pos = 2 then
  1575                         if Gear^.Pos = 2 then
  1577                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF)
  1576                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF)
  1578                         else
  1577                         else