quest_chest/init.lua

144 lines
4.9 KiB
Lua

local quest_chests_storage = minetest.get_mod_storage()
minetest.register_node("quest_chest:chest", {
description = "Quest Chest",
tiles = {
"default_chest_top.png",
"default_chest_top.png",
"default_chest_side.png",
"default_chest_side.png",
"default_chest_side.png",
"quest_chest_lock.png"
},
paramtype2 = "facedir",
groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2,},
legacy_facedir_simple = true,
sounds = default.node_sound_wood_defaults(),
can_dig = function(pos,player)
return minetest.check_player_privs(player:get_player_name(), "protection_bypass")
end,
on_destruct = function(pos)
local meta = minetest.get_meta(pos)
local chestid = meta:get_int("chestid")
print("Destroying chest_"..chestid)
end,
on_construct = function(pos)
local meta = minetest.get_meta(pos)
local chestid = quest_chests_storage:get_int("next_id")
meta:set_string("chestid", chestid)
quest_chests_storage:set_int("next_id", chestid+1)
meta:set_string("formspec",
"size[8,9]"..
default.gui_bg ..
default.gui_bg_img ..
default.gui_slots ..
"list[current_player;quest_chest:chest"..chestid..";0,0.3;8,4;]"..
"list[current_player;main;0,4.85;8,1;]" ..
"list[current_player;main;0,6.08;8,3;8]" ..
"listring[current_player;quest_chest:chest"..chestid.."]" ..
"listring[current_player;main]" ..
default.get_hotbar_bg(0,4.85))
local spos = pos.x .. "," .. pos.y .. "," .. pos.z
meta:set_string("formspec_admin",
"size[8,9]"..
default.gui_bg ..
default.gui_bg_img ..
default.gui_slots ..
"list[nodemeta:" .. spos .. ";main;0,0.3;8,4;]" ..
"list[current_player;main;0,4.85;8,1;]" ..
"list[current_player;main;0,6.08;8,3;8]" ..
"listring[nodemeta:" .. spos .. ";main]" ..
"listring[current_player;main]" ..
default.get_hotbar_bg(0,4.85))
local inv = meta:get_inventory()
inv:set_size("main", 8*2)
end,
allow_metadata_inventory_put = function(pos, listname, index, stack, player)
local playername = player:get_player_name()
if minetest.check_player_privs(playername, "protection_bypass") then
return stack:get_count()
else
return 0
end
end,
allow_metadata_inventory_take = function(pos, listname, index, stack, player)
local playername = player:get_player_name()
if minetest.check_player_privs(playername, "protection_bypass") then
return stack:get_count()
else
return 0
end
end,
allow_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
local playername = player:get_player_name()
if minetest.check_player_privs(playername, "protection_bypass") then
return count
else
return 0
end
end,
on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
local meta = minetest.get_meta(pos)
local playername = clicker:get_player_name()
if minetest.check_player_privs(playername, "protection_bypass") then
minetest.show_formspec(clicker:get_player_name(),
node.name, meta:get_string("formspec_admin"))
else
local inv = clicker:get_inventory()
local chestname = "quest_chest:chest"..meta:get_int("chestid")
if inv:get_size(chestname)==0 then
inv:set_size(chestname, 8*2)
inv:set_list(chestname, meta:get_inventory():get_list("main"))
end
minetest.show_formspec(clicker:get_player_name(),
node.name, meta:get_string("formspec"))
end
end,
on_metadata_inventory_move = function(pos, from_list, from_index, to_list, to_index, count, player)
minetest.log("action", player:get_player_name()..
" moves stuff in quest chest at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_put = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" moves stuff to quest chest at "..minetest.pos_to_string(pos))
end,
on_metadata_inventory_take = function(pos, listname, index, stack, player)
minetest.log("action", player:get_player_name()..
" takes stuff from quest chest at "..minetest.pos_to_string(pos))
end,
})
minetest.register_on_player_inventory_action(
function(player, action, inventory, inventory_info)
local inv = player:get_inventory()
if inventory_info.from_list and inventory_info.from_index then
local stack = inv:get_stack(
inventory_info.from_list,
inventory_info.from_index
)
end
end)
minetest.register_allow_player_inventory_action(
function(player, action, inventory, inventory_info)
local inv = player:get_inventory()
if inventory_info.from_list and inventory_info.from_index then
local stack = inv:get_stack(
inventory_info.from_list,
inventory_info.from_index
)
if string.sub(inventory_info.to_list,1,11)=="quest_chest" then
return 0
else
return stack:get_count()
end
end
return
end)