burp can always remove this if he doesn't like it. just making it a bit more interesting.
authornemo
Fri, 29 Oct 2010 20:35:17 -0400
changeset 4018 7f2c71638466
parent 4017 048bcb8c72ae
child 4019 f2202355e5f6
burp can always remove this if he doesn't like it. just making it a bit more interesting.
hedgewars/GSHandlers.inc
hedgewars/GearDrawing.inc
--- 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,