hedgewars/uVisualGears.pas
changeset 5570 a1eb7555f439
parent 5566 9ffa2e2ec550
child 5574 3d7438991ed8
--- a/hedgewars/uVisualGears.pas	Sun Aug 14 23:52:45 2011 -0400
+++ b/hedgewars/uVisualGears.pas	Mon Aug 15 10:16:18 2011 -0400
@@ -47,7 +47,7 @@
 procedure AddDamageTag(X, Y, Damage, Color: LongWord);
 
 implementation
-uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils;
+uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils, uStore;
 
 const cExplFrameTicks = 110;
 
@@ -481,7 +481,12 @@
                             begin
                             if Gear^.State = 0 then 
                                 DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
-                            else DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex); 
+                            else
+                                begin 
+                                SetScale(cDefaultZoomLevel); 
+                                DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex); 
+                                SetScale(zoom)
+                                end
                             end;
 //if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
             vgtStraightShot: DrawRotatedF(TSprite(Gear^.State), round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);