1 -- Minetest 0.4 mod: bones
2 -- See README.txt for licensing and other information.
4 local function is_owner(pos, name)
5 local owner = minetest.get_meta(pos):get_string("owner")
6 if owner == "" or owner == name or minetest.check_player_privs(name, "protection_bypass") then
12 local bones_formspec =
17 "list[current_name;main;0,0.3;8,4;]" ..
18 "list[current_player;main;0,4.85;8,1;]" ..
19 "list[current_player;main;0,6.08;8,3;8]" ..
20 "listring[current_name;main]" ..
21 "listring[current_player;main]" ..
22 default.get_hotbar_bg(0,4.85)
24 local share_bones_time = tonumber(minetest.settings:get("share_bones_time")) or 1200
25 local share_bones_time_early = tonumber(minetest.settings:get("share_bones_time_early")) or share_bones_time / 4
27 minetest.register_node("bones:bones", {
28 description = "Bones",
30 "bones_top.png^[transform2",
37 paramtype2 = "facedir",
38 groups = {dig_immediate = 2},
39 sounds = default.node_sound_gravel_defaults(),
41 can_dig = function(pos, player)
42 local inv = minetest.get_meta(pos):get_inventory()
45 name = player:get_player_name()
47 return is_owner(pos, name) and inv:is_empty("main")
50 allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
51 if is_owner(pos, player:get_player_name()) then
57 allow_metadata_inventory_put = function(pos, listname, index, stack, player)
61 allow_metadata_inventory_take = function(pos, listname, index, stack, player)
62 if is_owner(pos, player:get_player_name()) then
63 return stack:get_count()
68 on_metadata_inventory_take = function(pos, listname, index, stack, player)
69 local meta = minetest.get_meta(pos)
70 if meta:get_inventory():is_empty("main") then
71 local inv = player:get_inventory()
72 if inv:room_for_item("main", {name = "bones:bones"}) then
73 inv:add_item("main", {name = "bones:bones"})
75 minetest.add_item(pos, "bones:bones")
77 minetest.remove_node(pos)
81 on_punch = function(pos, node, player)
82 if not is_owner(pos, player:get_player_name()) then
86 if minetest.get_meta(pos):get_string("infotext") == "" then
90 local inv = minetest.get_meta(pos):get_inventory()
91 local player_inv = player:get_inventory()
92 local has_space = true
94 for i = 1, inv:get_size("main") do
95 local stk = inv:get_stack("main", i)
96 if player_inv:room_for_item("main", stk) then
97 inv:set_stack("main", i, nil)
98 player_inv:add_item("main", stk)
105 -- remove bones if player emptied them
107 if player_inv:room_for_item("main", {name = "bones:bones"}) then
108 player_inv:add_item("main", {name = "bones:bones"})
110 minetest.add_item(pos,"bones:bones")
112 minetest.remove_node(pos)
116 on_timer = function(pos, elapsed)
117 local meta = minetest.get_meta(pos)
118 local time = meta:get_int("time") + elapsed
119 if time >= share_bones_time then
120 meta:set_string("infotext", meta:get_string("owner") .. "'s old bones")
121 meta:set_string("owner", "")
123 meta:set_int("time", time)
127 on_blast = function(pos)
131 local function may_replace(pos, player)
132 local node_name = minetest.get_node(pos).name
133 local node_definition = minetest.registered_nodes[node_name]
135 -- if the node is unknown, we return false
136 if not node_definition then
140 -- allow replacing air and liquids
141 if node_name == "air" or node_definition.liquidtype ~= "none" then
145 -- don't replace filled chests and other nodes that don't allow it
146 local can_dig_func = node_definition.can_dig
147 if can_dig_func and not can_dig_func(pos, player) then
151 -- default to each nodes buildable_to; if a placed block would replace it, why shouldn't bones?
152 -- flowers being squished by bones are more realistical than a squished stone, too
153 -- exception are of course any protected buildable_to
154 return node_definition.buildable_to and not minetest.is_protected(pos, player:get_player_name())
157 local drop = function(pos, itemstack)
158 local obj = minetest.add_item(pos, itemstack:take_item(itemstack:get_count()))
161 x = math.random(-10, 10) / 9,
163 z = math.random(-10, 10) / 9,
168 minetest.register_on_dieplayer(function(player)
170 local bones_mode = minetest.settings:get("bones_mode") or "bones"
171 if bones_mode ~= "bones" and bones_mode ~= "drop" and bones_mode ~= "keep" then
175 -- return if keep inventory set or in creative mode
176 if bones_mode == "keep" or (creative and creative.is_enabled_for
177 and creative.is_enabled_for(player:get_player_name())) then
181 local player_inv = player:get_inventory()
182 if player_inv:is_empty("main") and
183 player_inv:is_empty("craft") then
187 local pos = vector.round(player:getpos())
188 local player_name = player:get_player_name()
190 -- check if it's possible to place bones, if not find space near player
191 if bones_mode == "bones" and not may_replace(pos, player) then
192 local air = minetest.find_node_near(pos, 1, {"air"})
193 if air and not minetest.is_protected(air, player_name) then
200 if bones_mode == "drop" then
202 -- drop inventory items
203 for i = 1, player_inv:get_size("main") do
204 drop(pos, player_inv:get_stack("main", i))
206 player_inv:set_list("main", {})
208 -- drop crafting grid items
209 for i = 1, player_inv:get_size("craft") do
210 drop(pos, player_inv:get_stack("craft", i))
212 player_inv:set_list("craft", {})
214 drop(pos, ItemStack("bones:bones"))
218 local param2 = minetest.dir_to_facedir(player:get_look_dir())
219 minetest.set_node(pos, {name = "bones:bones", param2 = param2})
221 local meta = minetest.get_meta(pos)
222 local inv = meta:get_inventory()
223 inv:set_size("main", 8 * 4)
224 inv:set_list("main", player_inv:get_list("main"))
226 for i = 1, player_inv:get_size("craft") do
227 local stack = player_inv:get_stack("craft", i)
228 if inv:room_for_item("main", stack) then
229 inv:add_item("main", stack)
231 --drop if no space left
236 player_inv:set_list("main", {})
237 player_inv:set_list("craft", {})
239 meta:set_string("formspec", bones_formspec)
240 meta:set_string("owner", player_name)
242 if share_bones_time ~= 0 then
243 meta:set_string("infotext", player_name .. "'s fresh bones")
245 if share_bones_time_early == 0 or not minetest.is_protected(pos, player_name) then
246 meta:set_int("time", 0)
248 meta:set_int("time", (share_bones_time - share_bones_time_early))
251 minetest.get_node_timer(pos):start(10)
253 meta:set_string("infotext", player_name.."'s bones")