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