-- Flowers spread over all types of soil
minetest.register_abm({
	nodenames = {"group:flora"},
	neighbors = {"group:soil"},
	interval = 13, --25,
	chance = 96, --15,
	catch_up = false,
	action = function(pos, node)

		local light = minetest.get_node_light(pos)

		if not light
		or light < 13 then
			return
		end

		local pos0 = {x = pos.x - 4, y = pos.y - 2, z = pos.z - 4}
		local pos1 = {x = pos.x + 4, y = pos.y + 2, z = pos.z + 4}
		local num = #minetest.find_nodes_in_area_under_air(
			pos0, pos1, "group:flora")

		if num > 3
		and node.name == "ethereal:crystalgrass" then

			local grass = minetest.find_nodes_in_area_under_air(
				pos0, pos1, {"ethereal:crystalgrass"})

			local crystal = minetest.find_nodes_in_area_under_air(
				pos0, pos1, {"ethereal:crystal_spike"})

			if #grass > 4
			and #crystal < 1 then

				grass = grass[math.random(#grass)]

				grass.y = grass.y - 1

				if minetest.get_node(grass).name == "ethereal:crystal_dirt" then

					grass.y = grass.y + 1

					minetest.swap_node(grass, {name = "ethereal:crystal_spike"})
				end
			end

			return

		elseif num > 3
		and node.name == "ethereal:dry_shrub" then

			local grass = minetest.find_nodes_in_area_under_air(
				pos0, pos1, {"ethereal:dry_shrub"})

			local fflower = minetest.find_nodes_in_area_under_air(
				pos0, pos1, {"ethereal:fire_flower"})

			if #grass > 8
			and #fflower < 1 then

				grass = grass[math.random(#grass)]

				grass.y = grass.y - 1

				if minetest.get_node(grass).name == "ethereal:fiery_dirt" then

					grass.y = grass.y + 1

					minetest.swap_node(grass, {name = "ethereal:fire_flower"})
				end
			end

			return

		elseif num > 3 then
			return
		end

		local seedling = minetest.find_nodes_in_area_under_air(
			pos0, pos1, {"group:soil"})

		if #seedling > 0 then

			seedling = seedling[math.random(#seedling)]
			seedling.y = seedling.y + 1

			light = minetest.get_node_light(seedling)

			if not light
			or light < 13 then
				return
			end

			minetest.swap_node(seedling, {name = node.name})
		end
	end,
})