mods/bones/init.lua

   1 -- Minetest 0.4 mod: bones
   2 -- See README.txt for licensing and other information.
   3
   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
   7                 return true
   8         end
   9         return false
  10 end
  11
  12 local bones_formspec =
  13         "size[8,9]" ..
  14         default.gui_bg ..
  15         default.gui_bg_img ..
  16         default.gui_slots ..
  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)
  23
  24 local share_bones_time = tonumber(minetest.setting_get("share_bones_time")) or 1200
  25 local share_bones_time_early = tonumber(minetest.setting_get("share_bones_time_early")) or share_bones_time / 4
  26
  27 minetest.register_node("bones:bones", {
  28         description = "Bones",
  29         tiles = {
  30                 "bones_top.png^[transform2",
  31                 "bones_bottom.png",
  32                 "bones_side.png",
  33                 "bones_side.png",
  34                 "bones_rear.png",
  35                 "bones_front.png"
  36         },
  37         paramtype2 = "facedir",
  38         groups = {dig_immediate = 2},
  39         sounds = default.node_sound_gravel_defaults(),
  40
  41         can_dig = function(pos, player)
  42                 local inv = minetest.get_meta(pos):get_inventory()
  43                 local name = ""
  44                 if player then
  45                         name = player:get_player_name()
  46                 end
  47                 return is_owner(pos, name) and inv:is_empty("main")
  48         end,
  49
  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
  52                         return count
  53                 end
  54                 return 0
  55         end,
  56
  57         allow_metadata_inventory_put = function(pos, listname, index, stack, player)
  58                 return 0
  59         end,
  60
  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()
  64                 end
  65                 return 0
  66         end,
  67
  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                         minetest.remove_node(pos)
  72                 end
  73         end,
  74
  75         on_punch = function(pos, node, player)
  76                 if not is_owner(pos, player:get_player_name()) then
  77                         return
  78                 end
  79
  80                 if minetest.get_meta(pos):get_string("infotext") == "" then
  81                         return
  82                 end
  83
  84                 local inv = minetest.get_meta(pos):get_inventory()
  85                 local player_inv = player:get_inventory()
  86                 local has_space = true
  87
  88                 for i = 1, inv:get_size("main") do
  89                         local stk = inv:get_stack("main", i)
  90                         if player_inv:room_for_item("main", stk) then
  91                                 inv:set_stack("main", i, nil)
  92                                 player_inv:add_item("main", stk)
  93                         else
  94                                 has_space = false
  95                                 break
  96                         end
  97                 end
  98
  99                 -- remove bones if player emptied them
 100                 if has_space then
 101                         if player_inv:room_for_item("main", {name = "bones:bones"}) then
 102                                 player_inv:add_item("main", {name = "bones:bones"})
 103                         else
 104                                 minetest.add_item(pos,"bones:bones")
 105                         end
 106                         minetest.remove_node(pos)
 107                 end
 108         end,
 109
 110         on_timer = function(pos, elapsed)
 111                 local meta = minetest.get_meta(pos)
 112                 local time = meta:get_int("time") + elapsed
 113                 if time >= share_bones_time then
 114                         meta:set_string("infotext", meta:get_string("owner") .. "'s old bones")
 115                         meta:set_string("owner", "")
 116                 else
 117                         meta:set_int("time", time)
 118                         return true
 119                 end
 120         end,
 121         on_blast = function(pos)
 122         end,
 123 })
 124
 125 local function may_replace(pos, player)
 126         local node_name = minetest.get_node(pos).name
 127         local node_definition = minetest.registered_nodes[node_name]
 128
 129         -- if the node is unknown, we return false
 130         if not node_definition then
 131                 return false
 132         end
 133
 134         -- allow replacing air and liquids
 135         if node_name == "air" or node_definition.liquidtype ~= "none" then
 136                 return true
 137         end
 138
 139         -- don't replace filled chests and other nodes that don't allow it
 140         local can_dig_func = node_definition.can_dig
 141         if can_dig_func and not can_dig_func(pos, player) then
 142                 return false
 143         end
 144
 145         -- default to each nodes buildable_to; if a placed block would replace it, why shouldn't bones?
 146         -- flowers being squished by bones are more realistical than a squished stone, too
 147         -- exception are of course any protected buildable_to
 148         return node_definition.buildable_to and not minetest.is_protected(pos, player:get_player_name())
 149 end
 150
 151 local drop = function(pos, itemstack)
 152         local obj = minetest.add_item(pos, itemstack:take_item(itemstack:get_count()))
 153         if obj then
 154                 obj:setvelocity({
 155                         x = math.random(-10, 10) / 9,
 156                         y = 5,
 157                         z = math.random(-10, 10) / 9,
 158                 })
 159         end
 160 end
 161
 162 minetest.register_on_dieplayer(function(player)
 163
 164         local bones_mode = minetest.setting_get("bones_mode") or "bones"
 165         if bones_mode ~= "bones" and bones_mode ~= "drop" and bones_mode ~= "keep" then
 166                 bones_mode = "bones"
 167         end
 168
 169         -- return if keep inventory set or in creative mode
 170         if bones_mode == "keep" or minetest.setting_getbool("creative_mode") then
 171                 return
 172         end
 173
 174         local player_inv = player:get_inventory()
 175         if player_inv:is_empty("main") and
 176                 player_inv:is_empty("craft") then
 177                 return
 178         end
 179
 180         local pos = vector.round(player:getpos())
 181         local player_name = player:get_player_name()
 182
 183         -- check if it's possible to place bones, if not find space near player
 184         if bones_mode == "bones" and not may_replace(pos, player) then
 185                 local air = minetest.find_node_near(pos, 1, {"air"})
 186                 if air and not minetest.is_protected(air, player_name) then
 187                         pos = air
 188                 else
 189                         bones_mode = "drop"
 190                 end
 191         end
 192
 193         if bones_mode == "drop" then
 194
 195                 -- drop inventory items
 196                 for i = 1, player_inv:get_size("main") do
 197                         drop(pos, player_inv:get_stack("main", i))
 198                 end
 199                 player_inv:set_list("main", {})
 200
 201                 -- drop crafting grid items
 202                 for i = 1, player_inv:get_size("craft") do
 203                         drop(pos, player_inv:get_stack("craft", i))
 204                 end
 205                 player_inv:set_list("craft", {})
 206
 207                 drop(pos, ItemStack("bones:bones"))
 208                 return
 209         end
 210
 211         local param2 = minetest.dir_to_facedir(player:get_look_dir())
 212         minetest.set_node(pos, {name = "bones:bones", param2 = param2})
 213
 214         local meta = minetest.get_meta(pos)
 215         local inv = meta:get_inventory()
 216         inv:set_size("main", 8 * 4)
 217         inv:set_list("main", player_inv:get_list("main"))
 218
 219         for i = 1, player_inv:get_size("craft") do
 220                 local stack = player_inv:get_stack("craft", i)
 221                 if inv:room_for_item("main", stack) then
 222                         inv:add_item("main", stack)
 223                 else
 224                         --drop if no space left
 225                         drop(pos, stack)
 226                 end
 227         end
 228
 229         player_inv:set_list("main", {})
 230         player_inv:set_list("craft", {})
 231
 232         meta:set_string("formspec", bones_formspec)
 233         meta:set_string("owner", player_name)
 234
 235         if share_bones_time ~= 0 then
 236                 meta:set_string("infotext", player_name .. "'s fresh bones")
 237
 238                 if share_bones_time_early == 0 or not minetest.is_protected(pos, player_name) then
 239                         meta:set_int("time", 0)
 240                 else
 241                         meta:set_int("time", (share_bones_time - share_bones_time_early))
 242                 end
 243
 244                 minetest.get_node_timer(pos):start(10)
 245         else
 246                 meta:set_string("infotext", player_name.."'s bones")
 247         end
 248 end)