glife/locations/shop_exhibitionist.qsrc

# shop_exhibitionist
!!2022/03/12

if $ARGS[0] = 'start':
	CLOSE ALL
	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'start'
	$location_type = 'public_indoors'
	menu_off = 0
	if exhibitionQW = 3: exhibitionQW = 4
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Simply Salacious</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/pushkin/exhibitshop/shop.jpg"></center>'
	'A shop in the most modern style who''s clothing is all very revealing and not nearly as classy as the store itself.'

	if hypnoClothes = 1 and exhibitionQW = 4:
		act 'Look for Ksenya': gt 'shop_exhibitionist', 'ksenya_intro'
	end
	if exhibitionQW = 5 and daystart => exhibitionQW['daystart'] + 3 and ksenyaQW >= 3:
		if rand(1, 2) = 1: gt 'shop_exhibitionist', 'ksenya_date'
	end
	if exhibitionQW = 5 and exhibitionQW['daystart'] ! daystart:
		if ksenyaQW = 2:
			act 'ask to see Ksenya': gt 'shop_exhibitionist', 'ksenya_shop'
		else
			act 'Talk to Ksenya': gt 'shop_exhibitionist', 'ksenya_chat'
		end
	end

	act 'Leave': minut += 5 & gt 'pushkin_sq'

	if hour >= 18:
		*nl
		'The shop is closing and you have to leave.'
		exit
	end

	act 'View outfits': minut += 5 & gt 'shop_exhibitionist', 'outfits'
	act 'View dresses': minut += 5 & gt 'shop_exhibitionist', 'dresses'
	act 'View panties': minut += 5 & gt 'shop_exhibitionist', 'panties'
	act 'View bras': minut += 5 & gt 'shop_exhibitionist', 'bras'
	act 'View bodysuits': minut += 5 & gt 'shop_exhibitionist', 'bodysuit'
end


if $ARGS[0] = 'outfits':
	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'outfits'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Salacious outfits</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'salacious_outfits'

	!!To filter just this set
	clo_i = 0
	:loopsalacious_outfits_filter
		i = 1
		:loopsalacious_outfits
			if salacious_outfits[i] = 0:
				gs 'clothing_attributes', 'salacious_outfits', 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 ''shop_exhibitionist'', ''salacious_outfits''"><img <<$set_imgh>> src="images/pc/items/salacious/outfits/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 1
		if i <= total: jump 'loopsalacious_outfits'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopsalacious_outfits_filter'
	end
end

if $ARGS[0] = 'salacious_outfits': gt 'clothing', 'view_clothing_item', 'salacious_outfits', i, 1000, 'shop'

if $ARGS[0] = 'dresses':
	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'dresses'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Salacious dresses</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'salacious_dress'

	!!To filter just this set
	clo_i = 0
	:loopsalacious_dress_filter
		i = 1 + Clothingstock mod 2
		:loopsalacious_dress
			if salacious_dress[i] = 0:
				gs 'clothing_attributes', 'salacious_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 ''shop_exhibitionist'', ''salacious_dress''"><img <<$set_imgh>> src="images/pc/items/salacious/dress/<<i>>.jpg"	 height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'loopsalacious_dress'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'loopsalacious_dress_filter'
	end
end

if $ARGS[0] = 'salacious_dress': gt 'clothing', 'view_clothing_item', 'salacious_dress', i, 1000, 'shop'

if $ARGS[0] = 'panties':
	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'panties'
	menu_off = 0
	gs 'stat'

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

	gs 'panties', 'shop_filter_header'
	gs 'panties', 'totals', 'salacious_panties'

	!!To filter just this set
	clo_i = 0
	:looppantyquality_filter
		i = 1 + (Clothingstock / 2) mod 2
		:loopsalacious_panties
			if salacious_panties[i] = 0:
				gs 'underwear_attributes', 'salacious_panties', i
				if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_exhibitionist'', ''panties2''"><img src="images/pc/items/salacious/panties/<<i>>.jpg" height="150" /></a> '
				end
			end
			i += 2
		if i <= total: jump 'loopsalacious_panties'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'looppantyquality_filter'
	end
end

if $ARGS[0] = 'panties2':
	if salacious_panties[i] ! 0:
		msg 'You already own these panties.'
		gt 'shop_exhibitionist', 'panties'
	end

	gt 'panties', 'view_panty_item', 'shop', 'salacious', i, 600
end

if $ARGS[0] = 'bras':
	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'bras'
	menu_off = 0
	gs 'stat'

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

	gs 'bras', 'shop_filter_header'
	gs 'bras', 'totals', 'salacious_bras'

	!!To filter just this set
	clo_i = 0
	:loopbraquality_filter
		i = 1 + (Clothingstock / 4) mod 2
		:loopsalacious_bras
			if salacious_bras[i] = 0:
				gs 'underwear_attributes', 'salacious_bras', i
				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_exhibitionist'', ''bras2''"><img src="images/pc/items/salacious/bras/<<i>>.jpg" height="150" /></a> '
				end
			end
			i += 2
		if i <= total: jump 'loopsalacious_bras'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbraquality_filter'
	end
end

if $ARGS[0] = 'bras2':
	if salacious_bras[i] ! 0:
		msg 'You already own these bras.'
		gt 'shop_exhibitionist', 'bras'
	end

	gt 'bras', 'view_bra_item', 'shop', 'salacious', i, 600
end

if $ARGS[0] = 'bodysuit':
	gs 'shortgs', 'setloc', 'shop_exhibitionist', 'bodysuit'
	menu_off = 0
	gs 'stat'

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

	gs 'underwear_bodysuits', 'shop_filter_header'
	gs 'underwear_bodysuits', 'totals', 'salacious_bodysuits'

	!!To filter just this set
	clo_i = 0
	:loopbodysuitquality_filter
		i = 1
		:loopsalacious_bodysuit
			if salacious_bodysuits[i] = 0:
				gs 'underwear_attributes', 'salacious_bodysuits', i
				if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
					*p '<a href="exec: i = <<i>> & gt ''shop_exhibitionist'', ''bodysuit2''"><img src="images/pc/items/salacious/bodysuits/<<i>>.jpg"	 height="250" /></a> '
				end
			end
			i += 1
		if i <= 40: jump 'loopsalacious_bodysuit'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 6:
		jump 'loopbodysuitquality_filter'
	end
end

if $ARGS[0] = 'bodysuit2': gt 'underwear_bodysuits', 'view_bodysuit_item', 'shop', 'salacious', i, 1000




	!!================================================!!
	!!                                                !!
	!!                     EVENTS                     !!
	!!                                                !!
	!!================================================!!


if $ARGS[0] = 'ksenya_intro':
	exhibitionQW = 5
	exhibitionQW['daystart'] = daystart
	gs 'willpower', 'misc', 'force', 'hard'
	minut += 2
	menu_off = 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya7.jpg"></center>'
	'"Hello? I''m looking for Ksenya, is she around?"'
	'The cashier nods. "Yes, follow me," she says, leading you to the back of the store.'
	'"Miss Ksenya? You have a visitor" The cashier takes you into the break room that looks really comfortable. Large double-pane windows that look out on the back patio. She stands up and comes over to give you a hug. "Hey <<$pcs_firstname>>, what can I do for you?"'
	'"I was wondering if you had school uniforms? My therapist told me that you might have some in your shop." You said.'
	'"The one in town?" She asks.'
	'"Yes? Do you know him?" You replied.'
	'She sighs. "Yes, that''s my father. He''s asked me to keep them in stock for some reason" she admits. "If we don''t have one right now, check back in a few days and we might have one" she offers. "Tell me, has" she pauses "anything changed recently?" she asks. "Like has anything recently been different, wearing things you haven''t before? doing things you don''t normally haven''t been doing?" she questions.'
	'You take a moment to think about things.'

	act 'No':
		*clr & cla

		'<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya8.jpg"></center>'
		'"No? Why?" you ask.'
		'"No reason, sorry. If you ever want to hang out, just stop by the shop and we can chat." She says as she walks you back to the front of the store.'

		act 'Continue': gt 'shop_exhibitionist', 'start'
	end
	if pcs_willpwr < will_cost:
		act 'Yes (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	else
		act 'Yes (<<will_cost>> Willpower)':
			gs 'willpower', 'pay', 'hard'
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya8.jpg"></center>'
			'In response, you reply, "Yes?" I no longer like wearing underwear. "Are you referring to that?" you inquire.'
			'"Is he doing hypnosis with you?" You nod your head. She informs you, "I think you may be in trouble if you continue seeing him."'
			'"Nothing has happened to me that I am aware of." You assure her'
			'"I trust you, but please let me know if anything happens. My father is not trustworthy, so please be careful. She walks you out of the shop after giving you a hug. If you ever want to talk to me, please come see me." She says as she walks you back to the front of the store.'
			act 'Continue': gt 'shop_exhibitionist', 'start'
		end
	end
end

if $ARGS[0] = 'ksenya_chat':
	exhibitionQW['daystart'] = daystart
	npc_rel['A263'] += 1
	minut += 60
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya9.jpg"></center>'
	'You meet up with Ksenya at her shop and spend the next hour talking about random things. About flashing, clothing, and just everyday stuff.'

	act 'Continue': gt 'shop_exhibitionist', 'start'
end

if $ARGS[0] = 'ksenya_date':
	'<center><b><font color="maroon">Simply Salacious</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/pushkin/exhibitshop/shop.jpg"></center>'
	'You walk into the exhibitionist shop and see Ksenya behind the counter. She walks over to you and gives you a big hug. "<<$pcs_nickname>>, how are you, love?" she asks before giving you a quick kiss on your lips.'
	'"I''m OK," you say, returning the kiss.'
	'"What brings you here today? Looking for new clothes?" she asks.'

	act 'Ask her out':
		*clr & cla
		npc_rel['A263'] += 2

		'<center><img <<$set_imgh>> src="images/locations/shared/park/ksenya/ksenya8.jpg"></center>'
		'"Not today. I wanted to see if you wanted to go see a movie or something?" you ask.'
		'"Oh, like a date?" she asks and gives you another hug. "I would love to! Let me close up the shop," she says and moves behind the counter to turn off the ''Open'' sign and places a ''Be Back Later'' sign on the door.'

		act 'Wait for Ksenya':
			*clr & cla
			npc_rel['A263'] += 2

			'The two of you get into her Ferrari and drive to the local cinema. The two of you spend a few moments in her car kissing before you head into the theatre.'

			$orgasm_or = 'no'
			gs 'arousal', 'kiss', 5, 'lesbian'
			gs 'stat'

			act 'take a seat':
				*clr & cla
				minut += 20

				'You both get some snacks before taking your seats. It''s dark when the movie starts and the theatre is empty. The adverts haven''t even finished before she pulls you to her and you cuddle and kiss a little, touching each other and stealing kisses throughout the movie.'

				gs 'arousal', 'kiss', 10, 'lesbian'
				gs 'stat'

				act 'make out':
					*clr & cla
					'You''re ignoring the movie at this point and are just making out. She has her hand under your clothes, groping your chest, and kissing your neck. This is turning you on. She fondles your breasts and it makes you moan out loud. When you try to touch her, she stops you. "Not right now; this is for you." she whispers into your ear and pushes her tongue into your mouth.'

					gs 'arousal', 'foreplay', 10, 'lesbian'
					gs 'stat'

					act 'let her eat you out':
						*clr & cla
						'By now, she has removed most of your clothes and she is between your legs, eating you out. You are glad you are alone in the movie theatre as Ksenya''s tongue is making you moan out loudly. You''re unable to orgasm, as before you can, the lights of the theatre come up and she helps you dress and you weakly exit the theatre.'

						gs 'arousal', 'cuni', 10, 'lesbian'
						gs 'stat'

						act 'go back to her car':
							*clr & cla
							'She drives to a secluded area and gets on top of you, pushing your seat back and quickly removes her clothes and yours. She hastily grabs your breasts and suckles on your nipples.'
							if lactation['active'] >= 1: '"Mmm, you have milk? It''s tasty!" she says and spends a moment on your nipples, drinking your sweet milk. "I may partake in this more often," she says and goes back to your nipples.'
							'She spends a few more minutes on your nipples before pulling back and going to your lips and moving a leg between yours and one of yours between hers and both of you start to grind on each other.'

							$orgasm_txt = 'This only lasts a few minutes before you orgasm from all her teasing back in the theatre. She doesn''t stop as she rides your leg until she orgasms herself.'
							$orgasm_or = 'yes'
							gs 'arousal', 'foreplay', 10, 'lesbian'
							gs 'arousal', 'end'
							gs 'stat'

							act 'relax':
								*clr & cla
								minut += 15

								'You lay there under her for a while and the two of you relax in each others arms.'
								'"<<$pcs_nickname>>, that was amazing!" she says, kissing you sweetly. "I hope we can do this again soon," she says without pulling back, not wanting to part from you.'
								'"I''d like that," you reply, running a hand through her hair.'
								'"But I need to get back to the store. Is there any place you want me to drop you off?" she asks as she slowly gets up and starts to get dressed in the cramped room of the car.'
								'As you pull your clothes on, you tell her, "I''d like you to drop me off at..."'

								act 'Pavlovsk Residential':gt 'pav_residential'
								act 'Pavlovsk Industrial':gt 'pav_industrial'
								act 'Pavlovsk commercial':gt 'pav_commercial'
								act 'Five Eight Estate':gt 'pav_complex','start'
							end
						end
					end
				end
			end
		end
		act 'Run': gt 'pushkin_sq' & npc_rel['A263'] -= 5
	end
	act 'Leave': gt 'pushkin_sq'
end

if $ARGS[0] = 'ksenya_shop':
	KsenyaQW = 3
	'<center><img <<$set_imgh>> src="images/characters/pushkin/ksenya/shop1.jpg"></center>'
	'You are taken to Ksenya''s office and it is open a crack and you look inside. You see her sitting on a chair looking back at you.'
	'"Hey <<$pcs_nickname>>, Come in, Come in. What do I owe the pleasure?" she asks and closes the door to her office behind you after which she hugs you gently.'

	act 'continue':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/characters/pushkin/ksenya/shop2.jpg"></center>'
		'"I wanna ask about what happened at the lake. Was that... for me?" you ask blushing.'
		'"Which part?" she asks sitting on the edge of that same chair. She doesn''t seem that bothered by being seen in her underwear.'
		'"The... flashing part when you saw me" you say without making eye contact.'
		'"Maybe" she teases.'

		act 'continue':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/characters/pushkin/ksenya/shop3.jpg"></center>'
			'"Did you like what you saw?" she asks.'
			'You look at her as she teases removing her bra. "I did, I think you are very beautiful." you tell her.'
			'"Would you like to be my girlfriend?" she asks bluntly.'
			'This shocks you a bit. "What?" you ask'
			'"You are the closest thing I have to a friend, and I want you to be my girlfriend" she repeats.'

			act 'Sure':
				*clr & cla
				!!Should there be a variable here??

				'<center><video autoplay loop src="images/shared/sex/kiss/kiss_lips.mp4"></video></center>'
				'She walks over to you and gives you a gentle hug. She moves a hand to your hair and moves it behind your ear before leaning in and kissing you. The kiss lingers for a bit before she pulls back. Before anything can be done further, a knock is heard on her office door and a voice says. "Miss?! You''re needed in the store."'
				'"Be right there" she says and turns back to you. "I''ll see you later" she says and her hand slowly rubs your cheek as she walks away from you, leaving you alone in her office. After you collect your bearings, you leave and see her arguing with a customer as you exit the store.'

				act 'Leave the store': gt 'pushkin_sq'
			end
			act 'No thanks':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/characters/pushkin/ksenya/shop4.jpg"></center>'
				'"I''m sorry Ksenya, this is moving too fast. I don''t think I''m ready for that right now" you tell her.'
				'She looks upset at your answer as she leans on the chair. "That''s ok, I''ll be here when you are ready." she says and goes to her desk like nothing ever happened.'
				'You walk out of her office feeling you are no longer welcome there today.'

				act 'Leave the store': gt 'pushkin_sq'
			end
		end
	end
end


--- shop_exhibitionist ---------------------------------