Dry agent and dry galoshes (#7845)

modular_chomp/code/datums/components/dry.dm

@@ -0,0 +1,19 @@
+/datum/component/dry
+	var/turf/simulated/T
+	var/obj/effect/decal/cleanable/blood/B
+
+/datum/component/dry/Initialize()
+	if(!isatom(parent))
+		return COMPONENT_INCOMPATIBLE
+	if(istype(parent, /obj/item/clothing/shoes))
+		RegisterSignal(parent, COMSIG_SHOES_STEP_ACTION, PROC_REF(step_dry))
+
+/datum/component/dry/proc/step_dry(obj/item/clothing/shoes/source)
+	SIGNAL_HANDLER
+
+	T = get_turf(parent)
+	B = locate(/obj/effect/decal/cleanable/blood) in T
+
+	T.wet_floor_finish()
+	if(B)
+		B.dry()