hedgewars/uGearsRender.pas
changeset 5728 aca2acfba4ca
parent 5706 4454aa0523e7
child 5740 caf10b231b08
equal deleted inserted replaced
5726:f342e0cf4f34 5728:aca2acfba4ca
  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 = 1) or (Gear^.Pos = 3) then
  1087                             Tint($FF, $FF, $FF, max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))));
  1087                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))))
  1088                         DrawSprite(sprTardis, x-24, y-63,0);
  1088                         else Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
  1089                         if (Gear^.Pos = 1) or (Gear^.Pos = 3) then
  1089                         DrawSprite(sprTardis, x-26, y-63,0);
  1090                             Tint($FF, $FF, $FF, $FF)
  1090                         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);
       
  1092                         Tint($FF, $FF, $FF, $FF)
  1091                         end;
  1093                         end;
  1092 
  1094 
  1093 
  1095 
  1094          end;
  1096          end;
  1095       if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex);
  1097       if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex);