# HG changeset patch
# User nemo
# Date 1272832223 0
# Node ID f4bdebced0423a01fd70263831734c1478fceab3
# Parent  8fdb08497bf17b7e265b8edf102a12a61655f2e4
Minor tweak. Still needs a lot of work.

diff -r 8fdb08497bf1 -r f4bdebced042 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Sun May 02 18:42:19 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Sun May 02 20:30:23 2010 +0000
@@ -3133,15 +3133,18 @@
             iterator:= GearsList;
             while iterator <> nil do
                 begin
-                iterator^.Active:= true;
-                if iterator^.dY.QWordValue = _0.QWordValue then iterator^.dY.isNegative:= false;
-                iterator^.State:= iterator^.State or gstMoving;
-                DeleteCI(iterator);
-                inc(iterator^.dY.QWordValue,10);
-                iterator:= iterator^.NextGear;
+                if iterator^.Kind <> gtPortal then
+                    begin
+                    iterator^.Active:= true;
+                    if iterator^.dY.QWordValue = _0.QWordValue then iterator^.dY.isNegative:= false;
+                    iterator^.State:= iterator^.State or gstMoving;
+                    DeleteCI(iterator);
+                    inc(iterator^.dY.QWordValue,10);
+                    end;
+                iterator:= iterator^.NextGear
                 end;
             doStepPortal(Gear);
-            if Gear^.IntersectGear <> nil then doStepPortal(Gear^.IntersectGear);
+            if Gear^.IntersectGear <> nil then Gear^.IntersectGear^.doStep(Gear^.IntersectGear);
             end
         end
     end