Move raycast_line_of_sight function to mcl_mobs/functions.lua, rework group spawn point selection code, add line of sight check to group origin

mods/ENTITIES/mcl_mobs/functions.lua

@@ -0,0 +1,22 @@
+
+function mcl_mobs.check_line_of_sight(origin, target)
+	local raycast = minetest.raycast(origin, target, false, true)
+
+	local los_blocked = false
+	for hitpoint in raycast do
+		if hitpoint.type == "node" then
+			--TODO type object could block vision, for example chests
+			local node = minetest.get_node(minetest.get_pointed_thing_position(hitpoint))
+
+			if node.name ~= "air" then
+				local nodef = minetest.registered_nodes[node.name]
+				if nodef and nodef.walkable then
+					los_blocked = true
+					break
+				end
+			end
+		end
+	end
+	return not los_blocked
+end
+

mods/ENTITIES/mcl_mobs/init.lua

@@ -6,6 +6,9 @@ local modname = minetest.get_current_modname()
 local path = minetest.get_modpath(modname)
 local S = minetest.get_translator(modname)
 mcl_mobs.fallback_node = minetest.registered_aliases["mapgen_dirt"] or "mcl_core:dirt"
+
+dofile(path .. "/functions.lua")
+
 --api and helpers
 -- effects: sounds and particles mostly
 dofile(path .. "/effects.lua")

mods/ENTITIES/mcl_mobs/movement.lua

@@ -20,6 +20,7 @@ local function atan(x)
 		return atann(x)
 	end
 end
+local raycast_line_of_sight = mcl_mobs.check_line_of_sight
 
 local registered_fallback_node = minetest.registered_nodes[mcl_mobs.fallback_node]
 
@@ -77,28 +78,6 @@ function mob_class:is_node_waterhazard(nodename)
 end
 
 
-local function raycast_line_of_sight (origin, target)
-	local raycast = minetest.raycast(origin, target, false, true)
-
-	local los_blocked = false
-
-	for hitpoint in raycast do
-		if hitpoint.type == "node" then
-			--TODO type object could block vision, for example chests
-			local node = minetest.get_node(minetest.get_pointed_thing_position(hitpoint))
-
-			if node.name ~= "air" then
-				local nodef = minetest.registered_nodes[node.name]
-				if nodef and nodef.walkable then
-					los_blocked = true
-					break
-				end
-			end
-		end
-	end
-	return not los_blocked
-end
-
 function mob_class:target_visible(origin)
 	if not origin then return end
 

mods/ENTITIES/mcl_mobs/spawning.lua

@@ -33,6 +33,7 @@ local vector_floor    = vector.floor
 local table_copy     = table.copy
 local table_remove   = table.remove
 local pairs = pairs
+local check_line_of_sight = mcl_mobs.check_line_of_sight
 
 local LOGGING_ON = minetest.settings:get_bool("mcl_logging_mobs_spawning", false)
 local function mcl_log (message, property)
@@ -792,12 +793,22 @@ local function spawn_group(p, mob, spawn_on, amount_to_spawn, parent_state)
 	-- spawn in a given spot.
 	local o
 	while amount_to_spawn > 0 and #nn > 0 do
+		-- Find the next valid group spawn point
+		local sp
+		while #nn > 0 and not sp do
 		-- Select the next spawn position
-		local sp = vector.offset(nn[#nn],0,1,0)
+			sp = vector.offset(nn[#nn],0,1,0)
 			nn[#nn] = nil
 
+			if spawn_protected and minetest.is_protected(sp, "") then
+				sp = nil
+			elseif not check_line_of_sight(p, sp) then
+				sp = nil
+			end
+		end
+		if not sp then return o end
+
 		-- Spawning prohibited in protected areas
-		if not (spawn_protected and minetest.is_protected(sp, "")) then
 		local state, node = build_state_for_position(sp, parent_state)
 
 		if spawn_check(sp, state, node, mob) then
@@ -814,7 +825,6 @@ local function spawn_group(p, mob, spawn_on, amount_to_spawn, parent_state)
 			end
 		end
 	end
-	end
 	return o
 end