enchanting.lua

   1 local enchanting = {}
   2 screwdriver = screwdriver or {}
   3
   4 function enchanting.formspec(pos, tooltype)
   5         local meta = minetest.get_meta(pos)
   6         local formspec = "size[9,9;]"..
   7                         default.gui_slots..default.get_hotbar_bg(0.5,4.5)..
   8                         "bgcolor[#080808BB;true]"..
   9                         "background[0,0;9,9;ench_ui.png]"..
  10                         "list[context;tool;0.9,2.9;1,1;]"..
  11                         "list[context;mese;2,2.9;1,1;]"..
  12                         "list[current_player;main;0.5,4.5;8,4;]"..
  13                         "image[2,2.9;1,1;mese_layout.png]"..
  14                         "tooltip[sharp;Your sword kills faster]"..
  15                         "tooltip[durable;Your tool lasts longer]"..
  16                         "tooltip[fast;Your tool digs faster]"..
  17                         "tooltip[strong;Your armor is more resistant]"..
  18                         "tooltip[speed;Your speed is increased]"
  19
  20         if tooltype == "sword" then
  21                 formspec = formspec.."image_button[3.9,2.9;4,0.92;bg_btn.png;sharp;Sharpness]"
  22         elseif tooltype == "tool" then
  23                 formspec = formspec.."image_button[3.9,0.85;4,0.92;bg_btn.png;fast;Efficiency]"..
  24                                 "image_button[3.9,1.77;4,1.12;bg_btn.png;durable;Durability]"
  25         elseif tooltype == "armor" then
  26                 formspec = formspec.."image_button[3.9,0.85;4,0.92;bg_btn.png;strong;Strength]"
  27         elseif tooltype == "boots" then
  28                 formspec = formspec.."image_button[3.9,0.85;4,0.92;bg_btn.png;strong;Strength]"..
  29                                 "image_button[3.9,1.77;4,1.12;bg_btn.png;speed;Speed]"
  30         end
  31
  32         meta:set_string("formspec", formspec)
  33         return formspec
  34 end
  35
  36 function enchanting.on_put(pos, listname, _, stack, _)
  37         local stn = stack:get_name()
  38         local meta = minetest.get_meta(pos)
  39
  40         if listname == "tool" then
  41                 if stn:find("pick") or stn:find("axe") or stn:find("shovel") then
  42                         meta:set_string("formspec", enchanting.formspec(pos, "tool"))
  43                 elseif stn:find("sword") then
  44                         meta:set_string("formspec", enchanting.formspec(pos, "sword"))
  45                 elseif stn:find("chestplate") or stn:find("leggings") or stn:find("helmet") then
  46                         meta:set_string("formspec", enchanting.formspec(pos, "armor"))
  47                 elseif stn:find("boots") then
  48                         meta:set_string("formspec", enchanting.formspec(pos, "boots"))
  49                 end
  50         end
  51 end
  52
  53 function enchanting.fields(pos, _, fields, _)
  54         local inv = minetest.get_meta(pos):get_inventory()
  55         local toolstack = inv:get_stack("tool", 1)
  56         local toolstack_name = toolstack:get_name()
  57         local mesestack = inv:get_stack("mese", 1)
  58         local modname, toolname = toolstack_name:match("([%w_]+):([%w_]+)")
  59         local toolwear = toolstack:get_wear()
  60         local mese = mesestack:get_count()
  61         local ench = dump(fields):match("%w+")
  62         if ench == "quit" then return end
  63
  64         if mese > 0 and fields[ench] then
  65                 local enchanted_tool = modname..":enchanted_"..toolname.."_"..ench
  66                 toolstack:replace(enchanted_tool)
  67                 toolstack:add_wear(toolwear)
  68                 mesestack:take_item()
  69                 inv:set_stack("mese", 1, mesestack)
  70                 inv:set_stack("tool", 1, toolstack)
  71         end
  72 end
  73
  74 function enchanting.dig(pos, _)
  75         local inv = minetest.get_meta(pos):get_inventory()
  76         return inv:is_empty("tool") and inv:is_empty("mese")
  77 end
  78
  79 local function allowed(tool)
  80         for item, _ in pairs(minetest.registered_tools) do
  81         for t in item:gmatch("enchanted_"..tool) do
  82                 if t then return true end
  83         end
  84         end
  85
  86         return false
  87 end
  88
  89 function enchanting.put(_, listname, _, stack, _)
  90         local toolstack = stack:get_name()
  91         local toolname = toolstack:match("[%w_]+:([%w_]+)")
  92
  93         if listname == "mese" and toolstack ~= "default:mese_crystal" then
  94                 return 0
  95         elseif listname == "tool" and not allowed(toolname) then
  96                 return 0
  97         end
  98
  99         return 1
 100 end
 101
 102 xdecor.register("enchantment_table", {
 103         description = "Enchantment Table",
 104         tiles = {
 105                 "xdecor_enchantment_top.png", "xdecor_enchantment_bottom.png",
 106                 "xdecor_enchantment_side.png", "xdecor_enchantment_side.png",
 107                 "xdecor_enchantment_side.png", "xdecor_enchantment_side.png"
 108         },
 109         groups = {cracky=1, oddly_breakable_by_hand=1, level=1},
 110         sounds = default.node_sound_stone_defaults(),
 111         on_rotate = screwdriver.rotate_simple,
 112         can_dig = enchanting.dig,
 113         on_construct = function(pos)
 114                 local meta = minetest.get_meta(pos)
 115                 enchanting.formspec(pos, nil)
 116                 meta:set_string("infotext", "Enchantment Table")
 117
 118                 local inv = meta:get_inventory()
 119                 inv:set_size("tool", 1)
 120                 inv:set_size("mese", 1)
 121         end,
 122         enchanting.formspec,
 123         on_receive_fields = enchanting.fields,
 124         on_metadata_inventory_put = enchanting.on_put,
 125         allow_metadata_inventory_put = enchanting.put,
 126         allow_metadata_inventory_move = function(...) return 0 end,
 127         on_metadata_inventory_take = function(pos, listname, _, _, _)
 128                 if listname == "tool" then
 129                         enchanting.formspec(pos, nil)
 130                 end
 131         end
 132 })
 133
 134 local function cap(str) return str:gsub("^%l", string.upper) end
 135
 136  -- Higher number = stronger enchant.
 137 local use_factor = 1.2
 138 local times_subtractor = 0.1
 139 local damage_adder = 1
 140 local strenght_factor = 1.2
 141
 142 local tools = {
 143         --[[ Registration format :
 144                 [Mod name] = {
 145                         {materials},
 146                         {tool name, tool group, {enchantments}}
 147                  }
 148         --]]
 149         ["default"] = {
 150                 {"steel", "bronze", "mese", "diamond"},
 151                 {"axe", "choppy", {"durable", "fast"}},
 152                 {"pick", "cracky", {"durable", "fast"}},
 153                 {"shovel", "crumbly", {"durable", "fast"}},
 154                 {"sword", "fleshy", {"sharp"}}
 155         },
 156         ["3d_armor"] = {
 157                 {"steel", "bronze", "gold", "diamond"},
 158                 {"boots", nil, {"strong", "speed"}},
 159                 {"chestplate", nil, {"strong"}},
 160                 {"helmet", nil, {"strong"}},
 161                 {"leggings", nil, {"strong"}}
 162         }
 163 }
 164
 165 for mod, defs in pairs(tools) do
 166 for _, mat in pairs(defs[1]) do
 167 for _, tooldef in next, defs, 1 do
 168 for _, ench in pairs(tooldef[3]) do
 169         local tool, group, material, enchant = tooldef[1], tooldef[2], mat, ench
 170         local original_tool = minetest.registered_tools[mod..":"..tool.."_"..material]
 171
 172         if original_tool then
 173                 if mod == "default" then
 174                         local original_damage_groups = original_tool.tool_capabilities.damage_groups
 175                         local original_groupcaps = original_tool.tool_capabilities.groupcaps
 176                         local groupcaps = table.copy(original_groupcaps)
 177                         local fleshy = original_damage_groups.fleshy
 178                         local full_punch_interval = original_tool.tool_capabilities.full_punch_interval
 179                         local max_drop_level = original_tool.tool_capabilities.max_drop_level
 180
 181                         if enchant == "durable" then
 182                                 groupcaps[group].uses = math.ceil(original_groupcaps[group].uses * use_factor)
 183                         elseif enchant == "fast" then
 184                                 for i = 1, 3 do
 185                                         groupcaps[group].times[i] = original_groupcaps[group].times[i] - times_subtractor
 186                                 end
 187                         elseif enchant == "sharp" then
 188                                 fleshy = fleshy + damage_adder
 189                         end
 190
 191                         minetest.register_tool(":"..mod..":enchanted_"..tool.."_"..material.."_"..enchant, {
 192                                 description = string.format("Enchanted %s %s (%s)", cap(material), cap(tool), cap(enchant)),
 193                                 inventory_image = original_tool.inventory_image.."^[colorize:violet:50",
 194                                 wield_image = original_tool.wield_image,
 195                                 groups = {not_in_creative_inventory=1},
 196                                 tool_capabilities = {
 197                                         groupcaps = groupcaps, damage_groups = {fleshy = fleshy},
 198                                         full_punch_interval = full_punch_interval, max_drop_level = max_drop_level
 199                                 }
 200                         })
 201                 end
 202
 203                 if mod == "3d_armor" then
 204                         local original_armor_groups = original_tool.groups
 205                         local armorcaps = table.copy(original_armor_groups)
 206                         local armorcaps = {}
 207                         armorcaps.not_in_creative_inventory=1
 208
 209                         for armor_group, value in pairs(original_armor_groups) do
 210                                 if enchant == "strong" then
 211                                         armorcaps[armor_group] = math.ceil(value * 1.2)
 212                                 elseif enchant == "speed" then
 213                                         armorcaps[armor_group] = value
 214                                         armorcaps.physics_speed = 0.3
 215                                         armorcaps.physics_jump = 0.2
 216                                 end
 217                         end
 218
 219                         minetest.register_tool(":"..mod..":enchanted_"..tool.."_"..material.."_"..enchant, {
 220                                 description = string.format("Enchanted %s %s (%s)", cap(material), cap(tool), cap(enchant)),
 221                                 inventory_image = original_tool.inventory_image.."^[colorize:blue:20",
 222                                 wield_image = original_tool.wield_image,
 223                                 groups = armorcaps,
 224                                 wear = 0
 225                         })
 226                 end
 227         end
 228         minetest.register_alias("xdecor:enchanted_"..tool.."_"..material.."_"..enchant, mod..":enchanted_"..tool.."_"..material.."_"..enchant)
 229 end
 230 end
 231 end
 232 end
 233