glife/locations/pav_disco_sex.qsrc

# pav_disco_sex
!!2021/07/12
!! Scene 1: Outside the community center
if $ARGS[0] = 'outside':
	music_loop = 0
	close all
	gs 'npcpreservec', $npclastgenerated
	if $ARGS[1] = 'aggressiv':
		gdk_nice_guy = 0
	elseif $ARGS[1] = 'nice':
		gdk_nice_guy = 1
	end

	$loc_arg = 'outside'
	$loc = 'pav_disco_sex'
	$location_type = 'event'
	menu_off = 1

	minut += 5
	gs 'stat'
	$boydesc = $npc_firstname[$npclastcalled]
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
	'You leave the disco with <<$npc_firstname[$npclastsaved]>> and walk into a quiet garden area.'

	if (gdk_nice_guy = 1 and fame['pav_slut'] < 70) or (gdk_nice_guy = 0 and fame['pav_slut'] < 30):
		'He pulls out a six pack and offers you a beer as you both sit down on a fallen tree.'
		gs 'willpower', 'drink', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Don''t drink the beer (<<will_cost>> Willpower)':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/outside_talk.jpg"></center>'
				if alko < 6: 'You smile at him as you shake your head. "No thanks, I''m not really in the mood for beer right now."'
				if alko >= 6: '"No, I don''t thi-*hic* think I should... *hic*" you manage to drunkenly mumble.'
				'<<$npc_firstname[$npclastsaved]>> offers you a disarming smile. "Alright, no problem! We can just chat!"'
				act 'Chat with him':
					*clr & cla
					minut+=10
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/outside_talk.jpg"></center>'
					'You spend some time getting to know <<$npc_firstname[$npclastsaved]>> a bit better before he checks his watch. "I have to get going, but I really enjoyed chatting with you!"'
					randvnesh = rand(40,120)

					deystrand = rand(0,2)
					if deystrand = 0 and pcs_apprnc >= randvnesh:
						'"I would love to see you again! How about you give me your number, so we can go on a date some time?" he adds.'

						act 'Decline and go back to the disco': gt 'pav_disco'
						act 'Give him your number':
							*clr & cla
							pcs_mood += 10
							minut += 30
							gs 'boy', 'details'
							bmFrend[Tboynum] = 1
							gs 'boy'
							gs 'boyfrend', 'start'
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/outside_talk.jpg"></center>'
							'You smile and give him your phone number, which he diligently adds to his phone.'
							'"I hope I''ll see you again soon, <<$pcs_firstname>>. I''ll call you!" he says as he packs up his things. You get up as well, and chat with him as you head back to the disco.'
							act 'Return to the disco': gt 'pav_disco'
						end
					elseif deystrand > 0 or pcs_apprnc < randvnesh:
						'<<$npc_firstname[$npclastsaved]>> scoots over until he''s right next to you, and kisses you on the lips.'

						act 'Go back to the disco': gt 'pav_disco'

						gs 'pav_disco_sex', 'kissing'
					end
				end
				act 'Go back to the disco': gt 'pav_disco'
			end
		else
			act 'Don''t drink the beer (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Have a beer':
			*clr & cla
			gs 'drugs', 'alcohol', 'beer'
			minut += 10
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/drink_beer.jpg"></center>'
			'You accept the beer and chat with <<$npc_firstname[$npclastsaved]>> as you drink it. He''s very funny, and tells you some hilarious stories.'

			if alko >= 6:
				pcs_horny += 20
				'<<$npc_firstname[$npclastsaved]>> scoots over until he''s right next to you, and closes his arms around you. He pulls you in and kisses your lips passionately, making your heart flutter. Wow, he''s a good kisser!'
				'You then feel his hands on your chest...'

				if fame['pav_slut'] < 50:
					gs 'willpower', 'sex', 'resist'
					if will_cost <= pcs_willpwr:
						act 'Ask him to stop (<<will_cost>> Willpower)':
							*clr & cla
							minut += 5
							gs 'willpower', 'sex', 'resist'
							gs 'willpower', 'pay', 'resist'
							gs 'stat'

							if DPtipe = 2:
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/grab_tit.jpg"></center>'
								'He''s too drunk to notice your objections and slides a hand underneath your clothes, squeezing your breasts.'
								act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'unpaid'

								act 'Don''t say anything':
									*clr & cla
									minut += 5
									pcs_horny += 10

									if boynumBlock = 0: guy += 1

									gs 'boymass', 'B'
									bmSEX[Tboynum] += 1
									gs 'boyStat', $bmNane[Tboynum]

									if gdk_nice_guy = 1:
										gs 'fame', 'pav', 'sex', rand(0,2)
									elseif gdk_nice_guy = 0:
										gs 'fame', 'pav', 'sex', rand(2,4)
									end

									bmGossip[Tboynum] = 1

									gs 'stat'
									'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
									'He undresses you rather roughly, too horny and drunk to care about how you feel about it. Before you know it, you''re naked on the ground before him as he stands over you with his <<$dick_girth>> cock hanging out of his pants.'
									gs 'dinSex', 'wear_condom'
									gs 'dinsex','vaginal_sex',10
									gs 'dinsex','sexcum'

									act 'Leave': gt 'pav_commcenter'
								end
							else
								pcs_horny += 10
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/tits.jpg"></center>'
								'<<$npc_firstname[$npclastsaved]>>''s head slumps for just a moment and his movements slow down, but he''s not quite willing to let go of your breasts just yet.'

								if fame['pav_slut'] < 150:
									gs 'willpower', 'bj', 'resist'
									if will_cost <= pcs_willpwr:
										act 'Go back to the disco':
											gs 'willpower', 'bj', 'resist'
											gs 'willpower', 'pay', 'resist'
											gs 'stat'
											gt 'pav_disco'
										end
									else
										act 'Go back to the disco (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
									end
								end

								'You''re feeling rather horny yourself and don''t object to his actions. You moan softly when he exposes your breasts and begins to lick and suck on your nipples.'
								act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'unpaid'
							end

							gs 'pav_disco_sex', 'handjob'
						end
					else
						act 'Ask him to stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					end
				end

				act 'Don''t say anything':
					*clr & cla
					minut += 5
					pcs_horny += 10

					if boynumBlock = 0: guy += 1
					if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1

					bmSEX[Tboynum] += 1
					gs 'boyStat', $bmNane[Tboynum]

					if gdk_nice_guy = 1:
						gs 'fame', 'pav', 'sex', rand(0,2)
					elseif gdk_nice_guy = 0:
						gs 'fame', 'pav', 'sex', rand(2,4)
					end
					bmGossip[Tboynum] = 1

					gs 'stat'
					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
					'He undresses you rather roughly, too horny and drunk to care about how you feel about it Before you know it, you''re naked on the ground before him as he stands over you with his <<$dick_girth>> cock hanging out of his pants.'
					gs 'dinSex', 'wear_condom'
					gs 'dinsex','vaginal_sex',10
					gs 'dinsex','sexcum'

					act 'Leave': gt 'pav_commcenter'
				end
			elseif alko < 6:
				if DPtipe = 1:
					randvnesh = rand(40,120)
					deystrand = rand(0,1)

					if deystrand = 0 and pcs_apprnc >= randvnesh:
						'He checks his watch and frowns. "I have to get going, but I would love to see you again! How about you give me your number, so we can go on a date some time?"'

						act 'Decline and go back to the disco': gt 'pav_disco'
						act 'Give him your number':
							*clr & cla
							pcs_mood += 10
							gs 'boy', 'details'
							minut += 30
							bmFrend[Tboynum] = 1
							gs 'boy'
							gs 'boyfrend', 'start'
							gs 'stat'
							'You smile and give him your number, which he diligently adds to his phone.'
							'"I hope I''ll see you again soon, <<$pcs_firstname>>. I''ll call you!" he says as he packs up his things. You get up as well, and chat with him as you head back to the disco.'
							act 'Go back to the disco': gt 'pav_disco'
						end
					elseif deystrand = 1 or pcs_apprnc < randvnesh:
						'<<$npc_firstname[$npclastsaved]>> scoots over until he''s right next to you, and kisses you on the lips.'

						if fame['pav_slut'] < 50:
							gs 'willpower', 'mast', 'resist'
							if will_cost <= pcs_willpwr:
								act 'Go back to the disco (<<will_cost>> Willpower)':
									gs 'willpower', 'mast', 'resist'
									gs 'willpower', 'pay', 'resist'
									gs 'stat'
									gt 'pav_disco'
								end
							else
								act 'Go back to the disco (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
						end

						gs 'pav_disco_sex', 'kissing'
					end
				elseif DPtipe = 2:
					pcs_horny += 5
					gs 'stat'
					'<<$npc_firstname[$npclastsaved]>> scoots over until he''s right next to you, and kisses you on the lips.'

					if fame['pav_slut'] < 50:
						gs 'willpower', 'mast', 'resist'
						if will_cost <= pcs_willpwr:
							act 'Go back to the disco (<<will_cost>> Willpower)':
								gs 'willpower', 'mast', 'resist'
								gs 'willpower', 'pay', 'resist'
								gs 'stat'
								gt 'pav_disco'
							end
						else
							act 'Go back to the disco (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end

					gs 'pav_disco_sex', 'kissing'
				end
			end
		end
	elseif (gdk_nice_guy = 1 and fame['pav_slut'] >= 70 and fame['pav_slut'] < 130) or (gdk_nice_guy = 0 and fame['pav_slut'] >= 30 and fame['pav_slut'] < 70):
		gs 'drugs', 'alcohol', 'beer'
		minut += 15
		gs 'stat'
		'He pulls out a six pack and offers you a beer as you sit down on a fallen tree.'
		'You accept the beer and chat with <<$npc_firstname[$npclastsaved]>> as you drink it. He''s very funny, and tells you some hilarious stories.'
		'He then scoots over next to you, and kisses you on the lips.'

		gs 'pav_disco_sex', 'decline', 70
		gs 'pav_disco_sex', 'kissing'
	elseif (gdk_nice_guy = 1 and fame['pav_slut'] >= 130 and fame['pav_slut'] < 200) or (gdk_nice_guy = 0 and fame['pav_slut'] >= 70 and fame['pav_slut'] < 130):
		if rand(0,3) = 0:
			'I heard you''re pretty good with your mouth <<$pcs_firstname>>, so let''s have some fun!"'
			'He pulls his cock out of his pants and looks at you expectantly.'
		else
			'I heard you''re quite the tease, <<$pcs_firstname>>. Come on, let''s have some fun!"'
			'He pulls his cock out of his pants and looks at you expectantly.'
		end

		gs 'pav_disco_sex', 'decline', 130
		gs 'pav_disco_sex', 'handjob'
		act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'unpaid'
	elseif (gdk_nice_guy = 1 and fame['pav_slut'] >= 200 and fame['pav_slut'] < 250) or (gdk_nice_guy = 0 and fame['pav_slut'] >= 130 and fame['pav_slut'] < 150):
		'My buddies told me you''re a <<$gnikname>>. I want to have some fun with you too!"'
		'He pulls his cock out of his pants and looks at you expectantly.'

		gs 'pav_disco_sex', 'decline', 200
		gs 'pav_disco_sex', 'handjob'
		act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'unpaid'
	elseif (gdk_nice_guy = 1 and fame['pav_slut'] >= 250) or (gdk_nice_guy = 0 and fame['pav_slut'] >= 150):
		gs 'boymass', 'B'
		'"Let''s cut the crap: the whole town knows you''re a <<$gnikname>>. I want a blowjob, so here''s 100 <b>₽</b>."'
		'He pulls his cock out of his pants and looks at you expectantly.'

		gs 'pav_disco_sex', 'decline', 250
		act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'paid'
	end

	if (gdk_nice_guy = 1 and fame['pav_slut'] >= 130) or (gdk_nice_guy = 0 and fame['pav_slut'] >= 70):
		gs 'willpower', 'sex', 'resist', 'hard'
		if will_cost <= pcs_willpwr:
			act 'Tell him to fuck off (<<will_cost>> Willpower)':
				cla
				minut += 3
				if gdk_nice_guy = 1:
					if fame['pav_sex'] > 10: gs 'fame', 'pav', 'sex', rand(-2,-4)
					if fame['pav_prostitute'] > 10: gs 'fame', 'pav', 'prostitute', rand(-2,-4)
				elseif gdk_nice_guy = 0:
					if fame['pav_sex'] > 10: gs 'fame', 'pav', 'sex', rand(0,-2)
					if fame['pav_prostitute'] > 10: gs 'fame', 'pav', 'prostitute', rand(0,-2)
				end
				gs 'willpower', 'sex', 'resist', 'hard'
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/pc/reactions/fuckoff3.jpg"></center>'
				'"What the fuck!?" you shout angrily. "What kind of idiot are you!? You can''t just tell a girl to do that!"'
				'<<$npc_firstname[$npclastsaved]>> is taken aback by your sudden outburst. "But... the boys said that yo-"'
				'"That doesn''t make it true! Men can be so gullible sometimes!" you tell him, barely holding yourself back from screaming it at him.'
				*nl
				'<<$npc_firstname[$npclastsaved]>> is seriously rattled now, and quickly apologizes. "Look, I''m sorry! I didn''t know they were having a laugh!"'
				'You shrug and leave without saying another word, secretly smiling to yourself. Men really <i>are</i> gullible sometimes.'
				'While you''re walking back to the disco, several guys are giving you confused looks. The word spread fast, and guys quickly get a message that you''re no easy lay after all. Your reputation improves a little as a result.'

				act 'Go back to the disco': gt 'pav_disco'
			end
		else
			act 'Tell him to fuck off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end

		if ((gdk_nice_guy = 1 and fame['pav_slut'] < 250) or (gdk_nice_guy = 0 and fame['pav_slut'] < 150)) and (slutty > 0):
			act 'Tell him you''ll do it for money':
				cla
				minut += 3
				slutty += 1
				if gdk_nice_guy = 1:
					gs 'fame', 'pav', 'prostitute', rand(1,3)
				elseif gdk_nice_guy = 0:
					gs 'fame', 'pav', 'prostitute', rand(3,9)
				end
				money += 200
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/outside_talk.jpg"></center>'
				if slutty <= 10: 'You take a deep breath. You don''t really want to touch him, but maybe you can get something out of it? "I don''t do favours like that for just anyone! If you pay me, however..." you shrug.'
				if slutty > 10: 'You''ve done worse. "200 <b>₽</b>." is all you say.'
				'<<$npc_firstname[$npclastsaved]>> looks a little confused, but gives you 200 <b>₽</b>.'

				act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'paid'
			end
		end
	end
end

if $ARGS[0] = 'decline':
	if fame['pav_slut'] < $ARGS[1]:
		gs 'willpower', 'sex', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Decline and leave (<<will_cost>> Willpower)':
				*clr & cla
				minut += 5
				gs 'willpower', 'sex', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/walkoff.jpg"></center>'
				'You just laugh at him. "Put that away, because I''m going anywhere near it!"'
				'You then leave without saying another word, ignoring his pleas.'

				act 'Go back to the disco': gt 'pav_disco'
			end
		else
			act 'Decline and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	end
end

if $ARGS[0] = 'kissing':
	act 'Kiss him back':
		*clr & cla
		pcs_horny += 5
		minut += 3
		gs 'boymass', 'B'
		bmKISS[Tboynum] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/outside_kiss.jpg"></center>'
		'You lean in and reciprocate the kiss before you feel his hands on your chest.'

		if fame['pav_slut'] < 100:
			gs 'willpower', 'mast', 'resist'
			if will_cost <= pcs_willpwr:
				act 'Go back to the disco (<<will_cost>> Willpower)':
					gs 'willpower', 'mast', 'resist'
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					gt 'pav_disco'
				end
			else
				act 'Go back to the disco (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end

		act 'Let him':
			*clr & cla
			gs'arousal','foreplay', 3
			bmTITS[Tboynum] += 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/tits.jpg"></center>'
			'You ignore <<$npc_firstname[$npclastsaved]>>''s hands and just keep kissing him, letting him pull your clothes aside so your <<$titsize>> breasts fall out. He kneads them eagerly and continues to kiss and lick them, making your nipples poke out fiercely in the evening air.'
			'You moan under his touch, letting your leg slide between his. You can feel his cock brushing up against your thigh, stiff as a rock.'
			
			if rand(0,1) = 1:
				*nl
				'"Hey," he breathes between kisses. "Why don''t we take this back to my place?"'
				
				act'Pull out his cock':
					cla & *clr
					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
					'You reach down his pants, grab hold of his erection and pull it out.'
					'"Why wait?" you grin, steadily stroking him.'
					gs'pav_disco_sex','handjob'
				end
				
				act'Sure':
					cla & *clr
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/tits.jpg"></center>'
					'You pull your clothes back into place before letting him drag you away.'
					act'Go to his place':gt'hookup', 'start'
				end
			else
				if fame['pav_slut'] < 150:
					gs 'willpower', 'mast', 'resist'
					if will_cost <= pcs_willpwr:
						act 'Go back to the disco (<<will_cost>> Willpower)':
							killvar 'gdk'
							gs 'willpower', 'mast', 'resist'
							gs 'willpower', 'pay', 'resist'
							gs 'stat'
							gt 'pav_disco'
						end
					else
						act 'Go back to the disco (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					end
				end

				if fame['pav_slut'] < 250:
					act 'Let him finger you':
						*clr & cla
						gs'arousal','vaginal_finger', 3
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/petting.jpg"></center>'
						'As soon as you pull your hand away from his groin, <<$npc_firstname[$npclastsaved]>> slips his hand underneath your clothes and rubs two fingers against your pussy. You were already fairly turned on, and softly moan when he slides his finger back and forth over your wet lips.'

						if fame['pav_slut'] < 200:
							gs 'willpower', 'mast', 'resist', 'hard'
							if will_cost <= pcs_willpwr:
								act 'Remove his hands and walk away (<<will_cost>> Willpower)':
									gs 'willpower', 'mast', 'resist', 'hard'
									gs 'willpower', 'pay', 'resist'
									gs 'stat'
									gt 'pav_disco'
								end
							else
								act 'Remove his hands and walk away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
							act 'Let him continue':
								cla
								pcs_horny = 0
								orgasm += 1
								gs 'stat'
								'He has an expert touch and quickly brings you to an intense orgasm. You bite your lip hard, trying your best not to cry out in ecstasy.'
								act 'Moan and catch your breath':
									*clr & cla
									pcs_horny += 5
									minut += 3
									gs 'stat'
									'<center><img <<$set_imgh>> src="images/shared/sex/cock/cock3.jpg"></center>'
									'Once the most intense part of your orgasm is over, you relax a little and moan softly with pleasure. In your daze, your legs can''t support your weight and you drop to your knees in front of <<$npc_firstname[$npclastsaved]>>.'
									'When you catch your breath, you see <<$npc_firstname[$npclastsaved]>>''s erect cock directly in front of your face!'

									act 'Suck it':
										*clr & cla
										minut += 5
										pcs_horny += 10
										stat['bj'] += 1

										if boynumBlock = 0: guy += 1
										if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1

										bmBJ[Tboynum] += 1
										gs 'stat'
										'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/cocksuck.jpg"></center>'
										'Without even realizing it, you move in. After a few kisses and licks, you let it slide into your mouth and begin to diligently suck him off.'

										act 'Continue':
											*clr & cla
											minut += 5
											pcs_horny += 10
											spafinloc = 12
											gs 'cum_manage'
											spafinloc = 11
											gs 'cum_manage'
											spafinloc = 7
											gs 'cum_manage'

											if gdk_nice_guy = 1:
												pav_sex += rand(1,3)
											elseif gdk_nice_guy = 0:
												pav_sex += rand(3,9)
											end

											bmGossip[Tboynum] = 2

											gs 'stat'
											'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cocksuck2.jpg"></center>'
											'Without warning, a jet of warm cum shoots into your mouth. You almost gag in surprise, but manage to suppress it and continue to suck his dick. You can''t stop him from pulling his cock out of your mouth, and shooting the last few drops of his load over your face.'
											'Some of his cum drips down onto your clothes as he tucks his cock back into his pants with a satisfied grin.'

											act 'Look at him':
												*clr & cla
												minut += 1
												gs 'stat'
												'<center><img <<$set_imgh>> src="images/shared/sex/cum/cocksuck3.jpg"></center>'
												'<<$npc_firstname[$npclastsaved]>> still has his hand on your head. "Look at me." he grunts.'
												'You look him in the eye, your mouth half open. His load is still on your tongue, and you''re not sure whether you should spit it out or not.'
												'He gives you a blissful smile. "You''re an amazing cocksucker, <<$pcs_nickname>>! That was great."'
												gs 'willpower', 'swallow', 'resist'
												if will_cost <= pcs_willpwr:
													act 'Spit (<<will_cost>> Willpower)':
														cla
														minut += 1
														gs 'willpower', 'swallow', 'resist'
														gs 'willpower', 'pay', 'resist'
														gs 'stat'
														*nl
														'Realizing he doesn''t care, you discreetly spit his load out and stand up. Hopefully he won''t tell anyone about what you just did...'
														act 'Leave': gt 'pav_commcenter'
													end
												else
													act 'Spit (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
												end
												act 'Swallow':
													cla
													minut += 1
													swallow += 1
													gs 'stat'
													*nl
													'Realizing he doesn''t care, you gulp down his load and stand up. Hopefully he won''t tell anyone about what you just did...'
													act 'Leave': gt 'pav_commcenter'
												end
											end
										end
									end
									gs 'willpower', 'hj', 'resist'
									if will_cost <= pcs_willpwr:
										act 'Stare at it (<<will_cost>> Willpower)':
											*clr & cla
											minut += 5

											if boynumBlock = 0: guy += 1
											if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1

											
											spafinloc = 11
											gs 'cum_manage'
											spafinloc = 7
											gs 'cum_manage'
											gs 'willpower', 'hj', 'resist'
											gs 'willpower', 'pay', 'resist'
											gs 'stat'
											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/facial.jpg"></center>'
											'You remain kneeling in front of <<$npc_firstname[$npclastsaved]>> as you stare at his erection, still softly panting as you recover from your orgasm. He then begins to jerk off in front of you.'
											'In no time at all, his cock erupts and a thick glob of his cum lands on your nose. <<$npc_firstname[$npclastsaved]>> groans loudly as he shoots several more jets of his cum onto your face. You flinch and close your eyes, and don''t dare open them again until you''re sure he''s finished.'

											act 'Leave': gt 'pav_commcenter'
										end
									else
										act 'Stare at it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
									end
									gs 'willpower', 'bj', 'resist'
									if will_cost <= pcs_willpwr:
										act 'Jerk him off (<<will_cost>> Willpower)':
											*clr & cla
											minut += 5

											if boynumBlock = 0: guy += 1
											if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1

											bmHJ[Tboynum] += 1
											stat['hj'] += 1
											gs 'willpower', 'bj', 'resist'
											gs 'willpower', 'pay', 'resist'
											gs 'stat'
											'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
											'You confidently stand up confidently and smile at him. "That was great! Now, I believe I owe you something."'
											'Wrapping your fingers around his cock, you begin to jerk him off while you kiss him again. You let him grab your breasts while you stroke his length, and in no time at all he lets out a muffled groan as thick gobs of cum land on the ground.'

											act 'Go back to the disco': gt 'pav_disco'
										end
									else
										act 'Jerk him off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
									end
								end
							end
						end
					end
				end

				act 'Caress his cock through his pants':
					*clr & cla
					pcs_horny += 5
					minut += 3
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/shared/sex/grab/cock.jpg"></center>'
					'You kiss <<$npc_firstname[$npclastsaved]>> again while you begin to stroke his cock through his pants, feeling the outline of it very clearly through the fabric.'
					'"Mmmm... do you have something for me?" you ask him sweetly, and he lets out a needy groan.'

					if fame['pav_slut'] < 150:
						gs 'willpower', 'mast', 'resist'
						if will_cost <= pcs_willpwr:
							act 'Go back to the disco (<<will_cost>> Willpower)':
								gs 'willpower', 'mast', 'resist'
								gs 'willpower', 'pay', 'resist'
								gs 'stat'
								gt 'pav_disco'
							end
						else
							act 'Go back to the disco (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end

					act 'Stick your hand down his pants':
						*clr & cla
						pcs_horny += 10
						minut += 3
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/shared/sex/grab/cock2.jpg"></center>'
						'You slide your hand into his pants and caress his hard cock. After a few moments of teasing, you pull his pants down and let his cock spring free.'

						if fame['pav_slut'] < 150:
							gs 'willpower', 'mast', 'resist'
							if will_cost <= pcs_willpwr:
								act 'Go back to the disco (<<will_cost>> Willpower)':
									gs 'willpower', 'mast', 'resist'
									gs 'willpower', 'pay', 'resist'
									gs 'stat'
									gt 'pav_disco'
								end
							else
								act 'Go back to the disco (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
						end

						gs 'pav_disco_sex', 'handjob'

						act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'unpaid'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'handjob':
	act 'Jerk him off':
		*clr & cla
		minut += 5
		gs 'boymass', 'B'
		bmHJ[Tboynum] += 1
		gs 'stat'

		if gdk_nice_guy = 1:
			if boynumBlock = 0: guy += 1
			if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1
			gs'cum_call','hands',$boy,1
			stat['hj'] += 1
			'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
			'You begin to move your hand up and down his shaft, slowly picking up the pace while continuing to shove your tongue down his throat.'
			'You soon feel his breaths getting shorter and you feel his body start to stiffen up. Pointing his cock away from you, you pull back from the kiss and keep working his shaft off until you see him cum, his load splattering on the ground. You keep jerking him until you''ve released everythihg he has, the remains dribbling down your fingers still wrapped around his cock.'
			gs'pav_disco_sex','handjob_end'
			
		elseif gdk_nice_guy = 0:
			'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
			'You begin to move your hand up and down his shaft, slowly picking up the pace while you kiss him dominantly.'
			'<<$npc_firstname[$npclastsaved]>> wants more however, and suddenly places his hands on your shoulder. He firmly pushes downwards, forcing you to squat before him.'
			act 'Squat down before him': gt 'pav_disco_sex', 'blowjob', 'unpaid'
		end
	end
end

if $ARGS[0] = 'handjob_end':
	act 'Leave him and go back to the disco':
		gs'arousal','end'
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
		'You release him and quickly begin walking away, '
		'"See you later!" you grin while waggling your cum covered fingers at him, leaving him with his cock hanging out and covered in his own cum.'
		act 'Head back inside':gt'pav_disco'
		
		if trt_cumeater < 0:
			act 'Lick your hand clean on the way':
				cla & *clr
				swallow += 1
				cumspclnt = 9
				gs'cum_cleanup'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'On your way back inside, you run your tongue along your hand, licking up the cum that webs across your fingers. You manage to swallow every last drop just before getting to the door and you head back inside.'
				act 'Continue':gt'pav_disco'
			end
		end
		
		if salfetka > 0:
			act'Wipe your hand off and head in':
				cla & *clr
				salfetka -= 1
				cumspclnt = 9
				gs'cum_cleanup'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'On your way back inside, you pull some wipes from your bag and clean your hands, tossing the cum covered wipe before you step through the doors.'
				act 'Continue':gt'pav_disco'
			end
		end		
	end
	
!!{	act 'That was fun':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
		'Releasing <<$npc_firstname[$npclastsaved]>>''s cock, you pull away from him.'
		'"That was fun," you grin, eyeing the cum webbing your fingers.'
		'"Fuck..." he breathes, still coming down from your handjob.'
		
	end}
end

if $ARGS[0] = 'blowjob':
	*clr & cla
	gs'arousal','bj', rand(3,7)
	stat['bj'] += 1
	if $ARGS[1] = 'paid':
		slutty += 1
		money += 100
		if gdk_nice_guy = 1:
			gs 'fame', 'pav', 'prostitute', rand(1,3)
		elseif gdk_nice_guy = 0:
			gs 'fame', 'pav', 'prostitute', rand(3,9)
		end
	end
	
	if gdk_nice_guy = 1:
		gs 'fame', 'pav', 'sex', rand(1,3)
	elseif gdk_nice_guy = 0:
		gs 'fame', 'pav', 'sex', rand(3,9)
	end
	if boynumBlock = 0: guy += 1
	if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1

	gs 'boymass', 'B'
	bmBJ[Tboynum] += 1
	gdk['bj'] = 1
	gs 'stat'
	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/bj1.mp4"></video></center>'
	if gdk['fuck'] = 2:
		'You squat down in front of <<$npc_firstname[$npclastsaved]>> and get back to work on his cock.'
	end
	'You squat down in front of <<$npc_firstname[$npclastsaved]>> and begin working his cock with your hand and mouth. He groans under your touch and you see him tilting his head back in pleasure above you.'
	*nl
	if rand(0,1) = 0 or gdk['fuck'] = 2:
		gdk['cum'] = rand(1,3)
		if gdk['cum'] = 1:
			'After several minutes, you feel <<$npc_firstname[$npclastsaved]>> begin to stiffen up.'
			'"I''m-! Gonna cum-!" he grunts.'
			act 'Keep sucking':gt'pav_disco_sex','disco_cum_mouth'
			
			act'Let him cum on your face':gt'pav_disco_sex','disco_cum_facial'
		elseif gdk['cum'] = 2:
			act 'Continue':
				gs'cum_call','mouth',$boy,1
				$gdk['cum'] = 'mouth'
				cla & *clr
				'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/cum_mouth.mp4"></video></center>'
				'You continue working his cock for several minutes until <<$npc_firstname[$npclastsaved]>> grunts and a thick salty liquid pours into your mouth without warning.'
				act 'Cough':
					cla & *clr
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
					'You retch, coughing up the cum that suddenly appeared in your mouth and looking back up at him with tears in your eyes.'
					gs'pav_disco_sex','disco_mouth_react1'
				end
				
				act 'Swallow':
					cla & *nl
					'Not knowing what else to do, you reflexively swallow, gulping down the cum spurting from <<$npc_firstname[$npclastsaved]>>''s cock. Soon enough, nothing else comes out and you pull back, looking up at him.'
					gs'pav_disco_sex','disco_mouth_react2'
				end
			end
		else
			act 'Continue':
				gs'cum_call','face',$boy,1
				$gdk['cum'] = 'facial'
				cla & *clr
				'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/cum_facial.mp4"></video></center>'
				'You continue working his cock for several minutes until <<$npc_firstname[$npclastsaved]>> pushes you off him and begins rapidly jerking himself above your face. You close your eyes and moments later, cum is splattering across your face.'
				act 'Smile':
					cla & *clr
					'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/facial_after.mp4"></video></center>'
					'"Well that was fun." You smile up at <<$npc_firstname[$npclastsaved]>> as he tucks his cock back inside his pants.'
					if gdk['fuck'] = 1:
						'"Yeah, you''ve got a great pussy."'
					else
						'"Yeah, you''ve got a great mouth."'
					end
					act 'Continue':gt'pav_disco_sex','disco_sex_end'
				end
				
				act'Clean him with your mouth':
					cla & *clr
					'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/cum_clean.mp4"></video></center>'
					'"Here, let me get that for you," you say, leaning forward and running your mouth up and down his cock, making sure he''s well and truly sucked dry before standing up again.'
					act 'Continue':gt'pav_disco_sex','disco_sex_end'
				end
			end
		end
	else
		'After a few minutes, <<$npc_firstname[$npclastsaved]>> pushes your head away and pulls you to your feet, facing you towards the wall. "I want to fuck your pussy."'
		act 'Refuse':
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
			'"Hey!" You quickly turn back around, putting your hands over your crotch. "What do you think you''re doing?"'
			'"I just told you, I want to fuck you."'
			'"Well <i>I</i> don''t you want to!"'
			'"Why not? You were fine sucking my dick a second ago!"'
			act 'I don''t want to have sex':
				gdk['fuck'] = 2
				cla & *clr
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'"I just don''t want to!"'
				'"Ugh, fine." <<$npc_firstname[$npclastsaved]>> grabs you by the shoulder and starts pushing you back down to your knees. "At least finish me off then."'
				act 'Refuse':
					gs'arousal','end'
					cla & *clr
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
					'"What?? You think I''m going to just get back down there after the way you''re acting?"'
					'"But you said you didn''t want to fuck!" he says angrily.'
					'"Ugh, I don''t want to deal with you." You quickly back away from <<$npc_firstname[$npclastsaved]>>, leaving him with blue balls and his dick hanging out as you head back to the disco.'
					act 'Go back to the disco': gt'pav_disco'
				end
				
				act 'Finish sucking him off':gt'pav_disco_sex','blowjob'
			end
			
			act 'This is too public':
				cla & *clr
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'"This is too public!" you hiss. "You think I''m just going to fuck you out here where anybody could see?"'
				if npc_selfish = 1:
					'"You were just sucking my dick!" he almost shouts again. "Why is it too public to fuck but it isn''t to suck my dick?!"'
					'"It just is!" you huff back. "You know what? This whole thing was a mistake. You can sort that out yourself," you say, gesturing at his cock before you hurry away from him and back towards the disco.'
					act 'Go back to the disco': gt'pav_disco'
				elseif gdk_nice_guy = 1:
					'"Well..." <<$npc_firstname[$npclastsaved]>> scratches his head for a moment in confusion. "We don''t <i>have</i> to do it in public. We could take this back to my place if you want..."'
					act 'Refuse':
						cla & *clr
						'"Nuh uhh. I''m not up for that."'
						'"Oh. Well..." <<$npc_firstname[$npclastsaved]>> looks down at his still hard cock. "Well, could you finish me off at least?"'
						'"Sure, we can do that at least."'
						act 'Kneel down':gt'pav_disco_sex','blowjob'
					end
					
					act 'Go with him':
						cla & *clr
						'"Well... a bed <i>does</i> sound nice," you smile. Taking that as acceptance, he pulls up his pants and grabs you by the arm, leading you back to a nearby apartment complex.'
						act'Continue':gt'hookup','start'
					end
				end
			end
			
!!			if pcs_vag = 0:
!!				act'I''m a virgin':
!!					cla & *clr
!!					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
!!					'"Because I''m a virgin!" you huff.'
!!					
!!				end
!!			end
		end
		
		act 'Bend over':
			cla & *clr
			'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/insert.mp4"></video></center>'
			gs'pav_disco_sex','insert'
			if npc_condom_conscious = 1: gdk['condom'] = 1
			act 'Get fucked':gt'pav_disco_sex','fuck1'
		end
		
		act 'Condom?':
			cla
			act 'Ask him to use a condom':
				cla & *clr
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				
				if npc_condom_conscious > 0:
					'"Hang on. Use a-" You start to turn around to ask him to put on a condom but see he''s already halfway through rolling one on. "Oh. Way ahead of me I guess."'
					gs'pav_disco_sex','insert'
				elseif npc_selfish > 0:
					'"Hang on. Can you please use a condom?"'
					'"What? Fuck that rubber shit."'
					gs 'willpower', 'misc', 'force'
					if will_cost <= pcs_willpwr:
						act 'Insist (<<will_cost>> Willpower)':
							cla & *clr
							gdk['condom'] = 1
							'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/insert.mp4"></video></center>'
							'"Come on! Please!"'
							'He grumbles, but you hear him putting on a condom anyways and you breathe a sigh of relief.'
							gs'pav_disco_sex','insert'
							act 'Get fucked':gt'pav_disco_sex','fuck1'
						end
					else
						act 'Insist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					end
					
					act 'Maybe it''ll be okay...':
						cla & *nl
						gdk['condom'] = 2
						'<i>Maybe it''ll be okay...</i> you think to yourself.'
						'"Just, don''t cum inside me, okay?"'
						act 'Bend over':
							cla & *clr
							'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/insert.mp4"></video></center>'
							gs'pav_disco_sex','insert'
							act 'Get fucked':gt'pav_disco_sex','fuck1'
						end
					end
				else
					'"Hang on. Use a condom?" <<$npc_firstname[$npclastsaved]>> nods and pulls one out of his pocket, tears it open and rolls it onto his cock, leaving you to breathe a sigh of relief.'
					act 'Bend over':
						cla & *clr
						'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/insert.mp4"></video></center>'
						gs'pav_disco_sex','insert'
						gdk['condom'] = 1
						act 'Get fucked':gt'pav_disco_sex','fuck1'
					end
				end
			
				if prezikcount + prezik > 0:
					act 'Get a condom from your purse':
						cla & *clr
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
						'"Hang on," you pause, reaching into your bag and pulling out a condom. You tear the package open and gently roll it onto <<$npc_firstname[$npclastsaved]>>''s cock, giving him a few gentle tugs when you''re finished. "Safety first."'
						pav_disco_sex['condom'] = 1
						prezikcount -= 1
						act 'Bend over':
							gs'pav_disco_sex','insert'
							act 'Get fucked':gt'pav_disco_sex','fuck1'
						end
					end
				end
			end
		end
		
		act 'Not here (suggest his place)':
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
			'"Wait!" you cry, looking around. "Not here. Maybe we could... go back to your place?"'
			'"That works for me," he grins. Pulling his pants back up, he rushes you over to a nearby apartment complex and you head inside.'
			act 'Continue':gt'hookup','start'
		end
	end
end

if $ARGS[0] = 'insert':
	if PCloSkirt > 0 and $pantyworntype = 'none':
		'You smile eagerly, quickly bending over and flipping your skirt up to show <<$npc_firstname[$npclastsaved]>> your bare ass.'
		if npc_condom_conscious = 1 and gdk['condom'] = 0:
			'"I thought I saw you weren''t wearing panties when we were dancing," <<$npc_firstname[$npclastsaved]>> snickers while rolling a condom onto his cock and lining himself up with your pussy.'
		else
			'"I thought I saw you weren''t wearing panties when we were dancing," <<$npc_firstname[$npclastsaved]>> snickers, lining his cock up with your pussy.'
		end
	elseif PCloSkirt > 0:
		'You smile eagerly, quickly bending over and pulling your panties from under your skirt down to your knees.'
		if npc_condom_conscious = 1:
			'Behind you, <<$npc_firstname[$npclastsaved]>> rolls a condom onto his cock before lining himself up with your pussy.'
		else
			'<<$npc_firstname[$npclastsaved]>> moves in behind you, lining his cock up with your pussy.'
		end
	elseif $pantyworntype = 'none':
		'You smile eagerly, quickly bending over and pulling down your pants to show <<$npc_firstname[$npclastsaved]>> your bare ass.'
		if npc_condom_conscious = 1:
			'"Looks like you came ready for this," <<$npc_firstname[$npclastsaved]>> snickers while rolling a condom onto his cock and lining himself up with your pussy.'
		else
			'"Looks like you came ready for this," <<$npc_firstname[$npclastsaved]>> snickers, lining his cock up with your pussy.'
		end
	else
		'You smile eagerly, grabbing your pants and panties together and pulling them down to your knees in one tug.'
		if npc_condom_conscious = 1:
			'Behind you, <<$npc_firstname[$npclastsaved]>> rolls a condom onto his cock before lining himself up with your pussy.'
		else
			'<<$npc_firstname[$npclastsaved]>> moves in behind you, lining his cock up with your pussy.'
		end
	end
end

if $ARGS[0] = 'virgin_fuck':
	gdk['virgin'] = 1
	gs'arousal','vaginal', rand(3,7), 'no_orgasm_msg'
	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/fuck.mp4"></video></center>'
	'<<$npc_firstname[$npclastsaved]>> thrusts into your pussy and you gasp in pain as his cock pierces your hymen. You''re not sure exactly what you expected sex to feel like, but you did hope it would feel better than this.'
	act 'This hurts!':
		cla & *nl
		$orgasm_or = 'no'
		if pcs_horny > 50:pcs_horny -= 50
		'You grunt your way through the discomfort of the next few minutes. You try to focus on the sensations, hoping that it will start to feel good, but it never does. It just feels like being stabbed repeatedly. <i>In your pussy.</i> It''s awful and painful and you can''t wait for it to stop. The only other sensation you can feel is the blood of your virginity, running down your leg.'
		*nl
		gs'pav_disco_sex','disco_cum'
	end
	
	act 'Don''t feel much':
		cla & *nl
		$orgasm_or = 'no'
		if pcs_horny > 50:pcs_horny -= 40
		'Within a minute, the initial pain fades. After that you hope it''ll start to feel good but... it doesn''t actually feel like anything at all. Just a sort of "pressure" moving in and out of you. It doesn''t feel good, it doesn''t feel bad, it just sort of... feels. Other than that, the only thing you can feel is the blood of your virginity, running down your leg.'
		*nl
		gs'pav_disco_sex','disco_cum'
	end
	
	act 'Start to feel good':
		cla & *nl
		'Within a minute, the initial pain fades. And a minute after that, it you start to feel <i>really good</i>. <<$npc_firstname[$npclastsaved]>>''s cock just "fills" you in a way you''ve never experienced before. Soon, you''re thrusting your hips back to meet his, chasing after this brand new pleasure.'
		*nl
		'<i>Why did I wait this long to have sex?!</i> you think to yourself.'
		*nl
		gs'pav_disco_sex','disco_cum'
	end
end


if $ARGS[0] = 'fuck1':
	gdk['fuck'] = 1
	gdk['orgasm'] = orgasm
	if pcs_vag = 0:gt'pav_disco_sex','virgin_fuck'
	gs'arousal','vaginal', rand(3,7), 'no_orgasm_msg'
	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/fuck.mp4"></video></center>'
	if mesec > 0:
		'<<$npc_firstname[$npclastsaved]>> slips inside you easily, your pussy already slick from your period, and quickly builds up to a steady pace, pummelling your pussy. The rhythmic fucking pounds your insides in just the right way and you soon find yourself moaning in pleasure.'
	else
		'<<$npc_firstname[$npclastsaved]>> quickly builds up to a steady pace, pummelling your pussy from behind, pumping his cock in and out of you. The rhythmic fucking pounds your insides in just the right way and you soon find yourself moaning in pleasure.'
	end
	*nl
	gs'pav_disco_sex','disco_cum'
end

if $ARGS[0] = 'disco_cum':
	gdk['cum'] = rand(1,4)
	if gdk['cum'] = 1:
		'"I''m gonna cum!"'
		act 'Squat down':gt'pav_disco_sex','disco_cum_facial'
			
		act 'Finish him with your mouth':gt'pav_disco_sex','disco_cum_mouth'

		if gdk['condom'] ! 2: act 'Speed up':gt'pav_disco_sex','disco_creampie'
		
	elseif gdk['cum'] = 2:
		'"Hey," <<$npc_firstname[$npclastsaved]>> grunts from behind you. "Let me cum in your mouth."'
		act 'Squat down':gt'pav_disco_sex','disco_cum_facial'
		
		act 'Suck him off':gt'pav_disco_sex','disco_cum_mouth'
	elseif gdk['cum'] = 3:
		if gdk['condom'] = 1:
			'Suddenly, <<$npc_firstname[$npclastsaved]>> pulls out of you and pushes you down to your knees, tears off the condom and starts rapidly jerking himself off in front of your face.'
		else
			'Suddenly, <<$npc_firstname[$npclastsaved]>> pulls out of you, pushes you down to your knees and starts rapidly jerking himself off in front of your face.'
		end
		
		act 'Squat down':gt'pav_disco_sex','disco_cum_facial'
		
		act 'Suck him off instead':gt'pav_disco_sex','disco_cum_mouth'
	elseif gdk['cum'] = 4:
		if gdk['condom'] = 1:
			gs'cum_call','', $boy, 3
			$gdk['cum'] = 'condom'
			act 'Continue':gt'pav_disco_sex','disco_condom1'
		elseif gdk['condom'] = 2:
			gs'cum_call','', $boy, 1
			$gdk['cum'] = 'creampie'
			if gdk['orgasm'] < orgasm:
				'You feel pressure building with every thrust of <<$npc_firstname[$npclastsaved]>>''s cock inside you and soon it explodes in climactic orgasm. Every muscle in your body clenches and your pussy clamps down on the cock inside it so hard it almost hurts. As your breathing winds down, you feel <<$npc_firstname[$npclastsaved]>> slip out from inside you.'
				*nl
				'You start to smile in pleasure when you suddenly feel something oozing from your pussy and your eyes go wide.'
				act 'WHAT THE FUCK!':gt'pav_disco_sex','creampie_surprise2'
			else
				'Your eyes go wide when you feel something spurt inside of your pussy.'
				act 'WHAT THE FUCK!':gt'pav_disco_sex','creampie_surprise2'
			end
		else
			gs'cum_call','', $boy, 1
			$gdk['cum'] = 'creampie'
			if pcs_horny >= 90:
				$orgasm_or = 'yes'
				'You feel pressure building with every thrust of <<$npc_firstname[$npclastsaved]>>''s cock inside you and soon it explodes in climactic orgasm. Every muscle in your body clenches and your pussy clamps down on the cock inside it so hard it almost hurts. Your breathing slowly winds down and you feel <<$npc_firstname[$npclastsaved]>> slip his cock out from inside you.'
				*nl
				'As he does, you feel something oozing out of your pussy after it.'
				gs'pav_disco_sex','creampie_surprise1'
			else
				'Your eyes go wide when you feel something spurt inside of your pussy.'
				gs'pav_disco_sex','creampie_surprise1'
			end
		end
	end
end

if $ARGS[0] = 'disco_cum_facial':
	cla & *clr
	$gdk['cum'] = 'facial'
	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/cum_facial.mp4"></video></center>'
	if gdk['cum'] ! 2:
		if gdk['condom'] = 1:
			'You quickly jump off his cock and squat down in front of him. <<$npc_firstname[$npclastsaved]>> takes the hint and rips off the condom, jerking himself off over your face. Within seconds, cum erupts from the tip of his cock, spattering across your forehead and running down your cheeks. Seconds after that, it seems <<$npc_firstname[$npclastsaved]>> is out of juice and pulls back to admire his handiwork.'
		else
			'You quickly jump off his cock and squat down in front of him. <<$npc_firstname[$npclastsaved]>> takes the hint and begins jerking himself off over your face. Within seconds, cum erupts from the tip of his cock, spattering across your forehead and running down your cheeks. Seconds after that, it seems <<$npc_firstname[$npclastsaved]>> is out of juice and pulls back to admire his handiwork.'
		end
	else
		'"Nuh uh," You wrinkle your nose in disgust. "I don''t want that. But you can still cum on my face."'
		if gdk['condom'] = 1:
			'With a smile, you jump off his cock and squat down in front of him. <<$npc_firstname[$npclastsaved]>> rips off the condom in turn, quickly jerking himself off over your face. Within seconds, cum erupts from the tip of his cock, spattering across your forehead and running down your cheeks. Seconds after that, it seems <<$npc_firstname[$npclastsaved]>> is out of juice and pulls back to admire his handiwork.'
		else
			'With a smile, you jump off his cock and squat down in front of him. <<$npc_firstname[$npclastsaved]>> takes the hint and quickly begins jerking himself off over your face. Within seconds, cum erupts from the tip of his cock, spattering across your forehead and running down your cheeks. Seconds after that, it seems <<$npc_firstname[$npclastsaved]>> is out of juice and pulls back to admire his handiwork.'
		end
	end
	
	act 'Smile':
		cla & *clr
		'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/facial_after.mp4"></video></center>'
		'"Well that was fun." You smile up at <<$npc_firstname[$npclastsaved]>> as he tucks his cock back inside his pants.'
		if gdk['fuck'] = 1:
			'"Yeah, you''ve got a great pussy."'
		else
			'"Yeah, you''ve got a great mouth."'
		end
		act'Continue':gt'pav_disco_sex','disco_sex_end'
	end
	
	act 'Clean him with your mouth':
		cla & *clr
		'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/cum_clean.mp4"></video></center>'
		'"Here, let me get that for you," you say, leaning forward and running your mouth up and down his cock, making sure he''s well and truly sucked dry before standing up again.'
		act 'Continue':gt'pav_disco_sex','disco_sex_end'
	end
end

if $ARGS[0] = 'disco_mouth_react1':
	act 'A little warning?':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
		'"Jesus!" you sputter, still wheezing. "Give a girl some warning!"'
		'"Sorry. Maybe next time," he grins. Clearly he isn''t too bothered by what happened.'
		*nl
		gs'pav_disco_sex','disco_sex_end'
	end
	
	act 'I almost choked!':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
		'"Ack!" you sputter, still wheezing. "I almost choked!"'
		'"This happen to you a lot?" he asks, eyebrow raised.'
		'"No..." you say, blushing and turning your head away.'
		*nl
		gs'pav_disco_sex','disco_sex_end'
	end
	
	act 'That tastes awful!':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
		'"Ugh!" you sputter, still wheezing. "That tastes <i>awful</i>!"'
		'"Wait, is this your first time sucking cock?" he asks, eyebrow raised.'
		if swallow < 1:
			act 'Yes...':
				cla & *nl
				'"Yes..." you admit, blushing and turning your head away. "Got a problem?'
				'"No, but it explains a lot," <<$npc_firstname[$npclastsaved]>> grins. Your blush deepens.'
				*nl
				gs'pav_disco_sex','disco_sex_end'
			end
			
			act 'No... (lie)':
				cla & *nl
				'"No..." you say, blushing and turning your head away. "You just... don''t taste how I expected."'
				'"Uh huh..." <<$npc_firstname[$npclastsaved]>> eyes you knowingly and your blush deepens, but you refuse to look him in the eye.'
				*nl
				gs'pav_disco_sex','disco_sex_end'
			end
		else
			act 'Yes... (lie)':
				cla & *nl
				'"Yes..." you lie, blushing and turning your head away, hoping to claim inexperience to save him some hurt feelings. "Got a problem?'
				'"No, but it explains a lot," <<$npc_firstname[$npclastsaved]>> grins. Your blush deepens. Maybe you should have just told him his cum is disgusting after all...'
				*nl
				gs'pav_disco_sex','disco_sex_end'
			end
			
			act 'No! You just taste awful!':
				'"No!" you spit. "You just taste awful! You need to eat more fruit or something!"'
				'<<$npc_firstname[$npclastsaved]>> recoils, looking somewhat offended, but doesn''t say anything more.'
				*nl
				gs'pav_disco_sex','disco_sex_end'
			end
		end
	end
end

if $ARGS[0] = 'disco_mouth_react2':
	act 'A little warning?':
		cla & *clr
		'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/facial_after.mp4"></video></center>'
		'"A little warning next time?" you smile at him. "It''s hard to swallow on command."'
		'"Well you seemed to manage just fine," he grins back.'
		*nl
		gs'pav_disco_sex','disco_sex_end'
	end
	
	act 'Lick your lips':
		cla & *clr
		'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/facial_after.mp4"></video></center>'
		'"You taste good," you smile, licking your lips and standing back up.'
		*nl
		gs'pav_disco_sex','disco_sex_end'
	end
	
	act 'Clean him off':
		cla & *clr
		'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/cum_clean.mp4"></video></center>'
		'"Here, let me get that for you," you say, leaning forward and running your mouth up and down his cock, making sure he''s well and truly sucked dry before standing up again.'
		*nl
		gs'pav_disco_sex','disco_sex_end'
	end
end

if $ARGS[0] = 'disco_cum_mouth':
	cla & *clr
	$gdk['cum'] = 'mouth'
	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/cum_mouth.mp4"></video></center>'
	if gdk['cum'] ! 3:
		if gdk['condom'] = 1:
			'You quickly jump off his cock and squat down in front of him, pulling off the condom and replacing your pussy with your mouth. You bob your head up and down exactly twice before thick salty cum spurts out onto your tongue. Then, using your hand, you draw out every last drop before pulling back.'
		else
			'You quickly jump off his cock and squat down in front of him and replace your pussy with your mouth. You bob your head up and down exactly twice before thick salty cum spurts out onto your tongue. Then, using your hand, you draw out every last drop before pulling back.'
		end
	else
		'"Ew, no." You wrinkle your nose in disgust. "Way too much clean up. Let''s do <i>this</i> instead..."'
		if gdk['condom'] = 1:
			'You quickly jump off his cock and squat down in front of him, pulling off the condom and replacing your pussy with your mouth. You bob your head up and down exactly twice before thick salty cum spurts out onto your tongue. Using your hand, you draw out every last drop before pulling back.'
		else
			'You quickly jump off his cock and squat down in front of him and replace your pussy with your mouth. You bob your head up and down exactly twice before thick salty cum spurts out onto your tongue. Using your hand, you draw out every last drop before pulling back.'
		end
	end
	
	act 'Spit':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
		'Opening your mouth, you stick your tongue out and let <<$npc_firstname[$npclastsaved]>>''s cum dribble out onto the pavement.'
		gs'pav_disco_sex','disco_sex_end'
	end
	
	act 'Swallow':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
		'Gathering his cum in your mouth, you push it to the back of your throat and swallow the entire load in one big gulp.'
		gs'pav_disco_sex','disco_sex_end'
	end
end

if $ARGS[0] = 'disco_condom1':
	$gdk['cum'] = 'condom'
	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/fuck.mp4"></video></center>'
	if gdk['orgasm'] < orgasm:
		'You gasp in surprise when <<$npc_firstname[$npclastsaved]>> pulls you tight against him, shoving his full length inside you to the base. Seconds later, you hear him groan and feel him cumming inside the condom. The sensation sends you over the edge and your body goes taut, leaving you standing on your tip toes while the orgasm rolls through your body.'
		*nl
		'When the quivering finally stops, you lean forward, letting <<$npc_firstname[$npclastsaved]>>''s cock slip from inside you and looking over your shoulder, you can see white liquid filling the rubber sleeve around it.'
		'<i>Looks like we came together,</i> you think.'
	else
		'You gasp in surprise when <<$npc_firstname[$npclastsaved]>> pulls you tight against him, shoving his full length inside you to the base. Seconds later, you hear him groan and feel him cum inside the condom.'
		*nl
		'Clenching your pussy, you milk him for all he''s worth until you feel him stop pulsing inside you. Leaning forward, you let <<$npc_firstname[$npclastsaved]>>''s cock slip from your pussy.'
	end
	act 'Continue':gt'pav_disco_sex','disco_sex_end'
end

if $ARGS[0] = 'disco_condom2':
	$gdk['cum'] = 'condom'
	'<center><video autoplay loop src="images/locations/pavlovsk/community/disco/sex/fuck.mp4"></video></center>'
	if gdk['orgasm'] < orgasm:
		'You don''t say a word, instead throwing your hips back onto <<$npc_firstname[$npclastsaved]>>''s cock as hard as you can. Seconds later, you hear him groan and feel him cum inside the condom. The sensation sends you over the edge and your body goes taut, leaving you standing on your tip toes while the orgasm rolls through your body.'
		*nl
		'When the quivering finally stops, you lean forward, letting <<$npc_firstname[$npclastsaved]>>''s cock slip from your pussy.'
	else
		'You don''t say a word, instead throwing your hips back onto <<$npc_firstname[$npclastsaved]>>''s cock as hard as you can. Seconds later, you hear him groan and feel him cumming inside the condom.'
		*nl
		'Clenching your pussy, you milk him for all he''s worth until you feel him stop pulsing inside you. Leaning forward, you let <<$npc_firstname[$npclastsaved]>>''s cock slip from your pussy.'
	end
	act 'Continue':gt'pav_disco_sex','disco_sex_end'
end

if $ARGS[0] = 'disco_creampie':
	if gdk['condom'] = 1:gt'pav_disco_sex','disco_condom2'
	gs'cum_call','', $boy, 1
	$gdk['cum'] = 'creampie'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
	if pcs_horny >= 90:
		$orgasm_or = 'yes'
		'You don''t say a word, instead throwing your hips back onto <<$npc_firstname[$npclastsaved]>>''s cock as hard as you can. Seconds later, you hear him groan and feel his load spill out inside you. The sensation sends you over the edge and your body goes taut, leaving you standing on your tip toes while the orgasm rolls through your body.'
		*nl
		'When the quivering finally stops, you lean forward, letting <<$npc_firstname[$npclastsaved]>>''s cock slip from your pussy, his cum trickling out after it.'
	else
		'You don''t say a word, instead throwing your hips back onto <<$npc_firstname[$npclastsaved]>>''s cock as hard as you can. Seconds later, you hear him groan and feel his load spill out inside you.'
		*nl
		'Clenching your pussy, you milk him for all he''s worth until you feel him stop pulsing inside you. Leaning forward, you let <<$npc_firstname[$npclastsaved]>>''s cock slip from your pussy and his cum slowly trickles out after it.'
	end
	act 'Felt too good':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
		'"Sorry, it felt so good," you grin.'
		'"Apology accepted," he pants back. "Your pussy was great too."'
		gs'pav_disco_sex','disco_sex_end'
	end
	
	if birth_control['think_safe'] = 1:
		act 'I''m on birth control':
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
			'"Don''t worry," you wink. "I''m on birth control."'
			gs'pav_disco_sex','disco_sex_end'
		end
	else
		act 'I''m on birth control (lie)':
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
			'"Don''t worry," you lie, winking at him. "I''m on birth control."'
			gs'pav_disco_sex','disco_sex_end'
		end
	end
	
	if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
		act 'I love getting creampied':
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
			'"I love getting creampied," you grin, closing your eyes and savoring the feeling of <<$npc_firstname[$npclastsaved]>>''s load oozing from your pussy.'
			gs'pav_disco_sex','disco_sex_end'
		end
	end
	
end

if $ARGS[0] = 'creampie_surprise1':
	act 'Did you just cum inside me?':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
		'You pull away, shocked by what just occurred.'
		'"Did you just cum inside me?"'
		if rand(0,1) = 1 or gdk['condom'] = 2:
			'"Shit! I didn''t mean to! I was just-"'
		else
			'"Yeah, your pussy was so tight, I just couldn''t help it."'
		end
		
		act 'What the fuck!':
			gs'arousal','end'
			
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
			'"What the fuck!" you shout, causing <<$npc_firstname[$npclastsaved]>> to recoil backwards. "What made you think that was fucking okay?!"'
			if gdk['virgin'] = 1 or mesec > 0:
				'You stare down at your pussy, horrified by the white liquid oozing from inside it. Before you can do anything else <<$npc_firstname[$npclastsaved]>> hurries away from you, pulling up his pants and escaping back into the disco, leaving you alone in the dark with cum and blood dripping from your pussy.'
			else
				'You stare down at your pussy, horrified by the white liquid oozing from inside it. Before you can do anything else <<$npc_firstname[$npclastsaved]>> hurries away from you, pulling up his pants and escaping back into the disco, leaving you alone in the dark with his cum still dripping from your pussy.'
			end
			killvar 'gdk'
			act 'Continue':gt'pav_commcenter'
		end
		
		act 'Forgive the mistake':
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
			'"You look down at the white liquid dripping from your pussy. It fills you with stress, but you know it wouldn''t be right to blame <<$npc_firstname[$npclastsaved]>>.'
			'You bite your lip for a moment considering the situation.'
			act 'I''ll be fine':
				cla & *nl
				'You decide it isn''t a big deal.'
				'"It''s fine," you sigh. "I should''ve told you not to. Or insisted on a condom. But it''s not your fault. One random creampie won''t kill me will it?"'
				gs'pav_disco_sex','disco_sex_end'
			end
			
			act 'I''ll buy a morning after pill':
				cla & *nl
				'"It''s fine," you sigh. "I should''ve told you not to. Or insisted on a condom. Either way, it''s my fault for not saying anything. I''ll just buy a morning after pill tomorrow. I''ll be alright."'
				gs'pav_disco_sex','disco_sex_end'
			end
			
			if birth_control['think_safe'] = 1:
				act 'I''m on birth control':
					cla & *nl
					'"It''s fine," you sigh. "I should''ve told you not to. Or insisted on a condom. But it''s not your fault. I''m on birth control anyways. You''re clean, right?"'
					'"Yeah, of course!" he responds immediately.'
					'<i>Not that you''d tell me if you weren''t...</i> you think belated to yourself.'
					gs'pav_disco_sex','disco_sex_end'
				end
			else
				act 'I''m on birth control (lie)':
					cla & *nl
					'"It''s fine," you sigh. "I''m on birth control anyways."'
					'You see relief wash through his face at your lie, either because he thinks he isn''t going to be a father any time soon or just because it means you aren''t going to be mad at him.'
					gs'pav_disco_sex','disco_sex_end'
				end
			end
		end
		
		act 'Hot':
			pcs_horny += 15
			cla & *clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
			'A shiver of pleasure washes over your body. Just the knowledge that <<$npc_firstname[$npclastsaved]>> blew his load inside you is enough to send heat coursing through your hips and you can feel your nipples stiffen up again.'
			act 'It felt so good':
				cla & *nl
				'"That felt so good," you smile tiredly. <<$npc_firstname[$npclastsaved]>> blinks at you, a look of surprise on his face, as if he expected you to be mad about it.'
				gs'gdksex','disco_sex_end'
			end
			
			act 'Premature ejaculation is hot':
				cla & *nl
				'"Fuck, it''s so hot when guys can''t hold their load," you grin.'
				'"What?" <<$npc_firstname[$npclastsaved]>> says, seemingly taken aback by your statement.'
				'"Premature ejaculation?" you say, your smile growing wider. "It''s hot."'
				if npc_insecure[$npclastsaved] = 1:
					gs'arousal','end'
					'"What the fuck did you just say?!" he growls.'
					'"What??" you protest in turn. "I don''t see what the problem is! I''m saying I think it''s sexy that you can''t help but nut inside me! It''s not your fault, but I liked it!"'
					'"I didn''t prematurely ejaculate! I don''t do that!"'
					'"Well, there wasn''t any warning. Seemed like you didn''t mean to cum when-"'
					'"I SAID I DON''T DO THAT!"'
					'<<$npc_firstname[$npclastsaved]>> shouts at you one last time before storming back towards the disco, grumbling the whole time and suddenly you''re alone in the dark with the load of a stranger inside your pussy.'
					killvar 'gdk'
					act 'Continue':gt'pav_commcenter'
				else
					'A blush spreads across his face and he mutters a but doesn''t say anything else.'
					gs'pav_disco_sex','disco_sex_end'
				end
			end
		end
		
		if gdk['orgasm'] = orgasm:
			act 'Already?':
				cla & *clr
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
				'"Seriously?! Already?!" You look down at the cum seeping from your pussy with heavy disappointment. "Fuck! Why do guys like you never manage to hold it in until I get off?"'
				'"What the fuck is your problem?" <<$npc_firstname[$npclastsaved]>> growls angrily.'
				'"Apparently, my problem is that you''re a two pump chump who can''t wait to nut inside a girl before she''s gotten off!"'
				'"Fuck you bitch!"'
				if gdk['virgin'] = 1 or mesec > 0:
					'<<$npc_firstname[$npclastsaved]>> storms away from you, pulling up his pants as he goes. Before you know it, you''re alone in the dark, a stranger''s cum and blood dripping from your pussy, and feeling severely blue balled.'
				else
					'<<$npc_firstname[$npclastsaved]>> storms away from you, pulling up his pants as he goes. Before you know it, you''re alone in the dark, a stranger''s cum dripping from your pussy, and feeling severely blue balled.'
				end
				gs'arousal','end'
				killvar 'gdk'
				act 'Continue':gt'pav_commcenter'
			end
		end
	end
end

if $ARGS[0] = 'creampie_surprise2':
	gs'arousal','end'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/creampie.jpg"></center>'
	'"WHAT THE FUCK!" you shout, causing <<$npc_firstname[$npclastsaved]>> to recoil backwards. "I fucking <i>told you</i> not to cum inside me!"'
	if gdk['virgin'] = 1 or mesec > 0:
		'<<$npc_firstname[$npclastsaved]>> hurries away from you, escaping back into the disco as you stare down at your pussy, horrified by the white liquid oozing from inside it. Before you know it, you''re alone in the dark, a stranger''s cum and blood dripping from your pussy.'
	else
		'<<$npc_firstname[$npclastsaved]>> hurries away from you, escaping back into the disco as you stare down at your pussy, horrified by the white liquid oozing from inside it. Before you know it, you''re alone in the dark, a stranger''s cum inside your pussy.'
	end
	killvar 'gdk'
	act 'Continue':gt'pav_commcenter'
end

if $ARGS[0] = 'disco_sex_end':
	gs'arousal','end'
	if PCloSkirt > 0:
		if pantyworntype = 'none' or gdk['fuck'] ! 1:
			if $gdk['cum'] = 'facial':
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'Zipping his pants back up, <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark with cum on your face.'
			elseif $gdk['cum'] = 'mouth':
				'Zipping his pants back up, <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, the taste of his cum still on your lips.'
			elseif $gdk['cum'] = 'creampie' and (mesec > 0 or gdk['virgin'] = 1):
				'You pull up your panties while <<$npc_firstname[$npclastsaved]>> zips up his pants before heading back inside, leaving you alone in the dark, cum and blood soaking into your underwear.'
			elseif $gdk['cum'] = 'creampie':
				'Zipping his pants back up, <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, cum running down your leg.'
			elseif $gdk['cum'] = 'condom':
				'<<$npc_firstname[$npclastsaved]>> pulls off the condom and tosses it aside, zipping his pants back up to head back inside and leaving you alone in the dark, pussy juices running down your legs.'
			end
		else
			if $gdk['cum'] = 'facial':
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'You pull up your panties while <<$npc_firstname[$npclastsaved]>> zips up his pants before heading back inside, leaving you alone in the dark with cum on your face.'
			elseif $gdk['cum'] = 'mouth':
				'You pull up your panties while <<$npc_firstname[$npclastsaved]>> zips up his pants before heading back inside, leaving you alone in the dark, the taste of his cum still on your lips.'
			elseif $gdk['cum'] = 'creampie' and (mesec > 0 or gdk['virgin'] = 1):
				'You pull up your panties while <<$npc_firstname[$npclastsaved]>> zips up his pants before heading back inside, leaving you alone in the dark, cum and blood soaking into your underwear.'
			elseif $gdk['cum'] = 'creampie':
				*nl
				'You pull up your panties while <<$npc_firstname[$npclastsaved]>> zips up his pants before heading back inside, leaving you alone in the dark, cum soaking into your underwear.'
!!			elseif $gdk['cum'] = 'creampie_wipe':
!!				'You pull out some wipes and begin to clean up the mess leaking out of your pussy while <<$npc_firstname[$npclastsaved]>> zips up his pants and heads back inside. By the time you''re done, you''re alone, pulling up your panties in the dark.'
			elseif $gdk['cum'] = 'condom':
				'<<$npc_firstname[$npclastsaved]>> pulls off the condom and tosses it aside while you pull up your panties. Afterwards, he zips his pants back up and heads inside, leaving you alone in the dark.'
			end
		end
	else
		if gdk['fuck'] ! 1:
			if $gdk['cum'] = 'facial':
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'Zipping his pants back up, <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark with cum on your face.'
			elseif $gdk['cum'] = 'mouth':
				'Zipping his pants back up, <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, the taste of his cum still on your lips.'
			end
		else
			if $gdk['cum'] = 'facial':
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/dk_night.jpg"></center>'
				'The two of you pull your pants back up and <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark with cum on your face.'
			elseif $gdk['cum'] = 'mouth':
				'The two of you pull your pants back up and <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, the taste of his cum still on your lips.'
			elseif $gdk['cum'] = 'creampie' and (mesec > 0 or gdk['virgin'] = 1):
				*nl
				if pantyworntype = 'none':
					'The two of you pull your pants back up and <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, cum and blood seeping into the crotch of your pants.'
				else
					'The two of you pull your pants back up and <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, cum and blood seeping into your panties.'
				end
			elseif $gdk['cum'] = 'creampie':
				*nl
				if pantyworntype = 'none':
					'The two of you pull your pants back up and <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, cum seeping into the crotch of your pants.'
				else
					'The two of you pull your pants back up and <<$npc_firstname[$npclastsaved]>> heads back inside, leaving you alone in the dark, cum seeping into your panties.'
				end
			
			elseif $gdk['cum'] = 'condom':
				'<<$npc_firstname[$npclastsaved]>> pulls off the condom and tosses it aside while you pull up your pants. Afterwards, he zips his own pants back up and heads inside, leaving you alone in the dark.'
			end
		end
	end
	killvar 'gdk'
	act 'Continue':gt'pav_commcenter'
end

!! Scene 2: Hotel
if $ARGS[0] = 'hotel':
	menu_off = 1
	music_loop = 0
	close all
	gs 'npcpreservec', $npclastgenerated
	*clr & cla
	minut += 5
	gs 'boymass', 'B'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/coupletaxi.jpg"></center>'
	'When you get outside, <<$npc_firstname[$npclastsaved]>> quickly hails a taxi and has a short chat with the driver. "Come on, <<$pcs_nickname>>. Let''s go!"'
	'You get into the back seat of the taxi with him, and spend the next five minutes driving mostly in silence. You notice <<$npc_firstname[$npclastsaved]>> giving the taxi driver an impressive tip when you arrive at the hotel... is he trying to impress you, or is he just very generous?'
	act 'Go to <<$npc_firstname[$npclastsaved]>>''s room':
		if DPtipe = 1:
			if rand(0,4) = 0: gt 'pav_disco_sex', 'drug_user'
			*clr & cla
			BeInOtel += 1
			minut += 5
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/otel.jpg"></center>'
			'You follow along behind <<$npc_firstname[$npclastsaved]>> until the two of you reach his door and enter his room. You are quite surprised, the room is much nicer than you thought it would be. He must have counted on bringing someone back to the room with him, as a bottle of whiskey and a fruit platter are already waiting on the table.'
			'He gestures to a comfortable looking chair, inviting you to sit down. He sits across from you and pours two glasses of whiskey, offering you one.'
			'"Let''s have a drink and toast to making new acquaintances! I''m very fortunate to have met a beautiful and wonderful girl such as yourself, <<$pcs_nickname>>", he toasts cheerfully.'

			act 'Have a drink with him':
				*clr & cla
				gs 'drugs', 'alcohol', 'whiskey'
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
				'You can tell he didn''t cheap out on the whiskey at all, this is good stuff!'
				'The two of you enjoy the drink and chat about small things, relaxing in each other''s company. <<$npc_firstname[$npclastsaved]>> then stands up and walks up to you, places his hands on your shoulders and brings his lips to yours, giving you a warm kiss while slowly and confidently starting to take your clothes off.'
				gs 'arousal', 'kiss', 5
				gs 'stat'
				gs 'pav_disco_sex', 'heating_up'
			end
		else
			*clr & cla
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
			'As soon as you enter his hotel room, <<$npc_firstname[$npclastsaved]>> puts his hands on your hips and pulls you closer for a deep kiss. He slides his hands up and down your body, trying to find a way to get underneath your clothes.'
			gs 'arousal', 'kiss', 5
			gs 'stat'
			gs 'pav_disco_sex', 'heating_up'
		end
	end
end

if $ARGS[0] = 'heating_up':
	if pcs_vag = 0:
		act 'Tell him you''re still a virgin':
			*clr & cla
			gs 'stat'
			tiprandeom = rand(0, 2)
			if tiprandeom < 2:
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/otel.jpg"></center>'
				'"No, wait!" you interrupt him. "Look... I like men, and I like you, but I''m not losing my virginity to someone I just met!"'
				'<<$npc_firstname[$npclastsaved]>> smiles reassuringly. "Oh wow, a virgin huh? That''s okay... we can still have fun without you losing your virginity! Maybe you could use your mouth?"'
				'<<$npc_firstname[$npclastsaved]>> unbuttons his pants, letting his cock spring free.'

				gs 'willpower', 'bj', 'resist'
				if will_cost <= pcs_willpwr:
					act 'Tell him it''s not going to happen (<<will_cost>> Willpower)':
						*clr & cla
						gs 'willpower', 'bj', 'resist'
						gs 'willpower', 'pay', 'resist'
						gs 'stat'
						'<center><video autoplay loop src="images/pc/reactions/no.mp4"></video></center>'
						'You laugh at his confidence. It doesn''t look like anyone has said no to him before and he obviously expected you to follow his lead, but you set him straight. "I don''t think so..."'
						'<<$npc_firstname[$npclastsaved]>> gives his head a scratch, pondering the situation for a moment. "How about I pay you? I''ll give you 400 <b>₽</b> for a blowjob?"'
						'He''s already counting the money out while he says it.'

						gs 'willpower', 'prostitution', 'resist', 'hard'
						if will_cost <= pcs_willpwr:
							act 'Leave the hotel (<<will_cost>> Willpower)':
								gs 'willpower', 'prostitution', 'resist', 'hard'
								gs 'willpower', 'pay', 'resist'
								gs 'stat'
								gt 'pav_market'
							end
						else
							act 'Leave the hotel (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
						act 'Suck him off for money':
							*clr & cla
							money += 400
							gs 'fame', 'pav', 'prostitute', rand(1,3)
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/money.jpg"></center>'
							'You give him a nod and wordlessly extend your hand. <<$npc_firstname[$npclastsaved]>> readily gives you the money.'
							gt 'pav_disco_sex', 'hotelsex', 'paid'
						end
					end
				else
					act 'Tell him it''s not going to happen (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
				act 'Suck his cock': gt 'pav_disco_sex', 'hotelsex', 'unpaid'
			else
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/money.jpg"></center>'
				'<<$npc_firstname[$npclastsaved]>>''s eyes grow a bit wider, the moment you say the word ''virgin''.'
				'"Wow, you''re a virgin? Really?" he asks, obviously very intrigued. "Can I see your pussy? Please? I haven''t seen a virgin pussy in forever... I''ll give you 200 <b>₽</b>! I just want to look at it, I promise not to touch!"'

				gs 'willpower', 'exhib', 'resist', 'easy'
				if will_cost <= pcs_willpwr:
					act 'Leave the hotel (<<will_cost>> Willpower)':
						gs 'willpower', 'exhib', 'resist', 'easy'
						gs 'willpower', 'pay', 'resist'
						gs 'stat'
						gt 'pav_market'
					end
				else
					act 'Leave the hotel (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end

				gs 'willpower', 'exhib', 'resist', 'easy'
				if will_cost <= pcs_willpwr:
					act 'Tell him it''s not going to happen (<<will_cost>> Willpower)':
						*clr & cla
						gs 'stat'
						'<center><video autoplay loop src="images/pc/reactions/no.mp4"></video></center>'
						'You laugh at his confidence. It doesn''t look like anyone has said no to him before and he obviously expected you to follow his lead, but you set him straight. "I don''t think so..."'
						'<<$npc_firstname[$npclastsaved]>> gives his head a scratch, pondering the situation for a moment. "Well in that case, how about a blowjob then? I''ll give you 400 <b>₽</b>."'
						'He''s already counting the money out as he says it.'
						gs 'willpower', 'prostitution', 'resist', 'hard'
						if will_cost <= pcs_willpwr:
							act 'Leave the hotel (<<will_cost>> Willpower)':
								gs 'willpower', 'prostitution', 'resist', 'hard'
								gs 'willpower', 'pay', 'resist'
								gs 'stat'
								gt 'pav_market'
							end
						else
							act 'Leave the hotel (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
						act 'Suck him off for money':
							*clr & cla
							money += 400
							gs 'fame', 'pav', 'prostitute', rand(1,3)
							gs 'stat'
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/money.jpg"></center>'
							'You give him a nod and wordlessly extend your hand. <<$npc_firstname[$npclastsaved]>> readily gives you the money.'
							gt 'pav_disco_sex', 'hotelsex', 'paid'
						end
					end
				else
					act 'Tell him it''s not going to happen (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end

				act 'Show him':
					*clr & cla
					money += 200
					gs 'fame', 'pav', 'prostitute', rand(0,2)
					gs 'arousal', 'foreplay', 5, 'prostitution'
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/kiska.jpg"></center>'
					'You slowly take off your clothes and get down on his bed, spreading your legs widely. You can''t help but laugh a little when he comes back with a large flashlight.'
					'"So I can see it better!" he grins at you, almost giddy with anticipation.'
					'He examines your pussy for a few minutes, shining the flashlight inside you to try and catch glimpses of your hymen. "Wow, that''s so hot!" he mutters under his breath.'
					'He then looks at you with a serious expression. "Listen, I really want to be your first. I''ll give you... 5,000 <b>₽</b>. That''s right, five thousand rubles! What do you say?"'
                    gs 'willpower', 'prostitution', 'resist', 'hard'
					if will_cost <= pcs_willpwr:
						act 'Say you''re saving yourself for marriage (<<will_cost>> Willpower)':
							*clr & cla
							gs 'willpower', 'prostitution', 'resist', 'hard'
							gs 'willpower', 'pay', 'resist'
							gs 'stat'
							'<center><video autoplay loop src="images/pc/reactions/no.mp4"></video></center>'
							'You laugh at his confidence. It doesn''t look like anyone has said no to him before and he obviously expected you to follow his lead, but you set him straight. "Sorry but... no. I''m saving myself for marriage, and no amount of money is going to change that!"'
							'<<$npc_firstname[$npclastsaved]>> scratches his head, pondering for a moment. He looks rather disappointed. "Fair enough, I can respect that. I still want you though, so how about a blowjob then? I''ll give you 400 <b>₽</b>?"'
							'He''s already counting the money out as he says it.'
							gs 'willpower', 'prostitution', 'resist', 'hard'
							if will_cost <= pcs_willpwr:
								act 'Leave the hotel (<<will_cost>> Willpower)':
									gs 'willpower', 'prostitution', 'resist', 'hard'
									gs 'willpower', 'pay', 'resist'
									gs 'stat'
									gt 'pav_market'
								end
							else
								act 'Leave the hotel (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
							act 'Suck him off for money':
								*clr & cla
								money += 400
								gs 'fame', 'pav', 'prostitute', rand(1,3)
								gs 'stat'
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/money.jpg"></center>'
								'You wordlessly nod and extend your hand. <<$npc_firstname[$npclastsaved]>> readily gives you the money.'
								gs 'arousal', 'bj', 5, 'prostitution'
								gs 'dinSex', 'std_trigger_oral'
								gs 'stat'
								act 'Continue': gt 'pav_disco_sex', 'hotelsex', 'paid'
							end
						end
					else
						act 'Say you''re saving yourself for marriage (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					end
					act 'Lose your virginity for money':
						*clr & cla
						lose_virginity_event = 1
						bmSEX[Tboynum] += 1
						money += 5000
						gs 'fame', 'pav', 'prostitute', rand(2,6)
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/money.jpg"></center>'
						'"Well... alright," you say softly as you extend your hand. He gives you a hearty handshake. "Deal!" he happily exclaims.'
						'He puts a large pile of money in your hand, and you quickly count it. It''s all there, as promised. When you put the money away, <<$npc_firstname[$npclastsaved]>> eagerly pushes you down on the bed and starts taking off your top.'
						gs 'arousal', 'foreplay', 5, 'prostitution'
						gs 'stat'
						act 'Continue': gt 'pav_disco_sex', 'hotelsex', 'paid'
					end
				end
			end
		end
	end

	gs 'willpower', 'prostitution', 'self'
	if will_cost <= pcs_willpwr:
		act 'Suggest you want money (<<will_cost>> Willpower)':
			*clr & cla
			minut += 5
			gs 'willpower', 'prostitution', 'self'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/otel.jpg"></center>'
			'You look at the clock and fake a yawn. "Oh wow, is it that late already? It''s been fun spending time with you <<$npc_firstname[$npclastsaved]>>, but I really should get going."'
			'<<$npc_firstname[$npclastsaved]>> frowns and protests. "Already? But we were having such a nice time!"'
			'"I know," you smile at him, letting the words linger in the air for moment, "but maybe I can stay a little longer...if you make it worth it..."'
		    'He decides to play along. "Oh, I see. Would 2,000 <b>₽</b> help?" From the greedy look in his eyes and the large bulge in his pants, it''s very obvious that he expects to fuck you if you say yes.'
			act 'Agree to have sex for money':
				*clr & cla
				hotel_sex = 1
				guy += 1
				bmSEX[Tboynum] += 1
				money += 2000
				gs 'fame', 'pav', 'prostitute', rand(2,6)
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/money.jpg"></center>'
				'You smile at him and quickly put away the money he counted out for you. You barely get to finish the sentence before <<$npc_firstname[$npclastsaved]>> pushes you down on the bed and starts taking off your top.'
				'"Finally! I''ve been dying to fuck you ever since I saw you!" he grunts in your ear.'
				gs 'arousal', 'foreplay', 5, 'prostitution'
				gs 'stat'
				act 'Continue': gt 'pav_disco_sex', 'hotelsex', 'paid'
			end
			gs 'willpower', 'sex', 'resist'
			if will_cost <= pcs_willpwr:
				act 'Offer a blowjob for money instead (<<will_cost>> Willpower)':
					*clr & cla
					gs 'fame', 'pav', 'prostitute', rand(1,3)
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/otel.jpg"></center>'
					'You laugh and say "That''s very kind of you, but that''s too much! I don''t think I could thank you enough..."'
					'Before he is able to say anything, you get to the point. "I really do need to leave soon. But... how about I give you a blowjob for 400 <b>₽</b>?"'
					'<<$npc_firstname[$npclastsaved]>> looks a little disappointed at first, but chooses not to reject your offer.'
					act 'Blow him for money':
						*clr & cla
						money += 400
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/money.jpg"></center>'
						'You wordlessly extend your hand, and <<$npc_firstname[$npclastsaved]>> readily gives you the money.'
						gs 'arousal', 'bj', 5, 'prostitution'
						gs 'dinSex', 'std_trigger_oral'
						gs 'stat'
						act 'Continue': gt 'pav_disco_sex', 'hotelsex', 'paid'
					end
				end
			else
				act 'Offer a blowjob for money instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
	else
		act 'Suggest you want money (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Give him a blowjob': gt 'pav_disco_sex', 'hotelsex', 'unpaid'

	act 'Have sex with him':
		*clr & cla
		if boynumBlock = 0: guy += 1
		if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1
		hotel_sex = 1
		bmSEX[Tboynum] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/foreplay.jpg"></center>'
		'<<$npc_firstname[$npclastsaved]>> pushes you down on the bed and starts taking off your top.'
		'"Finally! I''ve been dying to fuck you since the moment I saw you!" he says.'
		gs 'arousal', 'foreplay', 5
		gs 'stat'
		act 'Continue': gt 'pav_disco_sex', 'hotelsex', 'unpaid'
	end
end

if $ARGS[0] = 'hotelsex':
	*clr & cla
	if boynumBlock = 0: guy += 1
	if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0: guy += 1
	bmBJ[Tboynum] += 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/foreplay.jpg"></center>'
	'He pulls your top aside to expose your breasts. He fondles them, followed by a few kisses and caresses, before he starts undressing you more. Unable to wait anymore, he pulls his dick out of his pants and pushes you down to your knees in front of him.'
	if $ARGS[1] = 'paid': gs 'arousal', 'foreplay', 10, 'prostitution'
	if $ARGS[1] = 'unpaid': gs 'arousal', 'foreplay', 10
	gs 'stat'
	act 'Suck his dick':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj1.jpg"></center>'
		'You get down on your knees and slowly start stroking his cock. As it grows larger and harder, you lick your lips in anticipation before carefully clasping your <<$pc_desc[''lips'']>> lips around the tip.'
		'You stroke your hand along his shaft in rhythm with your head bobbing up and down on his cock and as he becomes more aroused, he starts moaning and thrusting into your mouth, going deeper every time.'
		if $ARGS[1] = 'paid': gs 'arousal', 'bj', 5, 'prostitution'
		if $ARGS[1] = 'unpaid': gs 'arousal', 'bj', 5
		gs 'dinSex', 'std_trigger_oral'
		gs 'stat'

		if lose_virginity_event = 0 and hotel_sex = 0:
			act 'Keep sucking':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
				'You slide his dick as deeply down your throat as you can without gagging as your free hand slides between your legs and your fingers slip inside your pussy. You suck harder as your own arousal builds, flicking your clit every time he thrusts his cock down your throat.'
				if $ARGS[1] = 'paid':
					gs 'arousal', 'bj', 10, 'prostitution'
					gs 'arousal', 'mast', 10, 'prostitution'
				elseif $ARGS[1] = 'unpaid':
					gs 'arousal', 'bj', 10
					gs 'arousal', 'mast', 10
				end
				minut -= 10
				gs 'stat'

				act 'Swallow his load':
					*clr & cla
					spafinloc = 12
					gs 'cum_manage'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
					'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You keep watching him, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue before sliding down your throat. Spurt after spurt keeps filling your mouth.'
					'He cums so much that you feel like your mouth is about to overflow with it all, but swallowing as fast as you can, you manage to get it all down. As he pulls his dick from your mouth a strand of cum stretches from the tip of his cock back down to your lips. Smirking, he wipes his cock against your lips before tucking it back in his pants.'
					if $ARGS[1] = 'paid':
						gs 'arousal', 'bj', 10, 'prostitution'
						gs 'arousal', 'mast', 10, 'prostitution'
					elseif $ARGS[1] = 'unpaid':
						gs 'arousal', 'bj', 10
						gs 'arousal', 'mast', 10
					end
					minut -= 10
					gs 'stat'
					act 'Get cleaned up': gt 'pav_disco_sex', 'End'
				end

				act 'Let him cum on your face':
					*clr & cla
					spafinloc = 11
					gs 'cum_manage'
					
					gs 'stat'
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
					'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
					'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
					if $ARGS[1] = 'paid':
						gs 'arousal', 'bj', 10, 'prostitution'
						gs 'arousal', 'mast', 10, 'prostitution'
					elseif $ARGS[1] = 'unpaid':
						gs 'arousal', 'bj', 10
						gs 'arousal', 'mast', 10
					end
					minut -= 10
					gs 'stat'
					act 'Get cleaned up': gt 'pav_disco_sex', 'End'
				end
			end
		end

		if lose_virginity_event = 0:
			act 'Suggest he fucks your ass':
				*clr & cla
				hotel_sex = 0
				bmANAL[Tboynum] += 1
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/anal1.jpg"></center>'
				'You pull yourself away from his cock, your lips making a loud pop as it leaves your mouth. You quickly jump up on the bed, lay yourself down on your back and lift your knees all the way up to your breasts before reaching down with one hand to pull one of your ass cheeks aside.'
				gs 'arousal', 'auto_lube', 'anal'
				'<<$npc_firstname[$npclastsaved]>> takes the hint and starts pushing the head of his dick against your asshole. Pushing slowly but insistently, the head of his dick pops into your ass - he pauses for a moment to let you adjust before he slowly starts thrusting in and out, fucking you carefully and stretching your hole. He slowly but steadily works his dick deeper into your ass, all while picking up speed.'
				if $ARGS[1] = 'paid': gs 'arousal', 'anal', 10, 'prostitution'
				if $ARGS[1] = 'unpaid':  gs 'arousal', 'anal', 10
				gs 'dinSex', 'std_trigger'
				gs 'stat'

				act 'Finish him off':
					*clr & cla
					spafinloc = 11
					gs 'cum_manage'
					
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
					'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
					if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
					if $ARGS[1] = 'unpaid': gs 'arousal', 'hj', 10
					gs 'stat'
					act 'Get cleaned up': gt 'pav_disco_sex', 'End'
				end

				act 'Continue':
					*clr & cla
					spafinloc = 3
					gs 'cum_manage'
					bmANAL[Tboynum] += 1
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/anal2.jpg"></center>'
					'Since you are on your back, you are a bit lower than what would be ideal and <<$npc_firstname[$npclastsaved]>> is having trouble getting enough leverage to fuck your ass with as much force as he''d like, so he pulls his cock out of your hole and flips you over. You get yourself up on your hands and knees and he pulls your hips back towards him and within seconds, you feel him thrust his cock balls deep back up your ass. He grabs hold of your hips and starts pounding your asshole as hard as he can, his balls slapping against your clit with every thrust, the sound of slapping flesh getting louder as his hips join in, smacking against your ass. You feel him begin to cum in your ass, but he''s not done with you yet.'
					if $ARGS[1] = 'paid': gs 'arousal', 'anal', 10, 'prostitution'
					if $ARGS[1] = 'unpaid':  gs 'arousal', 'anal', 10
					gs 'stat'

					act 'Finish him off':
						*clr & cla
						spafinloc = 11
						gs 'cum_manage'
						
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
						'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
						if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
						if $ARGS[1] = 'unpaid': gs 'arousal', 'hj', 10
						gs 'stat'
						act 'Get cleaned up': gt 'pav_disco_sex', 'End'
					end

					act 'Let him fuck your pussy too':
						*clr & cla
						bmSEX[Tboynum] += 1
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/fuck2.jpg"></center>'
						'After some time he pulls out of you. Before you can even ask why, he turns you on your side and slides his dick into your wet pussy. He slides himself balls deep into you and starts fucking you, his thighs pounding against your ass cheeks.'
						'He seems to be really getting into it, his movements are almost frenzied in their pace.'
						if $ARGS[1] = 'paid': gs 'arousal', 'vaginal', 10, 'prostitution'
						if $ARGS[1] = 'unpaid': gs 'arousal', 'vaginal', 10
						gs 'dinSex', 'std_trigger'
						gs 'stat'

						act 'Suck him off':
							*clr & cla
							lose_virginity_event = 0
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
							'"Let me suck you off, I want to taste myself on you," you tell him, not wanting him to cum inside you. He grins and pulls out of you, letting you slide off the bed onto your knees. You slide his dick as deeply down your throat as you can without gagging, sucking up every drop of pussy juice clinging to his cock and licking the occasional stray drop from his balls. You slip your free hand down between your legs and your fingers slide up into your well fucked pussy. You suck harder as your own arousal builds, flicking your clit every time he thrusts his cock down your throat.'
							if $ARGS[1] = 'paid':
								gs 'arousal', 'bj', 10, 'prostitution'
								gs 'arousal', 'mast', 10, 'prostitution'
							elseif $ARGS[1] = 'unpaid':
								gs 'arousal', 'bj', 10
								gs 'arousal', 'mast', 10
							end
							gs 'dinSex', 'std_trigger_oral'
							minut -= 10
							gs 'stat'

							act 'Swallow his load':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
								'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You keep watching him, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue before sliding down your throat. Spurt after spurt keeps filling your mouth.'
								'He cums so much that you feel like your mouth is about to overflow with it all, but swallowing as fast as you can, you manage to get it all down. As he pulls his dick from your mouth a strand of cum stretches from the tip of his cock back down to your lips. Smirking, he wipes his cock against your lips before tucking it back in his pants.'
								if $ARGS[1] = 'paid':
									gs 'arousal', 'bj', 10, 'prostitution'
									gs 'arousal', 'mast', 10, 'prostitution'
								elseif $ARGS[1] = 'unpaid':
									gs 'arousal', 'bj', 10
									gs 'arousal', 'mast', 10
								end
								minut -= 10
								gs 'stat'
								act 'Get cleaned up': gt 'pav_disco_sex', 'End'
							end

							act 'Let him cum on your face':
								*clr & cla
								spafinloc = 11
								gs 'cum_manage'
								
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
								'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
								'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
								if $ARGS[1] = 'paid':
									gs 'arousal', 'bj', 10, 'prostitution'
									gs 'arousal', 'mast', 10, 'prostitution'
								elseif $ARGS[1] = 'unpaid':
									gs 'arousal', 'bj', 10
									gs 'arousal', 'mast', 10
								end
								minut -= 10
								gs 'stat'
								act 'Get cleaned up': gt 'pav_disco_sex', 'End'
							end
						end
					end
				end
			end
		end

		act 'Lie down on his bed':
			*clr & cla
			bmSEX[Tboynum] += 1
			hotel_sex = 0
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/fuck1.jpg"></center>'
			'After sucking his dick for a while, you stop, lie down on the bed and spread your legs. <<$npc_firstname[$npclastsaved]>> watches you like a hawk the whole time, taking his clothes off while doing so. You barely have your legs spread before he''s between them, already rubbing his slick cock along your pussy lips. He pushes forward gently, sliding his dick inside of your soaking pussy - he goes slow at first, but quickly picks up the pace and is soon pounding you balls deep.'
			if $ARGS[1] = 'paid': gs 'arousal', 'vaginal', 10, 'prostitution'
			if $ARGS[1] = 'unpaid': gs 'arousal', 'vaginal', 10
			gs 'dinSex', 'std_trigger'
			gs 'stat'
			if lose_virginity_event = 0:
				act 'Suck him off':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
					'"Let me suck you off, I want to taste myself on you," you tell him, not wanting him to cum inside you. He grins and pulls out of you, letting you slide off the bed onto your knees. You slide his dick as deeply down your throat as you can without gagging, sucking up every drop of pussy juice clinging to his cock and licking the occasional stray drop from his balls. You slip your free hand down between your legs and your fingers slide up into your well fucked pussy. You suck harder as your own arousal builds, flicking your clit every time he thrusts his cock down your throat.'
					if $ARGS[1] = 'paid':
						gs 'arousal', 'bj', 10, 'prostitution'
						gs 'arousal', 'mast', 10, 'prostitution'
					elseif $ARGS[1] = 'unpaid':
						gs 'arousal', 'bj', 10
						gs 'arousal', 'mast', 10
					end
					gs 'dinSex', 'std_trigger_oral'
					minut -= 10
					gs 'stat'

					act 'Swallow his load':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
						'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You keep watching him, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue before sliding down your throat. Spurt after spurt keeps filling your mouth.'
						'He cums so much that you feel like your mouth is about to overflow with it all, but swallowing as fast as you can, you manage to get it all down. As he pulls his dick from your mouth a strand of cum stretches from the tip of his cock back down to your lips. Smirking, he wipes his cock against your lips before tucking it back in his pants.'
						if $ARGS[1] = 'paid':
							gs 'arousal', 'bj', 10, 'prostitution'
							gs 'arousal', 'mast', 10, 'prostitution'
						elseif $ARGS[1] = 'unpaid':
							gs 'arousal', 'bj', 10
							gs 'arousal', 'mast', 10
						end
						minut -= 10
						gs 'stat'
						act 'Get cleaned up': gt 'pav_disco_sex', 'End'
					end

					act 'Let him cum on your face':
						*clr & cla
						spafinloc = 11
						gs 'cum_manage'
						
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
						'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
						'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
						if $ARGS[1] = 'paid':
							gs 'arousal', 'bj', 10, 'prostitution'
							gs 'arousal', 'mast', 10, 'prostitution'
						elseif $ARGS[1] = 'unpaid':
							gs 'arousal', 'bj', 10
							gs 'arousal', 'mast', 10
						end
						minut -= 10
						gs 'stat'
						act 'Get cleaned up': gt 'pav_disco_sex', 'End'
					end
				end
			end

			act 'Continue':
				*clr & cla
				bmSEX[Tboynum] += 1
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/fuck2.jpg"></center>'
				'After some time he pulls out of you. Before you can even ask why, he turns you on your side and slides his dick back into your wet pussy. He slides himself balls deep in you again and starts fucking you, his thighs pounding against your ass cheeks.'
				'He seems to be really getting into it, his movements are almost frenzied in their pace as he leans forward towards you and says "I want to fuck your ass."'
				if $ARGS[1] = 'paid': gs 'arousal', 'vaginal', 10, 'prostitution'
				if $ARGS[1] = 'unpaid': gs 'arousal', 'vaginal', 10
				gs 'dinSex', 'std_trigger'
				gs 'stat'

				act 'Suck him off':
					*clr & cla
					lose_virginity_event = 0
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
					'"Let me suck you off, I want to taste myself on you," you tell him, not wanting him to cum inside you. He grins and pulls out of you, letting you slide off the bed onto your knees. You slide his dick as deeply down your throat as you can without gagging, sucking up every drop of pussy juice clinging to his cock and licking the occasional stray drop from his balls. You slip your free hand down between your legs and your fingers slide up into your well fucked pussy. You suck harder as your own arousal builds, flicking your clit every time he thrusts his cock down your throat.'
					if $ARGS[1] = 'paid':
						gs 'arousal', 'bj', 10, 'prostitution'
						gs 'arousal', 'mast', 10, 'prostitution'
					elseif $ARGS[1] = 'unpaid':
						gs 'arousal', 'bj', 10
						gs 'arousal', 'mast', 10
					end
					gs 'dinSex', 'std_trigger_oral'
					minut -= 10
					gs 'stat'

					act 'Swallow his load':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/bj2.jpg"></center>'
						'You keep sucking his dick for a while longer before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You keep watching him, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue before sliding down your throat. Spray after spray keeps filling your mouth.'
						'He cums so much that you feel like your mouth is about to overflow with it all, but swallowing as fast as you can, you manage to get it all down. As he pulls his dick from your mouth a strand of cum stretches from the tip of his cock back down to your lips. Smirking, he wipes his cock against your lips before tucking it back in his pants.'
						if $ARGS[1] = 'paid':
							gs 'arousal', 'bj', 10, 'prostitution'
							gs 'arousal', 'mast', 10, 'prostitution'
						elseif $ARGS[1] = 'unpaid':
							gs 'arousal', 'bj', 10
							gs 'arousal', 'mast', 10
						end
						minut -= 10
						gs 'stat'
						act 'Get cleaned up': gt 'pav_disco_sex', 'End'
					end

					act 'Let him cum on your face':
						*clr & cla
						spafinloc = 11
						gs 'cum_manage'
						
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
						'You keep sucking his dick for a while longer, before his breathing starts to quicken and you hear him making soft grunts. Looking up at him with your lips clasped around his member, you can see his eyes are closed in pleasure. You watch him closely, sucking harder and speeding up, making him twitch and moan before you suddenly feel a hot jet of liquid coat your tongue.'
						'You quickly pull back, letting his member pop out of your mouth and smile up at him happily when you feel another jet of sperm immediately land on your forehead. You close your eyes in pleasure and let him cover the rest of your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
						if $ARGS[1] = 'paid':
							gs 'arousal', 'bj', 10, 'prostitution'
							gs 'arousal', 'mast', 10, 'prostitution'
						elseif $ARGS[1] = 'unpaid':
							gs 'arousal', 'bj', 10
							gs 'arousal', 'mast', 10
						end
						minut -= 10
						gs 'stat'
						act 'Get cleaned up': gt 'pav_disco_sex', 'End'
					end
				end

				if lose_virginity_event = 0:
					act 'Let him fuck your ass':
						*clr & cla
						bmANAL[Tboynum] += 1
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/anal1.jpg"></center>'
						'You nod your head and roll over onto your back before pulling your knees up to your breasts. You reach down with one hand and pull one of your ass cheeks aside.'
						gs 'arousal', 'auto_lube', 'anal'
						'He takes the hint and push the head of his dick against your asshole. It soon pops into your ass and he pauses for a moment to let you adjust before he starts slowly fucking you. He slowly but steadily works his dick deeper in your ass while slowly picking up speed.'
						if $ARGS[1] = 'paid': gs 'arousal', 'anal', 10, 'prostitution'
						if $ARGS[1] = 'unpaid': gs 'arousal', 'anal', 10
						gs 'dinSex', 'std_trigger'
						gs 'stat'

						act 'Finish him off':
							*clr & cla
							spafinloc = 11
							gs 'cum_manage'
							
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
							'After he fucks your ass for a while, you look him in the eyes and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
							if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
							if $ARGS[1] = 'unpaid': gs 'arousal', 'hj', 10
							gs 'stat'
							act 'Get cleaned up': gt 'pav_disco_sex', 'End'
						end

						act 'Continue':
							*clr & cla
							spafinloc = 3
							gs 'cum_manage'
							bmANAL[Tboynum] += 1
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/anal2.jpg"></center>'
							'Since you are on your back, you are a bit lower than what would be ideal and <<$npc_firstname[$npclastsaved]>> is having trouble getting enough leverage to fuck your ass with as much force as he''d like, so he pulls his cock out of your hole and flips you over. You get yourself up on your hands and knees as he pulls your hips back towards him and within seconds, you feel him thrust his cock balls deep back up your ass. He grabs hold of your hips and starts pounding your asshole as hard as he can, his balls slapping against your clit with every thrust, the sound of slapping flesh getting louder as his hips join in, smacking against your ass. You feel him begin to cum in your ass, but he''s not done with you yet.'
							if $ARGS[1] = 'paid': gs 'arousal', 'anal', 10, 'prostitution'
							if $ARGS[1] = 'unpaid': gs 'arousal', 'anal', 10
							gs 'stat'

							act 'Finish him off':
								*clr & cla
								spafinloc = 11
								gs 'cum_manage'
								
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/messyfacial.jpg"></center>'
								'After he fucks your ass for a while, you turn to look over your shoulder and say "I want you to cum on my face." He grins and pulls his dick out of your hole before you slide off the bed and onto your knees. Not wasting any time, you start jerking him off and within seconds his load bursts out. You smile up at him happily, eyes closed as the first jet of sperm lands on your forehead. It takes a surprisingly long time for him to cover your face with his load, which <<$npc_firstname[$npclastsaved]>> does with great enthusiasm.'
								if $ARGS[1] = 'paid': gs 'arousal', 'hj', 10, 'prostitution'
								if $ARGS[1] = 'unpaid': gs 'arousal', 'hj', 10
								gs 'stat'
								act 'Get cleaned up': gt 'pav_disco_sex', 'End'
							end
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'End':
	cls
	minut += 15
	gs 'stat'
	'<center><video autoplay loop src="images/pc/activities/misc/dress_2.mp4"></video></center>'
	'After the two of you relax for a while, you smile at <<$npc_firstname[$npclastsaved]>> and say "That was fun, but I really should get going..."'
	'<<$npc_firstname[$npclastsaved]>> stretches lazily on the bed, not bothering to get up. "You were great, <<$pcs_nickname>>! I hope I''ll run into you again next time I''m in Pavlovsk!"'
	if arrpos('sparrloc', 11) ! -1 and sparrvol > 0:cumspclnt = 12 & gs 'cum_cleanup' & 'You look around the room and find a packet of wipes. You take one and quickly wipe the sperm off your face to make yourself presentable enough to go outside.'
	gs 'arousal', 'end'
	gs 'stat'
	act 'Leave the hotel': gt 'pav_market'
end

if $ARGS[0] = 'drug_user':
	*clr & cla
	BeInOtel += 1
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/otel.jpg"></center>'
	'<<$npc_firstname[$npclastsaved]>> actually has a fairly nice room. He tells you to have a seat on the bed while he starts searching for something. "Where did I put it?"'
	'His face lights up when he finds what he''s looking for. He quickly takes a seat by the table and gestures for you to come you over.'
	'You get up and curiously walk over to the table. <<$npc_firstname[$npclastsaved]>>''s spread some powder on the table and he''s working hard to split it up into equal lines. "It''s your lucky day <<$pcs_nickname>>, you''ll have the time of your life with this stuff. Everything you do just becomes so much better when you add this to the mix."'
	'You hesitantly back up a little. "I-I don''t know... I mean I don''t even know you and who knows what might be in that bag."'
	'He turns to you and smirks. "You followed me back here, right? Listen, believe me when I tell you that this stuff is the best that you''ll ever get your hands on. A friend of mine hooked me up - he gets it from this guy in the city that really knows his stuff."'
	gs 'willpower', 'drugs', 'resist'
	if will_cost <= pcs_willpwr:
		act 'Refuse (<<will_cost>> Willpower)':
			gs 'willpower', 'drugs', 'resist'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			gt 'pav_disco_sex', 'no drugs'
		end
	else
		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	act 'Try some': gt 'pav_disco_sex', 'drugs'
end

if $ARGS[0] = 'drugs':
	*clr & cla
	if SNarkPriton = 0: SNarkPriton = 1
	dur += 1
	gs 'drugs', 'cocaine'
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/snort1.jpg"></center>'
	'He''s planted a small nagging seed in your thoughts and now you''re too curious to refuse. You give him a nod and walk closer.'
	'He cuts up a line and tells you to close one of your nostrils with a finger while you snort it in with the other, using a rolled up Rubel.'
	'You hunch over the powder, line yourself and snort it. The tingling and dry itching sensation is almost too much and you suddenly feel like your nostril is on fire.'
	'You don''t really feel anything different for a while. "I think you got scammed with this stuff, I don''t feel a thing... " you complain, feeling a little disappointed. You then suddenly feel your heartbeat speeding up, your nipples getting hard and your pussy getting wet, in fact it feels like your pussy is wetter than it has ever been and you''re feeling extremely horny. You desperately want, no... you <b>need</b> to fuck something, as soon as you can.'
	'<<$npc_firstname[$npclastsaved]>> looks at you and smirks as he notices the powder kicking in. "Feels great, right? Ready for some real fun?"'

	act 'Nod':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/hotel1.jpg"></center>'
		'You can barely contain how eager you are and you''re getting more excited by the seccond. By now you can feel the wet spot in your panties forming and you''re longing after his cock as your pussy just screams to be filled.'
		'<<$npc_firstname[$npclastsaved]>> gets up from the chair and stands behind you. He starts roughly pawing at your breasts through the fabric - even his hamfisted groping is turning you on.'
		'The two of you start making out and you let out a little moan when <<$npc_firstname[$npclastsaved]>> starts stroking your thighs.'
		'Before you know it you''ve been stripped down to your underwear while <<$npc_firstname[$npclastsaved]>> is squeezing your breasts. He gives you a few more kisses and hooks one finger into your panties before looking at you. "Time for some pleasure."'
		$orgasm_or = 'no'
		gs 'arousal', 'foreplay', 5
		gs 'stat'

		act 'Follow him':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/hotel2.jpg"></center>'
			'Giddy with excitement, you eagerly remove your underwear and let <<$npc_firstname[$npclastsaved]>> lead you over to a grand mirror, where he drops down to his knees, spreads your legs wide and shoves his face into your crotch, wildly licking your sopping wet pussy.'
			'You can feel your pussy pulsing as he eats you eat out, your rampant arousal completely overwhelming you.'
			'Before long, you start shuddering in pleasure and within seconds, you begin rolling your hips as the pleasure is too much for you to handle. You let out a loud sigh, grab him by the hair and clench his head between your thighs as you orgasm wildly, your knees turning to jelly from the sweet satisfaction.'
			$orgasm_or = 'yes'
			gs 'arousal', 'cuni', 5
			gs 'stat'

			act 'Not done yet':
				*clr & cla
				pcs_horny += 50
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/hotel3.jpg"></center>'
				'Just as you''re about to drift away and savor the amazing orgasm you just had, <<$npc_firstname[$npclastsaved]>> grabs and tugs you over to the couch. Your legs are weak and you barely manage to walk.'
				'<<$npc_firstname[$npclastsaved]>> lays you down and smiles. "It''s your lucky day. That was so hot that there''s no way I can fuck you right now. I''m way too horny and if I do, I''ll cum as soon as I stick my dick in you. So you just spread your beautiful legs again and let me have another taste."'
				'<<$npc_firstname[$npclastsaved]>> lowers his head and begins sucking on your super sensitive clit. While he''s doing that, he moves his hand down between your ass cheeks and starts playing with your asshole, rubbing and massaging it lightly. You try to push his hand away, but he just tells you to relax.'
				'He starts sucking your clit harder, his tongue flicking over it as he continues massaging your ass with his thumb. Just as you''re about to cum again he stops, making you sigh in frustrated disappointment.'
				gs 'arousal', 'cuni', 5
				gs 'stat'

				act 'Lick his cock':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/hotel4.jpg"></center>'
					'"Now now don''t be like that <<$pcs_firstname>>, it''s time for you to return the favor." he says as he places himself in front of you with his cock hanging out freely.'
					'You excitedly switch positions with him and you grab his cock with your hand. "Go on, you can play with it." he says with a smirk.'
					'You eagerly stick out your tongue and start licking his cock, rolling your tongue around the head. You can feel it growing bigger and harder in your hands as you continue teasing him.'
					gs 'arousal', 'bj', 5
					gs 'stat'

					act 'Suck his cock':
						*clr & cla
						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/hotel5.jpg"></center>'
						'You take his cock into your mouth, wrapping your lips around it as you put one hand around the base and the other softly cupping his balls in your palm.'
						'You immediately start sucking his dick, bobbing your head up and down his shaft quite roughly as your arousal takes over your actions. <<$npc_firstname[$npclastsaved]>>''s breathing starts getting faster and heavier. He tries to stop you, telling you to slow down and lick his shaft instead.'
						'You ignore him and start playing with his balls as well. After teasing him for a while, he makes you stop and says that he wants to fuck your ass.'
						'Even feeling as horny as you are, you''re a little hesitant at the suggestion, but he quickly reassures you that having anal sex while high is an amazing feeling.'
						'You nod and take his cock back in your mouth, taking it deep and lubing it up as much as you can.'
						anal_slip += 4
						gs 'arousal', 'bj', 5
						gs 'dinSex', 'std_trigger_oral'
						gs 'stat'

						act 'Doggy':
							*clr & cla
							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/hotel6.jpg"></center>'
							'<<$npc_firstname[$npclastsaved]>> makes you turn around with your ass towards him and gets into position behind you. He lines his cock up with your asshole and then with one smooth and steady motion, he slowly eases his cock into your back door. You panic aas he begins to work his way into you, stretching you wider than you thought possible.'
							'You manage to calm down a little, loosening your hole and allowing <<$npc_firstname[$npclastsaved]>> to move a bit faster. Seeing his chance, he grabs you by the hips and pushes himself balls deep into your ass. He slowly starts building up speed and you feel your arousal building as you let yourself go and enjoy the feeling. You start pushing back against him, meeting him thrust for thrust and moaning loudly. "Harder, harder!" you moan and he grabs your shoulders, letting you slam yourself back onto his cock.'
							'You feel another orgasm building, but this one is different. It feels like it''s coming from deeper inside you. "Harder! I''m almost there, make me cum again!" you scream as his thrusting starts getting more frantic.'
							'<<$npc_firstname[$npclastsaved]>> speeds up his movements as you start shaking and shivering as your orgasm hits, spraying girlcum all over the cover of the bed as you pant hard.'
							$orgasm_or = 'yes'
							gs 'arousal', 'anal', 5
							gs 'dinSex', 'std_trigger'
							gs 'stat'

							act 'Finish':
								*clr & cla
								'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/hotel7.jpg"></center>'
								'You barely know what''s happening as <<$npc_firstname[$npclastsaved]>> pulls out of you, pulls you up onto your knees and starts jerking off in front of you, your head still fuzzy from your orgasm. It doesn''t take long before he shoots his load over your face and breasts.'
								'You try to swallow some as it hits around your mouth, but you''re still so dazed by your orgasm you don''t really know what you''re doing. "I told you sex is so much better with drugs." you faintly hear him saying.'
								'Even after that amazing sex and multiple orgasms, you somehow still feel unsatisfied and in need of more. You think about it for a moment and decide to ask. "If I wanted to get some of those drugs myself, who would I talk to?" He smiles and tells you that the dealer lives in a run down area of the city residential area and gives you his name. You thank him for the information and get cleaned up before heading out the door. As you walk down the hall, the urgent need to be filled by a cock returns and you feel incredibly horny again already.'
								gs 'arousal', 'foreplay', 5
								gs 'arousal', 'end'
								pcs_horny += 100
								gs 'stat'
								act 'Leave the room': gt 'pav_market'
							end
						end
					end
				end
			end
		end
	end

	gs 'willpower', 'anal', 'resist', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Refuse (<<will_cost>> Willpower)':
			*clr & cla
			gs 'willpower', 'anal', 'resist', 'hard'
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/leave.jpg"></center>'
			'Even though you''ve never felt this aroused, you feel that you made a mistake and need to leave before it''s too late for you to resist him.'
			'You try to excuse yourself, saying that it wasn''t your intention to lead him on...'
			'<<$npc_firstname[$npclastsaved]>> stops for a moment and you notice that he''s clearly affected by the drugs. His eyes flare up as he leaps from the chair, shouting that you''re just some whore that was after his drugs.'
			'He grabs hold of you and shoves you over to the door, throwing you outside. You stand in shock as the drugs take hold of you and you feel yourself becoming incredibly aroused. You knock on the door, but <<$npc_firstname[$npclastsaved]>> refuses to open it. You decide to leave... maybe you''ll get lucky somewhere else.'
			act 'Leave the hotel': gt 'pav_market'
		end
	else
		act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if $ARGS[0] = 'no drugs':
	*clr & cla
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/hotel/leave.jpg"></center>'
	'"There''s no way I''m doing that! Who knows what that powder is and I don''t want to get raped. Have fun, loser."'
	'<<$npc_firstname[$npclastsaved]>> snorts deeply and looks over at you. "Too bad, you''ll be missing out on a great party. This is some quality stuff..."'
	'"I think I''ll be fine, thanks." you retort as you leave the room. <<$npc_firstname[$npclastsaved]>> just shrugs his shoulders and jumps straight back into what he started.'
	act 'Leave the room': gt 'pav_market'
end

--- pav_disco_sex ---------------------------------