--- a/hedgewars/GearDrawing.inc	Sat Oct 30 21:43:41 2010 +0200
+++ b/hedgewars/GearDrawing.inc	Sat Oct 30 21:57:54 2010 +0200
@@ -284,7 +284,8 @@
                         hwRound(CurAmmoGear^.Y) + WorldDy + (CurAmmoGear^.Power), 0, 0);
                 defaultPos := false;
                 Tint($33, $33, $FF, max($00, floor($C0 * abs(1 - (GameTicks mod 6000) / 3000))));
-                DrawTexture(sx - 108, sy - 108, SpritesData[sprVampiric].Texture, 4.5);
+                DrawTexture(sx - 108, sy - 108 + (CurAmmoGear^.Power),
+                        SpritesData[sprVampiric].Texture, 4.5);
                 Tint($FF, $FF, $FF, $FF);
                 end;
             gtKamikaze: begin