glife/locations/sex_ev_foreplay.qsrc

# sex_ev_foreplay
!! ------------------------- Generic Sex Event Foreplay -----------------------

if $ARGS[0] = 'undress':
	cla & *clr
	if CloDress = 1:sex_ev['CloDress'] = 1
	if $clothingworntype ! 'nude':gs 'clothing', 'strip'
	if $braworntype ! 'none':gs 'bras', 'remove'
	if $pantyworntype ! 'none':gs 'panties', 'remove'
	gs 'arousal', 'foreplay', 2
	gs 'arousal', 'foreplay_give', -2
	gs'stat'
	'<center><video autoplay loop src="images/shared/sex/misc/undress1.mp4"></video></center>'
	!! initiative call
	'You tear each other''s clothes off, leaving a trail of discarded fabrics leading to the bed.'
	gs 'sex_ev_foreplay', 'bed_start'
end

if $ARGS[0] = 'bed_start':
	sex_ev['start_time'] = totminut
	!! $sex_ev['bed_room']
	if rand(0,1) = 1:
		!! he wins initiative
		if npc_caretaker[$boy] = 1 or npc_pussyeater[$boy] = 1:
			gs 'sex_ev_foreplay', 'generous_initiative'
		elseif npc_selfish[$boy] = 1:
			gs 'sex_ev_foreplay', 'selfish_initiative'
		else
			if rand(0,1) = 1:
				gs 'sex_ev_foreplay', 'generous_initiative'
			else
				gs 'sex_ev_foreplay', 'selfish_initiative'
			end
		end
	else
		!! player wins initiative
!!		'You both tear your clothes off, getting naked as fast as possible, you finishing just before he does. You take the extra moment to decide what you want to do...'
		gs 'sex_ev_foreplay', 'foreplay_choose'
	end
end

!! --------------------- Boy''s choices ----------------------------------------------------------------------

if $ARGS[0] = 'generous_initiative':
	*nl
	!! cunnilingus or nipple play
	if (rand(0,1) = 1 or npc_pussyeater[$boy] = 1) and sex_ev['sensitive_cuni'] ! 1:
		!! cunnilingus
		if sex_ev['start_shower'] = 1:
			'<<$npc_firstname[$boy]>> drags you back into the bedroom, your hair still wet from the shower, and shoves you backwards onto the bed kneeling between your legs.'
		else
			'<<$npc_firstname[$boy]>> shoves you backwards onto onto the bed begins laying a trail of kisses, heading down between your legs.'
		end
		gs 'sex_ev_foreplay', 'kuni_start'
	else
		!! nipple play
		if sex_ev['start_shower'] = 1:
			'<<$npc_firstname[$boy]>> drags you back into the bedroom and shoves you backwards onto onto the bed, starting a trail of kisses up your wet stomach, towards your breasts.'
		else
			'<<$npc_firstname[$boy]>> shoves you backwards onto onto the bed and begins leaving a new trail of kisses up your stomach, towards your breasts.'
		end
		act'Continue':gs 'sex_ev_foreplay', 'nipple_play'
	end
end

if $ARGS[0] = 'selfish_initiative':
	if rand(1,2) = 1:
		gs 'sex_ev_foreplay', 'selfish_bj_start'
	else
		gs 'sex_ev_foreplay', 'selfish_fuck_start'
	end
end

if $ARGS[0] = 'selfish_bj_start':
	'<<$npc_firstname[$boy]>> pulls you towards him and pushes you to your knees in the same motion, dangling his cock in front of your face. It''s pretty obvious what he wants right now...'
	act'Don''t wanna suck cock':
		cla & *clr
		$sex_ev['bed_room']
		'"I don''t really want to suck your dick right now," you complain. "Can we do something else?"'
		if npc_selfish[$boy] = 1 or rand(0,1) = 1:
			if rand(0,1) = 1:
				'"Come on <<$pcs_nickname>>." He prods forward relentlessly with his cock, poking you in the cheek with it, trying to push it past your lips. "Just do it."'
			else
				'"Come on, please?" he asks. "I''d really appreciate it."'
			end

			act'Blow him reluctantly (submissive)':
				cla & *nl
				sex_ev['reluctant_bj'] = 1
				'"Uh... Uhm... Okay I guess..." you mumble as he slips his cock past your lips. You''re not really happy with this, but you don''t really know how to say no to his request.'
				act'Suck':gt 'sex_ev_foreplay', 'bj_sub1'
			end

			act'Blow him reluctantly (grumble)':
				cla & *nl
				sex_ev['reluctant_bj'] = 1
				'"<i>Ugh!</i> Fiiiine," you grumble, leaning forward to take his dick in your mouth.'
				act'Suck':gt 'sex_ev_foreplay', 'bj_sub1'
			end

			act'Blow him':gt 'sex_ev_foreplay', 'bj_sub1'

			gs 'willpower', 'bj', 'resist'
			if will_cost <= pcs_willpwr:
				act'How about a handy instead? (<<will_cost>> Willpower)':
					gs 'willpower', 'bj', 'resist'
					gs 'willpower', 'pay', 'self'
					gs 'stat'
					cla & *nl
					'"Seriously <<$npc_firstname[$boy]>>, I don''t feel like it today. Can I give you a handy instead?" you ask looking up at him, gently tugging on his cock already. "Please?"'
					'"Oh alright," he sighs. "That''s fine I guess."'
					act'Jerk him off':cla & gs 'sex_ev_foreplay', 'handjob_dom1'
				end
			else
				act'How about a handy instead? (<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', 'easy'

	!!{		if will_cost <= pcs_willpwr:
				act'Can we 69?  (<<will_cost>> Willpower)':
					cla & *nl
					gs 'willpower', 'pay', 'self'
					gs 'stat'
					'"How about we sixty-nine instead?" you ask. "I could use some loving down there myself right now..."'
					'"I can get behind that," he grins, laying back.'
					act'Climb over him':gs 'sex_ev_foreplay', '69_sub'
				end
			else
				act'Can we 69? (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end}
		else
			'"Okay, like what then?" he asks.'
			gs 'sex_ev_foreplay', 'foreplay_choose'
			if sex_ev['fuck_count'] > 0:
				act'Back to sex':cla & gs'sex_ev_sex', 'position_change' & gs 'sex_ev_condoms', 'condoms'
			else
				gs'sex_ev_sex', 'sex_start'
			end
		end
	end
	
	act'Blow him':gt 'sex_ev_foreplay', 'bj_sub1'
end

if $ARGS[0] = 'selfish_fuck_start':
	gs 'sex_ev_condoms', 'setup'
	sex_ev['position_rand'] = rand(1,3)
	sex_ev['must_fuck'] = 1
	gs 'sex_ev_sex', 'speed_select'
	cla & *clr
	if npc_bareback[$boy] > 0 or sex_ev['no_condom'] = 1 or (npc_condom_conscious[$boy] = 0 and rand(1,2) = 1):
		if $npc_fav_pos[$boy] = 'miss' or sex_ev['position_rand'] = 1:
			$sex_ev['position'] = 'miss'
			'<center><img <<$set_imgh>> src="images/shared/sex/foreplay/miss3.jpg"></center>'
			'<<$npc_firstname[$boy]>> pushes you down on the bed and spreads your legs, preparing to thrust between them.'
			if stat['think_virgin'] = 1 and sex_ev['fuck_count'] = 0:
				act'Stop him (virgin)':$sex_ev['position'] = 'miss' & gt'sex_ev_virgin', 'lover_wait'
				act'Let him take your virginity':gs'sex_ev_virgin', 'start3'
			else
				act'Let <<$npc_firstname[$boy]>> fuck you':gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''position'']>>_goto'
			end
			gs 'sex_ev_condoms', 'condom_wait'
		elseif stat['think_virgin'] = 0 or sex_ev['fuck_count'] > 0:
			if $npc_fav_pos[$boy] = 'doggy' or sex_ev['position_rand'] = 2:
				$sex_ev['position'] = 'doggy'
				'<center><img <<$set_imgh>> src="images/shared/sex/foreplay/doggy1.jpg"></center>'
				'<<$npc_firstname[$boy]>> pushes you down on the bed and draws you up to your knees, preparing to thrust into you from behind.'
			elseif $npc_fav_pos[$boy] = 'cowgirl' or sex_ev['position_rand'] = 3:
				$sex_ev['position'] = 'cowgirl'
				'<center><img <<$set_imgh>> src="images/shared/sex/foreplay/cowgirl1.jpg"></center>'
				'<<$npc_firstname[$boy]>> drags you down on the bed with him, pulling you up so you''re straddling him to ride his cock.'
			end
			act'Let <<$npc_firstname[$boy]>> fuck you':gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''position'']>>_goto'
			gs 'sex_ev_condoms', 'condom_wait'
		else
			gs 'sex_ev_sex', 'rand_position'
			gs 'sex_ev_foreplay', 'selfish_fuck_start'
		end
	else
		if npc_condom_conscious[$boy] > 0 or (sex_ev['condom_count'] > 0 and (rand(0,1) = 1 or npc_always_condoms[$boy] = 1)):
			'<center><img <<$set_imgh>> src="images/shared/sex/cock/condom1.jpg"></center>'
			if $npc_fav_pos[$boy] = 'miss' or sex_ev['position_rand'] = 1:
				$sex_ev['position'] = 'miss'
				'<<$npc_firstname[$boy]>> pushes you down on the bed and spreads your legs, pausing only to grab a condom and roll it onto his cock.'
				if stat['think_virgin'] = 1 and sex_ev['fuck_count'] = 0:
					act'Stop him (virgin)':$sex_ev['position'] = 'miss' & gt'sex_ev_virgin', 'lover_wait'
					act'Let him take your virginity':gs'sex_ev_virgin', 'start3'
				else
					act'Let <<$npc_firstname[$boy]>> fuck you':gs 'sex_ev_condoms', 'npc_condom_use_stats' & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''position'']>>_goto'
				end
				gs 'sex_ev_condoms', 'temp_disable_condoms'
				if $sex_ev['type'] ! 'hookup': gs 'sex_ev_condoms', 'disable_condoms'
			elseif stat['think_virgin'] = 0 or sex_ev['fuck_count'] > 0:
				if $npc_fav_pos[$boy] = 'doggy' or sex_ev['position_rand'] = 2:
					$sex_ev['position'] = 'doggy'
					'<<$npc_firstname[$boy]>> pushes you down on the bed and draws you up to your knees, preparing to thrust into you from behind.'
				elseif $npc_fav_pos[$boy] = 'cowgirl' or sex_ev['position_rand'] = 3:
					$sex_ev['position'] = 'cowgirl'
					'<<$npc_firstname[$boy]>> drags you down on the bed with him, pulling you up so you''re straddling him to ride his cock.'
				end
				'"I''m going to fuck you silly," he growls as he tears open a condom and starts rolling it onto his cock.'
				act'Let <<$npc_firstname[$boy]>> fuck you':gs 'sex_ev_condoms', 'npc_condom_use_stats' & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''position'']>>_goto'
				gs 'sex_ev_condoms', 'temp_disable_condoms'
			else
				gs 'sex_ev_sex', 'rand_position'
				gs 'sex_ev_foreplay', 'selfish_fuck_start'
			end
		else
			gs 'sex_ev_sex', 'rand_position'
			gs 'sex_ev_foreplay', 'selfish_fuck_start'
		end
	end
end

!! --------------------- generous stuff ---------------------------------------------------

if $ARGS[0] = 'kuni_ask':
	act'Ask him to eat you out':
		cla & *nl
		'"Do you think you could give me some TLC?" you ask. "A little tongue action?"'
		if npc_pussyeater[$boy] = 1:
			'"Be careful what you ask for," <<$npc_firstname[$boy]>> grins, quickly settling between your thighs.'
		else
			'"I guess I could," <<$npc_firstname[$boy]>> says, moving down between your thighs.'
		end
		act'Get eaten out':gs 'sex_ev_foreplay', 'pussy_lick'
	end
end

if $ARGS[0] = 'kuni_start':
	act'Spread them for him':
		cla & *nl
		!! IMAGE HERE
		sex_ev['kuni'] = 1
		if kuni_no[$boy] = 1:
			kuni_yes[$boy] = 1 & kuni_no[$boy] = 0
			'Realizing what he wants, you realize that you want it too and spread your legs, inviting him in. Despite initiating it, he seems surprised that you''re actually letting him.'
			'"You finally trust me enough to let me eat you out?"'
			'"Yeah," you smile. "Come and get it."'
			'He settles down between your legs and dives in.'
			act'Get eaten out':gs 'sex_ev_foreplay', 'pussy_lick'
		elseif mesec > 0 and npc_pussyeater_know[$boy] = 1:
			'"Just warning you, I''m on my period," you say, spreading your legs and showing him your bleeding snatch.'
			'"I don''t mind."'
			'"I know, just wanted to let you get ready for the taste," you grin.'
			act'Get eaten out':gs 'sex_ev_foreplay', 'period_lick'
		elseif mesec > 0:
			'"I''m on my period. You may not want to go down on me right now," you say, spreading your legs and showing him your bleeding snatch.'
			if npc_pussyeater[$boy] = 1:
				npc_pussyeater_know[$boy] = 1
				'"I don''t mind," he says and you gasp when you feel his tongue on your clit.'
				act'Get eaten out':gs 'sex_ev_foreplay', 'period_lick'
			else
				'"Oh. Maybe not then. How about this insted?"'
				'<<$npc_firstname[$boy]>> climbs up in front of you, bending his head towards your breasts.'
				act'Continue':gs 'sex_ev_foreplay', 'nipple_play'
			end
		else
			'Moments later, you feel his tongue on your clit.'
			act'Get eaten out':gs 'sex_ev_foreplay', 'pussy_lick'
		end
	end

	if kuni_yes[$boy] < 1:
		act'Close your legs ':
			cla & *clr
			$sex_ev['bed_room']
			if kuni_no[$boy] = 0:
				'"Woah!" you say with wide eyes, snapping your legs closed.'
				'"What?" <<$npc_firstname[$boy]>> looks up at you confused.'
				act'Too personal':
					cla & *nl
					kuni_no[$boy] = 1
					sex_ev['kuni_no'] = 1
					gs 'sex_ev_foreplay_desc', 'kuni_deny1'
					'"Oh. Well..."'
					gs 'sex_ev_foreplay', 'cuni_alternatives'
				end
				
				if sex_ev['cuni_orgasm'] >= 3:
					act'Too sensitive':
						cla & *nl
						sex_ev['sensitive_cuni'] = 1
						'"You''ve eaten me out too many times today already," you say with a wry smile. "My pussy is too sensitive to let you down there again."'
						'"Oh. Well..." <<$npc_firstname[$boy]>> smirks back at you smugly.'
						gs 'sex_ev_foreplay', 'cuni_alternatives'
					end
				end
			elseif kuni_no[$boy] = 1:
				gs 'sex_ev_foreplay_desc', 'kuni_deny2'
				gs 'sex_ev_foreplay', 'cuni_alternatives'
			end
		end
	end
end

if $ARGS[0] = 'cuni_alternatives':
	if npc_no_kiss[$boy] ! 1:
		act'We could just make out?':
			cla & *nl
			'"Can we just... make out?" you ask.'
			'"That sounds good," he smiles back.'
			gs 'sex_ev_foreplay', 'makeout_dom1'
		end
	end
	act'You could play with my tits?':
		cla & *nl
		'"You could play with my tits instead?" you say.'
		'"That sounds like fun," he smiles back.'
		act'Continue':gt 'sex_ev_foreplay', 'nipple_play'
	end
	act'I could suck your cock?':
		cla & *nl
		'"Maybe... I could suck your cock instead?" you say, a mischievous smirk on your face.'
		'"That could be nice," he smiles, leaning back.'
		gs 'sex_ev_foreplay', 'bj_dom1'
	end
	if stat['think_virgin'] = 1 and sex_ev['fuck_count'] = 0:
		act'You can take my virginity':gt'sex_ev_virgin', 'start2'
	elseif sex_ev['fuck_count'] = 0:
		act'We could just skip to fucking?':
			cla & *nl
			'"We could just get right to fucking?"'
			'"That sounds good."'
			sex_ev['position_choose'] = 1
			gs 'sex_ev_condoms', 'condoms'
			gs 'sex_ev_sex', 'position_change'
		end
	else
		act'We could fuck again?':
			cla & *nl
			'"How about you just fuck me again?" you ask'
			'"That sounds good."'
			sex_ev['position_choose'] = 1
			gs 'sex_ev_condoms', 'condoms'
			gs 'sex_ev_sex', 'position_change'
		end
	end
end

if $ARGS[0] = 'period_lick':
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/kuni/pussylick4.mp4"></video></center>'
	gs 'arousal', 'cuni',rand(5,10),'no_orgasm_msg'
	gs 'arousal', 'cuni',-10,'no_orgasm_msg'
	gs 'stat'
	$sex_ev['position'] = 'kuni'
	'You lay back on the bed, letting your eyes roll back in your skull. Blood and pussy juice flow like water from your cunt and <<$npc_firstname[$boy]>> laps it up like ambrosia. It feels <i>so</i> good and you relax while he goes to work on you down there.'
	if sex_ev['orgasm'] < orgasm:
		act'Orgasm':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/kuni/pussylickorgasm2.mp4"></video></center>'
			sex_ev['orgasm_count'] += 1
			sex_ev['orgasm'] = orgasm
			'It doesn''t take long before you''re buckling under <<$npc_firstname[$boy]>>''s tongue, squirming in orgasm as he continues teasing, sucking, playing with your clit. You groan a loud ragged breath as you come hard beneath his touch.'
			*nl
			if npc_pussyeater[$boy] = 1:
				gs 'sex_ev_foreplay', 'pussy_lick_loop'
			else
				if rand(0,1) = 1:
					gs'sex_ev_foreplay', 'transition1'
!!				elseif sex_ev['cum_count'] = 0:
!!					gs'sex_ev_foreplay', 'transition2'
				else
					gs 'sex_ev_sex', 'sex_end'
				end
			end
		end
	else
		act'Don''t stop!':
			$orgasm_or = 'yes'
			gs 'arousal', 'cuni',rand(1,2),'no_orgasm_msg'
			gs'stat'
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/kuni/pussylickorgasm2.mp4"></video></center>'
			'"Don''t stop!" you cry.'
			'You''re so close~! You''re right there~! Any second now~!'
			'"Don''t stop! Don''t stop! Don''t stop! Don''t stop! Don''t-!"'
			'<i>There!</i>'
			*nl
			'You let out an explosive groan as your orgasm smashes through you. Your body is so tight, you can''t even find the strength in you to fill your lungs, clenching your teeth and forced to hold your breath until your climax has finished its crescendo.'
			*nl
			if npc_pussyeater[$boy] = 1:
				gs 'sex_ev_foreplay', 'pussy_lick_loop'
			else
				if rand(0,1) = 1:
					gs'sex_ev_foreplay', 'transition1'
!!				elseif sex_ev['cum_count'] = 0:
!!					gs'sex_ev_foreplay', 'transition2'
				else
					gs 'sex_ev_sex', 'sex_end'
				end
			end
		end
		gs 'sex_ev_sex', 'sex_start'
	end
end

if $ARGS[0] = 'pussy_lick':
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/kuni/pussylick4.mp4"></video></center>'
	gs 'arousal', 'cuni',rand(5,10),'no_orgasm_msg'
	gs 'stat'
	$sex_ev['position'] = 'kuni'
	sex_ev['cuni_count'] += 1
	if cum_loc['vagina'] > 0:
		sex_ev['creampie_eat'] += 1
		cumspclnt = 0
		gs 'cum_cleanup'
		'You lay back on the bed, closing your eyes, letting them roll back in your skull, and focus on the sensation of <<$npc_firstname[$boy]>>''s tongue exploring your pussy. It playfully flicks across your clit, making you squirm. It runs up the lips of your snatch and you can feel <<$npc_firstname[$boy]>> slurping up the load he deposited inside you, sending shivers through your spine. Every once in a while, he licks the side of your thigh, prompting ticklish giggles. It feels <i>so</i> good and you relax while he goes to work on you down there.'
	else
		'You lay back on the bed, closing your eyes, letting them roll back in your skull, and focus on the sensation of <<$npc_firstname[$boy]>>''s tongue exploring your pussy. It playfully flicks across your clit, making you squirm. It runs up the lips of your snatch, sending shivers through your spine. Every once in a while, he licks the side of your thigh, prompting ticklish giggles. It feels <i>so</i> good and you relax while he goes to work on you down there.'
	end
	if sex_ev['orgasm'] < orgasm:
		act'Orgasm':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/kuni/pussylickorgasm2.mp4"></video></center>'
			sex_ev['orgasm_count'] += 1
			sex_ev['cuni_orgasm'] += 1
			sex_ev['orgasm'] = orgasm
			'It doesn''t take long before you''re buckling under <<$npc_firstname[$boy]>>''s tongue, squirming in orgasm as he continues teasing, sucking, playing with your clit. You groan a loud ragged breath as you come hard beneath his touch.'

			if npc_pussyeater[$boy] = 1:
				gs 'sex_ev_foreplay', 'pussy_lick_loop'
			else
				if rand(0,1) = 1:
					gs'sex_ev_foreplay', 'transition1'
!!				elseif sex_ev['cum_count'] = 0:
!!					gs'sex_ev_foreplay', 'transition2'
				else
					gs 'sex_ev_sex', 'sex_end'
				end
			end
		end
	else
		act'Don''t stop!':
			$orgasm_or = 'yes'
			gs 'arousal', 'cuni',rand(5,10),'no_orgasm_msg'
			gs'stat'
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/kuni/pussylickorgasm2.mp4"></video></center>'
			'"Don''t stop!" you cry.'
			'You''re so close! You''re right there! Any second now you-!'
			'"Don''t stop! Don''t stop! Don''t stop! Don''t stop! Don''t-!"'
			'<i>There!</i>'
			*nl
			'You let out an explosive moan as your orgasm smashes through you. Your body is so tight, you can''t even find the strength in you to fill your lungs, clenching your teeth and forced to hold your breath until your climax has finished its crescendo.'
			*nl
			if npc_pussyeater[$boy] = 1:
				gs 'sex_ev_foreplay', 'pussy_lick_loop'
			else
				if rand(0,1) = 1:
					gs'sex_ev_foreplay', 'transition1'
!!				elseif sex_ev['cum_count'] = 0:
!!					gs'sex_ev_foreplay', 'transition2'
				else
					gs 'sex_ev_sex', 'sex_end'
				end
			end
		end
		gs 'sex_ev_sex', 'sex_start'
	end
end

if $ARGS[0] = 'pussy_lick_loop':
	sex_ev['cuni_count'] += 1
	if sex_ev['consecutive_cuni_orgasm'] = 0:
		'But <<$npc_firstname[$boy]>> is relentless. Even as your climax winds down, he doesn''t stop, continuing to eat you out.'
	end
	if sex_ev['consecutive_cuni_orgasm'] < 4:
		act'Come again':
			cla & *clr
			pcs_horny = 90
			$orgasm_or = 'yes'
			gs 'arousal', 'cuni',rand(5,10),'no_orgasm_msg'
			gs'stat'
			sex_ev['orgasm_count'] += 1
			sex_ev['consecutive_cuni_orgasm'] += 1
			sex_ev['cuni_orgasm'] += 1
			'<center><video autoplay loop src="images/shared/sex/kuni/pussylickorgasm2.mp4"></video></center>'
			if sex_ev['consecutive_cuni_orgasm'] = 1:
				'"OH FUCK!" you cry, exploding in climax again off the back of your previous orgasm. But apparently two in a row still isn''t enough for him as he continues on, still eating you out.'
			elseif sex_ev['consecutive_cuni_orgasm'] = 2:
				'The third orgasm happens before you even finish spasming from the second.'
			elseif sex_ev['consecutive_cuni_orgasm'] = 3:
				'The fourth orgasm reduces you to a quivering mess.'
			elseif sex_ev['consecutive_cuni_orgasm'] = 4:
				'The fifth leaves you hyperventilating, raggedly gasping for breath and as his tongue touches your pussy again, it''s so sensitive that it <i>hurts</i>.'
			end
			gs 'sex_ev_foreplay', 'pussy_lick_loop'
		end
		if sex_ev['no_sex'] ! 1:
			act'Stop him (let''s fuck)':
				pcs_horny = 60
				$orgasm_or = ''
				sex_ev['consecutive_cuni_orgasm'] = 0
				cla & *clr
				!! IMAGE HERE
				$sex_ev['bed_room']
				'He tries to dive right back in but you put your hand on his head and push him away from your pussy.'
				'"Wait, stop!" He looks up at you with curiosity.'
				'"This isn''t the only thing I want to do today," you say.'
				gs 'sex_ev_sex', 'sex_start'
			end
		end
	end
	gs 'sex_ev_foreplay', 'cuni_too_sensitive'
	gs 'sex_ev_sex', 'sex_start'
end

if $ARGS[0] = 'cuni_too_sensitive':
	act'Stop him (too sensitive)':
		cla & *clr
		!! IMAGE HERE
		$sex_ev['bed_room']
		'"Stop! Stop! Stop!" you cry desperately, pushing his head away and snapping your legs closed, your entire body writhing uncontrollably on the bed as orgasmic tremors continue to quake through you. "I can''t take it anymore!"'
		*nl
		'<<$npc_firstname[$boy]>> looks up at you, wet lips pulled back in a grin. You look at him from the corner of your eye, face half buried in the sheets, breathing hard as he stands up. You can see he''s still as hard as a rock, but something about his expression says to you that he got off on this anyway.'
		act'I''m done':
			cla & *clr
			$sex_ev['bed_room']
			'"I''m done," you say, taking ragged breaths. "I''m shattered... I can''t keep going after that..."'
			gs 'sex_ev_after', 'after_sex1'
		end

		act'Give me a minute':
			minut += rand(1,2)
			cla & *clr
			$sex_ev['bed_room']
			'"Give me a minute..." you pant. "And we can do something else..."'
			'<<$npc_firstname[$boy]>> waits patiently for you, a satisfied looking smirk on his face.'
			'"Oh fuck you," you say.'
			'"Ready and waiting for it," he says back, still smirking.'
			gs 'sex_ev_foreplay', 'foreplay_choose'
			gs 'sex_ev_sex', 'sex_start'
		end
	end
end

if $ARGS[0] = 'nipple_play':
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/foreplay/nipple_play1.mp4"></video></center>'
	gs 'arousal', 'foreplay',rand(5,10),'no_orgasm_msg'
	gs'stat'
	$sex_ev['position'] = 'nipple_play'
	'<<$npc_firstname[$boy]>> leans forward, grabbing ahold of your breasts with his hands and uses his mouth on your nipples. He sucks them up, flicks at the tips with his tongue, sending electricity flying through them. Heat spreads through your hips and you can feel wetness pooling between your thighs.'
	act'Continue':
		if rand(0,1) = 1 and kuni_no[$boy] ! 1 and (mesec = 0 or npc_pussyeater_know[$boy] = 1) and sex_ev['sensitive_cuni'] ! 1:
			cla & *nl
			'After a few minutes, <<$npc_firstname[$boy]>> pulls back from your chest and pushes you down, beginning to move between your legs to eat you out.'
			gs 'sex_ev_foreplay', 'kuni_start'
		else
			cla & *clr
			'<center><img <<$set_imgh>> src="images/shared/sex/foreplay/miss3.jpg"></center>'
			sex_ev['position_choose'] = 1
			'After a few minutes, <<$npc_firstname[$boy]>> pulls back from your chest and pushes you down, climbing on top of you with his rock hard cock between your legs.'
			$sex_ev['position'] = 'miss'
			if stat['think_virgin'] = 1 and sex_ev['fuck_count'] = 0:
				act'Stop him (virgin)':$sex_ev['position'] = 'miss' & gt'sex_ev_virgin', 'lover_wait'
				act'Let him take your virginity':gs'sex_ev_virgin', 'start3'
			elseif sex_ev['condom'] ! 0 or sex_ev['no_condom'] ! 0:
				act'Let <<$npc_firstname[$boy]>> fuck you':gs 'sex_ev_condoms', 'npc_condom_use_stats' & gt 'sex_ev_<<$sex_ev[''position'']>>', '<<$sex_ev[''position'']>>_goto'
			else
				gs 'sex_ev_condoms', 'condoms'
			end
			
!!			gs 'sex_ev_condoms', 'temp_disable_condoms'
!!			if $sex_ev['type'] ! 'hookup': gs 'sex_ev_condoms', 'disable_condoms'
		end
	end
end

!! --------------------- selfish stuff ---------------------------------------------------

if $ARGS[0] = 'bj_ask':
	cla
	'"How about a blowjob?" <<$npc_firstname[$boy]>> asks.'
	gs 'sex_ev_foreplay', 'bj_ask2'
end

if $ARGS[0] = 'bj_ask2':
	act'Reluctant':
		cla & *nl
		sex_ev['reluctant_bj'] = 1
		'"Ugh, fiiine..." you sigh and crawl down between his legs.'
		act'Blow him':gt'sex_ev_foreplay', 'bj_sub1'
	end
	
	act'Reluctant (joking)':
		cla & *nl
		sex_ev['reluctant_bj'] = 1
		'"Ugh, fiiine! If I really have to..." you mock sigh, but not without flashing a wide grin before crawling down between his legs.'
		act'Blow him':gt'sex_ev_foreplay', 'bj_sub1'
	end
	
	act'Okay':
		cla & *nl
		'"Okay," you smile and crawl down between his legs.'
		act'Blow him':gt'sex_ev_foreplay', 'bj_sub1'
	end
	
	act'Love to':
		cla & *nl
		'"I''d love to," you grin, licking your lips and getting some saliva going.'
		act'Blow him':gt'sex_ev_foreplay', 'bj_sub1'
	end
	
	
	if stat['think_virgin'] ! 1 or sex_ev['fuck_count'] > 0:
		act'Fuck instead?':
			cla & *nl
			sex_ev['must_fuck'] = 1
			if sex_ev['fuck_count'] > 0:
				'"Hmmm... I couuuuld..." you hum, pretending to think before breaking into a wide grin. "Or we could just fuck again?"'
			else
				'"Hmmm... I couuuuld..." you hum, pretending to think before breaking into a wide grin. "Or we could just fuck?"'
			end
			if $npc_fav_pos[$boy] = 'doggy':
				'Your eyes meet for just a moment before <<$npc_firstname[$boy]>> jumps you, eliciting uncontrollable giggles as he flips you onto your knees and plunges into your pussy.'
				act'Get fucked':gt 'sex_ev_doggy', 'doggy<<sex_ev[''speed'']>>'
			else
				'Your eyes meet for just a moment before <<$npc_firstname[$boy]>> jumps you, eliciting uncontrollable giggles as he forces your legs apart and plunges into your pussy.'
				act'Get fucked':gt 'sex_ev_miss', 'miss<<sex_ev[''speed'']>>'
			end
		end
	end
	
!!{	if sex_ev['fuck_count'] > 0:
		act'Can''t we just fuck again? (complain)':
			cla & *nl
			'"Ugh, do I have to?" you complain. "Can''t we just fuck again?"'
			if npc_selfish[$boy] = 1:
				
			elseif npc_caretaker[$boy] = 1:
			
			else
			
			end
		end
		
		
	end}
end

if $ARGS[0] = 'bj_sub1':
	sex_ev['bj_count'] += 1
	$sex_ev['bj_type'] = 'sub'
	gs'arousal', 'bj',rand(2,7),'no_orgasm_msg'
	gs'stat'
	cla & *clr
	if sex_ev['reluctant_bj'] = 1:
		'<center><video autoplay loop src="images/shared/sex/blowjob/bj46.mp4"></video></center>'
		'You grumble internally but get to work anyway, spending a few minutes bobbing your head up and down on his cock. You weren''t really in the mood to begin with, so you get bored quickly, but hopefully he''ll want to do something else soon.'
	else
		'<center><video autoplay loop src="images/shared/sex/blowjob/bj<<rand(46,50)>>.mp4"></video></center>'
		'You lean forward and take him in your mouth, gently sucking his cock and bobbing your head up and down on it. You take pride in your work, doing your best to make <<$npc_firstname[$boy]>> feel good.'
	end
	*nl
	gs 'sex_ev_foreplay', 'bj_sub_cum_sort'
end

if $ARGS[0] = 'bj_sub1_continue':
	act'Keep blowing <<$npc_firstname[$boy]>>':
		sex_ev['cycle_limit'] += 1
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/blowjob/bj<<rand(46,50)>>.mp4"></video></center>'
		'You keep blowing <<$npc_firstname[$boy]>>, working his cock with your lips and his shaft with your hand, making sure to add in lots of tongue and drool even more spit.'
		gs 'sex_ev_foreplay', 'bj_sub_cum_sort'
	end
	
	act'Pull back (sex)':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
		sex_ev['must_fuck'] = 1
		'You pull your mouth off his cock with a pop.'
		if sex_ev['fuck_count'] = 0:
			'"Did you want to keep doing this or do you want to fuck now?" you ask while jerking him gently.'
		else
			'"Did you want to keep doing this or do you want to fuck again?" you ask while jerking him gently.'
		end
		gs 'sex_ev_sex', 'sex_start'
	end
end

if $ARGS[0] = 'bj_sub2':
	sex_ev['bj_count'] += 1
	gs'arousal', 'bj',rand(2,7),'no_orgasm_msg'
	gs'stat'
	'<center><video autoplay loop src="images/shared/sex/blowjob/bj52.mp4"></video></center>'
	'<<$npc_firstname[$boy]>> slowly pumps his cock in and out of your mouth, plunging it all the way down your throat where you can feel it press against your windpipe. You keep it loose while he does all the work, occasionally letting your tongue snake out for a cheeky lick, but otherwise just let <<$npc_firstname[$boy]>> keep fucking your face.'
	*nl
	gs 'sex_ev_foreplay', 'bj_sub_cum_sort'
end

if $ARGS[0] = 'bj_sub_cum_surprise':
	act'Continue':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
		$sex_ev['last_cum'] = 'mouth'
		sex_ev['cum_mouth_surprise'] = 1
		if pcs_throat <= 10:
			'Without any warning <<$npc_firstname[$boy]>> grabs your head and shoves it down to the base of his cock. It stretches your jaw wide, making you gag reflexively, and just as you''re about to protest, something spurts out into your throat.'
		else
			'Without any warning <<$npc_firstname[$boy]>> grabs your head and shoves it down to the base of his cock. You''ve sucked enough dick that it doesn''t cause any real problems for you, though a little warning would have been nice. And then something spurts directly into the back of your throat.'
		end
		act'Take it in stride (swallow)':
			sex_ev['bj_cum'] = 1
			sex_ev['swallow'] = 1
			gs 'cum_call', 'mouth_swallow', $boy, 1
			sex_ev['cum_count'] += 1
			gs 'stat'
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
			'You hum in surprise, but take it in stride anyway, continuing to suck as <<$npc_firstname[$boy]>> comes right down your throat. You swallow it all as best you can until his hips stop bucking beneath you and you slowly pull away, gulping one last time to get the last drops.'
			gs 'sex_ev_reactions', 'bj_warning_next_time'
			gs 'sex_ev_reactions', 'bj_tasty'
			gs 'sex_ev_reactions', 'bj_already'
		end

		act'Take it in stride (spit)':
			sex_ev['bj_cum'] = 2
			sex_ev['spit'] = 1
			gs 'cum_call', 'mouth', $boy, 1
			sex_ev['cum_count'] += 1
			gs 'stat'
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/spit6.mp4"></video></center>'
			'You hum in surprise, but take it in stride anyway, continuing to suck as <<$npc_firstname[$boy]>> straight into the back of your throat. You carefully let it pool there, waiting until his hips stop bucking beneath you. When he finally stops, you gather it to the front of your mouth and spit it out, letting it spill past your lips and all over <<$npc_firstname[$boy]>>''s dick.'
			gs 'sex_ev_reactions', 'bj_warning_next_time'
			gs 'sex_ev_reactions', 'bj_already'
		end

		act'Gag':
			cla & *clr
			sex_ev['bj_cum'] = 4
			sex_ev['gag'] = 1
			sex_ev['cum_count'] += 1
			gs 'cum_call', 'mouth', $boy, 1
			gs 'stat'
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/spit3.mp4"></video></center>'
			'The moment the cum touches your throat, you gag. Your eyes water and you cough involuntarily, mouth explosively erupting with cum and spilling all over <<$npc_firstname[$boy]>>''s cock and the floor.'
			act'Sorry':
				cla & *clr
				!!'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum52.jpg"></center>'
				$sex_ev['bed_room']
				'"I''m sorry," you wheeze, eyes stinging with tears as you try to clear your throat. "It was... I''ll do better next time."'
				if npc_generous[$boy] = 1:
					npc_bj_cum_warn[$boy] = 1
					'"No, no!" <<$npc_firstname[$boy]>> says hurriedly. "It''s my fault. I should have warned you. You were just so good, I couldn''t hold back. I''ll be more careful next time."'
					gs 'sex_ev_sex', 'sex_end'
				elseif npc_selfish[$boy] = 1:
					'<<$npc_firstname[$boy]>> raises you by the chin, tilting your head back to look into your eyes.'
					'"So that means you''ll swallow it all next time, right?"'
					act'I''ll try':
						cla & *nl
						'"I''ll do my best," you say.'
					end
					act'Nod':
						cla & *nl
						'Holding his gaze, you simply nod once.'
						'"You promise?"'
						'"Yes."'
						'"Say it."'
						'"I promise, I''ll swallow it all next time."'
						'"Good girl."'
						gs 'sex_ev_sex', 'sex_end'
!!						act'React':
!!							cla & *clr
!!							'He called you a "good girl" just now. It makes you think...'
!!						end
					end
				else
					'"I''m looking forward to it," he grins.'
					gs 'sex_ev_sex', 'sex_end'
				end
			end

			gs 'sex_ev_reactions', 'bj_warning_next_time'
		end
	end
end

if $ARGS[0] = 'bj_sub_cum_where':
	act'Where do you want to cum?':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
		'You pull your lips off <<$npc_firstname[$boy]>>''s cock with a pop.'
		*nl
		if $npc_lovername[$boy] = '':
			'"Where do want to come baby?" you ask. You can feel him throbbing in your hand. He''s right at the edge, kept there with your constant teasing, smattering of kisses and licks.'
		else
			'"Where do want to come <<$npc_lovername[$boy]>>?" you ask. You can feel him throbbing in your hand. He''s right at the edge, kept there with your constant teasing, smattering of kisses and licks.'
		end
		if $npc_cum_pref[$boy] = 'facial':
			'"Let me come on your face!" he grunts in a strained voice, clearly on the verge of exploding.'
			gs 'sex_ev_foreplay', 'bj_sub_cum_face1.2'
		elseif $npc_cum_pref[$boy] = 'tits':
			'"Let me come on your tits!" he grunts in a strained voice, clearly on the verge of exploding.'
			gs 'sex_ev_foreplay', 'bj_sub_cum_tits1.2'
		else
			'"Let me come in your mouth!" he grunts in a strained voice, clearly on the verge of exploding.'
			gs 'sex_ev_foreplay', 'bj_sub_cum_mouth1.2'
		end
	end
end

if $ARGS[0] = 'bj_sub_cum_hand':
	act'Finish him with your hand':
		$sex_ev['last_cum'] = 'hand'
		sex_ev['cum_hand'] = 1
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'hands', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/handjob/hand0,1.mp4"></video></center>'
		if sex_ev['bj_cum'] ! 3:
			'Removing his cock from your mouth, you instead kneel in front of him and work his cock with your hand. Moments later cum erupts from the tip, spraying into the air and dribbling back down his shaft and through your fingers.'
		else
			'Removing his cock from your mouth, you kneel in front of him and work his cock with your hand until cum erupts from the tip, spraying into the air and dribbling back down his shaft and through your fingers.'
		end
		gs 'sex_ev_sex', 'sex_end'
		gs 'sex_ev_after', 'wipe_hands'
	end
end

if $ARGS[0] = 'bj_sub_cum_mouth1':
	sex_ev['he_ask_mouth'] = 1
	$sex_ev['cum_choice'] = 'mouth'
	'After a few minutes, <<$npc_firstname[$boy]>> taps you on the head."'
	'"I''m gonna- <i>nngh-!</i> Can I cum in your mouth?"'
	gs 'sex_ev_foreplay', 'bj_sub_cum_mouth1.2'
end

if $ARGS[0] = 'bj_sub_cum_mouth1.2':
	act'Why?':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
		'You let his cock pop out of your mouth for a moment, giving him a quizzical look.'
		'"And, why would I let you do that?" you ask, continuing to relentlessly tease him with your mouth.'
		if npc_selfish[$boy] = 1:
			'"Because I want you to," he responds simply, like that''s the only reason you should ever need.'
			act'No thanks':
				if npc_abusive > 0:
					gs 'sex_ev_foreplay', 'bj_force_cum_mouth'
				else
					cla & *nl
					'"No thanks," you smile, deciding to finish him in your own way instead...'
					gs 'sex_ev_foreplay', 'bj_sub_cum_hand'
					gs 'sex_ev_foreplay', 'bj_sub_cum_face3'
					gs 'sex_ev_foreplay', 'bj_sub_cum_tits2'
				end
			end

			act'Ugh, fine':
				cla & *clr
				'<center><video autoplay loop src="images/shared/sex/blowjob/bj47.mp4"></video></center>'
				'"Ugh, fine," you roll your eyes. "Just because you asked, okay?"'
				'With that, you lower your lips back down to his cock and keep going til he blows.'
				gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_spit'
				gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_swallow'
			end
			
		else
			if rand(0,1) = 1:
				'"Oh. Well I just... I thought... uhh... Sorry. It''s a dumb idea isn''t it?"'
			else
				'"Because it''s hot?" he says, looking at you expectantly.'
			end
		end

		act'Couldn''t hurt':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/deep1.mp4"></video></center>'
			'"Well, it couldn''t hurt I suppose..." you smile and plunge your lips all the way down to the base of <<$npc_firstname[$boy]>>''s shaft. He blows his load moments later.'
			gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_spit'
			gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_swallow'
		end

		act'Just wondered (let him)':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/cum/mouth/deep1.mp4"></video></center>'
			'"Just wondered if you actually had a reason," you smile. With that, you give him a few sudden and furious jerks before plunging your head all the way to the base of <<$npc_firstname[$boy]>>''s cock and cum explodes inside your mouth.'
			gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_spit'
			gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_swallow'
		end

		gs 'sex_ev_foreplay', 'bj_sub_cum_face3'
		act'How about my tits instead?':
			cla & *nl
			'"How about I let you cum on my tits instead?" you smile enticingly.'
			'"That sounds like it it would be pretty hot," he says and you scooch forward, presenting your chest for him.'
			gs 'sex_ev_foreplay', 'bj_sub_cum_tits2'
		end
		gs 'sex_ev_foreplay', 'bj_sub_cum_hand'
	end

	act'Reluctantly let him':
		cla & *nl
!!		'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
		'"Mmmrrrm mmm mmmmph~!" You grumble unintelligibly around his cock but keep sucking anyway. Not exactly your ideal way to finish, but if it''s what he wants...'
		*nl
		'About two seconds later, thick salty liquid explodes into your mouth.'
		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_spit'
		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_swallow'
	end

	act'Let him':
		cla & *nl
!!		'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
		'"Mmhmmm~!" You hum a vague noise of approval around his cock and keep sucking. About two seconds later, thick salty liquid explodes into your mouth.'
		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_spit'
		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_swallow'
	end

	gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_gag'

	gs 'sex_ev_foreplay', 'bj_sub_cum_face3'

	act'How about my tits instead?':
		cla & *nl
		'"How about I let you cum on my tits instead?" you smile enticingly.'
		'"That sounds like it it would be pretty hot," he says and you scooch forward, presenting your chest for him.'
		gs 'sex_ev_foreplay', 'bj_sub_cum_tits2'
	end
end

if $ARGS[0] = 'bj_sub_cum_mouth2':
	!! player choosing/forcing it
	act'Make him come in your mouth':
		sex_ev['cum_mouth'] = 1
		sex_ev['swallow'] = 1
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'mouth_swallow', $boy, 1
		$sex_ev['cum_choice'] = 'swallow'
		$sex_ev['last_cum'] = 'mouth'
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/deep1.mp4"></video></center>'
		'With a mischievous grin, you work his cock with your hand, building up his climax right to the edge. You can tell just by the expression on his face and the swelling of flesh in your hand that he''s about to blow. At that moment, you plunge your lips straight down to the base of his cock, right as he explodes inside your mouth.'
		gs 'sex_ev_reactions', 'bj_warning_thanks'
		gs 'sex_ev_reactions', 'bj_tasty'
		gs 'sex_ev_reactions', 'bj_swallow_gross'
		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_spit'
!!		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_swallow'
!!		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_yuck1'
	end
end

if $ARGS[0] = 'bj_sub_cum_mouth_spit':
	act'Spit':
		sex_ev['cum_mouth'] = 1
		sex_ev['spit'] = 1
		sex_ev['swallow'] = 0
		sex_ev['cum_count'] += 1
		$sex_ev['last_cum'] = 'mouth'
		gs 'cum_call', 'mouth', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/spit6.mp4"></video></center>'
		'After a few moments, you let the cum pool to the front of your mouth and you draw yourself back up his shaft and release it from your lips, cum immediately spilling over the edge and down his cock.'
		act'Continue':cla & gs 'sex_ev_sex', 'sex_end'
		if sex_ev['bj_cum_choice'] > 2:
			gs 'sex_ev_reactions', 'bj_warning_thanks'
		end
		if sex_ev['cum_mouth_surprise'] = 1:
			gs 'sex_ev_reactions', 'bj_already'
		end
		gs 'sex_ev_reactions', 'bj_spit_gross'
	end
end

if $ARGS[0] = 'bj_sub_cum_mouth_gag':
	act'Let him (and gag)':
		sex_ev['cum_mouth'] = 1
		sex_ev['gag'] = 1
		sex_ev['cum_count'] += 1
		$sex_ev['cum_choice'] = 'mouth'
		$sex_ev['last_cum'] = 'mouth'
		gs 'cum_call', 'mouth', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/yuck2.mp4"></video></center>'
		'"Okay," you smile and stick out your tongue. The first spurt of cum lands on your tongue and you are immediately hit with a wave of primal, uncontrollable <i>revulsion</i>. You immediately spit it out, letting it dribble over your lips and open your mouth back up again, trying to power through. But even as you stick your tongue back out for the next spurt, the nausea overwhelms you and you pull back and gag, retching semen and saliva all over the floor.'
		*nl
		'"Oh <i>fuck!</i>" you grimace, tears in your eyes, hand to your mouth, desperately trying to avoid throwing up. "That was... Ugh! Don''t ever ask me to do that again!"'
		gs 'sex_ev_sex', 'sex_end'
	end
end

if $ARGS[0] = 'bj_sub_cum_mouth_swallow':
	act'Swallow':
		sex_ev['cum_swallow'] += 1
		$sex_ev['last_cum'] = 'mouth'
		sex_ev['swallow'] = 1
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'mouth_swallow', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow4.mp4"></video></center>'
		'Cum spurts into your throat and you carefully push your lips down <<$npc_firstname[$boy]>>''s shaft and pull back up, forcing a loud groan from his lips as you try to draw every last bit of sperm from inside him.'
		*nl
		'You struggle to keep the salty liquid from spilling past your lips but manage to all the way back up to his tip losing only a single drop along the way. And then, without removing your lips, you swallow the entire load in one gulp with a satisfied, "<i>Ahhh,</i>" smiling up at <<$npc_firstname[$boy]>>.'
		gs 'sex_ev_sex', 'sex_end'
	end

	act'Swallow (gross)':
		sex_ev['cum_swallow'] += 1
		$sex_ev['last_cum'] = 'mouth'
		sex_ev['swallow'] = 1
		sex_ev['react'] = 1
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'mouth_swallow', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/yuck1.mp4"></video></center>'
		'Thick, salty sperm sprays into your mouth and you can''t help but feel just a little bit nauseous even as you continue to suck out more cum from <<$npc_firstname[$boy]>>''s cock. But you power through regardless, and with a grimace of deep disgust, you force it down, swallowing the entire load.'
		*nl
		if sex_ev['cum_swallow'] > 1:
			'"<i>Yeech</i>!" you wince. "I''m never going to get used to that!"'
			'"But you still keep doing it anyway," <<$npc_firstname[$boy]>> smirks.'
			'"Yeah, yeah, shut up," you say, rolling your eyes and sticking out your tongue, trying to air it out.'
			gs 'sex_ev_sex', 'sex_end'
		else
			'"<i>Blech</i>!" you shudder. "That''s awful!"'
			if $sex_ev['cum_choice'] = 'face':
				'"If you hate swallowing so much, then why didn''t you just let me cum on your face like I wanted to?" <<$npc_firstname[$boy]>> asks quizzically.'
				gs 'sex_ev_reactions', 'cum_mouth_swallow_why'
			elseif $sex_ev['cum_choice'] = 'tits':
				'"If you hate swallowing so much, then why didn''t you just let me cum on your tits?" <<$npc_firstname[$boy]>> asks quizzically.'
				gs 'sex_ev_reactions', 'cum_mouth_swallow_why'
			else
				'"Then why''d you do it?" <<$npc_firstname[$boy]>> asks, a dumbfounded look on his face.'
				gs 'sex_ev_reactions', 'cum_mouth_swallow_why'
				gs 'sex_ev_reactions', 'bj_swallow_gross2'
			end
		end
	end
end

if $ARGS[0] = 'bj_sub_cum_face1':
	!! asks to come on face
	sex_ev['he_ask_facial'] = 1
	$sex_ev['cum_choice'] = 'face'
	'Within a few minutes, <<$npc_firstname[$boy]>> taps you on the head."'
	'"<i>Ngh-!</i> <<$pcs_nickname>>-! Can I come on your face? You''d look so hot."'
	act'No way':
		cla & *nl
		'"Nuh uh," you pop off his cock, giving him a disgusted look. "There''s no <i>way</i> I''m letting your spray that all over my face."'

		gs 'sex_ev_foreplay', 'bj_sub_cum_hand'

		gs 'sex_ev_foreplay', 'bj_sub_cum_tits2'

		act'How about my mouth instead?':
			cla & *nl
			'"How about my mouth?" you smile. "Don''t you want to just pump it straight down my throat instead?"'
			'<<$npc_firstname[$boy]>>''s face turns to a hungry expression. "Well, when you put it like that..."'
			gs 'sex_ev_foreplay', 'bj_sub_cum_mouth2'
		end
	end

	gs 'sex_ev_foreplay', 'bj_sub_cum_face1.2'
end

if $ARGS[0] = 'bj_sub_cum_face1.2':
	act'Let him (gross)':
		sex_ev['cum_face'] = 1
		$sex_ev['last_cum'] = 'facial'
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'face', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/facial/facial0,3.mp4"></video></center>'
		'"Alright," you sigh. <<$npc_firstname[$boy]>> eagerly sits up positioninig himself over you.'
		'You close your eyes right before something warm, wet, and slimy spatters across your face. You flinch at the impact and your expression turns into a grimace as it piles up, slowly dripping down your cheeks.'
		*nl
		'"Ugh! That''s fucking disgusting!" you whine. "I can''t believe I let you talk me into this."'
		'"You look great though." You can''t see him with the cum gluing your eyelids shut, but you''re pretty sure he''s wearing a grin you would slap him for.'
		!! add reactions later?
		gs 'sex_ev_sex', 'sex_end'
		gs 'sex_ev_after', 'wipe_face'
	end

	act'Let him (passive)':
		sex_ev['cum_face'] = 1
		$sex_ev['last_cum'] = 'facial'
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'face', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/facial/facial0,3.mp4"></video></center>'
		'"Hmmm?" you hum around his cock before letting it pop from your mouth. "Sure. If you like."'
		*nl
		'You let him position himself over you and close your eyes. Moments later warm fluid spatters across your face and within seconds, your face is covered in <<$npc_firstname[$boy]>>''s cum. After a little bit to make sure <<$npc_firstname[$boy]>>''s finished, you crack an eye and look up at him.'
		*nl
		'"Happy?" you ask.'
		'"You have no idea how fucking hot you look right now."'
		!! add reactions later?
		gs 'sex_ev_sex', 'sex_end'
		gs 'sex_ev_after', 'wipe_face'
	end

	act'Stick our your tongue (swallow)':
		sex_ev['cum_face'] = 1
		sex_ev['cum_swallow'] += 1
		$sex_ev['last_cum'] = 'face_mouth'
		sex_ev['swallow'] = 1
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'face', $boy, 1
		gs 'cum_call', 'mouth_swallow', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/facial/facial25.mp4"></video></center>'
		'"Hmmm?" you hum around his cock before letting it slip from your mouth. Without saying anything else, you kneel down and close your eyes, sticking out your tongue.'
		*nl
		'"Ahhhhh~!"'
		*nl
		'"You''re the fucking best."'
		'You can hear the wet squelching sound of his hand working his cock and after a couple seconds, you feel a shot of cum land directly on your tongue. <<$npc_firstname[$boy]>> makes sure to spread his shots around, approximately half of them spattering across your face and the other half landing in your mouth, keeping it open the entire time until you feel him shaking the last drips of his load onto the tip of your tongue.'
		act'Gulp':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/cum/facial/facial26.mp4"></video></center>'
			'Gathering it to the back of your throat, you let his cum pool there for a moment before swallowing the whole thing in a mighty gulp. You look up at <<$npc_firstname[$boy]>> with cum glazed cheeks and smile at him.'
			'"You''re so fucking hot."'
			'"Yeah, I know," you grin back.'
			gs 'sex_ev_sex', 'sex_end'
			gs 'sex_ev_after', 'wipe_face'
		end
	end

	act'Stick our your tongue (spit)':
		sex_ev['cum_face'] = 1
		$sex_ev['last_cum'] = 'face_mouth'
		sex_ev['spit'] = 1
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'face', $boy, 1
		gs 'cum_call', 'hair', $boy, 1
		gs 'cum_call', 'mouth', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/facial/facial29.mp4"></video></center>'
		'"Hmmm?" you hum around his cock before letting it pop from your mouth. "Alright. Sure."'
		*nl
		'You stick out your tongue and <<$npc_firstname[$boy]>> takes this as an invitation, grabbing you by the hair with one hand and working his shaft with the other. A huge blast of cum sprays directly across your face, most of it landing on your cheeks and some even getting in your hair. A little falls inside your mouth and you spit it out as it comes, as <<$npc_firstname[$boy]>> finishes finishing himself over your face. When the cum stops flying, you crack an eye and look up at him.'
		*nl
		'"Happy?" you ask.'
		'"You have no idea how fucking hot you look right now."'
		!! add reactions later?
		gs 'sex_ev_sex', 'sex_end'
		gs 'sex_ev_after', 'wipe_face'
	end
end
if $ARGS[0] = 'bj_sub_cum_face2':
	!! comes on face without warning

end

if $ARGS[0] = 'bj_sub_cum_face3':
	!! player choosing to do it
	if sex_ev['he_ask_mouth'] = 1:
		$sex_ev['act_desc'] = 'How about my face instead?'
		$sex_ev['cum_desc'] = 'How about you just come on my face instead?'
	else
		$sex_ev['act_desc'] = 'Wanna come on my face?'
		$sex_ev['cum_desc'] = 'Wanna come on my face?'
	end
	act'<<$sex_ev[''act_desc'']>>':
		cla & *clr
		$sex_ev['bed_room']
		'You pull your lips back from his cock with a pop.'
		'"<<$sex_ev[''cum_desc'']>>" you ask.'
		'<<$npc_firstname[$boy]>> sits up, working his shaft with his hand as he points it at your face. That seems like a "yes" to you.'
		gs'sex_ev_cum', 'facial_close_eyes'
		gs'sex_ev_cum', 'facial_tongue_swallow'
		gs'sex_ev_cum', 'facial_tongue_spit'
		gs'sex_ev_cum', 'facial_brace'
		act'Jerk him yourself':gt'sex_ev_cum', 'facial_jerk_him'
	end
end

if $ARGS[0] = 'bj_sub_cum_tits1':
	sex_ev['he_ask_tits'] = 1
	$sex_ev['cum_choice'] = 'tits'
	'Within a few minutes, <<$npc_firstname[$boy]>> taps you on the head."'
	'"I''m gonna- <i>nngh-!</i> You''d look super hot with my cum on your tits. Can I?"'
	act'No way':
		cla & *nl
		'"Ew." You wrinkle your nose in disgust as you pop your mouth off his cock.'
		gs 'sex_ev_foreplay', 'bj_sub_cum_hand'
		gs 'sex_ev_foreplay', 'bj_sub_cum_face3'
		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth2'
	end
	gs 'sex_ev_foreplay', 'bj_sub_cum_tits1.2'
end

if $ARGS[0] = 'bj_sub_cum_tits1.2':
	act'Jerk him over your tits':
		sex_ev['cum_tits'] = 1
		sex_ev['cum_count'] += 1
		$sex_ev['last_cum'] = 'tits'
		gs 'cum_call', 'breasts', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/chest/jerk1.mp4"></video></center>'
		'You don''t say a word, removing your mouth and start working his shaft with your hand instead. Within moments, his cock erupts and warm cum sprays across your chest, leaving long strands dripping down your breasts.'
		!! reactions?
		gs 'sex_ev_sex', 'sex_end'
		gs 'sex_ev_after', 'wipe_tits'
	end
	gs 'sex_ev_cum', 'cum_tits4'
end

if $ARGS[0] = 'bj_sub_cum_tits2':
	!! player choosing to do it
	act'Jerk him over your tits':
		sex_ev['cum_tits'] = 1
		$sex_ev['last_cum'] = 'tits'
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'breasts', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/chest/jerk1.mp4"></video></center>'
		if sex_ev['he_ask_tits'] = 1:'"How about my tits instead?"'
		'With a dirty grin, you kneel beneath him grab hold of his cock and jerking it until he comes with a groan. Cum coats your tits in thick strands, warm against your skin.'
		!! reactions?
		gs 'sex_ev_sex', 'sex_end'
!!		gs 'sex_ev_after', 'wipe_tits'
	end
	if tits > 1:
		act'Finish him with your tits':
			sex_ev['cum_tits'] = 1
			sex_ev['cum_count'] += 1
			$sex_ev['last_cum'] = 'tits'
			gs 'cum_call', 'breasts', $boy, 1
			gs 'cum_call', 'hands', $boy, 1
			gs 'stat'
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/cum/chest/tits1.mp4"></video></center>'
			if sex_ev['he_ask_tits'] = 1:'"How about my tits instead?"'
			'With a dirty grin, you kneel beneath him and smush his cock between your breasts. You squeeze them together as tightly as possible and work his shaft until a few moment later, he comes, spraying cum all over your tits and hands.'
			!! reactions?
			gs 'sex_ev_sex', 'sex_end'
!!			gs 'sex_ev_after', 'wipe_tits'
		end
	end
	
	gs 'sex_ev_cum', 'cum_tits4'
end


if $ARGS[0] = 'bj_force_cum_mouth':
	sex_ev['cum_mouth'] = 1
	sex_ev['cum_mouth_force'] = 1
	$sex_ev['last_cum'] = 'mouth'
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
	'"No than-" You start trying to tell him you won''t do it when he violently grabs your head and forces you back onto his cock.'
	'"I wasn''t asking."'
	if pcs_makeup > 1:
		pcs_makeup = 0
		'Semen spills into your mouth and you struggle against him, trying to pull away but he holds you firmly onto his manhood. Tears stream from your eyes, running down your face and ruining your makeup in black rivers. All you can do is briefly cough as cum continues to fill your mouth.'
	else
		'Semen spills into your mouth and you struggle against him, trying to pull away but he holds you firmly onto his manhood. Tears stream from your eyes, running down your face. All you can do is briefly cough as cum continues to fill your mouth.'
	end
	act'Gag':
		gs 'cum_call', 'mouth', $boy, 1
		sex_ev['cum_count'] += 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/spit3.mp4"></video></center>'
		'Finally, your body can''t take it anymore and you begin to choke. You cough hard, cum exploding out from your lips and with the strength of a drowning woman, you force yourself off of <<$npc_firstname[$boy]>>''s cock. You retch, violently spewing the rest of his cum from your mouth, taking ragged breaths as you continue to cough.'
		'"Why would the fuck would you do that?" you ask, looking up at <<$npc_firstname[$boy]>> with teary eyes.'
		'"I told you I wanted to come in your mouth." He takes you by the chin and lifts your head with his finger. "It''s not a request. If I want it, you do it."'
		gs 'sex_ev_after', 'quit'
		gs 'sex_ev_foreplay', 'bj_force_cum_grumble'
		gs 'sex_ev_foreplay', 'bj_force_cum_submit'
	end
	act'Swallow!':
		sex_ev['cum_swallow'] += 1
		$sex_ev['last_cum'] = 'swallow'
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'mouth_swallow', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/forced1.mp4"></video></center>'
		'You gag but he keeps your face held all the way down to his balls. His cum overflows from your mouth and in a desperate attempt to avoid drowning, you swallow. It seems to be exactly what he was waiting for and continues to unload himself directly down your throat.'
		*nl
		'After what seems like an eternity, his orgasm fades and fluid stops filling the back of your mouth and <<$npc_firstname[$boy]>> finally releases you.'
		gs 'sex_ev_foreplay', 'bj_force_cum_wtf'
		gs 'sex_ev_foreplay', 'be_nice'
		gs 'sex_ev_foreplay', 'lucky_like'
	end

	act'Swallow (take it in stride)':
		sex_ev['cum_swallow'] += 1
		$sex_ev['last_cum'] = 'swallow'
		sex_ev['cum_count'] += 1
		gs 'cum_call', 'mouth_swallow', $boy, 1
		gs 'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
		'You''re surprised by his force but you take it in stride, swallowing as <<$npc_firstname[$boy]>> pumps his member and his cum straight into the back of your throat. You continually swallow it as it comes until there is nothing left to suck up but your own saliva and <<$npc_firstname[$boy]>>''s cock.'
		gs 'sex_ev_foreplay', 'bj_force_cum_wtf'
		gs 'sex_ev_foreplay', 'be_nice'
		gs 'sex_ev_foreplay', 'lucky_like'
!!		gs 'sex_ev_foreplay', 'sub_option'
	end

	act'Spit (take it in stride)':
		cla & *clr
		$sex_ev['last_cum'] = 'mouth'
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/spit6.mp4"></video></center>'
		'You''re surprised by his force but you take it in stride, swallowing as <<$npc_firstname[$boy]>> pumps his member and his cum straight into the back of your throat. You let it pool there until you stop feeling him pulse between your lips and he finally releases you, allowing you to slip off his cock and take a breath as the semen spills from your lips.'
		gs 'sex_ev_foreplay', 'bj_force_cum_wtf'
		gs 'sex_ev_foreplay', 'be_nice'
		gs 'sex_ev_foreplay', 'lucky_like'
!!		gs 'sex_ev_foreplay', 'sub_option'
	end
end

if $ARGS[0] = 'bj_force_cum_wtf':
	act'What the fuck':
		cla & *clr
		$sex_ev['bed_room']
		sex_ev['mad'] = 1
		'"What the fuck," you cough, dislodging a few stray globules at the back of your throat. "Why would you do that?"'
		'"I told you I wanted to come in your mouth." <<$npc_firstname[$boy]>> takes you by the chin and lifts your head with his finger. "It''s not a request. If I want it, you do it."'
		gs 'sex_ev_after', 'quit'
		gs 'sex_ev_foreplay', 'bj_force_cum_grumble'
		gs 'sex_ev_foreplay', 'bj_force_cum_submit'
	end
end

if $ARGS[0] = 'be_nice':
	act'Be nicer next time?':
		cla & *nl
		'"If you really want it that badly, maybe be a little nicer about it next time?" You give him a gentle smile, eyes still glistening. "I don''t mind <i>that</i> much, but if you ask nicely..."'
		'"We''ll see," he says.'
		gs 'sex_ev_sex', 'sex_end'
	end
end

if $ARGS[0] = 'lucky_like':
	act'You''re lucky I like you':
		cla & *nl
		'Pulling back, you wipe your lips and give <<$npc_firstname[$boy]>> a dry stare.'
		'"You''re lucky I like you," you say. "Otherwise I might get really mad about that."'
		'"Oh yeah?" he says. "What does that look like? Maybe I want to see that."'
		gs 'sex_ev_sex', 'sex_end'
	end
end

!!if $ARGS[0] = 'sub_option':
!!	act'sub_option':
!!		cla & *nl
!!		'You look up at him'
!!		gs 'sex_ev_sex', 'sex_end'
!!	end
!!end

if $ARGS[0] = 'bj_force_cum_submit':
	act'Submit':
		pcs_horny += 50
		$sex_ev['last_cum'] = 'swallow'
		cla & *clr
		$sex_ev['bed_room']
		'Your eyes go wide and you reflexively gulp. The way he said that was so demeaning and rude and...'
		*nl
		'<i>hot...</i>'
		*nl
		'Heat spreads through your hips and you can feel your pussy begin to practically <i>drool</i> with moisture.'
		gs 'sex_ev_sex', 'sex_end'
	end
end

if $ARGS[0] = 'bj_force_cum_grumble':
	act'Grumble':
		cla & *clr
		$sex_ev['bed_room']
		'"Hmph!" you tug your chin out of his grasp, internally grumbling to yourself, but you don''t press the issue any further.'
		gs'sex_ev_sex', 'sex_end'
		if pcs_vag ! 0 or (sex_ev['virgin'] < 1 and know_virgin[$boy] < 1) and sex_ev['no_sex'] ! 1:
			act'Can we have sex now?':
				cla & *clr
				'<center><video autoplay loop src="images/shared/sex/misc/wait.mp4"></video></center>'
				'"Can we have sex now?" you ask, maybe letting a little more exasperation into your voice than you meant to.'
				if rand(1,10) <= npc_sexdrive[$boy]:
					'"Yeah," he smiles. "I think I can go again. Just gimme a minute to get hard."'
					act'Wait':
						cla & *clr
						minut += rand(1,2)
						sex_ev['position_choose'] = 1
						sex_ev['get_hard'] = 1
						'<center><video autoplay loop src="images/shared/sex/misc/wait.mp4"></video></center>'
						'You lay back on the bed, staring at the ceiling, waiting impatiently as you listen to <<$npc_firstname[$boy]>> furiously flapping his flaccid dick around, forcing it to get hard again.'
						gs 'sex_ev_sex', 'sex_start'
					end

					act'Help him out (hand)':
						cla & *clr
						gs'arousal', 'hj',1,'no_orgasm_msg'
						gs'stat'
						'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
						'"Let me help you out with that," you smile, rolling over and taking <<$npc_firstname[$boy]>>''s dick in your hand. Even soft, you feel it twitch in response to your touch and you can''t help but smile wider at the reaction. You begin working the shaft up and down and in no time at all, you''ve got nice stiff cock ready for fucking.'
						$sex_ev['position'] = ''
						gs 'sex_ev_sex', 'sex_start'
					end

					act'Help him out (mouth)':
						cla & *clr
						gs'arousal', 'bj',1,'no_orgasm_msg'
						gs'stat'
						'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
						'"Let me help you out with that," you smile, rolling over and taking <<$npc_firstname[$boy]>>''s dick in your hand. Leaning down, you take the soft tip of his dick and place it between your lips, sucking gently. You instantly feel it twitch and you can''t help but smirk, even with a cock in your mouth.'
						*nl
						'Through a variation of kissing, licking, and sucking, <<$npc_firstname[$boy]>> rapidly stiffens up and in no time at all, you have a nice hard cock ready for fucking.'
						$sex_ev['position'] = ''
						gs 'sex_ev_sex', 'sex_start'
					end
				else
					'"Nah, I think I''m tapped out.'
					act'Try to get him hard again (hand)':
						gs'arousal', 'hj',rand(1,2),'no_orgasm_msg'
						gs'stat'
						cla & *clr
						if sex_ev['cum_count'] >= npc_sexdrive[$boy]:
							cla & *clr
							!! IMAGE HERE
							$sex_ev['bed_room']
							'"Not if I have anything to say about it..."'
							'Or so you thought. You grab his soft, spongy cock in your hand and work it with all you''ve got. But you can''t even manage to get a twitch out of it, let alone get him fully hard again.'
							*nl
							'"Fuck!" you growl and throw yourself back onto the bed in frustration.'
							gs 'sex_ev_after', 'after_sex'
						else
							'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
							'"Not if I have anything to say about it," you grin.'
							'You forcibly grab <<$npc_firstname[$boy]>>''s dick in your hand and begin kneading it with your fingers. You work the shaft up and down and within minutes, despite his initial protests, you have a fully erect cock in your hands. Ready and waiting to be fucked.'
							$sex_ev['position'] = ''
							gs 'sex_ev_foreplay', 'handjob_dom1'
							gs 'sex_ev_foreplay', 'foreplay_choose'
							gs 'sex_ev_sex', 'sex_start'
						end
					end

					act'Try to get him hard again (mouth)':
						gs'arousal', 'bj',rand(1,2),'no_orgasm_msg'
						gs'stat'
						if sex_ev['cum_count'] >= npc_sexdrive[$boy]:
							cla & *clr
							!! IMAGE HERE
							$sex_ev['bed_room']
							'"Not if I have anything to say about it..."'
							'Or so you thought. You grab his soft, spongy cock in your hand and work it with all you''ve got. You put it in your mouth and suck on it, trying to reverse inflate it like a meat balloon. But you can''t even manage to get a twitch out of it, let alone get him fully hard again. It''s like trying to play billiards with a rope.'
							*nl
							'"Fuck!" you growl and throw yourself back onto the bed in frustration.'
							gs 'sex_ev_after', 'after_sex'
						else
							'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
							'"Not if I have anything to say about it," you grin.'
							'You forcibly grab <<$npc_firstname[$boy]>>''s dick in your hand and begin kneading it with your fingers. You lean down, sucking on the tip and immediately feel life within, feel it expand and twitch inside your mouth. Continuing to kiss, lick, and suck on it, within minutes, despite his initial protests, you have a fully erect cock in your possession. Ready and waiting to be fucked.'
							$sex_ev['position'] = ''
							gs 'sex_ev_foreplay', 'bj_dom1'
							gs 'sex_ev_foreplay', 'foreplay_choose'
							gs 'sex_ev_sex', 'sex_start'
						end
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'bj_sub_cum_warn':
	sex_ev['bj_cum'] = 3
	sex_ev['cum_warn'] = 1
	'After a couple more minutes, he taps you on the head.'
	'"I''m-! Almost there-!" he groans loudly.'
	gs 'sex_ev_foreplay', 'bj_sub_cum_hand'
	gs 'sex_ev_foreplay', 'bj_sub_cum_mouth2'
	gs 'sex_ev_foreplay', 'bj_sub_cum_face3'
	gs 'sex_ev_foreplay', 'bj_sub_cum_tits2'
	if sex_ev['no_sex'] ! 1:
		act'Not yet (sex)':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
			sex_ev['position_choose'] = 1
			'You pull your mouth off his cock with a pop, giving him a lusty stare.'
			if sex_ev['fuck_count'] > 0:
				'"Not yet big boy," you grin, jerking him gently. "I''m not done with you yet."'
			else
				'"Not yet big boy," you grin, jerking him gently. "I want you inside me first."'
			end
			gs 'sex_ev_sex', 'sex_start'
		end
	end
end

if $ARGS[0] = 'bj_sub_lets_fuck':
	'After a couple more minutes <<$npc_firstname[$boy]>> pushes your head away, your saliva trailing from his cock.'
	if stat['think_virgin'] = 1 and sex_ev['fuck_count'] = 0:
		if know_virgin[$boy] = 1:
			'"That was great," he smiles. "That was exactly what I wanted. But I want more now."'
			act'I''m saving my virginity':gt'sex_ev_virgin', 'saving_virginity'
			act'Okay (lose your virginity)':gt'sex_ev_virgin', 'start4'
		else
			'"That was great," he smiles. "That was exactly what I wanted. But <i>now</i> I want your pussy."'
			act'I''m saving my virginity':gt'sex_ev_virgin', 'saving_virginity'
			act'Okay (lose your virginity)':gt'sex_ev_virgin', 'start3'
		end
	else
		'"That was great," he smiles. "That was exactly what I wanted. But <i>now</i> I want your pussy."'
		act'It''s about time':cla & sex_ev['about_time'] = 1 & gs'sex_ev_sex', 'sex_start'
		
		act'Let him fuck you':cla & gs'sex_ev_sex', 'sex_start'

		act'Can we keep doing this?':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
			'"Can I keep doing this?" you ask, continuing to play with his cock, trailing it up and down with kisses and small licks. "I want to finish you off."'
			if npc_selfish[$boy] = 1:
				'"Fuck that, I want to fuck <i>you!</i>"'
				act'Then I don''t want to do anything':
					cla & *clr
					$sex_ev['bed_room']
					'"Then I don''t want to do anything," you say, pulling away with a harrumph.'
					'"What the fuck! You''re just gonna blue ball me like this?"'
					'"I''m not getting off here either," you say back with irritation. "But I don''t want to fuck today and you won''t settle for a blowjob, so I guess we''re just not gonna do anything today."'
					'"Ugh! You''re impossible!"'
					gs'sex_ev_after', 'quit2'
				end

				act'<i>Fiiiine</i>':
					cla & *clr
					$sex_ev['bed_room']
					'"<i>Fiiiiine,</i>" you roll your eyes, letting out a deep breath. "Let''s get this over with then."'
					sex_ev['position_choose'] = 1
					gs'sex_ev_sex', 'sex_start'
				end
			else
				sex_ev['not_today'] = 1
				if rand(0,1) = 1:
					'"Really?" <<$npc_firstname[$boy]>> asks quizzically. "You want to <i>keep</i> blowing me?"'
				else
					'"What?" <<$npc_firstname[$boy]>> asks quizzically. "Why?"'
				end
				act'Don''t feel like it today':
					cla & *clr
					'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
					'"I don''t know," you shrug, continuing to play with his cock. "I''m just not in the mood. Would rather just do this."'
					'"Well... if that''s what you want I guess," <<$npc_firstname[$boy]>> shrugs back.'
					act'Get back to it':gt'sex_ev_foreplay', 'bj_resume'
				end
				
				act'I like giving head':
					cla & *clr
					'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
					if sex_ev['fuck_count'] > 0:
						'"I like blowjobs," you smile, continuing to play with his cock. "I''m having fun."'
					else
						'"I like blowjobs," you shrug. "I think they''re fun. I just want to keep sucking you."'
						'You give his cock another lick.'
						'"I''m not really in the mood to fuck right now."'
					end
					'"Well... if that''s what you want I guess," <<$npc_firstname[$boy]>> says leaning back as you go back to work.'
					act'Get back to it':gt'sex_ev_foreplay', 'bj_resume'
				end
				
				if mesec > 0:
					act'I''m on my period':
						cla & *clr
						'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
						'"I''m on my period," you sigh. "I feel all crampy and bloaty and gross. Putting something in my bloody vagina sounds like the most unsexy thing in the world right now."'
						'"Well... if that''s what you want I guess," <<$npc_firstname[$boy]>> shrugs back.'
						act'Get back to it':gt'sex_ev_foreplay', 'bj_resume'
					end
				end
				
				if sex_ev['fuck_count'] > 0:
					act'My pussy needs a break':
						cla & *clr
						'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
						'"My pussy needs a break," you smile gently. "I need a little more time to rest before you fuck me again."'
						'"Well... if that''s what you want I guess," <<$npc_firstname[$boy]>> shrugs back.'
						act'Get back to it':gt'sex_ev_foreplay', 'bj_resume'
					end
				end
			end
		end
	end
end

if $ARGS[0] = 'bj_resume':
	gs 'arousal', 'bj',rand(5,10),'no_orgasm_msg'
	gs'stat'
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/blowjob/bj47.mp4"></video></center>'
	'You go back to blowing <<$npc_firstname[$boy]>>, humming to yourself as you relax while bobbing your head up and down the length of his cock.'
	gs 'sex_ev_foreplay', 'bj_sub_cum_sort'
end

if $ARGS[0] = 'bj_sub_cum_sort':
	sex_ev['bj_cum_choice'] = rand(1,20)
	if sex_ev['bj_cum_choice'] > 12 and sex_ev['not_today'] = 0:
		gs 'sex_ev_foreplay', 'bj_sub_lets_fuck'
	elseif rand(1,10) = npc_sex_stamina[$boy] - 1 or (rand(1,10) > npc_sex_stamina[$boy] - 2 and $npc_fav_pos[$boy] = 'blowjob'):
		gs 'sex_ev_foreplay', 'bj_sub_cum_surprise'
	elseif sex_ev['cycle_limit'] >= npc_sex_stamina[$boy]:
		if sex_ev['bj_cum_choice'] > 10 or sex_ev['bj_warning'] = 1:
			gs 'sex_ev_foreplay', 'bj_sub_cum_warn'
		elseif sex_ev['bj_cum_choice'] > 8:
			gs 'sex_ev_foreplay', 'bj_sub_cum_mouth1'
		elseif sex_ev['bj_cum_choice'] > 6:
			gs 'sex_ev_foreplay', 'bj_sub_cum_face1'
		elseif sex_ev['bj_cum_choice'] > 4:
			gs 'sex_ev_foreplay', 'bj_sub_cum_tits1'
		elseif sex_ev['fuck_count'] > 0:
			gs 'sex_ev_foreplay', 'bj_sub_cum_surprise'
		else
			gs 'sex_ev_foreplay', 'bj_sub_cum_warn'
		end
	else
		gs 'sex_ev_foreplay', 'bj_sub1_continue'
	end
end

if $ARGS[0] = 'bj_sub_cum_wait':
	'After a couple more minutes, he taps you on the head.'
	if sex_ev['fuck_count'] = 0:
		'"Wait-! I''m gonna come if you keep that up!" he groans loudly. "I wanna fuck you first."'
	else
		'"Wait-! I''m gonna come if you keep that up!" he groans loudly. "I wanna fuck you again."'
	end
	act'Pull back (sex)':
		sex_ev['must_fuck'] = 1
		cla & *clr
		$sex_ev['bed_room']
		'You pull your mouth off his cock with a pop and a grin on your lips.'
		'"Me too," you say, climbing back onto the bed.'
		gs 'sex_ev_sex', 'sex_start'
	end
	gs 'sex_ev_foreplay', 'bj_sub_cum_hand'
	gs 'sex_ev_foreplay', 'bj_sub_cum_mouth2'
	gs 'sex_ev_foreplay', 'bj_sub_cum_face3'
	gs 'sex_ev_foreplay', 'bj_sub_cum_tits2'
end

if $ARGS[0] = 'bj_end':
	gs 'sex_ev_sex', 'harden_hand'
	gs 'sex_ev_sex', 'harden_mouth'
end


!! --------------------- player''s choices ----------------------------------------------------------------------


if $ARGS[0] = 'foreplay_choose':
	sex_ev['fuck'] = 0
	if $sex_ev['position'] ! 'makeout':gs 'sex_ev_foreplay', 'makeout_dom1'

	if $sex_ev['position'] ! 'handjob' and $sex_ev['position'] ! 'makeout':gs 'sex_ev_foreplay', 'handjob_dom1'

	if $sex_ev['position'] ! 'blowjob':gs 'sex_ev_foreplay', 'bj_dom1'

!!	if $sex_ev['position'] ! '69':gs 'sex_ev_foreplay', '69_dom1'

	if $sex_ev['position'] ! 'facesit':gs 'sex_ev_foreplay', 'facesit_1'
	
	gs 'sex_ev_foreplay', 'kuni_ask'

	act'Let him lead':
		cla & *nl
		if ((npc_caretaker[$boy] = 1 and sex_ev['orgasm_count'] = 0) or npc_pussyeater[$boy] = 1) and rand(1,2) = 1:
			gs 'sex_ev_foreplay', 'generous_initiative'
		elseif npc_selfish[$boy] = 1:
			gs 'sex_ev_foreplay', 'selfish_initiative'
		else
			if rand(0,1) = 1:
				gs 'sex_ev_foreplay', 'generous_initiative'
			else
				gs 'sex_ev_foreplay', 'selfish_initiative'
			end
		end
	end
	
	if sex_ev['fuck_count'] = 0 and $sex_ev['position'] = '':
		act'Skip the foreplay':
			sex_ev['skip_foreplay'] = 1
			gt 'sex_ev_sex', 'sex_pre'
		end
	end
end

if $ARGS[0] = 'foreplay_rand':

end

if $ARGS[0] = 'makeout_dom1':
	if npc_no_kiss[$boy] ! 1:
		act'Make out with him':
			npc_no_kiss[$boy] = 2
			gs'arousal', 'kiss',rand(2,4),'no_orgasm_msg'
			gs'arousal', 'foreplay',-10,'no_orgasm_msg'
			gs'stat'
			$sex_ev['position'] = 'makeout'
			cla & *clr
			if rand(0,1) = 1:
				'<center><video autoplay loop src="images/shared/sex/foreplay/makeout1.mp4"></video></center>'
			else
				'<center><video autoplay loop src="images/shared/sex/foreplay/grope1.mp4"></video></center>'
			end
			if sex_ev['foreplay_change'] >= 1:
				'You crawl over <<$npc_firstname[$boy]>> kissing him passionately while his hands roam all over your body.'
				sex_ev['foreplay_change'] = 2
			else
				sex_ev['foreplay_change'] += 1
				'You push <<$npc_firstname[$boy]>> onto the bed, crawling over him and plunge your tongue into his mouth, kissing him with everything you''ve got while his hands roam all over your body.'
			end
			act'Move your hand to his cock':
				gs'arousal', 'kiss',rand(2,4),'no_orgasm_msg'
				gs'arousal', 'hj',-rand(2,4),'no_orgasm_msg'
				cla & *clr
				'<center><video autoplay loop src="images/shared/sex/foreplay/makeout2.mp4"></video></center>'
				
				'You snake your hand down to his cock and jerk it gently while continuing to make out with him.'
				act'Keep making out':gt'sex_ev_foreplay', 'makeout_dom3'
				act'Withdraw your hand':gt'sex_ev_foreplay', 'makeout_dom2'
				gs 'sex_ev_foreplay', 'foreplay_choose'
				gs 'sex_ev_sex', 'sex_start'
			end
			gs 'sex_ev_foreplay', 'foreplay_choose'
		end
	end
end

if $ARGS[0] = 'makeout_dom2':
	gs'arousal', 'kiss',rand(2,4),'no_orgasm_msg'
	gs'stat'
	if rand(0,1) = 1:
		'<center><video autoplay loop src="images/shared/sex/foreplay/makeout1.mp4"></video></center>'
		'You continue making out with <<$npc_firstname[$boy]>>, loving the taste of his lips and the feel of his tongue against yours.'
	else
		'<center><video autoplay loop src="images/shared/sex/foreplay/grope1.mp4"></video></center>'
		gs'arousal', 'foreplay',-10,'no_orgasm_msg'
		'You continue making out with <<$npc_firstname[$boy]>>, loving the taste of his lips. <<$npc_firstname[$boy]>> can''t keep his hands off of you, groping your breasts while continuing to plunge his tongue down your throat.'
	end
	act'Keep making out':gt'sex_ev_foreplay', 'makeout_dom2'
	act'Move your hand to his cock':gt'sex_ev_foreplay', 'makeout_dom3'
	gs 'sex_ev_foreplay', 'foreplay_choose'
	gs 'sex_ev_sex', 'sex_start'
end

if $ARGS[0] = 'makeout_dom3':
	gs'arousal', 'kiss',rand(2,7),'no_orgasm_msg'
	gs'arousal', 'hj',-rand(2,4),'no_orgasm_msg'
	gs'stat'
	if rand(0,1) = 1:
		'<center><video autoplay loop src="images/shared/sex/foreplay/makeout2.mp4"></video></center>'
		'You continue making out with <<$npc_firstname[$boy]>> while jerking him off, loving the taste of his lips and the feel of his tongue against yours and the hard swell of his cock in your hand.'
	else
		gs'arousal', 'foreplay',-5,'no_orgasm_msg'
		'<center><video autoplay loop src="images/shared/sex/foreplay/grope1.mp4"></video></center>'
		'You continue making out with <<$npc_firstname[$boy]>> while jerking him off, loving the taste of his lips and the hard swell of his cock in your hand. In return, <<$npc_firstname[$boy]>> can''t keep his hands off of you, endlessly groping your breasts while he continues to plunge his tongue down your throat.'
	end
	act'Keep making out':gt'sex_ev_foreplay', 'makeout_dom2'
	act'Withdraw your hand':gt'sex_ev_foreplay', 'makeout_dom2'
	gs 'sex_ev_foreplay', 'foreplay_choose'
	gs 'sex_ev_sex', 'sex_start'
end

if $ARGS[0] = 'handjob_dom1':
	act'Play with his cock (hand)':
		gs'arousal', 'hj',rand(1,4),'no_orgasm_msg'
		gs'stat'
		$sex_ev['position'] = 'handjob'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/handjob/hj2.mp4"></video></center>'
		if sex_ev['foreplay_change'] >= 1:
			'Pulling away, you lay down beside him and start working his shaft with your hand. He''s rock hard in your grip and he moans under your touch.'
			sex_ev['foreplay_change'] = 2
		else
			sex_ev['foreplay_change'] += 1
			'You lay down beside <<$npc_firstname[$boy]>>, taking his shaft in your hand and working it with sensual tugs. He''s rock hard in your grip and he moans under your touch.'
		end

		act'Make him come in your hand':gt'sex_ev_foreplay', 'hj_cum1'
		gs 'sex_ev_foreplay', 'foreplay_choose'
		gs 'sex_ev_sex', 'sex_start'
	end
end

if $ARGS[0] = 'hj_cum1':
	sex_ev['cum_count'] += 1
	sex_ev['cum_hand'] = 1
	gs'cum_call', 'hands',$boy,1
	cla & *clr
	!! change media
	'<center><video autoplay loop src="images/shared/sex/cum/handjob/hand0,1.mp4"></video></center>'
	if $sex_ev['position'] = 'handjob':
		'You feel him tense under your touch and he tries to speak.'
		'"Hang on, wai-"'
		'But before he can finish his sentence, you squeeze harder and speed up. Thick cum erupts from his cock, wads of it flying through the air, streams of it running down your fingers. A dirty grin is plastered across your face as you work his cock with your hand, milking him for every drop.'
	elseif $sex_ev['position'] = 'blowjob':
		'<<$npc_firstname[$boy]>> groans loudly and cum erupts from the tip of his cock. The thick liquid dribbles down your fingers, mixing with your saliva, making his shaft even more slippery in your hand. A dirty grin is plastered across your face the whole time as you work his cock, determined to milk him for every drop.'
	else
		'<<$npc_firstname[$boy]>> groans loudly and cum erupts from the tip of his cock. The thick liquid dribbles down your fingers, making his shaft incredibly slippery in your hand. A dirty grin is plastered across your face the whole time as you work his cock, determined to milk him for every drop.'
	end
	gs 'sex_ev_sex', 'sex_end'
end

if $ARGS[0] = 'bj_dom1':
	act'Play with his cock (mouth)':
		$sex_ev['position'] = 'blowjob_tease'
		sex_ev['bj_tease'] += 1
		gs'arousal', 'bj',rand(2,3),'no_orgasm_msg'
		gs'stat'
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
		if sex_ev['foreplay_change'] >= 1 and sex_ev['bj_count'] >= 1:
			'You move down between <<$npc_firstname[$boy]>>''s legs, dipping your head and using your mouth to play with his cock, licking it, sucking it, kissing it, teasing it, enjoying every little twitch and reaction it elicits from him.'
			sex_ev['foreplay_change'] = 2
		else
			sex_ev['foreplay_change'] += 1
			'You move down between <<$npc_firstname[$boy]>>''s legs, dipping your head and using your mouth to play with his cock, licking it, sucking it, kissing it, teasing it, enjoying every little twitch and reaction it elicits from him.'
		end

		act'Blow him':gt 'sex_ev_foreplay', 'bj_dom2'

		gs 'sex_ev_foreplay', 'foreplay_choose'
	end
end


if $ARGS[0] = 'bj_dom1_tease':
	act'Keep teasing':
		cla & *clr
		gs'arousal', 'bj',rand(1,3),'no_orgasm_msg'
		gs'stat'
		'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
		'You continue swirling your tongue around <<$npc_firstname[$boy]>>, nibbling at the edges so to speak. Every lick causes a twitch. Every kiss, a pulse. His hips roll beneath you, his cock throbs in your hand.'
		if rand(1,10) >= npc_sex_stamina[$boy]:
			'"Hey-!" <<$npc_firstname[$boy]>> grunts. "I''m gonna come if you keep that up."'
		elseif $npc_fav_pos[$boy] = 'blowjob':
			'"Ungh-!" <<$npc_firstname[$boy]>> moans. "Stop teasing me! I want you to blow me for real."'
		else
			'"Ungh-! Fuck-!" <<$npc_firstname[$boy]>> moans. "You''re driving me crazy!"'
		end
		
		gs 'sex_ev_foreplay', 'bj_dom1_cum'

		act'Blow him':gt 'sex_ev_foreplay', 'bj_dom2'

		gs 'sex_ev_sex', 'sex_start'
	end
end

if $ARGS[0] = 'bj_dom1_cum':
	act'Make him come':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
		'<<$npc_firstname[$boy]>>''s warning only makes you want to force him to come even more and you begin rapidly jerking him off and he writhes under your touch. You feel a pulse run through his dick and you know he''s going to come right now.'
		act'Tease him to completion':
			gs 'sex_ev_foreplay', 'bj_dom_tease_cum'
			gs 'sex_ev_sex', 'sex_end'
			*nl
			'"Sorry," you shamelessly grin. "I couldn''t resist."'
		end

		act'In your mouth (swallow)':
			sex_ev['cum_swallow'] += 1
			gs 'sex_ev_foreplay', 'bj_dom_swallow1'
		end

		act'In your mouth (spit)':
			sex_ev['cum_mouth'] = 1
			gs 'sex_ev_foreplay', 'bj_dom_spit1'
		end

!!{				act'On your face':
			sex_ev['cum_face'] = 1
			gs 'sex_ev_foreplay', 'bj_dom_facial1'
			gs 'sex_ev_sex', 'sex_end'
		end}
	end
end

if $ARGS[0] = 'bj_dom2':
	sex_ev['bj_count'] += 1
	sex_ev['cycle_limit'] += 1
	sex_ev['cock_inserted'] = 0
	gs'arousal', 'bj',rand(2,7),'no_orgasm_msg'
	gs'stat'
	'<center><video autoplay loop src="images/shared/sex/blowjob/bj<<rand(46,50)>>.mp4"></video></center>'
	if $sex_ev['position'] = 'blowjob_tease':
		'Deciding he''s had enough teasing, you take <<$npc_firstname[$boy]>> between your lips and begin blowing him in earnest.'
		*nl
	end
	$sex_ev['position'] = 'blowjob'
	'You give him your best head, taking pride in your work, bobbing up and down his shaft and putting in the effort to make <<$npc_firstname[$boy]>> feel good.'
	gs 'sex_ev_foreplay', 'bj_dom_cum_sort'
end

if $ARGS[0] = 'bj_dom_cum_sort':
	if rand(1,10) = npc_sex_stamina[$boy] - 1 or (rand(1,10) > npc_sex_stamina[$boy] - 2 and $npc_fav_pos[$boy] = 'blowjob'):
		gs 'sex_ev_foreplay', 'bj_sub_cum_surprise'
	elseif sex_ev['cycle_limit'] >= npc_sex_stamina[$boy]:
		gs 'sex_ev_foreplay', 'bj_sub_cum_warn'
	elseif rand(1,10) > 7 and $npc_fav_pos[$boy] ! 'blowjob':
		*nl
		'After a few minutes, you feel his hand on your head, trying to slow you down.'
		if sex_ev['fuck_count'] = 0:
			'"Hey-" he grunts. "If you keep that up, I''m gonna come. I still wanna fuck you."'
		else
			'"Hey-" he grunts. "If you keep that up, I''m gonna come. I wanna fuck again."'
		end
		gs 'sex_ev_foreplay', 'bj_dom2_cum_act'
	else
		gs 'sex_ev_foreplay', 'bj_dom2_continue'
	end
end

if $ARGS[0] = 'bj_dom2_continue':
	act'Keep blowing <<$npc_firstname[$boy]>>':
		sex_ev['cycle_limit'] += 1
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/blowjob/bj<<rand(46,50)>>.mp4"></video></center>'
		'You keep blowing <<$npc_firstname[$boy]>>, working his cock with your lips and his shaft with your hand, making sure to add in lots of tongue and drool even more spit.'
		gs 'sex_ev_foreplay', 'bj_dom_cum_sort'
	end
	
	act'Pull back (sex)':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
		sex_ev['must_fuck'] = 1
		'You pull your mouth off his cock with a pop, giving him a lusty stare.'
		if sex_ev['fuck_count'] = 0:
			'"Enough of the foreplay," you say, jerking him gently. "I want you inside me..."'
		else
			'"I''m tired of giving head. <i>I want to fuck you again</i>," you whisper.'
		end
		gs 'sex_ev_sex', 'sex_start'
	end
end

if $ARGS[0] = 'bj_dom2_cum_act':
	act'Pull back (sex)':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
		sex_ev['must_fuck'] = 1
		'You pull your mouth off his cock with a pop, giving him a lusty stare.'
		if sex_ev['fuck_count'] = 0:
			'"If you want to fuck me," you grin, jerking him gently. "Then hurry up and fuck me."'
		else
			'"Then hurry up and get your cock inside me again," you grin, jerking him gently.'
		end
		gs 'sex_ev_sex', 'sex_start'
	end
	
	act'Make him come':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/handjob/hj3.mp4"></video></center>'
		'You ignore his protests and redouble your efforts. His cock twitches in your mouth. His hips squirm beneath you. You can even feel him clenching his muscles through his balls. Unable to suppress a smile even with your lips still around his cock, you can tell he''s about to come.'
		*nl
		'You pull your mouth away and you grab hold of his manhood, jerking his cock rapidly, still slick with your saliva.'
		*nl
		if $npc_lovername[$boy] = '':
			'"I want you to come for me <<$npc_firstname[$boy]>>," you whisper sensually. "Come on <<$npc_firstname[$boy]>>! Come on, come on, come on, come on!"'
		else
			'"I want you to come for me <<$npc_lovername[$boy]>>," you whisper sensually. You feel him tense up and you know he''s going to blow any moment. "Come on <<$npc_lovername[$boy]>>! Come on, come on, come on, come on!"'
		end
		'A single pulse courses through his cock and you know he''s about to blow.'
		act'Make him come in your hand':gt'sex_ev_foreplay', 'hj_cum1'

		act'Tease him to completion':gt 'sex_ev_foreplay', 'bj_dom_tease_cum'

		act'In your mouth':
			sex_ev['cum_swallow'] += 1
			gs 'sex_ev_foreplay', 'bj_dom_swallow1'
		end

!!		act'On your face':
!!			gs 'sex_ev_foreplay', 'bj_dom_facial1'
!!			gs 'sex_ev_sex', 'sex_end'
!!		end
	end

!!{		act'Do something else':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/blowjob/bj47.mp4"></video></center>'
		'You give it a go for a good few minutes before giving him one last mighty slurp and pull back.'
		*nl
		'"How about we do something else?" you ask.'
		'"What did you have in mind?"'
		gs 'sex_ev_foreplay', 'foreplay_choose'

		gs 'sex_ev_sex', 'sex_start'
	end}
end


if $ARGS[0] = 'bj_dom_tease_cum':
	cla & *clr
	gs'cum_call', 'hands',$boy,1
	$sex_ev['cum_choice'] = 'hand'
	sex_ev['cum_count'] += 1
	'<center><video autoplay loop src="images/shared/sex/cum/tease_cum1.mp4"></video></center>'
	'Angling the tip of his cock away from your face and lick the shaft of his cock, moving your tongue in small teasing circles. Seconds later, cum erupts from the tip and he buckles beneath you. You can''t help but smirk at his expression as you feel the warm liquid dribble down his shaft and across your fingers.'
	gs 'sex_ev_sex', 'sex_end'
end

if $ARGS[0] = 'bj_dom_spit1':
!!	sex_ev['cum_mouth_ask'] += 1
	gs'cum_call', 'mouth',$boy,1
	sex_ev['swallow'] = 1
	$sex_ev['cum_choice'] = 'mouth'
	sex_ev['cum_count'] += 1
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/cum/mouth/swallow5.mp4"></video></center>'
	'You quickly wrap your lips around his cock and plunge down as far as you can go. Not even a second later, he explodes in your mouth, shaft pulsing between your lips, warm liquid splashing against your tonsils. You hold yourself there, humming as <<$npc_firstname[$boy]>> buckles beneath you, waiting until he''s ridden his orgasm to completion.'
	gs 'sex_ev_foreplay', 'bj_dom_spit2'
end

if $ARGS[0] = 'bj_dom_spit2':
	act'Spit':
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/spit6.mp4"></video></center>'
		'Once you''re pretty sure he''s done, you draw your head back up <<$npc_firstname[$boy]>>''s cock, letting his cum spill from your lips along the way. You watch it run back down his shaft and look up at <<$npc_firstname[$boy]>>, giving him a cum drip smile.'
		gs 'sex_ev_sex', 'sex_end'
	end
end

if $ARGS[0] = 'bj_dom_swallow1':
!!	sex_ev['cum_mouth_ask'] += 1
	sex_ev['swallow'] = 1
	$sex_ev['cum_choice'] = 'mouth'
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/cum/mouth/deep1.mp4"></video></center>'
	'You quickly wrap your lips around his cock and plunge down as far as you can go. Not even a second later, he explodes in your mouth, shaft pulsing between your lips, warm liquid splashing against your tonsils. You hold yourself there, eyes tearing up as you let him ride out his orgasm halfway down your throat.'
	gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_spit'
	act'Gulp':
		gs'cum_call', 'mouth_swallow',$boy,1
		sex_ev['cum_count'] += 1
		cla & *clr
		'<center><video autoplay loop src="images/shared/sex/cum/mouth/deep2.mp4"></video></center>'
		'Carefully, very carefully, you slowly draw your lips back up <<$npc_firstname[$boy]>>''s cock, sucking the whole time to make sure not a single drop of his cum spills around your lips. It''s really difficult to keep sucking and not choke on the cum pooling at the back of your throat. The effort makes your eyes water, but you still manage to draw all the way back up to his tip where you finally swallow his load and get your first gasp of clean air.'
		act'Continue':gt 'sex_ev_foreplay', 'bj_dom_swallow_react'
	end
end

if $ARGS[0] = 'bj_dom_swallow_react':
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/blowjob/play1.mp4"></video></center>'
	if npc_cum_pref[$boy] = 2 and npc_cum_pref_know[$boy] = 0:
		'"Holy..." <<$npc_firstname[$boy]>> lets his head fall back onto his pillow, his mind seemingly blown by your blowjob skills. Taking satisfaction in a job well done, you continue teasing his cock, running your lips up and down its shaft, peppering it with kisses. "That was incredible..."'
		'"Mmmm?" you hum pleasantly. "You liked it that much?"'
		'"Like you sucked the soul outta me," he smiles tiredly. "I love the feeling of blowing a load in a girl''s mouth like that, but that was something else."'

		act'You like oral creampies?':
			cla & *nl
			npc_cum_pref_know[$boy]= npc_cum_pref[$boy]
			'"You really like to come in my mouth that much?" you ask, giving his shaft another kiss.'
			'"Yeah," he sighs. "Even better than nutting inside a pussy."'
			act'Good to know':
				cla & *nl
				'"Good to know," you smirk, running your tongue across his tip.'
				gs 'sex_ev_sex', 'sex_end'
			end

			act'I like it too':
				cla & *nl
				'"I like it too," you smirk, running your tongue across his tip. "Guess we both got what we wanted."'
				gs 'sex_ev_sex', 'sex_end'
			end

			act'I''ll keep it in mind':
				cla & *nl
				'"I''ll keep that in mind then," giving <<$npc_firstname[$boy]>> a mischievous smirk and running your tongue across his tip.'
				gs 'sex_ev_sex', 'sex_end'
			end
		end

		act'Lucky you':
			cla & *nl
			if sex_ev['prostitution'] = 0:
				'"Lucky you," you smirk, giving his tip another gentle suck before letting it pop from your mouth. "You got a blowjob specialist, free of charge."'
			else
				'"Lucky you," you smirk, giving his tip another gentle suck before letting it pop from your mouth. "You ordered the right girl for the job then."'
			end
			gs 'sex_ev_sex', 'sex_end'
		end
	else
		if npc_cum_pref[$boy] = 2 and npc_cum_pref_know[$boy] = npc_cum_pref[$boy]:
			'"Woah," <<$npc_firstname[$boy]>>''s head flops onto the pillow, while you continue to play with his cock, still twitching in the throes of post-orgasm bliss. "Your mouth is so fucking good."'
			act'I know you love oral creampies':
				cla & *nl
				'"I know how much you love coming in my mouth," you smirk, peppering his shaft with kisses. "Thought I''d give you a treat and suck you dry."'
				'"You''re the best," he pants.'
				'"I know that too," you grin, giving his tip another lick.'
				gs 'sex_ev_sex', 'sex_end'
			end
		else
			'"Woah," <<$npc_firstname[$boy]>>''s head flops onto the pillow, while you continue to play with his cock, still twitching in the throes of post-orgasm bliss. "That was great."'
		end

		act'I know':
			cla & *nl
			'"Don''t need to tell me how good I am at giving head," you smirk, giving his shaft another lick. "I already know I''m the best."'
			gs 'sex_ev_sex', 'sex_end'
		end

		act'Glad you enjoyed it':
			cla & *nl
			'"Glad you enjoyed the ride," you smirk, giving his shaft another lick.'
			gs 'sex_ev_sex', 'sex_end'
		end

		act'Return the favor?':
			cla & *nl
			'"Well, if you really want to show you''re grateful," you smirk. "How about you return the favor?"'
			if npc_generous[$boy] = 1 or npc_pussyeater[$boy] = 1:
				'"I''d love to," he smiles and flips you over onto your back.'
				act'Spread your legs ':gt 'sex_ev_foreplay', 'pussy_lick'
				act'Mount his face instead':
					cla & *clr
					$sex_ev['bed_room']
					'"Nuh uh," you grin, grabbing him with your thighs and twisting both of you around so you''re on top. "I don''t want it like that."'
					'You throw your knees down on each side of his head and lower your pussy onto his face.'
					act'Make him eat you out':gt 'sex_ev_foreplay', 'facesit_2'
				end
			elseif npc_selfish[$boy] = 1:
				'"Nah," he says. "I think I''m good."'
				gs 'sex_ev_sex', 'sex_end'
				act'Wasn''t asking':
					cla & *clr
					$sex_ev['bed_room']
					'"I wasn''t asking," you say and push him backwards onto the bed. Before he can even protest, you throw your thighs over his head and drop your hips, mounting his face.'
					act'Make him eat you out':gt 'sex_ev_foreplay', 'facesit_2'
				end
			else
				if rand(1,10) < npc_sexdrive[$boy]:
					'"I guess I could," he says, gently rolling you onto your back. "It''s only fair after all."'
					act'Spread your legs ':gt 'sex_ev_foreplay', 'pussy_lick'
					act'Mount his face instead':
						cla & *clr
						$sex_ev['bed_room']
						'"Nuh uh," you grin, grabbing him with your thighs and twisting both of you around so you''re on top. "I don''t want it like that."'
						'You throw your knees down on each side of his head and lower your pussy onto his face.'
						act'Make him eat you out':gt 'sex_ev_foreplay', 'facesit_2'
					end
				else
					'"I don''t know if I can," he mumbles. "I''m feeling kind of tapped out to be honest..."'
					gs 'sex_ev_sex', 'sex_end'
					act'Wasn''t asking':
						cla & *clr
						!! IMAGE HERE
						$sex_ev['bed_room']
						'"That doesn''t mean your tongue stops working," you say, shoving him down and throwing your thighs over his shoulders.'
						'"And I wasn''t asking," you say, shoving your pussy into his face.'
						act'Make him eat you out':gt 'sex_ev_foreplay', 'facesit_2'
					end
				end
			end
		end
	end
end

!!if $ARGS[0] = 'bj_dom_facial1':
!!	sex_ev['cum_face_force'] += 1
!!	cla & *clr
!!
!!end

if $ARGS[0] = '69_dom1':
!!{	act'69 him':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/shared/sex/69/pre1.jpg"></center>'
		$sex_ev['position'] = '69'
		if sex_ev['foreplay_change'] >= 1:
			'You crawl towards <<$npc_firstname[$boy]>>, throwing your legs over his head and scooching your ass over his head. Grinning, you lower your hips down to his face while simultaneously grabbing his cock and preparing it for your mouth.'
			sex_ev['foreplay_change'] = 2
		else
			sex_ev['foreplay_change'] += 1
			'You push <<$npc_firstname[$boy]>> back onto the bed and throw your legs over him, reversing yourself in the process, and scooch your ass back towards him. Grinning, you lower your hips down to his face while simultaneously grabbing his cock and preparing it for your mouth.'
		end

	end}
end

if $ARGS[0] = 'facesit_1':
	act'Sit on his face':
		cla & *clr
		$sex_ev['bed_room']
		$sex_ev['position'] = 'facesit'
		sex_ev['facesit_count'] += 1
		if sex_ev['foreplay_change'] >= 1:
			'You pull away from <<$npc_firstname[$boy]>>''s cock, crawling forward until your legs are over his head. You lower your pussy down onto his mouth with a dirty grin.'
			'"I think it''s time for me to get a little tender loving care."'
			sex_ev['foreplay_change'] = 2
		else
			sex_ev['foreplay_change'] += 1
			'You push <<$npc_firstname[$boy]>> back onto the bed and throw your legs over his head. You lower your pussy down onto his mouth with a dirty grin.'
			'"I think it''s time for me to go for a ride."'
		end
		act'Make him eat you out':gt 'sex_ev_foreplay', 'facesit_2'
	end
end

if $ARGS[0] = 'facesit_2':
	gs 'arousal', 'cuni', rand(4,8),'no_orgasm_msg'
	gs'stat'
	'<center><video autoplay loop src="images/shared/sex/facesit/1.mp4"></video></center>'
	'You press your pussy right onto <<$npc_firstname[$boy]>>''s face, forcing it between his lips. He immediately complies, sucking gently on your sex while running his tongue through the folds of your pussy to caress your clit.'
	*nl
	'It feels so good, your eyes roll back in your skull and you can''t help but grab him by the hair, trying to force his face harder into your pussy. Heat courses through your hips and somewhere in the back of your mind, you wonder if it''s possible to drown a man with girl cum.'

	if orgasm > sex_ev['orgasm']:
		sex_ev['orgasm'] = orgasm
		act'Continue':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/facesit/orgasm1.mp4"></video></center>'
			'Euphoric pressure builds and builds inside you until you can''t contain it anymore. All it takes is <<$npc_firstname[$boy]>>''s tongue brushing against your clit in <i>just</i> the right way, and suddenly you''re coming, body racked with spasms as you claw the bedsheets uncontrollably while you ride out your orgasm.'
			*nl
			if npc_pussyeater[$boy] > 0:
				'After a short time, you feel the waves of climax subsiding but without warning, permission, or invitation, <<$npc_firstname[$boy]>> begins working your pussy with his tongue again, diving in deep and sending goosebumps across your skin.'

				act'Let him keep going':gt 'sex_ev_foreplay', 'facesit_3'

				act'Let''s do something else':
					cla & *clr
					$sex_ev['bed_room']
					'"Hold your horses cowboy," you grin. "I <i>love</i> your tongue, but how about we do something else instead?"'
					gs 'sex_ev_foreplay', 'foreplay_choose'
				end
				gs 'sex_ev_sex', 'sex_start'
			else
				'After a short time, you feel the waves of climax subsiding as you breath hard and lean forward, releasing his face from between your thighs.'
				gs 'sex_ev_foreplay', 'foreplay_choose'
				gs 'sex_ev_sex', 'sex_start'
			end
		end
	else
		!! 'You enjoy letting him eat you out, holding his face tight against your pussy.'
		act'Keep going until you cum':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/facesit/orgasm1.mp4"></video></center>'
			'His mouth firmly planted between your lips'
			'"Oh <i>fu-!</i>"'
			if npc_pussyeater[$boy] > 0:
				'Before you can say anything, he starts eating you out again.'

				act'Let him':gt 'sex_ev_foreplay', 'facesit_3'

				act'Let''s do something else':
					cla & *clr
					$sex_ev['bed_room']
					'"Hold your horses cowboy," you grin. "I love your tongue, but how about we do something else?"'
					gs 'sex_ev_foreplay', 'foreplay_choose'
				end
			else
				'You wind down, pulling back from his face.'
				gs 'sex_ev_foreplay', 'foreplay_choose'
			end
			gs 'sex_ev_sex', 'sex_start'
		end

		gs 'sex_ev_foreplay', 'foreplay_choose'

		gs 'sex_ev_sex', 'sex_start'
	end
end

if $ARGS[0] = 'facesit_3':
	'<center><video autoplay loop src="images/shared/sex/facesit/1.mp4"></video></center>'

	if orgasm > sex_ev['orgasm_limit']:
		cla & *clr
		$sex_ev['bed_room']
		'<<$npc_firstname[$boy]>>''s tongue caresses your pussy again, but this time instead of pleasure, the shocks it sends through you are like needles through your clit. You cry out, caught between pain and ecstasy but much further towards pain. His tongue touches you again and you reflexively buck your hips away from his face. <<$npc_firstname[$boy]>> looks up at you from between your legs, confused.'
		*nl
		'"What''s wrong?" he asks. "I thought you were enjoying that."'
		'"I- I was..." you pant. "But my pussy is too sensitive now." You manage a smile down at him. "You made me come too many times in a row. I don''t think I can take it any more. I need a break."'
		gs 'sex_ev_sex', 'sex_end'
	else
		'<<$npc_firstname[$boy]>>''s tongue keeps going like a pussy-eating machine, never stopping, and always making sure to give the little man in the boat the attention he deserves.'

		act'Come again':
			$orgasm_or = 'yes'
			gs 'arousal', 'cuni', rand(2,5),'no_orgasm_msg'
			gs'stat'
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/facesit/orgasm1.mp4"></video></center>'
			'Within minutes, <<$npc_firstname[$boy]>> has you spasming around his mouth again.'
			*nl
			if npc_pussyeater[$boy] > 0:
				'But <<$npc_firstname[$boy]>> still doesn''t stop, and continues to lap up your juices like he''s dying of thirst.'
				if sex_ev['cuni_orgasm'] < 5:
					act'Let him keep going':gt 'sex_ev_foreplay', 'facesit_3'
				end
				
				gs 'sex_ev_foreplay', 'cuni_too_sensitive'

				act'Let''s do something else':
					$orgasm_or = ''
					cla & *clr
					$sex_ev['bed_room']
					'"Hold your horses cowboy," you grin. "I love your tongue, but how about we do something else?"'
					gs 'sex_ev_foreplay', 'foreplay_choose'
				end

				gs 'sex_ev_sex', 'sex_start'
			else
				'"How about we do something else now?" <<$npc_firstname[$boy]>>asks as your orgasm winds down.'

				gs 'sex_ev_foreplay', 'foreplay_choose'

				gs 'sex_ev_sex', 'sex_start'
			end
		end

		gs 'sex_ev_foreplay', 'foreplay_choose'

		gs 'sex_ev_sex', 'sex_start'
	end
end


!! --------------------- transition stuff ---------------------------------------------------

if $ARGS[0] = 'transition1':
	act'Continue':
		cla & *clr
		$sex_ev['bed_room']
		gs 'sex_ev_foreplay_desc', 'transition1_desc'
		act'Let him':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/blowjob/bj51.mp4"></video></center>'
			'Relaxing your jaw, you let his cock part your lips and slowly slip into inside your mouth.'
			act'Blowjob':gt 'sex_ev_foreplay', 'bj_sub2'
		end
		if stat['think_virgin'] = 1 and sex_ev['fuck_count'] = 0:
			act'Take my virginity':gt'sex_ev_virgin', 'start1'
		else
			act'Fuck instead?':
				cla & *nl
				'"Uhh, no," you say, turning your head away with a smirk. "How about we fuck instead?"'
				'"I won''t say no to that," <<$npc_firstname[$boy]>> grins back.'
				gs 'sex_ev_sex', 'reset'
				gs 'sex_ev_condoms', 'condoms'
				gs 'sex_ev_sex', 'position_change'
			end
		end
	end
end

if $ARGS[0] = 'transition2':
	act'End it there':
		cla & *clr
		$sex_ev['bed_room']
		'"I think I''m done there," you pant.'
		'"What the hell?" <<$npc_firstname[$boy]>> protests. "How is that fair? Only you got off!"'
		act'Ugh, fine (blowjob)':
			cla & *nl
			'"Ugh," you moan irately. "<i>Fine</i>. Come here," you say rolling over and bending your head down towards his cock.'
			gs 'sex_ev_foreplay', 'bj_dom1'
		end

		act'Ugh, fine (sex)':
			cla & *nl
			'"Ugh," you moan irately. "<i>Fine</i>."'
			'You turn around, laying back on the bed and spreading your legs. "I guess I can let you fuck me before we stop."'
			sex_ev['position_choose'] = 1
			gs 'sex_ev_sex', 'sex_start'
		end

		act'Sorry, I''m done':gs 'sex_ev_after', 'finish'

		act'Blow him':
			cla & *nl
			'"You''re right," you smile apologetically. "It''s only fair that I get you off too. Here, just let me..."'
			'You kneel down, taking his cock into your mouth.'
			gs 'sex_ev_foreplay', 'bj_dom1'
		end
		gs 'sex_ev_sex', 'sex_start'
	end
end


--- sex_ev ---------------------------------