Namespacing pt. 1

mods/ip_xdecor/handlers/animations.lua

@@ -0,0 +1,57 @@
+local function top_face(pointed_thing)
+	if not pointed_thing then return end
+	return pointed_thing.above.y > pointed_thing.under.y
+end
+
+function xdecor.sit(pos, node, clicker, pointed_thing)
+	if not top_face(pointed_thing) then return end
+	local player_name = clicker:get_player_name()
+	local objs = minetest.get_objects_inside_radius(pos, 0.1)
+	local vel = clicker:get_player_velocity()
+	local ctrl = clicker:get_player_control()
+
+	for _, obj in pairs(objs) do
+		if obj:is_player() and obj:get_player_name() ~= player_name then
+			return
+		end
+	end
+
+	if default.player_attached[player_name] then
+		pos.y = pos.y - 0.5
+		clicker:set_pos(pos)
+		clicker:set_eye_offset(vector.new(), vector.new())
+		clicker:set_physics_override({speed = 1, jump = 1, gravity = 1})
+		default.player_attached[player_name] = false
+		default.player_set_animation(clicker, "stand", 30)
+
+	elseif not default.player_attached[player_name] and node.param2 <= 3 and
+			not ctrl.sneak and vector.equals(vel, vector.new()) then
+
+		clicker:set_eye_offset({x = 0, y = -7, z = 2}, vector.new())
+		clicker:set_physics_override({speed = 0, jump = 0, gravity = 1})
+		clicker:set_pos(pos)
+		default.player_attached[player_name] = true
+		default.player_set_animation(clicker, "sit", 30)
+
+		if node.param2 == 0 then
+			clicker:set_look_yaw(3.15)
+		elseif node.param2 == 1 then
+			clicker:set_look_yaw(7.9)
+		elseif node.param2 == 2 then
+			clicker:set_look_yaw(6.28)
+		elseif node.param2 == 3 then
+			clicker:set_look_yaw(4.75)
+		end
+	end
+end
+
+function xdecor.sit_dig(pos, digger)
+	for _, player in pairs(minetest.get_objects_inside_radius(pos, 0.1)) do
+		if player:is_player() and
+			    default.player_attached[player:get_player_name()] then
+			return false
+		end
+	end
+
+	return true
+end

mods/ip_xdecor/handlers/helpers.lua

@@ -0,0 +1,60 @@
+-- Returns the greatest numeric key in a table.
+function xdecor.maxn(T)
+	local n = 0
+	for k in pairs(T) do
+		if k > n then
+			n = k
+		end
+	end
+
+	return n
+end
+
+-- Returns the length of an hash table.
+function xdecor.tablelen(T)
+	local n = 0
+
+	for _ in pairs(T) do
+		n = n + 1
+	end
+
+	return n
+end
+
+-- Deep copy of a table. Borrowed from mesecons mod (https://github.com/Jeija/minetest-mod-mesecons).
+function xdecor.tablecopy(T)
+	if type(T) ~= "table" then
+		return T -- No need to copy.
+	end
+
+	local new = {}
+
+	for k, v in pairs(T) do
+		if type(v) == "table" then
+			new[k] = xdecor.tablecopy(v)
+		else
+			new[k] = v
+		end
+	end
+
+	return new
+end
+
+function xdecor.stairs_valid_def(def)
+	return (def.drawtype == "normal" or def.drawtype:sub(1,5) == "glass") and
+	       (def.groups.cracky or def.groups.choppy) and
+		not def.on_construct and
+		not def.after_place_node and
+		not def.on_rightclick and
+		not def.on_blast and
+		not def.allow_metadata_inventory_take and
+		not (def.groups.not_in_creative_inventory == 1) and
+		not (def.groups.not_cuttable == 1) and
+		not def.groups.wool and
+		(def.tiles and type(def.tiles[1]) == "string" and not
+		 def.tiles[1]:find("default_mineral")) and
+		not def.mesecons and
+		def.description and
+		def.description ~= "" and
+		def.light_source == 0
+end

mods/ip_xdecor/handlers/nodeboxes.lua

@@ -0,0 +1,67 @@
+xdecor.box = {
+	slab_y = function(height, shift)
+		return {
+			-0.5,
+			-0.5 + (shift or 0),
+			-0.5,
+			 0.5,
+			-0.5 + height + (shift or 0),
+			 0.5
+		}
+	end,
+	slab_z = function(depth)
+		return {-0.5, -0.5, -0.5 + depth, 0.5, 0.5, 0.5}
+	end,
+	bar_y = function(radius)
+		return {-radius, -0.5, -radius, radius, 0.5, radius}
+	end,
+	cuboid = function(radius_x, radius_y, radius_z)
+		return {-radius_x, -radius_y, -radius_z, radius_x, radius_y, radius_z}
+	end
+}
+
+xdecor.nodebox = {
+	regular = {type = "regular"},
+	null = {
+		type = "fixed", fixed = {0,0,0,0,0,0}
+	}
+}
+
+xdecor.pixelbox = function(size, boxes)
+	local fixed = {}
+	for _, box in ipairs(boxes) do
+		-- `unpack` has been changed to `table.unpack` in newest Lua versions.
+		local x, y, z, w, h, l = unpack(box)
+		fixed[#fixed + 1] = {
+			(x / size) - 0.5,
+			(y / size) - 0.5,
+			(z / size) - 0.5,
+			((x + w) / size) - 0.5,
+			((y + h) / size) - 0.5,
+			((z + l) / size) - 0.5
+		}
+	end
+
+	return {type = "fixed", fixed = fixed}
+end
+
+local mt = {}
+
+mt.__index = function(table, key)
+	local ref = xdecor.box[key]
+	local ref_type = type(ref)
+
+	if ref_type == "function" then
+		return function(...)
+			return {type = "fixed", fixed = ref(...)}
+		end
+	elseif ref_type == "table" then
+		return {type = "fixed", fixed = ref}
+	elseif ref_type == "nil" then
+		error(key .. "could not be found among nodebox presets and functions")
+	end
+
+	error("unexpected datatype " .. tostring(type(ref)) .. " while looking for " .. key)
+end
+
+setmetatable(xdecor.nodebox, mt)

mods/ip_xdecor/handlers/registration.lua

@@ -0,0 +1,78 @@
+
+
+local default_can_dig = function(pos)
+	local inv = minetest.get_meta(pos):get_inventory()
+	return inv:is_empty("main")
+end
+
+local function xdecor_stairs_alternative(nodename, def)
+		local mod, name = nodename:match("(.*):(.*)")
+
+		for groupname, value in pairs(def.groups) do
+			if groupname ~= "cracky"    and groupname ~= "choppy"  and
+			   groupname ~= "flammable" and groupname ~= "crumbly" and
+			   groupname ~= "snappy" then
+				def.groups.groupname = nil
+			end
+		end
+
+		if minetest.get_modpath("moreblocks") then
+			stairsplus:register_all(
+				mod,
+				name,
+				nodename,
+				{
+					description = def.description,
+					tiles = def.tiles,
+					groups = def.groups,
+					sounds = def.sounds,
+				}
+			)
+		elseif minetest.get_modpath("stairs") then
+			stairs.register_stair_and_slab(name,nodename,
+				def.groups,
+				def.tiles,
+				("%s Stair"):format(def.description),
+				("%s Slab"):format(def.description),
+				def.sounds
+			)
+		end
+	end
+
+function xdecor.register(name, def)
+	def.drawtype = def.drawtype or (def.mesh and "mesh") or (def.node_box and "nodebox")
+	def.sounds = def.sounds or default.node_sound_defaults()
+
+	if not (def.drawtype == "normal" or def.drawtype == "signlike" or
+			def.drawtype == "plantlike" or def.drawtype == "glasslike_framed" or
+			def.drawtype == "glasslike_framed_optional") then
+		def.paramtype2 = def.paramtype2 or "facedir"
+	end
+
+	if def.sunlight_propagates ~= false and
+			(def.drawtype == "plantlike" or def.drawtype == "torchlike" or
+			def.drawtype == "signlike" or def.drawtype == "fencelike") then
+		def.sunlight_propagates = true
+	end
+
+	if not def.paramtype and
+		(def.light_source or def.sunlight_propagates or
+		def.drawtype == "nodebox" or def.drawtype == "mesh") then
+		def.paramtype = "light"
+	end
+
+	local infotext = def.infotext
+	local inventory = def.inventory
+	
+
+	minetest.register_node("xdecor:" .. name, def)
+
+	local workbench = minetest.settings:get_bool("enable_xdecor_workbench")
+
+	if workbench == false and
+	  (minetest.get_modpath("moreblocks") or minetest.get_modpath("stairs")) then
+		if xdecor.stairs_valid_def(def) then
+			xdecor_stairs_alternative("xdecor:"..name, def)
+		end
+	end
+end