hedgewars/uGearsRender.pas
changeset 11021 981775ec7dda
parent 10992 995ecbdf72de
child 11046 47a8c19ecb60
--- a/hedgewars/uGearsRender.pas	Sat Jul 18 19:10:57 2015 +0200
+++ b/hedgewars/uGearsRender.pas	Sun Jul 19 03:10:00 2015 +0200
@@ -1381,12 +1381,12 @@
                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF)
                         else
                             Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))));
-                        DrawSprite(sprTardis, x-24, y-63,0);
+                        DrawSprite(sprTardis, x-25, y-64,0);
                         if Gear^.Pos = 2 then
                             untint
                         else
                             Tint($FF,$FF,$FF,max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000)))));
-                        DrawSprite(sprTardis, x-24, y-63,1);
+                        DrawSprite(sprTardis, x-25, y-64,1);
                         if Gear^.Pos <> 2 then
                             untint
 (*