Camas/mods/jewels/init.lua

319 lines
9.4 KiB
Lua

--
-- Jewels mod
-- By Kaadmy
--
local S = minetest.get_translator("jewels")
local F = minetest.formspec_escape
jewels = {}
-- Array of registered jeweled tools
jewels.registered_jewels = {}
-- Formspec
local form_bench = default.ui.get_page("default:2part")
form_bench = form_bench .. "list[current_name;main;2.25,1.75;1,1;]"
form_bench = form_bench .. "listring[current_name;main]"
form_bench = form_bench .. default.ui.get_itemslot_bg(2.25, 1.75, 1, 1)
form_bench = form_bench .. "label[3.25,1.75;"..F(S("1. Place tool here")).."]"
form_bench = form_bench .. "label[3.25,2.25;"..F(S("2. Hold a jewel and punch the bench")).."]"
form_bench = form_bench .. "list[current_player;main;0.25,4.75;8,4;]"
form_bench = form_bench .. "listring[current_player;main]"
form_bench = form_bench .. default.ui.get_hotbar_itemslot_bg(0.25, 4.75, 8, 1)
form_bench = form_bench .. default.ui.get_itemslot_bg(0.25, 5.75, 8, 3)
default.ui.register_page("jewels_bench", form_bench)
local function plus_power(i)
if i >= 0 then
i = "+" .. i
end
return i
end
function jewels.register_jewel(toolname, new_toolname, def)
-- registers a new tool with different stats
local data = {
name = new_toolname, -- the new name of the tool
overlay = def.overlay or "jewels_jeweled_handle.png", -- overlay image
description = def.description or nil,
stats = {
digspeed = def.stats.digspeed, -- negative digs faster
maxlevel = def.stats.maxlevel, -- positive digs higher levels
maxdrop = def.stats.maxdrop, -- positive increases max drop level
uses = def.stats.uses, -- positive increases uses
fleshy = def.stats.fleshy, -- positive increases fleshy damage
range = def.stats.range, -- positive increases reach distance with tool
}
}
if not jewels.registered_jewels[toolname] then
jewels.registered_jewels[toolname] = {}
end
table.insert(jewels.registered_jewels[toolname], data)
local tooldef = minetest.deserialize(
minetest.serialize(minetest.registered_tools[toolname]))
if not tooldef then
minetest.log("warning",
"Trying to register jewel " .. new_toolname
.. " that has an unknown output item " .. toolname)
return
end
local new_tool_invimage = ""
if tooldef.inventory_image then
new_tool_invimage = tooldef.inventory_image .. "^" .. data.overlay
end
local new_tool_wieldimage = ""
if tooldef.wield_image then
new_tool_wieldimage = tooldef.wield_image .. "^" .. data.overlay
end
local new_tooldef = tooldef
local desc = new_tooldef.description or ""
-- TODO: Add custom description for each tool for better translatability
desc = S("Jeweled @1", desc)
if data.description ~= nil then
desc = data.description
end
new_tooldef.inventory_image = new_tool_invimage
new_tooldef.wield_image = new_tool_wieldimage
if data.stats.range then
if not new_tooldef.range then
new_tooldef.range = 4
end
new_tooldef.range = new_tooldef.range + data.stats.range
desc = desc .. "\n"..S("Range: @1", plus_power(data.stats.range))
end
if new_tooldef.tool_capabilities then
if data.stats.maxdrop and new_tooldef.tool_capabilities.max_drop_level then
new_tooldef.tool_capabilities.max_drop_level =
new_tooldef.tool_capabilities.max_drop_level + data.stats.maxdrop
desc = desc .. "\n"..S("Drop level: @1", plus_power(data.stats.maxdrop))
end
if data.stats.digspeed then
for group, cap in pairs(new_tooldef.tool_capabilities.groupcaps) do
for i, _ in ipairs(cap.times) do
cap.times[i] = cap.times[i] + data.stats.digspeed
end
if data.stats.maxlevel and cap.maxlevel then
cap.maxlevel = cap.maxlevel + data.stats.maxlevel
end
if data.stats.uses and cap.uses then
cap.uses = cap.uses + data.stats.uses
end
end
desc = desc .. "\n"..S("Dig time: @1 s", plus_power(data.stats.digspeed))
end
if data.stats.uses then
desc = desc .. "\n"..S("Uses: @1", plus_power(data.stats.uses))
end
if data.stats.maxlevel then
desc = desc .. "\n"..S("Dig level: @1", plus_power(data.stats.maxlevel))
end
if data.stats.fleshy and new_tooldef.tool_capabilities.damage_groups
and new_tooldef.tool_capabilities.damage_groups.fleshy then
new_tooldef.tool_capabilities.damage_groups.fleshy =
new_tooldef.tool_capabilities.damage_groups.fleshy + data.stats.fleshy
desc = desc .. "\n"..S("Damage: @1", plus_power(data.stats.fleshy))
end
end
new_tooldef.description = desc
if not new_tooldef.groups then
new_tooldef.groups = {}
end
new_tooldef.groups.not_in_creative_inventory = 1
minetest.register_tool(new_toolname, new_tooldef)
end
function jewels.can_jewel(toolname)
for name, _ in pairs(jewels.registered_jewels) do
if name == toolname then
return true
end
end
return false
end
function jewels.get_jeweled(toolname)
for name, jables in pairs(jewels.registered_jewels) do
if name == toolname then
return util.choice_element(jables)
end
end
end
-- Items
minetest.register_craftitem(
"jewels:jewel",
{
description = S("Jewel"),
inventory_image = "jewels_jewel.png",
stack_max = 10
})
-- Nodes
local protection_check_move = function(pos, from_list, from_index, to_list, to_index, count, player)
if minetest.is_protected(pos, player:get_player_name()) and
not minetest.check_player_privs(player, "protection_bypass") then
minetest.record_protection_violation(pos, player:get_player_name())
return 0
else
return count
end
end
local protection_check_put_take = function(pos, listname, index, stack, player)
if minetest.is_protected(pos, player:get_player_name()) and
not minetest.check_player_privs(player, "protection_bypass") then
minetest.record_protection_violation(pos, player:get_player_name())
return 0
else
return stack:get_count()
end
end
minetest.register_node(
"jewels:bench",
{
description = S("Jeweler's Workbench"),
tiles ={"jewels_bench_top.png", "jewels_bench_bottom.png", "jewels_bench_sides.png"},
paramtype2 = "facedir",
groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
legacy_facedir_simple = true,
is_ground_content = false,
sounds = default.node_sound_wood_defaults(),
on_construct = function(pos)
local meta = minetest.get_meta(pos)
meta:set_string("formspec", default.ui.get_page("jewels_bench"))
meta:set_string("infotext", S("Jeweler's Workbench"))
local inv = meta:get_inventory()
inv:set_size("main", 1)
end,
can_dig = function(pos, player)
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
return inv:is_empty("main")
end,
allow_metadata_inventory_move = protection_check_move,
allow_metadata_inventory_put = protection_check_put_take,
allow_metadata_inventory_take = protection_check_put_take,
on_punch = function(pos, node, player, pointed_thing)
local itemstack = player:get_wielded_item()
local itemstack_changed = false
if itemstack:get_name() == "jewels:jewel" then
if minetest.is_protected(pos, player:get_player_name()) and
not minetest.check_player_privs(player, "protection_bypass") then
minetest.record_protection_violation(pos, player:get_player_name())
return
end
local meta = minetest.get_meta(pos)
local inv = meta:get_inventory()
local itemname = inv:get_stack("main", 1):get_name()
if jewels.can_jewel(itemname) then
inv:set_stack("main", 1, ItemStack(jewels.get_jeweled(itemname)))
if not minetest.settings:get_bool("creative_mode") then
itemstack:take_item()
itemstack_changed = true
end
minetest.sound_play({name="jewels_jewelling_a_tool"}, {gain=0.8, pos=pos, max_hear_distance=8})
-- TODO: Graphical effect
achievements.trigger_achievement(player, "jeweler")
achievements.trigger_achievement(player, "master_jeweler")
end
end
if itemstack_changed then
player:set_wielded_item(itemstack)
end
end,
})
minetest.register_node(
"jewels:jewel_ore",
{
description = S("Jewel Ore"),
tiles = {
"default_tree_birch_top.png",
"default_tree_birch_top.png",
"default_tree_birch.png^jewels_ore.png"
},
drop = "jewels:jewel",
groups = {snappy=1, choppy=1, tree=1},
sounds = default.node_sound_wood_defaults(),
})
crafting.register_craft(
{
output = "jewels:bench",
items = {
"group:planks 5",
"default:ingot_carbon_steel 2",
"jewels:jewel",
}
})
-- Achievements
achievements.register_achievement(
"jeweler",
{
title = S("Jeweler"),
description = S("Jewel a tool."),
times = 1,
})
achievements.register_achievement(
"secret_of_jewels",
{
title = S("Secret of Jewels"),
description = S("Discover the origin of jewels."),
times = 1,
dignode = "jewels:jewel_ore",
})
-- The tool jewel definitions
dofile(minetest.get_modpath("jewels").."/jewels.lua")
dofile(minetest.get_modpath("jewels").."/mapgen.lua")
default.log("mod:jewels", "loaded")