]> git.lizzy.rs Git - xdecor.git/blobdiff - workbench.lua
Don't crash on nil-player in can_dig and check the right players for attachment in...
[xdecor.git] / workbench.lua
index c77ff79d4744a3d07148e80be56d78cf0d14700d..ccf1918cb95f7f135174780c1b80501ae5d1f9de 100644 (file)
--- Repair Tool's code by Krock, modified by kilbith
+local workbench = {}
+screwdriver = screwdriver or {}
 
-xdecor.register("workbench", {
-       description = "Work Bench", infotext = "Work Bench",
-       sounds = default.node_sound_wood_defaults(), groups = {snappy=3}, 
-       tiles = {"xdecor_workbench_top.png", "xdecor_workbench_top.png", 
-               "xdecor_workbench_sides.png", "xdecor_workbench_sides.png",
-               "xdecor_workbench_front.png", "xdecor_workbench_front.png"},
-       on_construct = function(pos)
-               local meta = minetest.get_meta(pos)
-               meta:set_string("formspec", "size[8,7;]"..fancy_gui..
-                       "label[0,0;Cut your wood into...]"..
-                       "label[0,1.5;Input]"..
-                       "list[current_name;input;0,2;1,1;]"..
-                       "image[1,2;1,1;xdecor_saw.png]"..
-                       "label[2,1.5;Output]"..
-                       "list[current_name;output;2,2;1,1;]"..
-                       "label[5.5,0;Damaged tool]"..
-                       "list[current_name;src;6,0.5;1,1;]"..
-                       "image[4.35,1.1;1.5,1.5;xdecor_hammer.png]"..
-                       "label[5.8,1.5;Hammer]]"..
-                       "list[current_name;fuel;6,2;1,1;]"..
-                       "item_image_button[0,0.5;1,1;xdecor:microslab_wood;microslab; ]"..
-                       "item_image_button[1,0.5;1,1;xdecor:microslab_half_wood;microslabhalf; ]"..
-                       "item_image_button[2,0.5;1,1;xdecor:microcube_wood;microcube; ]"..
-                       "item_image_button[3,0.5;1,1;xdecor:panel_wood;panel; ]"..
-                       "list[current_player;main;0,3.25;8,4;]")
-               meta:set_string("infotext", "Work Bench")
-               local inv = meta:get_inventory()
-               inv:set_size("output", 1)
-               inv:set_size("input", 1)
-               inv:set_size("src", 1)
-               inv:set_size("fuel", 1)
-       end,
-       on_receive_fields = function(pos, formname, fields, sender)
-               local meta = minetest.get_meta(pos)
-               local inv = meta:get_inventory()
-               local shape = {}
-               local anz = 0
-
-               if fields["microslab"] then
-                       anz = "8"
-                       shape = "xdecor:microslab_wood"
-               elseif fields["microslabhalf"] then
-                       anz = "16"
-                       shape = "xdecor:microslab_half_wood"
-               elseif fields["microcube"] then
-                       anz = "8"
-                       shape = "xdecor:microcube_wood"
-               elseif fields["panel"] then
-                       anz = "4"
-                       shape = "xdecor:panel_wood"
-               else return end
-
-               local inputstack = inv:get_stack("input", 1)
-               if minetest.get_item_group(inputstack:get_name(), "wood") ~= 0 then
-                       local give = {}
-                       for i = 0, anz-1 do
-                               give[i+1] = inv:add_item("output", shape)
-                       end
-                       inputstack:take_item()
-                       inv:set_stack("input", 1, inputstack)
-               else return end
-       end,
-       can_dig = function(pos, player)
-               local meta = minetest.get_meta(pos)
-               local inv = meta:get_inventory()
-               return inv:is_empty("src") and inv:is_empty("fuel") 
-                       and inv:is_empty("input") and inv:is_empty("output")
+-- Nodes allowed to be cut.
+-- Only the regular, solid blocks without metas or explosivity can be cut.
+local nodes = {}
+for node, def in pairs(minetest.registered_nodes) do
+       if (def.drawtype == "normal" or def.drawtype:sub(1,5) == "glass") and
+          (def.groups.cracky or def.groups.choppy) and
+          not def.on_construct and
+          not def.after_place_node and
+          not def.on_rightclick and
+          not def.on_blast and
+          not def.allow_metadata_inventory_take and
+          not (def.groups.not_in_creative_inventory == 1) and
+          not def.groups.wool and
+          not def.description:find("Ore") and
+          def.description and
+          def.description ~= "" and
+          def.light_source == 0
+       then
+               nodes[#nodes+1] = node
        end
-})
+end
+
+-- Nodeboxes definitions.
+workbench.defs = {
+       -- Name       Yield   X  Y   Z  W   H  L
+       {"nanoslab",    16, { 0, 0,  0, 8,  1, 8  }},
+       {"micropanel",  16, { 0, 0,  0, 16, 1, 8  }},
+       {"microslab",   8,  { 0, 0,  0, 16, 1, 16 }},
+       {"thinstair",   8,  { 0, 7,  0, 16, 1, 8  },
+                           { 0, 15, 8, 16, 1, 8  }},
+       {"cube",        4,  { 0, 0,  0, 8,  8, 8  }},
+       {"panel",       4,  { 0, 0,  0, 16, 8, 8  }},
+       {"slab",        2,  nil                   },
+       {"doublepanel", 2,  { 0, 0,  0, 16, 8, 8  },
+                           { 0, 8,  8, 16, 8, 8  }},
+       {"halfstair",   2,  { 0, 0,  0, 8,  8, 16 },
+                           { 0, 8,  8, 8,  8, 8  }},
+       {"outerstair",  1,  { 0, 0,  0, 16, 8, 16 },
+                           { 0, 8,  8, 8,  8, 8  }},
+       {"stair",       1,  nil                   },
+       {"innerstair",  1,  { 0, 0,  0, 16, 8, 16 },
+                           { 0, 8,  8, 16, 8, 8  },
+                           { 0, 8,  0, 8,  8, 8  }}
+}
+
+-- Tools allowed to be repaired.
+function workbench:repairable(stack)
+       local tools = {"pick", "axe", "shovel", "sword", "hoe", "armor", "shield"}
+       for _, t in pairs(tools) do
+               if stack:find(t) then return true end
+       end
+       return false
+end
+
+function workbench:get_output(inv, input, name)
+       if inv:is_empty("input") then
+               inv:set_list("forms", {}) return
+       end
+
+       local output = {}
+       for _, n in pairs(self.defs) do
+               local count = math.min(n[2] * input:get_count(), input:get_stack_max())
+               local item = name.."_"..n[1]
+               if not n[3] then item = "stairs:"..n[1].."_"..name:match(":(.*)") end
+               output[#output+1] = item.." "..count
+       end
+       inv:set_list("forms", output)
+end
 
-local function register_wood_cut(name, desc, box, f_groups)
-       f_groups = {}
-       f_groups.snappy = 3
-       f_groups.not_in_creative_inventory = 1
-       xdecor.register(name.."_wood", {
-               description = "Wood "..desc,
-               tiles = {"xdecor_wood_tile.png"}, groups = f_groups,
-               sounds = default.node_sound_wood_defaults(),
-               node_box = { type = "fixed", fixed = box } }) end
-
-wood = {}
-wood.datas = {
-       {"microslab", "Microslab", { -0.5, -0.5, -0.5, 0.5, -0.4375, 0.5 }},
-       {"microslab_half", "Half Microslab", { -0.5, -0.5, -0.5, 0.5, -0.4375, 0 }},
-       {"microcube", "Microcube", { -0.5, -0.5, -0.5, 0, 0, 0 }},
-       {"panel", "Panel", { -0.5, -0.5, -0.5, 0.5, 0, 0 }},
+local formspecs = {
+       -- Main formspec.
+       [[ label[0.9,1.23;Cut]
+          label[0.9,2.23;Repair]
+          box[-0.05,1;2.05,0.9;#555555]
+          box[-0.05,2;2.05,0.9;#555555]
+          button[0,0;2,1;craft;Crafting]
+          button[2,0;2,1;storage;Storage]
+          image[3,1;1,1;gui_furnace_arrow_bg.png^[transformR270]
+          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;]
+          list[context;forms;4,0;4,3;] ]],
+       -- Crafting formspec.
+       [[ image[5,1;1,1;gui_furnace_arrow_bg.png^[transformR270]
+          button[0,0;1.5,1;back;< Back]
+          list[current_player;craft;2,0;3,3;]
+          list[current_player;craftpreview;6,1;1,1;]
+          listring[current_player;main]
+          listring[current_player;craft] ]],
+       -- Storage formspec.
+       [[ list[context;storage;0,1;8,2;]
+          button[0,0;1.5,1;back;< Back]
+          listring[context;storage]
+          listring[current_player;main] ]]
 }
 
-for _, item in pairs(wood.datas) do
-       register_wood_cut(unpack(item))
+function workbench:set_formspec(meta, id)
+       meta:set_string("formspec", "size[8,7;]list[current_player;main;0,3.25;8,4;]"..
+                       formspecs[id]..xbg..default.get_hotbar_bg(0,3.25))
+end
+
+function workbench.construct(pos)
+       local meta = minetest.get_meta(pos)
+       local inv = meta:get_inventory()
+
+       inv:set_size("tool", 1)
+       inv:set_size("input", 1)
+       inv:set_size("hammer", 1)
+       inv:set_size("forms", 4*3)
+       inv:set_size("storage", 8*2)
+
+       meta:set_string("infotext", "Work Bench")
+       workbench:set_formspec(meta, 1)
+end
+
+function workbench.fields(pos, _, fields)
+       local meta = minetest.get_meta(pos)
+       if     fields.back    then workbench:set_formspec(meta, 1)
+       elseif fields.craft   then workbench:set_formspec(meta, 2)
+       elseif fields.storage then workbench:set_formspec(meta, 3) end
+end
+
+function workbench.dig(pos)
+       local inv = minetest.get_meta(pos):get_inventory()
+       return inv:is_empty("input") and inv:is_empty("hammer") and
+               inv:is_empty("tool") and inv:is_empty("storage")
+end
+
+function workbench.timer(pos)
+       local timer = minetest.get_node_timer(pos)
+       local inv = minetest.get_meta(pos):get_inventory()
+       local tool = inv:get_stack("tool", 1)
+       local hammer = inv:get_stack("hammer", 1)
+
+       if tool:is_empty() or hammer:is_empty() or tool:get_wear() == 0 then
+               timer:stop() return
+       end
+
+       -- Tool's wearing range: 0-65535 | 0 = new condition.
+       tool:add_wear(-500)
+       hammer:add_wear(700)
+
+       inv:set_stack("tool", 1, tool)
+       inv:set_stack("hammer", 1, hammer)
+       return true
 end
 
-minetest.register_abm({
-       nodenames = {"xdecor:workbench"},
-       interval = 5, chance = 1,
-       action = function(pos, node, active_object_count, active_object_count_wider)
-               local meta = minetest.get_meta(pos)
-               local inv = meta:get_inventory()
-               local src = inv:get_stack("src", 1)
-               local wear = src:get_wear()
-               local repair = -1400
-
-               if (src:is_empty() or wear == 0 or wear == 65535) then return end
-               local fuel = inv:get_stack("fuel", 1)
-               if (fuel:is_empty() or fuel:get_name() ~= "xdecor:hammer") then return end
-
-               if (wear + repair < 0) then src:add_wear(repair + wear)
-               else src:add_wear(repair) end
-
-               inv:set_stack("src", 1, src)
-               inv:remove_item("fuel", "xdecor:hammer 1")
+function workbench.put(_, listname, _, stack)
+       local stackname = stack:get_name()
+       if (listname == "tool" and stack:get_wear() > 0 and workbench:repairable(stackname)) or
+          (listname == "input" and minetest.registered_nodes[stackname.."_cube"]) or
+          (listname == "hammer" and stackname == "xdecor:hammer") or
+           listname == "storage" then
+               return stack:get_count()
        end
+       return 0
+end
+
+function workbench.take(_, listname, _, stack, player)
+       if listname == "forms" then
+               local inv = player:get_inventory()
+               if inv:room_for_item("main", stack:get_name()) then return -1 end
+               return 0
+       end
+       return stack:get_count()
+end
+
+function workbench.move(_, from_list, _, to_list, _, count)
+       if to_list == "storage" and from_list ~= "forms" then return count end
+       return 0
+end
+
+function workbench.on_put(pos, listname, _, stack)
+       local inv = minetest.get_meta(pos):get_inventory()
+       if listname == "input" then
+               local input = inv:get_stack("input", 1)
+               workbench:get_output(inv, input, stack:get_name())
+       elseif listname == "tool" or listname == "hammer" then
+               local timer = minetest.get_node_timer(pos)
+               timer:start(3.0)
+       end
+end
+
+function workbench.on_take(pos, listname, index, stack)
+       local inv = minetest.get_meta(pos):get_inventory()
+       local input = inv:get_stack("input", 1)
+
+       if listname == "input" then
+               if stack:get_name() == input:get_name() then
+                       workbench:get_output(inv, input, stack:get_name())
+               else
+                       inv:set_list("forms", {})
+               end
+       elseif listname == "forms" then
+               input:take_item(math.ceil(stack:get_count() / workbench.defs[index][2]))
+               inv:set_stack("input", 1, input)
+               workbench:get_output(inv, input, input:get_name())
+       end
+end
+
+xdecor.register("workbench", {
+       description = "Work Bench",
+       groups = {cracky=2, choppy=2, oddly_breakable_by_hand=1},
+       sounds = default.node_sound_wood_defaults(),
+       tiles = {"xdecor_workbench_top.png",   "xdecor_workbench_top.png",
+                "xdecor_workbench_sides.png", "xdecor_workbench_sides.png",
+                "xdecor_workbench_front.png", "xdecor_workbench_front.png"},
+       on_rotate = screwdriver.rotate_simple,
+       can_dig = workbench.dig,
+       on_timer = workbench.timer,
+       on_construct = workbench.construct,
+       on_receive_fields = workbench.fields,
+       on_metadata_inventory_put = workbench.on_put,
+       on_metadata_inventory_take = workbench.on_take,
+       allow_metadata_inventory_put = workbench.put,
+       allow_metadata_inventory_take = workbench.take,
+       allow_metadata_inventory_move = workbench.move
 })
+
+for _, d in pairs(workbench.defs) do
+for i = 1, #nodes do
+       local node = nodes[i]
+       local def = minetest.registered_nodes[node]
+
+       if d[3] then
+               local groups = {}
+               local tiles
+               groups.not_in_creative_inventory = 1
+
+               for k, v in pairs(def.groups) do
+                       if k ~= "wood" and k ~= "stone" and k ~= "level" then
+                               groups[k] = v
+                       end
+               end
+
+               if def.tiles then
+                       if #def.tiles > 1 and not (def.drawtype:sub(1,5) == "glass") then
+                               tiles = def.tiles
+                       else
+                               tiles = {def.tiles[1]}
+                       end
+               else
+                       tiles = {def.tile_images[1]}
+               end
+
+               if not minetest.registered_nodes["stairs:slab_"..node:match(":(.*)")] then
+                       stairs.register_stair_and_slab(node:match(":(.*)"), node, groups, tiles,
+                               def.description.." Stair", def.description.." Slab", def.sounds)
+               end
+
+               minetest.register_node(":"..node.."_"..d[1], {
+                       description = def.description.." "..d[1]:gsub("^%l", string.upper),
+                       paramtype = "light",
+                       paramtype2 = "facedir",
+                       drawtype = "nodebox",
+                       sounds = def.sounds,
+                       tiles = tiles,
+                       groups = groups,
+                       -- `unpack` has been changed to `table.unpack` in newest Lua versions.
+                       node_box = xdecor.pixelbox(16, {unpack(d, 3)}),
+                       sunlight_propagates = true,
+                       on_place = minetest.rotate_node
+               })
+       end
+end
+end
+