enchanting.lua

   1 local enchanting = {}
   2 local xbg = default.gui_bg..default.gui_bg_img..default.gui_slots
   3
   4 function enchanting.tools_fs()
   5         return "size[8,7;]"..xbg..
   6                 "label[0.85,-0.15;Enchant]image[0.6,0.2;2,2;xdecor_enchbook.png]list[current_name;tool;0.5,2;1,1;]list[current_name;mese;1.5,2;1,1;]image[1.5,2;1,1;mese_layout.png]image[3,-0.15;5.7,3.8;ench_ui.png]list[current_player;main;0,3.35;8,4;]"..
   7                 "image_button[3.35,0.2;4,0.8;bg_btn.png;fast;Efficiency]image_button[3.35,1.2;4,0.8;bg_btn.png;durable;Durability]"
   8 end
   9
  10 function enchanting.swords_fs()
  11         return "size[8,7;]"..xbg..
  12                 "label[0.85,-0.15;Enchant]image[0.6,0.2;2,2;xdecor_enchbook.png]list[current_name;tool;0.5,2;1,1;]list[current_name;mese;1.5,2;1,1;]image[1.5,2;1,1;mese_layout.png]image[3,-0.15;5.7,3.8;ench_ui.png]list[current_player;main;0,3.35;8,4;]"..
  13                 "image_button[3.35,2.2;4,0.8;bg_btn.png;sharp;Sharpness]"
  14 end
  15
  16 function enchanting.default_fs(pos)
  17         local meta = minetest.get_meta(pos)
  18         local formspec = "size[8,7;]"..xbg..
  19                 "label[0.85,-0.15;Enchant]image[0.6,0.2;2,2;xdecor_enchbook.png]list[current_name;tool;0.5,2;1,1;]list[current_name;mese;1.5,2;1,1;]image[1.5,2;1,1;mese_layout.png]image[3,-0.15;5.7,3.8;ench_ui.png]list[current_player;main;0,3.35;8,4;]"
  20
  21         meta:set_string("formspec", formspec)
  22         meta:set_string("infotext", "Enchantment Table")
  23
  24         local inv = meta:get_inventory()
  25         inv:set_size("tool", 1)
  26         inv:set_size("mese", 1)
  27 end
  28
  29 function enchanting.on_put(pos, listname, _, stack, _)
  30         local stn = stack:get_name()
  31         local meta = minetest.get_meta(pos)
  32
  33         if listname == "tool" then
  34                 if stn:find("sword") then
  35                         meta:set_string("formspec", enchanting.swords_fs())
  36                 else
  37                         meta:set_string("formspec", enchanting.tools_fs())
  38                 end
  39         end
  40 end
  41
  42 function enchanting.is_allowed(toolname)
  43         local tdef = minetest.registered_tools[toolname]
  44         if tdef and toolname:find("default:") and not toolname:find("stone") and not
  45                 toolname:find("wood") then
  46                 return 1
  47         else return 0 end
  48 end
  49
  50 function enchanting.fields(pos, _, fields, _)
  51         local inv = minetest.get_meta(pos):get_inventory()
  52         local toolstack = inv:get_stack("tool", 1)
  53         local mesestack = inv:get_stack("mese", 1)
  54         local toolname = toolstack:get_name()
  55         local toolwear = toolstack:get_wear()
  56         local mese = mesestack:get_count()
  57         local ench = dump(fields):match("%w+")
  58
  59         if enchanting.is_allowed(toolname) ~= 0 and mese > 0 and
  60                         fields[ench] and ench ~= "quit" then
  61                 toolstack:replace("xdecor:enchanted_"..toolname:sub(9).."_"..ench)
  62                 toolstack:add_wear(toolwear)
  63                 mesestack:take_item()
  64                 inv:set_stack("mese", 1, mesestack)
  65                 inv:set_stack("tool", 1, toolstack)
  66         end
  67 end
  68
  69 function enchanting.dig(pos, _)
  70         local inv = minetest.get_meta(pos):get_inventory()
  71         if not inv:is_empty("tool") or not inv:is_empty("mese") then
  72                 return false
  73         end
  74         return true
  75 end
  76
  77 function enchanting.put(_, listname, _, stack, _)
  78         local toolname = stack:get_name()
  79         local count = stack:get_count()
  80
  81         if listname == "mese" then
  82                 if toolname == "default:mese_crystal" then return count
  83                 else return 0 end
  84         end
  85         if listname == "tool" then return enchanting.is_allowed(toolname) end
  86         return count
  87 end
  88
  89 xdecor.register("enchantment_table", {
  90         description = "Enchantment Table",
  91         tiles = {
  92                 "xdecor_enchantment_top.png", "xdecor_enchantment_bottom.png",
  93                 "xdecor_enchantment_side.png", "xdecor_enchantment_side.png",
  94                 "xdecor_enchantment_side.png", "xdecor_enchantment_side.png"
  95         },
  96         groups = {cracky=1},
  97         sounds = default.node_sound_stone_defaults(),
  98         can_dig = enchanting.dig,
  99         on_construct = enchanting.default_fs,
 100         on_receive_fields = enchanting.fields,
 101         on_metadata_inventory_put = enchanting.on_put,
 102         allow_metadata_inventory_put = enchanting.put,
 103         allow_metadata_inventory_move = function(...) return 0 end,
 104         on_metadata_inventory_take = function(pos, listname, _, _, _)
 105                 if listname == "tool" then enchanting.default_fs(pos) end
 106         end
 107 })
 108
 109 local function cap(str) return str:gsub("^%l", string.upper) end
 110
 111  -- Higher number = stronger enchant.
 112 local use_factor = 1.2
 113 local times_subtractor = 0.1
 114 local sharp_factor = 1
 115
 116 function enchanting.register_enchtools()
 117         local materials = {"steel", "bronze", "mese", "diamond"}
 118         local tools = { {"axe", "choppy"}, {"pick", "cracky"}, {"shovel", "crumbly"}, {"sword", "fleshy"} }
 119         local chants = {"durable", "fast", "sharp"}
 120
 121         for _, m in pairs(materials) do
 122         for k, t in pairs(tools) do
 123         for _, c in pairs(chants) do
 124                 local original_tool = minetest.registered_tools["default:"..t[1].."_"..m]
 125                 local original_damage_groups = original_tool.tool_capabilities.damage_groups
 126                 local original_groupcaps = original_tool.tool_capabilities.groupcaps
 127                 local groupcaps = table.copy(original_groupcaps)
 128                 local fleshy
 129
 130                 if c == "durable" and k <= 3 then
 131                         groupcaps[t[2]].uses = original_groupcaps[t[2]].uses * use_factor
 132                 elseif c == "fast" and k <= 3 then
 133                         for i = 1, 3 do
 134                                 groupcaps[t[2]].times[i] = original_groupcaps[t[2]].times[i] - times_subtractor
 135                         end
 136                 elseif c == "sharp" and k == 4 then
 137                         fleshy = original_damage_groups.fleshy + sharp_factor
 138                 end
 139
 140                 minetest.register_tool(string.format("xdecor:enchanted_%s_%s_%s", t[1], m, c), {
 141                         description = string.format("Enchanted %s %s (%s)", cap(m), cap(t[1]), cap(c)),
 142                         inventory_image = original_tool.inventory_image.."^[colorize:violet:50",
 143                         wield_image = original_tool.wield_image,
 144                         groups = {not_in_creative_inventory=1},
 145                         tool_capabilities = {groupcaps = groupcaps, damage_groups = fleshy}
 146                 })
 147         end
 148         end
 149         end
 150 end
 151
 152 enchanting.register_enchtools()