minetest-game-minetest/mods/beds/spawns.lua

local world_path = minetest.get_worldpath()
local org_file = world_path .. "/beds_spawns"
local file = world_path .. "/beds_spawns"
local bkwd = false


-- check for PA's beds mod spawns
local cf = io.open(world_path .. "/beds_player_spawns", "r")

if cf ~= nil then
	io.close(cf)
	file = world_path .. "/beds_player_spawns"
	bkwd = true
end


function beds.read_spawns()

	local spawns = beds.spawn
	local input = io.open(file, "r")

	if input and not bkwd then

		repeat

			local x = input:read("*n")

			if x == nil then
				break
			end

			local y = input:read("*n")
			local z = input:read("*n")
			local name = input:read("*l")

			spawns[name:sub(2)] = {x = x, y = y, z = z}

		until input:read(0) == nil

		io.close(input)

	elseif input and bkwd then

		beds.spawn = minetest.deserialize(input:read("*all"))
		input:close()
		beds.save_spawns()
		os.rename(file, file .. ".backup")
		file = org_file
	end
end


-- load player spawn positions
beds.read_spawns()


function beds.save_spawns()

	if not beds.spawn then
		return
	end

	local data = {}
	local output = io.open(org_file, "w")

	for k, v in pairs(beds.spawn) do
		table.insert(data, string.format("%.1f %.1f %.1f %s\n", v.x, v.y, v.z, k))
	end

	output:write(table.concat(data))
	io.close(output)
end


function beds.set_spawns()

	for name,_ in pairs(beds.player) do

		local player = minetest.get_player_by_name(name)
		local p = player:get_pos()

		-- but don't change spawn location if borrowing a bed
		if not minetest.is_protected(p, name) then
			beds.spawn[name] = p
		end
	end

	beds.save_spawns()
end


function beds.remove_spawns_at(pos)

	for name, p in pairs(beds.spawn) do

		if vector.equals(vector.round(p), pos) then
			beds.spawn[name] = nil
		end
	end

	beds.save_spawns()
end