[MIRROR] Reflexive Biting and Personal Space Traits (#10452)

Co-authored-by: SatinIsle <98125273+SatinIsle@users.noreply.github.com>
Co-authored-by: Kashargul <144968721+Kashargul@users.noreply.github.com>

code/modules/mob/living/carbon/human/species/species.dm

@@ -489,19 +489,44 @@
 				t_him = "him"
 			if(FEMALE)
 				t_him = "her"
+
+	if(target.touch_reaction_flags & SPECIES_TRAIT_PERSONAL_BUBBLE)
+		H.visible_message( \
+			span_notice("[target] moves to avoid being touched by [H]!"), \
+			span_notice("[target] moves to avoid being touched by you!"), )
+		return
+
 	//VOREStation Edit Start - Headpats and Handshakes.
 	if(H.zone_sel.selecting == "head")
-		H.visible_message( \
-			span_notice("[H] pats [target] on the head."), \
-			span_notice("You pat [target] on the head."), )
+		if(target.touch_reaction_flags & SPECIES_TRAIT_PATTING_DEFENCE)
+			H.visible_message( \
+				span_warning("[target] reflexively bites the hand of [H] to prevent head patting!"), \
+				span_warning("[target] reflexively bites your hand!"), )
+			if(H.hand)
+				H.apply_damage(1, BRUTE, BP_L_HAND)
+			else
+				H.apply_damage(1, BRUTE, BP_R_HAND)
+		else
+			H.visible_message( \
+				span_notice("[H] pats [target] on the head."), \
+				span_notice("You pat [target] on the head."), )
 	else if(H.zone_sel.selecting == "r_hand" || H.zone_sel.selecting == "l_hand")
 		H.visible_message( \
 			span_notice("[H] shakes [target]'s hand."), \
 			span_notice("You shake [target]'s hand."), )
 	else if(H.zone_sel.selecting == "mouth")
-		H.visible_message( \
-			span_notice("[H] boops [target]'s nose."), \
-			span_notice("You boop [target] on the nose."), )
+		if(target.touch_reaction_flags & SPECIES_TRAIT_PATTING_DEFENCE)
+			H.visible_message( \
+				span_warning("[target] reflexively bites the hand of [H] to prevent nose booping!"), \
+				span_warning("[target] reflexively bites your hand!"), )
+			if(H.hand)
+				H.apply_damage(1, BRUTE, BP_L_HAND)
+			else
+				H.apply_damage(1, BRUTE, BP_R_HAND)
+		else
+			H.visible_message( \
+				span_notice("[H] boops [target]'s nose."), \
+				span_notice("You boop [target] on the nose."), )
 	else if(H.zone_sel.selecting == BP_GROIN) //CHOMPEdit
 		H.vore_bellyrub(target)
 	//VOREStation Edit End

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

@@ -1418,3 +1418,25 @@
 	cost = 0
 	var_changes = list("mudking" = TRUE)
 	custom_only = FALSE
+
+/datum/trait/neutral/patting_defence
+	name = "Reflexive Biting"
+	desc = "You will reflexively bite hands that attempt to pat your head or boop your nose, this can be toggled off."
+	cost = 0
+	custom_only = FALSE
+
+/datum/trait/neutral/patting_defence/apply(var/datum/species/S,var/mob/living/carbon/human/H)
+	..()
+	H.touch_reaction_flags |= SPECIES_TRAIT_PATTING_DEFENCE
+	add_verb(H, /mob/living/proc/toggle_patting_defence)
+
+/datum/trait/neutral/personal_space
+	name = "Personal Space Bubble"
+	desc = "You are adept at avoiding unwanted physical contact and dodge it with ease. You will reflexively dodge any attempt to hug, pat, boop, lick, sniff you or even shake your hand, this can be toggled off."
+	cost = 0
+	custom_only = FALSE
+
+/datum/trait/neutral/patting_defence/apply(var/datum/species/S,var/mob/living/carbon/human/H)
+	..()
+	H.touch_reaction_flags |= SPECIES_TRAIT_PERSONAL_BUBBLE
+	add_verb(H, /mob/living/proc/toggle_personal_space)

code/modules/mob/living/living_defines.dm

@@ -105,3 +105,5 @@
 									"'s hands are shaking.",
 									" is rocking slightly from side to side."
 									)
+
+	var/touch_reaction_flags

code/modules/mob/living/living_powers.dm

@@ -31,6 +31,30 @@
 	to_chat(src, span_notice("You will [allow_self_surgery ? "now" : "no longer"] attempt to operate upon yourself."))
 	log_admin("DEBUG \[[world.timeofday]\]: [src.ckey ? "[src.name]:([src.ckey])" : "[src.name]"] has [allow_self_surgery ? "Enabled" : "Disabled"] self surgery.")
 
+/mob/living/proc/toggle_patting_defence()
+	set name = "Toggle Reflexive Biting"
+	set desc = "Toggles the automatic biting for if someone pats you on the head or boops your nose."
+	set category = "Abilities.General"
+
+	if(touch_reaction_flags & SPECIES_TRAIT_PATTING_DEFENCE)
+		touch_reaction_flags &= ~(SPECIES_TRAIT_PATTING_DEFENCE)
+		to_chat(src,span_notice("You will no longer bite hands who pat or boop you."))
+	else
+		touch_reaction_flags |= SPECIES_TRAIT_PATTING_DEFENCE
+		to_chat(src,span_notice("You will now longer bite hands who pat or boop you."))
+
+/mob/living/proc/toggle_personal_space()
+	set name = "Toggle Personal Space"
+	set desc = "Toggles dodging any attempts to hug or pat you."
+	set category = "Abilities.General"
+
+	if(touch_reaction_flags & SPECIES_TRAIT_PERSONAL_BUBBLE)
+		touch_reaction_flags &= ~(SPECIES_TRAIT_PERSONAL_BUBBLE)
+		to_chat(src,span_notice("You will no longer dodge all attempts at hugging, patting, booping, licking, smelling and hand shaking."))
+	else
+		touch_reaction_flags |= SPECIES_TRAIT_PERSONAL_BUBBLE
+		to_chat(src,span_notice("You will now dodge all attempts at hugging, patting, booping, licking, smelling and hand shaking."))
+
 //ChompEDIT START - re-assert our layer and plane
 /mob/living/Moved(var/atom/oldloc, direct, forced, movetime)
 	. = ..()