Added "head" command

Added "head" command to change the package of a player's head, because it didn't exist for some reason.

MainModule/Server/Commands/Fun.lua

@@ -3919,6 +3919,30 @@ return function(Vargs, env)
 				model:Destroy()
 			end
 		};
+
+		Head = {
+			Prefix = Settings.Prefix;
+			Commands = {"head", "headpackage"};
+			Args = {"player", "id"};
+			Hidden = false;
+			Description = "Change the target player(s)'s Head package";
+			Fun = true;
+			AdminLevel = "Moderators";
+			Function = function(plr: Player, args: {string})
+				local id = service.MarketPlace:GetProductInfo(args[2]).AssetTypeId
+				assert(id == 17, "ID is not a head!")
+
+				local model = service.Insert(args[2], true)
+
+				for i, v in pairs(service.GetPlayers(plr, args[1])) do
+					if v.Character then
+						Functions.ApplyBodyPart(v.Character, model)
+					end
+				end
+
+				model:Destroy()
+			end
+		};
 
 		LoopFling = {
 			Prefix = Settings.Prefix;