Backed out changeset d08afea02908
authorWuzzy <Wuzzy2@mail.ru>
Mon, 30 Oct 2017 21:59:25 +0100
changeset 12809 a889cb350930
parent 12808 e3d18c92c332
child 12810 6023a4f06013
Backed out changeset d08afea02908
hedgewars/uGearsHandlersMess.pas
hedgewars/uGearsUtils.pas
--- a/hedgewars/uGearsHandlersMess.pas	Mon Oct 30 20:21:47 2017 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Mon Oct 30 21:59:25 2017 +0100
@@ -994,14 +994,11 @@
 var
     t: hwFloat;
     gX,gY,i: LongInt;
-    uw, nuw, wrapped: boolean;
+    uw, nuw: boolean;
     flower: PVisualGear;
 
 begin
-    wrapped:= WorldWrap(Gear);
-    if wrapped then
-        HomingWrap(Gear);
-
+    WorldWrap(Gear);
     AllInactive := false;
     gX := hwRound(Gear^.X);
     gY := hwRound(Gear^.Y);
@@ -1119,9 +1116,6 @@
 
         Gear^.SoundChannel := LoopSound(sndBee);
         Gear^.Timer := 5000;
-
-        HomingWrap(Gear);
-
         // save initial speed in otherwise unused Friction variable
         Gear^.Friction := Distance(Gear^.dX, Gear^.dY);
         Gear^.doStep := @doStepBeeWork
--- a/hedgewars/uGearsUtils.pas	Mon Oct 30 20:21:47 2017 +0100
+++ b/hedgewars/uGearsUtils.pas	Mon Oct 30 21:59:25 2017 +0100
@@ -57,7 +57,6 @@
 function  GetUtility(Hedgehog: PHedgehog): TAmmoType;
 
 function WorldWrap(var Gear: PGear): boolean;
-function HomingWrap(var Gear: PGear): boolean;
 
 function IsHogLocal(HH: PHedgehog): boolean;
 
@@ -1640,47 +1639,6 @@
     end;
 end;
 
-(*
-Applies wrap-around logic for the target of homing gears.
-
-In wrap-around world edge, the shortest way may to the target might
-be across the border, so the X value of the target would lead the
-gear to the wrong direction across the whole map. This procedure
-changes the target X in this case.
-This function must be called in the gear set-up routine and whenever
-the gear passed through the wrap-around world edge.
-
-No-op for other world edges.
-
-Returns true if target has been changed.
-*)
-function HomingWrap(var Gear: PGear): boolean;
-var dist_center, dist_right, dist_left: hwFloat;
-begin
-    if WorldEdge = weWrap then
-        begin
-        HomingWrap:= false;
-        // We just need check the same target 3 times:
-        // 1) in current section (no change)
-        // 2) clone in the right section
-        // 3) clone in the left section
-        // The gear will go for the target with the shortest distance to the gear
-        dist_center:= Distance(Gear^.X - int2hwFloat(Gear^.Target.X), Gear^.Y - int2hwFloat(Gear^.Target.Y));
-        dist_right:= Distance(Gear^.X - int2hwFloat(Gear^.Target.X + (RightX-LeftX)), Gear^.Y - int2hwFloat(Gear^.Target.Y));
-        dist_left:= Distance(Gear^.X - int2hwFloat(Gear^.Target.X - (RightX-LeftX)), Gear^.Y - int2hwFloat(Gear^.Target.Y));
-        if (dist_left < dist_right) and (dist_left < dist_center) then
-            begin
-            dec(Gear^.Target.X, RightX-LeftX);
-            HomingWrap:= true;
-            end
-        else if (dist_right < dist_left) and (dist_right < dist_center) then
-            begin
-            inc(Gear^.Target.X, RightX-LeftX);
-            HomingWrap:= true;
-            end;
-        end;
-end;
-
 procedure AddBounceEffectForGear(Gear: PGear);
 var boing: PVisualGear;
 begin