engine.lua

   1 local C = minetest.get_color_escape_sequence
   2
   3 local enchanting_table_formspec = ""
   4         .. "size[9.07,8.6;]"
   5         .. "formspec_version[3]"
   6         .. "label[0,0;" .. minetest.formspec_escape(minetest.colorize("#313131", "Enchant")) .. "]"
   7         .. mcl_formspec.get_itemslot_bg(1.1, 2.4, 1, 1)
   8         .. "image[1.1,2.4;1,1;mcl_enchanting_lapis_background.png]"
   9         .. "list[context;lapis;1.1,2.4;1,1;]"
  10         .. mcl_formspec.get_itemslot_bg(0.2, 2.4, 1, 1)
  11         .. "list[context;tool;0.2,2.4;1,1;]"
  12         .. "label[0,4;" .. minetest.formspec_escape(minetest.colorize("#313131", "Inventory")) .. "]"
  13         .. mcl_formspec.get_itemslot_bg(0,4.5,9,3)
  14         .. mcl_formspec.get_itemslot_bg(0,7.74,9,1)
  15         .. "list[current_player;main;0,4.5;9,3;9]"
  16         .. "listring[]"
  17         .. "list[current_player;main;0,7.74;9,1;]"
  18         .. "real_coordinates[true]"
  19         .. "image[3.15,0.6;7.6,4.1;mcl_enchanting_button_background.png]"
  20
  21
  22 local roman_numbers = {"I", "II", "III", "IV", "V"}
  23
  24 function mcl_enchanting.get_enchantment_description(enchantment, level)
  25         local enchantment_def = mcl_enchanting.enchantments[enchantment]
  26         return enchantment_def.name .. " " .. (enchantment_def.max_level == 1 and "" or roman_numbers[level])
  27 end
  28
  29 function mcl_enchanting.update_formspec(pos)
  30         local meta = minetest.get_meta(pos)
  31         local inv = meta:get_inventory()
  32         local full_tool_name = inv:get_stack("tool", 1):get_name()
  33         local shortened_tool_name = mcl_enchanting.all_tools[full_tool_name]
  34         local supported_enchantments = (shortened_tool_name and mcl_enchanting.tools[shortened_tool_name].enchantments or {})
  35         local sup_ench = false
  36         local formspec = enchanting_table_formspec
  37         local e_list = minetest.deserialize(meta:get_string("enchantments"))
  38         local y = 0.65
  39         for i, e in pairs(e_list) do
  40                 local enchantment_supported = table.indexof(supported_enchantments, e.enchantment) ~= -1
  41                 sup_ench = sup_ench or enchantment_supported
  42                 local enough_lapis = inv:contains_item("lapis", ItemStack(mcl_enchanting.lapis_itemstring .. " " .. e.cost))
  43                 local ending = (enough_lapis and enchantment_supported and "" or "_off")
  44                 local hover_ending = (enough_lapis and enchantment_supported and "_hovered" or "_off")
  45                 formspec = formspec
  46                         .. "container[3.2," .. y .. "]"
  47                         .. (enchantment_supported and "tooltip[button_" .. i .. ";" .. C("#818181") .. mcl_enchanting.get_enchantment_description(e.enchantment, e.level) .. " " .. C("#FFFFFF") .. " . . . ?\n\n" .. C(enough_lapis and "#818181" or "#FC5454") .. e.cost .. " Lapis Lazuli" .. "]" or "")
  48                         .. "style[button_" .. i .. ";bgimg=mcl_enchanting_button" .. ending .. ".png;bgimg_hovered=mcl_enchanting_button" .. hover_ending .. ".png;bgimg_pressed=mcl_enchanting_button" .. hover_ending .. ".png]"
  49                         .. "button[0,0;7.5,1.3;button_" .. i .. ";]"
  50                         .. (enchantment_supported and "image[0,0;1.3,1.3;mcl_enchanting_number_" .. i .. ending .. ".png]" or "")
  51                         .. (enchantment_supported and e.glyphs or "")
  52                         .. "container_end[]"
  53                 y = y + 1.35
  54         end
  55         formspec = formspec
  56                 .. "image[" .. (sup_ench and 0.58 or 1.15) .. ",1.2;" .. (sup_ench and 2 or 0.87) .. ",1.43;mcl_enchanting_book_" .. (sup_ench and "open" or "closed") .. ".png]"
  57         meta:set_string("formspec", formspec)
  58 end
  59
  60 function mcl_enchanting.progress_formspec_input(pos, _, fields, player)
  61         if fields.quit then
  62                 return
  63         end
  64         local meta = minetest.get_meta(pos)
  65         local inv = meta:get_inventory()
  66         local e_list = minetest.deserialize(meta:get_string("enchantments"))
  67         local button_pressed
  68         for i = 1, 3 do
  69                 if fields["button_" .. i] then
  70                         button_pressed = i
  71                 end
  72         end
  73         if not button_pressed then return end
  74         local e = e_list[button_pressed]
  75         local lapis_cost = ItemStack(mcl_enchanting.lapis_itemstring .. " " .. e.cost)
  76         if not inv:contains_item("lapis", lapis_cost) then return end
  77         local tool_stack = inv:get_stack("tool", 1)
  78         local full_tool_name = tool_stack:get_name()
  79         local shortened_tool_name = mcl_enchanting.all_tools[full_tool_name]
  80         if not shortened_tool_name then return end
  81         if table.indexof(mcl_enchanting.tools[shortened_tool_name].enchantments, e.enchantment) == -1 then return end
  82         local wear = tool_stack:get_wear()
  83         inv:remove_item("lapis", lapis_cost)
  84         local enchanted_tool_stack = ItemStack(full_tool_name .. "_enchanted_" .. e.enchantment .. "_" .. e.level)
  85         enchanted_tool_stack:add_wear(tool_stack:get_wear())
  86         inv:set_stack("tool", 1, enchanted_tool_stack)
  87         minetest.sound_play("mcl_enchanting_enchant", {to_player = player:get_player_name(), gain = 5.0})
  88         mcl_enchanting.add_enchantments(pos)
  89 end
  90
  91 function mcl_enchanting.add_enchantments(pos)
  92         local meta = minetest.get_meta(pos)
  93         local e_list = {}
  94         for i = 1, 3 do
  95                 local e = {}
  96                 e.cost = math.random(mcl_enchanting.max_cost)
  97                 e.enchantment = mcl_enchanting.enchantment_name_list[math.random(#mcl_enchanting.enchantment_name_list)]
  98                 local max_level = mcl_enchanting.enchantments[e.enchantment].max_level
  99                 e.level = max_level + 1 - math.ceil(math.pow(math.random(math.pow(max_level, mcl_enchanting.level_rarity_grade)), 1 / mcl_enchanting.level_rarity_grade))
 100                 e.glyphs = ""
 101                 local x = 1.3
 102                 for i = 1, 9 do
 103                         e.glyphs = e.glyphs .. "image[".. x .. ",0.1;0.5,0.5;mcl_enchanting_glyph_" .. math.random(18) .. ".png^[colorize:#675D49:255]"
 104                         x = x + 0.6
 105                 end
 106                 e_list[i] = e
 107         end
 108         meta:set_string("enchantments", minetest.serialize(e_list))
 109         mcl_enchanting.update_formspec(pos)
 110 end
 111
 112 function mcl_enchanting.drop_inventory(pos)
 113         local meta = minetest.get_meta(pos)
 114         local inv = meta:get_inventory()
 115         for _, listname in pairs({"tool", "lapis"}) do
 116                 local stack = inv:get_stack(listname, 1)
 117                 if not stack:is_empty() then
 118                         minetest.add_item(vector.add(pos, {x = math.random(0, 10) / 10 - 0.5, y = 0, z = math.random(0, 10) / 10 - 0.5}), stack)
 119                 end
 120         end
 121 end
 122
 123 function mcl_enchanting.init_table(pos)
 124         local inv = minetest.get_meta(pos):get_inventory()
 125         inv:set_size("tool", 1)
 126         inv:set_size("lapis", 1)
 127         mcl_enchanting.add_enchantments(pos)
 128         minetest.add_entity(vector.add(pos, mcl_enchanting.book_offset), "mcl_enchanting:book")
 129 end
 130
 131 -- Ugly hack to run enchanted tool registration before HELP/tt is run
 132 table.insert(minetest.registered_on_mods_loaded, 1, function()
 133         for toolname, tooldef in pairs(mcl_enchanting.tools) do
 134                 for _, material in pairs(tooldef.materials) do
 135                         local full_name = toolname .. ((material == "") and "" or "_" .. material)
 136                         local old_def = minetest.registered_tools[full_name]
 137                         if not old_def then break end
 138                         mcl_enchanting.all_tools[full_name] = toolname
 139                         for _, enchantment in pairs(tooldef.enchantments) do
 140                                 local enchantment_def = mcl_enchanting.enchantments[enchantment]
 141                                 for lvl = 1, enchantment_def.max_level do
 142                                         local new_def = table.copy(old_def)
 143                                         new_def.description = minetest.colorize("#54FCFC", old_def.description) .. "\n" .. mcl_enchanting.get_enchantment_description(enchantment, lvl)
 144                                         new_def.inventory_image = old_def.inventory_image .. "^[colorize:violet:50"
 145                                         new_def.groups.not_in_creative_inventory = 1
 146                                         new_def.texture = old_def.texture or full_name:gsub("%:", "_")
 147                                         new_def._original_tool = full_name
 148                                         enchantment_def.create_itemdef(new_def, lvl)
 149                                         minetest.register_tool(":" .. full_name .. "_enchanted_" .. enchantment .. "_" .. lvl, new_def)
 150                                 end
 151                         end
 152                 end
 153         end
 154 end)