sheepy-clone: comparison hedgewars/GSHandlers.inc

equal deleted inserted replaced

-:8fdb08497bf1
+:f4bdebced042
 AllInactive:= false;
 // This jiggles gears, to ensure a portal connection just placed under a gear takes effect.
 iterator:= GearsList;
 while iterator <> nil do
 begin
-iterator^.Active:= true;
+if iterator^.Kind <> gtPortal then
-if iterator^.dY.QWordValue = _0.QWordValue then iterator^.dY.isNegative:= false;
+begin
-iterator^.State:= iterator^.State or gstMoving;
+iterator^.Active:= true;
-DeleteCI(iterator);
+if iterator^.dY.QWordValue = _0.QWordValue then iterator^.dY.isNegative:= false;
-inc(iterator^.dY.QWordValue,10);
+iterator^.State:= iterator^.State or gstMoving;
-iterator:= iterator^.NextGear;
+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
 else if (y > cWaterLine + cVisibleWater + Gear^.Radius) or (y < -LAND_WIDTH) or (x > LAND_WIDTH + LAND_WIDTH) or (x < -LAND_WIDTH) then
 begin