CLOTHESPLOSIONS

THAT SENTENCE HAD TOO MANY JUMPSUITS, APOLOGIZE!

hyperstation/code/modules/arousal/arousalhud.dm

@@ -37,6 +37,9 @@
 	dat	+= "<a href='byond://?src=[REF(src)];container=1'>Fill container</A>"
 	dat	+=	"(Use a container in your hand to collect your seminal fluid.)<BR>"
 
+	dat += "<a href='byond://?src=[REF(src)];clothesplosion=1'>Explode out of clothes</A>"
+	dat	+=	"(Self-explanatory.)<BR>"
+
 	if(user.pulling)
 		dat	+= "<a href='byond://?src=[REF(src)];kiss=1'>Kiss [user.pulling]</A>"
 		dat	+=	"(Kiss a partner, or object.)<BR>"
@@ -127,6 +130,14 @@
 			to_chat(usr, "<span class='warning'>You aren't aroused enough for that! </span>")
 		return
 
+	if(href_list["clothesplosion"])
+		if (H.arousalloss >= (H.max_arousal / 100) * 33) //Requires 33% arousal.
+			H.clothesplosion()
+			return
+		else
+			to_chat(usr, "<span class='warning'>You aren't aroused enough for that! </span>")
+		return
+
 	if(href_list["climax"])
 		if (H.arousalloss >= (H.max_arousal / 100) * 33) //requires 33% arousal.
 			H.climaxalone(FALSE)
@@ -313,6 +324,8 @@ obj/screen/arousal/proc/kiss()
 		to_chat(src, "<span class='warning'>You cannot climax without choosing genitals.</span>")
 		return
 
+
+
 /mob/living/carbon/human/proc/climaxover(mob/living/T)
 
 	var/mob/living/carbon/human/L = T