GS13NG/code/citadel/organs/genitals.dm

/obj/item/organ/genital
	color = "#fcccb3"
	var/shape = "human"
	var/sensitivity = 1
	var/list/genital_flags = list()
	var/can_masturbate_with = 0
	var/size = 2 //can vary between num or text, just used in icon_state strings
	var/fluid_id = null
	var/fluid_max_volume = 50
	var/fluid_efficiency = 1
	var/fluid_rate = 1
	var/fluid_mult = 1
	var/producing = FALSE
	var/aroused_state = FALSE //Boolean used in icon_state strings
	var/aroused_amount = 50 //This is a num from 0 to 100 for arousal percentage for when to use arousal state icons.

/obj/item/organ/genital/Initialize()
	. = ..()
	if(!reagents)
		create_reagents(fluid_max_volume)
	update()

/obj/item/organ/genital/Destroy()
	remove_ref()
	if(owner)
		Remove(owner, 1)//this should remove references to it, so it can be GCd correctly
	update_link()//this should remove any other links it has
	return ..()

/obj/item/organ/genital/proc/update()
	if(QDELETED(src))
		return
	update_size()
	update_appearance()
	update_link()

/obj/item/organ/genital/proc/update_size()

/obj/item/organ/genital/proc/update_appearance()

/obj/item/organ/genital/proc/update_link()

/obj/item/organ/genital/proc/remove_ref()

/obj/item/organ/genital/Insert(mob/living/carbon/M, special = 0)
	..()
	update()

/obj/item/organ/genital/Remove(mob/living/carbon/M, special = 0)
	..()
	update()

//proc to give a player their genitals and stuff when they log in
/mob/living/carbon/human/proc/give_genitals(clean=0)//clean will remove all pre-existing genitals. proc will then give them any genitals that are enabled in their DNA
	if (NOGENITALS in dna.species.species_traits)
		return
	if(clean)
		var/obj/item/organ/genital/GtoClean
		for(GtoClean in internal_organs)
			qdel(GtoClean)

	if(dna.features["has_cock"])
		give_penis()
		if(dna.features["has_balls"])
			give_balls()
	else if(dna.features["has_ovi"])
		give_ovipositor()
		if(dna.features["has_eggsack"])
			give_eggsack()
	if(dna.features["has_breasts"])
		give_breasts()
	if(dna.features["has_vag"])
		give_vagina()
		if(dna.features["has_womb"])
			give_womb()

/mob/living/carbon/human/proc/give_penis()
	if(!dna)
		return FALSE
	if(NOGENITALS in dna.species.species_traits)
		return FALSE
	if(!getorganslot("penis"))
		var/obj/item/organ/genital/penis/P = new
		P.Insert(src)
		if(P)
			if(dna.species.use_skintones && dna.features["genitals_use_skintone"])
				P.color = skintone2hex(skin_tone)
			else
				P.color = "#[dna.features["cock_color"]]"
			P.length = dna.features["cock_length"]
			P.girth_ratio = dna.features["cock_girth_ratio"]
			P.shape = dna.features["cock_shape"]
			P.update()

/mob/living/carbon/human/proc/give_balls()
	if(!dna)
		return FALSE
	if(NOGENITALS in dna.species.species_traits)
		return FALSE
	if(!getorganslot("testicles"))
		var/obj/item/organ/genital/testicles/T = new
		T.Insert(src)
//		if(dna.species.use_skintones && dna.features["genitals_use_skintone"])
//			T.color = skintone2hex(skin_tone)
//		else
//			T.color = "#[dna.features["balls_color"]]"
		if(T)
			T.size = dna.features["balls_size"]
			T.sack_size = dna.features["balls_sack_size"]
			T.fluid_id = dna.features["balls_fluid"]
			T.fluid_rate = dna.features["balls_cum_rate"]
			T.fluid_mult = dna.features["balls_cum_mult"]
			T.fluid_efficiency = dna.features["balls_efficiency"]
			T.update()

/mob/living/carbon/human/proc/give_breasts()
	if(!dna)
		return FALSE
	if(NOGENITALS in dna.species.species_traits)
		return FALSE
	if(!getorganslot("breasts"))
		var/obj/item/organ/genital/breasts/B = new
		B.Insert(src)
		if(B)
			if(dna.species.use_skintones && dna.features["genitals_use_skintone"])
				B.color = skintone2hex(skin_tone)
			else
				B.color = "#[dna.features["breasts_color"]]"
			B.size = dna.features["breasts_size"]
			B.shape = dna.features["breasts_shape"]
			B.fluid_id = dna.features["breasts_fluid"]
			B.update()


/mob/living/carbon/human/proc/give_ovipositor()
/mob/living/carbon/human/proc/give_eggsack()
/mob/living/carbon/human/proc/give_vagina()
	if(!dna)
		return FALSE
	if(NOGENITALS in dna.species.species_traits)
		return FALSE
	if(!getorganslot("vagina"))
		var/obj/item/organ/genital/vagina/V = new
		V.Insert(src)
		if(V)
			if(dna.species.use_skintones && dna.features["genitals_use_skintone"])
				V.color = skintone2hex(skin_tone)
			else
				V.color = "[dna.features["vag_color"]]"
			V.shape = "[dna.features["vag_shape"]]"
			V.update()

/mob/living/carbon/human/proc/give_womb()
	if(!dna)
		return FALSE
	if(NOGENITALS in dna.species.species_traits)
		return FALSE
	if(!getorganslot("womb"))
		var/obj/item/organ/genital/womb/W = new
		W.Insert(src)
		if(W)
			W.update()


/datum/species/proc/genitals_layertext(layer)
	switch(layer)
		if(GENITALS_BEHIND_LAYER)
			return "BEHIND"
		if(GENITALS_ADJ_LAYER)
			return "ADJ"
		if(GENITALS_FRONT_LAYER)
			return "FRONT"

//procs to handle sprite overlays being applied to humans

/obj/item/equipped(mob/user, slot)
	if(ishuman(user))
		var/mob/living/carbon/human/H = user
		H.update_genitals()
	..()

/mob/living/carbon/human/doUnEquip(obj/item/I, force)
	. = ..()
	if(!.)
		return
	update_genitals()

/mob/living/carbon/human/proc/update_genitals()
	if(src && !QDELETED(src))
		dna.species.handle_genitals(src)

/datum/species/proc/handle_genitals(mob/living/carbon/human/H)
	if(!H)//no args
		CRASH("H = null")
	if(!LAZYLEN(H.internal_organs))//if they have no organs, we're done
		return
	if(NOGENITALS in species_traits)//golems and such
		return

	var/list/genitals_to_add = list()
	var/list/relevant_layers = list(GENITALS_BEHIND_LAYER, GENITALS_ADJ_LAYER, GENITALS_FRONT_LAYER)
	var/list/standing = list()
	var/size = null

	for(var/L in relevant_layers) //Less hardcode
		H.remove_overlay(L)

	if(H.disabilities & HUSK)
		return
	//start scanning for genitals
	var/list/worn_stuff = H.get_equipped_items()//cache this list so it's not built again
	if(H.is_groin_exposed(worn_stuff))
		//ORDER is important here. Vaginas first, theoretical testes after, and penis LAST.
		//The latter is always drawn on top of the former.
		if(H.has_vagina())
			genitals_to_add += H.getorganslot("vagina")
		if(H.has_penis())
			genitals_to_add += H.getorganslot("penis")
	if(H.is_chest_exposed(worn_stuff))
		if(H.has_breasts())
			genitals_to_add += H.getorganslot("breasts")
	var/image/I
	//start applying overlays
	for(var/layer in relevant_layers)
		var/layertext = genitals_layertext(layer)
		for(var/obj/item/organ/genital/G in genitals_to_add)
			var/datum/sprite_accessory/S
			size = G.size
			switch(G.type)
				if(/obj/item/organ/genital/penis)
					S = GLOB.cock_shapes_list[G.shape]
				if(/obj/item/organ/genital/vagina)
					S = GLOB.vagina_shapes_list[G.shape]
				if(/obj/item/organ/genital/breasts)
					S = GLOB.breasts_shapes_list[G.shape]

			if(!S || S.icon_state == "none")
				continue
			var/icon_string
			if(S.alt_aroused)
				G.aroused_state = H.isPercentAroused(G.aroused_amount)
			else
				G.aroused_state = FALSE
			icon_string = "[G.slot]_[S.icon_state]_[size]_[G.aroused_state]_[layertext]"
			I = image("icon" = S.icon, "icon_state" = icon_string, "layer" =- layer)
			if(S.center)
				I = center_image(I,S.dimension_x,S.dimension_y)
			if(use_skintones && H.dna.features["genitals_use_skintone"])
				I.color = "#[skintone2hex(H.skin_tone)]"
			else
				switch(S.color_src)
					if("cock_color")
						I.color = "#[H.dna.features["cock_color"]]"
					if("breasts_color")
						I.color = "#[H.dna.features["breasts_color"]]"
					if("vag_color")
						I.color = "#[H.dna.features["vag_color"]]"
					if(MUTCOLORS)
						if(fixed_mut_color)
							I.color = "#[fixed_mut_color]"
						else
							I.color = "#[H.dna.features["mcolor"]]"
					if(MUTCOLORS2)
						if(fixed_mut_color2)
							I.color = "#[fixed_mut_color2]"
						else
							I.color = "#[H.dna.features["mcolor2"]]"
					if(MUTCOLORS3)
						if(fixed_mut_color3)
							I.color = "#[fixed_mut_color3]"
						else
							I.color = "#[H.dna.features["mcolor3"]]"
			standing += I
		if(LAZYLEN(standing))
			H.overlays_standing[layer] = standing.Copy()
			standing = list()

	for(var/L in relevant_layers)
		H.apply_overlay(L)