update content

modular_sand/code/modules/arousal/arousal.dm

@@ -2,6 +2,19 @@
 	. = ..()
 	set_lust(0)
 	SEND_SIGNAL(src, COMSIG_ADD_MOOD_EVENT, "orgasm", /datum/mood_event/orgasm)
+	var/message_to_display
+	// We got pleased, let's get rid of some of it
+	var/crocin_amount = reagents.get_reagent_amount(/datum/reagent/drug/aphrodisiac)
+	if(crocin_amount)
+		reagents.remove_reagent(/datum/reagent/drug/aphrodisiac, rand(10, max(30, crocin_amount / 5)))
+		message_to_display = span_userlove("Mnn.. Yes...~")
+	// More potent, harder to get rid of
+	var/hexacrocin_amount = reagents.get_reagent_amount(/datum/reagent/drug/aphrodisiacplus)
+	if(hexacrocin_amount)
+		reagents.remove_reagent(/datum/reagent/drug/aphrodisiacplus, rand(2, max(15, hexacrocin_amount / 6)))
+		message_to_display = span_userlove("YES~!")
+	if(message_to_display)
+		to_chat(src, message_to_display)
 
 /mob/living/carbon/human/proc/pick_receiving_organ(mob/living/L)
 	if (!iscarbon(L))
@@ -22,9 +35,6 @@
 	var/mob/living/carbon/human/h_self = src
 	var/mob/living/carbon/human/h_partner = null
 
-	if(istype(source_gen, /obj/item/organ/genital/penis))
-		h_self.cumdrip_rate += rand(5,10)
-
 	if(ishuman(partner))
 		h_partner = partner
 	if(receiver)

modular_sand/code/modules/arousal/creampie.dm

@@ -1,11 +0,0 @@
-/mob/living/carbon/human/handle_creampie()
-	if(cumdrip_rate < 0)
-		cumdrip_rate = 0
-
-	if(bodytemperature >= TCRYO)
-		cumdrip_rate = cumdrip_rate - 1
-		cumdrip()
-
-/mob/living/carbon/human/proc/cumdrip()
-	if(isturf(loc))
-		new/obj/effect/decal/cleanable/semendrip(get_turf(src))

modular_sand/code/modules/mob/living/carbon/human/human_defines.dm

@@ -1,2 +0,0 @@
-/mob/living/carbon/human
-	var/cumdrip_rate = 0 //how long are we dripping jizz for?

modular_sand/code/modules/mob/living/carbon/human/life.dm

@@ -1,6 +0,0 @@
-//Hyper change, adds cumdrip
-/mob/living/carbon/human/BiologicalLife(seconds, times_fired)
-    if(!(. = ..()))
-        return
-    if(cumdrip_rate > 0 && stat != DEAD)
-        handle_creampie()

modular_sand/code/modules/reagents/chemistry/reagents/drug_reagents.dm

@@ -0,0 +1,13 @@
+/datum/reagent/drug/anaphrodisiac/on_mob_life(mob/living/M)
+	if(M && M.client?.prefs.arousable)
+		M.add_lust(max(2, M.get_lust() / 5) * -1)
+		if(prob(0.5))
+			to_chat(M, span_warning("You don't feel quite like it."))
+	return ..()
+
+/datum/reagent/drug/anaphrodisiacplus/on_mob_life(mob/living/M)
+	if(M && M.client?.prefs.arousable)
+		M.add_lust(max(10, M.get_lust() / 4) * -1)
+		if(prob(0.2))
+			to_chat(M, span_boldwarning("Nope, certainly don't feel like it."))
+	return ..()

modular_sand/code/modules/reagents/chemistry/reagents/other_reagents.dm

@@ -16,6 +16,17 @@
 	if(method==PATCH || method==INGEST || method==INJECT || (method == VAPOR && prob(min(reac_volume,100)*(1 - touch_protection))))
 		L.ForceContractDisease(new /datum/disease/transformation/dragon(), FALSE, TRUE)
 
+/datum/reagent/consumable/semen
+	// Prevents dripping from drinking a glass or other weird cases
+	var/amount_to_drip = 0
+
+/datum/reagent/consumable/semen/on_mob_life(mob/living/carbon/M)
+	. = ..()
+	if(amount_to_drip && M.is_groin_exposed())
+		amount_to_drip = max(0, amount_to_drip - metabolization_rate)
+		var/obj/effect/decal/cleanable/semendrip/drip = new(get_turf(M))
+		drip.add_blood_DNA(data)
+
 /*/datum/reagent/dragon_blood/admin
 	name = "Special dragon blood"
 	description = "It looks weird"