TTS integration

code/__DEFINES/tts.dm

@@ -0,0 +1,11 @@
+///TTS preference is disbaled entirely, no sound will be played.
+#define TTS_SOUND_OFF "Disabled"
+///TTS preference is enabled, and will give full text-to-speech.
+#define TTS_SOUND_ENABLED "Enabled"
+///TTS preference is set to only play blips of a sound, rather than speech.
+#define TTS_SOUND_BLIPS "Blips Only"
+
+///TTS filter to activate start/stop radio clicks on speech.
+#define TTS_FILTER_RADIO "radio"
+///TTS filter to activate a silicon effect on speech.
+#define TTS_FILTER_SILICON "silicon"

code/__HELPERS/heap.dm

@@ -0,0 +1,80 @@
+//////////////////////
+//datum/heap object
+//////////////////////
+
+/datum/heap
+	var/list/L
+	var/cmp
+
+/datum/heap/New(compare)
+	L = new()
+	cmp = compare
+
+/datum/heap/Destroy(force)
+	for(var/i in L) // because this is before the list helpers are loaded
+		qdel(i)
+	L = null
+	return ..()
+
+/datum/heap/proc/is_empty()
+	return !length(L)
+
+//insert and place at its position a new node in the heap
+/datum/heap/proc/insert(A)
+
+	L.Add(A)
+	swim(length(L))
+
+//removes and returns the first element of the heap
+//(i.e the max or the min dependant on the comparison function)
+/datum/heap/proc/pop()
+	if(!length(L))
+		return 0
+	. = L[1]
+
+	L[1] = L[length(L)]
+	L.Cut(length(L))
+	if(length(L))
+		sink(1)
+
+//Get a node up to its right position in the heap
+/datum/heap/proc/swim(index)
+	var/parent = round(index * 0.5)
+
+	while(parent > 0 && (call(cmp)(L[index],L[parent]) > 0))
+		L.Swap(index,parent)
+		index = parent
+		parent = round(index * 0.5)
+
+//Get a node down to its right position in the heap
+/datum/heap/proc/sink(index)
+	var/g_child = get_greater_child(index)
+
+	while(g_child > 0 && (call(cmp)(L[index],L[g_child]) < 0))
+		L.Swap(index,g_child)
+		index = g_child
+		g_child = get_greater_child(index)
+
+//Returns the greater (relative to the comparison proc) of a node children
+//or 0 if there's no child
+/datum/heap/proc/get_greater_child(index)
+	if(index * 2 > length(L))
+		return 0
+
+	if(index * 2 + 1 > length(L))
+		return index * 2
+
+	if(call(cmp)(L[index * 2],L[index * 2 + 1]) < 0)
+		return index * 2 + 1
+	else
+		return index * 2
+
+//Replaces a given node so it verify the heap condition
+/datum/heap/proc/resort(A)
+	var/index = L.Find(A)
+
+	swim(index)
+	sink(index)
+
+/datum/heap/proc/List()
+	. = L.Copy()

code/__HELPERS/tts.dm

@@ -0,0 +1,4 @@
+/proc/tts_speech_filter(text)
+	// Only allow alphanumeric characters and whitespace
+	var/static/regex/bad_chars_regex = regex("\[^a-zA-Z0-9 ,?.!'&-]", "g")
+	return bad_chars_regex.Replace(text, " ")

code/controllers/configuration/entries/game_options.dm

@@ -22,6 +22,18 @@
 
 /datum/config_entry/flag/emojis
 
+/datum/config_entry/string/tts_http_url
+	protection = CONFIG_ENTRY_LOCKED
+
+/datum/config_entry/string/tts_http_token
+	protection = CONFIG_ENTRY_LOCKED|CONFIG_ENTRY_HIDDEN
+
+/datum/config_entry/number/tts_max_concurrent_requests
+	default = 4
+	min_val = 1
+
+/datum/config_entry/str_list/tts_voice_blacklist
+
 /datum/config_entry/string/alert_delta
 	config_entry_value = "Destruction of the station is imminent. All crew are instructed to obey all instructions given by heads of staff. Any violations of these orders can be punished by death. This is not a drill."