server-nalc/mods/throwing/build_arrow.lua

minetest.register_craftitem("throwing:arrow_build", {
	description = "Build Arrow",
	inventory_image = "throwing_arrow_build.png",
})

minetest.register_node("throwing:arrow_build_box", {
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			-- Shaft
			{-6.5/17, -1.5/17, -1.5/17, 6.5/17, 1.5/17, 1.5/17},
			--Spitze
			{-4.5/17, 2.5/17, 2.5/17, -3.5/17, -2.5/17, -2.5/17},
			{-8.5/17, 0.5/17, 0.5/17, -6.5/17, -0.5/17, -0.5/17},
			--Federn
			{6.5/17, 1.5/17, 1.5/17, 7.5/17, 2.5/17, 2.5/17},
			{7.5/17, -2.5/17, 2.5/17, 6.5/17, -1.5/17, 1.5/17},
			{7.5/17, 2.5/17, -2.5/17, 6.5/17, 1.5/17, -1.5/17},
			{6.5/17, -1.5/17, -1.5/17, 7.5/17, -2.5/17, -2.5/17},

			{7.5/17, 2.5/17, 2.5/17, 8.5/17, 3.5/17, 3.5/17},
			{8.5/17, -3.5/17, 3.5/17, 7.5/17, -2.5/17, 2.5/17},
			{8.5/17, 3.5/17, -3.5/17, 7.5/17, 2.5/17, -2.5/17},
			{7.5/17, -2.5/17, -2.5/17, 8.5/17, -3.5/17, -3.5/17},
		}
	},
	tiles = {"throwing_arrow_build.png", "throwing_arrow_build.png", "throwing_arrow_build_back.png", "throwing_arrow_build_front.png", "throwing_arrow_build_2.png", "throwing_arrow_build.png"},
	groups = {not_in_creative_inventory=1},
})

local THROWING_ARROW_ENTITY={
	physical = false,
	timer=0,
	visual = "wielditem",
	visual_size = {x=0.1, y=0.1},
	textures = {"throwing:arrow_build_box"},
	lastpos={},
	collisionbox = {0,0,0,0,0,0},
	node = "",
	player = "",
	inventory = false,
	stack = false,
}

THROWING_ARROW_ENTITY.on_step = function(self, dtime)
	self.timer=self.timer+dtime
	local newpos = self.object:getpos()
	if self.lastpos.x ~= nil then
		for _, pos in pairs(throwing_get_trajectoire(self, newpos)) do
			local node = minetest.get_node(pos)
			local objs = minetest.get_objects_inside_radius({x=pos.x,y=pos.y,z=pos.z}, 1)
			for k, obj in pairs(objs) do
				if throwing_is_player(self.player, obj) or throwing_is_entity(obj) then
					if self.inventory and self.stack and not minetest.setting_getbool("creative_mode") then
						self.inventory:remove_item("main", {name=self.stack:get_name()})
					end
					if self.stack then
						minetest.add_item(pos, {name=self.stack:get_name()})
					end
					local toughness = 0.95
					if math.random() < toughness then
						minetest.add_item(pos, 'throwing:arrow_build')
					else
						minetest.add_item(pos, 'default:stick')
					end
					self.object:remove()
					return
				end
			end

			if node.name ~= "air"
			and not string.find(node.name, "water_")
			and not (string.find(node.name, 'grass') and not string.find(node.name, 'dirt'))
			and not (string.find(node.name, 'farming:') and not string.find(node.name, 'soil'))
			and not string.find(node.name, 'flowers:')
			and not string.find(node.name, 'fire:') then
				if node.name ~= "ignore" and self.inventory and self.stack then
					if not minetest.is_protected(self.lastpos, "")
					and not string.find(node.name, "lava")
					and not string.find(node.name, "torch")
					and self.stack:get_definition().type == "node"
					and self.stack:get_name() ~= "default:torch" then
						minetest.place_node(self.lastpos, {name=self.stack:get_name()})
					else
						minetest.add_item(self.lastpos, {name=self.stack:get_name()})
					end
					if not minetest.setting_getbool("creative_mode") then
						self.inventory:remove_item("main", {name=self.stack:get_name()})
					end
				end
				minetest.add_item(self.lastpos, 'default:shovel_steel')
				self.object:remove()
				return
			end
			self.lastpos={x=pos.x, y=pos.y, z=pos.z}
		end
	end
	self.lastpos={x=newpos.x, y=newpos.y, z=newpos.z}
end

minetest.register_entity("throwing:arrow_build_entity", THROWING_ARROW_ENTITY)

minetest.register_craft({
	output = 'throwing:arrow_build',
	recipe = {
		{'default:stick', 'default:stick', 'default:shovel_steel'},
	}
})

minetest.register_craft({
	output = 'throwing:arrow_build',
	recipe = {
		{'default:shovel_steel', 'default:stick', 'default:stick'},
	}
})