# HG changeset patch
# User nemo
# Date 1314411309 14400
# Node ID f6e0c5bd80203c91419cac2e556a9a2188c59845
# Parent  48ef34701751ca61e5b4d9acea0ba022e85811d4
Allow vgtSmoke to scale. Scale it down 50% for mines, so smoke doesn't seem so oversized

diff -r 48ef34701751 -r f6e0c5bd8020 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Aug 26 21:49:10 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Fri Aug 26 22:15:09 2011 -0400
@@ -1713,6 +1713,7 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepMine(Gear: PGear);
+var vg: PVisualGear;
 begin
     if (Gear^.State and gstMoving) <> 0 then
     begin
@@ -1742,7 +1743,10 @@
                  inc(Gear^.Damage, hwRound(Gear^.dX * -_70));
         
         if (Gear^.Damage > random(30)) and ((GameTicks and $FF) = 0) then
-            AddVisualGear(hwRound(Gear^.X) - 4  + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSmoke);
+            begin
+            vg:= AddVisualGear(hwRound(Gear^.X) - 4  + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSmoke);
+            if vg <> nil then vg^.Scale:= 0.5
+            end;
 
         if (Gear^.Damage > 35) then
             begin
@@ -1774,8 +1778,8 @@
                     end
                 else
                     begin
-                    AddVisualGear(hwRound(Gear^.X) - 4  + Random(8), hwRound(Gear^.Y) - 4 - Random(4),
-                    vgtSmoke);
+                    vg:= AddVisualGear(hwRound(Gear^.X) - 4  + Random(8), hwRound(Gear^.Y) - 4 - Random(4), vgtSmoke);
+                    if vg <> nil then vg^.Scale:= 0.5;
                     PlaySound(sndVaporize);
                     Gear^.Health := 0;
                     Gear^.Damage := 0;
diff -r 48ef34701751 -r f6e0c5bd8020 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Fri Aug 26 21:49:10 2011 -0400
+++ b/hedgewars/uVisualGears.pas	Fri Aug 26 22:15:09 2011 -0400
@@ -229,6 +229,7 @@
                 end;
   vgtSmokeWhite,
   vgtSmoke: begin
+                Scale:= 1.0;
                 dx:= 0.0002 * (random(45) + 10);
                 dy:= 0.0002 * (random(45) + 10);
                 if random(2) = 0 then dx := -dx;
@@ -535,7 +536,7 @@
           end;
           if (cReducedQuality and rqAntiBoom) = 0 then
               case Gear^.Kind of
-                  vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
+                  vgtSmoke: DrawTextureF(SpritesData[sprSmoke].Texture, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 7 - Gear^.Frame, 0, SpritesData[sprSmoke].Width, SpritesData[sprSmoke].Height);
                   vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
                   vgtDust: if Gear^.State = 1 then
                                DrawSprite(sprSnowDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame)