]> 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 f66daa083e2aa7973199ec2bb7d3bbaa245ce32e..ccf1918cb95f7f135174780c1b80501ae5d1f9de 100644 (file)
-local material = {
-       "cloud", -- only used for the formspec display
-       "wood", "junglewood", "pinewood", "tree", "pinetree",
-       "stone", "sandstone", "desert_stone", "obsidian",
-       "stonebrick", "sandstonebrick", "desert_stonebrick", "obsidianbrick",
-       "copperblock", "bronzeblock", "goldblock", "steelblock", "diamondblock",
-       "meselamp", "glass", "obsidian_glass" }
-
-local def = {
-       {"nanoslab", "32", {-0.5, -0.5, -0.5, 0, -0.4375, 0}},
-       {"microslab_half", "16", {-0.5, -0.5, -0.5, 0.5, -0.4375, 0}},
-       {"microslab", "8", {-0.5, -0.5, -0.5, 0.5, -0.4375, 0.5}},
-       {"panel", "4", {-0.5, -0.5, -0.5, 0.5, 0, 0}},
-       {"slab", "2", {-0.5, -0.5, -0.5, 0.5, 0, 0.5}},
-       {"outerstair", "2", {{-0.5, -0.5, -0.5, 0.5, 0, 0.5}, {-0.5, 0, 0, 0, 0.5, 0.5}}},
-       {"stair", "2", {{-0.5, -0.5, -0.5, 0.5, 0, 0.5}, {-0.5, 0, 0, 0.5, 0.5, 0.5}}},
-       {"innerstair", "2", {{-0.5, -0.5, -0.5, 0.5, 0, 0.5}, {-0.5, 0, 0, 0.5, 0.5, 0.5}, {-0.5, 0, -0.5, 0, 0.5, 0}}}
-}
+local workbench = {}
+screwdriver = screwdriver or {}
 
-function xdecor.on_construct(pos)
-       local meta = minetest.get_meta(pos)
-       local nodespec = ""
+-- 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
 
-       for j=1, #def do
-               nodespec = nodespec..
-               "item_image_button["..(j-1)..",0.5;1,1;xdecor:"..def[j][1].."_cloud;"..def[j][1]..";]"
+-- 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
-       meta:set_string("formspec", "size[8,7;]"..fancy_gui..
-               "label[0,0;Cut your material into...]"..
-               nodespec..
-               "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[4.5,1.5;Damaged tool]"..
-               "list[current_name;src;5,2;1,1;]"..
-               "image[6,2;1,1;xdecor_hammer.png]"..
-               "label[6.8,1.5;Hammer]]"..
-               "list[current_name;fuel;7,2;1,1;]"..
-               "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)
+       return false
 end
 
-function xdecor.on_receive_fields(pos, formname, fields, sender)
-       local meta = minetest.get_meta(pos)
-       local inv = meta:get_inventory()
-       local inputstack = inv:get_stack("input", 1)
-       local outputstack = inv:get_stack("output", 1)
-       local shape = {}
-       local give = {}
-       local anz = 0
-
-       for _, m in ipairs(material) do
-       for _, n in ipairs(def) do
-               if (inputstack:get_name() == "default:"..m) and (outputstack:get_count() < 99) then
-                       if fields[n[1]] then
-                               anz = n[2]
-                               shape = "xdecor:"..n[1].."_"..m
-                               for i=0, anz-1 do
-                                       give[i+1] = inv:add_item("output", shape)
-                               end
-                               inputstack:take_item()
-                               inv:set_stack("input", 1, inputstack)
-                       end
-               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
 
-function xdecor.can_dig(pos, player)
+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] ]]
+}
+
+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()
-       if not inv:is_empty("input") or not inv:is_empty("output")
-               or not inv:is_empty("fuel") or not inv:is_empty("src") then
-                       return false end
+
+       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
 
-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 = xdecor.on_construct,
-       on_receive_fields = xdecor.on_receive_fields,
-       can_dig = xdecor.can_dig })
-
-local function lightlvl(material)
-       if (material == "meselamp") then return 12 else return 0 end
+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
 
-local function stype(material)
-       if string.find(material, "glass") or string.find(material, "lamp") then
-               return default.node_sound_glass_defaults()
-       elseif string.find(material, "wood") or string.find(material, "tree") then
-               return default.node_sound_wood_defaults()
-       else
-               return default.node_sound_stone_defaults()
+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
 
-local function tnaming(material)
-       if string.find(material, "block") then
-               local newname = string.gsub(material, "(block)", "_%1")
-               return "default_"..newname..".png"
-       elseif string.find(material, "brick") then
-               local newname = string.gsub(material, "(brick)", "_%1")
-               return "default_"..newname..".png"
-       else return "default_"..material..".png" 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
 
-for _, m in ipairs(material) do
-       local light = lightlvl(m)
-       local sound = stype(m)
-       local tile = tnaming(m)
+function workbench.on_take(pos, listname, index, stack)
+       local inv = minetest.get_meta(pos):get_inventory()
+       local input = inv:get_stack("input", 1)
 
-       for _, n in ipairs(def) do
-       xdecor.register(n[1].."_"..m, {
-               description = n[1], light_source = light, sounds = sound,
-               tiles = {tile}, groups = {snappy=3, not_in_creative_inventory=1},
-               on_place = minetest.rotate_node, node_box = {type = "fixed", fixed = n[3]} })
+       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
 
--- Repair Tool's code by Krock, modified by kilbith
+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
+})
 
-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
+for _, d in pairs(workbench.defs) do
+for i = 1, #nodes do
+       local node = nodes[i]
+       local def = minetest.registered_nodes[node]
 
-               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 d[3] then
+               local groups = {}
+               local tiles
+               groups.not_in_creative_inventory = 1
 
-               if (wear + repair < 0) then src:add_wear(repair + wear)
-               else src:add_wear(repair) end
+               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
 
-               inv:set_stack("src", 1, src)
-               inv:remove_item("fuel", "xdecor:hammer 1")
+               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
+