glife/locations/sex_ev_events.qsrc

# sex_ev_events
!! for special events

if $ARGS[0] = 'sex_film_code':
	if sex_ev['phone_film'] = 0 and npc_sex_filmer[$boy] = 1 and rand(1,20) < npc_sexdrive[$boy]: gt 'sex_ev_events', 'sex_film1'
end

if $ARGS[0] = 'sex_film1':
	sex_ev['phone_film'] = 1
	cla & *clr
	'<center><video autoplay loop src="images/shared/sex/vag/miss/hard5.mp4"></video></center>'
	'You''re panting in time with <<$npc_firstname[$boy]>>''s thrusts on top of you when you suddenly become aware of a glow coming from above you. <<$npc_firstname[$boy]>> has his phone out. And it''s pointed directly at you.'
	gs 'sex_ev_events', 'sex_film_protest'
	gs 'sex_ev_events', 'sex_film_accept'
end

if $ARGS[0] = 'sex_film_protest':
	act'Cover your face':
		cla
		act'Shy':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
			'"Hngh~! Ungh~! <<$npc_firstname[$boy]>>, nooo~!" you protest weakly. A flush of total embarrassment burns through your cheeks and you hold your hand up in a futile attempt to block the view of your quickly reddening face.'
			if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
				'"Smile for the camera," <<$npc_firstname[$boy]>> grins, still fucking you as he holds the camera right up to you.'
			else
				'"Fuck, you look so hot," <<$npc_firstname[$boy]>> grins, still fucking you as he holds the camera right up to you.'
			end
			
			act'Let him film you (reluctant)':
				sex_ev['phone_film'] = 2
				$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
				if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
					$sex_video_dialogue[] = '"Hngh~! Ungh~! <<$npc_firstname[$boy]>>, nooo~!"<br>"Smile for the camera."'
				else
					$sex_video_dialogue[] = '"Hngh~! Ungh~! <<$npc_firstname[$boy]>>, nooo~!"<br>"Fuck, you look so hot."'
				end
				cla & *clr
				'<center><video autoplay loop src="images/shared/sex/vag/miss/hard2.mp4"></video></center>'
				'With great reluctance, you silence your protests and let <<$npc_firstname[$boy]>> film you getting fucked by him. Though you still can''t stop yourself from shamefully (and ineffectively) trying to cover your face.'
				*nl
				'You can''t help but breathe a sigh of relief when he finally puts the phone away. But only after getting a decently long video...'
				gs 'sex_ev_events', 'sex_film_end'
			end
			
			act'Keep protesting':
				if npc_caretaker[$boy] > 0:
					cla & *clr
					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
					'"Please~! Mmph~! I don''t want to be filmed~!" you whine as cold panic fills your chest.'
					'The look on <<$npc_firstname[$boy]>>''s face changes with your continued protests and he blinks, as if only just now aware of what he''s doing.'
					'"Oh. Er... sorry," he mumbles. You sigh in relief as he pauses fucking you to put away the phone.'
					'"You''ll delete it later, right?" you ask.'
					'"I will," he promises with a smile.'
					!! if npc_abusive[$boy] > 0: he doesn''t delete it
					!! $sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
					!! $sex_video_dialogue[] = 'Please~! Mmph~! I don''t want to be filmed~!'
					!! $sex_video_author[] = $boy
				else
					$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
					if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
						$sex_video_dialogue[] = '"Hngh~! Ungh~! <<$npc_firstname[$boy]>>, nooo~!"<br>"Smile for the camera."<br>"Please~! Mmph~! I don''t want to be filmed~!"<br>"Come on, don''t be like that. You look so sexy. This is hot."'
					else
						$sex_video_dialogue[] = '"Hngh~! Ungh~! <<$npc_firstname[$boy]>>, nooo~!"<br>"Fuck, you look so hot."<br>"Please~! Mmph~! I don''t want to be filmed~!"<br>"Come on, don''t be like that. You look so sexy. This is hot."'
					end
					
					$sex_video_author[] = $boy
					sex_ev['phone_film'] = 2
					cla & *nl
					'"Please~! Mmph~! I don''t want to be filmed~!" you whimper again, feeling cold panic fill your chest.'
					'"Come on, don''t be like that," <<$npc_firstname[$boy]>> says, ignoring your pleas. "This is great. You look so sexy."'
					*nl
					'Your weak protests do nothing to sway him and he takes a decently long video of you getting railed before he finally puts the phone away.'
				end
				gs 'sex_ev_events', 'sex_film_end'
			end
			
			gs 'sex_ev_events', 'sex_film_force_stop'
		end
		
		act'Annoyed':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
			'"Ungh~! Hmph~! Hey! What do you think you''re doing?" you grunt as he pushes the camera towards your face and you immediately try to cover up with your hand.'
			'"Don''t worry, you look great," <<$npc_firstname[$boy]>> grins, still fucking you as he films.'
			act'Let him film you (reluctant)':
				$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What do you think you''re doing?"<br>"Don''t worry, you look great."'
				sex_ev['phone_film'] = 2
				cla & *clr
				'<center><video autoplay loop src="images/shared/sex/vag/miss/hard2.mp4"></video></center>'
				'With great reluctance, you silence your protests and let <<$npc_firstname[$boy]>> film you getting fucked by him. Though you still can''t stop yourself from shamefully (and ineffectively) trying to cover your face.'
				*nl
				'You can''t help but breathe a sigh of relief when he finally puts the phone away. But only after getting a decently long video...'
				gs 'sex_ev_events', 'sex_film_end'
			end
			
			act'Keep protesting':
				if npc_caretaker[$boy] > 0:
					cla & *clr
					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
					'"Seriously~! Nngh~! Stop it~!" you complain loudly, feeling hot with self consciousness and annoyance.'
					'The look on <<$npc_firstname[$boy]>>''s face changes with your continued protests and he blinks, as if only just now aware of what he''s doing.'
					'"Oh. Er... sorry," he mumbles. You sigh in relief as he pauses fucking you to put away the phone.'
					'"Make sure to delete it later," you tell him sternly.'
					'"I will," he promises with a smile.'
					!! if npc_abusive[$boy] > 0: he doesn''t delete it
					!! $sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
					!!$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What do you think you''re doing?"<br>"Don''t worry, you look great."<br>"Seriously~! Nngh~! Stop it~!"'
					!! $sex_video_author[] = $boy
				else
					$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
					$sex_video_author[] = $boy
					sex_ev['phone_film'] = 2
					cla & *nl
					'"Seriously~! Nngh~! Stop it~!" you keep protesting, face hot with self consciousness and annoyance.'
					if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
						$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What do you think you''re doing?"<br>"Don''t worry, you look great."<br>"Seriously~! Nngh~! Stop it~!"<br>"You''re so hot when you''re mad."'
						'"You''re so hot when you''re mad," <<$npc_firstname[$boy]>> says, grin growing wider while ignoring your pleas.'
					else
						$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What do you think you''re doing?"<br>"Don''t worry, you look great."<br>"Seriously~! Nngh~! Stop it~!"<br>"Come on, don''t be that way. You look so sexy. This is hot."'
						'"Come on, don''t be that way," <<$npc_firstname[$boy]>> says, ignoring your pleas. "You look so sexy. This is hot."'
					end
					*nl
					'Your irritation with <<$npc_firstname[$boy]>> do nothing to sway him and he takes a decently long video of you getting railed before he finally puts the phone away.'
				end
				gs 'sex_ev_events', 'sex_film_end'
			end
			gs 'sex_ev_events', 'sex_film_force_stop'
		end
		
		act'Angry':
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
			'"Ungh~! Hmph~! Hey! What the fuck!" you scream as you realize what he''s doing and immediately try to cover up with your hand.'
			'"Don''t worry, you look great," <<$npc_firstname[$boy]>> grins, still fucking you as he films.'
			act'Let him film you (reluctant)':
				sex_ev['phone_film'] = 2
				$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
				$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What the fuck!"<br>"Don''t worry, you look great."'
				$sex_video_author[] = $boy
				cla & *clr
				'<center><video autoplay loop src="images/shared/sex/vag/miss/hard2.mp4"></video></center>'
				'You let <<$npc_firstname[$boy]>> film you getting fucked by him, fuming in silence, occasionally turning to cover your face just to spite him.'
				*nl
				'You can''t help but breathe a sigh of relief when he finally puts the phone away. But only after getting a decently long video...'
				gs 'sex_ev_events', 'sex_film_end'
			end
			
			act'Keep protesting':
				if npc_caretaker[$boy] > 0:
					cla & *clr
					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
					'"Fuck off~! Put that thing away~!" you shout, steaming hot with anger.'
					'The look on <<$npc_firstname[$boy]>>''s face changes with your continued protests and he blinks, as if only just now aware of what he''s doing.'
					'"Oh. Er... sorry," he mumbles. You sigh in relief as he pauses fucking you to put away the phone.'
					'"Make sure to delete it later," you tell him sternly.'
					'"I will," he promises with a smile.'
					!! if npc_abusive[$boy] > 0: he doesn''t delete it
					!! $sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
					!!$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What the fuck! Fuck off~! Put that thing away~!"'
				else
					$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/hard3.mp4"></video></center>'
					$sex_video_author[] = $boy
					sex_ev['phone_film'] = 2
					cla & *nl
					'"Fuck off~! Put that thing away~!" you shout, steaming hot with anger.'
					if npc_arrogant[$boy] > 0 or npc_assertive[$boy] > 0 or npc_abusive[$boy] > 0:
						$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What the fuck!"<br>"Don''t worry, you look great."<br>"Fuck off~! Put that thing away~!"<br>"You''re so hot when you''re mad."'
						'"You''re so hot when you''re mad," <<$npc_firstname[$boy]>> says, grin growing wider while ignoring your pleas.'
					else
						$sex_video_dialogue[] = '"Ungh~! Hmph~! Hey! What the fuck!"Ungh~! Hmph~! Hey! What the fuck!"<br>"Don''t worry, you look great."<br>"Fuck off~! Put that thing away~!"<br>"Come on, don''t be that way. You look so sexy. This is hot."'
						'"Come on, don''t be that way," <<$npc_firstname[$boy]>> says, ignoring your pleas. "You look so sexy. This is hot."'
					end
					*nl
					'He takes a decently long video of you getting railed, screaming in rage the whole time, before he finally puts the phone away.'
				end
				gs 'sex_ev_events', 'sex_film_end'
			end
			gs 'sex_ev_events', 'sex_film_force_stop'
		end
	end
end

if $ARGS[0] = 'sex_film_force_stop':
	gs 'willpower', 'misc', 'force'
	if will_cost <= pcs_willpwr:
		act 'Make him put the phone away (<<will_cost>> Willpower)':
			sex_ev['phone_film'] = -1
			cla & *clr
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss1.jpg"></center>'
			'"Seriously, knock it off!" you snap, practically slapping the phone out of his hand as you grab it. You stop the recording and immediately hit the gallery button to delete the video. "Asshole..." you mutter as you toss the phone far away from the bed as well, all without removing <<$npc_firstname[$boy]>> from inside you.'
			act'"Way to kill the mood"':
				cla & *clr
				$sex_ev['bed_room']
				sex_ev['cock_inserted'] = 0
				'"Way to kill the mood, asshole," you scowl at <<$npc_firstname[$boy]>> as you push him off and out of you. "I''m done here."'
				gs'sex_ev_after', 'quit2'
			end
			
			act'Keep going':
				cla & *clr
				'<center><img <<$set_imgh>> src="images/shared/sex/vag/4.jpg"></center>'
				'"Finally," you sigh in relief. "Don''t do that again. Now get back to fucking me already."'
				gs'sex_ev_sex', 'fuck_continue'
			end
			
			gs'sex_ev_after', 'quit'
		end
	else
		act 'Make him put the phone away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
end

if $ARGS[0] = 'sex_film_accept':
	act'Let him film':
		sex_ev['phone_film'] = 2
		!!if pcs_traits['exhibitionism'] > 0:
		if Exhibitionist_lvl > 0: gs 'arousal', 'vaginal', -5, 'no_orgasm_msg', 'exhibitionism'
		cla
		act'Blush':
			$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
			$sex_video_dialogue[] = '"Mmph~! Mmph~! Mmm~! Nnn~!"<br>"You''re so fucking hot."'
			$sex_video_author[] = $boy
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
			'Your cheeks flush with warmth as you realize what <<$npc_firstname[$boy]>>''s doing and turn your face in embarrassment but don''t make any complaints.'
			'"Mmph~! Mmph~! Mmm~! Nnn~!" Each pump of his cock inside you forces sheepish squeaks from your lips as you get caught between self-consciousness and pleasure.'
			'"You''re so fucking hot,"  <<$npc_firstname[$boy]>> grins, continuing to fuck and film at the same time.'
			*nl
			'After a few minutes, he puts his phone away.'
			gs 'sex_ev_sex', 'fuck_continue'
		end
		
		act'Ignore the camera':
			$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
			$sex_video_dialogue[] = '"Hah~! Haa~! Ah~! Haa~!"<br>"You''re so fucking hot."'
			$sex_video_author[] = $boy
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy1.mp4"></video></center>'
			'"Hah~! Haa~! Ah~! Haa~!" You ignore the camera completely, focusing on <<$npc_firstname[$boy]>>''s cock pumping inside you and just try to stay the moment, letting moans escape your lips as they come. If he wants to film it, he can do what he wants.'
			'"You''re so fucking hot,"  <<$npc_firstname[$boy]>> grins, continuing to fuck and film at the same time.'
			*nl
			'After a few minutes, he puts his phone away.'
			gs 'sex_ev_sex', 'fuck_continue'
		end
		
		act'Put on a show':
			$sex_video[] = '<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy2.mp4"></video></center>'
			$sex_video_dialogue[] = '"Aaah~! I''m so wet~! Ungh~! Your cock feels so good~! OhmygodI''mgonnacome~!"<br>"Yeah you like that?"<br>"Don''t stop~! Don''t stop~!"'
			$sex_video_author[] = $boy
			cla & *clr
			'<center><video autoplay loop src="images/shared/sex/vag/miss/enjoy2.mp4"></video></center>'
			'"Aaah~! I''m so wet~! Ungh~! Your cock feels so good~! OhmygodImgonnacome~!"'
			if $sex_ev['fuck_enjoyment'] = 'enjoy':
				'Unable to resist putting on a show, you turn up the volume on your moaning and dirty talk. You shake your tits and arch your back, putting extra emphasis on your pleasure.'
			else
				'Unable to resist putting on a show, you turn on the moaning and the dirty talk. You shake your tits and arch your back with pleasure you aren''t really feeling.'
			end
			'"Yeah you like that?"  <<$npc_firstname[$boy]>> grins'
			'"Don''t stop~! Don''t stop~!" you moan back.'
			'Seeming extra excited by what you''re doing and makes sure to capture every moment of it, sending the lens up and down your body from where he fucks your pussy back up to your flushed face.'
			*nl
			'After a few minutes of filming, he puts his phone away.'
			gs 'sex_ev_sex', 'fuck_continue'
		end
		
		!!{if sex_ev['prostituion_flag'] > 0:
			act'This costs extra':
				
			end
		end}
	end
end

if $ARGS[0] = 'sex_film_end':
	if (npc_abusive[$boy] = 1 or rand(1,3) = 1) and npc_caretaker[$boy] > 1 and sex_ev['phone_film'] ! -1:gs 'fame', 'sex', $region, 5
	gs 'sex_ev_cum', 'fuck_cum'
end

if $ARGS[0] = 'offer_ciga1':
	*nl
	'"You want one?" he asks, holding the open packet towards you.'
	if smoker > 20:
		gs 'willpower', 'drugs', 'self', 'medium'
		if will_cost <= pcs_willpwr:
			act'Trying to quit (<<will_cost>> Willpower)':
				cla & *clr
				'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke2.jpg"></center>'
				'"I''m trying to quit," you reply ruefully.'
				'<<$npc_firstname[$boy]>> nods and pulls one out for himself to light up. As the end catches fire, he takes a long pull before exhaling a cloud of smoke in deep satisfaction'
				gs 'sex_ev_after', 'after_sex2'
			end
		else
			act 'Trying to quit (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	else
		act'No thanks':
			cla & *clr
			'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke2.jpg"></center>'
			'"No thanks," you reply politely. "I''m good."'
			'<<$npc_firstname[$boy]>> nods and pulls one out for himself instead and lights up.'
			gs 'sex_ev_after', 'after_sex2'
		end
	end
	
	act'Yes please':
		sex_ev['bum_cigarette'] = 1
		cla & *clr
		'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke0.jpg"></center>'
		'"Sure," you smile. <<$npc_firstname[$boy]>> hands over one with his lighter and you accept gratefully, lighting up and inhaling deeply.'
		gs'sex_ev_after', 'smoke_ciga_act'
	end
	
	act'Love one':
		sex_ev['bum_cigarette'] = 1
		cla & *clr
		'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke0.jpg"></center>'
		'"I''d love one," you smile. <<$npc_firstname[$boy]>> hands over one with his lighter and you accept gratefully, lighting up and inhaling deeply.'
		gs'sex_ev_after', 'smoke_ciga_act'
	end
	
	act'Read my mind':
		sex_ev['bum_cigarette'] = 1
		cla & *clr
		'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke0.jpg"></center>'
		'"You read my mind," you grin as <<$npc_firstname[$boy]>> hands over one with his lighter and you accept gratefully, lighting up and inhaling deeply.'
		gs'sex_ev_after', 'smoke_ciga_act'
	end
	
	if smoker = 0:
		act'I don''t smoke':
			cla & *clr
			if stat['cigarettes_smoked'] > 20 and npc_caretaker[$boy] = 1:
				'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk2.jpg"></center>'
				'"No thanks," you reply politely. "I don''t smoke anymore."'
				if npc_caretaker[$boy] = 1:
					'"Oh, sorry. I didn''t realize," <<$npc_firstname[$boy]>> blinks. "I just won''t then. Don''t want to tempt you."'
					act'How sweet':
						cla & *nl
						'A swell of affection warms your chest as he puts away his pack. It''s so sweet how thoughtful he is!'
						gs 'sex_ev_after', 'after_sex2'
					end
					
					act'It''s okay ':
						gs 'npc_relationship', 'modify', $boy, 'like'
						cla & *clr
						'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke2.jpg"></center>'
						'You shake your head.'
						'"No, it''s okay. Don''t stop yourself on my account."'
						'"You sure?" he asks.'
						'"I''m sure," you insist. "Go ahead. I''ll be fine."'
						*nl
						'At your insistence, he goes ahead and lights up, taking a long drag before exhaling a cloud of smoke in deep satisfaction.'
						gs 'sex_ev_after', 'after_sex2'
					end
				else
					gs 'sex_ev_after', 'after_sex2'
				end
			else
				'<center><img <<$set_imgh>> src="images/shared/sex/after/bed_smoke2.jpg"></center>'
				'"No thanks. I don''t smoke," you tell him.'
				'<<$npc_firstname[$boy]>> nods and pulls one out for himself to light up. As the end catches fire, he takes a long drag before exhaling a cloud of smoke in deep satisfaction'
				gs 'sex_ev_after', 'after_sex2'
			end
		end
	end
end


if $ARGS[0] = 'sneak_phone':
	msg'Placeholder - Event is WIP'
end

if $ARGS[0] = 'rummage_drawers_link':
	if sex_ev['drawer_rummage'] = 0 and $sex_ev['loc'] ! 'pc_home' and $sex_ev['loc'] ! 'house_party':
		if  $sex_ev['loc'] = 'hotel_room':
			'<<$npc_firstname[$boy]>>''s <a href="exec:gs ''sex_ev_events'',''sneak_phone''">phone</a> lays on top of the hotel room <a href="exec:gs ''sex_ev_events'',''rummage_drawers_start''">dresser</a> unattended.'
		else
			'<<$npc_firstname[$boy]>>''s <a href="exec:gs ''sex_ev_events'',''sneak_phone''">phone</a> lays on top of his <a href="exec:gs ''sex_ev_events'',''rummage_drawers_start''">dresser</a> unattended.'
		end
	end
end

if $ARGS[0] = 'rummage_drawers_start':
	cla
	act'Go back':gs 'sex_ev_after', 'after_sex2_w_picture'
	act'Rummage through his dresser':gt 'sex_ev_events', 'rummage_drawers1'
end

if $ARGS[0] = 'rummage_drawers1':
	sex_ev['drawer_rummage'] = 1
	cla & *clr
	'<center><video autoplay loop src="images/pc/activities/misc/open_drawers1.mp4"></video></center>'
	!! if $npc_occupation[$boy] = 'drug_dealer': find drugs
	act'Close the drawer':gs'sex_ev_events', 'rummage_drawers_end_route'
	
	if rand(1,3) = 1:
		'You rummage through <<$npc_firstname[$boy]>>''s drawers. You don''t find anything of interest.'
	!!{elseif npc_criminal[$boy] > 0:
		'Your eyes go wide as you pull back on <<$npc_firstname[$boy]>>''s drawers and find a handgun inside.'
		act'What is this???':gt'sex_ev_events', 'gun_ev_confront1'
		if sveta_is_cop = 1:
			act'Take note of the serial number':gt'sex_ev_events', 'gun_ev_serial1'
		end}
	else
		sex_ev['boy_money'] = rand(3,9)
		if npc_finance[$boy] = 1: sex_ev['boy_money'] += rand(1,5)
		if npc_finance[$boy] = 2: sex_ev['boy_money'] = sex_ev['boy_money'] * 2
		'You rummage through <<$npc_firstname[$boy]>>''s drawers. You find <<sex_ev[''boy_money''] * 100>> <b>₽</b> in various notes, along with some of his other things.'
		act'Steal it':
			cla & *clr
			$sex_ev['bed_room']
			sex_ev['stole_money'] = 1
			if sex_ev['boy_in_shower'] = 1:
				gs'sex_ev_events', 'rummage_drawers_shower_route'
			else
				gs'sex_ev_events', 'rummage_drawers_sleeping_route'
			end
		end
	end
end

if $ARGS[0] = 'rummage_drawers_sleeping_route':
	'You take another cautious glance at <<$npc_firstname[$boy]>> but he is still slumbering away. You decide to take your chance and grab the money, carefully close the drawer with minimal noise, and quietly stuff your stolen goods into your purse.'
	act'Continue':gs'sex_ev_events', 'rummage_drawers_end_route'
end

if $ARGS[0] = 'rummage_drawers_shower_route':
	if rand(1,2) = 1:
		if $sex_ev['loc'] = 'hotel_room' or npc_apt_type[$boy] = 2 or npc_apt_type[$boy] = 3:
			'You take a wary glance at the bathroom door. Right as you do, you hear the water shut off. Realizing there''s only seconds, you take your chance and grab the cash out of the drawer and running back to your things to stuff it into your bag.'
		else
			'You take a wary glance at the door. Seems like <<$npc_firstname[$boy]>> is still showering so it should be safe. But right as you pick up the cash, you hear footsteps in the hall. Panic shoots through you as you run back to stuff it into your bag.'
		end
		act'Hide the money!':gs'sex_ev_events', 'rummage_drawers_end_route'
	else
		if $sex_ev['loc'] = 'hotel_room' or npc_apt_type[$boy] = 2 or npc_apt_type[$boy] = 3:
			'You take a wary glance at the bathroom door. The water''s still running. It doesn''t seem like he''s going to come out any time soon. You decide to take your chance and grab the cash, closing the drawer and stuffing it into your purse.'
		else
			'You take a wary glance at the door. You don''t hear <<$npc_firstname[$boy]>> coming so you decide to take your chance and grab the cash, closing the drawer and stuffing it into your purse.'
		end
		act'Wait for <<$npc_firstname[$boy]>> to finish':
			cla & *clr
			$sex_ev['bed_room']
			if $sex_ev['loc'] = 'hotel_room' or npc_apt_type[$boy] = 2 or npc_apt_type[$boy] = 3:
				'After hiding the money, you sit back on the bed and act natural. It''s only a couple minutes before you hear the water shut off and <<$npc_firstname[$boy]>> comes out with wet hair and a towel wrapped around his waist.'
			else
				'After hiding the money, you sit back on the bed and act natural. It''s only a couple minutes before <<$npc_firstname[$boy]>> comes strolling back into the bedroom with wet hair and a towel wrapped around his waist.'
			end
			gs'sex_ev_shower', 'boy_shower_finish_acts'
		end
		act'Join him in the shower':gt'sex_ev_shower', 'shower_join1'
	end
end

if $ARGS[0] = 'rummage_drawers_end_route':
	if sex_ev['boy_in_shower'] = 1:
		gs'sex_ev_events', 'rummage_drawers_shower_end'
	else
		gs'sex_ev_after', 'after_sex2_w_picture'
	end
end

if $ARGS[0] = 'rummage_drawers_shower_end':
	cla & *clr
	$sex_ev['bed_room']
	!! if rand(1,3) = 1: he catches you
	if sex_ev['stole_money'] = 1:
		money += sex_ev['boy_money'] * 100
		'You finish hiding the money in your bag just as <<$npc_firstname[$boy]>> comes into the room, hair wet from the shower, towel wrapped around his waist.'
	else
		'You finish closing the drawer and step away just as <<$npc_firstname[$boy]>> comes into the room, hair wet from the shower, towel wrapped around his waist.'
	end
	gs'sex_ev_shower', 'boy_shower_finish_acts'
end


if $ARGS[0] = 'boy_timecheck':
	if hour >= npc_work_start[$boy] - 1 and hour < npc_work_end[$boy] and rand(1,5) = 1:
		sex_ev['npc_late'] = 1
		gs'sex_ev_events', 'boy_gotta_go'
	end
end

if $ARGS[0] = 'boy_gotta_go':
	cla
	act'Continue':
		cla & *clr
		$sex_ev['bed_room']
		'<<$npc_firstname[$boy]>> checks the time.'
		if sex_ev['boy_shower'] = 1:
			'"Shit, I gotta go," he says, dropping his towel and reaching for his clothes. ' + iif(hour >= npc_work_start[$boy], '"I''m late for work."', '"I''m gonna be late for work."')
		else
			'"Shit, I gotta go," he says, hauling himself out of bed. ' + iif(hour >= npc_work_start[$boy], '"I''m late for work."', '"I''m gonna be late for work."')
		end
		gs'sex_ev_events', 'boy_gotta_go2'
	end
end

if $ARGS[0] = 'boy_gotta_go2':
	cla
	if $sex_ev['loc'] ! 'pc_home':
		'"Should I get dressed too then?" you ask.'
	end
	if $sex_ev['loc'] = 'hotel_room':
		sex_ev['hotel_days'] = rand(1,3)
		if sex_ev['hotel_days'] = 1:
			'"No need to rush. The room is booked until tomorrow," <<$npc_firstname[$boy]>> grins. "Feel free to order room service. Just make sure to be gone by checkout.' + iif($npc_rel_type[$boy] = 'sugar_daddy' and sex_ev['sugar_daddy_paid'] = 0, ' Your money''s on the dresser."','"')
		else
			'"No need to rush. The room is booked for a few more days," <<$npc_firstname[$boy]>> grins. "Feel free to order room service. Just make sure to be gone by checkout.' + iif($npc_rel_type[$boy] = 'sugar_daddy' and sex_ev['sugar_daddy_paid'] = 0, ' Your money''s on the dresser."','"')
		end
		*nl
		'With that, <<$npc_firstname[$boy]>> finishes getting dressed and heads out the door, leaving you in the hotel room all to yourself.'
		if $npc_rel_type[$boy] = 'sugar_daddy' and sex_ev['sugar_daddy_paid'] = 0: money += npc_sugar_daddy_price[$boy]
		act'Continue':gs'sex_ev_leave', 'exit'
	elseif $sex_ev['loc'] = 'npc_home':
		if npc_lover_keys[$boy] = 1:
			'"No, it''s fine. You have a key right? Just lock up when you leave," he says, quickly getting dressed.'
		else
			'"Yeah, I need you to leave so I can lock up."'
			'You hurry to get dressed beside <<$npc_firstname[$boy]>>.'
			gs'sex_ev_leave', 'dress_loop_end'
			gs'sex_ev_leave', 'leaving_dialogue_choices'
		end
	end
end

if $ARGS[0] = 'sugar_daddy_gift':
	npc_sugar_gifts[$boy] += 1
	cla & *clr
	'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk2.jpg"></center>'
	'"I got you something," <<$npc_firstname[$boy]>> smiles.'
	act'Surprise':
		cla & *nl
		'"For me?" you ask in bewilderment.'
	end
	if npc_sugar_gifts[$boy] > 1:
	
	end
end


if $ARGS[0] = 'sugar_daddy_gift_check':
	if rand(1,5) = 1:
		sex_ev['sugar_clothing'] = rand(1, ARRSIZE('moncheri_dress'))
		if moncheri_dress[sex_ev['sugar_clothing']] = 0:
			$sex_ev['sugar_clo_type'] = 'moncheri'
			moncheri_dress[sex_ev['sugar_clothing']] = 1
			moncheri_dress_h[sex_ev['sugar_clothing']] = 35
			moncheri_dress_b[sex_ev['sugar_clothing']] = pcs_hips
			*P '<center><img height = 400 src="images/pc/items/moncheri/dress/<<newdress_id>>.jpg"></center>'
		else
			newdress_loop += 1
			if newdress_loop > 1000:
				msg 'ERROR: formal cloth loop > 1000'
			else
				gs 'sex_ev_events', 'sugar_daddy_gift_check'
			end
		end
	elseif rand(1,4) = 1:
		sex_ev['sugar_clothing'] = rand(1, ARRSIZE('moncheri_shoes'))
		if moncheri_shoes[sex_ev['sugar_clothing']] = 0:
			moncheri_shoes[sex_ev['sugar_clothing']] = 1
			moncheri_shoes[sex_ev['sugar_clothing']] = 35
			moncheri_shoes[sex_ev['sugar_clothing']] = pcs_hips
			*P '<center><img height = 400 src="images/pc/items/moncheri/dress/<<newdress_id>>.jpg"></center>'
		else
			newdress_loop += 1
			if newdress_loop > 1000:
				msg 'ERROR: formal cloth loop > 1000'
			else
				gs 'sex_ev_events', 'sugar_daddy_gift_check'
			end
		end
	elseif rand(1,3) = 1:
		sex_ev['sugar_clothing'] = rand(1, ARRSIZE('moncheri_purses'))
		if moncheri_purses[sex_ev['sugar_clothing']] = 0:
			moncheri_purses[sex_ev['sugar_clothing']] = 1
			moncheri_purses[sex_ev['sugar_clothing']] = 35
			moncheri_purses[sex_ev['sugar_clothing']] = pcs_hips
			*P '<center><img height = 400 src="images/pc/items/moncheri/dress/<<newdress_id>>.jpg"></center>'
		else
			newdress_loop += 1
			if newdress_loop > 1000:
				msg 'ERROR: formal cloth loop > 1000'
			else
				gs 'sex_ev_events', 'sugar_daddy_gift_check'
			end
		end
	elseif rand(1,2) = 1:
		sex_ev['sugar_clothing'] = rand(1, ARRSIZE('coco_dress'))
		if coco_dress[sex_ev['sugar_clothing']] = 0:
			coco_dress[sex_ev['sugar_clothing']] = 1
			coco_dress_h[sex_ev['sugar_clothing']] = 35
			coco_dress_b[sex_ev['sugar_clothing']] = pcs_hips
			*P '<center><img height = 400 src="images/pc/items/moncheri/dress/<<newdress_id>>.jpg"></center>'
		else
			newdress_loop += 1
			if newdress_loop > 1000:
				msg 'ERROR: formal cloth loop > 1000'
			else
				gs 'sex_ev_events', 'sugar_daddy_gift_check'
			end
		end
	else
		sex_ev['sugar_clothing'] = rand(1, ARRSIZE('lusso_bras'))
		if lusso_bras[sex_ev['sugar_clothing']] = 0 and lusso_panties[sex_ev['sugar_clothing']] = 0:
			lusso_bras[sex_ev['sugar_clothing']] = 1
			lusso_bras[sex_ev['sugar_clothing']] = 35
			lusso_bras[sex_ev['sugar_clothing']] = pcs_hips
			*P '<center><img height = 400 src="images/pc/items/moncheri/dress/<<newdress_id>>.jpg"></center>'
		else
			newdress_loop += 1
			if newdress_loop > 1000:
				msg 'ERROR: formal cloth loop > 1000'
			else
				gs 'sex_ev_events', 'sugar_daddy_gift_check'
			end
		end
	end
end
--- sex_ev_events ---------------------------------