--- a/hedgewars/uGearsRender.pas	Thu Sep 01 20:52:17 2011 +0200
+++ b/hedgewars/uGearsRender.pas	Fri Sep 02 00:24:54 2011 -0400
@@ -1084,10 +1084,12 @@
           gtTardis: if Gear^.Pos <> 4 then
                         begin
                         if (Gear^.Pos = 1) or (Gear^.Pos = 3) then
-                            Tint($FF, $FF, $FF, max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))));
-                        DrawSprite(sprTardis, x-24, y-63,0);
-                        if (Gear^.Pos = 1) or (Gear^.Pos = 3) then
-                            Tint($FF, $FF, $FF, $FF)
+                            Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))))
+                        else Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF);
+                        DrawSprite(sprTardis, x-26, y-63,0);
+                        Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * abs(1 - (RealTicks mod 500) / 250))));
+                        DrawTexture(x-6, y-70, SpritesData[sprVampiric].Texture, 0.25);
+                        Tint($FF, $FF, $FF, $FF)
                         end;