hedgewars/uGearsRender.pas
changeset 8161 0b8beacff8a5
parent 8145 6408c0ba4ba1
child 8330 aaefa587e277
child 8370 0c79946e96f8
equal deleted inserted replaced
8159:e226be871b6e 8161:0b8beacff8a5
  1184 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer)
  1184 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer)
  1185 //DrawSpriteRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle);
  1185 //DrawSpriteRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle);
  1186                         if Gear^.FlightTime > 0 then
  1186                         if Gear^.FlightTime > 0 then
  1187                             Tint($FF, $FF, $FF, $FF);
  1187                             Tint($FF, $FF, $FF, $FF);
  1188                         end;
  1188                         end;
  1189        gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0);
  1189        //gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0);
  1190           gtTardis: if Gear^.Pos <> 4 then
  1190           gtTardis: if Gear^.Pos <> 4 then
  1191                         begin
  1191                         begin
  1192                         if Gear^.Pos = 2 then
  1192                         if Gear^.Pos = 2 then
  1193                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF)
  1193                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF)
  1194                         else 
  1194                         else