mailbox.lua

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