Add 'insideplanet' argument to grid cleanup. Finds grids that are mor…

…e than halfway to the center of the planet.

Essentials/Commands/CleanupModule.cs

@@ -3,13 +3,16 @@
 using System.Linq;
 using System.Text.RegularExpressions;
 using System.Threading.Tasks;
+using System.Windows.Media.Media3D;
 using Sandbox.Game.Entities;
 using Sandbox.Game.World;
 using Torch.Commands;
 using NLog;
 using Sandbox.Game.EntityComponents;
 using SpaceEngineers.Game.Entities.Blocks;
 using VRage.Game.Entity;
+using VRage.Game.ModAPI;
+using Vector3D = VRageMath.Vector3D;
 
 namespace Essentials.Commands
 {
@@ -88,6 +91,9 @@ private IEnumerable<MyCubeGrid> ScanConditions(IReadOnlyList<string> args)
                     case "haspower":
                         conditions.Add(g => HasPower(g));
                         break;
+                    case "insideplanet":
+                        conditions.Add(g => InsidePlanet(g));
+                        break;
                     default:
                         Context.Respond($"Unknown argument '{arg}'");
                         yield break;
@@ -139,6 +145,29 @@ private bool HasPower(MyCubeGrid grid)
             return false;
         }
 
+        private bool InsidePlanet(MyCubeGrid grid)
+        {
+            var s = grid.PositionComp.WorldVolume;
+            var voxels = new List<MyVoxelBase>();
+            MyGamePruningStructure.GetAllVoxelMapsInSphere(ref s, voxels);
+
+            if (!voxels.Any())
+                return false;
+
+            foreach (var v in voxels)
+            {
+                var planet = v as MyPlanet;
+                if (planet == null)
+                    continue;
+
+                var dist2center = Vector3D.DistanceSquared(s.Center, planet.PositionComp.WorldVolume.Center);
+                if (dist2center <= (planet.MaximumRadius * planet.MaximumRadius) / 2)
+                    return true;
+            }
+
+            return false;
+        }
+
         private bool OwnedBy(MyCubeGrid grid, string str)
         {
             long identityId;