Polaris/code/modules/mob/living/say.dm

#define SAY_MINIMUM_PRESSURE 10
var/list/department_radio_keys = list(
	  ":r" = "right ear",	"#r" = "right ear",		".r" = "right ear",
	  ":l" = "left ear",	"#l" = "left ear",		".l" = "left ear",
	  ":i" = "intercom",	"#i" = "intercom",		".i" = "intercom",
	  ":h" = "department",	"#h" = "department",	".h" = "department",
	  ":c" = "Command",		"#c" = "Command",		".c" = "Command",
	  ":n" = "Science",		"#n" = "Science",		".n" = "Science",
	  ":m" = "Medical",		"#m" = "Medical",		".m" = "Medical",
	  ":e" = "Engineering", "#e" = "Engineering",	".e" = "Engineering",
	  ":s" = "Security",	"#s" = "Security",		".s" = "Security",
	  ":w" = "whisper",		"#w" = "whisper",		".w" = "whisper",
	  ":b" = "binary",		"#b" = "binary",		".b" = "binary",
	  ":a" = "alientalk",	"#a" = "alientalk",		".a" = "alientalk",
	  ":t" = "Syndicate",	"#t" = "Syndicate",		".t" = "Syndicate",
	  ":u" = "Supply",		"#u" = "Supply",		".u" = "Supply",
	  ":g" = "changeling",	"#g" = "changeling",	".g" = "changeling",

	  ":R" = "right ear",	"#R" = "right ear",		".R" = "right ear",
	  ":L" = "left ear",	"#L" = "left ear",		".L" = "left ear",
	  ":I" = "intercom",	"#I" = "intercom",		".I" = "intercom",
	  ":H" = "department",	"#H" = "department",	".H" = "department",
	  ":C" = "Command",		"#C" = "Command",		".C" = "Command",
	  ":N" = "Science",		"#N" = "Science",		".N" = "Science",
	  ":M" = "Medical",		"#M" = "Medical",		".M" = "Medical",
	  ":E" = "Engineering",	"#E" = "Engineering",	".E" = "Engineering",
	  ":S" = "Security",	"#S" = "Security",		".S" = "Security",
	  ":W" = "whisper",		"#W" = "whisper",		".W" = "whisper",
	  ":B" = "binary",		"#B" = "binary",		".B" = "binary",
	  ":A" = "alientalk",	"#A" = "alientalk",		".A" = "alientalk",
	  ":T" = "Syndicate",	"#T" = "Syndicate",		".T" = "Syndicate",
	  ":U" = "Supply",		"#U" = "Supply",		".U" = "Supply",
	  ":G" = "changeling",	"#G" = "changeling",	".G" = "changeling",

	  //kinda localization -- rastaf0
	  //same keys as above, but on russian keyboard layout. This file uses cp1251 as encoding.
	  ":<3A>" = "right ear",	"#<23>" = "right ear",		".<2E>" = "right ear",
	  ":<3A>" = "left ear",	"#<23>" = "left ear",		".<2E>" = "left ear",
	  ":<3A>" = "intercom",	"#<23>" = "intercom",		".<2E>" = "intercom",
	  ":<3A>" = "department",	"#<23>" = "department",	".<2E>" = "department",
	  ":<3A>" = "Command",		"#<23>" = "Command",		".<2E>" = "Command",
	  ":<3A>" = "Science",		"#<23>" = "Science",		".<2E>" = "Science",
	  ":<3A>" = "Medical",		"#<23>" = "Medical",		".<2E>" = "Medical",
	  ":<3A>" = "Engineering",	"#<23>" = "Engineering",	".<2E>" = "Engineering",
	  ":<3A>" = "Security",	"#<23>" = "Security",		".<2E>" = "Security",
	  ":<3A>" = "whisper",		"#<23>" = "whisper",		".<2E>" = "whisper",
	  ":<3A>" = "binary",		"#<23>" = "binary",		".<2E>" = "binary",
	  ":<3A>" = "alientalk",	"#<23>" = "alientalk",		".<2E>" = "alientalk",
	  ":<3A>" = "Syndicate",	"#<23>" = "Syndicate",		".<2E>" = "Syndicate",
	  ":<3A>" = "Supply",		"#<23>" = "Supply",		".<2E>" = "Supply",
	  ":<3A>" = "changeling",	"#<23>" = "changeling",	".<2E>" = "changeling"
)

/mob/living/proc/binarycheck()
	if (istype(src, /mob/living/silicon/pai))
		return
	if (issilicon(src))
		return 1
	if (!ishuman(src))
		return
	var/mob/living/carbon/human/H = src
	if (H.l_ear || H.r_ear)
		var/obj/item/device/radio/headset/dongle
		if(istype(H.l_ear,/obj/item/device/radio/headset))
			dongle = H.l_ear
		else
			dongle = H.r_ear
		if(!istype(dongle)) return
		if(dongle.translate_binary) return 1

/mob/living/proc/hivecheck()
	if (isalien(src)) return 1
	if (!ishuman(src)) return
	var/mob/living/carbon/human/H = src
	if (H.l_ear || H.r_ear)
		var/obj/item/device/radio/headset/dongle
		if(istype(H.l_ear,/obj/item/device/radio/headset))
			dongle = H.l_ear
		else
			dongle = H.r_ear
		if(!istype(dongle)) return
		if(dongle.translate_binary) return 1

/mob/living/say(var/message)

	/*
		Formatting and sanitizing.
	*/

	message = trim(copytext(sanitize(message), 1, MAX_MESSAGE_LEN))

	/*
		Sanity checking and speech failure.
	*/

	if (!message)
		return

	if(silent)
		return

	if (stat == 2) // Dead.
		return say_dead(message)
	else if (stat) // Unconcious.
		return

	if (src.client)
		if(client.prefs.muted & MUTE_IC)
			src << "\red You cannot speak in IC (muted)."
			return
		if (src.client.handle_spam_prevention(message,MUTE_IC))
			return

	// Mute disability
	if (sdisabilities & MUTE)
		return

	// Muzzled.
	if (istype(wear_mask, /obj/item/clothing/mask/muzzle))
		return

	// Emotes.
	if (copytext(message, 1, 2) == "*" && !stat)
		return emote(copytext(message, 2))

	/*
		Identity hiding.
	*/
	var/alt_name = ""
	if (istype(src, /mob/living/carbon/human) && name != GetVoice())
		var/mob/living/carbon/human/H = src
		alt_name = " (as [H.get_id_name("Unknown")])"

	/*
		Now we get into the real meat of the say processing. Determining the message mode.
	*/

	var/italics = 0
	var/message_range = null
	var/message_mode = null
	var/datum/language/speaking = null //For use if a specific language is being spoken.

	var/braindam = getBrainLoss()
	if (braindam >= 60)
		if(prob(braindam/4))
			message = stutter(message)
		if(prob(braindam))
			message = uppertext(message)

	// General public key. Special message handling
	else if (copytext(message, 1, 2) == ";" || prob(braindam/2))
		if (ishuman(src))
			message_mode = "headset"
		else if(ispAI(src) || isrobot(src))
			message_mode = "pAI"
		message = copytext(message, 2)
	// Begin checking for either a message mode or a language to speak.
	else if (length(message) >= 2)
		var/channel_prefix = copytext(message, 1, 3)

		//Check if the person is speaking a language that they know.
		if(languages.len)
			for(var/datum/language/L in languages)
				if(lowertext(channel_prefix) == ":[L.key]")
					speaking = L
					break
		message_mode = department_radio_keys[channel_prefix]
		if (message_mode || speaking || copytext(message,1,2) == ":")
			message = trim(copytext(message, 3))
			if (!(istype(src,/mob/living/carbon/human) || istype(src,/mob/living/carbon/monkey) || istype(src, /mob/living/simple_animal/parrot) || isrobot(src) && (message_mode=="department" || (message_mode in radiochannels))))
				message_mode = null //only humans can use headsets

	if(src.stunned > 2 || (traumatic_shock > 61 && prob(50)))
		message_mode = null //Stunned people shouldn't be able to physically turn on their radio/hold down the button to speak into it

	message = capitalize(message)

	if (!message)
		return

	if (stuttering)
		message = stutter(message)

	var/list/obj/item/used_radios = new
	var/is_speaking_radio = 0

	switch (message_mode)
		if ("headset")
			if (src:l_ear && istype(src:l_ear,/obj/item/device/radio))
				src:l_ear.talk_into(src, message)
				used_radios += src:l_ear
				is_speaking_radio = 1
			else if (src:r_ear)
				src:r_ear.talk_into(src, message)
				used_radios += src:r_ear
				is_speaking_radio = 1

			message_range = 1
			italics = 1

		if ("right ear")
			if (src:r_ear)
				src:r_ear.talk_into(src, message)
				used_radios += src:r_ear
				is_speaking_radio = 1

			message_range = 1
			italics = 1

		if ("left ear")
			if (src:l_ear)
				src:l_ear.talk_into(src, message)
				used_radios += src:l_ear
				is_speaking_radio = 1

			message_range = 1
			italics = 1

		if ("intercom")
			for (var/obj/item/device/radio/intercom/I in view(1, null))
				I.talk_into(src, message)
				used_radios += I
				is_speaking_radio = 1

			message_range = 1
			italics = 1

		//I see no reason to restrict such way of whispering
		if ("whisper")
			whisper(message)
			return

		if ("binary")
			if(robot_talk_understand || binarycheck())
			//message = trim(copytext(sanitize(message), 1, MAX_MESSAGE_LEN)) //seems redundant
				robot_talk(message)
			return

		if ("alientalk")
			if(alien_talk_understand || hivecheck())
			//message = trim(copytext(sanitize(message), 1, MAX_MESSAGE_LEN)) //seems redundant
				alien_talk(message)
			return

		if ("department")
			if(istype(src, /mob/living/carbon))
				if (src:l_ear && istype(src:l_ear,/obj/item/device/radio))
					src:l_ear.talk_into(src, message, message_mode)
					used_radios += src:l_ear
					is_speaking_radio = 1
				if (src:r_ear)
					src:r_ear.talk_into(src, message, message_mode)
					used_radios += src:r_ear
					is_speaking_radio = 1
			else if(istype(src, /mob/living/silicon/robot))
				if (src:radio)
					src:radio.talk_into(src, message, message_mode)
					used_radios += src:radio
			message_range = 1
			italics = 1

		if ("pAI")
			if (src:radio)
				src:radio.talk_into(src, message)
				used_radios += src:radio
			message_range = 1
			italics = 1

		if("changeling")
			if(mind && mind.changeling)
				for(var/mob/Changeling in mob_list)
					if((Changeling.mind && Changeling.mind.changeling) || istype(Changeling, /mob/dead/observer))
						Changeling << "<i><font color=#800080><b>[mind.changeling.changelingID]:</b> [message]</font></i>"
				return
////SPECIAL HEADSETS START
		else
			//world << "SPECIAL HEADSETS"
			if (message_mode in radiochannels)
				if(isrobot(src))//Seperates robots to prevent runtimes from the ear stuff
					var/mob/living/silicon/robot/R = src
					if(R.radio)//Sanityyyy
						R.radio.talk_into(src, message, message_mode)
						used_radios += R.radio
				else
					if (src:l_ear && istype(src:l_ear,/obj/item/device/radio))
						src:l_ear.talk_into(src, message, message_mode)
						used_radios += src:l_ear
					else if (src:r_ear)
						src:r_ear.talk_into(src, message, message_mode)
						used_radios += src:r_ear
				message_range = 1
				italics = 1
/////SPECIAL HEADSETS END

	var/datum/gas_mixture/environment = loc.return_air()
	if(environment)
		var/pressure = environment.return_pressure()
		if (pressure < SAY_MINIMUM_PRESSURE)	//in space no one can hear you scream
			italics = 1
			message_range = 1

	var/list/listening

	listening = get_mobs_in_view(message_range, src)
	for(var/mob/M in player_list)
		if (!M.client)
			continue //skip monkeys and leavers
		if (istype(M, /mob/new_player))
			continue
		if(M.stat == DEAD && (M.client.prefs.toggles & CHAT_GHOSTEARS) && src.client) // src.client is so that ghosts don't have to listen to mice
			listening|=M

	var/turf/T = get_turf(src)
	var/list/W = hear(message_range, T)

	for (var/obj/O in ((W | contents)-used_radios))
		W |= O

	for (var/mob/M in W)
		W |= M.contents

	for (var/atom/A in W)
		if(istype(A, /mob/living/simple_animal/parrot)) //Parrot speech mimickry
			if(A == src)
				continue //Dont imitate ourselves

			var/mob/living/simple_animal/parrot/P = A
			if(P.speech_buffer.len >= 10)
				P.speech_buffer.Remove(pick(P.speech_buffer))
			P.speech_buffer.Add(message)

		if(istype(A, /obj/)) //radio in pocket could work, radio in backpack wouldn't --rastaf0
			var/obj/O = A
			spawn (0)
				if(O && !istype(O.loc, /obj/item/weapon/storage))
					O.hear_talk(src, message)


/*			Commented out as replaced by code above from BS12
	for (var/obj/O in ((V | contents)-used_radios)) //radio in pocket could work, radio in backpack wouldn't --rastaf0
		spawn (0)
			if (O)
				O.hear_talk(src, message)
*/

/*	if(isbrain(src))//For brains to properly talk if they are in an MMI..or in a brain. Could be extended to other mobs I guess.
		for(var/obj/O in loc)//Kinda ugly but whatever.
			if(O)
				spawn(0)
					O.hear_talk(src, message)
*/


	var/list/heard_a = list() // understood us
	var/list/heard_b = list() // didn't understand us

	for (var/M in listening)
		if(hascall(M,"say_understands"))
			if (M:say_understands(src,speaking))
				heard_a += M
			else
				heard_b += M
		else
			heard_a += M

	var/speech_bubble_test = say_test(message)
	var/image/speech_bubble = image('icons/mob/talk.dmi',src,"h[speech_bubble_test]")
	spawn(30) del(speech_bubble)

	for(var/mob/M in hearers(5, src))
		if(M != src && is_speaking_radio)
			M:show_message("<span class='notice'>[src] talks into [used_radios.len ? used_radios[1] : "radio"]</span>")

	var/rendered = null
	if (length(heard_a))
		var/message_a = say_quote(message,speaking)

		if (italics)
			message_a = "<i>[message_a]</i>"

		rendered = "<span class='game say'><span class='name'>[GetVoice()]</span>[alt_name] <span class='message'>[message_a]</span></span>"
		for (var/M in heard_a)
			if(hascall(M,"show_message"))
				var/deaf_message = ""
				var/deaf_type = 1
				if(M != src)
					deaf_message = "<span class='name'>[name]</span>[alt_name] talks but you cannot hear them."
				else
					deaf_message = "<span class='notice'>You cannot hear yourself!</span>"
					deaf_type = 2 // Since you should be able to hear yourself without looking
				M:show_message(rendered, 2, deaf_message, deaf_type)
				M << speech_bubble

	if (length(heard_b))

		var/message_b
		message_b = stars(message)
		message_b = say_quote(message_b,speaking)

		if (italics)
			message_b = "<i>[message_b]</i>"

		rendered = "<span class='game say'><span class='name'>[name]</span>[alt_name] <span class='message'>[message_b]</span></span>" //Voice_name isn't too useful. You'd be able to tell who was talking presumably.


		for (var/M in heard_b)
			if(hascall(M,"show_message"))
				M:show_message(rendered, 2)
				M << speech_bubble

			/*
			if(M.client)

				if(!M.client.bubbles || M == src)
					var/image/I = image('icons/effects/speechbubble.dmi', B, "override")
					I.override = 1
					M << I
			*/ /*

		flick("[presay]say", B)

		if(istype(loc, /turf))
			B.loc = loc
		else
			B.loc = loc.loc

		spawn()
			sleep(11)
			del(B)
		*/

	//talking items
	for(var/obj/item/weapon/O in view(3,src))
		if(O.listening_to_players)
			O.catchMessage(message, src)

	log_say("[name]/[key] : [message]")

/obj/effect/speech_bubble
	var/mob/parent

/mob/living/proc/GetVoice()
	return name