glife/locations/shop_erotomaniac.qsrc

# shop_erotomaniac
!!2022/06/08
$location_type = 'public_indoors'

if $ARGS[0] = 'start':
	killvar 'clothingfilter'
	CLOSE ALL
	$location_type = 'public_indoors'
	$sexloc = 'shop_erotomaniac'
	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'start'
	menu_off = 0
	ghnow = 0
	gs 'stat'

	if rand(1, 10) = 10 and pcs_hotcat >= 5 and kendrano ! 1 and kendra[1] < daystart: gt 'shop_erotomaniac', 'kendra'
	if $pantyworntype = 'none' and rand(1, 10) = 10: gt 'shop_erotomaniac', 'shprod'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">The Erotomaniac</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sexshop.jpg"></center>'
	'The main counter displays various sex toys:'
	'Lubricant - 145 <b>₽</b>'
	'Vibrator - 800 <b>₽</b>'
	'Butt plug - 800 <b>₽</b>'
	'Strap-on harness - 500 <b>₽</b>'
	'Dildos - starting at 800 <b>₽</b>'
	*nl
	'Private booths are available in the basement for viewing porn. (50 <b>₽</b> for 15 minutes)'

	act 'Leave': minut += 5 & gt 'city_redlight', 'start'
	act 'Adult toys & items': gt 'shop_erotomaniac', 'sexshop_menu'


	if mc_inventory['buttplug'] = 1 and mc_inventory['dildo_small'] = 1 and pcs_hotcat >= 5 and Peter = 0:
		if rand(0,1) = 1:
			'You see an interesting looking middle-aged man, the apparent owner of the store.'

			act 'Introduce yourself':
				*clr & cla
				menu_off = 1
				'<center><img <<$set_imgh>> src="images/characters/city/peter/peter.jpg"></center>'
				'You approach the counter and introduce yourself. "Hey there, I''m <<$pcs_nickname>>."'
				'"I''m Peter," he replies. "I''ve been watching you for a while and I find you rather... interesting. Do you want to come back to my place for some ''fun''?"'
				act 'Leave': minut += 5 & gt 'city_redlight', 'start'
				act 'Go with him': gt 'Peterroom', 'start'
				!! Peter needs to be set to 1
			end
		end
	end

	act 'Go to the basement': minut += 5 & gt 'shop_erotomaniac', 'basement'

	if ghnow['sexshop_total'] >= 20 and pornstudio = 0:
		'You notice a shady looking man trying to get your attention.'

		act 'Approach him':
			*clr & cla
			minut += 5
			menu_off = 1
			pornstudio = 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/pierre.jpg"></center>'
			'"You give a great blowjob girl, so why not put that mouth to better use and work as a porn actress?"'

			act 'Agree':
				cla
				minut += 5
				gs 'stat'
				'You nod your head. "Okay, where do I sign up?" you ask.'
				'The man smiles and hands you a business card. "Just come to this location and ask for Dimitri. He''ll tell you everything you need to know and do. I do hope I''ll see you working there soon," he says before returning to his business.'
				'You look over the card and see that the porn studio apparently operates out of the city''s industrial district. You then pocket the card and return to what you were doing.'
				act 'Continue': gt 'shop_erotomaniac', 'start'
			end
			gs 'willpower', 'prostitution', 'resist', 'medium'
			if pcs_willpwr < will_cost:
				act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'Refuse (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					'You shake your head and quickly move away from the man, feeling his gaze on the back of your head the entire time.'
					act 'Leave': gt 'shop_erotomaniac', 'start'
				end
			end
		end
		act 'Ignore him':
			cla
			minut += 2
			gs 'stat'
			'You ignore the man and quickly move away from him, feeling his gaze on the back of your head the entire time.'
			act 'Leave': gt 'shop_erotomaniac', 'start'
		end
	end

	act 'Look through the fetish dresses': minut += 1 & gt 'shop_erotomaniac', 'dress'
	act 'Look through the fetish outfits': minut += 1 & gt 'shop_erotomaniac', 'outfits'
	act 'Look through the stripper clothing': minut += 1 & gt 'shop_erotomaniac', 'strip'
	act 'Look through the panties': minut += 1 & gt 'shop_erotomaniac', 'panties'
	act 'Look through the bras': minut += 1 & gt 'shop_erotomaniac', 'bras'
	act 'Look through the fetish shoes': minut += 1 & gt 'shop_erotomaniac', 'shoes'

end

if $ARGS[0] = 'sexshop_menu' or $ARGS[0] = '':
	*clr & cla
	$args_s = 'sexshop_menu'
	$loc_s = 'shop_erotomaniac'

	gs 'item_cart', 'shoppping_aisle', 'sexshop'
	gs 'stat'
	gs 'themes', 'indoors'
	$backimage= 'images/locations/city/redlight/erotomaniac/sexshop.jpg'

	act 'Stop browsing': gt 'shop_erotomaniac', 'start'
end

if $ARGS[0] = 'dress':
	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'dress'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Fetish dresses - for all your personal needs</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'eroto_dress'

	!!To filter just this set
	clo_i = 0
	:looperoto_dress_filter
		i = 1 + Clothingstock mod 2
		:looperoto_dress
			if eroto_dress[i] = 0:
				gs 'clothing_attributes', 'eroto_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_erotomaniac'', ''eroto_dress''"><img src="images/pc/items/eroto/dress/<<i>>.jpg"	height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'looperoto_dress'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'looperoto_dress_filter'
	end
end

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

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

	'<center><b><font color="maroon">Fetish outfits - for all your personal needs</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'eroto_outfits'

	!!To filter just this set
	clo_i = 0
	:looperoto_outfits_filter
		i = 1 + (Clothingstock / 2) mod 2
		:looperoto_outfits
			if eroto_outfits[i] = 0:
				gs 'clothing_attributes', 'eroto_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_erotomaniac'', ''eroto_outfits''"><img src="images/pc/items/eroto/outfits/<<i>>.jpg"	height="250" /></a>'
				end
			end
			i += 2
		if i <= total: jump 'looperoto_outfits'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'looperoto_outfits_filter'
	end
end

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

if $ARGS[0] = 'strip':
	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'strip'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Stripper clothing - for work or the bedroom</font></b></center>'
	*nl

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

	gs 'clothing_QV', 'shop_filter_header'
	gs 'clothing', 'totals', 'eroto_strip'

	!!To filter just this set
	clo_i = 0
	:looperoto_strip_filter
		i = 1
		:looperoto_strip
			if eroto_strip[i] = 0:
				gs 'clothing_attributes', 'eroto_strip', 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_erotomaniac'', ''eroto_strip''"><img src="images/pc/items/eroto/strip/<<i>>.jpg"	height="250" /></a>'
				end
			end
			i += 1
		if i <= total: jump 'looperoto_strip'
		clo_i += 1
	if clothingfilter['quality'] = 0 and clo_i <= 7 or clothingfilter['inhibition'] = 0 and clo_i <= 50:
		jump 'looperoto_strip_filter'
	end
end

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

if $ARGS[0] = 'shoes':
	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'shoes'
	menu_off = 0
	gs 'stat'

	'<center><b><font color="maroon">Viewing Erotomaniac shoes</font></b></center>'
	*nl

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

	gs 'shoes', 'shop_filter_header'
	gs 'shoes', 'totals', 'eroto_shoes'

	!!To filter just this set
	clo_i = 0
	:loopshoequality_filter
		i = 1
		:looperoto_shoes
			if eroto_shoe[i] = 0:
				gs 'shoe_attributes', 'eroto', 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 ''shop_erotomaniac'', ''eroto_shoes''"><img src="images/pc/items/eroto/shoes/<<i>>.jpg" height="250" /></a>'
					end
				end
			end
			i += 1
		if i <= total: jump 'looperoto_shoes'
		clo_i += 1
	if Shofilter['quality'] = 0 and clo_i <= 7:
		jump 'loopshoequality_filter'
	end
end

if $ARGS[0] = 'eroto_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'eroto',i, 2500

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

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

	gs 'panties', 'shop_filter_header'
	gs 'panties', 'totals', 'eroto_panties'

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

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

	gt 'panties', 'view_panty_item', 'shop', 'eroto', i, 500
end

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

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

	gs 'bras', 'shop_filter_header'
	gs 'bras', 'totals', 'eroto_bras'

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

if $ARGS[0] = 'bras2':
	if eroto_bras[i] ! 0:
		msg 'You already own this bra.'
		gt 'shop_erotomaniac', 'bras'
	end

	gt 'bras', 'view_bra_item', 'shop', 'eroto', i, 500
end

if $ARGS[0] = 'basement':
	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'basement'
	menu_off = 0
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">Basement with cubicles for watching movies</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/gloryholebooths1.jpg"></center>'
	*nl

	act 'Leave the basement': minut += 5 & gt 'shop_erotomaniac', 'start'
	act 'Enter a free booth': minut += 5 & gt 'shop_erotomaniac', 'peepbooth'
	act 'Enter the bathroom': minut += 1 & gt 'shop_erotomaniac', 'toilet'

	if masharab = 1: act 'Go to Masha': gt 'masharoom', 'start'
end

if $ARGS[0] = 'toilet':
	gs 'shortgs', 'setloc', 'shop_erotomaniac', 'toilet'
	menu_off = 0
	gs 'stat'

	gs 'themes', 'indoors'

	'<center><b><font color="maroon">WC</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/shared/bathroom/publictoilet.jpg"></center>'

	act 'Leave the toilet': gt 'shop_erotomaniac', 'basement'

	act 'Look in the mirror': gt 'mirror', 'start'
	if pcs_hairbsh < 1: act 'Brush your hair': gt 'mirror', 'brush'

	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $publicpan
end

if $ARGS[0] = 'peepbooth':
	$location_type = 'private'
	$loc = 'shop_erotomaniac'
	$loc_arg = 'peepbooth'
	menu_off = 1
	gs 'stat'

	gs 'themes', 'indoors'
	'<center><b><font color="maroon">Movie Booth</font></b></center>'
	'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghbooths.jpg"></center>'
	'The small booth has a TV on the wall, a terminal to choose films and a chair to sit in. There is also two holes in the walls at waist level.'

	if mistressqwest > 0 and mistressqwest <= 20:
		GHchance = rand(6, 10)
		ghnowcheck = ghnow
	else
		GHchance = rand(1, 10)
		ghnowcheck = ghnow * 2
	end

	if ghnow > 0: 'You served <<ghnow>> cocks on this visit.'

	act 'Leave the booth': gt 'shop_erotomaniac', 'basement'

	if money >= 50 and (hour >= 11 or hour < 3):
		act 'Watch porn':
			cla
			money -= 50
			minut += 10
			gs 'stat'

			'You insert 50 <b>₽</b> into the terminal and the TV on the wall starts showing a pornographic film.'
			'You sit in the chair and watch the film, feeling yourself becoming a little excited.'

			act 'The film ends': minut += 5 & gt 'shop_erotomaniac', 'peepbooth'

			act 'Masturbate':
				cla
				'You caress your pussy as you watch the film, enjoying the pleasant sensation between your legs.'
				gs 'arousal', 'clit_finger', 5, 'masturbate'
				gs 'arousal', 'end'
				gs 'stat'

				act 'The film ends': gt 'shop_erotomaniac', 'peepbooth'
			end


			if GHchance >= 10 - ghnowcheck:
				'You hear the TV in the next stall turn on.'

				act 'Stick a finger in the hole (serve a stranger)':
					*clr & cla
					ghnow += 1
					ghnow['sexshop_total'] += 1
					if ghnow < 5:
						money += 300
					else
						money += 150
					end

					'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/ghfinger<<rand(1,5)>>.jpg"></center>'
					'You poke your finger in the hole, letting whoever''s on the other side know that you''re ready to serve him.'
					'The stranger slips ' + iif(ghnow < 5, '300', '150') +	'<b>₽</b> into the hole, followed by his erect cock.'

					act 'Suck his dick':
						*clr & cla
						gs 'npcgeneratec', 0, 'Guy at the gloryhole', rand(21,50)
						gs 'boyStat', $npclastgenerated
						stat['gloryhole'] += 1
						gs 'cum_call', 'mouth_swallow', $boy
						ghprand = rand(1, 38)

						'<center><img <<$set_imgh>> src="images/shared/sex/gloryhole/gloryhole<<ghprand>>.jpg"></center>'
						'You take the cock into your mouth and start enthusiastically sucking it.'
						'After a few minutes, he stranger''s cock begins to throb and he cums in your mouth, filling it with a huge amount of thick cum. You swallow it, and once you''ve licked his cock clean, it disappears back into the hole. You hear the man sighing in satisfaction before he leaves the booth.'

						gs 'arousal', 'bj', 5
						gs 'arousal', 'end'
						gs 'stat'

						if mistressqwest > 0:
							mistressqwest += 1
							'You have sucked <<mistressqwest - 1>> cocks for Mistress.'
						end

						act 'Wipe your face': gt 'shop_erotomaniac', 'peepbooth'
					end
				end
			end
		end
	end
end




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


if $ARGS[0] = 'kendra':
	menu_off = 1
	$location_type = 'event'
	minut += 10
	gs 'stat'

	if meet_kendra = 1:
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend0.jpg"></center>'
		'As you browse the store, you see Kendra again. She''s browsing through some of the sex toys when she notices you.'
		'After a few minutes, she walks over and boldly caresses your hair. "Hello again. You change your mind about serving me?"'

		act 'No':
			*clr & cla
			kendrano = 1
			gs 'npc_relationship', 'modify', 'A84', 'dislike'

			'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend.jpg"></center>'
			'You smile at her. "Sorry, no. I still don''t belong to anyone."'
			'She sighs softly. "Such a waste. Oh well, there''s plenty of pretty little white Russian bitches that love being owned by an ebony Mistress. Perhaps we''ll meet again and you''ll change your mind. I go to the University, so you should stop by sometime." She gives you directions to her dorm room before she returns to browsing.'

			act 'Leave': minut += 5 & gt 'city_redlight', 'start'
			act 'Go back to shopping': minut += 1 & gt 'shop_erotomaniac', 'start'
		end
		act 'Yes':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend.jpg"></center>'
			'You look down a little to show your submission to her. "Yes, Mistress Kendra."'
			'She smiles widely. "I think you''re going to make a great little slave. We''re going to have a lot of fun together. Follow me, slave."'

			act 'Serve Kendra':
				*clr & cla
				kendraslave += 1
				gs 'npc_relationship', 'modify', 'A84', 'like'

				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend1.jpg"></center>'
				'You follow her down into the basement, where she sits on the edge of a table and pulls her fetish clothing aside, exposing her pussy. "Strip for me, bitch." You do as you''re told and begin to slowly strip out of your clothes until you''re naked. "Good little slave. Now get over here and worship my pussy." You kneel before her and start eagerly licking her pussy as Kendra squeals and moans in pleasure.'
				'"Look at me!" she commands. When you look up at her while still eating her out, she pulls her new toy out of her bag. "We''re going to use this."'
				gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
				gs 'stat'

				if rand(0, 1) = 0:
					act 'Use the dildo': gt 'shop_erotomaniac', 'kendra1'
				else
					act 'Use the strap-on': gt 'shop_erotomaniac', 'kendra2'
				end
			end
		end

	elseif kendraslave >= 1:
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend.jpg"></center>'
		'As you browse the store, you see Kendra trying on latex clothes. She smiles when she notices you looking at her.'
		'"Who do we have here? My favorite bitch. Come and service me. I just bought a new toy and I''m eager to try it out," she laughs as she motions for you to follow her.'

		gs 'willpower', 'sex', 'resist', 'medium'
		if pcs_willpwr < will_cost:
			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		else
			act 'Leave (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				minut += 5
				gs 'npc_relationship', 'modify', 'A84', 'dislike'
				'You quickly leave while Kendra can''t stop you.'
				gt 'city_redlight', 'start'
			end
		end
		act 'Serve Kendra':
			*clr & cla
			gs 'npc_relationship', 'modify', 'A84', 'like'

			'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend1.jpg"></center>'
			'You follow her down into the basement, where she sits on the edge of a table and pulls her fetish clothing aside, exposing her pussy. "Strip for me, bitch." You do as you''re told and begin to slowly strip out of your clothes until you''re naked. "Good little slave. Now get over here and worship my pussy." You kneel before her and start eagerly licking her pussy as Kendra squeals and moans in pleasure.'
			'"Look at me!" she commands. When you look up at her while still eating her out, she pulls her new toy out of her bag. "We''re going to use this."'
			gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
			gs 'stat'

			if rand(0, 1) = 0:
				act 'Use the dildo': gt 'shop_erotomaniac', 'kendra1'
			else
				act 'Use the dildo': gt 'shop_erotomaniac', 'kendra2'
			end
		end

	elseif pcs_hotcat >= 5:
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend0.jpg"></center>'
		'As you browse the store, you see a very attractive young black woman trying on latex clothes. She smiles when she notices you looking at her.'
		'After a few minutes, she walks over and boldly caresses your hair. "You''re a pretty little thing, what''s your name?"'
		'"<<$pcs_firstname>>, but most people call me <<$pcs_nickname>>. What''s your name?" you reply.'
		'She smiles. "<<$pcs_nickname>>, what a pretty name. I''m Kendra, but you can call me Mistress Kendra," she says with confidence.'
		'"Oh..." you reply. She''s one of those people.'

		act 'Leave': minut += 5 & gt 'city_redlight', 'start'
		act 'Go back to shopping': gt 'shop_erotomaniac', 'start'
		act 'Talk to her':
			*clr & cla
			meet_kendra = 1
			npc_rel['A84'] = 45

			'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend01.jpg"></center>'
			if $start_type['loc'] = 'sg' and SchoolAtestat = 0:
				'You ask her about her clothes and start talking with her. You tell her that you live in Pavlovsk and are in your final year of school and she replies by saying that she''s a student from the Republic of Congo and is attending the local university on a student visa. You talk about a wide range of subjects for a while before she eventually says "You''re very pretty. I love making pretty little Russian bitches my slaves. Call me Mistress Kendra, <<$pcs_nickname>>, and become mine." Should you call her mistress? You have no doubt where that will lead.'
			else
				'You ask her about her clothes and start talking with her. You tell her a bit about yourself and she replies by saying that she''s a student from the Republic of Congo and is attending the local university on a student visa. You talk about a wide range of subjects for a while before she eventually says "You''re very pretty. I love making pretty little Russian bitches my slaves. Call me Mistress Kendra, <<$pcs_nickname>>, and become mine." Should you call her mistress? You have no doubt where that will lead.'
			end

			act 'Call her Kendra':
				*clr & cla
				kendrano = 1
				gs 'npc_relationship', 'modify', 'A84', 'dislike'

				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend.jpg"></center>'
				'You smile at her. "Sorry, but I don''t belong to anyone."'
				'She sighs softly. "Such a waste. Oh well, there''s plenty of pretty little white Russian bitches that love being owned by an ebony Mistress. Perhaps we''ll meet again and you''ll change your mind?" She gives you directions to her dorm room and you both return to shopping.'

				act 'Go back to shopping': gt 'shop_erotomaniac', 'start'
			end

			act 'Call her Mistress Kendra':
				*clr & cla
				gs 'npc_relationship', 'modify', 'A84', 'like'

				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend.jpg"></center>'
				'You look down to show your submission to her. "Yes, Mistress Kendra."'
				'She smiles. "I think you''re going to make a great little slave. We''re going to have a lot of fun together. Now follow me slave."'

				act 'Serve Kendra':
					*clr & cla
					kendraslave += 1

					'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend1.jpg"></center>'
					'You follow her down into the basement, where she sits on the edge of a table and pulls her fetish clothing aside, exposing her pussy. "Strip for me, bitch." You do as you''re told and begin to slowly strip out of your clothes until you''re naked. "Good little slave. Now get over here and worship my pussy." You kneel before her and start eagerly licking her pussy as Kendra squeals and moans in pleasure.'
					'"Look at me!" she commands. When you look up at her while still eating her out, she pulls her new toy out of her bag. "We''re going to use this."'

					gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
					gs 'stat'

					if rand(0, 1) = 0:
						act 'She pulls out a dildo': gt 'shop_erotomaniac', 'kendra1'
					else
						act 'She pulls out a strap-on': gt 'shop_erotomaniac', 'kendra2'
					end
				end
			end
		end
	else
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend0.jpg"></center>'
		'As you browse the store, you see a very attractive young black woman trying on latex clothes. She notices you and gives you a quick once over before she goes back to what she was doing. After a few minutes, she moves to another section of the store.'

		act 'Leave': minut += 5 & gt 'city_redlight', 'start'
		act 'Go back to shopping': minut += 1 & gt 'shop_erotomaniac', 'start'
	end
end

if $ARGS[0] = 'kendra1':
	$location_type = 'event'
	menu_off = 1
	minut += 10
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend2.jpg"></center>'
	'You take the dildo from Kendra and insert it into her pussy. You use one hand to fuck her with the dildo while the other caresses her clit. Kendra moans and writhes in pleasure as she leans back on the table.'
	gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
	gs 'stat'

	act 'Continue':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend3.jpg"></center>'
		'You dutifully continue to thrust the dildo in and out of her while stroking her clit. Her juices begin dripping from the dildo onto your hand. "That''s right, slave. Just keep doing that!" she commands.'

		gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
		gs 'stat'

		act 'Continue':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend4.jpg"></center>'
			'A few seconds later, she starts spasming as her whole body is overwhelmed by her orgasm. Her pussy squirts juices, covering your hand and her thighs. Some of it even ends up on your breasts and stomach, Once her orgasm subsides, Kendra looks at you. "You''re my beautiful little white bitch, totally committed to serving me. Now lick me clean!" she orders.'

			gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
			gs 'stat'

			act 'Lick':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend5.jpg"></center>'
				'You pull the dildo out of her soaking wet pussy and dutifully move your head between her legs to begin slowly licking the juices from her thighs and pussy.'
				'"Keep going, you slut!" she barks and you begin to lick faster, licking her thighs and pussy completely clean of her juices.'
				'"Now it''s time for your reward," she says as she pulls a strap-on out of her bag.'

				gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
				gs 'stat'

				act 'Yes, Mistress': gt 'shop_erotomaniac', 'kendra2'
			end
		end
	end
end

if $ARGS[0] = 'kendra2':
	$location_type = 'event'
	menu_off = 1
	minut += 3
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend8.jpg"></center>'
	'Kendra steps into the harness and slides it up over her hips before pulling the straps tight to hold it firmly in place. She then pulls you in close and kisses you as her fingers slide down to your pussy and start rubbing it before she slides one finger inside you. She breaks the kiss a few seconds later.'

	if pcs_vag = 0:
		'"I see you''re still a virgin, so I won''t pop your cherry. Luckily, you have other holes I can fuck. Now get on your knees and suck my cock!"'
	else
		'"I see you''re already wet, slave. Eager for my cock, are you? Don''t worry, you''ll feel it soon enough. Now get on your knees and suck it first!"'
	end

	act 'Suck her strap-on':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend7.jpg"></center>'
		'You kneel down and take hold of the dildo with one hand while wrapping your lips around it. You stroke the dildo while sucking it for the next few minutes.'

		gs 'arousal', 'bj', 5, 'lesbian', 'sub'
		gs 'stat'

		act 'Deep throat':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend7.jpg"></center>'
			'You suddenly feel Kendra grab you by the hair before she pushes your head forwards, forcing the dildo down your throat. After making you gag for a few seconds, she lets you pull back to get a breath through your nose - only for her to force it down your throat again as she starts roughly fucking your mouth.'

			gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'deepthroat'
			gs 'stat'

			if pcs_vag = 0:
				act 'Anal': gt 'shop_erotomaniac', 'kendraanal'
			else
				act 'Vaginal': gt 'shop_erotomaniac', 'kendravag'
			end
		end
	end
end

if $ARGS[0] = 'kendravag':
	$location_type = 'event'
	menu_off = 1
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend10.jpg"></center>'
	'"Ride my cock now, slave!" Kendra commands as she sits in a chair. You straddle her and lower yourself, moaning as the dildo slides into your pussy. You start riding the strap-on as Kendra drives it up from under you, trying to shove it as deep into your pussy as possible. Several minutes pass, and each thrust increases your arousal.'

	gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
	gs 'stat'

	act 'Rub clit':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend12.jpg"></center>'
		'You start rubbing your clit as you ride her strap-on, but just as you''re getting close to an orgasm, Kendra pushes you off of her. "I''m going to wreck your little ass now!"'

		gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
		gs 'arousal', 'masturbate', -5, 'lesbian', 'sub'
		gs 'stat'

		act 'Anal': gt 'shop_erotomaniac', 'kendraanal'
	end
end

if $ARGS[0] = 'kendraanal':
	$location_type = 'event'
	menu_off = 1
	gs 'boyStat', 'D4'
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend9.jpg"></center>'
	'You both stand up and she commands you to get on the table. You jump up onto the table and spread your legs and she steps between them before gently sliding the dildo, slick with your pussy juices, into your asshole. She stops to let you adjust before she starts to thrust, causing you to moan. Seeing that you''re enjoying it, she starts to go faster. "Tell me your ass belongs to me, slave!"'

	gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
	gs 'stat'

	act 'Submit':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend13.jpg"></center>'
		'You submit to her command. "My ass belongs to you, Mistress Kendra!"'
		'She smiles at you as she continues fucking your ass. "That''s right, slave. And what can I do with it?"'
		'"Anything you want, Mistress Kendra, I belong to you!" you submissively reply.'
		'Her smile gets bigger. "That''s right, bitch! Your ass belongs to me, and I can fuck it anytime I want. Tell me!"'
		'Despite the pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you, and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass for a few more minutes, as if to make her point, before she pulls out of you. As she does, she pulls you off the table onto your feet.'

		gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
		gs 'stat'

		act 'Finish': gt 'shop_erotomaniac', 'kendrafinish'
	end

	gs 'willpower', 'action', 'resist', 'medium'
	if pcs_willpwr < will_cost:
		act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	else
		act 'Resist (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'pay', 'resist'
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend13.jpg"></center>'
			'You decide not to tell her what she wants to hear. "It''s my ass! I just <i>let</i> you fuck it sometimes!" you reply in defiance.'
			'Just as you expected, she starts fucking you harder and faster. "You''ll learn your place, slave! You will submit to me, or I will fuck your ass raw!" she barks and spends several minutes hammering your ass before asking again. "Tell me your ass belongs to me, slave!"'

			gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
			gs 'stat'

			act 'Submit':
				*clr & cla

				'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend6.jpg"></center>'
				'You give in and submit to her command. "My ass belongs to you, Mistress Kendra!"'
				'She smiles at you, pushing your legs together as she continues to fuck your asshole. "That''s right, slave. And what can I do with it?"'
				'"Anything you want, Mistress Kendra! I belong to you!" you submissively reply.'
				'Her smile gets bigger. "That''s right, bitch! Your ass belongs to me, and I can fuck it anytime I want. Tell me!"'
				'Despite the pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you, and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass for a few more minutes, as if to make her point, before she pulls out of you. As she does, she pulls you off the table onto your feet.'

				gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
				gs 'stat'

				act 'Finish': gt 'shop_erotomaniac', 'kendrafinish'
			end

			gs 'willpower', 'action', 'resist', 'hard'
			if pcs_willpwr < will_cost:
				act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			else
				act 'Resist (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'resist'
					gs 'stat'

					'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend6.jpg"></center>'
					'You continue to defiantly resist. "This is my ass, and I decide who fucks it!"'
					'She starts fucking you even harder, pushing your legs closed so she can get a better grip on your hips. "Learn your damn place, slave! You belong to me! You will submit to me now or else no matter what you say, I''ll fuck your ass raw right now!" she barks and spends several minutes hammering your ass before asking again. "Tell me your ass belongs to me, slave!"'

					gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
					gs 'stat'

					act 'Submit':
						*clr & cla
						gs 'stat'

						'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend14.jpg"></center>'
						'You give in and submit to her command. "My ass belongs to you, Mistress Kendra!"'
						'She smiles at you, pushing your legs together as she continues to fuck your asshole. "That''s right, slave. And what can I do with it?"'
						'"Anything you want, Mistress Kendra! I belong to you!" you submissively reply.'
						'Her smile gets bigger. "That''s right, bitch! Your ass belongs to me, and I can fuck it anytime I want. Tell me!"'
						'Despite the pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you, and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass for a few more minutes, as if to make her point, before she pulls out of you. As she does, she pulls you off the table onto your feet.'

						gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
						gs 'stat'

						act 'Finish': gt 'shop_erotomaniac', 'kendrafinish'
					end

					gs 'willpower', 'action', 'resist', 'hard'
					if pcs_willpwr < will_cost:
						act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					else
						act 'Resist (<<will_cost>> Willpower)':
							*clr & cla
							gs 'willpower', 'pay', 'resist'
							gs 'stat'

							'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend14.jpg"></center>'
							'Although unable to blurt out more than a simple "No!" against the pain of her endless thrusts, you refuse to submit and continue resisting.'
							'She slams the strap-on balls deep into your ass and starts hammering you as hard and fast as she can. "You''ll learn your place, right this instant, slave! You will submit to me now, or I''ll stay here all day and fuck your ass until you weep and beg me to stop!" She keeps fucking your ass for a few minutes before she asks again. "Tell me your ass belongs to me right now, slave!"'

							gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
							gs 'pain', 1, 'asshole', 'tear'
							gs 'stat'

							act 'Submit':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend15.jpg"></center>'
								'Your ass is pulsing in pain by now and you finally give in and submit to her command. "My ass belongs to you, Mistress Kendra!"'
								'She smiles at you as she continues to fuck your asshole. "That''s right, slave. And what can I do with it?"'
								'"Anything you want, Mistress Kendra! I belong to you!" you submissively reply.'
								'Her smile gets bigger. "That''s right, bitch! Your ass belongs to me, and I can fuck it anytime I want. Tell me!"'
								'Despite the pain, you moan in pleasure as she continues fucking your ass. "My ass belongs to you, and you can fuck it anytime you want, Mistress Kendra!" you scream. She fucks your ass for a few more minutes, as if to make her point, before she pulls out of you. As she does, she pulls you off the table onto your feet.'

								gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
								gs 'pain', 1, 'asshole', 'tear'
								gs 'stat'

								act 'Finish': gt 'shop_erotomaniac', 'kendrafinish'
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'kendrafinish':
	$location_type = 'event'
	kendra[1] = daystart + 6
	gs 'stat'

	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/sex/shkend16.jpg"></center>'
	'As you stand up, she grabs you by the throat and pulls you in close. "Stick out your tongue."'
	'You do as she says and the two of you make out for several minutes before she stops and roughly grabs your ass cheek, digging her nails into your backside. She then lets go, steps away and starts sliding the harness off. She cleans the dildo and then puts it away before getting dressed. Once she''s finished, she turns to you again. "You may get dressed, slave."'
	*nl
	'"Thank you, Mistress," you tell her as you start picking up your clothes and putting them on.'
	'Once you''re dressed, she gives you a smile. "You should come visit me. I live in the dorms at the university." She gives you directions to her dorm room. "I expect my little white slave to come and visit me... Often."'
	'"Yes, Mistress Kendra..." you submissively reply before you both leave the basement and head back up to the store.'

	gs 'arousal', 'foreplay', 5, 'lesbian', 'sub'
	gs 'arousal', 'end'
	gs 'stat'

	act 'Return to the store': minut += 1 & gt 'shop_erotomaniac', 'start'
end

if $ARGS[0] = 'shprod':
	$location_type = 'event'
	*clr & cla
	menu_off = 1
	minut += 5
	'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/shprod.jpg"></center>'
	'The cashier stands in front of you, holding a miniskirt and offering to help you. "Girl, this is very you. Will you try it on?"'

	act 'Refuse': gt 'shop_erotomaniac', 'start'

	act 'Try it on':
		*clr & cla
		picrand = 47

		'<center><img <<$set_imgh>> src="images/locations/city/redlight/erotomaniac/shprod1.jpg"></center>'
		'You put the skirt on and walk out of the booth to pose in the mirror. You don''t have any panties on, and the skirt is so short that it looks more like a belt. It doesn''t cover anything and your pussy is fully visible from all directions.'
		'Approaching the mirror, you consider this so-called skirt. The cashier kneels behind you and starts praising how your ass looks in it, his hands wandering around your hips as he get his lips as close to your ass as he can. He says that he wants to "kiss your skin". Words soon cease, and just the feeling of his lips against your skin remains, getting closer and closer to your pussy.'

		gs 'willpower', 'cuni', 'resist', 'medium'
		if pcs_willpwr < will_cost:
			act 'Push him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		else
			act 'Push him away(<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gt 'shop_erotomaniac', 'start'
			end
		end
		act 'Let him': gs 'boyStat', 'A181' & gt 'sex', 'kuni'
	end
end

--- shop_erotomaniac ---------------------------------