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.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
  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                         local inv = player:get_inventory()
  72                         if inv:room_for_item("main", {name = "bones:bones"}) then
  73                                 inv:add_item("main", {name = "bones:bones"})
  74                         else
  75                                 minetest.add_item(pos, "bones:bones")
  76                         end
  77                         minetest.remove_node(pos)
  78                 end
  79         end,
  80
  81         on_punch = function(pos, node, player)
  82                 if not is_owner(pos, player:get_player_name()) then
  83                         return
  84                 end
  85
  86                 if minetest.get_meta(pos):get_string("infotext") == "" then
  87                         return
  88                 end
  89
  90                 local inv = minetest.get_meta(pos):get_inventory()
  91                 local player_inv = player:get_inventory()
  92                 local has_space = true
  93
  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)
  99                         else
 100                                 has_space = false
 101                                 break
 102                         end
 103                 end
 104
 105                 -- remove bones if player emptied them
 106                 if has_space then
 107                         if player_inv:room_for_item("main", {name = "bones:bones"}) then
 108                                 player_inv:add_item("main", {name = "bones:bones"})
 109                         else
 110                                 minetest.add_item(pos,"bones:bones")
 111                         end
 112                         minetest.remove_node(pos)
 113                 end
 114         end,
 115
 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", "")
 122                 else
 123                         meta:set_int("time", time)
 124                         return true
 125                 end
 126         end,
 127         on_blast = function(pos)
 128         end,
 129 })
 130
 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]
 134
 135         -- if the node is unknown, we return false
 136         if not node_definition then
 137                 return false
 138         end
 139
 140         -- allow replacing air and liquids
 141         if node_name == "air" or node_definition.liquidtype ~= "none" then
 142                 return true
 143         end
 144
 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
 148                 return false
 149         end
 150
 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())
 155 end
 156
 157 local drop = function(pos, itemstack)
 158         local obj = minetest.add_item(pos, itemstack:take_item(itemstack:get_count()))
 159         if obj then
 160                 obj:setvelocity({
 161                         x = math.random(-10, 10) / 9,
 162                         y = 5,
 163                         z = math.random(-10, 10) / 9,
 164                 })
 165         end
 166 end
 167
 168 minetest.register_on_dieplayer(function(player)
 169
 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
 172                 bones_mode = "bones"
 173         end
 174
 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
 178                 return
 179         end
 180
 181         local player_inv = player:get_inventory()
 182         if player_inv:is_empty("main") and
 183                 player_inv:is_empty("craft") then
 184                 return
 185         end
 186
 187         local pos = vector.round(player:getpos())
 188         local player_name = player:get_player_name()
 189
 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
 194                         pos = air
 195                 else
 196                         bones_mode = "drop"
 197                 end
 198         end
 199
 200         if bones_mode == "drop" then
 201
 202                 -- drop inventory items
 203                 for i = 1, player_inv:get_size("main") do
 204                         drop(pos, player_inv:get_stack("main", i))
 205                 end
 206                 player_inv:set_list("main", {})
 207
 208                 -- drop crafting grid items
 209                 for i = 1, player_inv:get_size("craft") do
 210                         drop(pos, player_inv:get_stack("craft", i))
 211                 end
 212                 player_inv:set_list("craft", {})
 213
 214                 drop(pos, ItemStack("bones:bones"))
 215                 return
 216         end
 217
 218         local param2 = minetest.dir_to_facedir(player:get_look_dir())
 219         minetest.set_node(pos, {name = "bones:bones", param2 = param2})
 220
 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"))
 225
 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)
 230                 else
 231                         --drop if no space left
 232                         drop(pos, stack)
 233                 end
 234         end
 235
 236         player_inv:set_list("main", {})
 237         player_inv:set_list("craft", {})
 238
 239         meta:set_string("formspec", bones_formspec)
 240         meta:set_string("owner", player_name)
 241
 242         if share_bones_time ~= 0 then
 243                 meta:set_string("infotext", player_name .. "'s fresh bones")
 244
 245                 if share_bones_time_early == 0 or not minetest.is_protected(pos, player_name) then
 246                         meta:set_int("time", 0)
 247                 else
 248                         meta:set_int("time", (share_bones_time - share_bones_time_early))
 249                 end
 250
 251                 minetest.get_node_timer(pos):start(10)
 252         else
 253                 meta:set_string("infotext", player_name.."'s bones")
 254         end
 255 end)