hedgewars/uGearsRender.pas
changeset 5740 caf10b231b08
parent 5728 aca2acfba4ca
child 5787 f2caf41f2984
equal deleted inserted replaced
5739:42cf6712ef43 5740:caf10b231b08
  1081 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle);
  1081 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle);
  1082                         end;
  1082                         end;
  1083        gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0);
  1083        gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0);
  1084           gtTardis: if Gear^.Pos <> 4 then
  1084           gtTardis: if Gear^.Pos <> 4 then
  1085                         begin
  1085                         begin
  1086                         if (Gear^.Pos = 1) or (Gear^.Pos = 3) then
  1086                         if Gear^.Pos = 2 then Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF)
  1087                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))))
  1087                         else Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))));
  1088                         else Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
  1088                         DrawSprite(sprTardis, x-24, y-63,0);
  1089                         DrawSprite(sprTardis, x-26, y-63,0);
  1089                         if Gear^.Pos = 2 then Tint($FF, $FF, $FF, $FF)
       
  1090 			else Tint($FF,$FF,$FF,max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))));
       
  1091                         DrawSprite(sprTardis, x-24, y-63,1);
       
  1092                         if Gear^.Pos <> 2 then Tint($FF, $FF, $FF, $FF)
       
  1093 (*
  1090                         Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * abs(1 - (RealTicks mod 500) / 250))));
  1094                         Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * abs(1 - (RealTicks mod 500) / 250))));
  1091                         DrawTexture(x-6, y-70, SpritesData[sprVampiric].Texture, 0.25);
  1095                         DrawTexture(x-6, y-70, SpritesData[sprVampiric].Texture, 0.25);
  1092                         Tint($FF, $FF, $FF, $FF)
  1096                         Tint($FF, $FF, $FF, $FF)
       
  1097 *)
  1093                         end;
  1098                         end;
  1094 
  1099 
  1095 
  1100 
  1096          end;
  1101          end;
  1097       if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex);
  1102       if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex);