Merge pull request #12373 from Very-Soft/dominantprey

Dominant Prey and Dominant Predators

code/_helpers/unsorted.dm

@@ -453,6 +453,11 @@ Turf and target are seperate in case you want to teleport some distance from a t
 		moblist.Add(M)
 	for(var/mob/living/simple_mob/M in sortmob)
 		moblist.Add(M)
+	//VOREStation Addition Start
+	for(var/mob/living/dominated_brain/M in sortmob)
+		moblist.Add(M)
+	//VOREStation Addition End
+
 //	for(var/mob/living/silicon/hivebot/M in sortmob)
 //		mob_list.Add(M)
 //	for(var/mob/living/silicon/hive_mainframe/M in sortmob)

code/modules/mob/living/carbon/human/species/station/traits_vr/neutral.dm

@@ -502,3 +502,23 @@
 /datum/trait/neutral/thinner/apply(var/datum/species/S,var/mob/living/carbon/human/H)
 	..(S,H)
 	H.update_transform()
+
+/datum/trait/neutral/dominate_predator
+	name = "Dominate Predator"
+	desc = "Allows you to attempt to take control of a predator while inside of their belly."
+	cost = 0
+	custom_only = FALSE
+
+/datum/trait/neutral/dominate_predator/apply(var/datum/species/S,var/mob/living/carbon/human/H)
+	..(S,H)
+	H.verbs |= /mob/proc/dominate_predator
+
+/datum/trait/neutral/dominate_prey
+	name = "Dominate Prey"
+	desc = "Connect to and dominate the brain of your prey."
+	cost = 0
+	custom_only = FALSE
+
+/datum/trait/neutral/dominate_predator/apply(var/datum/species/S,var/mob/living/carbon/human/H)
+	..(S,H)
+	H.verbs |= /mob/living/proc/dominate_prey

code/modules/mob/living/simple_mob/subtypes/vore/dominated_brain.dm

@@ -0,0 +1,538 @@
+///// A mob that gets used when prey dominate predators. Will automatically delete itself if it's not inside a mob.
+
+/mob/living/dominated_brain
+	name = "dominated brain"
+	desc = "Someone who has taken a back seat within their own body."
+	icon = 'icons/obj/surgery.dmi'
+	icon_state = "brain1"
+	var/mob/living/prey_body		//The body of the person who dominated the brain
+	var/prey_ckey					//The ckey of the person who dominated the brain
+	var/prey_name					//In case the body is missing. ;3c
+	var/list/prey_langs = list()
+	var/mob/living/pred_body		//The body of the person who was dominated
+	var/pred_ckey					//The ckey of the person who was dominated
+	var/pred_ooc_notes
+	var/prey_ooc_notes
+
+/mob/living/dominated_brain/New(loc, var/mob/living/pred, preyname, var/mob/living/prey)
+	. = ..()
+	prey_name = preyname
+	if(prey)
+		prey_body = prey
+	pred_body = pred
+
+/mob/living/dominated_brain/Initialize()
+	if(!isliving(loc))
+		qdel(src)
+		return
+	. = ..()
+	lets_register_our_signals()
+	verbs |= /mob/living/dominated_brain/proc/resist_control
+
+/mob/living/dominated_brain/Life()
+	. = ..()
+	if(!isliving(loc))
+		qdel(src)
+	if(!ckey)
+		qdel(src)
+
+/mob/living/dominated_brain/say_understands(var/mob/other, var/datum/language/speaking = null)
+	if(pred_body.say_understands(other, speaking))
+		return TRUE
+	else return FALSE
+
+/mob/living/dominated_brain/proc/lets_register_our_signals()
+	if(prey_body)
+		RegisterSignal(prey_body, COMSIG_PARENT_QDELETING, .proc/prey_was_deleted, TRUE)
+	RegisterSignal(pred_body, COMSIG_PARENT_QDELETING, .proc/pred_was_deleted, TRUE)
+
+/mob/living/dominated_brain/proc/lets_unregister_our_signals()
+	prey_was_deleted()
+	pred_was_deleted()
+
+/mob/living/dominated_brain/proc/prey_was_deleted()
+	if(prey_body)
+		UnregisterSignal(prey_body, COMSIG_PARENT_QDELETING)
+		prey_body = null
+
+/mob/living/dominated_brain/proc/pred_was_deleted()
+	if(pred_body)
+		UnregisterSignal(pred_body, COMSIG_PARENT_QDELETING)
+		pred_body = null
+
+/mob/living/dominated_brain/Destroy()
+	if(pred_body)
+		var/P = FALSE
+		for(var/I in pred_body)
+			if(I == src)
+				continue
+			if(istype(I, /mob/living/dominated_brain))
+				P = TRUE
+		if(!P)
+			pred_body.verbs -= /mob/proc/psay
+			pred_body.verbs -= /mob/proc/pme
+
+	lets_unregister_our_signals()
+	. = ..()
+
+/mob/living/dominated_brain/say(var/message, var/datum/language/speaking = null, var/whispering = 0)
+
+	if (src.client)
+		if(client.prefs.muted & MUTE_IC)
+			to_chat(src, "<font color='red'>You cannot speak in IC (muted).</font>")
+			return
+
+	if(loc == pred_body)
+
+		message = sanitize(message)
+		if (!message)
+			return
+		log_say(message,src)
+		if (stat == 2)
+			return say_dead(message)
+
+		to_chat(src, "<span class='changeling'>You think, \"[message]\"</span>")
+		to_chat(pred_body, "<span class='changeling'>The captive mind of \the [src] thinks, \"[message]\"</span>")
+		for(var/I in pred_body.contents)
+			if(istype(I, /mob/living/dominated_brain) && I != src)
+				var/mob/living/dominated_brain/db = I
+				to_chat(db, "<span class='changeling'>The captive mind of \the [src] thinks, \"[message]\"</span>")
+
+		for (var/mob/M in player_list)
+			if (istype(M, /mob/new_player))
+				continue
+			else if(M.stat == DEAD && M.is_preference_enabled(/datum/client_preference/ghost_ears))
+				to_chat(M, "The captive mind of [src] whispers, \"[message]\"")
+
+/mob/living/dominated_brain/me_verb(message as text)
+	if (src.client)
+		if(client.prefs.muted & MUTE_IC)
+			to_chat(src, "<span class='warning'>You cannot speak in IC (muted).</span>")
+			return
+
+	if(loc == pred_body)
+
+		message = sanitize(message)
+		if (!message)
+			return
+		log_emote(message,src)
+		if (stat == 2)
+			return say_dead(message)
+
+		to_chat(src, "<span class='changeling'><i>\The [src] [message]</i></span>")
+		to_chat(pred_body, "<span class='changeling'><i>\The [src] [message]</i></span>")
+		for(var/I in pred_body.contents)
+			if(istype(I, /mob/living/dominated_brain) && I != src)
+				var/mob/living/dominated_brain/db = I
+				to_chat(db, "<span class='changeling'><i>\The [src] [message]</i></span>")
+
+		for (var/mob/M in player_list)
+			if (istype(M, /mob/new_player))
+				continue
+			else if(M.stat == DEAD && M.is_preference_enabled(/datum/client_preference/ghost_ears))
+				to_chat(M, "<span class='changeling'><i>\The [src] [message]</i></span>")
+	return
+
+/mob/living/dominated_brain/emote(var/message)
+	if (src.client)
+		if(client.prefs.muted & MUTE_IC)
+			to_chat(src, "<span class='warning'>You cannot speak in IC (muted).</span>")
+			return
+
+	if(loc == pred_body)
+
+		message = sanitize(message)
+		if (!message)
+			return
+		log_emote(message,src)
+		if (stat == 2)
+			return say_dead(message)
+
+		to_chat(src, "<span class='changeling'><i>\The [src] [message]</i></span>")
+		to_chat(pred_body, "<span class='changeling'><i>\The [src] [message]</i></span>")
+		for(var/I in pred_body.contents)
+			if(istype(I, /mob/living/dominated_brain) && I != src)
+				var/mob/living/dominated_brain/db = I
+				to_chat(db, "<span class='changeling'><i>\The [src] [message]</i></span>")
+
+		for (var/mob/M in player_list)
+			if (istype(M, /mob/new_player))
+				continue
+			else if(M.stat == DEAD && M.is_preference_enabled(/datum/client_preference/ghost_ears))
+				to_chat(M, "<span class='changeling'><i>\The [src] [message]</i></span>")
+	return
+
+/mob/living/dominated_brain/process_resist()
+	//Resisting control by an alien mind.
+	if(pred_body.ckey == pred_ckey)
+		dominate_predator()
+		return
+	if(pred_ckey == ckey && pred_body.prey_controlled)
+		if(tgui_alert(src, "Do you want to wrest control over your body back from \the [prey_name]?", "Regain Control",list("No","Yes")) != "Yes")
+			return
+
+		to_chat(src, "<span class='danger'>You begin to resist \the [prey_name]'s control!!!</span>")
+		to_chat(pred_body, "<span class='danger'>You feel the captive mind of [src] begin to resist your control.</span>")
+
+		if(do_after(src, 10 SECONDS, exclusive = TRUE))
+			restore_control()
+		else
+			to_chat(src, "<span class='notice'>Your attempt to regain control has been interrupted...</span>")
+			to_chat(pred_body, "<span class='notice'>The dominant sensation fades away...</span>")
+	else
+		to_chat(src, "<span class='warning'>\The [pred_body] is already dominated, and cannot be controlled at this time.</span>")
+		..()
+
+/mob/living/dominated_brain/proc/restore_control(ask = TRUE)
+
+	if(ask && disconnect_time || client && ((client.inactivity / 10) / 60 > 10))
+		if(tgui_alert(src, "Your predator's mind does not seem to be active presently. Releasing control in this state may leave you stuck in whatever state you find yourself in. Are you sure?", "Release Control",list("No","Yes")) != "Yes")
+			return
+	var/mob/living/prey_goes_here
+
+	if(prey_body && prey_body.loc.loc == pred_body)	//The prey body exists and is here, let's handle the prey!
+
+		prey_goes_here = prey_body
+
+	else if(prey_body)	//It exists, but it's not here, let's spawn them a temporary home.
+		var/mob/living/dominated_brain/ndb = new /mob/living/dominated_brain(pred_body, pred_body, prey_name, prey_body)
+		ndb.name = prey_name
+		ndb.prey_ckey = src.prey_ckey
+		ndb.pred_ckey = src.pred_ckey
+		ndb.pred_body.verbs |= /mob/proc/pme
+		ndb.pred_body.verbs |= /mob/proc/psay
+
+		prey_goes_here = ndb
+		prey_goes_here.real_name = src.prey_name
+		src.languages -= src.temp_languages
+		prey_goes_here.languages |= src.prey_langs
+		prey_goes_here.ooc_notes = prey_ooc_notes
+		prey_goes_here.verbs |= /mob/living/dominated_brain/proc/cease_this_foolishness
+
+
+	else		//The prey body does not exist, let's put them in the back seat instead!
+		var/mob/living/dominated_brain/ndb = new /mob/living/dominated_brain(pred_body, pred_body, prey_name)
+		ndb.name = prey_name
+		ndb.prey_ckey = src.prey_ckey
+		ndb.pred_ckey = src.pred_ckey
+		ndb.pred_body.verbs |= /mob/proc/pme
+		ndb.pred_body.verbs |= /mob/proc/psay
+
+		prey_goes_here = ndb
+		src.languages -= src.temp_languages
+		prey_goes_here.languages |= src.prey_langs
+		prey_goes_here.real_name = src.prey_name
+		prey_goes_here.ooc_notes = prey_ooc_notes
+
+	///////////////////
+
+	// Handle Pred
+	pred_body.verbs -= /mob/proc/release_predator
+
+	//Now actually put the people in the mobs
+	prey_goes_here.ckey = src.prey_ckey
+	pred_body.ckey = src.pred_ckey
+	pred_body.ooc_notes = pred_ooc_notes
+	log_and_message_admins("[pred_body] is now controlled by [pred_body.ckey]. They were restored to control through prey domination, and had been controlled by [prey_ckey].")
+	handle_langs(src)
+	pred_body.prey_controlled = FALSE
+	qdel(src)
+
+/mob/living/dominated_brain/proc/handle_langs(var/mob/M)
+	var/list/langlist = list()
+
+	pred_body.languages -= pred_body.temp_languages
+	LAZYCLEARLIST(pred_body.temp_languages)
+	pred_body.temp_languages = list()
+	for(var/i in loc)
+		if(i == M)
+			continue
+		if(istype(i,/mob/living/dominated_brain))
+			var/mob/living/dominated_brain/db = i
+			langlist |= db.languages
+			langlist |= db.prey_langs
+	langlist -= pred_body.languages
+	pred_body.temp_languages |= langlist
+	pred_body.languages |= langlist
+
+//Welcome to the adapted borer code.
+/mob/proc/dominate_predator()
+	set category = "Abilities"
+	set name = "Dominate Predator"
+	set desc = "Connect to and dominate the brain of your predator."
+
+	var/mob/living/pred
+	var/mob/living/prey = src
+	if(isbelly(prey.loc))
+		pred = loc.loc
+	else if(isliving(prey.loc))
+		pred = loc
+	else
+		to_chat(prey, "<span class='notice'>You are not inside anyone.</span>")
+		return
+
+	if(prey.stat == DEAD)
+		to_chat(prey, "<span class='warning'>You cannot do that in your current state.</span>")
+		return
+
+	if(!pred.ckey)
+		to_chat(prey, "<span class='notice'>\The [pred] isn't able to be dominated.</span>")
+		return
+	if(prey.prey_controlled)
+		to_chat(prey, "<span class='warning'>You are already controlling someone, you can't control anyone else at this time.</span>")
+		return
+	if(pred.prey_controlled)
+		to_chat(prey, "<span class='warning'>\The [pred] is already dominated, and cannot be controlled at this time.</span>")
+		return
+	if(ishuman(pred))
+		var/mob/living/carbon/human/h
+		if(h.resleeve_lock && ckey != h.resleeve_lock)
+			to_chat(src, "<span class='warning'>\The [h] cannot be impersonated!</span>")
+			return
+	if(tgui_alert(prey, "You are attempting to take over [pred], are you sure? Ensure that their preferences align with this kind of play.", "Take Over Predator",list("No","Yes")) != "Yes")
+		return
+	to_chat(prey, "<span class='notice'>You attempt to exert your control over \the [pred]...</span>")
+	log_admin("[key_name_admin(prey)] attempted to take over [pred].")
+	if(tgui_alert(pred, "\The [prey] has elected to attempt to take control of you. Is this something you will allow to happen?", "Allow Prey Domination",list("No","Yes")) != "Yes")
+		to_chat(prey, "<span class='warning'>\The [pred] declined your request for control.</span>")
+		return
+	if(tgui_alert(pred, "Are you sure? If you should decide to revoke this, you will have the ability to do so in your 'Abilities' tab.", "Allow Prey Domination",list("No","Yes")) != "Yes")
+		return
+	to_chat(pred, "<span class='warning'>You can feel the will of another overwriting your own, control of your body being sapped away from you...</span>")
+	to_chat(prey, "<span class='warning'>You can feel the will of your host diminishing as you exert your will over them!</span>")
+	if(!do_after(prey, 10 SECONDS, exclusive = TRUE))
+		to_chat(prey, "<span class='notice'>Your attempt to regain control has been interrupted...</span>")
+		to_chat(pred, "<span class='notice'>The dominant sensation fades away...</span>")
+		return
+
+	to_chat(prey, "<span class='danger'>You plunge your conciousness into \the [pred], assuming control over their very body, leaving your own behind within \the [pred]'s [loc].</span>")
+	to_chat(pred, "<span class='danger'>You feel your body move on its own, as you are pushed to the background, and an alien consciousness displaces yours.</span>")
+	var/mob/living/dominated_brain/pred_brain
+	var/delete_source = FALSE
+	if(istype(prey, /mob/living/dominated_brain))
+		var/mob/living/dominated_brain/punished_prey = prey
+		if(punished_prey.prey_body)
+			pred_brain = new /mob/living/dominated_brain(pred, pred, name, punished_prey.prey_body)
+		else
+			pred_brain = new /mob/living/dominated_brain(pred, pred, name)	//We have to play musical chairs with 3 bodies, or everyone gets d/ced
+		delete_source = TRUE
+	else
+		pred_brain = new /mob/living/dominated_brain(pred, pred, name, prey)
+
+	pred.verbs |= /mob/proc/pme
+	pred.verbs |= /mob/proc/psay
+	pred_brain.prey_ooc_notes = prey.ooc_notes
+	pred_brain.pred_ooc_notes = pred.ooc_notes
+	pred_brain.name = pred.name
+	var/list/preylangs = list()
+	preylangs |= prey.languages
+	preylangs -= prey.temp_languages
+	pred_brain.prey_langs |= preylangs
+	pred_brain.prey_ckey = prey.ckey
+	pred_brain.pred_ckey = pred.ckey
+	pred_brain.handle_langs()
+	pred.ooc_notes = pred_brain.prey_ooc_notes
+
+	pred.verbs |= /mob/proc/release_predator
+
+	//Now actually put the people in the mobs
+	pred_brain.ckey = pred_brain.pred_ckey
+	pred_brain.real_name = pred.real_name
+	pred.ckey = pred_brain.prey_ckey
+	pred.prey_controlled = TRUE
+	log_and_message_admins("[pred] is now controlled by [pred.ckey], they were taken over via prey domination, and were originally controlled by [pred_brain.pred_ckey].")
+	if(delete_source)
+		qdel(prey)
+
+/mob/proc/release_predator()
+	set category = "Abilities"
+	set name = "Restore Control"
+	set desc = "Release control of your predator's body."
+
+	for(var/I in contents)
+		if(istype(I, /mob/living/dominated_brain))
+			var/mob/living/dominated_brain/db = I
+			if(db.ckey == db.pred_ckey)
+				to_chat(src, "<span class='notice'>You ease off of your control, releasing \the [db].</span>")
+				to_chat(db, "<span class='notice'>You feel the alien presence fade, and restore control of your body to you of their own will...</span>")
+				db.restore_control()
+				return
+			else
+				continue
+	to_chat(src, "<span class='danger'>You haven't been taken over, and shouldn't have this verb. I'll clean that up for you. Report this on the github, it is a bug.</span>")
+	verbs -= /mob/proc/release_predator
+
+/mob/living/dominated_brain/proc/resist_control()
+	set category = "Abilities"
+	set name = "Resist Control"
+	set desc = "Attempt to resist control."
+	if(pred_body.ckey == pred_ckey)
+		dominate_predator()		
+		return
+	if(pred_ckey == ckey && pred_body.prey_controlled)
+		to_chat(src, "<span class='danger'>You begin to resist \the [prey_name]'s control!!!</span>")
+		to_chat(pred_body, "<span class='danger'>You feel the captive mind of [src] begin to resist your control.</span>")
+
+		if(do_after(src, 10 SECONDS, exclusive = TRUE))
+			restore_control()
+		else
+			to_chat(src, "<span class='notice'>Your attempt to regain control has been interrupted...</span>")
+			to_chat(pred_body, "<span class='notice'>The dominant sensation fades away...</span>")
+	else
+		to_chat(src, "<span class='warning'>\The [pred_body] is already dominated, and cannot be controlled at this time.</span>")
+
+
+/mob/proc/psay(message as text|null)
+	set category = "Abilities"
+	set name = "Prey Say (psay)"
+	set desc = "Emote to a dominated predator/prey."
+
+	if (src.client)
+		if(client.prefs.muted & MUTE_IC)
+			to_chat(src, "<span class='warning'>You cannot speak in IC (muted).</span>")
+			return
+	message = sanitize(message)
+	if (!message)
+		message = input(usr, "Type a message to emote.","Emote to prey") as text|null
+	if (!message)
+		return		
+
+	var/f = FALSE
+	for(var/I in contents)
+		if(istype(I, /mob/living/dominated_brain))
+			var/mob/living/dominated_brain/db = I
+			to_chat(db, "<span class='changeling'>\The [src] thinks, \"[message]\"</span>")
+			f = TRUE
+	if(f)
+		to_chat(src, "<span class='changeling'>You think \"[message]\"</span>")
+		for (var/mob/M in player_list)
+			if (istype(M, /mob/new_player))
+				continue
+			else if(M.stat == DEAD && M.is_preference_enabled(/datum/client_preference/ghost_ears))
+				to_chat(M, "<span class='changeling'>\The [src] thinks, \"[message]\"</span>")
+		log_say(message,src)
+	else
+		to_chat(src, "<span class='warning'>There is no one inside you to talk to...</span>")
+	return
+
+/mob/proc/pme(message as text|null)
+	set category = "Abilities"
+	set name = "Prey Emote (pme)"
+	set desc = "Emote to a dominated predator/prey."
+
+	if (src.client)
+		if(client.prefs.muted & MUTE_IC)
+			to_chat(src, "<span class='warning'>You cannot speak in IC (muted).</span>")
+			return
+	message = sanitize(message)
+	if (!message)
+		message = input(usr, "Type a message to emote.","Emote to prey") as text|null
+	if (!message)
+		return		
+	var/f = FALSE
+	for(var/I in contents)
+		if(istype(I, /mob/living/dominated_brain))
+			var/mob/living/dominated_brain/db = I
+			to_chat(db, "<span class='changeling'><i>\The [src] [message]</i></span>")
+			f = TRUE
+	if(f)
+		to_chat(src, "<span class='changeling'><i>\The [src] [message]</i></span>")
+		for (var/mob/M in player_list)
+			if (istype(M, /mob/new_player))
+				continue
+			else if(M.stat == DEAD && M.is_preference_enabled(/datum/client_preference/ghost_ears))
+				to_chat(M, "<span class='changeling'><i>\The [src] [message]</i></span>")
+		log_emote(message,src)
+	else
+		to_chat(src, "<span class='warning'>There is no one inside you to talk to...</span>")
+	return
+
+/mob/living/proc/dominate_prey()
+	set category = "Abilities"
+	set name = "Dominate Prey"
+	set desc = "Connect to and dominate the brain of your prey."
+
+	var/list/possible_mobs = list()
+	for(var/obj/belly/B in src.vore_organs)
+		for(var/mob/living/L in B)
+			if(isliving(L) && L.ckey)
+				possible_mobs += L
+			else
+				continue
+		var/mob/living/M
+		var/input = tgui_input_list(src, "Select a mob to dominate:", "Dominate Prey", possible_mobs)
+		if(!input)
+			to_chat(src, "<span class='warning'>There are no valid targets inside of you.</span>")
+			return
+		M = input
+		if(!M)
+			return
+		if(tgui_alert(src, "You selected [M] to attempt to dominate. Are you sure?", "Dominate Prey",list("No","Yes")) != "Yes")
+			return
+		log_admin("[key_name_admin(src)] offered to use dominate prey on [M] ([M.ckey]).")
+		to_chat(src, "<span class='warning'>Attempting to dominate and gather \the [M]'s mind...</span>")
+		if(tgui_alert(M, "\The [src] has elected collect your mind into their own. Is this something you will allow to happen?", "Allow Dominate Prey",list("No","Yes")) != "Yes")
+			return		
+		if(tgui_alert(M, "Are you sure? You can only undo this while your body is inside of [src]. (You can resist, or use the resist verb in the abilities tab)", "Allow Dominate Prey",list("No","Yes")) != "Yes")
+			return
+		to_chat(M, "<span class='warning'>You can feel the will of another pulling you away from your body...</span>")
+		to_chat(src, "<span class='warning'>You can feel the will of your prey diminishing as you gather them!</span>")
+
+		if(!do_after(src, 10 SECONDS, exclusive = TRUE))
+			to_chat(M, "<span class='notice'>The alien presence fades, and you are left along in your body...</span>")
+			to_chat(src, "<span class='notice'>Your attempt to gather [M]'s mind has been interrupted.</span>")
+			return
+		if(!isbelly(M.loc))
+			to_chat(M, "<span class='notice'>The alien presence fades, and you are left along in your body...</span>")
+			to_chat(src, "<span class='notice'>Your attempt to gather [M]'s mind has been interrupted.</span>")
+			return
+
+		var/mob/living/dominated_brain/db = new /mob/living/dominated_brain(src, src, M.name, M)
+
+
+		verbs |= /mob/proc/pme
+		verbs |= /mob/proc/psay
+		db.name = M.name
+		db.prey_ckey = M.ckey
+		db.pred_ckey = src.ckey
+		
+
+		db.real_name = M.real_name
+
+		M.languages -= M.temp_languages
+		db.languages |= M.languages
+		db.handle_langs()
+		db.ooc_notes = M.ooc_notes
+		db.verbs |= /mob/living/dominated_brain/proc/cease_this_foolishness
+
+		db.ckey = db.prey_ckey
+		log_admin("[db] ([db.ckey]) has agreed to [src]'s dominate prey attempt, and so no longer occupies their body.")
+		to_chat(src, "<span class='notice'>You feel your mind expanded as [M] is incorporated into you.</span>")
+		to_chat(M, "<span class='warning'>Your mind is gathered into \the [src], becoming part of them...</span>")
+
+/mob/living/dominated_brain/proc/cease_this_foolishness()
+	set category = "Abilities"
+	set name = "Return to Body"
+	set desc = "If your body is inside of your predator still, attempts to re-insert yourself into it."
+
+	if(prey_body && prey_body.loc.loc == pred_body)
+		to_chat(src, "<span class='notice'>You exert your will and attempt to return to yout body!!!</span>")
+		to_chat(pred_body, "<span class='warning'>\The [src] resists your hold and attempts to return to their body!</span>")
+		if(do_after(src, 10 SECONDS, exclusive = TRUE))
+			if(prey_body && prey_body.loc.loc == pred_body)
+
+				prey_body.ckey = prey_ckey
+				handle_langs(src)
+				to_chat(src, "<span class='warning'>Your connection to [pred_body] fades, and you awaken back in your own body!</span>")
+				to_chat(pred_body, "<span class='warning'>You feel as though a piece of yourself is missing, as \the [src] returns to their body.</span>")
+				log_admin("[src] ([src.ckey]) has returned to their body, [prey_body].")
+				qdel(src)
+			else
+				to_chat(src, "<span class='warning'>Your attempt to regain your body has been interrupted...</span>")
+		else
+			to_chat(src, "<span class='warning'>Your attempt to regain your body has been interrupted...</span>")
+	else if(prey_body)
+		to_chat(src, "<span class='warning'>You can sense your body... but it is not contained within [pred_body]... You cannot return to it at this time.</span>")
+	else
+		to_chat(src, "<span class='warning'>Your body seems to no longer exist, so, you cannot return to it.</span>")
+		verbs -= /mob/living/dominated_brain/proc/cease_this_foolishness

code/modules/vore/eating/living_vr.dm

@@ -13,6 +13,7 @@
 	var/absorbed = FALSE				// If a mob is absorbed into another
 	var/list/temp_language_sources = list()	//VOREStation Addition - Absorbs add languages to the pred
 	var/list/temp_languages = list()		//VOREStation Addition - Absorbs add languages to the pred
+	var/prey_controlled = FALSE			//VOREStation Addition
 	var/weight = 137					// Weight for mobs for weightgain system
 	var/weight_gain = 1 				// How fast you gain weight
 	var/weight_loss = 0.5 				// How fast you lose weight
@@ -934,12 +935,15 @@
 
 /mob/living/examine(mob/user, infix, suffix)
 	. = ..()
-	if(showvoreprefs)
+	if(ooc_notes)
-		. += "<span class='deptradio'><a href='?src=\ref[src];vore_prefs=1'>\[Mechanical Vore Preferences\]</a></span>"
+		. += "<span class = 'deptradio'>OOC Notes:</span> <a href='?src=\ref[src];ooc_notes=1'>\[View\]</a>"
+	. += "<span class='deptradio'><a href='?src=\ref[src];vore_prefs=1'>\[Mechanical Vore Preferences\]</a></span>"
 
 /mob/living/Topic(href, href_list)	//Can't find any instances of Topic() being overridden by /mob/living in polaris' base code, even though /mob/living/carbon/human's Topic() has a ..() call
 	if(href_list["vore_prefs"])
 		display_voreprefs(usr)
+	if(href_list["ooc_notes"])
+		src.Examine_OOC()
 	return ..()
 
 /mob/living/proc/display_voreprefs(mob/user)	//Called by Topic() calls on instances of /mob/living (and subtypes) containing vore_prefs as an argument

maps/virgo_minitest/virgo_minitest-sector-3.dmm

@@ -41,7 +41,7 @@
 "al" = (
 /obj/structure/closet/cabinet,
 /obj/item/weapon/gun/projectile/shotgun/doublebarrel,
-/obj/item/weapon/storage/box/beanbags,
+/obj/item/ammo_magazine/ammo_box/b12g/beanbag,
 /turf/simulated/floor/wood,
 /area/awaymission/wwmines)
 "am" = (

vorestation.dme

@@ -3321,6 +3321,7 @@
 #include "code\modules\mob\living\simple_mob\subtypes\vore\corrupt_hounds.dm"
 #include "code\modules\mob\living\simple_mob\subtypes\vore\deathclaw.dm"
 #include "code\modules\mob\living\simple_mob\subtypes\vore\dino.dm"
+#include "code\modules\mob\living\simple_mob\subtypes\vore\dominated_brain.dm"
 #include "code\modules\mob\living\simple_mob\subtypes\vore\dragon.dm"
 #include "code\modules\mob\living\simple_mob\subtypes\vore\fennec.dm"
 #include "code\modules\mob\living\simple_mob\subtypes\vore\fennix.dm"