cyberpresidentvanellope/CHOMPStation2
1
0
Fork 0
mirror of https://github.com/CHOMPStation2/CHOMPStation2.git synced 2025-12-12 03:02:54 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
ed79946ade0b901b30e7c57b0c429a0db86bf16f
CHOMPStation2/code/modules/mob/say_vr.dm
CHOMPStation2StaffMirrorBot ed79946ade [MIRROR] some istype to macros (#9802) 
Co-authored-by: Kashargul <144968721+Kashargul@users.noreply.github.com>
2025-01-05 23:01:49 +01:00

514 lines
20 KiB
Plaintext
Raw Blame History

//////////////////////////////////////////////////////
////////////////////SUBTLE COMMAND////////////////////
//////////////////////////////////////////////////////
/mob/verb/me_verb_subtle(message as message) //This would normally go in say.dm //CHOMPEdit
set name = "Subtle"
set desc = "Emote to nearby people (and your pred/prey)"
set hidden = 1
if(forced_psay)
pme(message)
return
message = sanitize_or_reflect(message,src) // Reflect too-long messages (within reason)
if(!message)
return
client?.stop_thinking()
if(use_me)
usr.emote_vr("me",4,message)
else
usr.emote_vr(message)
/mob/verb/me_verb_subtle_custom(message as message) // Literally same as above but with mode_selection set to true //CHOMPEdit
set name = "Subtle (Custom)"
set desc = "Emote to nearby people, with ability to choose which specific portion of people you wish to target."
if(forced_psay)
pme(message)
return
message = sanitize_or_reflect(message,src) // Reflect too-long messages (within reason)
if(!message)
return
client?.stop_thinking()
if(use_me)
usr.emote_vr("me",4,message,TRUE)
else
usr.emote_vr(message)
/mob/proc/custom_emote_vr(var/m_type=1,var/message = null,var/mode_selection = FALSE) //This would normally go in emote.dm
if(stat || !use_me && usr == src)
to_chat(src, "You are unable to emote.")
return
//VOREStation Addition Start
if(forced_psay)
pme(message)
return
//VOREStation Addition End
var/muzzled = is_muzzled()
if(m_type == 2 && muzzled) return
var/subtle_mode
if(autowhisper && autowhisper_mode && !mode_selection)
if(autowhisper_mode != "Psay/Pme") //This isn't actually a custom subtle mode, so we shouldn't use it!
subtle_mode = autowhisper_mode
if(mode_selection && !subtle_mode)
subtle_mode = tgui_input_list(src, "Select Custom Subtle Mode", "Custom Subtle Mode", list("Adjacent Turfs (Default)", "My Turf", "My Table", "Current Belly (Prey)", "Specific Belly (Pred)", "Specific Person"))
if(!subtle_mode)
if(mode_selection)
if(message)
to_chat(src, span_warning("Subtle mode not selected. Your input has not been sent, but preserved:") + " [message]")
return
else
subtle_mode = "Adjacent Turfs (Default)"
var/input
if(!message)
input = sanitize_or_reflect(tgui_input_text(src,"Choose an emote to display."), src)
else
input = message
if(input)
log_subtle(message,src)
message = span_emote_subtle(span_bold("[src]") + " " + span_italics("[input]"))
if(!(subtle_mode == "Adjacent Turfs (Default)"))
message = span_bold("(T) ") + message
else
return
if (message)
var/undisplayed_message = span_emote(span_bold("[src]") + " " + span_italics("does something too subtle for you to see."))
message = encode_html_emphasis(message)
var/list/vis
var/list/vis_mobs
var/list/vis_objs
switch(subtle_mode)
if("Adjacent Turfs (Default)")
vis = get_mobs_and_objs_in_view_fast(get_turf(src),1,2)
vis_mobs = vis["mobs"]
vis_objs = vis["objs"]
if("My Turf")
vis = get_mobs_and_objs_in_view_fast(get_turf(src),0,2)
vis_mobs = vis["mobs"]
vis_objs = vis["objs"]
if("My Table")
vis = get_mobs_and_objs_in_view_fast(get_turf(src),7,2)
vis_mobs = vis["mobs"]
vis_objs = vis["objs"]
var/list/tablelist = list()
var/list/newmoblist = list()
var/list/newobjlist = list()
for(var/obj/structure/table/T in range(src, 1))
if(istype(T) && !(T in tablelist) && !istype(T, /obj/structure/table/rack) && !istype(T, /obj/structure/table/bench))
tablelist |= T.get_all_connected_tables()
if(!(tablelist.len))
to_chat(src, span_warning("No nearby tables detected. Your input has not been sent, but preserved:") + " [input]")
return
for(var/obj/structure/table/T in tablelist)
for(var/mob/M in vis_mobs)
var/dist = get_dist(T, M)
if(dist >= 0 && dist <= 1)
newmoblist |= M
for(var/obj/O in vis_objs)
var/dist = get_dist(T, O)
if(dist >= 0 && dist <= 1)
newobjlist |= O
vis_mobs = newmoblist
vis_objs = newobjlist
if("Current Belly (Prey)")
var/obj/belly/B = get_belly(src)
if(!istype(B))
to_chat(src, span_warning("You are currently not in the belly. Your input has not been sent, but preserved:") + " [input]")
return
vis = get_mobs_and_objs_in_view_fast(get_turf(src),0,2)
vis_mobs = vis["mobs"]
vis_objs = vis["objs"]
for(var/mob/M in vis_mobs) // Clean out everyone NOT in our specific belly
if(M == B.owner)
continue
var/obj/belly/BB = get_belly(M)
if(!(istype(BB)) || !(BB == B))
vis_mobs -= M
for(var/mob/M in vis_mobs) // Re-add anything in bellies of people in our belly
if(M == B.owner)
continue
vis_mobs |= get_all_prey_recursive(M, TRUE)
for(var/obj/O in vis_objs) // Clean out everyone NOT in our specific belly but for objs. No re-adding will happen there. Just don't be that deep and youre an obj anyway.
var/obj/belly/BB = get_belly(O)
if(!(istype(BB)) || !(BB == B))
vis_objs -= O
if("Specific Belly (Pred)")
if(!isliving(src))
to_chat(src, span_warning("You do not appear to be a living mob capable of having bellies. Your input has not been sent, but preserved:") + " [input]")
return
var/mob/living/L = src
if(!(L.vore_organs) || !(L.vore_organs.len))
to_chat(src, span_warning("You do not have any bellies. Your input has not been sent, but preserved:") + " [input]")
return
var/obj/belly/B = tgui_input_list(src, "Which belly do you want to sent the subtle to?","Select Belly", L.vore_organs)
if(!B || !istype(B))
to_chat(src, span_warning("You have not selected a valid belly. Your input has not been sent, but preserved:") + " [input]")
return
vis = get_mobs_and_objs_in_view_fast(get_turf(src),0,2)
vis_mobs = vis["mobs"]
vis_objs = vis["objs"]
for(var/mob/M in vis_mobs) // Clean out everyone NOT in our specific belly
if(M == B.owner)
continue
var/obj/belly/BB = get_belly(M)
if(!(istype(BB)) || !(BB == B))
vis_mobs -= M
for(var/mob/M in vis_mobs) // Re-add anything in bellies of people in our belly
if(M == B.owner)
continue
vis_mobs |= get_all_prey_recursive(M, TRUE)
for(var/obj/O in vis_objs) // Clean out everyone NOT in our specific belly but for objs. No re-adding will happen there. Just don't be that deep and youre an obj anyway.
var/obj/belly/BB = get_belly(O)
if(!(istype(BB)) || !(BB == B))
vis_objs -= O
if("Specific Person")
vis = get_mobs_and_objs_in_view_fast(get_turf(src),1,2)
vis_mobs = vis["mobs"]
vis_objs = list()
vis_mobs -= src
for(var/mob/M in vis_mobs) // ghosts get ye gone
if(isobserver(M) || (M.stat == DEAD))
vis_mobs -= M
if(!(vis_mobs.len))
to_chat(src, span_warning("No valid targets found. Your input has not been sent, but preserved:") + " [input]")
return
var/target = tgui_input_list(src, "Who do we send our message to?","Select Target", vis_mobs)
if(!(target))
to_chat(src, span_warning("No target selected. Your input has not been sent, but preserved:") + " [input]")
return
vis_mobs = list(target, src)
for(var/mob/M as anything in vis_mobs)
if(isnewplayer(M))
continue
if(src.client && M && !(get_z(src) == get_z(M)))
message = span_multizsay("[message]")
if(isobserver(M) && (!(M.client?.prefs?.read_preference(/datum/preference/toggle/ghost_see_whisubtle) || (isbelly(M.loc) && src == M.loc:owner)) || \
!client?.prefs?.read_preference(/datum/preference/toggle/whisubtle_vis) && !M.client?.holder))
spawn(0)
M.show_message(undisplayed_message, 2)
else
spawn(0)
M.show_message(message, 2)
if(M.Adjacent(src) && M.read_preference(/datum/preference/toggle/subtle_sounds)) //CHOMPEdit - makes it so the sounds only play for ghosts when adjacent to the person making them
if(voice_sounds_list) //CHOMPEdit, changes to subtle emotes to use mob voice instead
M << sound(pick(voice_sounds_list), volume = 25)
for(var/obj/O as anything in vis_objs)
spawn(0)
O.see_emote(src, message, 2)
/mob/proc/emote_vr(var/act, var/type, var/message, var/mode_selection) //This would normally go in say.dm
if(act == "me")
return custom_emote_vr(type, message, mode_selection)
#define MAX_HUGE_MESSAGE_LEN 8192
#define POST_DELIMITER_STR "\<\>"
/proc/sanitize_or_reflect(message,user)
//Way too long to send
if(length(message) > MAX_HUGE_MESSAGE_LEN)
fail_to_chat(user)
return
message = sanitize(message, max_length = MAX_HUGE_MESSAGE_LEN)
//Came back still too long to send
if(length(message) > MAX_MESSAGE_LEN)
fail_to_chat(user,message)
return null
else
return message
// returns true if it failed
/proc/reflect_if_needed(message, user)
if(length(message) > MAX_HUGE_MESSAGE_LEN)
fail_to_chat(user)
return TRUE
return FALSE
/proc/fail_to_chat(user,message)
if(!message)
to_chat(user, span_danger("Your message was NOT SENT, either because it was FAR too long, or sanitized to nothing at all."))
return
var/length = length(message)
var/posts = CEILING((length/MAX_MESSAGE_LEN), 1)
to_chat(user,message)
to_chat(user, span_danger("^ This message was NOT SENT ^ -- It was [length] characters, and the limit is [MAX_MESSAGE_LEN]. It would fit in [posts] separate messages."))
#undef MAX_HUGE_MESSAGE_LEN
#undef POST_DELIMITER_STR
///// PSAY /////
/mob/verb/psay(message as text)
set name = "Psay"
set desc = "Talk to people affected by complete absorbed or dominate predator/prey."
if (src.client)
if(client.prefs.muted & MUTE_IC)
to_chat(src, span_warning("You cannot speak in IC (muted)."))
return
if (!message)
message = tgui_input_text(usr, "Type a message to say.","Psay")
message = sanitize_or_reflect(message,src)
if (!message)
return
message = capitalize(message)
if (stat == DEAD)
return say_dead(message)
if(!isliving(src))
forced_psay = FALSE
say(message)
var/f = FALSE //did we find someone to send the message to other than ourself?
var/mob/living/pb //predator body
var/mob/living/M = src
if(istype(M, /mob/living/dominated_brain))
var/mob/living/dominated_brain/db = M
if(db.loc != db.pred_body)
to_chat(db, span_danger("You aren't inside of a brain anymore!!!"))
qdel(db) //Oh no, dominated brains shouldn't exist outside of the body, so if we got here something went very wrong.
return
else
pb = db.pred_body
to_chat(pb, span_psay("The captive mind of \the [M] thinks, \"[message]\"")) //To our pred if dominated brain
if(pb.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
pb << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
else if(M.absorbed && isbelly(M.loc))
pb = M.loc.loc
to_chat(pb, span_psay("\The [M] thinks, \"[message]\"")) //To our pred if absorbed
if(pb.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
pb << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
if(pb) //We are prey, let's do the prey thing.
for(var/I in pb.contents)
if(istype(I, /mob/living/dominated_brain) && I != M)
var/mob/living/dominated_brain/db = I
to_chat(db, span_psay("The captive mind of \the [M] thinks, \"[message]\"")) //To any dominated brains in the pred
if(db.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
db << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
for(var/B in pb.vore_organs)
for(var/mob/living/L in B)
if(L.absorbed && L != M && L.ckey)
to_chat(L, span_psay("\The [M] thinks, \"[message]\"")) //To any absorbed people in the pred
if(L.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
L << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
//Let's also check and see if there's anyone inside of us to send the message to.
for(var/I in M.contents)
if(istype(I, /mob/living/dominated_brain))
var/mob/living/dominated_brain/db = I
to_chat(db, span_psay(span_bold("\The [M] thinks, \"[message]\""))) //To any dominated brains inside us
if(db.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
db << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
for(var/B in M.vore_organs)
for(var/mob/living/L in B)
if(L.absorbed)
to_chat(L, span_psay(span_bold("\The [M] thinks, \"[message]\""))) //To any absorbed people inside us
if(L.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
L << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
if(f) //We found someone to send the message to
if(pb)
to_chat(M, span_psay("You think \"[message]\"")) //To us if we are the prey
if(M.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
M << sound(pick(voice_sounds_list), volume = 25)
else
to_chat(M, span_psay(span_bold("You think \"[message]\""))) //To us if we are the pred
if(M.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
M << sound(pick(voice_sounds_list), volume = 25)
for (var/mob/G in player_list)
if (isnewplayer(G))
continue
else if(isobserver(G) && G.client?.prefs?.read_preference(/datum/preference/toggle/ghost_ears) && \
G.client?.prefs?.read_preference(/datum/preference/toggle/ghost_see_whisubtle))
if(client?.prefs?.read_preference(/datum/preference/toggle/whisubtle_vis) || G.client.holder)
to_chat(G, span_psay("\The [M] thinks, \"[message]\""))
log_say(message,M)
else //There wasn't anyone to send the message to, pred or prey, so let's just say it instead and correct our psay just in case.
M.forced_psay = FALSE
M.say(message)
///// PME /////
/mob/verb/pme(message as message)
set name = "Pme"
set desc = "Emote to people affected by complete absorbed or dominate predator/prey."
if (src.client)
if(client.prefs.muted & MUTE_IC)
to_chat(src, span_warning("You cannot speak in IC (muted)."))
return
if (!message)
message = tgui_input_text(usr, "Type a message to emote.","Pme")
message = sanitize_or_reflect(message,src)
if (!message)
return
if (stat == DEAD)
return say_dead(message)
if(!isliving(src))
forced_psay = FALSE
me_verb(message)
var/f = FALSE //did we find someone to send the message to other than ourself?
var/mob/living/pb //predator body
var/mob/living/M = src
if(istype(M, /mob/living/dominated_brain))
var/mob/living/dominated_brain/db = M
if(db.loc != db.pred_body)
to_chat(db, span_danger("You aren't inside of a brain anymore!!!"))
qdel(db) //Oh no, dominated brains shouldn't exist outside of the body, so if we got here something went very wrong.
return
else
pb = db.pred_body
to_chat(pb, span_pemote("\The [M] [message]")) //To our pred if dominated brain
if(pb.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
pb << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
else if(M.absorbed && isbelly(M.loc))
pb = M.loc.loc
to_chat(pb, span_pemote("\The [M] [message]")) //To our pred if absorbed
if(pb.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
pb << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
if(pb) //We are prey, let's do the prey thing.
for(var/I in pb.contents)
if(istype(I, /mob/living/dominated_brain) && I != M)
var/mob/living/dominated_brain/db = I
to_chat(db, span_pemote("\The [M] [message]")) //To any dominated brains in the pred
if(db.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
pb << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
for(var/B in pb.vore_organs)
for(var/mob/living/L in B)
if(L.absorbed && L != M && L.ckey)
to_chat(L, span_pemote("\The [M] [message]")) //To any absorbed people in the pred
if(L.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
L << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
//Let's also check and see if there's anyone inside of us to send the message to.
for(var/I in M.contents)
if(istype(I, /mob/living/dominated_brain))
var/mob/living/dominated_brain/db = I
to_chat(db, span_pemote(span_bold("\The [M] [message]"))) //To any dominated brains inside us
if(db.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
db << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
for(var/B in M.vore_organs)
for(var/mob/living/L in B)
if(L.absorbed)
to_chat(L, span_pemote(span_bold("\The [M] [message]"))) //To any absorbed people inside us
if(L.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
L << sound(pick(voice_sounds_list), volume = 25)
f = TRUE
if(f) //We found someone to send the message to
if(pb)
to_chat(M, span_pemote("\The [M] [message]")) //To us if we are the prey
if(M.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
M << sound(pick(voice_sounds_list), volume = 25)
else
to_chat(M, span_pemote(span_bold("\The [M] [message]"))) //To us if we are the pred
if(M.read_preference(/datum/preference/toggle/subtle_sounds))
if(voice_sounds_list) //CHOMPEdit, changes subtle emote sound to use mob voice instead
M << sound(pick(voice_sounds_list), volume = 25)
for (var/mob/G in player_list)
if (isnewplayer(G))
continue
else if(isobserver(G) && G.client?.prefs?.read_preference(/datum/preference/toggle/ghost_ears) && \
G.client?.prefs?.read_preference(/datum/preference/toggle/ghost_see_whisubtle))
if(client?.prefs?.read_preference(/datum/preference/toggle/whisubtle_vis) || G.client.holder)
to_chat(G, span_pemote("\The [M] [message]"))
log_say(message,M)
else //There wasn't anyone to send the message to, pred or prey, so let's just emote it instead and correct our psay just in case.
M.forced_psay = FALSE
M.me_verb(message)
/mob/living/verb/player_narrate(message as message)
set name = "Narrate (Player)"
set desc = "Narrate an action or event! An alternative to emoting, for when your emote shouldn't start with your name!"
if(src.client)
if(client.prefs.muted & MUTE_IC)
to_chat(src, span_warning("You cannot speak in IC (muted)."))
return
if(!message)
message = tgui_input_text(usr, "Type a message to narrate.","Narrate")
message = sanitize_or_reflect(message,src)
if(!message)
return
if(stat == DEAD)
return say_dead(message)
if(stat)
to_chat(src, span_warning("You need to be concious to narrate: [message]"))
return
message = span_name("([name])") + " " + span_pnarrate("[message]")
//Below here stolen from emotes
var/turf/T = get_turf(src)
if(!T) return
var/ourfreq = null
if(voice_freq > 0 )
ourfreq = voice_freq
if(client)
playsound(T, pick(emote_sound), 25, TRUE, falloff = 1 , is_global = TRUE, frequency = ourfreq, ignore_walls = TRUE, preference = /datum/preference/toggle/emote_sounds) //ChompEDIT - ignore walls
var/list/in_range = get_mobs_and_objs_in_view_fast(T,world.view,2,remote_ghosts = client ? TRUE : FALSE)
var/list/m_viewers = in_range["mobs"]
for(var/mob/M as anything in m_viewers)
if(M)
if(isnewplayer(M))
continue
if(M.stat == UNCONSCIOUS || M.sleeping > 0)
continue
to_chat(M, span_filter_say("[isobserver(M) ? "[message] ([ghost_follow_link(src, M)])" : message]"))
log_emote(message, src)
/mob/verb/select_speech_bubble()
set name = "Select Speech Bubble"
set category = "OOC.Chat Settings" //CHOMPEdit
var/new_speech_bubble = tgui_input_list(src, "Pick new voice (default for automatic selection)", "Character Preference", selectable_speech_bubbles)
if(new_speech_bubble)
custom_speech_bubble = new_speech_bubble
Reference in New Issue View Git Blame Copy Permalink