hedgewars/uGearsHandlersMess.pas
changeset 14514 5ac181cb2396
parent 14398 87562a68c41f
child 14554 397b2f4502c1
--- a/hedgewars/uGearsHandlersMess.pas	Thu Jan 03 17:57:31 2019 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Jan 03 19:46:48 2019 +0100
@@ -1046,11 +1046,14 @@
 var
     t: hwFloat;
     gX,gY,i: LongInt;
-    uw, nuw: boolean;
+    uw, nuw, wrapped: boolean;
     flower: PVisualGear;
 
 begin
-    WorldWrap(Gear);
+    wrapped:= WorldWrap(Gear);
+    if wrapped then
+        HomingWrap(Gear);
+
     AllInactive := false;
     gX := hwRound(Gear^.X);
     gY := hwRound(Gear^.Y);