Fix bug, undo debug level in server, set air mine number to something non-debug
authornemo
Sat, 14 Feb 2015 17:47:28 -0500
changeset 10820 e86ba0e821a6
parent 10818 f642a28cab0c
child 10822 def423815f24
Fix bug, undo debug level in server, set air mine number to something non-debug
gameServer/hedgewars-server.hs
hedgewars/uGears.pas
hedgewars/uVariables.pas
--- a/gameServer/hedgewars-server.hs	Sat Feb 14 17:34:12 2015 -0500
+++ b/gameServer/hedgewars-server.hs	Sat Feb 14 17:47:28 2015 -0500
@@ -40,7 +40,7 @@
 
 setupLoggers :: IO ()
 setupLoggers = do
-    updateGlobalLogger "Clients" (setLevel DEBUG)
+    updateGlobalLogger "Clients" (setLevel NOTICE)
     updateGlobalLogger "Core" (setLevel NOTICE)
     updateGlobalLogger "REPLAYS" (setLevel NOTICE)
 
--- a/hedgewars/uGears.pas	Sat Feb 14 17:34:12 2015 -0500
+++ b/hedgewars/uGears.pas	Sat Feb 14 17:47:28 2015 -0500
@@ -632,9 +632,9 @@
        (TestCollisionYwithGear(Gear, 1) = 0) then
         begin
         t:= 0;
-        h:= 0;
         while (t < TeamsCount) and (p = 0) do
             begin
+            h:= 0;
             with TeamsArray[t]^ do
                 while (h < cMaxHHIndex) and (p = 0) do
                     begin
@@ -647,7 +647,7 @@
                             (hwRound(hwSqr(rdx) + hwSqr(rdy)) < sqr(Gear^.Angle))) then
                             begin
 // Debug line. Remove later
-AddFileLog('Too Close to Hog @ (' + inttostr(rx) + ',' + inttostr(ry) + ')');
+// AddFileLog('Too Close to Hog @ (' + inttostr(rx) + ',' + inttostr(ry) + ')');
 
                             p:= 1
                             end
--- a/hedgewars/uVariables.pas	Sat Feb 14 17:34:12 2015 -0500
+++ b/hedgewars/uVariables.pas	Sat Feb 14 17:47:28 2015 -0500
@@ -2608,7 +2608,7 @@
     AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - from weapon
     cCaseFactor     := 5;  {0..9}
     cLandMines      := 4;
-    cAirMines       := 1000;
+    cAirMines       := 4;
     cExplosives     := 2;
 
     GameState       := Low(TGameState);