LegendofMinetest/mods/xdecor/mailbox.lua

125 lines
3.8 KiB
Lua

local mailbox = {}
screwdriver = screwdriver or {}
xdecor.register("mailbox", {
description = "Mailbox",
drawtype = "mesh",
mesh = "mailbox.b3d",
tiles = {
"mailbox.png",
},
selection_box = {
type = "fixed",
fixed = {-0.3, -0.5, -0.3, 0.3, 0.8, 0.3}
},
paramtype2= "facedir",
groups = {cracky=3, oddly_breakable_by_hand=1},
on_rotate = screwdriver.rotate_simple,
after_place_node = function(pos, placer, _)
local meta = minetest.get_meta(pos)
local player_name = placer:get_player_name()
meta:set_string("owner", player_name)
meta:set_string("infotext", player_name.."'s Mailbox")
local inv = meta:get_inventory()
inv:set_size("mailbox", 6*4)
inv:set_size("drop", 1)
end,
on_rightclick = function(pos, _, clicker, _)
local meta = minetest.get_meta(pos)
local player = clicker:get_player_name()
local owner = meta:get_string("owner")
if player == owner then
minetest.show_formspec(player, "", mailbox.formspec(pos, owner, 1))
else
minetest.show_formspec(player, "", mailbox.formspec(pos, owner, 0))
end
end,
can_dig = function(pos, player)
local meta = minetest.get_meta(pos)
local owner = meta:get_string("owner")
local player_name = player:get_player_name()
local inv = meta:get_inventory()
return inv:is_empty("mailbox") and player and player_name == owner
end,
on_metadata_inventory_put = function(pos, listname, _, stack, player)
local inv = minetest.get_meta(pos):get_inventory()
local player_name = player:get_player_name()
local meta = minetest.get_meta(pos)
local stack_name = stack:get_name().." "..stack:get_count()
if listname == "drop" and inv:room_for_item("mailbox", stack) then
inv:remove_item("drop", stack)
inv:add_item("mailbox", stack)
for i = 7, 2, -1 do
meta:set_string("giver"..i, meta:get_string("giver"..(i-1)))
meta:set_string("stack"..i, meta:get_string("stack"..(i-1)))
end
meta:set_string("giver1", player_name)
meta:set_string("stack1", stack_name)
end
end,
allow_metadata_inventory_put = function(pos, listname, _, stack, player)
local player_name = player:get_player_name()
if listname == "drop" then
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
if inv:room_for_item("mailbox", stack) then return -1 end
end
minetest.chat_send_player(player_name, "The mailbox is full.")
return 0
end
})
local function img_col(stack)
if not stack then return "" end
if stack.inventory_image ~= "" then
return stack.inventory_image:match("([%w_]+)%.png")..".png"
else
return stack.tiles[1]:match("([%w_]+)%.png")..".png"
end
end
function mailbox.formspec(pos, owner, num)
local xbg = default.gui_bg..default.gui_bg_img..default.gui_slots
local spos = pos.x..","..pos.y..","..pos.z
local meta = minetest.get_meta(pos)
local giver, img = "", ""
if num == 1 then
for i = 1, 7 do
if meta:get_string("giver"..i) ~= "" then
giver = giver.."#FFFF00,"..meta:get_string("giver"..i):sub(1, 12)..
","..i..",#FFFFFF,x "..meta:get_string("stack"..i):match("%s(%d+)")..","
img = img..i.."="..img_col(minetest.registered_items[
meta:get_string("stack"..i):match("([%w_:]+)")])..","
end
end
return "size[9.5,9]"..xbg..
default.get_hotbar_bg(0.75,5.25)..
"label[0,0;Mailbox :]"..
"label[6,0;Last donators :]"..
"box[6,0.72;3.3,3.5;#555555]"..
"tablecolumns[color;text;image,"..img.."0;color;text]"..
"tableoptions[background=#00000000;highlight=#00000000;border=false]"..
"table[6,0.75;3.3,4;givers;"..giver.."]"..
"list[nodemeta:"..spos..";mailbox;0,0.75;6,4;]"..
"list[current_player;main;0.75,5.25;8,4;]"..
"listring[nodemeta:"..spos..";mailbox]"..
"listring[current_player;main]"
else
return "size[8,5]"..xbg..
default.get_hotbar_bg(0,1.25)..
"label[0.5,0;Send your goods\nto "..owner.." :]"..
"list[nodemeta:"..spos..";drop;3.5,0;1,1;]"..
"list[current_player;main;0,1.25;8,4;]"
end
end