worktable.lua

   1 local worktable = {}
   2 screwdriver = screwdriver or {}
   3 local xbg = default.gui_bg..default.gui_bg_img..default.gui_slots..default.get_hotbar_bg(0,3.25)
   4
   5 local nodes = { -- Nodes allowed to be cut. Mod name = {node name}.
   6         default = {"wood", "junglewood", "pine_wood", "acacia_wood",
   7                 "tree", "jungletree", "pine_tree", "acacia_tree",
   8                 "cobble", "mossycobble", "desert_cobble",
   9                 "stone", "sandstone", "desert_stone", "obsidian",
  10                 "stonebrick", "sandstonebrick", "desert_stonebrick", "obsidianbrick",
  11                 "coalblock", "copperblock", "steelblock", "goldblock",
  12                 "bronzeblock", "mese", "diamondblock",
  13                 "brick", "cactus", "ice", "meselamp", "glass", "obsidian_glass"},
  14
  15         xdecor = {"coalstone_tile", "desertstone_tile", "stone_rune", "stone_tile",
  16                 "cactusbrick", "hard_clay", "packed_ice", "moonbrick",
  17                 "woodframed_glass", "wood_tile"},
  18
  19         oresplus = {"emerald_block", "glowstone"},
  20 }
  21
  22 local def = { -- Nodebox name, yield, definition.
  23         {"nanoslab", 16, {-.5,-.5,-.5,0,-.4375,0}},
  24         {"micropanel", 16, {-.5,-.5,-.5,.5,-.4375,0}},
  25         {"microslab", 8, {-.5,-.5,-.5,.5,-.4375,.5}},
  26         {"thinstair", 8, {{-.5,-.0625,-.5,.5,0,0},{-.5,.4375,0,.5,.5,.5}}},
  27         {"cube", 4, {-.5,-.5,0,0,0,.5}},
  28         {"panel", 4, {-.5,-.5,-.5,.5,0,0}},
  29         {"slab", 2, {-.5,-.5,-.5,.5,0,.5}},
  30         {"doublepanel", 2, {{-.5,-.5,-.5,.5,0,0},{-.5,0,0,.5,.5,.5}}},
  31         {"halfstair", 2, {{-.5,-.5,-.5,0,0,.5},{-.5,0,0,0,.5,.5}}},
  32         {"outerstair", 1, {{-.5,-.5,-.5,.5,0,.5},{-.5,0,0,0,.5,.5}}},
  33         {"stair", 1, {{-.5,-.5,-.5,.5,0,.5},{-.5,0,0,.5,.5,.5}}},
  34         {"innerstair", 1, {{-.5,-.5,-.5,.5,0,.5},{-.5,0,0,.5,.5,.5},{-.5,0,-.5,0,.5,0}}}
  35 }
  36
  37 function worktable.crafting()
  38         return "size[8,7;]"..xbg..
  39                 "list[current_player;main;0,3.3;8,4;]image[5,1;1,1;gui_furnace_arrow_bg.png^[transformR270]list[current_player;craft;2,0;3,3;]list[current_player;craftpreview;6,1;1,1;]"
  40 end
  41
  42 function worktable.storage(pos)
  43         local inv = minetest.get_meta(pos):get_inventory()
  44         inv:set_size("storage", 8*2)
  45         return "size[8,7]"..xbg.."list[context;storage;0,0;8,2;]list[current_player;main;0,3.25;8,4;]"
  46 end
  47
  48 function worktable.construct(pos)
  49         local meta = minetest.get_meta(pos)
  50         local inv = meta:get_inventory()
  51
  52         local formspec = "size[8,7;]"..xbg..
  53                 "list[context;forms;4,0;4,3;]label[0.95,1.23;Cut]box[-0.05,1;2.05,0.9;#555555]image[3,1;1,1;gui_furnace_arrow_bg.png^[transformR270]label[0.95,2.23;Repair]box[-0.05,2;2.05,0.9;#555555]image[0,1;1,1;worktable_saw.png]image[0,2;1,1;worktable_anvil.png]image[3,2;1,1;hammer_layout.png]list[context;input;2,1;1,1;]list[context;tool;2,2;1,1;]list[context;hammer;3,2;1,1;]button[0,0;2,1;craft;Crafting]button[2,0;2,1;storage;Storage]list[current_player;main;0,3.25;8,4;]"
  54
  55         inv:set_size("forms", 4*3)
  56         inv:set_size("input", 1)
  57         inv:set_size("tool", 1)
  58         inv:set_size("hammer", 1)
  59
  60         meta:set_string("formspec", formspec)
  61         meta:set_string("infotext", "Work Table")
  62 end
  63
  64 function worktable.fields(pos, _, fields, sender)
  65         local player = sender:get_player_name()
  66         local inv = minetest.get_meta(pos):get_inventory()
  67
  68         if fields.storage then
  69                 minetest.show_formspec(player, "", worktable.storage(pos))
  70         elseif fields.craft then
  71                 minetest.show_formspec(player, "", worktable.crafting(pos))
  72         end
  73 end
  74
  75 function worktable.dig(pos, _)
  76         local inv = minetest.get_meta(pos):get_inventory()
  77         return inv:is_empty("input") and inv:is_empty("hammer") and
  78                 inv:is_empty("tool") and inv:is_empty("storage")
  79 end
  80
  81 function worktable.contains(table, element)
  82         if table then
  83                 for _, value in pairs(table) do
  84                         if value == element then return true end
  85                 end
  86         end
  87         return false
  88 end
  89
  90 function worktable.put(_, listname, _, stack, _)
  91         local stn = stack:get_name()
  92         local count = stack:get_count()
  93         local mod, node = stn:match("([%a_]+):([%a_]+)")
  94         local tdef = minetest.registered_tools[stn]
  95         local twear = stack:get_wear()
  96
  97         if listname == "input" and
  98                 worktable.contains(nodes[mod], node) then return count
  99         elseif listname == "hammer" and
 100                 stn == "xdecor:hammer" then return 1
 101         elseif listname == "tool" and tdef and twear > 0 then
 102                 return 1
 103         end
 104         return 0
 105 end
 106
 107 function worktable.take(pos, listname, _, stack, player)
 108         local inv = minetest.get_meta(pos):get_inventory()
 109         local user_inv = player:get_inventory()
 110         local inputstack = inv:get_stack("input", 1):get_name()
 111         local mod, node = inputstack:match("([%a_]+):([%a_]+)")
 112
 113         if listname == "forms" then
 114                 if worktable.contains(nodes[mod], node) and
 115                         user_inv:room_for_item("main", stack:get_name()) then
 116                         return -1
 117                 end
 118                 return 0
 119         end
 120         return stack:get_count()
 121 end
 122
 123 function worktable.move(_, from_list, _, to_list, _, count, _)
 124         if from_list == "storage" and to_list == "storage" then return count end
 125         return 0
 126 end
 127
 128 local function update_inventory(inv, inputstack)
 129         if inv:is_empty("input") then inv:set_list("forms", {}) return end
 130         local output = {}
 131
 132         for _, n in pairs(def) do
 133                 local mat = inputstack:get_name()
 134                 local input = inv:get_stack("input", 1)
 135                 local mod, node = mat:match("([%a_]+):([%a_]+)")
 136                 local count = math.min(n[2] * input:get_count(), inputstack:get_stack_max())
 137
 138                 if not worktable.contains(nodes[mod], node) then return end
 139                 output[#output+1] = mat.."_"..n[1].." "..count
 140         end
 141         inv:set_list("forms", output)
 142 end
 143
 144 function worktable.on_put(pos, listname, _, stack, _)
 145         if listname == "input" then
 146                 local inv = minetest.get_meta(pos):get_inventory()
 147                 update_inventory(inv, stack)
 148         end
 149 end
 150
 151 function worktable.on_take(pos, listname, index, stack, _)
 152         local inv = minetest.get_meta(pos):get_inventory()
 153         if listname == "input" then
 154                 update_inventory(inv, stack)
 155         elseif listname == "forms" then
 156                 local inputstack = inv:get_stack("input", 1)
 157                 inputstack:take_item(math.ceil(stack:get_count() / def[index][2]))
 158                 inv:set_stack("input", 1, inputstack)
 159                 update_inventory(inv, inputstack)
 160         end
 161 end
 162
 163 xdecor.register("worktable", {
 164         description = "Work Table",
 165         groups = {cracky=2, choppy=2, oddly_breakable_by_hand=1},
 166         sounds = default.node_sound_wood_defaults(),
 167         tiles = {
 168                 "xdecor_worktable_top.png", "xdecor_worktable_top.png",
 169                 "xdecor_worktable_sides.png", "xdecor_worktable_sides.png",
 170                 "xdecor_worktable_front.png", "xdecor_worktable_front.png"
 171         },
 172         on_rotate = screwdriver.rotate_simple,
 173         can_dig = worktable.dig,
 174         on_construct = worktable.construct,
 175         on_receive_fields = worktable.fields,
 176         on_metadata_inventory_put = worktable.on_put,
 177         on_metadata_inventory_take = worktable.on_take,
 178         allow_metadata_inventory_put = worktable.put,
 179         allow_metadata_inventory_take = worktable.take,
 180         allow_metadata_inventory_move = worktable.move
 181 })
 182
 183 for _, d in pairs(def) do
 184 for mod, n in pairs(nodes) do
 185 for _, name in pairs(n) do
 186         local ndef = minetest.registered_nodes[mod..":"..name]
 187         if ndef then
 188                 local groups = {}
 189                 groups.not_in_creative_inventory=1
 190
 191                 for k, v in pairs(ndef.groups) do
 192                         if k ~= "wood" and k ~= "stone" and k ~= "level" then
 193                                 groups[k] = v
 194                         end
 195                 end
 196
 197                 minetest.register_node(":"..mod..":"..name.."_"..d[1], {
 198                         description = ndef.description.." "..d[1]:gsub("^%l", string.upper),
 199                         paramtype = "light",
 200                         paramtype2 = "facedir",
 201                         drawtype = "nodebox",
 202                         light_source = ndef.light_source,
 203                         sounds = ndef.sounds,
 204                         tiles = {ndef.tiles[1]},
 205                         groups = groups,
 206                         node_box = {type = "fixed", fixed = d[3]},
 207                         sunlight_propagates = true,
 208                         on_place = minetest.rotate_node
 209                 })
 210         end
 211         minetest.register_alias("xdecor:"..d[1].."_"..name, mod..":"..name.."_"..d[1])
 212 end
 213 end
 214 end
 215
 216 minetest.register_abm({
 217         nodenames = {"xdecor:worktable"},
 218         interval = 3, chance = 1,
 219         action = function(pos, _, _, _)
 220                 local inv = minetest.get_meta(pos):get_inventory()
 221                 local tool = inv:get_stack("tool", 1)
 222                 local hammer = inv:get_stack("hammer", 1)
 223                 local wear = tool:get_wear()
 224
 225                 if tool:is_empty() or hammer:is_empty() or wear == 0 then return end
 226
 227                 -- Wear : 0-65535 | 0 = new condition.
 228                 tool:add_wear(-500)
 229                 hammer:add_wear(300)
 230
 231                 inv:set_stack("tool", 1, tool)
 232                 inv:set_stack("hammer", 1, hammer)
 233         end
 234 })