Deadchat Plays SS13: Ghost Control of Mobs (#20600)

* Add dchat control * adds human support, cleans other things up * Bit of cleanup * actually use the item * minor proc ref mistake, laugh at this user * evil tg strings * Renames defines, adds vv menu item for it * Improve anarchy message formatting * don't go to_chatting tesla energy balls * aa review * Minor cleanups, replace some emotes * Addressing some reviews * Incorporate some checks for deadchat mutes/prefs
2026-08-22 19:47:22 +01:00 · 2023-05-21 12:33:11 -05:00
parent 73510a18ab
commit d8ddda378b
13 changed files with 511 additions and 1 deletions
@@ -0,0 +1,251 @@
+
+/**
+ * Deadchat Plays Things - The Componenting
+ *
+ * Allows deadchat to control stuff and things by typing commands into chat.
+ * These commands will then trigger callbacks to execute procs!
+ */
+/datum/component/deadchat_control
+	dupe_mode = COMPONENT_DUPE_UNIQUE
+
+	/// The id for the DEADCHAT_DEMOCRACY_MODE looping vote timer.
+	var/timerid
+	/// Assoc list of key-chat command string, value-callback pairs. list("right" = CALLBACK(GLOBAL_PROC, GLOBAL_PROC_REF(_step), src, EAST))
+	var/list/datum/callback/inputs = list()
+	/// Assoc list of ckey:value pairings. In DEADCHAT_DEMOCRACY_MODE, value is the player's vote. In DEADCHAT_ANARCHY_MODE, value is world.time when their cooldown expires.
+	var/list/ckey_to_cooldown = list()
+	/// List of everything orbitting this component's parent.
+	var/orbiters = list()
+	/// A bitfield containing the mode which this component uses (DEADCHAT_DEMOCRACY_MODE or DEADCHAT_ANARCHY_MODE) and other settings)
+	var/deadchat_mode = DEADCHAT_DEMOCRACY_MODE
+	/// In DEADCHAT_DEMOCRACY_MODE, this is how long players have to vote on an input. In DEADCHAT_ANARCHY_MODE, this is how long between inputs for each unique player.
+	var/input_cooldown
+	///Set to true if a point of interest was created for an object, and needs to be removed if deadchat control is removed. Needed for preventing objects from having two points of interest.
+	var/generated_point_of_interest = FALSE
+	/// Callback invoked when this component is Destroy()ed to allow the parent to return to a non-deadchat controlled state.
+	var/datum/callback/on_removal
+
+/datum/component/deadchat_control/Initialize(_deadchat_mode, _inputs, _input_cooldown = 12 SECONDS, _on_removal)
+	if(!isatom(parent))
+		return COMPONENT_INCOMPATIBLE
+	RegisterSignal(parent, COMSIG_ATOM_ORBIT_BEGIN, PROC_REF(orbit_begin))
+	RegisterSignal(parent, COMSIG_ATOM_ORBIT_STOP, PROC_REF(orbit_stop))
+	RegisterSignal(parent, COMSIG_PARENT_EXAMINE, PROC_REF(on_examine))
+	deadchat_mode = _deadchat_mode
+	inputs = _inputs
+	input_cooldown = _input_cooldown
+	on_removal = _on_removal
+	if(deadchat_mode & DEADCHAT_DEMOCRACY_MODE)
+		if(deadchat_mode & DEADCHAT_ANARCHY_MODE) // Choose one, please.
+			stack_trace("deadchat_control component added to [parent.type] with both democracy and anarchy modes enabled.")
+		timerid = addtimer(CALLBACK(src, PROC_REF(democracy_loop)), input_cooldown, TIMER_STOPPABLE | TIMER_LOOP)
+
+	var/list/input_names = list()
+	for(var/item in inputs)
+		input_names |= item
+	notify_ghosts("[parent] is now deadchat controllable! Possible commands are: [english_list(input_names)]", source = parent, action = NOTIFY_FOLLOW, title="Deadchat control!")
+	if(!ismob(parent) && !(parent in GLOB.poi_list))
+		GLOB.poi_list |= parent
+		generated_point_of_interest = TRUE
+	message_admins("[parent] has been given deadchat control in [deadchat_mode == DEADCHAT_ANARCHY_MODE ? "anarchy" : "democracy"] mode with a cooldown of [input_cooldown SECONDS] second\s.")
+
+/datum/component/deadchat_control/Destroy(force, silent)
+	var/message = "<span class='deadsay italics bold'>[parent] is no longer controllable.</span>"
+	for(var/mob/dead/observer/M in orbiters)
+		to_chat(M, message)
+	on_removal?.Invoke()
+	inputs = null
+	orbiters = null
+	ckey_to_cooldown = null
+	if(generated_point_of_interest)
+		GLOB.poi_list -= parent
+	return ..()
+
+/datum/component/deadchat_control/proc/deadchat_react(mob/source, message)
+	SIGNAL_HANDLER  // COMSIG_MOB_DEADSAY
+
+	message = lowertext(message)
+
+	if(!inputs[message])
+		return
+
+	if(deadchat_mode & DEADCHAT_ANARCHY_MODE)
+		if(!source || !source.ckey)
+			return
+		var/cooldown = ckey_to_cooldown[source.ckey] - world.time
+		if(cooldown > 0)
+			to_chat(source, "<span class='warning'>Your deadchat control inputs are still on cooldown for another [CEILING(cooldown * 0.1, 1)] second\s.</span>")
+			return MOB_DEADSAY_SIGNAL_INTERCEPT
+		ckey_to_cooldown[source.ckey] = world.time + input_cooldown
+		addtimer(CALLBACK(src, PROC_REF(end_cooldown), source.ckey), input_cooldown)
+		inputs[message].Invoke()
+		to_chat(source, "<span class='notice'>\"[message]\" input accepted. You are now on cooldown for [input_cooldown * 0.1] second\s.</span>")
+		return MOB_DEADSAY_SIGNAL_INTERCEPT
+
+	if(deadchat_mode & DEADCHAT_DEMOCRACY_MODE)
+		ckey_to_cooldown[source.ckey] = message
+		to_chat(source, "<span class='notice'>You have voted for \"[message]\".</span>")
+		return MOB_DEADSAY_SIGNAL_INTERCEPT
+
+/datum/component/deadchat_control/proc/democracy_loop()
+	if(QDELETED(parent) || !(deadchat_mode & DEADCHAT_DEMOCRACY_MODE))
+		deltimer(timerid)
+		return
+	var/result = count_democracy_votes()
+	if(!isnull(result))
+		inputs[result].Invoke()
+		if(!(deadchat_mode & MUTE_DEADCHAT_DEMOCRACY_MESSAGES))
+			var/message = "<span class='deadsay italics bold'>[parent] has done action [result]!<br>New vote started. It will end in [input_cooldown * 0.1] second\s.</span>"
+			for(var/mob/dead/observer/M in orbiters)
+				to_chat(M, message)
+	else if(!(deadchat_mode & MUTE_DEADCHAT_DEMOCRACY_MESSAGES))
+		var/message = "<span class='deadsay italics bold'>No votes were cast this cycle.</span>"
+		for(var/mob/dead/observer/M in orbiters)
+			to_chat(M, message)
+
+/datum/component/deadchat_control/proc/count_democracy_votes()
+	if(!length(ckey_to_cooldown))
+		return
+	var/list/votes = list()
+	for(var/command in inputs)
+		votes["[command]"] = 0
+	for(var/vote in ckey_to_cooldown)
+		votes[ckey_to_cooldown[vote]]++
+		ckey_to_cooldown.Remove(vote)
+
+	// Solve which had most votes.
+	var/prev_value = 0
+	var/result
+	for(var/vote in votes)
+		if(votes[vote] > prev_value)
+			prev_value = votes[vote]
+			result = vote
+
+	if(result in inputs)
+		return result
+
+/datum/component/deadchat_control/vv_edit_var(var_name, var_value)
+	. = ..()
+	if(!.)
+		return
+	if(var_name != NAMEOF(src, deadchat_mode))
+		return
+	ckey_to_cooldown = list()
+	if(var_value == DEADCHAT_DEMOCRACY_MODE)
+		timerid = addtimer(CALLBACK(src, PROC_REF(democracy_loop)), input_cooldown, TIMER_STOPPABLE | TIMER_LOOP)
+	else
+		deltimer(timerid)
+
+/datum/component/deadchat_control/proc/orbit_begin(atom/source, atom/orbiter)
+	SIGNAL_HANDLER  // COMSIG_ATOM_ORBIT_BEGIN
+
+	if(isobserver(orbiter))
+		var/mob/dead/observer/O = orbiter
+		if(O.client && !(O.client.prefs.toggles & PREFTOGGLE_CHAT_DEAD))
+			to_chat(O, "<span class='deadsay'>You have deadchat muted, and as such will not receive messages related to, nor be able to participate in, controlling this object.</span>")
+			to_chat(O, "<span class='notice'>If you would like to participate, unmute deadchat and follow this object again.</span>")
+			return
+
+	RegisterSignal(orbiter, COMSIG_MOB_DEADSAY, PROC_REF(deadchat_react))
+	RegisterSignal(orbiter, COMSIG_MOB_AUTOMUTE_CHECK, PROC_REF(waive_automute))
+	orbiters |= orbiter
+
+
+/datum/component/deadchat_control/proc/orbit_stop(atom/source, atom/orbiter)
+	SIGNAL_HANDLER  // COMSIG_ATOM_ORBIT_STOP
+
+	if(orbiter in orbiters)
+		UnregisterSignal(orbiter, list(
+			COMSIG_MOB_DEADSAY,
+			COMSIG_MOB_AUTOMUTE_CHECK,
+		))
+		orbiters -= orbiter
+
+/**
+ * Prevents messages used to control the parent from counting towards the automute threshold for repeated identical messages.
+ *
+ * Arguments:
+ * - [speaker][/client]: The mob that is trying to speak.
+ * - [client][/client]: The client that is trying to speak.
+ * - message: The message that the speaker is trying to say.
+ * - mute_type: Which type of mute the message counts towards.
+ */
+/datum/component/deadchat_control/proc/waive_automute(mob/speaker, client/client, message, mute_type)
+	SIGNAL_HANDLER  // COMSIG_MOB_AUTOMUTE_CHECK
+	if(mute_type == MUTE_DEADCHAT && inputs[lowertext(message)])
+		return WAIVE_AUTOMUTE_CHECK
+	return NONE
+
+
+/// Informs any examiners to the inputs available as part of deadchat control, as well as the current operating mode and cooldowns.
+/datum/component/deadchat_control/proc/on_examine(atom/A, mob/user, list/examine_list)
+	SIGNAL_HANDLER  // COMSIG_PARENT_EXAMINE
+
+	if(!isobserver(user))
+		return
+
+	examine_list += "<span class='notice'>[A.p_theyre(TRUE)] currently under deadchat control using the [(deadchat_mode & DEADCHAT_DEMOCRACY_MODE) ? "democracy" : "anarchy"] ruleset!</span>"
+
+	if(user.client && !(user.client.prefs.toggles & PREFTOGGLE_CHAT_DEAD))
+		examine_list += "<span class='deadsay'>As you have deadchat disabled, you will not see vote messages, nor be able to participate in voting.</span>"
+		return
+
+	if(deadchat_mode & DEADCHAT_DEMOCRACY_MODE)
+		examine_list += "<span class='notice'>Type a command into chat to vote on an action. This happens once every [input_cooldown * 0.1] second\s.</span>"
+	else if(deadchat_mode & DEADCHAT_ANARCHY_MODE)
+		examine_list += "<span class='notice'>Type a command into chat to perform. You may do this once every [input_cooldown * 0.1] second\s.</span>"
+
+	var/extended_examine = "<span class='notice'>Command list:"
+
+	for(var/possible_input in inputs)
+		extended_examine += " [possible_input]"
+
+	extended_examine += ".</span>"
+
+	examine_list += extended_examine
+
+/// Removes the ghost from the ckey_to_cooldown list and lets them know they are free to submit a command for the parent again.
+/datum/component/deadchat_control/proc/end_cooldown(ghost_ckey)
+	ckey_to_cooldown -= ghost_ckey
+	var/mob/ghost = get_mob_by_ckey(ghost_ckey)
+	if(!ghost || isliving(ghost))
+		return
+	to_chat(ghost, "<span class='green'>Your deadchat control inputs for [parent] ([ghost_follow_link(parent, ghost)]) are no longer on cooldown.</span>")
+
+/// Dummy to call since we can't proc reference builtins
+/datum/component/deadchat_control/proc/_step(ref, dir)
+	step(ref, dir)
+
+/**
+ * Deadchat Moves Things
+ *
+ * A special variant of the deadchat_control component that comes pre-baked with all the hottest inputs for a spicy
+ * singularity or vomit goose.
+ */
+/datum/component/deadchat_control/cardinal_movement/Initialize(_deadchat_mode, _inputs, _input_cooldown, _on_removal)
+	if(!ismovable(parent))
+		return COMPONENT_INCOMPATIBLE
+
+	_inputs["up"] = CALLBACK(src, PROC_REF(_step), parent, NORTH)
+	_inputs["down"] = CALLBACK(src, PROC_REF(_step), parent, SOUTH)
+	_inputs["left"] = CALLBACK(src, PROC_REF(_step), parent, WEST)
+	_inputs["right"] = CALLBACK(src, PROC_REF(_step), parent, EAST)
+
+	return ..()
+
+/**
+ * Deadchat Moves Things
+ *
+ * A special variant of the deadchat_control component that comes pre-baked with all the hottest inputs for spicy
+ * immovable rod.
+ */
+/datum/component/deadchat_control/immovable_rod/Initialize(_deadchat_mode, _inputs, _input_cooldown, _on_removal)
+	if(!istype(parent, /obj/effect/immovablerod))
+		return COMPONENT_INCOMPATIBLE
+
+	_inputs["up"] = CALLBACK(parent, TYPE_PROC_REF(/obj/effect/immovablerod, walk_in_direction), NORTH)
+	_inputs["down"] = CALLBACK(parent, TYPE_PROC_REF(/obj/effect/immovablerod, walk_in_direction), SOUTH)
+	_inputs["left"] = CALLBACK(parent, TYPE_PROC_REF(/obj/effect/immovablerod, walk_in_direction), WEST)
+	_inputs["right"] = CALLBACK(parent, TYPE_PROC_REF(/obj/effect/immovablerod, walk_in_direction), EAST)
+
+	return ..()
@@ -1236,6 +1236,63 @@
 		var/datum/ui_module/colour_matrix_tester/CMT = new(target=target)
 		CMT.ui_interact(usr)

+	if(href_list["grantdeadchatcontrol"])
+		if(!check_rights(R_EVENT))
+			return
+
+		var/atom/movable/A = locateUID(href_list["grantdeadchatcontrol"])
+		if(!istype(A))
+			return
+
+		if(!GLOB.dsay_enabled)
+			// TODO verify what happens when deadchat is muted
+			to_chat(usr, "<span class='warning'>Deadchat is globally muted, un-mute deadchat before enabling this.</span>")
+			return
+
+		if(A.GetComponent(/datum/component/deadchat_control))
+			to_chat(usr, "<span class='warning'>[A] is already under deadchat control!</span>")
+			return
+
+		var/control_mode = input(usr, "Please select the control mode","Deadchat Control", null) as null|anything in list("democracy", "anarchy")
+
+		var/selected_mode
+		switch(control_mode)
+			if("democracy")
+				selected_mode = DEADCHAT_DEMOCRACY_MODE
+			if("anarchy")
+				selected_mode = DEADCHAT_ANARCHY_MODE
+			else
+				return
+
+		var/cooldown = input(usr, "Please enter a cooldown time in seconds. For democracy, it's the time between actions (must be greater than zero). For anarchy, it's the time between each user's actions, or -1 for no cooldown.", "Cooldown", null) as null|num
+		if(isnull(cooldown) || (cooldown == -1 && selected_mode == DEADCHAT_DEMOCRACY_MODE))
+			return
+		if(cooldown < 0 && selected_mode == DEADCHAT_DEMOCRACY_MODE)
+			to_chat(usr, "<span class='warning'>The cooldown for democracy mode must be greater than zero.</span>")
+			return
+		if(cooldown == -1)
+			cooldown = 0
+		else
+			cooldown = cooldown SECONDS
+
+		A.deadchat_plays(selected_mode, cooldown)
+		message_admins("[key_name_admin(usr)] provided deadchat control to [A].")
+
+	if(href_list["removedeadchatcontrol"])
+		if(!check_rights(R_EVENT))
+			return
+
+		var/atom/movable/A = locateUID(href_list["removedeadchatcontrol"])
+		if(!istype(A))
+			return
+
+		if(!A.GetComponent(/datum/component/deadchat_control))
+			to_chat(usr, "<span class='warning'>[A] is not currently under deadchat control!</span>")
+			return
+
+		A.stop_deadchat_plays()
+		message_admins("[key_name_admin(usr)] removed deadchat control from [A].")
+
 /client/proc/view_var_Topic_list(href, href_list, hsrc)
 	if(href_list["VarsList"])
 		debug_variables(locate(href_list["VarsList"]))