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 meta = minetest.get_meta(pos)
  45                 local inv = meta:get_inventory()
  46
  47                 if listname == "drop" and inv:room_for_item("mailbox", stack) then
  48                         inv:remove_item("drop", stack)
  49                         inv:add_item("mailbox", stack)
  50
  51                         for i = 7, 2, -1 do
  52                                 meta:set_string("giver"..i, meta:get_string("giver"..(i-1)))
  53                                 meta:set_string("stack"..i, meta:get_string("stack"..(i-1)))
  54                         end
  55
  56                         meta:set_string("giver1", player:get_player_name())
  57                         meta:set_string("stack1", stack:get_name().." "..stack:get_count())
  58                 end
  59         end,
  60         allow_metadata_inventory_put = function(pos, listname, _, stack, player)
  61                 if listname == "drop" then
  62                         local inv = minetest.get_meta(pos):get_inventory()
  63                         if inv:room_for_item("mailbox", stack) then
  64                                 return -1
  65                         else
  66                                 minetest.chat_send_player(player:get_player_name(), "The mailbox is full")
  67                         end
  68                 end
  69                 return 0
  70         end
  71 })
  72
  73 local function img_col(stack)
  74         if not stack then return "" end
  75         if stack.inventory_image ~= "" then
  76                 return stack.inventory_image:match("(.*)%.png")..".png"
  77         else
  78                 return stack.tiles[1]:match("(.*)%.png")..".png"
  79         end
  80 end
  81
  82 function mailbox.formspec(pos, owner, num)
  83         local spos = pos.x..","..pos.y..","..pos.z
  84         local meta = minetest.get_meta(pos)
  85         local giver, img = "", ""
  86
  87         if num == 1 then
  88                 for i = 1, 7 do
  89                         if meta:get_string("giver"..i) ~= "" then
  90                                 giver = giver.."#FFFF00,"..meta:get_string("giver"..i):sub(1, 12)..
  91                                         ","..i..",#FFFFFF,x "..meta:get_string("stack"..i):match("%s(%d+)")..","
  92
  93                                 img = img..i.."="..img_col(minetest.registered_items[
  94                                         meta:get_string("stack"..i):match("(.*)%s")])..","
  95                         end
  96                 end
  97
  98                 return [[ size[9.5,9]
  99                         label[0,0;Mailbox]
 100                         label[6,0;Last donators]
 101                         box[6,0.72;3.3,3.5;#555555]
 102                         listring[current_player;main]
 103                         list[current_player;main;0.75,5.25;8,4;]
 104                         tableoptions[background=#00000000;highlight=#00000000;border=false] ]]
 105                         .."tablecolumns[color;text;image,"..img.."0;color;text]"..
 106                         "table[6,0.75;3.3,4;givers;"..giver.."]"..
 107                         "list[nodemeta:"..spos..";mailbox;0,0.75;6,4;]"..
 108                         "listring[nodemeta:"..spos..";mailbox]"..
 109                         xbg..default.get_hotbar_bg(0.75,5.25)
 110         else
 111                 return [[ size[8,5]
 112                         list[current_player;main;0,1.25;8,4;]
 113                         tablecolumns[color;text;color;text]
 114                         tableoptions[background=#00000000;highlight=#00000000;border=false] ]]
 115                         .."table[0,0;3,1;sendform;#FFFFFF,Send your goods to,,,#FFFF00,"..owner.."]"..
 116                         "list[nodemeta:"..spos..";drop;3.5,0;1,1;]"..
 117                         xbg..default.get_hotbar_bg(0,1.25)
 118         end
 119 end
 120