mods/utility/chest.lua

   1 local chest = {}
   2
   3 function chest.get_chest_formspec(pos)
   4         local spos = pos.x .. "," .. pos.y .. "," .. pos.z
   5         local formspec =
   6                 "size[9,8.75]" ..
   7                 "listcolors[#8b8a89;#c9c3c6;#3e3d3e;#000000;#FFFFFF]"..
   8                 "background[-0.19,-0.25;9.41,9.49;gui_hb_bg.png]"..
   9                 "list[nodemeta:" .. spos .. ";main;0,0.3;9,4;]" ..
  10                 "list[current_player;main;0,4.5;9,1;]" ..
  11                 "list[current_player;main;0,6.08;9,3;9]" ..
  12                 "listring[nodemeta:" .. spos .. ";main]" ..
  13                 "listring[current_player;main]" --..
  14                 --default.get_hotbar_bg(0,4.85)
  15         return formspec
  16 end
  17
  18 function chest.chest_lid_close(pn)
  19         local chest_open_info = chest.open_chests[pn]
  20         local pos = chest_open_info.pos
  21         local sound = chest_open_info.sound
  22         local swap = chest_open_info.swap
  23
  24         chest.open_chests[pn] = nil
  25         for k, v in pairs(chest.open_chests) do
  26                 if v.pos.x == pos.x and v.pos.y == pos.y and v.pos.z == pos.z then
  27                         return true
  28                 end
  29         end
  30
  31         local node = minetest.get_node(pos)
  32         minetest.after(0.2, function(pos,swap,node)
  33                 if minetest.get_node(pos).name == "utility:chest_open" then
  34                         minetest.swap_node(pos,{name = "utility:"..swap,param2=node.param2})
  35                         minetest.sound_play(sound, {gain = 0.3, pos = pos, max_hear_distance = 10},true)
  36                 end
  37                 redstone.collect_info(pos)
  38         end,pos,swap,node)
  39 end
  40
  41 chest.open_chests = {}
  42
  43 minetest.register_on_player_receive_fields(function(player, formname, fields)
  44         if formname ~= "utility:chest" then
  45                 return
  46         end
  47         if not player or not fields.quit then
  48                 return
  49         end
  50         local pn = player:get_player_name()
  51
  52         if not chest.open_chests[pn] then
  53                 return
  54         end
  55
  56         chest.chest_lid_close(pn)
  57         return true
  58 end)
  59
  60 minetest.register_on_leaveplayer(function(player)
  61         local pn = player:get_player_name()
  62         if chest.open_chests[pn] then
  63                 chest.chest_lid_close(pn)
  64         end
  65 end)
  66
  67 local function destroy_chest(pos)
  68         local meta = minetest.get_meta(pos)
  69         local inv = meta:get_inventory()
  70         local lists = inv:get_lists()
  71         for listname,_ in pairs(lists) do
  72                 local size = inv:get_size(listname)
  73                 for i = 1,size do
  74                         local stack = inv:get_stack(listname, i)
  75                         minetest.add_item(pos, stack)
  76                 end
  77         end
  78 end
  79
  80 function chest.register_chest(name, d)
  81         local def = table.copy(d)
  82         def.drawtype = "mesh"
  83         def.visual = "mesh"
  84         def.paramtype = "light"
  85         def.paramtype2 = "facedir"
  86         def.legacy_facedir_simple = true
  87         def.is_ground_content = false
  88
  89         if def.protected then
  90                 def.on_construct = function(pos)
  91                         local meta = minetest.get_meta(pos)
  92                         --meta:set_string("infotext", S("Locked Chest"))
  93                         meta:set_string("owner", "")
  94                         local inv = meta:get_inventory()
  95                         inv:set_size("main", 9*4)
  96                 end
  97                 def.after_place_node = function(pos, placer)
  98                         local meta = minetest.get_meta(pos)
  99                         meta:set_string("owner", placer:get_player_name() or "")
 100                         --meta:set_string("infotext", S("Locked Chest (owned by @1)", meta:get_string("owner")))
 101                 end
 102
 103                 def.allow_metadata_inventory_move = function(pos, from_list, from_index,
 104                                 to_list, to_index, count, player)
 105                         if not default.can_interact_with_node(player, pos) then
 106                                 return 0
 107                         end
 108                         return count
 109                 end
 110                 def.allow_metadata_inventory_put = function(pos, listname, index, stack, player)
 111                         if not default.can_interact_with_node(player, pos) then
 112                                 return 0
 113                         end
 114                         return stack:get_count()
 115                 end
 116                 def.allow_metadata_inventory_take = function(pos, listname, index, stack, player)
 117                         if not default.can_interact_with_node(player, pos) then
 118                                 return 0
 119                         end
 120                         return stack:get_count()
 121                 end
 122                 def.on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
 123                         if not default.can_interact_with_node(clicker, pos) then
 124                                 return itemstack
 125                         end
 126
 127                         minetest.sound_play(def.sound_open, {gain = 0.3,
 128                                         pos = pos, max_hear_distance = 10}, true)
 129
 130                                 minetest.swap_node(pos,
 131                                                 { name = "utility:" .. name .. "_open",
 132                                                 param2 = node.param2 })
 133                          minetest.show_formspec(clicker:get_player_name(),"utility:chest", chest.get_chest_formspec(pos))
 134                         chest.open_chests[clicker:get_player_name()] = { pos = pos,
 135                                         sound = def.sound_close, swap = name }
 136
 137                 end
 138                 def.on_blast = function() end
 139                 def.on_key_use = function(pos, player)
 140                         local secret = minetest.get_meta(pos):get_string("key_lock_secret")
 141                         local itemstack = player:get_wielded_item()
 142                         local key_meta = itemstack:get_meta()
 143
 144                         if itemstack:get_metadata() == "" then
 145                                 return
 146                         end
 147
 148                         if key_meta:get_string("secret") == "" then
 149                                 key_meta:set_string("secret", minetest.parse_json(itemstack:get_metadata()).secret)
 150                                 itemstack:set_metadata("")
 151                         end
 152
 153                         if secret ~= key_meta:get_string("secret") then
 154                                 return
 155                         end
 156
 157                         minetest.show_formspec(
 158                                 player:get_player_name(),
 159                                 "utility:chest_locked",
 160                                 chest.get_chest_formspec(pos)
 161                         )
 162                 end
 163                 def.on_skeleton_key_use = function(pos, player, newsecret)
 164                         local meta = minetest.get_meta(pos)
 165                         local owner = meta:get_string("owner")
 166                         local pn = player:get_player_name()
 167
 168                         -- verify placer is owner of lockable chest
 169                         if owner ~= pn then
 170                                 minetest.record_protection_violation(pos, pn)
 171                                 --minetest.chat_send_player(pn, S("You do not own this chest."))
 172                                 return nil
 173                         end
 174
 175                         local secret = meta:get_string("key_lock_secret")
 176                         if secret == "" then
 177                                 secret = newsecret
 178                                 meta:set_string("key_lock_secret", secret)
 179                         end
 180
 181                         --return secret, S("a locked chest"), owner
 182                 end
 183         else
 184                 def.on_construct = function(pos)
 185                         local meta = minetest.get_meta(pos)
 186                         --meta:set_string("infotext", S("Chest"))
 187                         local inv = meta:get_inventory()
 188                         inv:set_size("main", 9*4)
 189                 end
 190
 191                 def.on_rightclick = function(pos, node, clicker)
 192                         if minetest.get_node(pos).name ~= "utility:chest" and  minetest.get_node(pos).name ~= "utility:chest_open" then
 193                                 return
 194                         end
 195                         minetest.sound_play(def.sound_open, {gain = 0.3, pos = pos, max_hear_distance = 10}, true)
 196                         minetest.swap_node(pos, {name = "utility:" .. name .. "_open", param2 = node.param2 })
 197
 198                         minetest.show_formspec(clicker:get_player_name(),"utility:chest", chest.get_chest_formspec(pos))
 199                         chest.open_chests[clicker:get_player_name()] = { pos = pos,sound = def.sound_close, swap = name }
 200                         redstone.collect_info(pos)
 201                 end
 202                 def.on_blast = function(pos)
 203                         local drops = {}
 204                         default.get_inventory_drops(pos, "main", drops)
 205                         drops[#drops+1] = "utility:" .. name
 206                         minetest.remove_node(pos)
 207                         return drops
 208                 end
 209         end
 210
 211         def.on_destruct = function(pos)
 212                 destroy_chest(pos)
 213         end
 214
 215         local def_opened = table.copy(def)
 216         local def_closed = table.copy(def)
 217
 218         def_opened.mesh = "chest_open.obj"
 219         for i = 1, #def_opened.tiles do
 220                 if type(def_opened.tiles[i]) == "string" then
 221                         def_opened.tiles[i] = {name = def_opened.tiles[i], backface_culling = true}
 222                 elseif def_opened.tiles[i].backface_culling == nil then
 223                         def_opened.tiles[i].backface_culling = true
 224                 end
 225         end
 226         def_opened.drop = "utility:" .. name
 227         def_opened.groups.not_in_creative_inventory = 1
 228         def_opened.selection_box = {
 229                 type = "fixed",
 230                 fixed = { -1/2, -1/2, -1/2, 1/2, 3/16, 1/2 },
 231         }
 232
 233         def_opened.on_blast = function() end
 234
 235         def_closed.mesh = nil
 236         def_closed.drawtype = nil
 237         def_closed.tiles[6] = def.tiles[5] -- swap textures around for "normal"
 238         def_closed.tiles[5] = def.tiles[3] -- drawtype to make them match the mesh
 239         def_closed.tiles[3] = def.tiles[3].."^[transformFX"
 240
 241         minetest.register_node("utility:" .. name, def_closed)
 242         minetest.register_node("utility:" .. name .. "_open", def_opened)
 243
 244 end
 245
 246 chest.register_chest("chest", {
 247         description = "Chest",
 248         tiles = {
 249                 "chest_top.png",
 250                 "chest_top.png",
 251                 "chest_side.png",
 252                 "chest_side.png",
 253                 "chest_front.png",
 254                 "chest_inside.png"
 255         },
 256         sounds = main.woodSound(),
 257         sound_open = "default_chest_open",
 258         sound_close = "default_chest_close",
 259         groups = {wood = 2,  hard = 1, axe = 1, hand = 3,pathable = 1},
 260 })
 261
 262 minetest.register_craft({
 263         output = "utility:chest",
 264         recipe = {
 265                 {"main:wood", "main:wood", "main:wood"},
 266                 {"main:wood", "",          "main:wood"},
 267                 {"main:wood", "main:wood", "main:wood"},
 268         }
 269 })
 270
 271
 272 minetest.register_craft({
 273         type = "fuel",
 274         recipe = "utility:chest",
 275         burntime = 5,
 276 })
 277
 278
 279 local groups = minetest.registered_nodes["utility:chest_open"].groups
 280 groups["redstone_torch"]=1
 281 groups["redstone_power"]=9
 282 minetest.override_item("utility:chest_open", {
 283         groups = groups
 284 })