--- a/hedgewars/GSHandlers.inc	Fri Oct 29 20:05:19 2010 -0400
+++ b/hedgewars/GSHandlers.inc	Fri Oct 29 20:35:17 2010 -0400
@@ -4096,8 +4096,8 @@
     hh := PHedgehog(Gear^.Hedgehog);
     DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy -
             cHHRadius - 14 - hh^.HealthTagTex^.h, hh^.HealthTagTex);
-    DrawCircle(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius, 1.5, 0, 0, $FF,
-            $FF);
+    (*DrawCircle(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius, 1.5, 0, 0, $FF,
+            $FF);*)
 
     doStepHedgehogMoving(hh^.Gear);
 

--- a/hedgewars/GearDrawing.inc	Fri Oct 29 20:05:19 2010 -0400
+++ b/hedgewars/GearDrawing.inc	Fri Oct 29 20:35:17 2010 -0400
@@ -281,7 +281,10 @@
                 DrawRotated(sprHandResurrector, hwRound(Gear^.X) + WorldDx,
                         hwRound(Gear^.Y) + WorldDy, 0, 0); 
                 defaultPos := false;
-            end;
+                Tint($33, $33, $FF, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
+                DrawTexture(sx - 108, sy - 108, SpritesData[sprVampiric].Texture, 4.5);
+                Tint($FF, $FF, $FF, $FF);
+                end;
             gtKamikaze: begin
                 if CurAmmoGear^.Pos = 0 then
                     DrawHedgehog(sx, sy,