Merge pull request 'The New, Improved, Safe and More Powerful /clearmobs command' (#3528) from clearmobs_improvements into master

Reviewed-on: https://git.minetest.land/MineClone2/MineClone2/pulls/3528

mods/ENTITIES/mcl_mobs/api.lua

@@ -534,20 +534,110 @@ minetest.register_globalstep(function(dtime)
 	timer = 0
 end)
 
+
 minetest.register_chatcommand("clearmobs",{
 	privs={maphack=true},
-	params = "<all>|<nametagged>|<range>",
-	description=S("Removes all spawned mobs except nametagged and tamed ones. all removes all mobs, nametagged only nametagged ones and with the range paramter all mobs in a distance of the current player are removed."),
-	func=function(n,param)
-		local p = minetest.get_player_by_name(n)
-		local num=tonumber(param)
+	params = "[<all>|<hostile/passive>|<name>] [<nametagged>|<range>]",
+	description=S("Removes specified spawned mobs except nametagged and tamed ones. For param2, use nametagged to remove those with a nametag, or range for all mobs in a distance of the current player to be removed."),
+	func=function(player, param)
+		local default = false
+		if not param or param == "" then
+			default = true
+			minetest.chat_send_player(player,
+					S("Default usage. Clearing hostile mobs. For more options please type: /help clearmobs"))
+		end
+		local mob, unsafe = param:match("^([%w]+)[ ]?([%w%d]*)$")
+
+		local all = false
+		local nametagged = false
+
+		local mob_name, mob_type, range
+
+		-- Param 1 resolve
+		if mob and mob ~= "" then
+			if mob == "all" then
+				all = true
+			elseif mob == "passive" or mob == "monster" then
+				mob_type = mob
+			elseif mob then
+				mob_name = mob
+			end
+			--minetest.log ("mob: [" .. mob .. "]")
+		else
+			--minetest.log("No valid first param")
+			if default then
+				--minetest.log("Use default")
+				mob_type = "monster"
+			end
+			--return
+		end
+
+		-- Param 2 resolve
+		if unsafe and unsafe ~= "" then
+			--minetest.log ("unsafe: [" .. unsafe .. "]")
+			if unsafe == "nametagged" then
+				nametagged = true
+			end
+
+			local num = tonumber(unsafe)
+			if num then range = num end
+		end
+
+		local p = minetest.get_player_by_name(player)
+
 		for _,o in pairs(minetest.luaentities) do
-			if o.is_mob then
-				if  param == "all" or
-				( param == "nametagged" and o.nametag ) or
-				( param == "" and ( not o.nametag or o.nametag == "" ) and not o.tamed ) or
-				( num and num > 0 and vector.distance(p:get_pos(),o.object:get_pos()) <= num ) then
-					o.object:remove()
+			if o and o.is_mob then
+				local mob_match = false
+
+				if all then
+					--minetest.log("Match - All mobs specified")
+					mob_match = true
+				elseif mob_type then
+
+					--minetest.log("Match - o.type: ".. tostring(o.type))
+					--minetest.log("mob_type: ".. tostring(mob_type))
+					if mob_type == "monster" and o.type == mob_type then
+						--minetest.log("Match - monster")
+						mob_match = true
+					elseif mob_type == "passive" and o.type ~= "monster" and o.type ~= "npc" then
+						--minetest.log("Match - passive")
+						mob_match = true
+					else
+						--minetest.log("No match for type.")
+					end
+
+				elseif mob_name and (o.name == mob_name or string.find(o.name, mob_name)) then
+					--minetest.log("Match - mob_name = ".. tostring(o.name))
+					mob_match = true
+				else
+					--minetest.log("No match - o.type = ".. tostring(o.type))
+					--minetest.log("No match - mob_name = ".. tostring(o.name))
+					--minetest.log("No match - mob_type = ".. tostring(mob_name))
+				end
+
+				if mob_match then
+					local in_range = true
+					if (not range or range <= 0 ) then
+						in_range = true
+					else
+						if ( vector.distance(p:get_pos(),o.object:get_pos()) <= range ) then
+							in_range = true
+						else
+							--minetest.log("Out of range")
+							in_range = false
+						end
+					end
+
+					--minetest.log("o.nametag: ".. tostring(o.nametag))
+					if in_range and ( (not o.nametag or o.nametag == "" ) and not o.tamed ) then
+						--minetest.log("No nametag or tamed. Kill it")
+						o.object:remove()
+					elseif nametagged and o.nametag then
+						--minetest.log("Namedtagged and it has a name tag. Kill it")
+						o.object:remove()
+					else
+						--minetest.log("Tamed or out of range, do not kill")
+					end
 				end
 			end
 		end