# pav_shared_gp

if $ARGS[0] = 'gp':
	menu_off = 1
	$loc_arg = 'gp'
	minut += 1
	'<h3><center><font color=#<<$gp_font>>><<$gp_name>></font></h3></center>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
	''
	'He is a gopnik, showing violent and aggressive behavior. You feel something like a bad aura coming from him.'
	if gp_hadSex = 1:'As you know very well, <<$gp_name>> has <<gpDick>> cm long <a href="exec:gt ''pav_shared_gp'', ''gpDick''">dick</a> with somehow maintained pubic hair.'
	''
	'<b>Today he looks to be in a <<$gp_mood>> mood.</b>'
	if gp_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=#<<$gp_font>>>"Hey <<$pcs_firstname>>, is that my cum? Go better wash, I don''t want you near me like that!"</font>'
		act 'Leave': gt 'pav_shared_apt', 'start'
	! cum on clothes
	elseif cumloc[2] > 0 or cumloc[5] > 0 or cumloc[6] > 0 or cumloc[7] > 0:
		'<font color=#<<$gp_font>>>"Hey <<$pcs_firstname>>, is that my cum on your clothes? Go better change, I don''t want you near me like that!"</font>'
		act 'Leave': gt 'pav_shared_apt', '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=#<<$gp_font>>>"Hey <<$pcs_firstname>>, you dirty slut, you forgot to wash the cum! Get out!"</font>'
		act 'Leave': gt 'pav_shared_apt', 'start'
	else
		'<font color=#<<$gp_font>>>"Hey chick, here for fun?"</font>'
		act 'Just say hello and leave': gt 'pav_shared_apt', 'start'
		act 'Chat with him':gt 'pav_shared_gp', 'gpChat'
		if servitudeLvl = 2 and gp_served = 0:act 'Offer him to serve':gt 'pav_shared_gp', 'gpServe'
	end
end

if $ARGS[0] = 'gpDick':
	menu_off = 1
		   
	'<h3><font color=#<<$gp_font>>><<$gp_name>></font></h3>'
	if set_imgh < 250:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockflaccid.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
	else
		'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockflaccid.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
	end
	''
	'Your relation with him is <<gp_rel>> / 100.'
	'His dick is <<gpDick>> cm long with somehow maintained pubic hair.'
	milkPause = daystart - gp_lastCum
	if milkPause >= 1:'You have not milked him for <<milkPause>> day(s), he most likely has <<gp_cumVol>> ml semen accumulated in his balls' & if gp_cumVol > 80:', which are starting to turn blue' + '.'
	'Today he looks to be at about <<gp_horny>> % of his maximum horniness.'
	''
	'So far you have:'
		if gp_hj = 1:'- jerked him'	
			if gp_hj > 1:'- jerked him <<gp_hj>> times' & if gp_hjFail > 1:' and failed to make him cum with your hands <<gp_hjFail>> times'
		if gp_bj = 1:'- given him a blowjob'
			if gp_bj > 1:'- given him <<gp_bj>> blowjobs' & if gp_bjFail > 1:' and failed to make him cum with your mouth <<gp_bjFail>> times'
		if gp_bjDeep = 1:'- given him a blowjob with deepthroat'
			if gp_bjDeep > 1:'- given him <<gp_bjDeep>> blowjobs with deepthroat' & if gp_bjFailPuke > 1:' but failed and puked in his crotch <<gp_bjFailPuke>> times' & if gp_bjFailPuke > 1:' but failed and fainted impaled on his cock <<gp_bjFailFaint>> times'
		if gp_swall = 1:'- swallowed his semen, making it <<gp_cumSwall>> ml swallowed total'
			if gp_swall > 1:'- swallowed his semen <<gp_swall>> times, making it <<gp_cumSwall>> ml swallowed total'
		if gp_vag = 1:'- took it in your pussy' & if gp_vagCumInside = 1:' and let him cum inside you' & if gp_vagCumInsideUnwanted = 1:' and he also came inside your pussy against your will'
			if gp_vag > 1:'- took it in your pussy <<gp_vag>> times' & if gp_vagCumInside >= 1:' and let him cum inside you <<gp_vagCumInside>> times' & if gp_vagCumInsideUnwanted >= 1:' and he also came inside your pussy against your will <<gp_vagCumInsideUnwanted>> times'
		if gp_cumVag > 0:'- he pumped in total <<gp_cumVag>> ml of cum into your pussy'
		if gp_anal = 1:'- took it in your ass' & if gp_analCumInside = 1:' and let him cum inside you' & if gp_vagCumInsideUnwanted = 1:' and he also came inside your anus against your will'
			if gp_anal > 1:'- took it in your ass <<gp_anal>> times' & if gp_analCumInside >= 1:' and let him cum inside you <<gp_analCumInside>> times' & if gp_vagCumInsideUnwanted >= 1:' and he also came inside your anus against your will <<gp_analCumInsideUnwanted>> times'
		if gp_analVag > 0:'- he pumped in total <<gp_cumAnal>> ml of into your anus'
	if $loc_arg = 'gp':
		act 'Continue':gt 'pav_shared_gp', 'gp'
	else
		act 'Continue':gt 'pav_shared_apt', $goBack
	end
end

if $ARGS[0] = 'gpChat':
	menu_off = 1
	$loc_arg = 'gpChat'
	'<h3><font color=#<<$gp_font>>><<$gp_name>></font></h3>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
	''
	! basic chat
	if chatLvl = 0:
		!clothing and bodyshape reactions
		say = rand(1, 2)
		if say = 1:
			if $clothingworntype = 'nude':
				'<<$gp_name>> is scanning your nude body with his eyes.'
				if salocatnow <= 2:
					'He obviously enjoys the sight: <font color=#<<$gp_font>>>"Nice body <<$pcs_firstname>>. Are you here to offer it?"</font>'
				elseif salocatnow > 2 and salocatnow <= 4:
					'He is not very content with the sight: <font color=#<<$gp_font>>>"You should lose some weight, <<$pcs_firstname>>, you are getting fat."</font>'
				else
					'He seems almost disgusted by the sight: <font color=#<<$gp_font>>>"Jeezus <<$pcs_firstname>>, stop eating you are beginning to look like an elefant!"</font>'
				end
				!panties on
				if salocatnow <= 4 and $pantyworntype ! 'none':
					'<font color=#<<$gp_font>>>"Why did you leave those panties on <<$pcs_firstname>>? Such a shame."</font>'
				!panties off, anal plug
				elseif salocatnow <= 4 and $pantyworntype = 'none' and analplugIN = 1:
					'As you accidentaly turn around, he gazes between your asscheeks on the plug stuck in your ass.'
					'<font color=#<<$gp_font>>>"Wow, you just can''t be a second without something filling your holes, do you?"</font>'
					if rand(0, 100) < 30:
						'As he watches you, he gets up and goes near you, his hand reaching for your plugged ass.'
						act 'What are you doing?':chatLvl = 10 & gt 'pav_shared_gp', 'gpChat'
					end
				end
			elseif CloBimbo = 1:
				'<<$gp_name>> is scanning your outfit with his eyes.'
				if salocatnow <= 4:
					'<font color=#<<$gp_font>>>"You know I like when you dress like a mindless bimbo. Not that you aren''t, but anyway, good job!"</font>'
				else
					'<font color=#<<$gp_font>>>"I like girls dressed like bimbos, but they should have the body shape for it. Waste of good cloth on you."</font>'
				end
			elseif CloStyle = 4:
				'<<$gp_name>> is scanning your outfit with his eyes.'
				if salocatnow <= 4:
					'<font color=#<<$gp_font>>>"Only thing that I like more than stupid bimbos are whores. I won''t pay you anyway, but good job!"</font>'
				else
					'<font color=#<<$gp_font>>>"I literally love whores, but with your bodyshape you won''t be earning much money, darling."</font>'
				end
			end
		elseif say = 2:
			! age reactions
			if age < 18:
				'<font color=#<<$gp_font>>>"I like that you are only <<age>> years old<<$pcs_firstname>>."</font>'
				if rand(0, 100)< 30:'<font color=#<<$gp_font>>>"By the way, don''t you have even younger sister or girlfriend that would like, you know, to meet me?"</font>'
			else
				'<font color=#<<$gp_font>>>"<<$pcs_firstname>> you are becoming too old for my taste. <<age>> years is too much."</font>'
			end
		end

		if step = 0:
			minut += 1
			act 'Chat about everyday stuff': step = 10 & gt 'pav_shared_gp', 'gpChat'
			act 'Leave':gt 'pav_shared_apt', 'start'
		elseif step = 10:
			minut += 5
			sayN = rand (1, 10)
			if sayN = 1:'<i><font color=#<<$gp_font>>>"Once I have kicked a guy to his nose... he bled like a pig!"</font></i>'
			if sayN = 2:'<i><font color=#<<$gp_font>>>"Only morons have a job. I know how to make money without one, that''s a skill!"</font></i>'
			if sayN = 3:'<i><font color=#<<$gp_font>>>"I know some cool guys of your age. They often hang around in the park."</font></i>'
			if sayN = 4:'<i><font color=#<<$gp_font>>>"No one likes the authorities. Especially the cops. Yes. Fuck the cops!"</font></i>'
			if sayN = 5:'<i><font color=#<<$gp_font>>>"Don''t hang around the train station too much. Shady people, you know."</font></i>'
			'<i>You spent some time chatting with him about his ventures and mischiefs, slightly improving your relation with him.</i>'
			gp_rel += 1
			gs 'stat'
			intimateTalkCh = rand (0, 100)
			if gp_mood <= 2 and intimateTalkCh <= 80:
				step = 20
			else
				step = 0
			end
			act 'Continue':gt 'pav_shared_gp', 'gpChat'
		elseif step = 20:
			minut += 3
			if servitudeLvl = 0:
				'<font color=#<<$gp_font>>>"<<$pcs_firstname>>, have you finally decided to be our maid?"</font>'
				'<font color=#<<$pcs_font>>>"Jeez..."</font>'
				'<font color=#<<$gp_font>>>"Come on girl, don''t you see I need to tidy this shit-of-a-room?"</font>'
				act 'Say you are still not iterested':step = 0 & gt 'pav_shared_gp', 'gpChat'
				act 'Say you are willing to do some work afterall':step = 0 & servitudeLvl = 1 & gt 'pav_shared_gp', 'gpChat'
			elseif servitudeLvl = 1:
				'<font color=#<<$gp_font>>>"<<$pcs_firstname>>, have you finally decided to be our fucktoy?"</font>'
				'<font color=#<<$pcs_font>>>"What? I already clean up and cook for you."</font>'
				'<font color=#<<$gp_font>>>"Hey, you have to earn the rent money somewhere anyway. This way you don''t need to whore yourself on the streets you know?"</font>'
				act 'Say you are no whore and you are not interested':step = 0 & gt 'pav_shared_gp', 'gpChat'
				act 'Say you are willing to spread your legs a bit afterall':step = 0 & servitudeLvl = 2 & gt 'pav_shared_gp', 'gpChat'				
			elseif servitudeLvl = 2:
				act 'Talk about sex':step = 30 & gt 'pav_shared_gp', 'gpChat'
				act 'Continue':step = 0 & gt 'pav_shared_gp', 'gpChat'
			end
		elseif step = 30:
			minut += 5
			'You get into rather wild discussion about sex, porn and all that stuff. <<$gp_name>> is obviously thinking about sex most of his time.'
			resCh = rand (0, 6)
			if resCh <= 3:
				topicR = rand (1, 5)
				if topicR = 1:'<<$gp_name>> tells you he loves rough sex.'
				if topicR = 2:'<<$gp_name>> tells you he loves when girl is submissive.'
				if topicR = 3:'<<$gp_name>> tells you he kinda likes when it is a bit painful for the girl.'
				if topicR = 4:'<<$gp_name>> tells you his <<gpDick>> cm long dick is big enough, but he would like to have even bigger.'
				if topicR = 5:'<<$gp_name>> tells you he loves when the girl is young and thin.'
				act'Continue':step = 0 & gt 'pav_shared_gp', 'gpChat'
			elseif resCh = 4:
				if gp_doPornpos = 0:
					'<<$gp_name>> tells you he loves to fuck girls the Full Nelson position. He saw it in porn.'
					act'Continue':gp_doPornpos = 1 & gp_rel += 1 & step = 0 & gt 'pav_shared_gp', 'gpChat'
				elseif gp_doPornpos = 1:
					'<<$gp_name>> tells you he loves to fuck girls the Pile Driver position. He also saw it in porn.'
					act'Continue':gp_doPornpos = 2 & gp_rel += 1 & step = 0 & gt 'pav_shared_gp', 'gpChat'
				else
					act'Continue':step = 0 & gt 'pav_shared_gp', 'gpChat'
				end
			elseif resCh = 5: 
				if gp_doAnal = 0:
					'<<$gp_name>> tells you that he loves rough anal sex.'
					act'Continue':gp_doAnal = 1 & gp_rel += 1 & step = 0 & gt 'pav_shared_gp', 'gpChat'
				else
					act'Continue':step = 0 & gt 'pav_shared_gp', 'gpChat'
				end
			elseif resCh = 6:
				if gp_doAnal = 1 and gp_doPornpos = 2:
					'<<$gp_name>> tells you that he recently bought a vacuum dick enlarger and cannot wait to test it.'
					act'Continue':gp_doVacuum = 1 & gp_rel += 1 & step = 0 & gt 'pav_shared_gp', 'gpChat'
				else
					act'Continue':step = 0 & gt 'pav_shared_gp', 'gpChat'
				end
			end
		end
	
	!anal plug
	elseif chatLvl = 10:
		'<font color=#<<$gp_font>>>"Helping you out!"</font>'
		'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/buttplugpullout.mp4"></video></center>'
		''
		'Suddenly he grabs the plug and pulls it out without a warning!'
		'PLOPPP... your ass makes a sound as the plug leaves it gaping.'
		'<font color=#<<$pcs_font>>>"Ouuuch!"</font>'
		'<font color=#<<$gp_font>>>"You''re welcome <<$pcs_firstname>>, come again!"</font>'
		analplugIN = 0
		act 'Continue':chatLvl = 0 & gt 'pav_shared_gp', 'gpChat'
	end
end

if $ARGS[0] = 'gpServe':
	menu_off = 1
	$boy = $gp_name
	gs 'npcgeneratec', 0, $boy, 23
	gs 'boyStat', $npclastgenerated
	minut += 2
	$loc_arg = 'gpServe'
	'<h3><font color=#<<$gp_font>>><<$gp_name>></font></h3>'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
	''
	step = 0
	subStep = 0

	sexCh = rand (0, 30) + gp_horny

	! very bad mood, does not want anything
	if gp_mood >= 5:
		'<font color=#<<$gp_font>>>"Not now <<$pcs_firstname>>, get lost."</font>'
		act 'Leave':gt 'pav_shared_apt', 'start'
	
	! random chance to sex, but increasing with horniness level; nd min horny = 30/100*100 = 30
	elseif sexCh < 40:
		'<font color=#<<$gp_font>>>"Not now <<$pcs_firstname>>, can''t you see I am busy?"</font>'
		act 'Leave':gt 'pav_shared_apt', 'start'
	
	! wants sex
	else
		actionR = rand (2, 6)
		if actionR = 2:
			'<font color=#<<$gp_font>>>"You can do me with your little hands."</font>'
			act 'Agree': gp_rel += 1 & gt 'pav_shared_gp', 'gpHandjob'
		elseif actionR = 3:
			'<font color=#<<$gp_font>>>"Sure <<$pcs_firstname>>, blow me right now."</font>'
			act 'Agree': gp_rel += 1 & gt 'pav_shared_gp', 'gpSuck'
		elseif actionR = 4:
			'<font color=#<<$gp_font>>>"Present your pussy, <<$pcs_firstname>>."</font>'
			act 'Agree': gp_rel += 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif actionR = 5:
			if gp_anal = 0:
				if gp_doAnal = 1:
					'<font color=#<<$gp_font>>>"Hmmm... what would I like to do to you?"</font>'
					act 'It''s your choice':gt 'pav_shared_gp', 'gpServe'
					act 'You told me you like anal, do you?': gp_rel += 3 & gt 'pav_shared_gp', 'gpSexAnal'
				else
					gt 'pav_shared_gp', 'gpServe'
				end
			elseif gp_anal >= 1:
				'<font color=#<<$gp_font>>>"Sure <<$pcs_firstname>>, I would like to take your ass this time."</font>'
				act 'Agree': gp_rel += 1 & gt 'pav_shared_gp', 'gpSexAnal'
			end
		elseif actionR = 6:
			if gp_doVacuum >= 1:
				'<font color=#<<$gp_font>>>"Hmmm... what would I like to do to you?"</font>'
				act 'It''s your choice':gt 'pav_shared_gp', 'gpServe'
				act 'You told me you bought some vacuum enlarger, did you?':step = 6 & gp_rel += 2 & gt 'pav_shared_gp', 'gpSexVaginal'
			else
				gt 'pav_shared_gp', 'gpServe'
			end
		end
		if actionR > 1:act 'Say you changed your mind and leave': gp_rel -= 1 & gt 'pav_shared_apt', 'start'
	end
end

if $ARGS[0] = 'gpHandjob':
	'<b><font color=#<<$gp_font>>><<$gp_name>> - handjob</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and cockHard = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockflaccid.jpg"></center>'
		if step > 0 and cockHard = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and cockHard = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockflaccid.jpg"></center>'
		if step > 0 and cockHard = 1:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
	end
	''
	$loc_arg = 'gpHandjob'
	price = price_handjob
	if step > 0:'<<$gp_name>> orgasm build-up: '+orgB+'/100'

	if step = 0:
		orgB = 0
		cockHard = 0
		failC = 0
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj2.mp4"></video></center>'
		''
		'<<$gp_name>> sits on his bed, spreading his legs, showing you where to go.'
		'You drop on your knees, crawl to him and unzip his pants.'
		'His dick falls out of them, already half hard. <font color=#<<$gp_font>>>"Get to work, little girl."</font>'
		'Looking at the cock, you decide to:'
		cockHard = 0
		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
	
	!slow strokes
	elseif step = 1:
		if gp_mood = 0:
			orgB += rand(0, 10)
		else
			orgB += rand(0, 10) / gp_mood
		end
		'<center><video autoplay loop src="images/shared/sex/handjob/handjob2.mp4"></video></center>'
		''
		'You grab <<$gp_name>>''s cock in your hand, jerking it slowly, changing the pressure from time to time.'
		if cockHard = 0:cockHard = 1 & 'Your moves are slowly making the cock to get harder and harder, finally reaching his full <<gpDick>> cm length.'
		gs 'arousal', 'hj', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		
		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Jerk it fast':step = 2 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the cock':step = 3 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the tip':step = 4 & gt 'pav_shared_gp', 'gpHandjob'	
	
	!fast strokes
	elseif step = 2:
		'<center><video autoplay loop src="images/shared/sex/handjob/hj0.mp4"></video></center>'
		''
		orgB += rand(10, 20)
		'You jerk his hard cock with quite a fast pace, making him moan from pleasure.'
		gs 'arousal', 'hj', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Jerk it fast':step = 2 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the cock':step = 3 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the tip':step = 4 & gt 'pav_shared_gp', 'gpHandjob'	
		if orgB >= 100:
			act 'Try to make him cum':step = 5 & gt 'pav_shared_gp', 'gpHandjob'
		end

	!lube massage
	elseif step = 3:
		'<center><video autoplay loop src="images/shared/sex/handjob/handjob1.mp4"></video></center>'
		''
		orgB += rand(15, 30)
		'You put some lube on your hands and massage his cock with it.'
		'The slimy lube enables you to increase the sensation, making him moan even more inensively.'
		'<font color=#<<$gp_font>>>"Oh yeah <<$pcs_firstname>>, this is what girls should learn as young as possible!"</font>'
		gs 'arousal', 'hj', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Jerk it fast':step = 2 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the cock':step = 3 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the tip':step = 4 & gt 'pav_shared_gp', 'gpHandjob'	
		if orgB >= 100:
			act 'Try to make him cum':step = 5 & gt 'pav_shared_gp', 'gpHandjob'
		end
	
	!tip lube massage
	elseif step = 4:
		'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj1.jpg"></center>'
		''
		minut += 1
		orgB += rand(15, 30)
		'You put some lube on your hands and massage the tip of his cock with it.'
		'The slimy lube enables you to play with the violet head of his cock, stroking also the hole time to time.'
		act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Jerk it fast':step = 2 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the cock':step = 3 & gt 'pav_shared_gp', 'gpHandjob'
		act 'Put on lube and massage the tip':step = 4 & gt 'pav_shared_gp', 'gpHandjob'	
		if orgB >= 100:
			act 'Try to make him cum':step = 5 & gt 'pav_shared_gp', 'gpHandjob'
		end

	!cum attempt
	elseif step = 5:
		'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', 'hj', 5
		cumCh = rand(0, 100)
		if cumCh <= 70:
			''
			'<center><video autoplay loop src="images/shared/sex/cum/handjob/hand0,0.mp4"></video></center>'
			''
			'Your attempt is successful, as <<$gp_name>> cums right onto your hands and squirts all around them.'
			gp_lastCum = daystart
			gp_served = 1
			gs 'cum_call', 'hands', $boy, 1, 0, gp_cumVol
			act 'Get up':step = 9 & gp_cumVol = 0 & gt 'pav_shared_gp', 'gpHandjob'
		else
			failC += 1
			if failC >= 3:
				''
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/bjfail.jpg"></center>'
				''
				'<font color=#<<$gp_font>>>"Come on <<$pcs_firstname>>, if you can''t suck a cock stop wasting my time. Get out!"</font>'
				act 'Get up':step = 6 & gt 'pav_shared_gp', 'gpHandjob'
			else
				''
				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/kotovhj.jpg"></center>'
				''
				'<font color=#<<$gp_font>>>"Come on <<$pcs_firstname>>, what are you doing down there?"</font>'
				act 'Jerk it slowly':step = 1 & gt 'pav_shared_gp', 'gpHandjob'
				act 'Jerk it fast':step = 2 & gt 'pav_shared_gp', 'gpHandjob'
				act 'Put on lube and massage the cock':step = 3 & gt 'pav_shared_gp', 'gpHandjob'
				act 'Put on lube and massage the tip':step = 4 & gt 'pav_shared_gp', 'gpHandjob'
			end
		end

	!END cum fail
	elseif step = 6:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
		''
		'You get up from your knees, looking at <<$gp_name>>:<font color=#<<$pcs_font>>>"I''m sorry I was unable to satisfy you."</font>.'
		'He looks really pissed:<font color=#<<$gp_font>>>"Get out you lousy slut!"</font>'
		gp_rel -= 3
		step = 0
		gp_hjFail += 1
		gs 'arousal', 'end'
		gs 'stat'
		act 'Leave':gt 'pav_shared_apt', 'start'

	!END cum success
	elseif step = 9:
		gp_hj += 1
		if gp_mood <= 3:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
			''
			'<font color=#<<$gp_font>>>"Good job, <<$pcs_firstname>>. Now get out."</font>'
			'Cleaning your hands off the cum: <font color=#<<$pcs_font>>>"OK, see you later."</font>.'
			gp_rel += 1
			step = 0
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
			''
			'<<$gp_name>> doesn''t pay anymore attention to you, dressing up his pants he takes another magazine and starts reading it.'
			'You just pack your things and quietly leave through the door.'
			step = 0
		end
		gs 'arousal', 'end'
		gs 'stat'
		act 'Leave': gt 'pav_shared_apt', 'payService'
	end
end

if $ARGS[0] = 'gpSuck':
	'<b><font color=#<<$gp_font>>><<$gp_name>> - blowjob</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and cockHard = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockflaccid.jpg"></center>'
		if step > 0 and cockHard = 1:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and cockHard = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockflaccid.jpg"></center>'
		if step > 0 and cockHard = 1:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
	end
	''
	$loc_arg = 'gpSuck'
	price = price_blowjob
	if step > 0:'<<$gp_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/gp/cockflaccid.jpg"></center>'
		''
		'<<$gp_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 'pav_shared_gp', 'gpSuck'
		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the tip':step = 3 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the cock':step = 4 & gt 'pav_shared_gp', 'gpSuck'

	!lick balls
	elseif step = 1:
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj74.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', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the tip':step = 3 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the cock':step = 4 & gt 'pav_shared_gp', 'gpSuck'

	!Lick the tip
	elseif step = 2:
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj50.mp4"></video></center>'
		''
		'You take <<$gp_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 <<gpDick>> cm length.'
		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		orgB += rand(2, 7)
		cockHard = 1
		act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the tip':step = 3 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the cock':step = 4 & gt 'pav_shared_gp', 'gpSuck'

	!suck the tip
	elseif step = 3:
		'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoreblowjobtip3.mp4"></video></center>'
		''
		if cockHard = 0:
			orgB += rand(5, 15)
			'<<$gp_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)
			'<<$gp_name>>''s already hard cock points toward you and you suck the dark pink tip as a lolipop.'
		end
		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the tip':step = 3 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the cock':step = 4 & gt 'pav_shared_gp', 'gpSuck'
		act 'Deepthroat':step = 5 & gt 'pav_shared_gp', 'gpSuck'
		if orgB >= 100:
			act 'Try to make him cum':step = 6 & gt 'pav_shared_gp', 'gpSuck'
		end

	!sucking dick
	elseif step = 4:
		'<center><video autoplay loop src="images/shared/sex/blowjob/kotovbj122.mp4"></video></center>'
		''
		if cockHard = 0:
			orgB += rand(15, 35)
			'<<$nd_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)
			'<<$gp_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', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
		act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the tip':step = 3 & gt 'pav_shared_gp', 'gpSuck'
		act 'Suck the cock':step = 4 & gt 'pav_shared_gp', 'gpSuck'
		act 'Deepthroat':step = 5 & gt 'pav_shared_gp', 'gpSuck'
		if orgB >= 100:
			act 'Try to make him cum':step = 6 & gt 'pav_shared_gp', 'gpSuck'
		end
	
	!deepthroat
	elseif step = 5:
		'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/bjdeepthroat.mp4"></video></center>'
		''
		orgB += rand(40, 60)
		'You decide to take <<$gp_name>>''s hard, <<gpDick>> 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.'
		'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.'
		gp_bjDeep = 1
		gs 'arousal', 'bj', iif(rand(0,1) > 0, -1, 1)
		gs 'stat'
		deepthroatFailCh = rand(0, 100) + pcs_throat / 3
		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 <<$gp_name>>''s crotch!</b>'
			act 'Continue':step = 8 & gt 'pav_shared_gp', 'gpSuck'
		elseif fadeOutCh <= 5:
			'<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 'pav_shared_gp', 'gpSuck'
		else
			act 'Lick his balls':step = 1 & gt 'pav_shared_gp', 'gpSuck'
			act 'Lick the tip':step = 2 & gt 'pav_shared_gp', 'gpSuck'
			act 'Suck the tip':step = 3 & gt 'pav_shared_gp', 'gpSuck'
			act 'Suck the cock':step = 4 & gt 'pav_shared_gp', 'gpSuck'
			act 'Deepthroat':step = 5 & gt 'pav_shared_gp', 'gpSuck'
			if orgB >= 100:
				act 'Try to make him cum':step = 6 & gt 'pav_shared_gp', 'gpSuck'
			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', iif(rand(0,1) > 0, -1, 1)
		cumCh = rand(0, 100)
		if cumCh <= 70:
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum1,5.mp4"></video></center>'
			''
			'Your attempt is successful, as <<$gp_name>> cums right into your mouth and on your face.'
			gp_lastCum = daystart
			gp_served = 1
			gs 'cum_call', 'mouth', $boy, 1, 0, gp_cumVol / 2
			gs 'cum_call', 'face', $boy, 1, 0, gp_cumVol / 2
			act 'Get up':step = 10 & gp_cumVol = 0 & gt 'pav_shared_gp', 'gpSuck'
		else
			failC += 1
			if failC >= 3:
				''
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/bjfail.jpg"></center>'
				''
				'<font color=#<<$gp_font>>>"You are such a lousy sucker <<$pcs_firstname>>. Get out!"</font>'
				act 'Get up':step = 7 & gt 'pav_shared_gp', 'gpSuck'
			else
				''
				'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/bjfailtryagain.mp4"></video></center>'
				''
				'<font color=#<<$gp_font>>>"Come on <<$pcs_firstname>>, 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 'pav_shared_gp', 'gpSuck'
				act 'Suck the cock':step = 4 & gt 'pav_shared_gp', 'gpSuck'	
				act 'Deepthroat':step = 5 & gt 'pav_shared_gp', 'gpSuck'
			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 <<$gp_name>>:<font color=#<<$pcs_font>>>"I''m sorry I was unable to satisfy you."</font>.'
		'He looks really pissed:<font color=#<<$gp_font>>>"Get out you lousy slut!"</font>'
		gp_rel -= 3
		step = 0
		gp_bjFail += 1
		act 'Leave':gt 'pav_shared_apt', 'start'

	!END deepthroat fail
	elseif step = 8:
		'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/bjdeepthroatpuke.mp4"></video></center>'
		''
		'<font color=#<<$gp_font>>>"Oh my god <<$pcs_firstname>>, have you just puked your shit onto me??!!"</font>'
		'Cleaning your face and mouth with your clothes, all you can say is <font color=#<<$pcs_font>>>"I''m sorry..."</font>.'
		'<font color=#<<$gp_font>>>"Get out you stupid cunt!"</font>'
		gp_rel -= 5
		step = 0
		gp_bjFail += 1
		gp_bjFailPuke += 1
		act 'Leave':gt 'pav_shared_apt', 'start'

	!END deepthroat faint 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=#<<$gp_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=#<<$gp_font>>>"I guess you took somehow bigger portion than you can stand, <<$pcs_firstname>>!"</font> He is obviously entertained by this, even though you were unable to finish him.'
		gp_rel += 1
		step = 0
		gp_bjFail += 1
		gp_bjFailFaint += 1
		act 'Get up and leave':gt 'pav_shared_apt', 'start'

	!END cum success
	elseif step = 10:
		gp_bj += 1
		if gp_mood <= 3:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
			''
			'<font color=#<<$gp_font>>>"Good job, <<$pcs_firstname>>. Now get out."</font>'
			'Cleaning your face and mouth off the cum: <font color=#<<$pcs_font>>>"OK, see you later."</font>.'
			gp_rel += 1
			step = 0
		else
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/leave.jpg"></center>'
			''
			'<<$gp_name>> doesn''t pay anymore attention to you, dressing up his pants he takes another magazine and starts reading it.'
			'You just pack your things and quietly leave through the door.'
			step = 0
		end
		gs 'arousal', 'end'
		gs 'stat'
		act 'Get up and leave': gt 'pav_shared_apt', 'payService'
	end
end

if $ARGS[0] = 'gpSexVaginal':
	'<b><font color=#<<$gp_font>>><<$gp_name>> - vaginal sex</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and step < 6:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
		if step = 6:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockerectvacuum.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and step < 6:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
		if step = 6:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockerectvacuum.jpg"></center>'
	end
	''
	$loc_arg = 'gpSexVaginal'
	price = price_vaginal
	if step > 0:'<<$gp_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>'
		''
		'<<$gp_name>> begins to undress and you follow his example, stripping the few clothes you are currently wearing.'
		'His somewhat thin but muscular body has the rather pale skin. He moves towards you, lubing his <<gpDick>> cm long cock and stroking it on the way.'
		if $pantyworntype ! 'none':
			gs 'panties', 'remove'
			gs 'stat'
			'<font color=#<<$gp_font>>>"Hey, <<$pcs_firstname>>, you let those panties on for me to rip them off, or what?"</font>'
			'You entirely forgot to take them off! Or maybe you didn''t want to actually?'
			'You reach for the ribbon of the panties, slowly slipping them off, down your legs. You blush a little.'
		end
		'<<$gp_name>> takes you by the ass, instantly poking his fingers into your pussy.'
		'<font color=#<<$gp_font>>>"Do you want to have your pussy fucked a certain way, or should I choose?"</font>'
		if gp_pornPos = 0:hisPos = rand(1, 3)
		if gp_pornPos = 1:hisPos = rand(1, 4)
		if gp_pornPos = 2:hisPos = rand(1, 5)
		if gp_vacuum = 1:hisPos = rand(1, 6)

		act 'Let him choose':step = hisPos & gt 'pav_shared_gp', 'gpSexVaginal'
		act 'Take me like a missionary':step = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		act 'Take me from behind':step = 2 & gt 'pav_shared_gp', 'gpSexVaginal'
		act 'Take me from side':step = 3 & gt 'pav_shared_gp', 'gpSexVaginal'
		if gp_doPornpos = 1 and gp_pornPos < 1:act 'You told me that you like the Full Nelson position, do you?':gp_rel += 3 & step = 4 & gt 'pav_shared_gp', 'gpSexVaginal'
		if gp_doPornpos = 2 and gp_pornPos < 2:act 'You told me that you want the Pile Driver position, do you?':gp_rel += 2 & step = 5 & gt 'pav_shared_gp', 'gpSexVaginal'
		if gp_doVacuum = 1 and gp_vacuum < 1:act 'You told me you want to test some kind dick enlarger device...':gp_rel += 2 & step = 6 & gt 'pav_shared_gp', 'gpSexVaginal'
		if gp_pornPos >= 1:act 'Take me Full Nelson':step = 4 & gt 'pav_shared_gp', 'gpSexVaginal'
		if gp_pornPos >= 2:act 'Take me Pile Driver':step = 5 & gt 'pav_shared_gp', 'gpSexVaginal'
		if gp_vacuum = 1:act 'Take me using the vacuum enlarger on your dick':step = 6 & gt 'pav_shared_gp', 'gpSexVaginal'

	!missionary
	elseif step = 1:
		if subStep = 0:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/gp/vagmissionary1.mp4"></video></center>'
			''
			'You lie on the bed, spreading your legs for easy access.'
			'<<$gp_name>> kneels between those, roughly spreading them as wide as they go, making you scream a bit.'
			'As he is content with the sight, he leans above you, moving his hips closer to your crotch.'
			'He points the tip of his <<gpDick>> to your pussy and looks up to your face: <font color=#<<$gp_font>>>"Look at me while I penetrate your slit!"</font>'
			'Slightly shaking you do as he says...'
			'In that moment he pushes his dick inside you as far as your somewhat dry pussy let''s him.'
			'<<$gp_name>> bangs you wildly right from the start.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(10, 25) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif subStep = 1:
			  
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/gp/vagmissionary2.mp4"></video></center>'
			''
			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> now rams you as fast as he can, all his <<gpDick>> cm are inside you.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(30, 50) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexVaginal'
		end

	!doggy
	elseif step = 2:
		if subStep = 0:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/gp/vagdoggy1.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.'
			'<<$gp_name>> kneels behind you, probing your vagina with several of his fingers.'
			'<font color=#<<$gp_font>>>"<<$pcs_firstname>>, prepare for the entry!"</font>'
			'After his words, he grabs your hips and thrusts all of his <<gpDick>> centimeters inside your pussy, making you scream from discomfort.'
			'The first pain fades away and you can feel building warmth and a good feeling of being fucked from behind like a mare in heat.'
			'He fucks you furiously right from the start.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(5, 20)
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif subStep = 1:
			  
			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckroughvaginal4.mp4"></video></center>'
			''
			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> now rams you as deep and as fast he can, the every one of his <<gpDick>> cm are inside you with each stroke.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexVaginal'
		end

	!sidefuck
	elseif step = 3:
		if subStep = 0:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/vagsidefuck1.jpg"></center>'
			''
			'You lie on the bed, raising the upper leg in the air, exposing your tender pussy.'
			'He doesn''t wait for anything and lies behind you, instantly preparing his large dick for the entry.'
			'<<$gp_name>> takes his rod, pointing the tip right to the entry of your vagina.'
			'<font color=#<<$gp_font>>>"<<$pcs_firstname>>, prepare for the penetration!"</font>'
			'Then he pushes as far as his <<gpDick>> cm long dick can reach.' 
			'<<$gp_name>> bangs you wildly right from the start.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(10, 25) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif subStep = 1:
			  
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/vagsidefuck2.mp4"></video></center>'
			''
			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> now rams you as deep as he can and giving the position and the whole (<<gpDick>> cm) size of his dick, most of the strokes hurt.'
			gs 'pain', 1, 'vaginal', 'stretch'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(30, 50) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexVaginal'
		end

	!full nelson
	elseif step = 4:
		if gp_pornPos < 1:gp_pornPos = 1
		if subStep = 0:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/vagfullnelson1.jpg"></center>'
			''
			'You let him sit on the edge of the bed, having his large dick prepared for your vagina.'
			'Facing him with your back, you climb on top of him and burry his <<gpDick>> cm long dick in your pussy. You wanted to ride it a bit to make the fuck smoother, but he doesn''t let you:<font color=#<<$gp_font>>>"No time for that <<$pcs_firstname>>, let''s start already!"</font>'
			'Not waiting for your answer he grabs your legs and reaches for your head, immobilizing you entirely. Then he starts fucking you like a wild animal.'
			'In this position you literally see every stroke of his <<gpDick>> cm long penis into your pussy... And there is nothing else you can do.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(30, 50) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif subStep = 1:
			  
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/vagfullnelson2.mp4"></video></center>'
			''
			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> rams you as deep as he can.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(40, 60) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexVaginal'
		end

	!pile driver
	elseif step = 5:
		if gp_pornPos < 2:gp_pornPos = 2
		if subStep = 0:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/vagpiledriver1.jpg"></center>'
			''
			'You take a pillow from his bed, putting on the floor and lying on it with your back.'
			'As if you were doing yoga, you put your ass in the hands and lift it above your head, letting the feet fall down aside your head.'
			'<<$gp_name>> now has the very best access to your pussy: <font color=#<<$gp_font>>>"Now that''s a sight! Every girl should be fucked like that!"</font>'
 			'He goes to you, probing your pussy with several of his fingers.'
			'After while he takes his phallus, somehow bending it downwards and pushes it inside you.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(30, 50) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif subStep = 1:
			  
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/vagpiledriver2.mp4"></video></center>'
			''
			'As he continuously and wildly rams your pussy, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> rams you as deep as he can, making big effort to hammer you down as much as he can.'
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(40, 60) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexVaginal'
		end

	!vacuum enlarged fuck
	elseif step = 6:
		if gp_vacuum < 1:gp_vacuum = 1
		if subStep = 0:
			minut += 5
			gpDick_enlarged = gpDick + (gpDick * rand(20, 40) / 100)
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/gp/vacuumpumppenis.jpg"></center>'
			''
			'<<$gp_name>> takes a vacuum dick enlarger device from his closet, putting it on his already <<gpDick>> cm long dick.'
			'As he is pushing the pump, you can see the cock getting larger with each push.'
			'After some time he stops, putting a ring on the root of his dick. Today the device has enlarged it to <<gpDick_enlarged>> cm!'
			act 'Let him fuck you with that monster':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckdeep1.mp4"></video></center>'
			''
			'<font color=#<<$gp_font>>>"Now <<$pcs_firstname>> prepare your pussy for the famous Pussy Destroyer!"</font>'
			'As he reaches for your pussy you close eyes and brace for the expected pain.'
			'He starts pushing it into, and even that it is quite lubed, it goes hard.'
			'Finally he slips through the inner barrier and thrusts large part of his enlarged, <<gpDick_enlarged>> cm long and very thick dick into you.'
			orgB += rand(20, 30)
			gs 'pain', 3, 'vaginal', 'tear'
			act 'Endure it':subStep = 2 & gt 'pav_shared_gp', 'gpSexVaginal'
		elseif subStep = 2:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckdeep2.mp4"></video></center>'
			''
			'<<$gp_name>> uses his newly gained centimeters and fucks you harder than usual, making you scream and moan and beg for relief... in vain.'
			'Today he obviously enjoys his dominance and fucks you relentlessly.'
			'You have no strength to fight him and just try to endure it till the end.'
			orgB += rand(40, 60)
			gs 'pain', 5, 'vaginal', 'stretch'
			if orgB < 100:act 'Let him continue':subStep = 2 & gt 'pav_shared_gp', 'gpSexVaginal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexVaginal'			
		end

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

		!inside
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorecumpussy3.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm, pumping his load <<gpDick>> cm deep inside your pussy.'
			gp_vagCumInside += 1
			gp_cumVag += gp_cumVol
			gp_lastCum = daystart
			gs 'cum_call', '', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1)
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!stomach
		elseif subStep = 2:
			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumbelly2.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm and in the moment he starts spouting his seed, he takes his dick out and points it on your stomach.'
			'A large pool of cum lands on your abdomen, feeling warm but sticky.'
			minut += 1
			gp_lastCum = daystart
			gs 'cum_call', 'stomach', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!ass
		elseif subStep = 3:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/cumonass.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm 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 += 1
			gp_lastCum = daystart
			gs 'cum_call', 'butt', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!face
		elseif subStep = 4:
			'<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cumface1.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm and in the moment he starts spouting his seed, he 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...'
			'<font color=#<<$gp_font>>>"Oh yes, now that''s the right makeup for a girl!"</font>'
			minut += 1
			gp_lastCum = daystart
			gs 'cum_call', 'face', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!takeout fail
		elseif subStep = 5:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/vagcumtakoutfail.jpg"></center>'
			''
			'You expect <<$gp_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=#<<$gp_font>>>"Shut up <<$pcs_firstname>>, I cum where I want to."</font>'
			if tabletkishot = 0 and pillcon < 0:
				'<font color=#<<$pcs_font>>>"I am not on the pill <<$gp_name>>!"</font>'
				'<font color=#<<$gp_font>>>"And? Your problem. Piss off."</font>'
				'He is obvously annoyed by your reaction.'
				gp_rel -= 5
			else
				gp_rel -= 3
			end
			'You furiously 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.'
			gp_lastCum = daystart
			gp_cumVag += gp_cumVol
			gp_vagCumInside += 1
			gp_vagCumInsideUnwanted += 1
			gs 'cum_call', '', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'vaginal', iif(rand(0,1) > 0, -1, 1), 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'


		!will you swallow?
		elseif subStep = 6:
			'<font color=#<<$gp_font>>>"I will cum in your pussy or you will swallow it. Make your choice before it''s too late, <<$pcs_firstname>>!"</font>'
			act 'Swallow':subStep = 20 & gt 'pav_shared_gp', 'gpSexVaginal'
			act 'Pussy':subStep = 1 & gt 'pav_shared_gp', 'gpSexVaginal'
			if gp_mood <= 2:act 'Neither!':subStep = 30 & gt 'pav_shared_gp', 'gpSexVaginal'
			if gp_mood > 2:act 'Neither!':subStep = 5 & gt 'pav_shared_gp', 'gpSexVaginal'

		!swallow YES
		elseif subStep = 20:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorecummouth5.mp4"></video></center>'
			''
			'<<$gp_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.'
			'<<$gp_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...'
			'<font color=#<<$gp_font>>>"Good girl, better than any food, is it?"</font>'
			gp_lastCum = daystart
			gp_cumSwall += gp_cumVol
			gp_swall += 1
			gp_rel += 1
			minut += 5
			gs 'cum_call', 'mouth', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!swallow NO
		elseif subStep = 30:
			'<font color=#<<$gp_font>>>"Allright I''ll cum elsewhere, but only because I have a <<$nd_mood>> mood today!"</font>'
			gp_rel -= 3
			cumOutL2 = rand(2, 4)
			act 'Continue':subStep = cumOutL2 & gt 'pav_shared_gp', 'gpSexVaginal'
		end
	end
end

if $ARGS[0] = 'gpSexAnal':
	'<b><font color=#<<$gp_font>>><<$gp_name>> - anal sex</font></b>'
	if set_imgh < 250:
		if step = 0:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and step < 6:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
		if step = 6:'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/gp/cockerectvacuum.jpg"></center>'
	else
		if step = 0:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"></center>'
		if step > 0 and step < 6:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockerect.jpg"></center>'
		if step = 6:'<center><img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/gp.jpg"> <img height="250" src="images/locations/pavlovsk/resident/sharedapt/gp/cockerectvacuum.jpg"></center>'
	end
	''
	$loc_arg = 'gpSexAnal'
	price = price_anal
	if step > 0:'<<$gp_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>'
		''
		'<<$gp_name>> begins to undress and you follow his example, stripping the few clothes you are currently wearing.'
		'His somewhat thin but muscular body has the rather pale skin. He moves towards you, lubing his <<gpDick>> cm long cock and stroking it on the way.'
		if $pantyworntype ! 'none':
			gs 'panties', 'remove'
			gs 'stat'
			'<font color=#<<$gp_font>>>"Hey, <<$pcs_firstname>>, you let those panties on for me to rip them off, or what?"</font>'
			'You entirely forgot to take them off! Or maybe you didn''t want to actually?'
			'You reach for the ribbon of the panties, slowly slipping them off, down your legs. You blush a little.'
		end
		'<<$gp_name>> takes you by the ass, instantly poking his fingers into your anus.'
		'<font color=#<<$gp_font>>>"Do you want to have your ass fucked a certain way, or should I choose?"</font>'
		if gp_pornPos = 0:hisPos = rand(1, 3)
		if gp_pornPos = 1:hisPos = rand(1, 4)
		if gp_pornPos = 2:hisPos = rand(1, 5)
		if gp_vacuum = 1:hisPos = rand(1, 6)

		act 'Let him choose':step = hisPos & gt 'pav_shared_gp', 'gpSexAnal'
		act 'Take me like a missionary':step = 1 & gt 'pav_shared_gp', 'gpSexAnal'
		act 'Take me from behind':step = 2 & gt 'pav_shared_gp', 'gpSexAnal'
		act 'Take me from side':step = 3 & gt 'pav_shared_gp', 'gpSexAnal'
		if gp_doPornpos = 1 and gp_pornPos < 1:act 'You told me that you like the Full Nelson position, do you?':gp_rel += 3 & step = 4 & gt 'pav_shared_gp', 'gpSexAnal'
		if gp_doPornpos = 2 and gp_pornPos < 2:act 'You told me that you want the Pile Driver position, do you?':gp_rel += 2 & step = 5 & gt 'pav_shared_gp', 'gpSexAnal'
		if gp_doVacuum = 1 and gp_vacuum < 1:act 'You told me you want to test some kind dick enlarger device...':gp_rel += 2 & step = 6 & gt 'pav_shared_gp', 'gpSexAnal'
		if gp_pornPos >= 1:act 'Take me Full Nelson':step = 4 & gt 'pav_shared_gp', 'gpSexAnal'
		if gp_pornPos >= 2:act 'Take me Pile Driver':step = 5 & gt 'pav_shared_gp', 'gpSexAnal'
		if gp_vacuum >= 1:act 'Take me using the vacuum enlarger on your dick':step = 6 & gt 'pav_shared_gp', 'gpSexAnal'

	!missionary
	elseif step = 1:
		if subStep = 0:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/gp/analmissionary1.mp4"></video></center>'
			''
			'You lie on the bed, spreading your legs for easy access.'
			'<<$gp_name>> kneels between those, roughly spreading them as wide as they go, making you scream a bit.'
			'As he is content with the sight, he leans above you, moving his hips closer to your crotch.'
			'He points the tip of his <<gpDick>> to your pussy and looks up to your face: <font color=#<<$gp_font>>>"Look at me while I penetrate your sphincter!"</font>'
			! normal/or-better mood OR likes Sveta
			if gp_mood <= 3:
				'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 starts pushing his dick inside, and as it is lubed, it goes in quite easily.'
			else
				'Slightly shaking you do as he says...'
				'In that moment he pushes his dick inside your ass as far as he can!'
				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good little girl!"</font>'
				gs 'pain', 3, 'asshole', 'tear'
			end
			'<<$gp_name>> bangs you wildly right from the start.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(5, 20) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
		elseif subStep = 1:
			minut += 10
			'<center><video autoplay loop src="/images/locations/shared/abduction/sex/slavewhorefuckanal5.mp4"></video></center>'
			''
			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> now rams you as deep as he can, all his <<gpDick>> centimeters are inside you.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			agape = 2
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexAnal'
		end

	!behind
	elseif step = 2:
		if subStep = 0:
			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/fuckanal3.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.'
			'<<$gp_name>> kneels behind you, poking your anus with several of his fingers.'
			! normal/or-better mood OR likes Sveta
			if gp_mood <= 3:
				'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.'
			else
				'In a few moments he pushes his dick inside your ass as far as he can!'
				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good little girl!"</font>'
				gs 'pain', 3, 'asshole', 'tear'
			end
			'<<$gp_name>> bangs you wildly right from the start.'	
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			agape = 2
			gs 'stat'
			orgB += rand(5, 20)
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
		elseif subStep = 1:
			minut += 10
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckanal2.mp4"></video></center>'
			''
			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> now rams you as deep and as fast he can, the every one of his <<gpDick>> centimeters are inside you with every stroke.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexAnal'
		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 doesn''t wait for anything and lies behind you, instantly preparing his large dick for the entry.'
			'<<$gp_name>> takes his rod, pointing the tip right to your anus.'
			'<font color=#<<$gp_font>>>"<<$pcs_firstname>>, prepare for the penetration!"</font>'
			! normal/or-better mood OR likes Sveta
			if gp_mood <= 3:
				'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.'
			else
				'In a few moments he pushes his dick inside your ass as far as he can!'
				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good little girl!"</font>'
				gs 'pain', 3, 'asshole', 'tear'
			end
			'<<$gp_name>> bangs you wildly right from the start.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			agape = 2
			gs 'stat'
			orgB += rand(5, 20) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckanal1.mp4"></video></center>'
			''
			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> now rams you as deep and he can and giving the position and the entire (<<gpDick>> cm) size of his dick, the continuous banging hurts.'
			gs 'pain', 1, 'anal', 'stretch'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			agape
			gs 'stat'
			orgB += rand(20, 40) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexAnal'
		end

	!full nelson
	elseif step = 4:
		if gp_pornPos < 1:gp_pornPos = 1
		if subStep = 0:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/analfullnelson1.jpg"></center>'
			''
			'You let him sit on the edge of the bed, having his dick prepared for your anus.'
			'Facing him with your back, you climb on top of him and slowly burry his <<gpDick>> cm long dick in your anus. You wanted to ride it a bit to make the fuck smoother, but he doesn''t let you:<font color=#<<$gp_font>>>"No time for that <<$pcs_firstname>>, let''s start already!"</font>'
			'Not waiting for your answer he grabs your legs and reaches for your head, immobilizing you entirely. Then he starts fucking you like a wild animal.'
			'In this position you literally see every stroke of his <<gpDick>> cm long penis into your pussy... And there is nothing else you can do.'
			'In this position you literally see every stroke of his penis into your anus, hidden bellow your empty pussy... But there is nothing else you can do.'
			'You feel like being continuously impaled.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(20, 40) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckanal3.mp4"></video></center>'
			''
			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> rams you as deep as he can.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			agape=2
			gs 'stat'
			orgB += rand(30, 50) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexAnal'
		end

	!pile driver
	elseif step = 5:
		if gp_pornPos < 2:gp_pornPos = 2
		if subStep = 0:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/analpiledriver1.jpg"></center>'
			''
			'You take a pillow from his bed, putting on the floor and lying on it with your back.'
			'As if you were doing yoga, you put your ass in the hands and lift it above your head, letting the feet fall down aside your head.'
			'<<$gp_name>> now has the very best access to your pussy: <font color=#<<$gp_font>>>"Now that''s a sight! Every girl should be fucked like that!"</font>'
 			'He goes to you, probing your pussy with several of his fingers.'
			! normal/or-better mood OR likes Sveta
			if gp_mood <= 3:
				'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.'
			else
				'Without much care about your feelings he rams his <<gpDick>> cm long thick dick into your anus.'
				'<font color=#<<$pcs_font>>>"Ouuuch! <<$gp_name>>, that hurt!"</font>'
				'<font color=#<<$gp_font>>>"Shut up <<$pcs_firstname>> and take it like a good anal slut!"</font>'
				gs 'pain', 3, 'asshole', 'tear'
			end
			'You feel like being continuously impaled.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			gs 'stat'
			orgB += rand(20, 40) 
			act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/analpiledriver2.mp4"></video></center>'
			''
			'As he continuously and wildly rams your anus, you have no strength to do anything but endure it and moan like an injured pig.'
			'<<$gp_name>> rams you as deep as he can.'
			gs 'arousal', 'anal', iif(rand(0,1) > 0, -1, 1)
			agape=2
			gs 'stat'
			orgB += rand(30, 50) 
			if orgB < 100:act 'Let him continue':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexAnal'
		end
	
	!vacuum enlarged fuck
	elseif step = 6:
		if gp_vacuum < 1:gp_vacuum = 1
		if subStep = 0:
			minut += 5
			gpDick_enlarged = gpDick + (gpDick * rand(20, 40) / 100)
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/gp/vacuumpumppenis.jpg"></center>'
			''
			'<<$gp_name>> takes a vacuum dick enlarger device from his closet, putting it on his already <<gpDick>> cm long dick.'
			'As he is pushing the pump, you can see the cock getting larger with each push.'
			'After some time he stops, putting a ring on the root of his dick. Today the device has enlarged it to <<gpDick_enlarged>> cm!'
			act 'Let him fuck you with that monster':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/gp/analvacuumenlargerpen.mp4"></video></center>'
			''
			'<font color=#<<$gp_font>>>"Now <<$pcs_firstname>> prepare your pussy for the famous Anus Destroyer!"</font>'
			'As he reaches for your ass you close eyes and brace for the expected pain.'
			'He starts pushing it into you, and even that it is quite lubed, it goes hard.'
			'Finally he slips through the sphincter and thrusts large part of his enlarged, <<gpDick_enlarged>> cm long and very thick dick into your ass.'
			orgB += rand(20, 30)
			gs 'pain', 6, 'asshole', 'tear'
			act 'Endure it':subStep = 2 & gt 'pav_shared_gp', 'gpSexAnal'
		elseif subStep = 2:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckanaldeep1.mp4"></video></center>'
			''
			'<<$gp_name>> uses his newly gained centimeters and fucks your ass harder than usual, making you scream and moan and beg for relief... in vain.'
			'Today he obviously enjoys his dominance and fucks you relentlessly.'
			'You have no strength to fight him and just try to endure it till the end.'
			gs 'pain', 5, 'asshole', 'stretch'
			agape=3
			orgB += rand(40, 60) 
			if orgB < 100:act 'Let him continue':subStep = 2 & gt 'pav_shared_gp', 'gpSexAnal'
			if orgB >= 100:act 'He is about to cum':step = 10 & subStep = 0 & gt 'pav_shared_gp', 'gpSexAnal'			
		end

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

		!inside
		elseif subStep = 1:
			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumanal4.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm, pumping his load <<gpDick>> cm deep inside your anus.'
			gp_analCumInside = 1
			gp_lastCum = daystart
			gp_cumAnal += gp_cumVol
			gs 'cum_call', 'anus', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'anal', 2
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!stomach
		elseif subStep = 2:
			'<center><video autoplay loop src="images/locations/city/residential/sauna/sex/cumbelly2.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm and in the moment he starts spouting his seed, he takes his dick out and points it on your stomach.'
			'A large pool of cum lands on your abdomen, feeling warm but sticky.'
			minut += 2
			gp_lastCum = daystart
			gs 'cum_call', 'stomach', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!ass
		elseif subStep = 3:
			'<center><video autoplay loop src="images/locations/pavlovsk/resident/sharedapt/sex/cumonass.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm 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
			gp_lastCum = daystart
			gs 'cum_call', 'butt', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!face
		elseif subStep = 4:
			'<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/cumface1.mp4"></video></center>'
			''
			'<<$gp_name>> finally reaches his violent orgasm and in the moment he starts spouting his seed, he 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...'
			'<font color=#<<$gp_font>>>"Oh yes, now that''s the right makeup for an anal whore like you!"</font>'
			minut += 2
			gp_lastCum = daystart
			gs 'cum_call', 'face', $gp_name, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!takeout fail
		elseif subStep = 5:
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/sharedapt/sex/vagcumtakoutfail.jpg"></center>'
			''
			'You expect <<$gp_name>> to take his cock out of your ass 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=#<<$gp_font>>>"Shut up <<$pcs_firstname>>, I cum where I want to."</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=#<<$gp_font>>>"Every girl deserves having her ass cumpumped, so piss off!"</font>'
			'He is obvously annoyed by your reaction.'
			'You furiously 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.'
			gp_lastCum = daystart
			gp_cumAnal += gp_cumVol
			gp_analCumInside += 1
			gp_analCumInsideUnwanted += 1
			gp_rel -= 3
			gs 'cum_call', '', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'anal', 5, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!will you swallow?
		elseif subStep = 6:
			'<font color=#<<$gp_font>>>"I will cum in your ass or you will swallow it. Make your choice before it''s too late, <<$pcs_firstname>>!"</font>'
			act 'Swallow':subStep = 20 & gt 'pav_shared_gp', 'gpSexAnal'
			act 'Ass':subStep = 1 & gt 'pav_shared_gp', 'gpSexAnal'
			if gp_mood <= 2:act 'Neither!':subStep = 30 & gt 'pav_shared_gp', 'gpSexAnal'
			if gp_mood > 2:act 'Neither!':subStep = 5 & gt 'pav_shared_gp', 'gpSexAnal'

		!swallow YES
		elseif subStep = 20:
			'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorecummouth3.mp4"></video></center>'
			''
			'<<$gp_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.'
			'<<$gp_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...' 		
			'<font color=#<<$gp_font>>>"Good girl, better than any food, is it?"</font>'
			gp_swall += 1	
			gp_rel += 1
			minut += 5
			gp_lastCum = daystart
			gp_cumSwall += gp_cumVol
			gs 'cum_call', 'mouth', $boy, 1, 0, gp_cumVol
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave':gp_cumVol = 0 & gt 'pav_shared_apt', 'payService'

		!swallow NO
		elseif subStep = 30:
			'<font color=#<<$gp_font>>>"Allright I''ll cum elsewhere, but only because I have a <<$nd_mood>> mood today!"</font>'
			gp_rel -= 3
			cumOutL2 = rand(2, 4)
			act 'Continue':subStep = cumOutL2 & gt 'pav_shared_gp', 'gpSexAnal'
		end
	end
end

--- pav_shared_gp ---------------------------------

