Make ghost warp use AttachToGridOrMap() (#11069)

Content.Server/Administration/Commands/WarpCommand.cs

@@ -1,6 +1,8 @@
 using System.Linq;
+using Content.Server.Ghost.Components;
 using Content.Server.Warps;
 using Content.Shared.Administration;
+using Content.Shared.Follower;
 using Robust.Server.Player;
 using Robust.Shared.Console;
 using Robust.Shared.Enums;
@@ -56,8 +58,8 @@ namespace Content.Server.Administration.Commands
 
                 var found = entMan.EntityQuery<WarpPointComponent>(true)
                     .Where(p => p.Location == location)
-                    .Select(p => entMan.GetComponent<TransformComponent>(p.Owner).Coordinates)
-                    .OrderBy(p => p, Comparer<EntityCoordinates>.Create((a, b) =>
+                    .Select(p => (entMan.GetComponent<TransformComponent>(p.Owner).Coordinates, p.Follow))
+                    .OrderBy(p => p.Item1, Comparer<EntityCoordinates>.Create((a, b) =>
                     {
                         // Sort so that warp points on the same grid/map are first.
                         // So if you have two maps loaded with the same warp points,
@@ -102,18 +104,26 @@ namespace Content.Server.Administration.Commands
                     }))
                     .FirstOrDefault();
 
-                var entityUid = found.GetGridUid(entMan);
-                if (entityUid != EntityUid.Invalid)
+                var (coords, follow) = found;
+
+                if (coords.EntityId == EntityUid.Invalid)
                 {
-                    entMan.GetComponent<TransformComponent>(playerEntity).Coordinates = found;
-                    if (entMan.TryGetComponent(playerEntity, out IPhysBody? physics))
-                    {
-                        physics.LinearVelocity = Vector2.Zero;
-                    }
+                    shell.WriteError("That location does not exist!");
+                    return;
                 }
-                else
+
+                if (follow && entMan.HasComponent<GhostComponent>(playerEntity))
                 {
-                    shell.WriteLine("That location does not exist!");
+                    entMan.EntitySysManager.GetEntitySystem<FollowerSystem>().StartFollowingEntity(playerEntity, coords.EntityId);
+                    return;
+                }
+
+                var xform = entMan.GetComponent<TransformComponent>(playerEntity);
+                xform.Coordinates = coords;
+                xform.AttachToGridOrMap();
+                if (entMan.TryGetComponent(playerEntity, out IPhysBody? physics))
+                {
+                    physics.LinearVelocity = Vector2.Zero;
                 }
             }
         }

Content.Server/Ghost/GhostSystem.cs

@@ -184,13 +184,26 @@ namespace Content.Server.Ghost
                 return;
             }
 
-            if (FindLocation(msg.Name) is { } warp)
+            // TODO: why the fuck is this using the name instead of an entity id or something?
+            // at least it makes sense for the warp command to need to use names, but not this.
+
+            if (FindLocation(msg.Name) is not { } warp)
             {
-                EntityManager.GetComponent<TransformComponent>(ghost.Owner).Coordinates = EntityManager.GetComponent<TransformComponent>(warp.Owner).Coordinates;
+                Logger.Warning($"User {args.SenderSession.Name} tried to warp to an invalid warp: {msg.Name}");
+                return;
+            }
+            
+            if (warp.Follow)
+            {
+                _followerSystem.StartFollowingEntity(attached, warp.Owner);
                 return;
             }
 
-            Logger.Warning($"User {args.SenderSession.Name} tried to warp to an invalid warp: {msg.Name}");
+            var xform = Transform(attached);
+            xform.Coordinates = Transform(warp.Owner).Coordinates;
+            xform.AttachToGridOrMap();
+            if (TryComp(attached, out PhysicsComponent? physics))
+                physics.LinearVelocity = Vector2.Zero;
         }
 
         private void OnGhostWarpToTargetRequest(GhostWarpToTargetRequestEvent msg, EntitySessionEventArgs args)

Content.Server/Warps/WarpPointComponent.cs

@@ -7,5 +7,11 @@ namespace Content.Server.Warps
     public sealed class WarpPointComponent : Component
     {
         [ViewVariables(VVAccess.ReadWrite)] [DataField("location")] public string? Location { get; set; }
+
+        /// <summary>
+        ///     If true, ghosts warping to this entity will begin following it.
+        /// </summary>
+        [DataField("follow")]
+        public readonly bool Follow = false;
     }
 }

Resources/Prototypes/Entities/Objects/Misc/dat_fukken_disk.yml

@@ -13,6 +13,7 @@
     price: 2000
   - type: CargoSellBlacklist
   - type: WarpPoint
+    follow: true
     location: nuke disk
 
 - type: entity