From 13a9dbed3ed4fae3cb93a0bffa0a4fd13934c775 Mon Sep 17 00:00:00 2001
From: kay27 <kay27@bk.ru>
Date: Thu, 4 Feb 2021 03:41:43 +0400
Subject: [PATCH] Fix
 https://git.minetest.land/MineClone2/MineClone2/issues/1052 (stop searching
 trees after 10+ attempts)

---
 mods/PLAYER/mcl_spawn/init.lua | 72 ++++++++++++++++++++++++++++++----
 1 file changed, 64 insertions(+), 8 deletions(-)

diff --git a/mods/PLAYER/mcl_spawn/init.lua b/mods/PLAYER/mcl_spawn/init.lua
index 103a0c3d..5a4f3d63 100644
--- a/mods/PLAYER/mcl_spawn/init.lua
+++ b/mods/PLAYER/mcl_spawn/init.lua
@@ -45,6 +45,8 @@ local start_pos = minetest.setting_get_pos("static_spawnpoint") or {x = 0, y = 8
 -- Table of suitable biomes
 local biome_ids = {}
 
+local no_trees_area_counter = 0
+
 -- Bed spawning offsets
 local node_search_list =
 	{
@@ -233,8 +235,22 @@ local function next_biome()
 			end
 		end
 		if #biome_ids < 1 then
-			minetest.log("warning", "[mcl_spawn] No suitable biomes found")
-			return false
+			next_pos()
+			if math.abs(cp.x) > spawn_limit or math.abs(cp.z) > spawn_limit then
+				check = checks + 1
+				minetest.log("warning", "[mcl_spawn] No white-listed biomes found - search stopped by overlimit")
+				return false
+			end
+			check = check + 1
+			cp.y = minetest.get_spawn_level(cp.x, cp.z) or start_pos.y
+			if cp.y then
+				wsp = {x = cp.x, y = cp.y, z = cp.z}
+				minetest.log("warning", "[mcl_spawn] No white-listed biomes found - using current")
+				return true
+			else
+				minetest.log("warning", "[mcl_spawn] No white-listed biomes found and spawn level is nil - please define start_pos to continue")
+				return false
+			end
 		end
 		minetest.log("action", "[mcl_spawn] Suitable biomes found: "..tostring(#biome_ids))
 	end
@@ -277,16 +293,56 @@ local function ecb_search_continue(blockpos, action, calls_remaining, param)
 		local nodes = minetest.find_nodes_in_area_under_air(emerge_pos1, emerge_pos2, node_groups_white_list)
 		minetest.log("verbose", "[mcl_spawn] Data emerge callback: "..minetest.pos_to_string(wsp).." - "..tostring(nodes and #nodes) .. " node(s) found under air")
 		if nodes then
-			local trees = get_trees(emerge_pos1, emerge_pos2)
-			if trees then
+			if no_trees_area_counter >= 0 then
+				local trees = get_trees(emerge_pos1, emerge_pos2)
+				if trees and #trees > 0 then
+					no_trees_area_counter = 0
+					if attempts_to_find_pos * 3 < #nodes then
+						-- random
+						for i=1, attempts_to_find_pos do
+							wsp = nodes[math.random(1,#nodes)]
+							if wsp then
+								wsp.y = wsp.y + 1
+								if good_for_respawn(wsp) and can_find_tree(wsp, trees) then
+									minetest.log("action", "[mcl_spawn] Dynamic world spawn randomly determined to be "..minetest.pos_to_string(wsp))
+									searched = true
+									success = true
+									return
+								end
+							end
+						end
+					else
+						-- in a sequence
+						for i=1, math.min(#nodes, attempts_to_find_pos) do
+							wsp = nodes[i]
+							if wsp then
+								wsp.y = wsp.y + 1
+								if good_for_respawn(wsp) and can_find_tree(wsp, trees) then
+									minetest.log("action", "[mcl_spawn] Dynamic world spawn determined to be "..minetest.pos_to_string(wsp))
+									searched = true
+									success = true
+									return
+								end
+							end
+						end
+					end
+				else
+					no_trees_area_counter = no_trees_area_counter + 1
+					if no_trees_area_counter > 10 then
+						minetest.log("verbose", "[mcl_spawn] More than 10 times no trees at all! Won't search trees next 200 calls")
+						no_trees_area_counter = -200
+					end
+				end
+			else -- seems there are no trees but we'll check it later, after next 200 calls
+				no_trees_area_counter = no_trees_area_counter + 1
 				if attempts_to_find_pos * 3 < #nodes then
 					-- random
 					for i=1, attempts_to_find_pos do
 						wsp = nodes[math.random(1,#nodes)]
 						if wsp then
 							wsp.y = wsp.y + 1
-							if good_for_respawn(wsp) and can_find_tree(wsp, trees) then
-								minetest.log("action", "[mcl_spawn] Dynamic world spawn determined to be "..minetest.pos_to_string(wsp))
+							if good_for_respawn(wsp) then
+								minetest.log("action", "[mcl_spawn] Dynamic world spawn randomly determined to be "..minetest.pos_to_string(wsp) .. " (no trees)")
 								searched = true
 								success = true
 								return
@@ -299,8 +355,8 @@ local function ecb_search_continue(blockpos, action, calls_remaining, param)
 						wsp = nodes[i]
 						if wsp then
 							wsp.y = wsp.y + 1
-							if good_for_respawn(wsp) and can_find_tree(wsp, trees) then
-								minetest.log("action", "[mcl_spawn] Dynamic world spawn determined to be "..minetest.pos_to_string(wsp))
+							if good_for_respawn(wsp) then
+								minetest.log("action", "[mcl_spawn] Dynamic world spawn determined to be "..minetest.pos_to_string(wsp) .. " (no trees)")
 								searched = true
 								success = true
 								return