initial peeking commit

modular_zzplurt/code/datums/elements/skirt_peeking.dm

@@ -0,0 +1,66 @@
+/datum/element/skirt_peeking
+	element_flags = ELEMENT_DETACH_ON_HOST_DESTROY
+
+/datum/element/skirt_peeking/Attach(datum/peeked)
+	. = ..()
+	if(!ishuman(peeked))
+		return ELEMENT_INCOMPATIBLE
+
+	RegisterSignal(peeked, COMSIG_ATOM_EXAMINE, PROC_REF(on_examine))
+	RegisterSignal(peeked, COMSIG_ATOM_EXAMINE_MORE, PROC_REF(on_closer_look))
+
+/datum/element/skirt_peeking/Detach(datum/peeked, ...)
+	. = ..()
+	UnregisterSignal(peeked, list(COMSIG_ATOM_EXAMINE, COMSIG_ATOM_EXAMINE_MORE))
+
+/datum/element/skirt_peeking/proc/can_skirt_peek(mob/living/carbon/human/peeked, mob/peeker)
+	var/mob/living/living_peeker = peeker
+	var/obj/item/clothing/under/worn_uniform = peeked.get_item_by_slot(ITEM_SLOT_ICLOTHING)
+	var/obj/item/clothing/suit/outer_clothing = peeked.get_item_by_slot(ITEM_SLOT_OCLOTHING)
+
+	// Check if the clothing is valid
+	if(outer_clothing && outer_clothing.body_parts_covered & (CHEST | GROIN | LEGS | FEET))
+		return FALSE
+
+	// We are now peeking under a uniform
+	if(worn_uniform /*TODO - peekability && is_type_in_typecache(worn_uniform.type, GLOB.skirt_peekable)*/)
+		if(isobserver(peeker))
+			return TRUE
+		if(istype(living_peeker) && (living_peeker != peeked))
+			// Is the peeker not standing and the peeked not laying down
+			if((get_turf(peeked) == get_turf(living_peeker)) && !(living_peeker.mobility_flags & MOBILITY_STAND) && (peeked.mobility_flags & MOBILITY_STAND))
+				return TRUE
+
+			// Or are you nearby and we are up high
+			// to-do climbable stuff
+			/*var/obj/structure/high_ground_peeked = locate(/obj/structure) in get_turf(peeked)
+			var/obj/structure/high_ground_peeker = locate(/obj/structure) in get_turf(peeker)
+			if(high_ground_peeked && high_ground_peeked.climbable && CHECK_BITFIELD(peeked.mobility_flags, MOBILITY_STAND) && peeked.Adjacent(peeker))
+				// Funnily enough, if we're at the same height, they can't just peek under us!
+				if(!(high_ground_peeker && high_ground_peeker.climbable))
+					return TRUE*/
+	return FALSE
+
+/datum/element/skirt_peeking/proc/on_examine(mob/living/carbon/human/peeked, mob/peeker, list/examine_list)
+	if(can_skirt_peek(peeked, peeker))
+		examine_list += span_purple("[peeked.p_theyre(TRUE)] wearing a skirt! I can probably give it a little peek <b>looking closer</b>.")
+
+/datum/element/skirt_peeking/proc/on_closer_look(mob/living/carbon/human/peeked, mob/peeker, list/examine_content)
+	if(can_skirt_peek(peeked, peeker))
+		//TODO: Shove the skyrat examines here
+		// Let's see if we caught them, addtimer so it appears after the peek.
+		addtimer(CALLBACK(src, PROC_REF(try_notice), peeked, peeker), 1)
+
+/// Alright, they've peeked us and everything, did we notice it though?
+/datum/element/skirt_peeking/proc/try_notice(mob/living/carbon/human/peeked, mob/living/peeker)
+	if(isnull(peeked) || isnull(peeker))
+		return
+	if(!istype(peeked) || !istype(peeker))
+		return
+	var/obj/item/clothing/under/worn_uniform = peeked.get_item_by_slot(ITEM_SLOT_ICLOTHING)
+	if(!istype(worn_uniform))
+		return
+	if(!(!peeked.client && (peeked.stat == CONSCIOUS) && peeked.has_status_effect(/datum/status_effect/grouped/blindness)))
+		return
+	to_chat(peeked, span_warning("You notice [peeker] looking under your [worn_uniform.name]!"))
+	to_chat(peeker, span_warning("[peeked] notices you peeking under [peeked.p_their()] [worn_uniform.name]!"))

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

@@ -1,3 +1,7 @@
 /mob/living/carbon/human
 	/// Are we currently in combat focus?
 	var/combat_focus = FALSE
+
+/mob/living/carbon/human/Initialize(mapload)
+	. = ..()
+	AddElement(/datum/element/skirt_peeking)

tgstation.dme

@@ -9292,6 +9292,7 @@
 #include "modular_zzplurt\code\datums\outfit.dm"
 #include "modular_zzplurt\code\datums\sprite_accessories.dm"
 #include "modular_zzplurt\code\datums\components\crafting\crafting.dm"
+#include "modular_zzplurt\code\datums\elements\skirt_peeking.dm"
 #include "modular_zzplurt\code\datums\keybinding\human.dm"
 #include "modular_zzplurt\code\datums\keybinding\living.dm"
 #include "modular_zzplurt\code\game\objects\items.dm"