src/mailbox.lua

   1 local mailbox = {}
   2 screwdriver = screwdriver or {}
   3
   4 local function get_img(img)
   5         if not img then return end
   6         local img_name = img:match("(.*)%.png")
   7
   8         if img_name then
   9                 return img_name .. ".png"
  10         end
  11 end
  12
  13 local function img_col(stack)
  14         local def = minetest.registered_items[stack]
  15         if not def then
  16                 return ""
  17         end
  18
  19         if def.inventory_image ~= "" then
  20                 local img = get_img(def.inventory_image)
  21                 if img then
  22                         return img
  23                 end
  24         end
  25
  26         if def.tiles then
  27                 local tile, img = def.tiles[1]
  28                 if type(tile) == "table" then
  29                         img = get_img(tile.name)
  30                 elseif type(tile) == "string" then
  31                         img = get_img(tile)
  32                 end
  33
  34                 if img then
  35                         return img
  36                 end
  37         end
  38
  39         return ""
  40 end
  41
  42 function mailbox:formspec(pos, owner, is_owner)
  43         local spos = pos.x .. "," .. pos.y .. "," .. pos.z
  44         local meta = minetest.get_meta(pos)
  45         local giver, img = "", ""
  46
  47         if is_owner then
  48                 for i = 1, 7 do
  49                         local giving = meta:get_string("giver" .. i)
  50                         if giving ~= "" then
  51                                 local stack = meta:get_string("stack" .. i)
  52                                 local giver_name = giving:sub(1,12)
  53                                 local stack_name = stack:match("[%w_:]+")
  54                                 local stack_count = stack:match("%s(%d+)") or 1
  55
  56                                 giver = giver .. "#FFFF00," .. giver_name .. "," .. i ..
  57                                         ",#FFFFFF,x " .. stack_count .. ","
  58
  59                                 img = img .. i .. "=" ..
  60                                         img_col(stack_name) .. "^\\[resize:16x16,"
  61                         end
  62                 end
  63
  64                 return [[ size[9.5,9]
  65                         label[0,0;Mailbox]
  66                         label[6,0;Last donators]
  67                         box[6,0.72;3.3,3.5;#555555]
  68                         listring[current_player;main]
  69                         list[current_player;main;0.75,5.25;8,4;]
  70                         tableoptions[background=#00000000;highlight=#00000000;border=false] ]] ..
  71                         "tablecolumns[color;text;image," .. img .. "0;color;text]" ..
  72                         "table[6,0.75;3.3,4;givers;" .. giver .. "]" ..
  73                         "list[nodemeta:" .. spos .. ";mailbox;0,0.75;6,4;]" ..
  74                         "listring[nodemeta:" .. spos .. ";mailbox]" ..
  75                         xbg .. default.get_hotbar_bg(0.75, 5.25)
  76         end
  77
  78         return  "size[8,5]" ..
  79                 "list[current_player;main;0,1.25;8,4;]" ..
  80                 "label[0,0;Send your goods to\n" ..
  81                 (minetest.colorize and
  82                         minetest.colorize("#FFFF00", owner) or owner) .. "]" ..
  83                 "list[nodemeta:" .. spos .. ";drop;3.5,0;1,1;]" ..
  84                 xbg .. default.get_hotbar_bg(0, 1.25)
  85 end
  86
  87 function mailbox.dig(pos, player)
  88         local meta = minetest.get_meta(pos)
  89         local owner = meta:get_string("owner")
  90         local player_name = player and player:get_player_name()
  91         local inv = meta:get_inventory()
  92
  93         return inv:is_empty("mailbox") and player_name == owner
  94 end
  95
  96 function mailbox.after_place_node(pos, placer)
  97         local meta = minetest.get_meta(pos)
  98         local player_name = placer:get_player_name()
  99
 100         meta:set_string("owner", player_name)
 101         meta:set_string("infotext", player_name .. "'s Mailbox")
 102
 103         local inv = meta:get_inventory()
 104         inv:set_size("mailbox", 6 * 4)
 105         inv:set_size("drop", 1)
 106 end
 107
 108 function mailbox.rightclick(pos, node, clicker, itemstack, pointed_thing)
 109         local meta = minetest.get_meta(pos)
 110         local player = clicker:get_player_name()
 111         local owner = meta:get_string("owner")
 112
 113         minetest.show_formspec(player, "xdecor:mailbox",
 114                 mailbox:formspec(pos, owner, (player == owner)))
 115
 116         return itemstack
 117 end
 118
 119 function mailbox.put(pos, listname, _, stack, player)
 120         if listname == "drop" then
 121                 local inv = minetest.get_meta(pos):get_inventory()
 122                 if inv:room_for_item("mailbox", stack) then
 123                         return -1
 124                 else
 125                         minetest.chat_send_player(player:get_player_name(),
 126                                 "The mailbox is full")
 127                 end
 128         end
 129
 130         return 0
 131 end
 132
 133 function mailbox.on_put(pos, listname, _, stack, player)
 134         local meta = minetest.get_meta(pos)
 135         local inv = meta:get_inventory()
 136
 137         if listname == "drop" and inv:room_for_item("mailbox", stack) then
 138                 inv:set_list("drop", {})
 139                 inv:add_item("mailbox", stack)
 140
 141                 for i = 7, 2, -1 do
 142                         meta:set_string("giver" .. i, meta:get_string("giver" .. (i - 1)))
 143                         meta:set_string("stack" .. i, meta:get_string("stack" .. (i - 1)))
 144                 end
 145
 146                 meta:set_string("giver1", player:get_player_name())
 147                 meta:set_string("stack1", stack:to_string())
 148         end
 149 end
 150
 151 function mailbox.allow_take(pos, listname, index, stack, player)
 152         local meta = minetest.get_meta(pos)
 153
 154         if player:get_player_name() ~= meta:get_string("owner") then
 155                 return 0
 156         end
 157
 158         return stack:get_count()
 159 end
 160
 161 function mailbox.allow_move(pos)
 162         return 0
 163 end
 164
 165 xdecor.register("mailbox", {
 166         description = "Mailbox",
 167         tiles = {"xdecor_mailbox_top.png", "xdecor_mailbox_bottom.png",
 168                  "xdecor_mailbox_side.png", "xdecor_mailbox_side.png",
 169                  "xdecor_mailbox.png", "xdecor_mailbox.png"},
 170         groups = {cracky = 3, oddly_breakable_by_hand = 1},
 171         on_rotate = screwdriver.rotate_simple,
 172         can_dig = mailbox.dig,
 173         on_rightclick = mailbox.rightclick,
 174         allow_metadata_inventory_take = mailbox.allow_take,
 175         allow_metadata_inventory_move = mailbox.allow_move,
 176         on_metadata_inventory_put = mailbox.on_put,
 177         allow_metadata_inventory_put = mailbox.put,
 178         after_place_node = mailbox.after_place_node
 179 })
 180
 181 -- Recipes
 182
 183 minetest.register_craft({
 184         output = "xdecor:mailbox",
 185         recipe = {
 186                 {"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"},
 187                 {"dye:red", "default:paper", "dye:red"},
 188                 {"default:steel_ingot", "default:steel_ingot", "default:steel_ingot"}
 189         }
 190 })