Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/GearDrawing.inc
changeset 4024 1ffb84b3823d
parent 4023 8de77872ef21
child 4036 69e535a0e43a 
--- 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
hedgewars