--- a/hedgewars/GSHandlers.inc	Thu Aug 25 16:45:58 2005 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Aug 25 17:15:36 2005 +0000
@@ -267,14 +267,23 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepActionTimer(Gear: PGear);
 begin
-dec(Gear.Timer);
 case Gear.State of
      gtsStartGame: begin
+                   dec(Gear.Timer);
                    AllInactive:= false;
                    if Gear.Timer > 0 then exit;
                    AddCaption('Let''s fight!', $FFFFFF, capgrpStartGame);
                    DeleteGear(Gear)
                    end;
+  gtsSmoothWindCh: begin
+                   if Gear.Timer = 0 then
+                      begin
+                      Gear.Timer:= 10;
+                      if WindBarWidth < Gear.Tag then inc(WindBarWidth)
+                         else if WindBarWidth > Gear.Tag then dec(WindBarWidth)
+                         else DeleteGear(Gear)
+                      end else dec(Gear.Timer)
+                   end;
      end;
 end;