Avoid checking in log spam.
authornemo
Sun, 02 May 2010 04:51:29 +0000
changeset 3398 ede254e24545
parent 3397 c47af0694a7d
child 3399 885304636abf
Avoid checking in log spam.
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun May 02 04:49:07 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Sun May 02 04:51:29 2010 +0000
@@ -3041,21 +3041,17 @@
 procedure doStepPortal(Gear: PGear);
 var tmpGear, iterator: PGear;
 begin
-AddFileLog('...');
-    if not AllInactive and (Gear^.IntersectGear <> nil) then
+    //if not AllInactive and (Gear^.IntersectGear <> nil) then
+    if (Gear^.IntersectGear <> nil) then
         begin
-AddFileLog('!!!');
         iterator:= GearsList;
         while iterator <> nil do
             begin
-            if
-// iterator^.Active and 
-(iterator^.Kind <> gtPortal) and 
-              // (hwRound(hwAbs(Gear^.X-iterator^.X)+hwAbs(Gear^.Y-iterator^.Y)) < Gear^.Radius) and 
-              // ((hwAbs(Gear^.X-(iterator^.X+iterator^.dX))+hwAbs(Gear^.Y-(iterator^.Y+iterator^.dY))).QWordValue < (hwAbs(Gear^.X-iterator^.X)+hwAbs(Gear^.Y-iterator^.Y)).QWordValue) and
+            if iterator^.Active and (iterator^.Kind <> gtPortal) and 
+               (hwRound(hwAbs(Gear^.X-iterator^.X)+hwAbs(Gear^.Y-iterator^.Y)) < Gear^.Radius) and 
+               ((hwAbs(Gear^.X-(iterator^.X+iterator^.dX))+hwAbs(Gear^.Y-(iterator^.Y+iterator^.dY))).QWordValue < (hwAbs(Gear^.X-iterator^.X)+hwAbs(Gear^.Y-iterator^.Y)).QWordValue) and
                (hwRound(Distance(Gear^.X-iterator^.X,Gear^.Y-iterator^.Y)) < Gear^.Radius) then // Let's check this one more closely
                 begin
-AddFileLog(inttostr(iterator^.uid));
                 iterator^.X:=Gear^.IntersectGear^.X+_128;
                 iterator^.Y:=Gear^.IntersectGear^.Y+_128;
                 iterator^.dX.isNegative:= not iterator^.dX.isNegative;