hedgewars/uGearsHandlers.pas
branchwebgl
changeset 9950 2759212a27de
parent 9521 8054d9d775fd
parent 9706 5178d2263521
child 10015 4feced261c68
--- a/hedgewars/uGearsHandlers.pas	Fri Oct 11 17:43:13 2013 +0200
+++ b/hedgewars/uGearsHandlers.pas	Sat Jan 04 23:55:54 2014 +0400
@@ -64,7 +64,7 @@
         begin
         Gear^.Tag := 0;
         Gear^.Y := Gear^.Y + int2hwFloat(yy);
-        if not TestCollisionXwithGear(Gear, xxn) then
+        if TestCollisionXwithGear(Gear, xxn) = 0 then
             begin
             Gear^.X := Gear^.X + int2hwFloat(xxn);
             NextAngle(Gear, dA)
@@ -72,7 +72,7 @@
         end;
 
     if (yy = 0) then
-        if TestCollisionXwithGear(Gear, xx) then
+        if TestCollisionXwithGear(Gear, xx) <> 0 then
             PrevAngle(Gear, dA)
     else
         begin