Rezepte bearbeitet, nicht verwendete mods gelöscht, Höhlen schöner gemacht

mods/underworlds/init.lua

@@ -0,0 +1,199 @@
+-- Underworlds init.lua
+-- Copyright Duane Robertson (duane@duanerobertson.com), 2017
+-- Distributed under the LGPLv2.1 (https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html)
+
+
+underworlds_mod = {}
+underworlds_mod.version = "1.0"
+underworlds_mod.path = minetest.get_modpath(minetest.get_current_modname())
+underworlds_mod.world = minetest.get_worldpath()
+
+underworlds_mod.integration = minetest.setting_getbool('underworlds_mod_integration')
+if underworlds_mod.integration == nil then
+	underworlds_mod.integration = false
+end
+
+
+underworlds_mod.underzones = {
+	Caina = {
+		name = 'Caina',
+		ceiling_node = 'default:ice',
+		column_node = 'default:ice',
+		column_node_rare  =  'underworlds:thin_ice',
+		floor_node = 'default:ice',
+        high_chunk = -22,
+        low_chunk = -25,
+		regular_columns = false,
+		stalactite = 'underworlds:icicle_down',
+		stalactite_chance = 12,
+		stone_depth = 2,
+		vary = true,
+	},
+	Phlegethos = {
+		name = 'Phlegethos',
+		ceiling_node = 'underworlds:black_sand',
+		column_node = 'default:stone',
+		column_node_rare  =  'underworlds:hot_stone',
+		floor_node = 'caverealms:hot_cobble',
+		fluid = 'default:lava_source',
+		fluid_chance = 1200,
+        high_chunk = -26,
+        low_chunk = -28,
+		lake = 'default:lava_source',
+		lake_level = 5,
+		regular_columns = false,
+		stone_depth = 1,
+		vary = true,
+	},
+	Dis = {
+		name = 'Dis',
+    ceiling_height = 2,
+		ceiling_node = 'underworlds:hot_brass',
+    city = true,
+		column_node = 'default:steelblock',
+    floor_depth = 10,
+		floor_node = 'underworlds:hot_brass',
+        high_chunk = -30,
+        low_chunk = -30,
+		regular_columns = true,
+		stone_depth = 1,
+		vary = false,
+	},
+	Minauros = {
+		name = 'Minauros',
+		ceiling_node = 'underworlds:black_sand',
+		column_node = 'underworlds:polluted_dirt',
+		column_node_rare  =  'underworlds:glowing_fungal_stone',
+		floor_node = 'underworlds:polluted_dirt',
+		fluid = 'underworlds:water_poison_source',
+		fluid_chance = 2000,
+        high_chunk = -32,
+		lake = 'underworlds:water_poison_source',
+		lake_level = 10,
+        low_chunk = -35,
+		regular_columns = false,
+		stone_depth = 2,
+		vary = true,
+	},
+	Styx = {
+		name = 'Styx',
+		ceiling_node = 'default:dirt',
+		floor_node = 'default:dirt',
+        high_chunk = -36,
+        low_chunk = -40,
+		regular_columns = false,
+		stone_depth = 2,
+    sea_chunk = -16,
+		vary = true,
+	},
+}
+
+for _, uz in pairs(underworlds_mod.underzones) do
+  if uz.low_chunk and uz.high_chunk then
+    uz.lower_bound = uz.low_chunk * 80 - 32
+    uz.floor = uz.lower_bound + (uz.floor_depth or 20)
+    uz.upper_bound = uz.high_chunk * 80 + 47
+    uz.ceiling = uz.upper_bound - (uz.ceiling_height or 20)
+  end
+  if uz.sea_chunk then
+    uz.sealevel = uz.sea_chunk * 80
+  end
+end
+
+
+function underworlds_mod.clone_node(name)
+	if not (name and type(name) == 'string') then
+		return
+	end
+
+	local node = minetest.registered_nodes[name]
+	local node2 = table.copy(node)
+	return node2
+end
+
+
+underworlds_mod.place_schematic = function(minp, maxp, data, p2data, area, node, pos, schem, center)
+	if not (minp and maxp and data and p2data and area and node and pos and schem and type(data) == 'table' and type(p2data) == 'table' and type(schem) == 'table') then
+		return
+	end
+
+	local rot = math.random(4) - 1
+	local yslice = {}
+	if schem.yslice_prob then
+		for _, ys in pairs(schem.yslice_prob) do
+			yslice[ys.ypos] = ys.prob
+		end
+	end
+
+	if center then
+		pos.x = pos.x - math.floor(schem.size.x / 2)
+		pos.z = pos.z - math.floor(schem.size.z / 2)
+	end
+
+	for z1 = 0, schem.size.z - 1 do
+		for x1 = 0, schem.size.x - 1 do
+			local x, z
+			if rot == 0 then
+				x, z = x1, z1
+			elseif rot == 1 then
+				x, z = schem.size.z - z1 - 1, x1
+			elseif rot == 2 then
+				x, z = schem.size.x - x1 - 1, schem.size.z - z1 - 1
+			elseif rot == 3 then
+				x, z = z1, schem.size.x - x1 - 1
+			end
+			local dz = pos.z - minp.z + z
+			local dx = pos.x - minp.x + x
+			if pos.x + x > minp.x and pos.x + x < maxp.x and pos.z + z > minp.z and pos.z + z < maxp.z then
+				local ivm = area:index(pos.x + x, pos.y, pos.z + z)
+				local isch = z1 * schem.size.y * schem.size.x + x1 + 1
+				local math_random = math.random
+				for y = 0, schem.size.y - 1 do
+					local dy = pos.y - minp.y + y
+						if yslice[y] or 255 >= math_random(255) then
+							local prob = schem.data[isch].prob or schem.data[isch].param1 or 255
+							if prob >= math_random(255) and schem.data[isch].name ~= "air" then
+								data[ivm] = node[schem.data[isch].name]
+							end
+							local param2 = schem.data[isch].param2 or 0
+							p2data[ivm] = param2
+						end
+
+					ivm = ivm + area.ystride
+					isch = isch + schem.size.x
+				end
+			end
+		end
+	end
+end
+
+
+-- Create and initialize a table for a schematic.
+function underworlds_mod.schematic_array(width, height, depth)
+	if not (width and height and depth and type(width) == 'number' and type(height) == 'number' and type(depth) == 'number') then
+		return
+	end
+
+	-- Dimensions of data array.
+	local s = {size={x=width, y=height, z=depth}}
+	s.data = {}
+
+	for z = 0,depth-1 do
+		for y = 0,height-1 do
+			for x = 0,width-1 do
+				local i = z*width*height + y*width + x + 1
+				s.data[i] = {}
+				s.data[i].name = "air"
+				s.data[i].param1 = 000
+			end
+		end
+	end
+
+	s.yslice_prob = {}
+
+	return s
+end
+
+
+dofile(underworlds_mod.path .. "/deco.lua")
+dofile(underworlds_mod.path .. "/mapgen.lua")