hedgewars/uGearsHandlersMess.pas
changeset 15204 f55c1c895797
parent 15196 a0bb57d3d272
child 15221 bf11546c1920
--- a/hedgewars/uGearsHandlersMess.pas	Sat Jun 29 22:03:44 2019 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Jun 29 22:52:14 2019 +0200
@@ -1123,11 +1123,14 @@
 end;
 
 procedure doStepBee(Gear: PGear);
+var wrapped: boolean;
 begin
     AllInactive := false;
     Gear^.X := Gear^.X + Gear^.dX;
     Gear^.Y := Gear^.Y + Gear^.dY;
-    WorldWrap(Gear);
+    wrapped:= WorldWrap(Gear);
+    if wrapped then
+        HomingWrap(Gear);
     Gear^.dY := Gear^.dY + cGravity;
     CheckGearDrowning(Gear);
     CheckCollision(Gear);