local http, env, storage
local C = minetest.get_color_escape_sequence

furrybot.commands.cry = furrybot.solo_roleplay_command("cries")
furrybot.commands.laugh = furrybot.solo_roleplay_command("laughs")
furrybot.commands.confused = furrybot.solo_roleplay_command("is confused")
furrybot.commands.smile = furrybot.solo_roleplay_command("smiles")
furrybot.commands.hug = furrybot.interactive_roleplay_command("hugs")
furrybot.commands.cuddle = furrybot.interactive_roleplay_command("cuddles")
furrybot.commands.kiss = furrybot.interactive_roleplay_command("kisses")
furrybot.commands.hit = furrybot.interactive_roleplay_command("hits")
furrybot.commands.slap = furrybot.interactive_roleplay_command("slaps")
furrybot.commands.beat = furrybot.interactive_roleplay_command("beats")
furrybot.commands.lick = furrybot.interactive_roleplay_command("licks")

furrybot.commands.marry = furrybot.request_command(function(name, target)
	if storage:contains(name .. ".partner", target) then
		furrybot.error_message(name, "You are already married to", storage:get_string(name .. ".partner"))
		return false
	elseif storage:contains(target .. ".partner", name) then
		furrybot.error_message(name, target .. " is already married to", storage:get_string(target .. ".partner"))
		return false
	else
		furrybot.ping_message(target, name .. " proposes to you. Type !accept to accept or !deny to deny.", furrybot.colors.system)
	end
end, function(name, target)
	storage:set_string(name .. ".partner", target)
	storage:set_string(target .. ".partner", name)
	furrybot.send("Congratulations, " .. furrybot.ping(name, furrybot.colors.roleplay) .. "&" .. furrybot.ping(target, furrybot.colors.roleplay) .. ", you are married. You may now kiss :).", furrybot.colors.roleplay)
end)
furrybot.commands.propose = furrybot.commands.marry
furrybot.unsafe_commands.marry = true
furrybot.unsafe_commands.propose = true

function furrybot.commands.divorce(name)
	if storage:contains(name .. ".partner") then
		local partner = storage:get_string(name .. ".partner")
		storage:set_string(name .. ".partner", "")
		storage:set_string(partner .. ".partner", "")
		furrybot.ping_message(name, "divorces from " .. partner .. " :(", furrybot.colors.roleplay)
	else
		furrybot.error_message(name, "You are not married")
	end
end
furrybot.unsafe_commands.divorce = true

function furrybot.commands.partner(name, target)
	target = target or name
	if storage:contains(target .. ".partner") then
		furrybot.ping_message(name, (target == name and "You are" or target .. " is") .. " married to " .. storage:get_string(target .. ".partner"), furrybot.colors.system)
	else
		furrybot.error_message(name, (target == name and "You are" or target .. " is") .. " not married")
	end
end
furrybot.commands.married = furrybot.commands.partner

return function(_http, _env, _storage)
	http, env, storage = _http, _env, _storage
end