mailbox.lua

   1 local mailbox = {}
   2 screwdriver = screwdriver or {}
   3
   4 xdecor.register("mailbox", {
   5         description = "Mailbox",
   6         tiles = {
   7                 "xdecor_mailbox_top.png", "xdecor_mailbox_bottom.png",
   8                 "xdecor_mailbox_side.png", "xdecor_mailbox_side.png",
   9                 "xdecor_mailbox.png", "xdecor_mailbox.png",
  10         },
  11         groups = {cracky=3, oddly_breakable_by_hand=1},
  12         on_rotate = screwdriver.rotate_simple,
  13         after_place_node = function(pos, placer, _)
  14                 local meta = minetest.get_meta(pos)
  15                 local player_name = placer:get_player_name()
  16
  17                 meta:set_string("owner", player_name)
  18                 meta:set_string("infotext", player_name.."'s Mailbox")
  19
  20                 local inv = meta:get_inventory()
  21                 inv:set_size("mailbox", 6*4)
  22                 inv:set_size("drop", 1)
  23         end,
  24         on_rightclick = function(pos, _, clicker, _)
  25                 local meta = minetest.get_meta(pos)
  26                 local player = clicker:get_player_name()
  27                 local owner = meta:get_string("owner")
  28
  29                 if player == owner then
  30                         minetest.show_formspec(player, "", mailbox.formspec(pos, owner, 1))
  31                 else
  32                         minetest.show_formspec(player, "", mailbox.formspec(pos, owner, 0))
  33                 end
  34         end,
  35         can_dig = function(pos, player)
  36                 local meta = minetest.get_meta(pos)
  37                 local owner = meta:get_string("owner")
  38                 local player_name = player:get_player_name()
  39                 local inv = meta:get_inventory()
  40
  41                 return inv:is_empty("mailbox") and player and player_name == owner
  42         end,
  43         on_metadata_inventory_put = function(pos, listname, _, stack, player)
  44                 local inv = minetest.get_meta(pos):get_inventory()
  45                 local player_name = player:get_player_name()
  46                 local meta = minetest.get_meta(pos)
  47                 local stack_name = stack:get_name().." "..stack:get_count()
  48
  49                 if listname == "drop" and inv:room_for_item("mailbox", stack) then
  50                         inv:remove_item("drop", stack)
  51                         inv:add_item("mailbox", stack)
  52
  53                         for i = 7, 2, -1 do
  54                                 meta:set_string("giver"..i, meta:get_string("giver"..(i-1)))
  55                                 meta:set_string("stack"..i, meta:get_string("stack"..(i-1)))
  56                         end
  57                         meta:set_string("giver1", player_name)
  58                         meta:set_string("stack1", stack_name)
  59                 end
  60         end,
  61         allow_metadata_inventory_put = function(pos, listname, _, stack, _)
  62                 if listname == "drop" then
  63                         local meta = minetest.get_meta(pos)
  64                         local inv = meta:get_inventory()
  65                         if inv:room_for_item("mailbox", stack) then return -1 end
  66                 end
  67                 return 0
  68         end
  69 })
  70
  71 local function img_col(stack)
  72         if not stack then return "" end
  73         if stack.type == "node" then
  74                 if stack.inventory_image ~= "" then
  75                         return string.match(stack.inventory_image, "([%w_]+)")..".png"
  76                 else
  77                         return string.match(stack.tiles[1], "([%w_]+)")..".png"
  78                 end
  79         elseif stack.type == "tool" or stack.type == "craft" then
  80                 return string.match(stack.inventory_image, "([%w_]+)")..".png"
  81         else return "" end
  82 end
  83
  84 function mailbox.formspec(pos, owner, num)
  85         local xbg = default.gui_bg..default.gui_bg_img..default.gui_slots
  86         local spos = pos.x..","..pos.y..","..pos.z
  87         local meta = minetest.get_meta(pos)
  88         local giver = ""
  89         local def_stack1 = minetest.registered_items[meta:get_string("stack1"):match("([%w_]+:[%w_]+)")]
  90         local def_stack2 = minetest.registered_items[meta:get_string("stack2"):match("([%w_]+:[%w_]+)")]
  91         local def_stack3 = minetest.registered_items[meta:get_string("stack3"):match("([%w_]+:[%w_]+)")]
  92         local def_stack4 = minetest.registered_items[meta:get_string("stack4"):match("([%w_]+:[%w_]+)")]
  93         local def_stack5 = minetest.registered_items[meta:get_string("stack5"):match("([%w_]+:[%w_]+)")]
  94         local def_stack6 = minetest.registered_items[meta:get_string("stack6"):match("([%w_]+:[%w_]+)")]
  95         local def_stack7 = minetest.registered_items[meta:get_string("stack7"):match("([%w_]+:[%w_]+)")]
  96
  97         if num == 1 then
  98                 for i = 1, 7 do
  99                         if meta:get_string("giver"..i) ~= "" then
 100                                 giver = giver.."#FFFF00,"..meta:get_string("giver"..i):sub(1, 12)..
 101                                         ","..i..",#FFFFFF,x "..meta:get_string("stack"..i):sub(-3):match("%d+")..","
 102                         end
 103                 end
 104
 105                 return "size[9.5,9]"..xbg..
 106                         default.get_hotbar_bg(0.75,5.25)..
 107                         "label[0,0;Mailbox :]"..
 108                         "label[6,0;Last donators :]"..
 109                         "box[6,0.72;3.3,3.5;#555555]"..
 110                         "tablecolumns[color;text;image,"..
 111                                 "1="..img_col(def_stack1)..","..
 112                                 "2="..img_col(def_stack2)..","..
 113                                 "3="..img_col(def_stack3)..","..
 114                                 "4="..img_col(def_stack4)..","..
 115                                 "5="..img_col(def_stack5)..","..
 116                                 "6="..img_col(def_stack6)..","..
 117                                 "7="..img_col(def_stack7)..";color;text]"..
 118                         "tableoptions[background=#00000000;highlight=#00000000;border=false]"..
 119                         "table[6,0.75;3.3,4;givers;"..giver.."]"..
 120                         "list[nodemeta:"..spos..";mailbox;0,0.75;6,4;]"..
 121                         "list[current_player;main;0.75,5.25;8,4;]"..
 122                         "listring[nodemeta:"..spos..";mailbox]"..
 123                         "listring[current_player;main]"
 124         else
 125                 return "size[8,5]"..xbg..
 126                         default.get_hotbar_bg(0,1.25)..
 127                         "label[0.5,0;Send your goods\nto "..owner.." :]"..
 128                         "list[nodemeta:"..spos..";drop;3.5,0;1,1;]"..
 129                         "list[current_player;main;0,1.25;8,4;]"
 130         end
 131 end
 132