add a way for admins to allow objects to emote (#7188)

## About The Pull Request
in terms of implementation this is just a crude edit of atom_say because
i am not taking on refactoring say code to be unified for this

if you have R_FUN you get access to atom emote on the right click menu

using it shows this menu

![image](https://github.com/user-attachments/assets/462c2229-0842-4630-92ac-eb9c4ad27712)

audible shows to people who can hear it
visible shows to people who can see it
all shows to everyone within range regardless

## Why It's Good For The Game
useful for EMs

## Changelog

🆑
add: add a way for admins to allow objects to emote
/🆑

code/modules/admin/admin_verbs.dm

@@ -141,7 +141,8 @@ var/list/admin_verbs_fun = list(
 	/datum/admins/proc/call_supply_drop,
 	/datum/admins/proc/call_drop_pod,
 	/client/proc/smite,
-	/client/proc/admin_lightning_strike
+	/client/proc/admin_lightning_strike,
+	/proc/atom_emote,
 	)
 
 var/list/admin_verbs_spawn = list(
@@ -341,7 +342,8 @@ var/list/admin_verbs_hideable = list(
 	/client/proc/roll_dices,
 	/proc/possess,
 	/proc/release,
-	/datum/admins/proc/set_tcrystals
+	/datum/admins/proc/set_tcrystals,
+	/proc/atom_emote,
 	)
 var/list/admin_verbs_mod = list(
 	/client/proc/cmd_admin_pm_context,	//right-click adminPM interface,

code/modules/admin/verbs/atom_emote.dm

@@ -0,0 +1,22 @@
+/proc/atom_emote(atom/A as atom in world)
+	set name = "Atom Emote"
+	set category = VERB_CATEGORY_OBJECT
+
+	var/message_type_input = tgui_input_list(usr, "Choose Message Type", "Message Type", list("Audible","Visible","All"))
+	if(!message_type_input)
+		return
+
+	var/message_input = tgui_input_text(usr, "Atom Emote")
+	if(!message_input)
+		return
+
+	var/message_type
+	switch(message_type_input)
+		if("Audible")
+			message_type = SAYCODE_TYPE_AUDIBLE
+		if("Visible")
+			message_type = SAYCODE_TYPE_VISIBLE
+		if("All")
+			message_type = SAYCODE_TYPE_ALWAYS
+
+	A.atom_emote(message_input, message_type)