summer/sdraia.lua

local sdraia_list = {
	{ "Red sdraia",    "red" },
	{ "Orange sdraia", "orange" },
	{ "Black sdraia",  "black" },
	{ "Yellow sdraia", "yellow" },
	{ "Green sdraia",  "green" },
	{ "Blue sdraia",   "blue" },
	{ "Violet sdraia", "violet" },
}

for i in ipairs(sdraia_list) do
	local sdraiadesc = sdraia_list[i][1]
	local colour = sdraia_list[i][2]
	local sleep_in_sdraia = function(pos, node, clicker, itemstack, pointed_thing)
		if (not (clicker) or not (node) or not (node.name) or not (pos) or not (minetest.allow_sit(clicker))) then
			return;
		end

		local animation = default.player_get_animation(clicker);
		local pname = clicker:get_player_name();

		local place_name = 'place';
		-- if only one node is present, the player can only sit;
		-- sleeping requires a sdraia head+foot or two sleeping mats
		local allow_sleep = false;
		local new_animation = 'lay';

		-- let players get back up
		if (animation and animation.animation == "lay") then
			default.player_attached[pname] = false
			clicker:setpos({ x = pos.x, y = pos.y - 0.5, z = pos.z })
			clicker:set_eye_offset({ x = 0, y = 0, z = 0 }, { x = 0, y = 0, z = 0 })
			clicker:set_physics_override({ 1, 1, 1 })
			default.player_set_animation(clicker, "stand", 30)
			minetest.chat_send_player(pname, 'You stand up again.');
			return;
		end

		local second_node_pos = { x = pos.x, y = pos.y, z = pos.z };
		-- the node that will contain the head of the player
		local p = { x = pos.x, y = pos.y, z = pos.z };
		-- the player's head is pointing in this direction
		local dir = node.param2;
		-- it would be odd to sleep in half a sdraia
		if (node.name == "summer:sdraia_" .. colour .. "") then
			if (node.param2 == 0) then
				second_node_pos.z = pos.z - 1;
			elseif (node.param2 == 1) then
				second_node_pos.x = pos.x - 1;
			elseif (node.param2 == 2) then
				second_node_pos.z = pos.z + 1;
			elseif (node.param2 == 3) then
				second_node_pos.x = pos.x + 1;
			end
			local node2 = minetest.get_node(second_node_pos);
			if (not (node2) or not (node2.param2) or not (node.param2)
					or node2.name ~= "summer:sdraia_" .. colour .. ""
					or node2.param2 ~= node.param2) then
				allow_sleep = false;
			else
				allow_sleep = true;
			end
			place_name = "sdraia_" .. colour .. "";

			-- if the player clicked on the foot of the sdraia, locate the head
		elseif (node.name == 'summer:sdraia') then
			if (node.param2 == 2) then
				second_node_pos.z = pos.z - 1;
			elseif (node.param2 == 3) then
				second_node_pos.x = pos.x - 1;
			elseif (node.param2 == 0) then
				second_node_pos.z = pos.z + 1;
			elseif (node.param2 == 1) then
				second_node_pos.x = pos.x + 1;
			end
			local node2 = minetest.get_node(second_node_pos);
			if (not (node2) or not (node2.param2) or not (node.param2)
					or node2.name ~= 'summer:sdraia'
					or node2.param2 ~= node.param2) then
				allow_sleep = false;
			else
				allow_sleep = true;
			end
			if (allow_sleep == true) then
				p = { x = second_node_pos.x, y = second_node_pos.y, z = second_node_pos.z };
			end
			place_name = 'sdraia';
		elseif (node.name == 'summer:sleeping_mat' or node.name == 'summer:straw_mat') then
			place_name = 'mat';
			dir = node.param2;
			allow_sleep = false;
			-- search for a second mat right next to this one
			local offset = { { x = 0, z = -1 }, { x = -1, z = 0 }, { x = 0, z = 1 }, { x = 1, z = 0 } };
			for i, off in ipairs(offset) do
				node2 = minetest.get_node({ x = pos.x + off.x, y = pos.y, z = pos.z + off.z });
				if (node2.name == 'summer:sleeping_mat' or node2.name == 'summer:straw_mat') then
					-- if a second mat is found, sleeping is possible
					allow_sleep = true;
					dir = i - 1;
				end
			end
		end

		-- set the right height for the sdraia
		if (place_name == 'sdraia') then
			p.y = p.y - 0.4;
		end
		if (allow_sleep == true) then
			-- set the right position (middle of the sdraia)
			if (dir == 0) then
				p.z = p.z - 0.5;
			elseif (dir == 1) then
				p.x = p.x - 0.5;
			elseif (dir == 2) then
				p.z = p.z + 0.5;
			elseif (dir == 3) then
				p.x = p.x + 0.5;
			end
		end

		if (default.player_attached[pname] and animation.animation == "sit") then
			-- just changing the animation...
			if (allow_sleep == true) then
				default.player_set_animation(clicker, "lay", 30)
				clicker:set_eye_offset({ x = 0, y = -14, z = 2 }, { x = 0, y = 0, z = 0 })
				minetest.chat_send_player(pname, 'you lay A right-click will wake you up.');
				return;
				-- no sleeping on this place
			else
				default.player_attached[pname] = false
				clicker:setpos({ x = pos.x, y = pos.y - 0.5, z = pos.z })
				clicker:set_eye_offset({ x = 0, y = 0, z = 0 }, { x = 0, y = 0, z = 0 })
				clicker:set_physics_override({ 1, 1, 1 })
				default.player_set_animation(clicker, "stand", 30)
				minetest.chat_send_player(pname, 'That was enough sitting around for now. You stand up again.');
				return;
			end
		end


		clicker:set_eye_offset({ x = 0, y = 3, z = 2 }, { x = 0, y = 3, z = 0 })
		clicker:setpos(p);
		default.player_set_animation(clicker, new_animation, 30)
		clicker:set_physics_override({ 0, 0, 0 })
		default.player_attached[pname] = true
		return;
	end



	minetest.register_node("summer:sdraia_" .. colour .. "", {
		description       = sdraiadesc .. "",
		drawtype          = "mesh",
		mesh              = "sdraia.obj",
		tiles             = { "sdraia_" .. colour .. ".png",
		},
		inventory_image   = "sdraia_" .. colour .. "_inv.png",

		wield_image       = "sdraia_" .. colour .. ".png",
		paramtype         = "light",
		paramtype2        = "facedir",
		selection_box     = {
			type = "fixed",
			fixed = { 0.4, 0.1, 1.0, -0.4, -0.49, -1.0 },
		},
		collision_box     = {
			type = "fixed",
			fixed = {
				{ 0.4, 0.1, 1.0, -0.4, -0.49, -1.0 },
			},
		},
		is_ground_content = false,
		groups            = { cracky = 3, oddly_breakable_by_hand = 3, not_in_creative_inventory = 0 },
		--sounds = default.node_sound_wood_defaults(),
		drop              = "summer:sdraia_" .. colour .. "",
		on_rightclick     = function(pos, node, clicker, itemstack, pointed_thing)
			return sleep_in_sdraia(pos, node, clicker, itemstack, pointed_thing);
		end


	})


	minetest.allow_sit = function(player)
		-- no check possible
		if (not (player.get_player_velocity)) then
			return true;
		end
		local velo = player:get_player_velocity();
		if (not (velo)) then
			return false;
		end
		local max_velo = 0.0010;
		if (math.abs(velo.x) < max_velo
				and math.abs(velo.y) < max_velo
				and math.abs(velo.z) < max_velo) then
			return true;
		end
		return false;
	end
end