Initial commit (1.0 beta)

Update textures

README.txt

@@ -0,0 +1,35 @@
+Minetest mod "Beds"
+===================
+by BlockMen (c) 2014
+
+Version: 1.0 Beta
+
+About
+~~~~~
+This mod a bed to Minetest which helps to skip the night. To sleep rightclick the bed, if playing 
+in singleplayer mode the night gets skipped imideatly. If playing on server you get shown how many other
+players are in bed too. If all players are sleeping the night gets skipped aswell.
+
+Another feature is a controled respawning. If you have slept in bed (not just lying in it) your respawn point
+is set to the beds location. If dying you will respawn there.
+
+
+To craft a bed you need 3 wood and 3 wool and place it in following shape:
+
+wool wool wool
+wood wood wood
+
+Notice: You can use any color of wood or wool, mixing different is also possible.
+
+
+License of source code, textures: WTFPL
+---------------------------------------
+(c) Copyright BlockMen (2014)
+
+
+
+This program is free software. It comes without any warranty, to
+the extent permitted by applicable law. You can redistribute it
+and/or modify it under the terms of the Do What The Fuck You Want
+To Public License, Version 2, as published by Sam Hocevar. See
+http://sam.zoy.org/wtfpl/COPYING for more details.

depends.txt

@@ -0,0 +1,2 @@
+default
+wool

init.lua

@@ -0,0 +1,198 @@
+beds = {}
+beds.player = {}
+beds.pos = {}
+beds.spawn = {}
+
+local form = 	"size[8,15;true]"..
+		"bgcolor[#080808BB; true]"..
+		"button_exit[2,12;4,0.75;leave;Leave Bed]"
+local player_in_bed = 0
+
+
+-- help functions
+
+local function get_look_yaw(pos)
+	local n = minetest.get_node(pos)
+	if n.param2 == 1 then
+		return 7.9, n.param2
+	elseif n.param2 == 3 then
+		return 4.75, n.param2
+	elseif n.param2 == 0 then
+		return 3.15, n.param2
+	else
+		return 6.28, n.param2
+	end
+end
+
+
+local function check_in_beds(players)
+	local in_bed = beds.player
+	if not players then
+		players = minetest.get_connected_players()
+	end
+
+	for n, player in ipairs(players) do
+		local name = player:get_player_name()
+		if not in_bed[name] then
+			return false
+		end
+	end
+
+	return true
+end
+
+local function lay_down(player, pos, bed_pos, state)
+	local name = player:get_player_name()
+	local hud_flags = player:hud_get_flags()
+
+	if not player or not name then
+		return
+	end
+
+	-- stand up
+	if state ~= nil and not state then
+		local p = beds.pos[name] or nil
+		if beds.player[name] ~= nil then
+			beds.player[name] = nil
+			player_in_bed = player_in_bed - 1
+		end
+		if p then 
+			player:setpos(p)
+		end
+
+		-- physics, eye_offset, etc
+		player:set_eye_offset({x=0,y=0,z=0}, {x=0,y=0,z=0})
+		player:set_look_yaw(math.random(1, 180)/100)
+		default.player_attached[name] = false
+		player:set_physics_override(1, 1, 1)
+		hud_flags.wielditem = true
+		default.player_set_animation(player, "stand" , 30)
+
+	-- lay down
+	else
+		beds.player[name] = 1
+		beds.pos[name] = pos
+		player_in_bed = player_in_bed + 1
+
+		-- physics, eye_offset, etc
+		player:set_eye_offset({x=0,y=-13,z=0}, {x=0,y=0,z=0})--8
+		local yaw, param2 = get_look_yaw(bed_pos)
+		player:set_look_yaw(yaw)
+		local dir = minetest.facedir_to_dir(param2)
+		local p = {x=bed_pos.x+dir.x/2,y=bed_pos.y,z=bed_pos.z+dir.z/2}
+		--p.y = p.y + 0.2
+		player:setpos(p)
+		player:setpos(p)
+		default.player_attached[name] = true
+		player:set_physics_override(0, 0, 0)
+		hud_flags.wielditem = false
+		default.player_set_animation(player, "lay" , 0)
+	end
+
+	player:hud_set_flags(hud_flags)
+end
+
+local function update_formspecs(finished)
+	local ges = #minetest.get_connected_players()
+	local form_n = ""
+
+	if finished then
+		form_n = form ..
+			"label[2.7,11; Good morning.]"
+	else
+		form_n = form ..
+			"label[2.2,11;"..tostring(player_in_bed).." of "..tostring(ges).." players are in bed]"
+	end
+	
+	for name,_ in pairs(beds.player) do
+		minetest.show_formspec(name, "beds_form", form_n)
+	end
+end
+
+
+-- public functions
+
+function beds.kick_players()
+	for name,_ in pairs(beds.player) do
+		local player = minetest.get_player_by_name(name)
+		lay_down(player, nil, nil, false)
+	end
+end
+
+function beds.skip_night()
+	minetest.set_timeofday(0.23)
+	beds.set_spawns()
+end
+
+function beds.on_rightclick(pos, player)
+	local name = player:get_player_name()
+	local ppos = player:getpos()
+	local tod = minetest.get_timeofday()
+
+	if tod > 0.2 and tod < 0.805 then
+		minetest.chat_send_player(name, "You can only sleep at night.")
+		return
+	end
+
+	-- move to bed
+	if not beds.player[name] then
+		lay_down(player, ppos, pos)
+	else
+		lay_down(player, nil, nil, false)
+	end
+
+	update_formspecs(false)
+
+	-- skip the night and let all stand up
+	if check_in_beds() then
+		minetest.after(2, function()
+			beds.skip_night()
+			update_formspecs(true)
+			beds.kick_players()
+		end)
+	end
+end
+
+
+-- callbacks
+
+minetest.register_on_joinplayer(function(player)
+	beds.read_spawns()
+end)
+
+minetest.register_on_respawnplayer(function(player)
+	local name = player:get_player_name()
+	local pos = beds.spawn[name] or nil
+	if pos then
+		player:setpos(pos)
+		return true
+	end
+end)
+
+minetest.register_on_leaveplayer(function(player)
+	local name = player:get_player_name()
+	lay_down(player, nil, nil, false)
+	beds.player[name] = nil
+	if check_in_beds() then
+		minetest.after(2, function()
+			beds.skip_night()
+			update_formspecs(true)
+			beds.kick_players()
+		end)
+	end
+end)
+
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+	if formname ~= "beds_form" then
+		return
+	end
+	if fields.quit or fields.leave then
+		lay_down(player, nil, nil, false)
+		update_formspecs(false)
+	end
+end)
+
+
+-- nodes and respawn function
+dofile(minetest.get_modpath("beds").."/nodes.lua")
+dofile(minetest.get_modpath("beds").."/spawns.lua")

nodes.lua

@@ -0,0 +1,92 @@
+-- help functions
+
+local function remove_top(pos)
+	local n = minetest.get_node_or_nil(pos)
+	local dir = minetest.facedir_to_dir(n.param2)
+	local p = {x=pos.x+dir.x,y=pos.y,z=pos.z+dir.z}
+	if minetest.get_item_group(minetest.get_node(p).name, "bed") == 2 then
+		minetest.remove_node(p)
+	end
+end
+
+local function add_top(pos)
+	local n = minetest.get_node_or_nil(pos)
+	if not n or not n.param2 then
+		minetest.remove_node(pos)
+		return true
+	end
+	local dir = minetest.facedir_to_dir(n.param2)
+	local p = {x=pos.x+dir.x,y=pos.y,z=pos.z+dir.z}
+	local n2 = minetest.get_node_or_nil(p)
+	local def = minetest.registered_items[n2.name] or nil
+	if not n2 or not def or not def.buildable_to then
+		minetest.remove_node(pos)
+		return true
+	end
+	minetest.set_node(p, {name="beds:bed_top", param2 = n.param2})
+	return false
+end
+
+
+-- register nodes
+
+minetest.register_node("beds:bed_bottom", {
+	description = "Bed",
+	inventory_image = "beds_bed.png",
+	wield_image = "beds_bed.png",
+	drawtype = "nodebox",
+	tiles = {"beds_bed_top_bottom.png^[transformR90", "default_wood.png",  "beds_bed_side_bottom_r.png",  "beds_bed_side_bottom_r.png^[transformfx", "beds_transparent.png", "beds_bed_side_bottom.png"},
+	paramtype = "light",
+	paramtype2 = "facedir",
+	stack_max = 1,
+	groups = {snappy=1,choppy=2,oddly_breakable_by_hand=2,flammable=3,bed=1},
+	sounds = default.node_sound_wood_defaults(),
+	node_box = {
+		type = "fixed",
+		fixed = {-0.5, -0.5, -0.5, 0.5, 0.06, 0.5},
+	},
+	selection_box = {
+		type = "fixed",
+		fixed = {-0.5, -0.5, -0.5, 0.5, 0.06, 1.5},
+				
+	},
+	after_place_node = function(pos, placer, itemstack)
+		return add_top(pos)
+	end,	
+	on_destruct = function(pos)
+		remove_top(pos)
+	end,
+	on_rightclick = function(pos, node, clicker)
+		beds.on_rightclick(pos, clicker)
+	end,
+})
+
+minetest.register_node("beds:bed_top", {
+	drawtype = "nodebox",
+	tiles = {"beds_bed_top_top.png^[transformR90", "default_wood.png",  "beds_bed_side_top_r.png",  "beds_bed_side_top_r.png^[transformfx",  "beds_bed_side_top.png", "beds_transparent.png"},
+	paramtype = "light",
+	paramtype2 = "facedir",
+	groups = {snappy=1,choppy=2,oddly_breakable_by_hand=2,flammable=3,bed=2},
+	sounds = default.node_sound_wood_defaults(),
+	node_box = {
+		type = "fixed",
+		fixed = {-0.5, -0.5, -0.5, 0.5, 0.06, 0.5},
+	},
+	selection_box = {
+		type = "fixed",
+		fixed = {0, 0, 0, 0, 0, 0},
+	},
+})
+
+minetest.register_alias("beds:bed", "beds:bed_bottom")
+
+
+-- register recipe
+
+minetest.register_craft({
+	output = "beds:bed",
+	recipe = {
+		{"group:wool", "group:wool", "group:wool"},
+		{"group:wood", "group:wood", "group:wood"}
+	}
+})

spawns.lua

@@ -0,0 +1,46 @@
+local file = minetest.get_worldpath() .. "/beds_spawns"
+local writing = false
+
+function beds.read_spawns()
+	while writing do
+		-- wait until spawns are safed
+	end
+	local spawns = beds.spawn
+	local input = io.open(file, "r")
+	if input 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)
+	else
+		spawns = {}
+	end
+end
+
+--beds.read_spawns()
+
+function beds.save_spawns()
+	writing = true
+	local output = io.open(file, "w")
+	for i, v in pairs(beds.spawn) do
+		output:write(v.x.." "..v.y.." "..v.z.." "..i.."\n")
+	end
+	io.close(output)
+	writing = false
+end
+
+function beds.set_spawns()
+	for name,_ in pairs(beds.player) do
+		local player = minetest.get_player_by_name(name)
+		local p = player:getpos()
+		beds.spawn[name] = p
+	end
+	beds.save_spawns()
+end