# underwear

!!gs 'underwear', 'dispose'
!!gs 'underwear', 'remove'
!!gs 'underwear', 'wear'
!!gs 'underwear', 'linen'
!!gs 'underwear', 'fresh'

if $ARGS[0] = 'dispose':
	gs 'panties', 'dispose'
	gs 'bras', 'dispose'
end

if $ARGS[0] = 'remove':
	if $pantyworntype = 'none':
		panty_none = 1
	else
		gs 'panties', 'remove'
	end
	if $braworntype = 'none':
		bra_none = 1
	else
		gs 'bras', 'remove'
	end
end

if $ARGS[0] = 'wear':
	if panty_none = 0: gs 'panties', 'wear'
	if bra_none = 0: gs 'bras', 'wear'
end

if $ARGS[0] = 'linen':
	if $pantyworntype = 'none':
		panty_none = 1
	else
		gs 'panties', 'linen'
	end
	if $braworntype = 'none':
		bra_none = 1
	else
		gs 'bras', 'linen'
	end
end

if $ARGS[0] = 'fresh':
	if panty_none = 0: gs 'panties', 'fresh'
	if bra_none = 0: gs 'bras', 'fresh'
end

if $ARGS[0] = 'dresser':
	'In your dresser you can sort through all your underwear. Much of it is just regular underwear but you can also own some distinct items.'
	'The distinct items are sorted into bras and panties and by the shop in which they were purchased. They must be picked here and automatic options will default to regular underwear.'
	*nl
	'The wear panties and bra options here are for the regular underwear, the large buttons for choosing unique items.'
	*nl
	'Your dresser contains <<clrbelo>> pairs of regular panties and <<clrbra>> of regular bras.'
	*nl
	*nl
	*nl
	*nl

	*p '<center><a href="exec:gt ''bras'', ''view_bra_list'', ''clean'', 6"><img src="images/system/icon/bra.png"></a>                               <a href="exec:gt ''panties'', ''view_panty_list'', ''clean'', 6"><img src="images/system/icon/panties.png"></a></center>'

	dynamic $wearpan
	dynamic $removepan

	act 'Return': gt $loc, $metka
end

if $ARGS[0] = 'cleaning':

	i = 1
	:loopboutiquepanties 
	if boutique_pantiesC[i] = 1: dynamic 'boutique_pantiesC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('boutique_panties'):jump 'loopboutiquepanties'

	i = 1
	:loopexhibitionistpanties
	if exhibitionist_pantiesC[i] = 1: dynamic 'exhibitionist_pantiesC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('exhibitionist_panties'):jump 'loopexhibitionistpanties'

	i = 1
	:loopfashionistapanties
	if fashionista_pantiesC[i] = 1: dynamic 'fashionista_pantiesC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('fashionista_panties'):jump 'loopfashionistapanties'

	i = 1
	:loopkatspanties
	if kats_pantiesC[i] = 1: dynamic 'kats_pantiesC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('kats_panties'):jump 'loopkatspanties'

	i = 1
	:loopsexshoppanties
	if sexshop_pantiesC[i] = 1: dynamic 'sexshop_pantiesC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('sexshop_panties'):jump 'loopsexshoppanties'

	i = 1
	:loopboutiquebras 
	if boutique_brasC[i] = 1: dynamic 'boutique_brasC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('boutique_bras'):jump 'loopboutiquebras'

	i = 1
	:loopexhibitionistbras 
	if exhibitionist_brasC[i] = 1: dynamic 'exhibitionist_brasC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('exhibitionist_bras'):jump 'loopexhibitionistbras'

	i = 1
	:loopfashionistabras 
	if fashionista_brasC[i] = 1: dynamic 'fashionista_brasC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('fashionista_bras'):jump 'loopfashionistabras'

	i = 1
	:loopkatsbras 
	if kats_brasC[i] = 1: dynamic 'kats_brasC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('kats_bras'):jump 'loopkatsbras'

	i = 1
	:loopsexshopbras 
	if sexshop_brasC[i] = 1: dynamic 'sexshop_brasC[<<i>>] -= 1'
	i += 1
	if i <= ARRSIZE('sexshop_bras'):jump 'loopsexshopbras'

	clrbelo += dirtbelo
	dirtbelo = 0
	washingbelo = 0
	clrbra += dirtbra
	dirtbra = 0
	washingbra = 0
end

--- underwear ---------------------------------