_interaction.dm

/**********************************
*******Interactions code by HONKERTRON feat TestUnit********
**Contains a lot ammount of ERP and MEHANOYEBLYA**
**CREDIT TO ATMTA STATION FOR MOST OF THIS CODE, I ONLY MADE IT WORK IN /vg/ - Matt
** Rewritten 30/08/16 by Zuhayr, sry if I removed anything important.
***********************************/


// Rectum? Damn near killed 'em.
var/list/interactions

/proc/make_interactions(var/interaction)
	if(!interactions)
		interactions = list()
		for(var/itype in typesof(/datum/interaction)-/datum/interaction)
			var/datum/interaction/I = new itype()
			interactions[I.command] = I

/mob/proc/list_interaction_attributes()
	var/dat = ""
	if(has_hands())
		dat += "...have hands."
	if(has_mouth())
		if(dat != "")
			dat += "<br>"
		dat += "...have a mouth, which is [mouth_is_free() ? "uncovered" : "covered"]."
	return dat

/datum/interaction
	var/command = "interact"
	var/description = "Interact with them."
	var/simple_message
	var/simple_style = "notice"
	var/write_log_user
	var/write_log_target

	var/interaction_sound
	var/interaction_sound_age_pitch

	var/max_distance = 1
	var/require_user_mouth
	var/require_user_hands
	var/require_target_mouth
	var/require_target_hands
	var/needs_physical_contact

/datum/interaction/proc/evaluate_user(var/mob/user, var/silent=1)

	if(require_user_mouth)
		if(!user.has_mouth())
			if(!silent) user << "<span class = 'warning'>You don't have a mouth.</span>"
			return 0
		if(!user.mouth_is_free())
			if(!silent) user << "<span class = 'warning'>Your mouth is covered.</span>"
			return 0
	if(require_user_hands && !user.has_hands())
		if(!silent) user << "<span class = 'warning'>You don't have hands.</span>"
		return 0
	return 1

/datum/interaction/proc/evaluate_target(var/mob/user, var/mob/target, var/silent=1)

	if(require_target_mouth)
		if(!target.has_mouth())
			if(!silent) user << "<span class = 'warning'>They don't have a mouth.</span>"
			return 0
		if(!target.mouth_is_free())
			if(!silent) user << "<span class = 'warning'>Their mouth is covered.</span>"
			return 0
	if(require_target_hands && !target.has_hands())
		if(!silent) user << "<span class = 'warning'>They don't have hands.</span>"
		return 0
	return 1

/datum/interaction/proc/get_action_link_for(var/mob/user, var/mob/target)
	return "<a href='?src=\ref[src];action=1;action_user=\ref[user];action_target=\ref[target]'>[description]</a><br>"

/datum/interaction/Topic(href, href_list)
	if(..())
		return 1
	if(href_list["action"])
		do_action(locate(href_list["action_user"]), locate(href_list["action_target"]))
		return 1
	return 0

/datum/interaction/proc/do_action(var/mob/user, var/mob/target)
	if(get_dist(user, target) > max_distance)
		user << "<span class='warning'>They are too far away.</span>"
		return
	if(needs_physical_contact && !(user.Adjacent(target) && target.Adjacent(user)))
		user << "<span class='warning'>You cannot get to them.</span>"
		return
	if(!evaluate_user(user, silent=0))
		return
	if(!evaluate_target(user, target, silent=0))
		return

	display_interaction(user, target)

	post_interaction(user, target)

	if(write_log_user)
		user.attack_log += text("\[[time_stamp()]\] <font color='red'>[write_log_user] [target.name] ([target.ckey])</font>")
	if(write_log_target)
		target.attack_log += text("\[[time_stamp()]\] <font color='orange'>[write_log_target] [user.name] ([user.ckey])</font>")

/datum/interaction/proc/display_interaction(var/mob/user, var/mob/target)
	if(simple_message)
		var/use_message = replacetext(simple_message, "USER", "\the [user]")
		use_message = replacetext(use_message, "TARGET", "\the [target]")
		user.visible_message("<span class='[simple_style]'>[capitalize(use_message)]</span>")

/datum/interaction/proc/post_interaction(var/mob/user, var/mob/target)
	if(interaction_sound)
		if(interaction_sound_age_pitch)
			playsound(get_turf(user), interaction_sound, 50, 1, -1)//, pitch = user.get_age_pitch())
		else
			playsound(get_turf(user), interaction_sound, 50, 1, -1)
	return
/*
/atom/movable/attack_hand(mob/living/user)
	. = ..()
	if(can_buckle && buckled_mob)
		if(user_unbuckle_mob(user))
			return 1

/atom/movable/MouseDrop_T(mob/living/M, mob/living/user)
	. = ..()
	if(can_buckle && istype(M) && !buckled_mob)
		if(user_buckle_mob(M, user))
			return 1


/atom/movable/attack_hand(mob/living/user)
	. = ..()
	if(can_buckle && buckled_mob)
		if(user_unbuckle_mob(user))
			return 1

/atom/movable/MouseDrop_T(mob/living/M, mob/living/user)
	. = ..()
	if(can_buckle && istype(M) && !buckled_mob)
		if(user_buckle_mob(M, user))
			return 1
*/