-- arrow (duck_arrow)
nssm:register_arrow("nssm:duck_father", {
	visual = "sprite",
	visual_size = {x = 1, y = 1},
	textures = {"duck_egg.png"},
	velocity = 8,
	-- direct hit
	hit_player = function(self, player)
		local pos = self.object:getpos()
		nssm:duck_explosion(pos)
	end,

	hit_mob = function(self, player)
		local pos = self.object:getpos()
		nssm:duck_explosion(pos)
	end,

	hit_node = function(self, pos, node)
		nssm:duck_explosion(pos)
	end,

})

function nssm:duck_explosion(pos)
	pos.y = pos.y+1;
	minetest.add_particlespawner({
		amount = 10,
		time = 0.2,
		minpos = {x=pos.x-1, y=pos.y-1, z=pos.z-1},
		maxpos = {x=pos.x+1, y=pos.y+4, z=pos.z+1},
		minvel = {x=0, y=0, z=0},
		maxvel = {x=1, y=1, z=1},
		minacc = {x=-0.5,y=5,z=-0.5},
		maxacc = {x=0.5,y=5,z=0.5},
		minexptime = 1,
		maxexptime = 3,
		minsize = 4,
		maxsize = 6,
		collisiondetection = false,
		vertical = false,
		texture = "duck_egg_fragments.png",
	})
	core.after(0.4, function()
		for dx = -2,2 do
			pos = {x = pos.x+dx, y=pos.y; z=pos.z+dx}
			minetest.add_particlespawner({
				amount = 100,
				time = 0.2,
				minpos = {x=pos.x-1, y=pos.y-1, z=pos.z-1},
				maxpos = {x=pos.x+1, y=pos.y+4, z=pos.z+1},
				minvel = {x=0, y=0, z=0},
				maxvel = {x=1, y=5, z=1},
				minacc = {x=-0.5,y=5,z=-0.5},
				maxacc = {x=0.5,y=5,z=0.5},
				minexptime = 1,
				maxexptime = 3,
				minsize = 2,
				maxsize = 4,
				collisiondetection = false,
				vertical = false,
				texture = "tnt_smoke.png",
			})
			minetest.add_entity(pos, "nssm:duck")
		end
	end)
end

-- snow_arrow
nssm:register_arrow("nssm:snow_arrow", {
	visual = "sprite",
	visual_size = {x = 1, y = 1},
	textures = {"transparent.png"},
	velocity =20,
	-- direct hit
	hit_player = function(self, player)
		local pos = self.object:getpos()
		nssm:ice_explosion(pos)
	end,

	hit_mob = function(self, player)
		local pos = self.object:getpos()
		nssm:ice_explosion(pos)
	end,
	hit_node = function(self, pos, node)
		nssm:ice_explosion(pos)
	end,
})

function nssm:ice_explosion(pos)
	for i=pos.x-math.random(0, 1), pos.x+math.random(0, 1), 1 do
		for j=pos.y-1, pos.y+4, 1 do
			for k=pos.z-math.random(0, 1), pos.z+math.random(0, 1), 1 do
				minetest.set_node({x=i, y=j, z=k}, {name="default:ice"})
			end
		end
	end
end

-- arrow manticore
nssm:register_arrow("nssm:spine", {
	visual = "sprite",
	visual_size = {x = 1, y = 1},
	textures = {"manticore_spine_flying.png"},
	velocity = 10,
	-- direct hit
	hit_player = function(self, player)
		player:punch(self.object, 1.0, {
			full_punch_interval = 1.0,
			damage_groups = {fleshy = 2},
		}, nil)
	end,

	hit_mob = function(self, player)
		player:punch(self.object, 1.0, {
			full_punch_interval = 1.0,
			damage_groups = {fleshy = 2},
		}, nil)
	end,
})

-- web arrow
nssm:register_arrow("nssm:webball", {
	visual = "sprite",
	visual_size = {x = 1, y = 1},
	textures = {"web_ball.png"},
	velocity = 8,
	-- direct hit
	hit_player = function(self, player)
		local p = player:getpos()
		nssm:explosion_web(p)
	end,

	hit_mob = function(self, player)
		player:punch(self.object, 1.0, {
			full_punch_interval = 1.0,
			damage_groups = {fleshy = 1},
		}, nil)
	end,

	hit_node = function(self, pos, node)
		nssm:explosion_web(pos)
	end
})

function nssm:explosion_web(pos)
	if minetest.is_protected(pos, "") then
		return
	end
    for i=pos.x-1, pos.x+1, 1 do
		for j=pos.y-1, pos.y+1, 1 do
			for k=pos.z-1, pos.z+1, 1 do
				local current = minetest.get_node({x=i,y=j,z=k})
				local ontop  = minetest.get_node({x=i,y=j+1,z=k})
				if (current.name ~= "air") and
					(current.name ~= "nssm:web") and
					(ontop.name == "air") and not
					minetest.is_protected(current,"") and not
					minetest.is_protected(ontop,"") then
						minetest.set_node(ontop, {name="nssm:web"})
				end
			end
		end
	end
end

-- arrow=>phoenix arrow
nssm:register_arrow("nssm:phoenix_arrow", {
	visual = "sprite",
	visual_size = {x = 1, y = 1},
	textures = {"transparent.png"},
	velocity = 8,
	-- direct hit
	hit_player = function(self, player)
	end,

	on_step = function(self, dtime)

	    self.timer = self.timer + 1

	    local pos = self.object:getpos()

		local n = minetest.env:get_node(pos).name

	    if self.timer > 100 or minetest.is_protected(pos, "") or ((n~="air") and (n~="fire:basic_flame")) then
	        self.object:remove()
	    end

		minetest.env:set_node(pos, {name="fire:basic_flame"})
		if math.random(1,3)==1 then
			dx = math.random(-1,1)
			dy = math.random(-1,1)
			dz = math.random(-1,1)
			local p = {x=pos.x+dx, y=pos.y+dy, z=pos.z+dz}
			local n = minetest.env:get_node(p).name
			if n=="air" then
				minetest.env:set_node(p, {name="fire:basic_flame"})
			end
		end

	end,
})

nssm:register_arrow("nssm:super_gas", {
	visual = "sprite",
	visual_size = {x = 1, y = 1},
	textures = {"transparent.png"},
	velocity = 8,
	-- direct hit
	hit_player = function(self, player)
		local p = player:getpos()
		nssm:gas_explosion(p)
	end,

	hit_node = function(self, pos, node)
		nssm:gas_explosion(pos)
	end
})


function nssm:gas_explosion(pos)
	if minetest.is_protected(pos, "") then
		return
	end
	for dx=-2,2 do
		for dy=-1,4 do
			for dz=-2,2 do
				local p = {x=pos.x+dx, y=pos.y+dy, z=pos.z+dz}
				if minetest.is_protected(p, "") then
					return
				end
				local n = minetest.env:get_node(p).name
				if n== "air" then
					minetest.set_node(p, {name="nssm:venomous_gas"})
				end
			end
		end
	end
end

--
nssm:register_arrow("nssm:roar_of_the_dragon", {
	visual = "sprite",
	visual_size = {x = 1, y = 1},
	textures = {"transparent.png"},
	velocity = 10,

	on_step = function(self, dtime)

	    self.timer = self.timer + 1

	    local pos = self.object:getpos()

		local n = minetest.env:get_node(pos).name

	    if self.timer > 75 or minetest.is_protected(pos, "") then
	        self.object:remove()
	    end

		minetest.env:set_node(pos, {name="air"})
		if math.random(1,3)==1 then
			dx = math.random(-1,1)
			dy = math.random(-1,1)
			dz = math.random(-1,1)
			local p = {x=pos.x+dx, y=pos.y+dy, z=pos.z+dz}
			minetest.env:set_node(p, {name="air"})
		end

		if (self.hit_player or self.hit_mob)
		-- clear mob entity before arrow becomes active
		and self.timer > (10 - (self.velocity / 2)) then

			for _,player in pairs(minetest.get_objects_inside_radius(pos, 1.0)) do

				if self.hit_player
				and player:is_player() then

					self.hit_player(self, player)
					self.object:remove() ; -- print ("hit player")
					return
				end

				if self.hit_mob
				and player:get_luaentity()
				and player:get_luaentity().name ~= self.object:get_luaentity().name
				and player:get_luaentity().name ~= "__builtin:item"
				and player:get_luaentity().name ~= "gauges:hp_bar"
				and player:get_luaentity().name ~= "signs:text"
				and player:get_luaentity().name ~= "itemframes:item" then

					self.hit_mob(self, player)

					self.object:remove() ; -- print ("hit mob")

					return
				end
			end
		end
	end,

	-- direct hit
	hit_player = function(self, player)
		player:punch(self.object, 1.0, {
			full_punch_interval = 1.0,
			damage_groups = {fleshy = 3},
		}, nil)
	end,

	hit_mob = function(self, player)
		player:punch(self.object, 1.0, {
			full_punch_interval = 1.0,
			damage_groups = {fleshy = 3},
		}, nil)
	end,
})