--- a/hedgewars/uTeams.pas	Sun Oct 24 10:11:30 2010 -0400
+++ b/hedgewars/uTeams.pas	Sun Oct 24 22:00:36 2010 +0200
@@ -270,6 +270,9 @@
 ResetKbd;
 
 cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed);
+cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue;
+if cWindSpeed.isNegative then
+    CWindSpeedf := -cWindSpeedf;
 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}