/obj/structure/undies_wardrobe
	name = "underwear dresser"
	desc = "Holds item of clothing you shouldn't be showing off in the hallways."
	icon = 'icons/obj/closets/undies_wardrobe.dmi'
	icon_state = "wardrobe"
	density = TRUE

/obj/structure/undies_wardrobe/attack_hand(var/mob/user)
	if(!human_who_can_use_underwear(user))
		to_chat(user, span_warning("Sadly there's nothing in here for you to wear."))
		return
	interact(user)

/obj/structure/undies_wardrobe/interact(var/mob/living/carbon/human/H)
	var/dat = list()
	dat += span_bold("Underwear:") + "<br>"
	for(var/datum/category_group/underwear/UWC in global_underwear.categories)
		var/datum/category_item/underwear/UWI = H.all_underwear[UWC.name]
		var/item_name = UWI ? UWI.name : "None"
		dat += "[UWC.name]: <a href='byond://?src=\ref[src];change_underwear=[UWC.name]'>[item_name]</a>"
		if(UWI)
			for(var/datum/gear_tweak/gt in UWI.tweaks)
				dat += " <a href='byond://?src=\ref[src];underwear=[UWC.name];tweak=\ref[gt]'>[gt.get_contents(get_metadata(H, UWC.name, gt))]</a>"
		dat += " <a href='byond://?src=\ref[src];remove_underwear=[UWC.name]'>(Remove)</a><br>"

	dat = jointext(dat,null)
	H << browse(dat, "window=wardrobe;size=400x200")

/obj/structure/undies_wardrobe/proc/get_metadata(var/mob/living/carbon/human/H, var/underwear_category, var/datum/gear_tweak/gt)
	var/metadata = H.all_underwear_metadata[underwear_category]
	if(!metadata)
		metadata = list()
		H.all_underwear_metadata[underwear_category] = metadata

	var/tweak_data = metadata["[gt]"]
	if(!tweak_data)
		tweak_data = gt.get_default()
		metadata["[gt]"] = tweak_data
	return tweak_data

/obj/structure/undies_wardrobe/proc/set_metadata(var/mob/living/carbon/human/H, var/underwear_category, var/datum/gear_tweak/gt, var/new_metadata)
	var/list/metadata = H.all_underwear_metadata[underwear_category]
	metadata["[gt]"] = new_metadata

/obj/structure/undies_wardrobe/proc/human_who_can_use_underwear(var/mob/living/carbon/human/H)
	if(!istype(H) || !H.species || !(H.species.appearance_flags & HAS_UNDERWEAR))
		return FALSE
	return TRUE

/obj/structure/undies_wardrobe/CanUseTopic(var/user)
	if(!human_who_can_use_underwear(user))
		return STATUS_CLOSE

	return ..()

/obj/structure/undies_wardrobe/Topic(href, href_list, state)
	if(..())
		return TRUE

	var/mob/living/carbon/human/H = usr
	if(href_list["remove_underwear"])
		if(href_list["remove_underwear"] in H.all_underwear)
			H.all_underwear -= href_list["remove_underwear"]
			. = TRUE
	else if(href_list["change_underwear"])
		var/datum/category_group/underwear/UWC = global_underwear.categories_by_name[href_list["change_underwear"]]
		if(!UWC)
			return
		var/datum/category_item/underwear/selected_underwear = tgui_input_list(H, "Choose underwear:", "Choose underwear", UWC.items, H.all_underwear[UWC.name])
		if(selected_underwear && CanUseTopic(H, GLOB.tgui_default_state))
			H.all_underwear[UWC.name] = selected_underwear
			H.hide_underwear[UWC.name] = FALSE
			. = TRUE
	else if(href_list["underwear"] && href_list["tweak"])
		var/underwear = href_list["underwear"]
		if(!(underwear in H.all_underwear))
			return
		var/datum/gear_tweak/gt = locate(href_list["tweak"])
		if(!gt)
			return
		var/new_metadata = gt.get_metadata(usr, get_metadata(H, underwear, gt), "Wardrobe Underwear Selection")
		if(new_metadata)
			set_metadata(H, underwear, gt, new_metadata)
			H.hide_underwear[underwear] = FALSE
			. = TRUE

	if(.)
		H.update_underwear()
		interact(H)