From 759ca4979c5c13b6775d03dce2fcd93f8a75b2e6 Mon Sep 17 00:00:00 2001
From: ikarrus <ericgfwong@hotmail.com>
Date: Sun, 31 Aug 2014 16:49:36 -0600
Subject: [PATCH] Clones and Podmen will no longer be created with underwear
 already on.

---
 code/game/machinery/cloning.dm          | 2 ++
 code/modules/hydroponics/hydroponics.dm | 9 +++++++++
 2 files changed, 11 insertions(+)

diff --git a/code/game/machinery/cloning.dm b/code/game/machinery/cloning.dm
index ec9da16ba30..1102469ef1e 100644
--- a/code/game/machinery/cloning.dm
+++ b/code/game/machinery/cloning.dm
@@ -198,11 +198,13 @@
 	if(efficiency < 3 && prob(50))
 		randmutb(H)
 
+	//Clones will come out nude and unshaved, with messy hair
 	if(H.gender == MALE)
 		H.facial_hair_style = "Full Beard"
 	else
 		H.facial_hair_style = "Shaved"
 	H.hair_style = pick("Bedhead", "Bedhead 2", "Bedhead 3")
+	H.underwear = "Nude"
 
 	H.regenerate_icons()
 
diff --git a/code/modules/hydroponics/hydroponics.dm b/code/modules/hydroponics/hydroponics.dm
index 510dcc3c677..eecb4779991 100644
--- a/code/modules/hydroponics/hydroponics.dm
+++ b/code/modules/hydroponics/hydroponics.dm
@@ -839,6 +839,15 @@ obj/machinery/hydroponics/attackby(var/obj/item/O as obj, var/mob/user as mob)
 		//dna stuff
 		hardset_dna(podman, ui, se, null, null, null, !prob(potency) ? /datum/species/plant/pod : null, "#59CE00")	//makes sure podman has dna and sets the dna's ui/se/mutantrace/real_name etc variables
 
+		//Podmen will come out nude and unshaved, with messy hair
+		if(podman.gender == MALE)
+			podman.facial_hair_style = "Full Beard"
+		else
+			podman.facial_hair_style = "Shaved"
+		podman.hair_style = pick("Bedhead", "Bedhead 2", "Bedhead 3")
+		podman.underwear = "Nude"
+		podman.regenerate_icons()
+
 	else //else, one packet of seeds. maybe two
 		var/seed_count = 1
 		if(prob(getYield() * 20))