# HG changeset patch
# User Colin Rice (clr_)
# Date 1300894344 -3600
# Node ID 6e8da75e5f5e38f1579ca93b568589efc6aa81cc
# Parent  2df62e1a6c02850bdf2ea3c0481447a307659913
I changed r. Still not a perfect fix.

diff -r 2df62e1a6c02 -r 6e8da75e5f5e hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Wed Mar 23 16:27:24 2011 +0100
+++ b/hedgewars/GSHandlers.inc	Wed Mar 23 16:32:24 2011 +0100
@@ -3752,6 +3752,8 @@
             continue;
 
         //Will if fit through?
+        //set r to be portal distance
+        r := Int2hwFloat(Gear^.Radius +1);
 
         o_x := hwRound(conPortal^.X + conPortal^.dX);
         o_y := hwRound(conPortal^.Y + conPortal^.dY);
@@ -3801,6 +3803,9 @@
         if ((Land[o_y, rr_x] and $FF00) <> 0) then
                 continue;
 
+        //Okay reset r in case something uses it
+        r := Int2hwFloat(iterator^.Radius+Gear^.Radius);
+
         hasdxy := (((iterator^.dX.QWordValue <> 0) or (iterator^.dY.QWordValue <> 0))
                     or ((iterator^.State or gstMoving) = 0));