realtest/mods/instruments/init.lua

instruments = {}
instruments.spear = {}

instruments.chisel_pairs = {}

instruments.spear.damage = 10
instruments.spear.gravity = 9
instruments.spear.velocity = 19

instruments.materials = {
	"stone",
	"bismuth",
	"zinc",
	"tin",
	--------
	"copper",
	--------
	"rose_gold",
	"oroide",
	"black_bronze",
	"bismuth_bronze",
	"tumbaga",
	"bronze",
	"aluminium",
	--------
	"wrought_iron",
	--------
	"german_silver",
	"albata",
	"steel",
	"monel",
	--------
	"black_steel",
}

instruments.desc_list = {
	"Stone",
	"Bismuth",
	"Zinc",
	"Tin",
	--------
	"Copper",
	--------
	"Rose Gold",
	"Oroide",
	"Black Bronze",
	"Bismuth Bronze",
	"Tumbaga",
	"Bronze",
	"Aluminium",
	--------
	"Wrought Iron",
	--------
	"German Silver",
	"Albata",
	"Steel",
	"Monel",
	--------
	"Black Steel",
}

instruments.stone_head_recipes = {
	pick = {{{"default:cobble","default:cobble","default:cobble"}},3},
	axe = {{{"default:cobble","default:cobble"}},2},
	shovel = {{{"default:cobble","default:cobble"},{"default:cobble","default:cobble"}},4},
	hammer = {{{"default:cobble","default:cobble","default:cobble"},{"default:cobble","default:cobble","default:cobble"}},6},
}

instruments.levels = {0,0,0,0,1,2,2,2,2,2,2,2,3,4,4,4,4,5}

instruments.durability = {50, 211, 281, 296, 411, 521, 531, 541, 581, 591, 601, 731, 801, 1001, 1011, 1101, 1111, 1501}

instruments.list = {"pick", "axe", "shovel", "hammer", "sword", "spear", "chisel", "saw"}

instruments.spear.entity = {
	physical = false,
	timer=0,
	textures = {"instruments_spear_back.png"},
	lastpos={},
	collisionbox = {0,0,0,0,0,0},
	material = "stone",
}

instruments.spear.entity.on_step = function(self, dtime)
	self.timer=self.timer+dtime
	local pos = self.object:getpos()
	local node = minetest.get_node(pos)

	if self.timer > 0.2 and self.lastpos.x then
		local objs = minetest.get_objects_inside_radius({x=pos.x,y=pos.y,z=pos.z}, 2)
		for k, obj in pairs(objs) do
			obj:set_hp(obj:get_hp()-instruments.spear.damage)
			if obj:get_entity_name() ~= "instruments:spear_entity" then
				minetest.add_item(self.lastpos, "instruments:spear_"..self.object:get_luaentity().material)
				self.object:remove()
				return
			end
		end
	end

	if self.lastpos.x then
		if node.name ~= "air" then
			minetest.add_item(self.lastpos, "instruments:spear_"..self.object:get_luaentity().material)
			self.object:remove()
		end
	end
	self.lastpos={x=pos.x, y=pos.y, z=pos.z}
end

minetest.register_entity("instruments:spear_entity", instruments.spear.entity)

dofile(minetest.get_modpath("instruments").."/groupcaps.lua")
dofile(minetest.get_modpath("instruments").."/buckets.lua")

for i, material in ipairs(instruments.materials) do
	--Spears
	minetest.register_tool("instruments:spear_"..material, {
		description = instruments.desc_list[i].." Spear",
		inventory_image = "instruments_spear_"..material..".png",
		on_use = function (item, player, pointed_thing)
			local playerpos=player:getpos()
			local obj=minetest.add_entity({x=playerpos.x,y=playerpos.y+1.5,z=playerpos.z}, "instruments:spear_entity")
			local dir=player:get_look_dir()
			obj:setvelocity({x=dir.x*instruments.spear.velocity, y=dir.y*instruments.spear.velocity, z=dir.z*instruments.spear.velocity})
			obj:setacceleration({x=dir.x*-3, y=-instruments.spear.gravity, z=dir.z*-3})
			obj:get_luaentity().material = material
			return ""
		end,
		groups = {material_level=instruments.levels[i], durability=instruments.durability[i], spear=1},
	})
	--Chisels (stone chisels are not exist)
	if material ~= "stone" then
		minetest.register_tool("instruments:chisel_"..material, {
			description = instruments.desc_list[i].." Chisel",
			inventory_image = "instruments_chisel_"..material..".png",
			on_use = function (item, player, pointed_thing)
				if pointed_thing.type ~= "node" then
					return
				end
				local n = minetest.get_node(pointed_thing.under)
				if instruments.chisel_pairs[n.name] then
					minetest.add_node(pointed_thing.under, {name=instruments.chisel_pairs[n.name], param2=n.param2})
					nodeupdate(pointed_thing.under)
				end
				item:add_wear(65535/instruments.durability[i]/4)
				return item
			end,
			groups = {material_level=instruments.levels[i], durability=instruments.durability[i], chisel=1},
		})
	end
	--Heads
	for j, instrument in ipairs(instruments.list) do
		if not (material == "stone" and (instrument == "chisel" or instrument == "sword" or instrument == "spear" or instrument == "saw")) then
			minetest.register_craftitem("instruments:"..instrument.."_"..material.."_head", {
				description = instruments.desc_list[i].." "..instrument:capitalize() .. " Head",
				inventory_image = "instruments_"..instrument.."_"..material.."_head.png",
			})
			if material == "stone" then
				minetest.register_craft({
				output = "instruments:"..instrument.."_"..material.."_head "..instruments.stone_head_recipes[instrument][2],
				recipe = instruments.stone_head_recipes[instrument][1],
			})
			end
			minetest.register_craft({
				output = "instruments:"..instrument.."_"..material,
				recipe = {
					{"instruments:"..instrument.."_"..material.."_head"},
					{"group:stick"},
				},
			})
		end
	end
	--Instruments (without chisels and spears)
	for j, instrument in ipairs({"pick", "axe", "shovel", "hammer", "sword", "saw"}) do
		--Stone swords and saws are not exist
		if not (material == "stone" and (instrument == "sword" or instrument == "saw")) then
			minetest.register_tool("instruments:"..instrument.."_"..material, {
				description = instruments.desc_list[i].." "..instrument:capitalize(),
				inventory_image = "instruments_"..instrument.."_"..material..".png",
				tool_capabilities = {
					max_drop_level=1,
					groupcaps=instruments.groupcaps[j][i],
				},
				groups = {material_level=instruments.levels[i], durability=instruments.durability[i], [instrument] = 1},
			})
		end
	end
end

minetest.register_craft({
	output = "instruments:spear_stone",
	recipe = {
		{"default:cobble", "", ""},
		{"", "group:stick", ""},
		{"","","group:stick"},
	},
})