# HG changeset patch
# User koda
# Date 1289257161 -3600
# Node ID 20b67364aef94dd6186ce37babcf3ee9fcb22073
# Parent  184181604092fe8e263d72e340e8f248213dddbd# Parent  4162db7c11bb92c0dc8fe9fd87bc412b6ce53f10
merge again? :o

diff -r 184181604092 -r 20b67364aef9 QTfrontend/statsPage.cpp
--- a/QTfrontend/statsPage.cpp	Mon Nov 08 23:58:59 2010 +0100
+++ b/QTfrontend/statsPage.cpp	Mon Nov 08 23:59:21 2010 +0100
@@ -195,7 +195,7 @@
             QString playername = playerinfo.mid(i + 1);
             QString image;
 
-            if (lastColor == c && playerPosition <= 2) playerPosition = 1;
+            if (lastColor == c) playerPosition--;
             lastColor = c;
 
             switch (playerPosition)
diff -r 184181604092 -r 20b67364aef9 hedgewars/uConsts.pas
--- a/hedgewars/uConsts.pas	Mon Nov 08 23:58:59 2010 +0100
+++ b/hedgewars/uConsts.pas	Mon Nov 08 23:59:21 2010 +0100
@@ -354,6 +354,7 @@
     gfInfAttack          = $00100000;
     gfResetWeps          = $00200000;
     gfPerHogAmmo         = $00400000;
+    gfDisableWind        = $00800000;           // only lua for now
     // NOTE: When adding new game flags, ask yourself
     // if a "game start notice" would be useful. If so,
     // add one in uWorld.pas - look for "AddGoal".
diff -r 184181604092 -r 20b67364aef9 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Mon Nov 08 23:58:59 2010 +0100
+++ b/hedgewars/uScript.pas	Mon Nov 08 23:59:21 2010 +0100
@@ -1061,6 +1061,7 @@
 ScriptSetInteger('gfInfAttack', gfInfAttack);
 ScriptSetInteger('gfResetWeps', gfResetWeps);
 ScriptSetInteger('gfPerHogAmmo', gfPerHogAmmo);
+ScriptSetInteger('gfDisableWind', gfDisableWind);
 
 ScriptSetInteger('gmLeft', gmLeft);
 ScriptSetInteger('gmRight', gmRight);
diff -r 184181604092 -r 20b67364aef9 hedgewars/uTeams.pas
--- a/hedgewars/uTeams.pas	Mon Nov 08 23:58:59 2010 +0100
+++ b/hedgewars/uTeams.pas	Mon Nov 08 23:59:21 2010 +0100
@@ -275,15 +275,19 @@
 
 ResetKbd;
 
-cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed);
-// cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue throws 'Internal error 200502052' on Darwin
-// see http://mantis.freepascal.org/view.php?id=17714
-cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
-if cWindSpeed.isNegative then
-    CWindSpeedf := -cWindSpeedf;
-g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
-g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
+if (GameFlags and gfDisableWind) = 0 then
+    begin
+    cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed);
+    // cWindSpeedf:= cWindSpeed.QWordValue / _1.QWordValue throws 'Internal error 200502052' on Darwin
+    // see http://mantis.freepascal.org/view.php?id=17714
+    cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_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}
+    end;
+
 ApplyAmmoChanges(CurrentHedgehog^);
 
 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds);