realtest/mods/instruments/init.lua

instruments = {}
instruments.spear = {}

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

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

instruments.desc_list = {
	"Stone",
	"Bismuth",
	"Zinc",
	"Tin",
	--------
	"Copper",
	--------
	"Rose Gold",
	"Black Bronze",
	"Bismuth Bronze",
	"Bronze",
	"Aluminium",
	--------
	"Wrought Iron",
	--------
	"Steel",
	--------
	"Black Steel",
}

instruments.stone_recipes = {
	{{"default:cobble","default:cobble","default:cobble"},
	 {"", "default:stick", ""},
	 {"", "default:stick", ""}},
	{{"default:cobble","default:cobble"},
	 {"", "default:stick"},
	 {"", "default:stick"}},
	{{"default:cobble"},
	 {"default:stick"},
	 {"default:stick"}},
	{{"default:cobble","default:cobble","default:cobble"},
	 {"default:cobble", "default:stick", "default:cobble"},
	 {"", "default:stick", ""}},
}

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

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

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

instruments.on_use = {nil, nil, nil, nil, nil,
	function (item, player, pointed_thing)
		local playerpos=player:getpos()
		local obj=minetest.env: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})
		return ""
	end,
	function (item, player, pointed_thing)
		if pointed_thing.type ~= "node" then
			return
		end
		if minetest.env:get_node(pointed_thing.under).name == "default:stone" then
			minetest.env:add_node(pointed_thing.under, {name="default:stone_flat"})
		end
		if minetest.env:get_node(pointed_thing.under).name == "default:desert_stone" then
			minetest.env:add_node(pointed_thing.under, {name="default:desert_stone_flat"})
		end
		item:add_wear(65535/instrumnets.durabilit[i])
		return item
	end
}

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

for i, material in ipairs(instruments.materials) do
	--Heads, crafts and instruments
	for j, instrument in ipairs(instruments.list) do
		if not (material == "stone" and j > 4) then
			minetest.register_tool("instruments:"..instrument.."_"..material, {
				description = instruments.desc_list[i].." "..instrument:capitalize(),
				inventory_image = "instruments_"..instrument.."_"..material..".png",
				--[[tool_capabilities = {TODO
					max_drop_level=1,
					groupcaps=instruments.groupcaps[j][i],
				},]]
				on_use = instruments.on_use[j],
				groups = {material_level=instruments.levels[i]},
			})
		end
		if material ~= "stone" then
			minetest.register_craftitem("instruments:"..instrument.."_"..material.."_head", {
				description = instruments.desc_list[i].." "..instrument:capitalize() .. " Head",
				inventory_image = "instruments_"..instrument.."_"..material.."_head.png",
			})
			minetest.register_craft({
				output = "instruments:"..instrument.."_"..material,
				recipe = {
					{"instruments:"..instrument.."_"..material.."_head",},
					{'default:stick'},
				},
			})
		elseif not (material == "stone" and j > 4) then
			minetest.register_craft({
				output = "instruments:"..instrument.."_"..material,
				recipe = instruments.stone_recipes[j],
			})
		end
	end
end

--
-- Entitis

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

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

	if self.timer>0.2 then
		local objs = minetest.env: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
				if obj:get_hp()<=0 then 
					obj:remove()
				end
				self.object:remove() 
			end
		end
	end

	if self.lastpos.x~=nil then
		if node.name ~= "air" then
			minetest.env:add_item(self.lastpos, 'instruments:spear_bismuth')--FIXME
			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)