glife/locations/pavShared_sp.qsrc

# pavShared_sp


if $ARGS[0] = 'sp':
	$metka = 'sp'
	minut += 2
	'<h3><font color=#<<$sp_font>>><<$sp_name>></font></h3>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
	''
	'He is a sportsman, with fine toned abs and arms, big shoulders..'
	if sp_hadSex = 1:'As you know very well, <<$sp_name>> has <<spDick>> cm long <a href="exec:gt ''pavShared_sp'', ''spDick''">dick</a> with always smoothly shaved pubic hair.'
	''
	'<b>Today he looks to be in a <<$sp_mood>> mood.</b>'
	if sp_served = 1:'You have already served him today.'
	''

	! cum on hands, face, arms, legs¨; visible even when clothed
	if cumloc[13] > 0 or cumloc[11] > 0 or cumloc[16] > 0 or cumloc[10] > 0 or cumloc[9] > 0:
		'<font color=#<<$sp_font>>>"<<$pcs_firstname>> is that a cum? Please go wash yourself."</font>'
		act 'Leave': gt 'pavSharedApt', 'start'
	! cum on clothes
	elseif cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0:
		'<font color=#<<$sp_font>>>"<<$pcs_firstname>> is that a cum on your clothes? Please go change or at least strip it down."</font>'
		act 'Leave': gt 'pavSharedApt', 'start'
	! cum on belly, breasts, ass, pussy; visible only when nude
	elseif (cumloc[14] > 0 or cumloc[15] > 0 or cumloc[1] > 0 or cumloc[4] > 0) and $clothingworntype = 'nude':
		'<font color=#<<$sp_font>>>"<<$pcs_firstname>> did you just have sex with the other guys? Because you forgot to wash out the cum!"</font>'
		act 'Leave': gt 'pavSharedApt', 'start'
	else
		'<font color=#<<$sp_font>>>"Hey sweetie, how are you?"</font>'
		act 'Just say hello and leave': gt 'pavSharedApt', 'start'
		act 'Chat with him':gt 'pavShared_sp', 'spChat'
		if servitudeLvl = 2 and sp_served = 0:act 'Offer him to serve':gt 'pavShared_sp', 'spServe'
	end
end

if $ARGS[0] = 'spChat':
	$metka = 'spChat'
	'<h3><font color=#<<$sp_font>>><<$sp_name>></font></h3>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
	
	! basic chat
	if chatLvl = 0:
		say = rand(1, 2)
		if say = 1:
			!clothing and bodyshape reactions
			if $clothingworntype = 'nude':
				'<<$sp_name>> is looking at your nude body wondering..'
				if salocatnow <= 1:
					'He is not very content with the sight: <font color=#<<$sp_font>>>"<<$pcs_firstname>>, are you not anorexic? Better not, it is a terrible thing."</font>'
				elseif salocatnow > 1 and salocatnow <= 3:
					'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, you have nice bodyshape you know. Do you exercise or are you mp4ten from nature?"</font>'
				else
					'He is not not very content with the sight: <font color=#<<$sp_font>>>"<<$pcs_firstname>>, you should eat less, too much bodyfat is bad for your sport performance."</font>'
				end
				!panties on
				if $pantyworntype ! 'none':
					'<font color=#<<$sp_font>>>"Adorable panties sweetie, where did you buy those?"</font>'
				end
				!panties off, anal plug
				if $pantyworntype = 'none' and analplugIN = 1:
					'As you accidentaly turn around, he gazes between your asscheeks on the plug stuck in your ass.'
					'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, is that a buttplug??"</font> (his eyes spark with weird shine).'
					if rand(0, 100) < 30:
						'<font color=#<<$pcs_font>>>"Yes <<$sp_name>>, it is. Do you like it? Will you help me with it? It seems stuck."</font>'
						'<font color=#<<$sp_font>>>"Yes! How it feels walking around with that inside you?"</font>'
						'<font color=#<<$pcs_font>>>"It is... arousing. And also fullfilling. If you know what I mean."</font>'
						'<font color=#<<$sp_font>>>"Yea... I guess!"</font>'
						'<font color=#<<$pcs_font>>>"So will you help with it?"</font>'
						'<font color=#<<$sp_font>>>"You mean take it out? No! It would be shame to relieve you of the pleasure. But I think it needs a little adjustment here and there.. Let me see!"</font>'
						act 'Let him play with it':chatLvl = 10 & gt 'pavShared_sp', 'spChat'
					end
				end
			elseif CloBimbo = 1:
				'<<$sp_name>> is looking at your outfit with suspicion.'
				if salocatnow >= 1 and salocatnow <= 4:
					'<font color=#<<$sp_font>>>"What a sexy dress are you wearing! Aren''t you afraid it is too sexy for some people in the town, though?"</font>'
				else
					'<font color=#<<$sp_font>>>"Nice dress sweetie, but it would look better if you lost some fat, you know.."</font>'
				end
			elseif CloStyle = 4:
				'<<$sp_name>> is looking at your outfit with suspicion.'
				if salocatnow <= 4:
					'<font color=#<<$sp_font>>>"I love sexy dresses on you sweetie, but this one makes you look like a.. paygirl, if you know what I mean."</font>'
				else
					'<font color=#<<$sp_font>>>"Sweetie this dress one makes you look like a.. paygirl, if you know what I mean."</font>'
				end
			end
		elseif say = 2:
			! age reactions
			if age < 18:
				'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, you said you are <<age>> years old. Are you doing some sports? You should."</font>'
			end
		end

		if step = 0:
			minut += 1
			act 'Chat about everyday stuff': step = 10 & gt 'pavShared_sp', 'spChat'
			act 'Leave':gt 'pavSharedApt', 'start'
		elseif step = 10:
			minut += 15
			sayN = rand (1, 10)
			if sayN = 1:'<i><font color=#<<$sp_font>>>"Doing sports is the way of my life. I cannot imagine not doing any."</font></i>'
			if sayN = 2:'<i><font color=#<<$sp_font>>>"I need to work harder on my abs."</font></i>'
			if sayN = 3:'<i><font color=#<<$sp_font>>>"A good soccer player has two main skills - the game itself and.. his haircut."</font></i>'
			if sayN = 4:'<i><font color=#<<$sp_font>>>"I hate staying sweaty a game. I shower after every one of them."</font></i>'
			if sayN = 5:'<i><font color=#<<$sp_font>>>"Using drugs to improve one''s sporting abillities is wrong."</font></i>'
			'<i>You spent some time chatting with him about sport, his trophies and achievements, slightly improving your relation with him.</i>'
			sp_rel += 1
			gs 'stat'
			intimateTalkCh = rand (0, 100)
			if sp_mood <= 2 and intimateTalkCh <= 50:
				step = 20
			else
				step = 0
			end
			act 'Continue':gt 'pavShared_sp', 'spChat'
		elseif step = 20:
			minut += 3
			if servitudeLvl = 0:
				'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, din''t you change your mind about easing off some of the rent?"</font>'
				'<font color=#<<$pcs_font>>>"What do you mean?"</font>'
				'<font color=#<<$sp_font>>>"Well as we talked about it before..you know..to cook for us or clean up a bit.."</font>'
				act 'Say you are still not iterested to be their maid':step = 0 & gt 'pavShared_sp', 'spChat'
				act 'Say you are willing to do some work afterall':step = 0 & servitudeLvl = 1 & gt 'pavShared_sp', 'spChat'
			elseif servitudeLvl = 1:
				'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, din''t you change your mind about easing off some more of the rent?"</font>'
				'<font color=#<<$pcs_font>>>"What do you mean? I already clean up and cook for you."</font>'
				'<font color=#<<$sp_font>>>"Well we also talked about this before..you know..to help us easy a bit of stress, if you know what I mean"</font>'
				act 'Say you are still not iterested to be their cumbucket':step = 0 & gt 'pavShared_sp', 'spChat'
				act 'Say you are willing to spread your legs a bit afterall':step = 0 & servitudeLvl = 2 & gt 'pavShared_sp', 'spChat'			
			elseif servitudeLvl = 2:
				act 'Talk about sex':step = 30 & gt 'pavShared_sp', 'spChat'
				act 'Continue':step = 0 & gt 'pavShared_sp', 'spChat'
			end
		elseif step = 30:
			minut += 5
			'You get into rather passionate discussion about sex and all that stuff. <<$sp_name>> seems to love to talk about such topics.'
			resCh = rand (0, 5)
			if resCh <= 3:
				topicR = rand (1, 5)
				if topicR = 1:'<<$sp_name>> passionately tells you he loves looking at the girls face when she orgasms.'
				if topicR = 2:'<<$sp_name>> passionately tells you he loves when girl is touching with his asscheeks.'
				if topicR = 3:'<<$sp_name>> passionately tells you he adores blond girls the most.'
				if topicR = 4:'<<$sp_name>> passionately tells you his <<spDick>> cm long dick is just enough to make love and not pain.'
				if topicR = 5:'<<$sp_name>> passionately tells you he loves when the girl is a sporting type.'
				act'Continue':step = 0 & gt 'pavShared_sp', 'spChat'
			
			elseif resCh = 4:
				if sp_anal = 0:
					'<<$sp_name>> admits that he no girl has yet allowed him to fuck her ass.'
					sp_doAnal = 1
					act'Continue':step = 0 & sp_rel += 1 & gt 'pavShared_sp', 'spChat'
				else
					act'Continue':step = 0 & gt 'pavShared_sp', 'spChat'
				end

			elseif resCh = 5:
				if sp_anal = 0:
					'<<$sp_name>> almost secretely tells you he owns a dildo so big that no girl can insert it into her entirely.'
					sp_doDildo = 1
					act'Continue':step = 0 & sp_rel += 1 & gt 'pavShared_sp', 'spChat'
				else
					act'Continue':step = 0 & gt 'pavShared_sp', 'spChat'
				end

			end
		end

	! anal plug
	elseif chatLvl = 10:
		'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedApt/sex/buttPlugPlay.mp4"></video></center>'
		''
		'<font color=#<<$sp_font>>>"Let''s see what you have in there.."</font>'
		'<<$sp_name>> takes the plug and slowly pulls it halfway out, gazing and how big it is.'
		'Then he twists it around, still in your ass and pushes it back in there, repeating this few times.'
		'<font color=#<<$sp_font>>>"I think it fits better now."</font>'
		'<font color=#<<$pcs_font>>>"Thank you <<$sp_name>>!"</font>'
		act 'Continue':chatLvl = 0 & gt 'pavShared_sp', 'spChat'
	
	! strapon kink
	!elseif chatLvl = 20:
	end
end

if $ARGS[0] = 'spDick':
	minut += 2
	'<h3><font color=#<<$sp_font>>><<$sp_name>></font></h3>'
	if set_imgh < 250:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockFlaccid.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	else
		'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/cockFlaccid.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	end
	''
	'Your relation with him is <<sp_rel>> / 100.'
	'His dick is <<spDick>> cm long with always smoothly shaved pubic hair.'
	milkPause = daystart - sp_lastCum
	if milkPause >= 1:'You have not milked him for <<milkPause>> day(s), he most likely has <<sp_cumVol>> ml semen accumulated in his balls' & if sp_cumVol > 60:', which are starting to turn blue' + '.'
	'Today he looks to be at about <<sp_horny>> % of his maximum horniness.'
	''
	'So far you have:'
		if sp_hj = 1:'- jerked him'	
			if sp_hj > 1:'- jerked him <<sp_hj>> times' & if sp_hjFail > 1:' and failed to make him cum with your hands <<sp_hjFail>> times'
		if sp_bj = 1:'- given him a blowjob'
			if sp_bj > 1:'- given him <<sp_bj>> blowjobs' & if sp_bjFail > 1:' and failed to make him cum with your mouth <<sp_bjFail>> times'
		if sp_bjDeep = 1:'- given him a blowjob with deepthroat'
			if sp_bjDeep > 1:'- given him <<sp_bjDeep>> blowjobs with deepthroat' & if sp_bjFailPuke > 1:' but failed and puked in his crotch <<sp_bjFailPuke>> times' & if sp_bjFailPuke > 1:' but failed and fainted impaled on his cock <<sp_bjFailFaint>> times'
		if sp_swall = 1:'- swallowed his semen, making it <<sp_cumSwall>> ml swallowed total'
			if sp_swall > 1:'- swallowed his semen <<sp_swall>> times, making it <<sp_cumSwall>> ml swallowed total'
		if sp_vag = 1:'- took it in your pussy' & if sp_vagCumInside = 1:' and let him cum inside you' & if sp_vagCumInsideUnwanted = 1:' and he also came inside your pussy against your will'
			if sp_vag > 1:'- took it in your pussy <<sp_vag>> times' & if sp_vagCumInside >= 1:' and let him cum inside you <<sp_vagCumInside>> times' & if sp_vagCumInsideUnwanted >= 1:' and he also came inside your pussy against your will <<sp_vagCumInsideUnwanted>> times'
		if sp_cumVag > 0:'- he pumped in total <<sp_cumVag>> ml of cum into your pussy'
		if sp_anal = 1:'- took it in your ass' & if sp_analCumInside = 1:' and let him cum inside you' & if sp_vagCumInsideUnwanted = 1:' and he also came inside your anus against your will'
			if sp_anal > 1:'- took it in your ass <<sp_anal>> times' & if sp_analCumInside >= 1:' and let him cum inside you <<sp_analCumInside>> times' & if sp_vagCumInsideUnwanted >= 1:' and he also came inside your anus against your will <<sp_analCumInsideUnwanted>> times'
		if sp_analVag > 0:'- he pumped in total <<sp_cumAnal>> ml of into your anus'

		if sp_dildo = -4:'- wanted to make him a show with giant dildo, but you were afraid of its size just from seeing it'
		if sp_dildo = -3:'- once made him a show with giant dildo, but it was horrible experience and you''ll never do it again'
		if sp_dildo = -2:'- once made him a show with giant dildo, but it felt very humiliating and he knows you will not do it again'
		if sp_dildo = -1:'- once made him a show with giant dildo, you do not mind but also do not find it arousing and he knows you will not do it again'
		if sp_dildo = 1 and dildoLike = 1:'- once made him a show with giant dildo, you do not mind but also do not find it arousing, but he knows you are willing to do it repeatedly'
			if sp_dildo > 1 and dildoLike = 1:'- made him a show with giant dildo <<sp_dildo>> times, you do not mind but also do not find it arousing, but he knows you are willing to do it repeatedly'
		if sp_dildo = 1 and dildoLike = 2:'- once made him a show with giant dildo, you do find it somewhat arousing and he knows you are willing to do it repeatedly'
			if sp_dildo > 1 and dildoLike = 2:'- made him a show with giant dildo <<sp_dildo>> times, you do find it somewhat arousing and he knows you are willing to do it repeatedly'

	if $metka = 'sp':
		act 'Continue':gt 'pavShared_sp', 'sp'
	else
		act 'Continue':gt 'pavSharedApt', $goBack
	end
end

if $ARGS[0] = 'spServe':
	$boy = $sp_name
	gs 'npcgeneratec', 0, $boy, 19
	gs 'boyStat', $npclastgenerated
	minut += 2
	$metka = 'spServe'
	'<h3><font color=#<<$sp_font>>><<$sp_name>></font></h3>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
	step = 0
	subStep = 0
	sexCh = rand (0, 30) + sp_horny
	! very bad mood
	if sp_mood >= 5:
		'<font color=#<<$sp_font>>>"Not now <<$pcs_firstname>>, I am exhausted."</font>'
		act 'Leave':gt 'pavSharedApt', 'start'
	
	! random chance to sex, but increasing with horniness level; nd min horny = 10/60*100 = 16,67
	elseif sexCh < 40:
		'<font color=#<<$sp_font>>>"Not now <<$pcs_firstname>>, I have to excersice in a while."</font>'
		act 'Leave':gt 'pavSharedApt', 'start'

	! wants sex
	else
		actionR = rand (2, 5)
		if actionR = 2:
			'<font color=#<<$sp_font>>>"Sure <<$pcs_firstname>>, I could use a nice blowjob."</font>'
			act 'Agree': sp_rel += 1 & gt 'pavShared_sp', 'spSuck'
		elseif actionR = 3:
			'<font color=#<<$sp_font>>>"Good idea, I would like to have a sex."</font>'
			act 'Agree': sp_rel += 1 & gt 'pavShared_sp', 'spSexVaginal'
		elseif actionR = 4:
			if sp_anal = 0:
				if sp_doAnal = 1:
					'<font color=#<<$sp_font>>>"I am not sure what I enjoy more with you <<$pcs_firstname>>.."</font>'
					act 'It''s your choice':gt 'pavShared_sp', 'spServe'
					act 'You told me you have never tried anal, did you?': sp_rel += 2 & gt 'pavShared_sp', 'spSexAnal'
				else
					gt 'pavShared_sp', 'spServe'
				end
			elseif sp_anal >= 1:
				'<font color=#<<$sp_font>>>"Sure <<$pcs_firstname>>, I would like to take enjoy your beautyful ass this time."</font>'
				act 'Agree': sp_rel += 1 & gt 'pavShared_sp', 'spSexAnal'
			end
		elseif actionR = 5:
			if sp_dildo = 0:
				if sp_doDildo = 1:
					'<font color=#<<$sp_font>>>"I am not sure what I enjoy more with you <<$pcs_firstname>>.."</font>'
					act 'It''s your choice':gt 'pavShared_sp', 'spServe'
					act 'You told me you own some kind of giant dildo, do you?': & sp_rel += 2 & gt 'pavShared_sp', 'spSexGiantdildo'
				else
					gt 'pavShared_sp', 'spServe'
				end
			elseif sp_dildo >= 1:
				'<font color=#<<$sp_font>>>"Great <<$pcs_firstname>>, I want to see you ride the Big boy once again!"</font>'
				act 'Agree': sp_rel += 1 & gt 'pavShared_sp', 'spSexGiantdildo'
			end
		end
		if actionR > 1:act 'Say you changed your mind and leave': sp_rel -= 1 & gt 'pavSharedApt', 'start'
	end
end

if $ARGS[0] = 'spSuck':
	'<b><font color=#<<$sp_font>>><<$sp_name>> - blowjob</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0 and cockHard = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockFlaccid.jpg"></center>'
		if step > 0 and cockHard = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0 and cockHard = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/cockFlaccid.jpg"></center>'
		if step > 0 and cockHard = 1:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	end
	$metka = 'spSuck'
	price = price_blowjob
	if step > 0:'<<$sp_name>> orgasm build-up: '+orgB+'/100'

	! crawl to him
	if step = 0:
		orgB = 0
		cockHard = 0
		failC = 0
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockFlaccid.jpg"></center>'
		''
		'<<$sp_name>> takes down his pants, revealing his flaccid cock. He relaxes on his bed, expecting you to do the service.'
		'You drop on your knees and crawl to him, trying to move as sexy as possible.'
		act 'Lick his balls':step = 1 & gt 'pavShared_sp', 'spSuck'
		act 'Lick the tip':step = 2 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the tip':step = 3 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the cock':step = 4 & gt 'pavShared_sp', 'spSuck'

	!lick balls
	elseif step = 1:
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus7.mp4"></video></center>'
		''
		'You decide that the best approach is to arouse him first.'
		'Kneeling between his legs, you show him the whole length of your tongue, looking as lusty as you can.'
		'Slowly you move your head down in his crotch and bellow his phallus. The moment you start using your tongue on his device, you can feel the increased pulsation in his veins, making the cock larger and thicker every second.'
		orgB += rand(0, 5)
		cockHard = 1
		gs 'arousal', 'bj', 3
		gs 'stat'
		act 'Lick his balls':step = 1 & gt 'pavShared_sp', 'spSuck'
		act 'Lick the tip':step = 2 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the tip':step = 3 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the cock':step = 4 & gt 'pavShared_sp', 'spSuck'

	!Lick the tip
	elseif step = 2:
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbjbonus3.mp4"></video></center>'
		''
		'You take <<$sp_name>> cock in your hand, pointing the tip in front of your mouth.'
		'As it was your favourity puppy, you start to gently lick the tip all around, slowly making the cock to get harder and harder, finally reaching his full <<spDick>> cm length.'
		gs 'arousal', 'bj', 3
		gs 'stat'
		orgB += rand(2, 7)
		cockHard = 1
		act 'Lick his balls':step = 1 & gt 'pavShared_sp', 'spSuck'
		act 'Lick the tip':step = 2 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the tip':step = 3 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the cock':step = 4 & gt 'pavShared_sp', 'spSuck'

	!suck the tip
	elseif step = 3:
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj114.mp4"></video></center>'
		if cockHard = 0:
			orgB += rand(5, 15)
			'<<$sp_name>>''s cock is not hard yet, but you start to suck the yet soft tip as if it was, slurping aloud.'
			'You can feel that slowly his member becomes hard right in your mouth.'
			cockHard = 1
		else
			orgB += rand(10, 20)
			'<<$sp_name>>''s already hard cock points toward you and you suck the dark pink tip as a lolipop.'
		end
		gs 'arousal', 'bj', 3
		gs 'stat'
		act 'Lick his balls':step = 1 & gt 'pavShared_sp', 'spSuck'
		act 'Lick the tip':step = 2 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the tip':step = 3 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the cock':step = 4 & gt 'pavShared_sp', 'spSuck'
		act 'Deepthroat':step = 5 & gt 'pavShared_sp', 'spSuck'
		if orgB >= 100:
			act 'Try to make him cum':step = 6 & gt 'pavShared_sp', 'spSuck'
		end

	!sucking dick
	elseif step = 4:
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj111.mp4"></video></center>'
		''
		if cockHard = 0:
			orgB += rand(15, 35)
			'<<$sp_name>>''s cock is not hard yet, but you start to suck the member as if it was, making almost half of it disappear in your throat every time you move on.'
			'You can slowly feel his member becoming hard right in your mouth, making you choke and gag on it more and more with every second.'
			cockHard = 1
		else
			orgB += rand(20, 40)
			'<<$sp_name>>''s already hard cock points toward you and you suck almost half of it, sucking and slurping it as best as you can.'
		end
		gs 'arousal', 'bj', 8
		gs 'stat'
		act 'Lick his balls':step = 1 & gt 'pavShared_sp', 'spSuck'
		act 'Lick the tip':step = 2 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the tip':step = 3 & gt 'pavShared_sp', 'spSuck'
		act 'Suck the cock':step = 4 & gt 'pavShared_sp', 'spSuck'
		act 'Deepthroat':step = 5 & gt 'pavShared_sp', 'spSuck'
		if orgB >= 100:
			act 'Try to make him cum':step = 6 & gt 'pavShared_sp', 'spSuck'
		end
	
	!deepthroat
	elseif step = 5:
		'<center><video autoplay loop src="images/shared/sex/blowjob/shower7.mp4"></video></center>'
		''
		orgB += rand(40, 60)
		'You decide to take <<$sp_name>>''s hard, <<spDick>> cm long cock all the way your throat.'
		'You force yourself on to it, overcoming the gag reflex in your throat, saliva and tears almost squirting out of you.'
		'Even though his cock is not the largest one, it is long enough to make you gag.'
		'Doing this several times in a row, you try to hold on as long as you can with dick all the way down in your throat.'
		nd_bjDeep = 1
		gs 'arousal', 'bj', 6
		gs 'stat'
		deepthroatFailCh = rand(0, 100)
		fadeOutCh = rand(0, 100)
		if deepthroatFailCh <= 10:
			'<b>You try too hard to put it as far as possible, unable to hold the gag reflex anymore, still with his dick inside you vomit right in <<$sp_name>>''s crotch!</b>'
			act 'Continue':step = 8 & gt 'pavShared_sp', 'spSuck'
		elseif fadeOutCh <= 10:
			'<b>You try too hard to keep the cock inside you as long as possible, not being able to catch enough breath. Suddenly all goes dark and you fade away...</b>'
			act 'Continue':step = 9 & gt 'pavShared_sp', 'spSuck'
		else
			act 'Lick his balls':step = 1 & gt 'pavShared_sp', 'spSuck'
			act 'Lick the tip':step = 2 & gt 'pavShared_sp', 'spSuck'
			act 'Suck the tip':step = 3 & gt 'pavShared_sp', 'spSuck'
			act 'Suck the cock':step = 4 & gt 'pavShared_sp', 'spSuck'
			act 'Deepthroat':step = 5 & gt 'pavShared_sp', 'spSuck'
			if orgB >= 100:
				act 'Try to make him cum':step = 6 & gt 'pavShared_sp', 'spSuck'
			end
		end

	!cum attempt
	elseif step = 6:
		'You decided that now it''s time to try and make him finally cum.'
		'Intensifying the pressure and pace, you expect him every moment to moan and be done with it.'
		gs 'arousal', 'bj', 5
		cumCh = rand(0, 100)
		if cumCh <= 70:
			'<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cummouth1.mp4"></video></center>'
			''
			'Your attempt is successful, as <<$sp_name>> cums right into your mouth and on your face.'
			sp_lastCum = daystart
			sp_served = 1
			gs 'cum_call', 'mouth', $boy, 1, 0, sp_cumVol / 2
			gs 'cum_call', 'face', $boy, 1, 0, sp_cumVol / 2
			act 'Get up':step = 10 & sp_cumVol = 0 & gt 'pavShared_sp', 'spSuck'
		else
			failC += 1
			if failC >= 3:
				''
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/bjFail.jpg"></center>'
				''
				'<font color=#<<$sp_font>>>"Sweetie if you can''t suck a cock don''t do it. Leave me be!"</font>'
				act 'Get up':step = 7 & gt 'pavShared_sp', 'spSuck'
			else
				''
				'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/bjFailTryAgain.mp4"></video></center>'
				''
				'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, sweetie, what are you doing down there?"</font>'
				if failC = 1:'He is getting nervous..'
				if failC = 2:'He is obviously annoyed, you better try to finish him now!'
				act 'Suck just the tip':step = 3 & gt 'pavShared_sp', 'spSuck'
				act 'Suck the cock':step = 4 & gt 'pavShared_sp', 'spSuck'	
				act 'Deepthroat':step = 5 & gt 'pavShared_sp', 'spSuck'
			end
		end
		gs 'stat'

	!END cum fail
	elseif step = 7:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
		''
		'You get up from your knees, looking at <<$sp_name>>:<font color=#<<$pcs_font>>>"I''m sorry I was unable to satisfy you."</font>.'
		'He looks annoyed:<font color=#<<$sp_font>>>"Try better next time."</font>'
		sp_rel -= 3
		step = 0
		sp_bjFail += 1
		act 'Leave':gt 'pavSharedApt', 'start'

	!END deepthroat fail
	elseif step = 8:
		'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/bjDeepthroatPuke.mp4"></video></center>'
		''
		'<font color=#<<$sp_font>>>"Oh my god <<$pcs_firstname>>, have you just puked into my crotch??!!"</font>'
		'Cleaning your face and mouth with your clothes, all you can say is <font color=#<<$pcs_font>>>"I''m sorry..."</font>.'
		'<font color=#<<$sp_font>>>"Oh gosh <<$pcs_firstname>>, I think I''m gonna puke too! Do something!"</font>'
		sp_rel -= 5
		step = 0
		sp_bjFail += 1
		sp_bjFailPuke += 1
		act 'Leave':gt 'pavSharedApt', 'start'

	!END deepthroat fade out
	elseif step = 9:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/faint.jpg"></center>'
		''
		'You wake up being slapped in your face: <font color=#<<$sp_font>>>"<<$pcs_firstname>>! <<$pcs_firstname>>! Wake up!"</font>'
		'Slowly normal sight goes back to you, but still you are very confused.  <font color=#<<$pcs_font>>>"Wh..what happened?</font>'
		'<font color=#<<$sp_font>>>"I think you have hold your breath for too long and fainted, <<$pcs_firstname>>."</font> He is feeling compassionate to you.'
		sp_rel += 1
		step = 0
		sp_bjFail += 1
		sp_bjFailFaint += 1
		act 'Get up and leave':gt 'pavSharedApt', 'start'

	!END cum success
	elseif step = 10:
		nd_bj += 1
		if sp_mood <= 3:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
			''
			'<font color=#<<$sp_font>>>"Thank you my sweetie."</font>'
			'Cleaning your face and mouth off the cum: <font color=#<<$pcs_font>>>"You are always welcome. Seeya!"</font>.'
			sp_rel += 1
			step = 0
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
			''
			'<<$sp_name>> doesn''t pay anymore attention to you, getting back to reading his sports magazine.'
			'You just pack your things and quietly leave through the door.'
			step = 0
		end
		gs 'arousal', 'end'
		gs 'stat'
		act 'Get up and leave':$loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'
	end
end

if $ARGS[0] = 'spSexVaginal':
	'<b><font color=#<<$sp_font>>><<$sp_name>> - vaginal sex</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	end
	''
	$metka = 'spSexVaginal'
	price = price_vaginal
	if step > 0:'<<$sp_name>> orgasm build-up: '+orgB+'/100'

	!strip down
	if step = 0:
		minut += 5
		orgB = 0
		cockHard = 0
		failC = 0
		$clothingworntype = 'nude'
		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/simplystrip1.mp4"></video></center>'
		''
		'<<$sp_name>> begins to undress and you follow his example, stripping the few clothes you are currently wearing.'
		'His hairless, muscular body has a bronze tan. He moves towards you, lubing his <<spDick>> cm long cock and stroking it on the way.'
		if $pantyworntype ! 'none':
			gs 'panties', 'remove'
			gs 'stat'
			'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, those panties are adorable, but they will get in the way you know?"</font>'
			'You entirely forgot to take them off!'
			'You reach for the ribbon of the panties, slowly slipping them off, down your legs. You blush a little.'
		end
		'<<$sp_name>> takes you by the waist, delicately kissing you.'
		'<font color=#<<$sp_font>>>"Do you want to make love in a certain position, or should I choose?"</font>'
		if sp_pornPos = 0:hisPos = rand(1, 3)
		!if sp_pornPos = 1:hisPos = rand(1, 4)
		!if sp_pornPos = 2:hisPos = rand(1, 5)

		act 'Let him choose':step = hisPos & gt 'pavShared_sp', 'spSexVaginal'
		act 'Take me like a missionary':step = 1 & gt 'pavShared_sp', 'spSexVaginal'
		act 'Take me from behind':step = 2 & gt 'pavShared_sp', 'spSexVaginal'
		act 'Take me from side':step = 3 & gt 'pavShared_sp', 'spSexVaginal'
		!if sp_doPornpos = 1 and sp_pornPos < 1:act 'You told me that you want to try one position from porn, didn''t you?':sp_rel += 3 & step = 4 & gt 'pavShared_sp', 'spSexVaginal'
		!if sp_doPornpos = 2 and sp_pornPos < 2:act 'You told me that you want to try another position from porn, didn''t you?':sp_rel += 2 & step = 5 & gt 'pavShared_sp', 'spSexVaginal'
		!if sp_pornPos >= 1:act 'Take me full nelson':step = 4 & gt 'pavShared_sp', 'spSexVaginal'
		!if sp_pornPos >= 2:act 'Take me pile driver':step = 5 & gt 'pavShared_sp', 'spSexVaginal'

	!missionary
	elseif step = 1:
		if subStep = 0:
			'<center><video autoplay loop src="images/shared/sex/vag/miss/pussyhump.mp4"></video></center>'
			''
			'You lie on the bed, spreading your legs for easy access.'
			'<<$sp_name>> kneels between those, gently spreading them a bit wider with his hands.'
			'As he is content with the sight, he leans above you, moving his hips closer to your crotch.'
			'You can feel warm sensation between your legs, replaced by pressure and suddenly even a mild pain. That''s when he enters your tender pussy.'
			'<<$sp_name>> begins to move inside you, ever increasing the pace.'
			'In a few moments he starts groaning, obviously enjoying the fuck.'
			gs 'arousal', 'vaginal', 10, 'lube'
			gs 'stat'
			orgB += rand(5, 20) 
			act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexVaginal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/shared/sex/vag/miss/kotovsexbonus3.mp4"></video></center>'
			''
			'As he continuously fucks your pussy, you rub his hairless ass, making him even hornier.'
			'As you move your hands around his smooth asscheeks, it seems to arouse him even more.'
			'<<$sp_name>> fucks you slowly and sensitively.'
			gs 'arousal', 'vaginal', 10
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pavShared_sp', 'spSexVaginal'
		end

	!doggy
	elseif step = 2:
		if subStep = 0:
			'<center><video autoplay loop src="images/shared/sex/vag/doggy/kotovsex10.mp4"></video></center>'
			''
			'You kneel on the bed, bending your back as much as you can, putting your nice round ass ass high as possible.'
			'<<$sp_name>> kneels behind you, rubbing your asscheeks. He starts probing your pussy with his lubed fingers, sensitively stimulating your labia and clitoris.'
			'Then he takes his dick and slowly enters your moist hole, pushing in until you he feels it''s starting to feel enough for you.'
			'The first mild pain fades away and you can feel building warmth and a good feeling of being fucked from behind like a mare in heat.'
			gs 'arousal', 'vaginal', 10, 'lube'
			gs 'stat'
			orgB += rand(5, 20)
			act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexVaginal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/shared/sex/vag/facedown/kotovsexbonus20.mp4"></video></center>'
			''
			'As he continuously fucks your pussy, you reach for his smooth balls bashing your clitoris from behind and rub it, making his slow movements even more passionate.'
			'He often plays with your anus with his fingers during the sex, using the doggystyle position to his advantage.'
			'<<$sp_name>> fucks you slowly and sensitively.'
			gs 'arousal', 'vaginal', 10
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pavShared_sp', 'spSexVaginal'
		end

	!sidefuck
	elseif step = 3:
		if subStep = 0:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/vagSidefuck1.jpg"></video></center>'
			''
			'You lie on the bed, raising the upper leg in the air, exposing your tender pussy.'
			'He takes this as a invitation, lying behind you.'
			'He rubs your ass, slowly making his way to your hole, playing with it for a while.'
			'Finally <<$sp_name>> takes his rod, pointing the tip right to the entry of your vagina.'
			'He starts pushing it inside, and as it is lubed, it goes in quite easily.'
			gs 'arousal', 'vaginal', 10, 'lube'
			gs 'stat'
			orgB += rand(5, 20) 
			act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexVaginal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedApt/sex/vagSidefuck2.mp4"></video></center>'
			''
			'As he continuously fucks your pussy, you reach for his smooth balls and rub them, making his slow movements even more passionate.'
			'<<$sp_name>> fucks you slowly and sensitively.'
			gs 'pain', 1, 'vaginal', 'stretch'
			gs 'arousal', 'vaginal', 10
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pavShared_sp', 'spSexVaginal'
		end

	!where to cum
	elseif step = 10:
		if subStep = 0:
			minut += 2
			'<<$sp_name>> is groaning loudly, you can say that he is reaching his orgasm.'
			'You decide to tell him:'
			sp_served = 1
			sp_vag += 1
			act 'Cum inside me':subStep = 1 & gt 'pavShared_sp', 'spSexVaginal'
			cumOutL = rand(2, 6)
			act 'Don''t cum inside me':subStep = cumOutL & gt 'pavShared_sp', 'spSexVaginal'

		!inside
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoreCumPussy3.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end, pumping his load <<spDick>> cm deep inside your pussy.'
			sp_vagCumInside += 1
			sp_cumVag += sp_cumVol
			sp_lastCum = daystart
			gs 'cum_call', '', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'vaginal', 2
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!stomach
		elseif subStep = 2:
			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumBelly2.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end and in the moment he starts spouting his seed, he takes his dick out and points it on your stomach.'
			'An extensive pool of cum lands on your abdomen, feeling warm but sticky.'
			minut += 2
			sp_lastCum = daystart
			gs 'cum_call', 'stomach', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!ass
		elseif subStep = 3:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/cumOnAss.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end and in the moment he starts spouting his seed, he takes his dick out and points it on your ass.'
			'Both your asscheeks are covered in sticky, warm seed.'
			minut += 2
			sp_lastCum = daystart
			gs 'cum_call', 'butt', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!face
		elseif subStep = 4:
			'<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cumface1.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end and in the moment he starts spouting his seed, he gently pushes you on your knees and points his tip in front of your face.'
			'The seed starts squirting, splashing your face with surprisingly strong force, leaking to your nose and eyes and hair..'
			minut += 2
			sp_lastCum = daystart
			gs 'cum_call', 'face', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!takeout fail
		elseif subStep = 5:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/vagCumTakoutFail.jpg"></center>'
			''
			'You expect <<$sp_name>> to take his cock out of you any moment, but instead you hear his groans becoming louder.'
			'<font color=#<<$pcs_font>>>"What are you doing? You aren''t coming inside me, are you?"</font>'
			'<font color=#<<$sp_font>>>"Sorry <<$pcs_firstname>>, it was just too intensive."</font>'
			if tabletkishot = 0 and pillcon < 0:
				'<font color=#<<$pcs_font>>>"I am not on the pill <<$sp_name>>!"</font>'
				'<font color=#<<$sp_font>>>"Uh.. Don''t worry, it will be allright. You can take the after pill, anyway!"</font>'
				'He is obvously displeased by this.'
				sp_rel -= 5
			end
			'Annoyed you get up from the bed, putting your clothes between your legs to catch the remainder of the cum, so it doesn''t spur on your legs and carpet.'
			sp_lastCum = daystart
			sp_cumVag += sp_cumVol
			sp_vagCumInside += 1
			sp_vagCumInsideUnwanted += 1
			gs 'cum_call', '', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'vaginal', 5, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'


		!will you swallow?
		elseif subStep = 6:
			'<font color=#<<$sp_font>>>"I won''t cum inside you, but please can you swallow?"</font>'
			act 'Yes':subStep = 20 & gt 'pavShared_sp', 'spSexVaginal'
			act 'No':subStep = 30 & gt 'pavShared_sp', 'spSexVaginal'

		!swallow YES
		elseif subStep = 20:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoreCumMouth5.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the end and in the moment he is about the come, you get on your knees and open your mouth for his delivery.'
			'The seed starts squirting, landing in your mouth and some even around it.'
			'<<$sp_name>> spins the last of his cum dry from his cock, you close your mouth, swallowing the mouthful in one gulp.'
			'Afterwards you show him your tongue as a proof that not a drop was left unconsumed..'
			sp_lastCum = daystart
			sp_cumSwall += sp_cumVol
			sp_swall += 1
			sp_rel += 1
			minut += 5
			gs 'cum_call', 'mouth', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!swallow NO
		elseif subStep = 30:
			'<font color=#<<$sp_font>>>"Allright I''ll cum elsewhere.."</font>'
			sp_rel -= 3
			cumOutL2 = rand(2, 5)
			act 'Continue':subStep = cumOutL2 & gt 'pavShared_sp', 'spSexVaginal'
		end
	end
end

if $ARGS[0] = 'spSexAnal':
	'<b><font color=#<<$sp_font>>><<$sp_name>> - anal sex</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	end
	''
	$metka = 'spSexAnal'
	price = price_anal
	if step > 0:'<<$sp_name>> orgasm build-up: '+orgB+'/100'

	!strip down
	if step = 0:
		minut += 5
		orgB = 0
		cockHard = 0
		failC = 0
		$clothingworntype = 'nude'
		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/simplystrip1.mp4"></video></center>'
		''
		'<<$sp_name>> begins to undress and you follow his example, stripping the few clothes you are currently wearing.'
		'His hairless, muscular body has a bronze tan. He moves towards you, lubing his <<spDick>> cm long cock and stroking it on the way.'
		if $pantyworntype ! 'none':
			gs 'panties', 'remove'
			gs 'stat'
			'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, those panties are adorable, but they will get in the way you know?"</font>'
			'You entirely forgot to take them off!'
			'You reach for the ribbon of the panties, slowly slipping them off, down your legs. You blush a little.'
		end
		'<<$sp_name>> takes you by the waist, delicately kissing you.'
		'<font color=#<<$sp_font>>>"Do you want to make love in a certain position, or should I choose?"</font>'
		if sp_pornPos = 0:hisPos = rand(1, 3)
		!if sp_pornPos = 1:hisPos = rand(1, 4)
		!if sp_pornPos = 2:hisPos = rand(1, 5)

		act 'Let him choose':step = hisPos & gt 'pavShared_sp', 'spSexAnal'
		act 'Take me like a missionary':step = 1 & gt 'pavShared_sp', 'spSexAnal'
		act 'Take me from behind':step = 2 & gt 'pavShared_sp', 'spSexAnal'
		act 'Take me from side':step = 3 & gt 'pavShared_sp', 'spSexAnal'
		!if sp_doPornpos = 1 and sp_pornPos < 1:act 'You told me that you want to try one position from porn, didn''t you?':sp_rel += 3 & step = 4 & gt 'pavShared_sp', 'spSexAnal'
		!if sp_doPornpos = 2 and sp_pornPos < 2:act 'You told me that you want to try another position from porn, didn''t you?':sp_rel += 2 & step = 5 & gt 'pavShared_sp', 'spSexAnal'
		!if sp_pornPos >= 1:act 'Take me full nelson':step = 4 & gt 'pavShared_sp', 'spSexAnal'
		!if sp_pornPos >= 2:act 'Take me pile driver':step = 5 & gt 'pavShared_sp', 'spSexAnal'

	!missionary
	elseif step = 1:
		if subStep = 0:
			'<center><video autoplay loop src="images/shared/sex/anal/mis/analenter.mp4"></video></center>'
			''
			'You lie on the bed, spreading your legs for easy access.'
			'<<$sp_name>> kneels between those, gently spreading them a bit wider with his hands.'
			'As he is content with the sight, he leans above you, moving his hips closer to your crotch.'
			'He rubs the tip of his phallus around your sphincter, making it wet and preparing to penetrate it.'		
			'Before doing so, he takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated.'
			'He gently starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
			gs 'arousal', 'anal', 10, 'lube'
			gs 'stat'
			orgB += rand(5, 20) 
			act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexAnal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/shared/sex/anal/mis/kotovsexanal0.mp4"></video></center>'
			''
			'As he continuously fucks your anus, you rub his hairless ass, making him even hornier.'
			'As you move your hands around his smooth asscheeks, it seems to arouse him even more.'
			'<<$sp_name>> fucks you slowly and sensitively.'
			gs 'arousal', 'anal', 10
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pavShared_sp', 'spSexAnal'
		end

	!behind
	elseif step = 2:
		if subStep = 0:
			'<center><video autoplay loop src="images/shared/sex/anal/doggy/anal4.mp4"></video></center>'
			''
			'You kneel on the bed, bending your back as much as you can, putting your nice round ass as high as possible.'
			'<<$sp_name>> kneels behind you, rubbing your asscheeks. He starts probing your anus with his lubed fingers, penetrating in and out, playing with the nice round sphincter..'
			'He takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated.'
			'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
			gs 'arousal', 'anal', 10, 'lube'
			gs 'stat'
			orgB += rand(5, 20)
			act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexAnal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/shared/sex/anal/doggy/kotovsexanal11.mp4"></video></center>'
			''
			'As he continuously fucks your anus, you reach for his smooth balls and rub them, making his slow movements even more passionate.'
			'<<$sp_name>> fucks you slowly and sensitively.'
			gs 'arousal', 'anal', 10
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pavShared_sp', 'spSexAnal'
		end

	!sidefuck
	elseif step = 3:
		if subStep = 0:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/analSidefuck1.jpg"></center>'
			''
			'You lie on the bed, raising the upper leg in the air, exposing your lustful anus.'
			'He takes this as a invitation, lying behind you.'
			'He rubs your ass, slowly making his way to your hole, playing with it for a while.'
			'He takes some more lube on his fingers and one by one he sretches your anus with them. Making it easier for you to be penetrated later.'
			'He starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
			gs 'arousal', 'anal', 10, 'lube'
			gs 'stat'
			orgB += rand(5, 20) 
			act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexAnal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/analSidefuck2.mp4"></video></center>'
			''
			'As he continuously fucks your anus, you reach for his smooth balls and rub them, making his slow movements even more passionate.'
			'<<$sp_name>> fucks you slowly and sensitively.'
			gs 'pain', 1, 'anal', 'stretch'
			gs 'arousal', 'anal', 10
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pavShared_sp', 'spSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pavShared_sp', 'spSexAnal'
		end

	!where to cum
	elseif step = 10:
		if subStep = 0:
			minut += 2
			'<<$sp_name>> is groaning loudly, you can say that he is reaching his orgasm.'
			'You decide to tell him:'
			sp_served = 1
			sp_anal += 1
			act 'Cum inside me':subStep = 1 & gt 'pavShared_sp', 'spSexAnal'
			cumOutL = rand(2, 6)
			act 'Don''t cum inside me':subStep = cumOutL & gt 'pavShared_sp', 'spSexAnal'

		!inside
		elseif subStep = 1:
			'<center><video autoplay loop src="images/shared/sex/cum/analcreampie/cumAnal2.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end, pumping his load <<ndDick>> cm deep inside your anus.'
			sp_analCumInside += 1
			sp_lastCum = daystart
			sp_cumAnal += sp_cumVol
			gs 'cum_call', 'anus', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'anal', 2
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!stomach
		elseif subStep = 2:
			'<center><video autoplay loop src="images/shared/sex/cum/stomach/cumBelly2.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end and in the moment he starts spouting his seed, he takes his dick out and points it on your stomach.'
			'A small pool of cum lands on your abdomen, feeling warm but sticky.'
			minut += 2
			sp_lastCum = daystart
			gs 'cum_call', 'stomach', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!ass
		elseif subStep = 3:
			'<center><video autoplay loop src="images/shared/sex/cum/cum3.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end and in the moment he starts spouting his seed, he takes his dick out and points it on your ass.'
			'Both your asscheeks are covered in sticky, warm seed.'
			minut += 2
			sp_lastCum = daystart
			gs 'cum_call', 'butt', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!face
		elseif subStep = 4:
			'<center><video autoplay loop src="images/shared/sex/cum/cumf10.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the happy end and in the moment he starts spouting his seed, he pushes you on your knees and and points his tip in front of your face.'
			'The seed starts squirting, splashing your face with surprisingly strong force, leaking to your nose and eyes and hair..'
			minut += 2
			sp_lastCum = daystart
			gs 'cum_call', 'face', $sp_name, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!takeout fail
		elseif subStep = 5:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/vagCumTakoutFail.jpg"></center>'
			''
			'You expect <<$sp_name>> to take his cock out of you any moment, but instead you hear his groans becoming louder.'
			'<font color=#<<$pcs_font>>>"What are you doing? You aren''t coming inside me, are you?"</font>'
			'<font color=#<<$sp_font>>>"Sorry <<$pcs_firstname>>, it was just too intensive."</font>'

			'<font color=#<<$pcs_font>>>"I told you not to! I hate it when it slowly leaks out of my anus for hours!"</font>'
			'<font color=#<<$sp_font>>>"I am sorry sweetie, you are just too good a lover."</font>'
			'He is obvously displeased by your reaction.'
			sp_analCumInsideUnwanted += 1
			sp_lastCum = daystart
			sp_cumAnal += sp_cumVol
			sp_rel -= 5
			'You angrily get up from the bed, putting your clothes between your legs to catch the remainder of the cum, so it doesn''t spur on your legs and carpet.'
			gs 'cum_call', 'anus', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'anal', 5, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!will you swallow?
		elseif subStep = 6:
			'<font color=#<<$sp_font>>>"I won''t cum inside you, but please can you swallow?"</font>'
			act 'Yes':subStep = 20 & gt 'pavShared_sp', 'spSexAnal'
			act 'No':subStep = 30 & gt 'pavShared_sp', 'spSexAnal'

		!swallow YES
		elseif subStep = 20:
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/Yum.mp4"></video></center>'
			''
			'<<$sp_name>> finally reaches the end and in the moment he is about the come, you get on your knees and open your mouth for his delivery.'
			'The seed starts squirting, landing in your mouth and some even around it.'
			'<<$sp_name>> spins the last of his cum dry from his cock, you close your mouth, swallowing the mouthful in one gulp.'
			'Afterwards you show him your tongue as a proof that not a drop was left unconsumed..' 		
			sp_swall += 1	
			sp_rel += 1
			minut += 5
			sp_lastCum = daystart
			sp_cumSwall += sp_cumVol
			gs 'cum_call', 'mouth', $boy, 1, 0, sp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':sp_cumVol = 0 & $loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'

		!swallow NO
		elseif subStep = 30:
			'<font color=#<<$sp_font>>>"Allright I''ll cum elsewhere.."</font>'
			sp_rel -= 3
			cumOutL2 = rand(2, 5)
			act 'Continue':subStep = cumOutL2 & gt 'pavShared_sp', 'spSexAnal'
		end
	end
end

if $ARGS[0] = 'spSexGiantdildo':
	'<b><font color=#<<$sp_font>>><<$sp_name>> - giant dildo</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"></center>'
		if step > 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/sp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/sp/cockErect.jpg"></center>'
	end
	''
	$metka = 'spSexGiantdildo'
	price = price_special
	
	!strip down
	if step = 0:
		minut += 5
		orgB = 0
		cockHard = 0
		failC = 0
		$clothingworntype = 'nude'
		'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/simplystrip1.mp4"></video></center>'
		''
		'<<$sp_name>> begins to undress and you follow his example, stripping the few clothes you are currently wearing.'
		'His hairless, muscular body has a bronze tan. He sits on a bed next to you, caressing his own <<spDick>> cm long cock.'
		if $pantyworntype ! 'none':
			gs 'panties', 'remove'
			gs 'stat'
			'<font color=#<<$sp_font>>>"<<$pcs_firstname>>, those panties are adorable, but they will get in the way you know?"</font>'
			'You entirely forgot to take them off!'
			'You reach for the ribbon of the panties, slowly slipping them off, down your legs. You blush a little.'
		end
		
		'As you continue to undress, <<$sp_name>> takes something large from a box beneath his bed.'
		! first time
		if sp_dildo = 0:
			'<font color=#<<$sp_font>>>"I hope you really thought it through <<$pcs_firstname>>.. This Big boy did not get his name just like that!"</font>'
			'<<$pcs_firstname>>, meet Big boy.'
			'<font color=#<<$pcs_font>>>"Oh my g.. It''s really huge!"</font>'
			'<font color=#<<$sp_font>>>"Yes, I told you it is! Are you backing up on me or what?"</font>'
			act 'It is too big, I can''t do it': step = 100 & gt 'pavShared_sp', 'spSexGiantdildo'
			act 'It is big but I will do it': step = 10 & gt 'pavShared_sp', 'spSexGiantdildo'
		else
			act 'Continue':step = 10 & gt 'pavShared_sp', 'spSexGiantdildo'
		end

	! make it wet	
	elseif step = 10:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedApt/sex/sp/dildo1.jpg"></center>'
		''
		act 'Continue':step = 20 & gt 'pavShared_sp', 'spSexGiantdildo'

	! insert tip	
	elseif step = 20:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedApt/sex/sp/dildo2.jpg"></center>'
		''
		act 'Continue':step = 30 & gt 'pavShared_sp', 'spSexGiantdildo'

	! insert half	
	elseif step = 30:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedApt/sex/sp/dildo3.jpg"></center>'
		''
		act 'Continue':step = 40 & gt 'pavShared_sp', 'spSexGiantdildo'

	! impale on it	
	elseif step = 40:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedApt/sex/sp/dildo4.jpg"></center>'
		''
		act 'Continue':step = 50 & gt 'pavShared_sp', 'spSexGiantdildo'

	! suck while impaled
	elseif step = 50:
		'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedApt/sex/sp/dildo5.mp4"></video></center>'
		''
		'The whole mass of the Big boy is now inside of you, not just stretching the entry to your sweet litte pussy, but also oppressing your intestines from the other side and pusing on your cervix.'
		'Your struggle and the idea of this makes <<$sp_name>> very aroused. He gets up from the bed where he watched you from until now.'
		'<font color=#<<$sp_font>>>"Suck me you impaled dildo pouch."</font>'
		'Even in case you wanted to object, there is no chance given. He pushes his aroused cock to your mouth, making it penetrate inside and shutting you up.'
		'He fucks your mouth, and even that his <<$spDick>> cm long dick is not the largest one, it makes you gag.'
		'As you choke and cough, struggling not to throw up, you move around with the giant dildo inside you, causing you pain and even more struggle.'
		'This seems to arouse him even more..'
		act 'Continue':step = 70 & gt 'pavShared_sp', 'spSexGiantdildo'

	! he ejaculates on you
	elseif step = 70:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedApt/sex/sp/dildo6.jpg"> <video autoplay loop src="images/shared/sex/cum/chest/CumBreats.mp4"></video></center>'
		''
		'Being helplessly impaled on the thick rubber rod, <<$sp_name>> seems to be at his maximum arousal.'
		'He is now standing in front of you, masturbating himself furiously while holding your head by the hair next to the tip of his cock.'
		'<font color=#<<$sp_font>>>"This is for you Big boy! Now I will shower this pouch of yours with my cum!"</font>'	
		'His extraordinary arousel finishes in explosion of cum, right into your face and all over your chest, slowly leaking all the way down to your belly and crotch.'
		act 'Continue':step = 80 & gt 'pavShared_sp', 'spSexGiantdildo'

	! end
	elseif step = 80:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedApt/sex/sp/dildo7.jpg"></center>'
		''
		'You sit there, impaled to the edge of this giant, thick dildo, covered in <<$sp_name>>''s sperm from your head all the way down the belly.'
		'The experience has exhausted you so much that you cannot even lift yourself up the take out the monster.'
		'Finally you manage to push yourself with your legs up, leaving your pussy with a gape easily interchangeable with a freshly given birth, lacking just the blood.'
		
		! first time ?
		if sp_dildo = 0:
			'<font color=#<<$sp_font>>>"Are you allright <<$pcs_firstname>>? I hope Big boy did not do any lasting damage."</font>'		
			'<font color=#<<$pcs_font>>>"I..I''m OK. I think."</font>'
			'<font color=#<<$nd_font>>>"So how was it <<$pcs_firstname>>?"</font>'
			act 'The worst experience ever! Never speak of it again':dildoLike = -1 & step = 90 & gt 'pavShared_sp', 'spSexGiantdildo'
			act 'I feel humiliated, please never make me do it again':dildoLike = 0 & step = 90 & gt 'pavShared_sp', 'spSexGiantdildo'
			act 'It wasn''t so bad, but it doesn''t really arouse me though':dildoLike = 1 & step = 90 & gt 'pavShared_sp', 'spSexGiantdildo'
			act 'I didn''t think I would, but I liked it':dildoLike = 2 & step = 90 & gt 'pavShared_sp', 'spSexGiantdildo'
		else
			'<font color=#<<$sp_font>>>"Are you allright <<$pcs_firstname>>? I hope Big boy did not do any lasting damage this time."</font>'		
			act 'I''m fine':step = 200 & gt 'pavShared_sp', 'spSexGiantdildo'
		end

	! like or not; only first time dialogue
	elseif step = 90:
		if dildoLike = -1:
			'<font color=#<<$sp_font>>>"Please don''t be mad at me <<$pcs_firstname>>, you were the one who initiated this, I just told you about it. I didn''t force you or anything."</font>'
			'<font color=#<<$pcs_font>>>"One more word and I will shove it up your ass!"</font>'
			'<font color=#<<$sp_font>>><i>(gulp)</i></font>'
			act 'Leave':sp_dildo = -3 & step = 200 & gt 'pavShared_sp', 'spSexGiantdildo'
		elseif dildoLike = 0:
			'<font color=#<<$sp_font>>>"I am sorry <<$pcs_firstname>>, I never meant to humiliate you or anything. I guess this was both first time and last time, was it?"</font>'
			act 'Definitely!':sp_dildo = -2 & step = 200 & gt 'pavShared_sp', 'spSexGiantdildo'
		elseif dildoLike = 1:
			'<font color=#<<$sp_font>>>"Does that mean that you will be willing to do it sometime again?"</font>'
			act 'Yes':sp_dildo = 1 & step = 200 & gt 'pavSharedApt', 'spSexGiantdildo'
			act 'Rather not':sp_dildo = -1 & step = 200 & gt 'pavShared_sp', 'spSexGiantdildo'
		elseif dildoLike = 2:
			'<font color=#<<$nd_font>>>"You are such a cool girl <<$pcs_firstname>>!"</font>'
			act 'Continue':sp_dildo = 1 & step = 200 & gt 'pavShared_sp', 'spSexGiantdildo'
		end
	
	! afraid - back off
	elseif step = 100:
		'<font color=#<<$sp_font>>>"I am really disappointed <<$pcs_firstname>>. First you entice me on this, then you tell me you are afraid to do it. I know it is huge, but I told you so."</font>'
		'<font color=#<<$pcs_font>>>"I.. I''m sorry <<$sp_name>>, I guess I wasn''t really sure about it until I saw the monster.."</font>'
		'<font color=#<<$sp_font>>>"I know, he is quite big one. Is there any chance you''ll change your mind, or no?"</font>'
		act 'No, this is just impossible for me': sp_rel -= 20 & step = 110 & gt 'pavSharedApt', 'start'
		act 'I don''t know, maybe..': sp_rel -= 10 & step = 120 & gt 'pavSharedApt', 'start'
	
	! forever gone
	elseif step = 110:
		'<font color=#<<$sp_font>>>"I see. That''s bad. I think you should leave now, <<$pcs_firstname>>, I am really sad now."</font>'
		sp_dildo = -4
		sp_mood = 5
		step = 0
		act 'Leave':gt 'pavSharedApt', 'start'
	
	! may attempt again
	elseif step = 120:
		step = 0
		'<font color=#<<$sp_font>>>"I see. At least some hope is left. See you later <<$pcs_firstname>>."</font>'
		sp_mood = 4
		act 'Leave':gt 'pavSharedApt', 'start'
	
	! paygate
	elseif step = 200:
		sp_dildo += 1
		step = 0
		gs 'arousal', 'end'
		gs 'stat'
		$loc = 'pavSharedApt' & $metka = 'start' & gt 'pavSharedApt', 'payService'
	end
end

--- pavShared_sp ---------------------------------