-- Entities.lua

-- Contains commands that do things with entities.





-- Remove all entities of a or multiple types
function HandleRemoveCommand(a_Split, a_Player)
	-- /remove <EntityTypes>

	-- Collect all the entity names with their corresponding type
	local Types = {}
	for Key, Value in pairs(cEntity) do
		if ((type(Value) == "number") and (Key:sub(1, 2) == "et") and (Value ~= cEntity.etPlayer)) then
			Types[Key:sub(3, Key:len()):lower()] = Value
		end
	end

	-- Check if the player gave a parameter. If not show them a list of acceptable types.
	if (a_Split[2] == nil) then
		a_Player:SendMessage(cChatColor.Rose .. "Too few arguments.\n/remove <type>")
		local ListEntityNames = ""
		for EntityName, _ in pairs(Types) do
			ListEntityNames = ListEntityNames .. EntityName .. ", "
		end

		a_Player:SendMessage(cChatColor.Rose .. "Acceptable types: " .. ListEntityNames:sub(1, ListEntityNames:len() - 2))
		return true
	end

	-- Used to check if there is at least one entity type to be removed.
	local NumEntityTypes = 0

	-- Check if the parameters given are valid. If not, then ignore them.
	local EntityTypes = {}
	local EntityNames = StringSplit(a_Split[2], ",")
	for Idx, EntityName in ipairs(EntityNames) do
		local LowerCasedEntityName = EntityName:lower()
		if (Types[LowerCasedEntityName]) then
			EntityTypes[Types[LowerCasedEntityName]] = true
			NumEntityTypes = NumEntityTypes + 1
		else
			a_Player:SendMessage(cChatColor.Rose .. "Unknown entity \"" .. EntityName .. "\". Ignoring it.")
		end
	end

	-- Bail out of not even one entity type will be removed.
	if (NumEntityTypes == 0) then
		return true
	end

	local NumRemovedEntities = 0

	-- Go through every entity and check if it should be removed
	a_Player:GetWorld():ForEachEntity(
		function(a_Entity)
			if (EntityTypes[a_Entity:GetEntityType()]) then
				a_Entity:Destroy()
				NumRemovedEntities = NumRemovedEntities + 1
			end
		end
	)

	-- Send a message to the player.
	a_Player:SendMessage(cChatColor.LightPurple .. "Marked " .. NumRemovedEntities .. " entit(ies) for removal.")
	return true
end





-- Kill all or nearby mobs
function HandleButcherCommand(a_Split, a_Player)
	-- /butcher [Radius]

	local Radius;
	if (a_Split[2] == nil) then -- if the player did not give a radius then the radius is the normal radius
		Radius = g_Config.Defaults.ButcherRadius
	elseif (tonumber(a_Split[2]) == nil) then -- if the player gave a string as radius then stop
		a_Player:SendMessage(cChatColor.Rose .. 'Number expected; string "' .. a_Split[2] .. '" given')
		return true
	else -- the radius is set to the given radius
		Radius = tonumber(a_Split[2])
	end

	if ((g_Config.Limits.ButcherRadius > 0) and (Radius > g_Config.Limits.ButcherRadius)) then
		a_Player:SendMessage(cChatColor.Rose .. 'Maximum butcher radius exceeded.')
		return true
	end

	-- If this is true then the mob will be destroyed regardless of how far he is from the player.
	local ShouldRemoveAllMobs = Radius <= 0

	-- Number of mobs that were destroyed.
	local NumDestroyedMobs = 0

	-- Loop through all the entities and destroy all/nearby mobs
	a_Player:GetWorld():ForEachEntity(
		function(a_Entity)
			if (a_Entity:IsMob()) then
				if (ShouldRemoveAllMobs) then
					a_Entity:Destroy()
					NumDestroyedMobs = NumDestroyedMobs + 1
				else
					if ((a_Player:GetPosition() - a_Entity:GetPosition()):Length() <= Radius) then -- If the mob is inside the radius then destroy it.
						a_Entity:Destroy()
						NumDestroyedMobs = NumDestroyedMobs + 1
					end
				end
			end
		end
	)

	-- Send a message to the player.
	a_Player:SendMessage(cChatColor.LightPurple .. "Killed " .. NumDestroyedMobs .. " mobs.")
	return true
end