VoxeLibre/mods/ITEMS/mcl_end/eye_of_ender.lua

-- Eye of Ender
local S = minetest.get_translator(minetest.get_current_modname())

minetest.register_entity("mcl_end:ender_eye", {
	physical = false,
	textures = {"mcl_end_ender_eye.png"},
	visual_size = {x=1.5, y=1.5},
	collisionbox = {0,0,0,0,0,0},
	pointable = false,

	-- Save and restore age
	get_staticdata = function(self)
		return tostring(self._age)
	end,
	on_activate = function(self, staticdata, dtime_s)
		local age = tonumber(staticdata)
		if type(age) == "number" then
			self._age = age
			if self._age >= 2 then
				self._phase = 1
			else
				self._phase = 0
			end
		end
		if not self._luck then self._luck = 0 end
	end,

	on_step = function(self, dtime)
		self._age = self._age + dtime
		if self._age >= 3 then
			-- End of life
			local r = math.random(1,15) + self._luck
			if r <= 3 then
				-- 20% chance to get destroyed completely.
				-- 100% if in Creative Mode
				self.object:remove()
				return
			else
				-- 80% to drop as an item
				local pos = self.object:get_pos()
				local v = self.object:get_velocity()
				self.object:remove()
				local item = minetest.add_item(pos, "mcl_end:ender_eye")
				item:set_velocity(v)
				return
			end
		elseif self._age >= 2 then
			if self._phase == 0 then
				self._phase = 1
				-- Stop the eye and wait for another second.
				-- The vertical speed changes are just eye candy.
				self.object:set_acceleration({x=0, y=-3, z=0})
				self.object:set_velocity({x=0, y=self.object:get_velocity().y*0.2, z=0})
			end
		else
			-- Fly normally and generate particles
			local pos = self.object:get_pos()
			pos.x = pos.x + math.random(-1, 1)*0.5
			pos.y = pos.y + math.random(-1, 0)*0.5
			pos.z = pos.z + math.random(-1, 1)*0.5
			minetest.add_particle({
				pos = pos,
				texture = "mcl_particles_teleport.png",
				expirationtime = 1,
				velocity = {x=math.random(-1, 1)*0.1, y=math.random(-30, 0)*0.1, z=math.random(-1, 1)*0.1},
				acceleration = {x=0, y=0, z=0},
				size = 2.5,
			})
		end
	end,

	_age = 0, -- age in seconds
	_phase = 0, -- phase 0: flying. phase 1: idling in mid air, about to drop or shatter
})

minetest.register_craftitem("mcl_end:ender_eye", {
	description = S("Eye of Ender"),
	_tt_help = S("Guides the way to the mysterious End dimension"),
	_doc_items_longdesc = S("This item is used to locate End portal shrines in the Overworld and to activate End portals.") .. "\n" .. S("NOTE: The End dimension is currently incomplete and might change in future versions."),
	_doc_items_usagehelp = S("Use the attack key to release the eye of ender. It will rise and fly in the horizontal direction of the closest end portal shrine. If you're very close, the eye of ender will take the direct path to the End portal shrine instead. After a few seconds, it stops. It may drop as an item, but there's a 20% chance it shatters.") .. "\n" .. S("To activate an End portal, eyes of ender need to be placed into each block of an intact End portal frame."),
	wield_image = "mcl_end_ender_eye.png",
	inventory_image = "mcl_end_ender_eye.png",
	stack_max = 64,
	-- Throw eye of ender to make it fly to the closest stronghold
	on_use = function(itemstack, user, pointed_thing)
		if user == nil then
			return
		end
		local player_name = user:get_player_name()
		local origin = user:get_pos()
		origin.y = origin.y + 1.5
		local strongholds = mcl_structures.registered_structures["end_shrine"].static_pos
		local dim = mcl_worlds.pos_to_dimension(origin)
		local is_creative = minetest.is_creative_enabled(player_name)

		-- Just drop the eye of ender if there are no strongholds
		if #strongholds <= 0 or dim ~= "overworld" then
			if not is_creative then
				minetest.item_drop(ItemStack("mcl_end:ender_eye"), user, user:get_pos())
				itemstack:take_item()
			end
			return itemstack
		end

		-- Find closest stronghold.
		-- Note: Only the horizontal axes are taken into account.
		local closest_stronghold
		local lowest_dist
		for s=1, #strongholds do
			local h_pos = table.copy(strongholds[s])
			local h_origin = table.copy(origin)
			h_pos.y = 0
			h_origin.y = 0
			local dist = vector.distance(h_origin, h_pos)
			if not closest_stronghold then
				closest_stronghold = strongholds[s]
				lowest_dist = dist
			else
				if dist < lowest_dist then
					closest_stronghold = strongholds[s]
					lowest_dist = dist
				end
			end
		end

		-- Throw it!
		local obj = minetest.add_entity(origin, "mcl_end:ender_eye")
		local dir
		local ent = obj:get_luaentity()
		ent._luck = mcl_luck.get_luck(player_name)

		if lowest_dist <= 25 then
			local velocity = 4
			-- Stronghold is close: Fly directly to stronghold and take Y into account.
			dir = vector.normalize(vector.direction(origin, closest_stronghold))
			obj:set_velocity({x=dir.x*velocity, y=dir.y*velocity, z=dir.z*velocity})
		else
			local velocity = 12
			-- Don't care about Y if stronghold is still far away.
			-- Fly to direction of X/Z, and always upwards so it can be seen easily.
			local o = {x=origin.x, y=0, z=origin.z}
			local s = {x=closest_stronghold.x, y=0, z=closest_stronghold.z}
			dir = vector.normalize(vector.direction(o, s))
			obj:set_acceleration({x=dir.x*-3, y=4, z=dir.z*-3})
			obj:set_velocity({x=dir.x*velocity, y=3, z=dir.z*velocity})
		end


		if not is_creative then
			itemstack:take_item()
		end
		return itemstack
	end,
})

minetest.register_craft({
	type = "shapeless",
	output = "mcl_end:ender_eye",
	recipe = {"mcl_mobitems:blaze_powder", "mcl_throwing:ender_pearl"},
})