xdecor-libre/mailbox.lua
2016-01-06 01:46:22 +01:00

125 lines
3.9 KiB
Lua

local mailbox = {}
screwdriver = screwdriver or {}
xdecor.register("mailbox", {
description = "Mailbox",
tiles = {
"xdecor_mailbox_top.png", "xdecor_mailbox_bottom.png",
"xdecor_mailbox_side.png", "xdecor_mailbox_side.png",
"xdecor_mailbox.png", "xdecor_mailbox.png",
},
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
else
minetest.chat_send_player(player_name, "The mailbox is full")
end
end
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 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]
label[0,0;Mailbox]
label[6,0;Last donators]
box[6,0.72;3.3,3.5;#555555]
listring[current_player;main]
list[current_player;main;0.75,5.25;8,4;]
tableoptions[background=#00000000;highlight=#00000000;border=false] ]]
.."tablecolumns[color;text;image,"..img.."0;color;text]"..
"table[6,0.75;3.3,4;givers;"..giver.."]"..
"list[nodemeta:"..spos..";mailbox;0,0.75;6,4;]"..
"listring[nodemeta:"..spos..";mailbox]"..
xbg..default.get_hotbar_bg(0.75,5.25)
else
return [[ size[8,5]
list[current_player;main;0,1.25;8,4;]
tablecolumns[color;text;color;text]
tableoptions[background=#00000000;highlight=#00000000;border=false] ]]
.."table[0,0;3,1;sendform;#FFFFFF,Send your goods to,,,#FFFF00,"..owner.."]"..
"list[nodemeta:"..spos..";drop;3.5,0;1,1;]"..
xbg..default.get_hotbar_bg(0,1.25)
end
end