local S = emote.S
local facedir_to_look_horizontal = emote.util.facedir_to_look_horizontal
local vector_rotate_xz = emote.util.vector_rotate_xz

emote.emotes = {}

emote.attached_to_node = {}
emote.emoting = {}

-- API functions

function emote.register_emote(name, def)
    emote.emotes[name] = def

	minetest.register_chatcommand(name, {
		description = S("Makes your character perform the @1 emote", name),
		func = function(playername)
			local player = minetest.get_player_by_name(playername)
			if emote.start(player, name) then
				if not emote.settings.announce_in_chat then
					return true, S("You @1", name)
				end
			else
				if not emote.settings.announce_in_chat then
					return false, S("You failed to @1", name)
				end
			end
		end,
	})
end

function emote.start(player, emote_name)
	if not minetest.is_player(player) then
		emote.emoting[player] = nil
		return
	end

	local emote_def = emote.emotes[emote_name]

	if not emote_def then
		return false
	end

	local player_name = player:get_player_name()
	player_api.set_animation(player, emote_def.anim_name, emote_def.speed)
	if emote_name == "stand" then
		emote.emoting[player] = nil
		player_api.player_attached[player_name] = nil
	else
		emote.emoting[player] = true
		player_api.player_attached[player_name] = true
	end

	if emote_def.eye_offset then
		player:set_eye_offset(emote_def.eye_offset, emote_def.eye_offset)

	else
		player:set_eye_offset()
	end

	if emote.settings.announce_in_chat then
		minetest.chat_send_all(("* %s %s"):format(player_name, emote_def.description))
	end

	if emote_def.stop_after then
		minetest.after(emote_def.stop_after, emote.stop, player)
	end

	return true
end

function emote.stop(player)
	emote.start(player, "stand")
end

function emote.list()
	local r = {}
	for emote_name, _ in pairs(emote.emotes) do
		table.insert(r, emote_name)
	end
	return r
end

function emote.attach_to_node(player, pos, locked)
	local node = minetest.get_node(pos)
	if node.name == "ignore" then
		return false
	end

	if emote.attached_to_node[player] then
		return
	end

	local def = minetest.registered_nodes[node.name].emote or {}

	local emotedef = {
		eye_offset = def.eye_offset or {x = 0, y = 1/2, z = 0},
		player_offset = def.player_offset or {x = 0, y = 0, z = 0},
		look_horizontal_offset = def.look_horizontal_offset or 0,
		emotestring = def.emotestring or "sit",
	}

	local look_horizontal = facedir_to_look_horizontal(node.param2)
	local offset = vector_rotate_xz(emotedef.player_offset, look_horizontal)
	local rotation = look_horizontal + emotedef.look_horizontal_offset
	local new_pos = vector.add(pos, offset)

	emote.start(player, emotedef.emotestring)

	if locked then
		local object = minetest.add_entity(new_pos, "emote:attacher")
		if object then
			object:get_luaentity():init(player)
			object:set_yaw(rotation)

			player:set_attach(object, "", emotedef.eye_offset, minetest.facedir_to_dir(node.param2))

			emote.attached_to_node[player] = object
		end

	else
		player:set_pos(new_pos)
		player:set_eye_offset(emotedef.eye_offset, {x = 0, y = 0, z = 0})
	end

	player:set_look_horizontal(rotation)
end

function emote.attach_to_entity(player, emotestring, obj)
	-- not implemented yet.
end

function emote.detach(player)
	if emote.attached_to_node[player] then
		emote.attached_to_node[player]:detach()
	end
	-- check if attached?
	player:set_eye_offset(vector.new(), vector.new())
	emote.stop(player)
end

minetest.register_globalstep(function()
	for player in pairs(emote.emoting) do
		local ctrl = player:get_player_control()
		if ctrl and (ctrl.jump or ctrl.up or ctrl.down or ctrl.left or ctrl.right) then
			emote.stop(player)
		end
	end
end)