Fix for belly_visibility

Inflation added
cleanup of warnings
Fixed arousal hud genital visibility menu

code/modules/arousal/arousal.dm

@@ -429,7 +429,6 @@
 							else
 								to_chat(L, "<span class='userlove'>You feel your belly strain.</span>")
 
-				var/obj/item/organ/genital/penis/P = G
 				fluid_source.trans_to(L, total_fluids)
 				total_fluids = 0
 				if(!remote)
@@ -719,8 +718,8 @@
 				if(picked_organ)
 					var/mob/living/partner = pick_partner() //Get someone
 					if(partner)
+						/*GS13 Port - De we need breeding? For now disable it for inital porting
 						var/obj/item/organ/genital/penis/P = picked_organ
-						/*GS13 Port - De we need breeding?
 						if(partner.breedable == 1 && picked_organ.name == "penis")
 							var/impreg = input(src, "Would this action carry the risk of pregnancy?", "Choose a option", "Yes") as anything in list("Yes", "No")
 							if(impreg == "Yes") //If we are impregging

code/modules/arousal/genitals.dm

@@ -28,7 +28,7 @@
 	var/internal				= FALSE
 	var/hidden					= FALSE
 	var/colourtint				= ""
-	var/mode					= "clothes"
+	var/mode					= ""
 	var/obj/item/equipment 		//for fun stuff that goes on the gentials/maybe rings down the line
 	var/dontlist				= FALSE
 	var/nochange				= FALSE //stops people changing visablity.
@@ -107,17 +107,21 @@
 			if(owner)
 				owner.log_message("Exposed their [src]",LOG_EMOTE)
 				owner.exposed_genitals += src
+			mode = GEN_VISIBLE_ALWAYS
 		if(GEN_VISIBLE_NO_CLOTHES)
 			if(owner)
 				owner.log_message("Hid their [src] under clothes only",LOG_EMOTE)
+			mode = GEN_VISIBLE_NO_CLOTHES
 		if(GEN_VISIBLE_NO_UNDIES)
 			genital_flags |= GENITAL_UNDIES_HIDDEN
 			if(owner)
 				owner.log_message("Hid their [src] under underwear",LOG_EMOTE)
+			mode = GEN_VISIBLE_NO_UNDIES
 		if(GEN_VISIBLE_NEVER)
 			genital_flags |= GENITAL_HIDDEN
 			if(owner)
 				owner.log_message("Hid their [src] completely",LOG_EMOTE)
+			mode = GEN_VISIBLE_NEVER
 
 	if(update && owner && ishuman(owner)) //recast to use update genitals proc
 		var/mob/living/carbon/human/H = owner