Bee: Call HomingWrap in pre-homing phase, too
authorWuzzy <Wuzzy2@mail.ru>
Sat, 29 Jun 2019 22:52:14 +0200
changeset 15209 f55c1c895797
parent 15208 26b4e864b341
child 15210 8705ee93f8b3
Bee: Call HomingWrap in pre-homing phase, too
hedgewars/uGearsHandlersMess.pas
--- 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);