mailbox.lua

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