Minetest Forums

Code: Select all

-- spacetime 0.1.0 by paramat
-- for latest stable minetest and back to 0.4.3
-- depends default
-- license WTFPL

spacetime = {}

-- On joinplayer

minetest.register_on_joinplayer(function(player)
    minetest.set_timeofday(0)
    minetest.setting_set("time_speed", 0)
end)

Code: Select all

	function spawnplayer(player)
		local DENOFF = -0.4
		local TSTONE = 0.02
		local PSCA = 4 -- Player scatter from world centre in chunks (80 nodes).
		local xsp
		local ysp
		local zsp
		local np_terrain = {
			offset = 0,
			scale = 1,
			spread = {x=384, y=128, z=384},
			seed = 593,
			octaves = 5,
			persist = 0.67
		}
		local np_terralt = {
			offset = 0,
			scale = 1,
			spread = {x=237, y=79, z=237},
			seed = 593,
			octaves = 5,
			persist = 0.67
		}
		for chunk = 1, 64 do
			print ("[fracture] searching for spawn "..chunk)
			local x0 = 80 * math.random(-PSCA, PSCA) - 32
			local z0 = 80 * math.random(-PSCA, PSCA) - 32
			local y0 = 80 * math.random(-PSCA, PSCA) - 32
			local x1 = x0 + 79
			local z1 = z0 + 79
			local y1 = y0 + 79
	
			local sidelen = 80
			local chulens = {x=sidelen, y=sidelen, z=sidelen}
			local minposxyz = {x=x0, y=y0, z=z0}

			local nvals_terrain = minetest.get_perlin_map(np_terrain, chulens):get3dMap_flat(minposxyz)
			local nvals_terralt = minetest.get_perlin_map(np_terralt, chulens):get3dMap_flat(minposxyz)
	
			local nixyz = 1
			local stable = {}
			for z = z0, z1 do
				for y = y0, y1 do
					for x = x0, x1 do
						local si = x - x0 + 1
						local n_terrain = nvals_terrain[nixyz]
						local n_terralt = nvals_terralt[nixyz]
						local density = (n_terrain + n_terralt) * 0.5 + DENOFF
						if density >= TSTONE then
							stable[si] = true
						elseif stable[si] and density < 0 then
							ysp = y + 1
							xsp = x
							zsp = z
							break
						end
						nixyz = nixyz + 1
					end
					if ysp then
						break
					end
				end
				if ysp then
					break
				end
			end
			if ysp then
				break
			end
		end
		print ("[fracture] spawn player ("..xsp.." "..ysp.." "..zsp..")")
		player:setpos({x=xsp, y=ysp, z=zsp})
		local vm = minetest.get_voxel_manip()
		local pos1 = {x=xsp-2, y=ysp-2, z=zsp-2}
		local pos2 = {x=xsp+2, y=ysp+2, z=zsp+2}
		local emin, emax = vm:read_from_map(pos1, pos2)
		local area = VoxelArea:new({MinEdge=emin, MaxEdge=emax})
		local data = vm:get_data()
		local c_glass = minetest.get_content_id("default:glass")
		for i = -2, 2 do
		for j = -2, 2 do
		for k = -2, 2 do
			if i ^ 2 + j ^ 2 + k ^ 2 >= 4 then
				local vi = area:index(xsp + i, ysp + j, zsp + k)
				data[vi] = c_glass
			end
		end
		end
		end
		vm:set_data(data)
		vm:write_to_map()
		vm:update_map()
	end

	minetest.register_on_newplayer(function(player)
		spawnplayer(player)
	end)

	minetest.register_on_respawnplayer(function(player)
		spawnplayer(player)
		return true
	end)

Code: Select all

[noisegrid] chunk minp (-32 -32 -32)
[noisegrid] emin (-48 -48 -48)
[noisegrid] emax (63 63 63)