enchanting.lua

   1 local enchanting = {}
   2 screwdriver = screwdriver or {}
   3
   4 function enchanting.tools_fs()
   5         return "size[9,8;]"..default.gui_slots..
   6                 "bgcolor[#080808BB;true]background[0,0;9,8;ench_ui.png]list[current_name;tool;0.9,2.9;1,1;]list[current_name;mese;2,2.9;1,1;]image[2,2.9;1,1;mese_layout.png]list[current_player;main;0.5,4.5;8,3;]"..
   7                 "image_button[3.9,0.9;4,0.9;bg_btn.png;fast;Efficiency]image_button[3.9,1.82;4,1.1;bg_btn.png;durable;Durability]"
   8 end
   9
  10 function enchanting.swords_fs()
  11         return "size[9,8;]"..default.gui_slots..
  12                 "bgcolor[#080808BB;true]background[0,0;9,8;ench_ui.png]list[current_name;tool;0.9,2.9;1,1;]list[current_name;mese;2,2.9;1,1;]image[2,2.9;1,1;mese_layout.png]list[current_player;main;0.5,4.5;8,3;]"..
  13                 "image_button[3.9,2.95;4,0.9;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[9,8;]"..default.gui_slots..
  19                 "bgcolor[#080808BB;true]background[0,0;9,8;ench_ui.png]list[current_name;tool;0.9,2.9;1,1;]list[current_name;mese;2,2.9;1,1;]image[2,2.9;1,1;mese_layout.png]list[current_player;main;0.5,4.5;8,3;]"
  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         on_rotate = screwdriver.rotate_simple,
  99         can_dig = enchanting.dig,
 100         on_construct = enchanting.default_fs,
 101         on_receive_fields = enchanting.fields,
 102         on_metadata_inventory_put = enchanting.on_put,
 103         allow_metadata_inventory_put = enchanting.put,
 104         allow_metadata_inventory_move = function(...) return 0 end,
 105         on_metadata_inventory_take = function(pos, listname, _, _, _)
 106                 if listname == "tool" then enchanting.default_fs(pos) end
 107         end
 108 })
 109
 110 local function cap(str) return str:gsub("^%l", string.upper) end
 111
 112  -- Higher number = stronger enchant.
 113 local use_factor = 1.2
 114 local times_subtractor = 0.1
 115 local damage_adder = 1
 116
 117 function enchanting.register_enchtools()
 118         local materials = {"steel", "bronze", "mese", "diamond"}
 119         local tools = { {"axe", "choppy"}, {"pick", "cracky"}, {"shovel", "crumbly"}, {"sword", "fleshy"} }
 120         local chants = {"durable", "fast", "sharp"}
 121
 122         for _, m in pairs(materials) do
 123         for k, t in pairs(tools) do
 124         for _, c in pairs(chants) do
 125                 local original_tool = minetest.registered_tools["default:"..t[1].."_"..m]
 126                 local original_damage_groups = original_tool.tool_capabilities.damage_groups
 127                 local original_groupcaps = original_tool.tool_capabilities.groupcaps
 128                 local groupcaps = table.copy(original_groupcaps)
 129                 local fleshy = original_damage_groups.fleshy
 130
 131                 if c == "durable" and k <= 3 then
 132                         groupcaps[t[2]].uses = original_groupcaps[t[2]].uses * use_factor
 133                 elseif c == "fast" and k <= 3 then
 134                         for i = 1, 3 do
 135                                 groupcaps[t[2]].times[i] = original_groupcaps[t[2]].times[i] - times_subtractor
 136                         end
 137                 elseif c == "sharp" and k == 4 then
 138                         fleshy = fleshy + damage_adder
 139                 end
 140
 141                 minetest.register_tool("xdecor:enchanted_"..t[1].."_"..m.."_"..c, {
 142                         description = string.format("Enchanted %s %s (%s)", cap(m), cap(t[1]), cap(c)),
 143                         inventory_image = original_tool.inventory_image.."^[colorize:violet:50",
 144                         wield_image = original_tool.wield_image,
 145                         groups = {not_in_creative_inventory=1},
 146                         tool_capabilities = {groupcaps = groupcaps, damage_groups = {fleshy = fleshy}}
 147                 })
 148         end
 149         end
 150         end
 151 end
 152
 153 enchanting.register_enchtools()