# moncheri
!!2022/06/08

if $ARGS[0] = 'start':
	killvar 'clothingfilter'
	$loc_arg = $ARGS[0]
	$loc = 'moncheri'
    $location_type = 'public_indoors'
	$menu_loc = 'moncheri'
	$menu_arg = 'start'
	menu_off = 0
	*clr & cla

	gs 'stat'
	gs 'themes', 'indoors'
	'<center><b><font color="maroon">Mon Chéri</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/boutique/butik.jpg"></center>'
	*nl
	'You''re inside the boutique only a few seconds before a tall, slender brunette woman saunters up to you. Everything about her is poised and perfect, from the beautiful silver dress she''s wearing to her unblemished skin and pearly white teeth. "Welcome to Mon Chéri, dear. We sell only the most beautifully luxurious items here. Come, take a look! You won''t be disappointed," she smiles as she ushers you further inside with a small flourish. Everything in the boutique is high-end, definitely not for the average shopper, but the items on display are simply stunning.'
	*nl
	if RimmaSex > 0:
		if rimmaday ! daystart:
			'<a href="exec:gt ''RimmaSexQW''">Rima</a> smiles at you. She bites her lip and looks longingly in your direction.'
		else
			'Rima smiles at you and continues to do her business.'
		end
	end

	'The boutique sells designer winter coats, formal clothing, beautiful shoes and exquisite handbags.'

	act 'Leave the boutique': minut += 3 & gt 'torgcentr'

	act 'View shoes': minut += 5 & gt 'moncheri', 'shoes'

	act 'View purses': minut += 5 & gt 'moncheri', 'purses'

	act 'View coats': minut += 5 & gt 'moncheri', 'coats'

	if $pantyworntype ! 'none':
		act 'Enter changing room (strip to underwear)':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/underwear.jpg"</center>'
			gs 'clothing', 'strip'
			changingroom_underwear = 1
			gs 'moncheri', 'changingroom', 1
		end
	end

	act 'Enter changing room (strip naked)':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/nude.jpg"</center>'
		gs 'clothing', 'strip_all'
		gs 'moncheri', 'changingroom', 1
	end
	
	if rand(1, 100) >= 80 and pcs_skin >= 20 and lesbiQW = 0:
		'In the boutique you see a stylish and slender woman, about forty years old.'

		act 'Stare at the woman':gt 'event', 'lesbi'
	end
end

if $ARGS[0] = 'changingroom':
	$locclass = 'changingroom'
	$loc_arg = 'changingroom'
	$loc = 'moncheri'
	$menu_loc = 'moncheri'
	$menu_arg = 'changingroom'
	gs 'stat'
	menu_off = 0

	if $ARGS[1] = '':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/changingroom.jpg"</center>'
		'You are in the changing rooms in Mon Chéri with several outfits available to try on.'
	else
		'As you walk through the store you notice that there''s nobody in the changing rooms. Feeling a bit bored, you go look at some clothes and grab several items to try on before heading into one of the changing rooms.'
	end
	*nl

	gs 'shortgs', 'clothing_state'
	act 'Try on dresses': gt 'moncheri', 'dresses'
	act 'Try on gowns': gt 'moncheri', 'gowns'
	act 'try on bodysuits': gt 'moncheri', 'bodysuit'
	if $pantyworntype = 'none':
		act 'Put on underwear':
			gs 'underwear', 'wear'
			gt 'moncheri', 'changingroom'
		end
	end
	if $pantyworntype ! 'none':
		act 'Get naked':
			gs 'clothing', 'strip_all'
			gt 'moncheri', 'changingroom'
		end
	end
	act 'Get dressed and go back to the store': gt 'moncheri', 'changingend'
end

if $ARGS[0] = 'changingend':
	!! Sveta dresses again
	if changingroom_underwear = 1:
		changingroom_underwear = 0
	else
		gs 'underwear', 'wear'
	end
	gs 'clothing', 'wear_last_worn'
	gt 'moncheri', 'start'
end


if $ARGS[0] = 'gowns':
	$loc_arg = 'gowns'
	$loc = 'moncheri'
	$menu_loc = 'moncheri'
	$menu_arg = 'gowns'
	menu_off = 0
	*clr & cla
	gs'stat'
	'<center><b><font color="maroon">Viewing Mon Chéri outfits</font></b></center>'
	*nl

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'moncheri_gown'

	act 'Return': minut += 1 & gt 'moncheri', 'changingroom'

	!!To filter just this set
	clo_i = 0
	:loopmoncheri_gown_filter

		if Clothingstock > 7:
			i = 1
		elseif Clothingstock > 15:
			i = 2
		else
			i = 3
		end

		:loopmoncheri_gown
			if moncheri_gown[i] = 0:
				gs 'clothing_attributes', 'moncheri_gown', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''moncheri'', ''moncheri_gown''"><img src="images/pc/items/moncheri/gown/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 3
		if i <= total:jump 'loopmoncheri_gown'

	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7:
		jump 'loopmoncheri_gown_filter'
	elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopmoncheri_gown_filter'
	end
end

if $ARGS[0] = 'moncheri_gown':gt 'clothing', 'view_clothing_item', 'moncheri_gown',i, 20000, 'shop'

if $ARGS[0] = 'dresses':
	$loc_arg = 'dresses'
	$loc = 'moncheri'
	$menu_loc = 'moncheri'
	$menu_arg = 'dresses'
	menu_off = 0
	*clr & cla
	gs'stat'
	'<center><b><font color="maroon">Viewing Mon Chéri outfits</font></b></center>'
	*nl

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'moncheri_dress'

	act 'Return': minut += 1 & gt 'moncheri', 'changingroom'

	!!To filter just this set
	clo_i = 0
	:loopmoncheri_dress_filter

		if Clothingstock > 11:
			i = 1
		else
			i = 2
		end

		:loopmoncheri_dress
			if moncheri_dress[i] = 0:
				gs 'clothing_attributes', 'moncheri_dress', i
				gs 'clothing_QV', 'shop_filter'

				!!sort by filter
				if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
					if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1: *p '<a href="exec: i = <<i>> & gt ''moncheri'', ''moncheri_dress''"><img src="images/pc/items/moncheri/dress/<<i>>.jpg" 	height="250" /></a>'
				end
			end
			i += 2
		if i <= total:jump 'loopmoncheri_dress'

	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7:
		jump 'loopmoncheri_dress_filter'
	elseif clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopmoncheri_dress_filter'
	end
end

if $ARGS[0] = 'moncheri_dress': gt 'clothing', 'view_clothing_item', 'moncheri_dress',i, 20000, 'shop'

if $ARGS[0] = 'bodysuit':
	$loc_arg = 'bodysuit'
	$loc = 'moncheri'
	$menu_loc = 'moncheri'
	$menu_arg = 'bodysuit'
	menu_off = 0
	*clr & cla
	gs'stat'

	gs 'underwear_bodysuits', 'shop_filter_header'

	act 'Return': minut += 1 & gt 'moncheri', 'changingroom'

	!!To filter just this set
	clo_i = 0
	:loopbodysuitquality_filter

		i = 1

		:loopmoncheri_bodysuit
			if moncheri_bodysuits[i] = 0:
				gs 'underwear_attributes', 'moncheri_bodysuits', i
				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''moncheri'', ''bodysuit2''"><img src="images/pc/items/moncheri/bodysuits/<<i>>.jpg" 	height="250" /></a> '
				end
			end
		i += 1
		if i <= 50:jump 'loopmoncheri_bodysuit'
	clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbodysuitquality_filter'
	end
end

if $ARGS[0] = 'bodysuit2':
	cla
	menu_off = 1

	gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'moncheri',i, 2000

end

if $ARGS[0] = 'shoes':
	$loc_arg = $ARGS[0]
	$loc = 'moncheri'
	$menu_loc = 'moncheri'
	$menu_arg = 'shoes'
	menu_off = 0
	*clr & cla
	gs'stat'
	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
	*nl

	gs 'shoes', 'shop_filter_header'

	act 'Return': minut += 1 & gt 'moncheri', 'start'

	!!To filter just this set
	clo_i = 0
	:loopshoequality_filter

		i = 1

		:loopmoncheri_shoes
			if moncheri_shoe[i] = 0:
				gs 'shoe_attributes', 'moncheri', i
				gs 'shoes', 'shoe_filter'
				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
						*p '<a href="exec: i = <<i>> & gt ''moncheri'', ''moncheri_shoes''"><img src="images/pc/items/moncheri/shoes/<<i>>.jpg" height="250" /></a>'
					end
				end
			end
			i += 1
		if i <= 140:jump 'loopmoncheri_shoes'

	clo_i += 1
	if Shofilter['quality'] = 0 and clo_i <= 7:
		jump 'loopshoequality_filter'
	end
end

if $ARGS[0] = 'moncheri_shoes':	gt 'shoes', 'view_shoe_item', 'shop', 'moncheri',i, 5000

if $ARGS[0] = 'purses':
	$loc_arg = 'purses'
	$loc = 'moncheri'
	$menu_loc = 'moncheri'
	$menu_arg = 'purses'
	menu_off = 0
	*clr & cla
	gs'stat'

	act 'Return': minut += 1 & gt 'moncheri', 'start'

	i = 1

	:loopmoncheri_purses
		if moncheri_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''moncheri'', ''purses2''"><img src="images/pc/items/moncheri/purses/<<i>>.jpg" 	height="150" /></a> '
		i += 1
	if i <= 40:jump 'loopmoncheri_purses'
end

if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'moncheri',i, 4000

if $ARGS[0] = 'coats':
	$loc_arg = 'coats'
	$loc = 'moncheri'
	$menu_loc = 'moncheri'
	$menu_arg = 'coats'
	menu_off = 0
	*clr & cla
	gs'stat'

	act 'Return': minut += 1 & gt 'moncheri', 'start'

	i = 1

	:loopmoncheri_coats
		if moncheri_coats[i] = 0:*p '<a href="exec: i = <<i>> & gt ''moncheri'', ''coats2''"><img src="images/pc/items/moncheri/coats/<<i>>.jpg" 	height="250" /></a> '
		i += 1
	if i <= 20:jump 'loopmoncheri_coats'
end

if $ARGS[0] = 'coats2': gt 'coats', 'view_coat_item', 'shop', 'moncheri',i, 4000

--- moncheri ---------------------------------

