Camas/mods/locks/init.lua

--
-- Locks mod
-- By Kaadmy, for Pixture
--

local picked_time = tonumber(minetest.setting_get("locks_picked_time")) or 15 -- unlocked for 15 seconds
local all_unlocked = minetest.setting_getbool("locks_all_unlocked")

function locks.is_owner(meta, player)
   local name = player:get_player_name()
   local owner = meta:get_string("lock_owner")

   return (all_unlocked or (name == owner))
end

function locks.is_locked(meta, player)
   if all_unlocked then
      return false
   end

   if locks.is_owner(meta, player) then
      return false
   end

   local t = minetest.get_gametime()

   local lp = meta:get_float("last_lock_pick")

   if lp == -1 or lp == nil then
      lp = -1
   end

   if lp > t then
      return false
   else
      meta:set_float("last_lock_pick", -1)
   end

   return true
end

minetest.register_tool(
   "locks:pick",
   {
      description = "Lock Pick",
      
      inventory_image = "locks_pick.png",
      wield_image = "locks_pick.png",

      stack_max = 1,

      on_use = function(itemstack, player, pointed_thing)
		  if math.random(1, 5) <= 1 then
		     local pos = pointed_thing.under	

		     local meta = minetest.get_meta(pos)
		     meta:set_float("last_lock_pick", minetest.get_gametime() + picked_time)

		     local own = meta:get_string("lock_owner")
		     if own then
			minetest.chat_send_player(
			   own,
			   player:get_player_name() .. " has broken into your locked chest!"
			)
		     end
		  end

		  itemstack:add_wear(8200) -- about 8 uses
		  return itemstack
	       end,
   })

minetest.register_craftitem(
   "locks:lock",
   {
      description = "Lock",

      inventory_image = "locks_lock.png",
      wield_image = "locks_lock.png",
   })

minetest.register_craft(
   {
      output = "locks:pick",
      recipe = {
	 {"", "", "default:ingot_steel"},
	 {"", "default:stick", ""},
	 {"default:stick", "", ""},
      },
   })

minetest.register_craft(
   {
      output = "locks:lock",
      recipe = {
	 {"", "default:ingot_steel", ""},
	 {"default:ingot_steel", "", "default:ingot_steel"},
	 {"group:planks", "group:planks", "group:planks"},
      },
   })

minetest.register_node(
   "locks:chest",
   {
      description = "Locked Chest",
      tiles ={"default_chest_top.png", "default_chest_top.png", "default_chest_sides.png",
	      "default_chest_sides.png", "default_chest_sides.png", "locks_chest_front.png"},
      paramtype2 = "facedir",
      groups = {snappy = 2, choppy = 2, oddly_breakable_by_hand = 2},
      is_ground_content = false,
      sounds = default.node_sound_wood_defaults(),
      on_construct = function(pos)
			local meta = minetest.get_meta(pos)
			meta:set_float("last_lock_pick", -1)
			
			local inv = meta:get_inventory()
			inv:set_size("main", 8 * 4)
		     end,
      after_place_node = function(pos, player)
			    local name = player:get_player_name()

			    local meta = minetest.get_meta(pos)
			    meta:set_string("infotext", "Locked Chest (Owned by " .. name .. ")")
			    meta:set_string("lock_owner", name)
			 end,
      on_rightclick = function(pos, node, player)
			 local meta = minetest.get_meta(pos)

			 if not locks.is_locked(meta, player) then
			    local np = pos.x .. "," .. pos.y .. "," .. pos.z
			    local form = default.ui.get_page("core_2part")
			    form = form .. "list[nodemeta:" .. np .. ";main;0.25,0.25;8,4;]"
			    form = form .. "listring[nodemeta:" .. np .. ";main]"
			    form = form .. default.ui.get_itemslot_bg(0.25, 0.25, 8, 4)

			    form = form .. "list[current_player;main;0.25,4.75;8,4;]"
			    form = form .. "listring[current_player;main]"
			    form = form .. default.ui.get_hotbar_itemslot_bg(0.25, 4.75, 8, 1)
			    form = form .. default.ui.get_itemslot_bg(0.25, 5.75, 8, 3)

			    minetest.show_formspec(
			       player:get_player_name(),
			       "default_chest",
			       form
			    )
			 end
		      end,
      allow_metadata_inventory_move = function(pos, from_l, from_i, to_l, to_i, cnt, player)
					 local meta = minetest.get_meta(pos)
					 if locks.is_locked(meta, player) then
					    return 0
					 end
					 return cnt
				      end,
      allow_metadata_inventory_put = function(pos, listname, index, itemstack, player)
					local meta = minetest.get_meta(pos)
					if locks.is_locked(meta, player) then
					   return 0
					end
					return itemstack:get_count()
				     end,
      allow_metadata_inventory_take = function(pos, listname, index, itemstack, player)
					 local meta = minetest.get_meta(pos)
					 if locks.is_locked(meta, player) then
					    return 0
					 end
					 return itemstack:get_count()
				      end,
      can_dig = function(pos, player)
		   local meta = minetest.get_meta(pos)
		   local inv = meta:get_inventory()
		   return inv:is_empty("main") and locks.is_owner(meta, player)
		end,
      on_blast = function() end,
   })

minetest.register_craft(
   {
      output = "locks:chest",
      type = "shapeless",
      recipe = {"default:chest", "locks:lock"},
   })

default.log("mod:locks", "loaded")