glife/locations/sex_ev_hookup_leave.qsrc

# sex_ev_hookup_leave


if $ARGS[0] = 'gotta_go':
	if sex_ev['fuck_count'] > 0:
		$sex_ev['fun'] = 'fuck'
	else
		$sex_ev['fun'] = 'fun'
	end
	
	if rand(1,20) < sex_ev['cum_count'] + sex_ev['extra_cum']: sex_ev['continuation'] = 1
	if sex_ev['leaving'] = 0:
		act'I should go':
			sex_ev['leaving'] = 1
			cla & *clr
			gs 'sex_ev_leave', 'dress_loop'
			if sex_ev['angry_after'] = 1 or sex_ev['annoyed'] > 0:
				'"I have to go," you say flatly, reaching down for your clothes without looking at <<$npc_firstname[$boy]>>.'
			elseif sex_ev['sleepover'] = 1:
				'"This has been nice," you say, <<$sex_ev[''dress_describe'']>>. "But I really should go."'
			elseif sex_ev['get_up'] = 0:
				'As nice as this is, you really can''t stay and you heave yourself up and away from <<$npc_firstname[$boy]>>, getting up from the bed and moving over to where your discarded clothes were thrown.'
				'"I should go," you say, <<$sex_ev[''dress_describe'']>>.'
			else
				'"I should go," you say, <<$sex_ev[''dress_describe'']>>.'
			end
			gs 'sex_ev_hookup_leave', 'hookup_continuation'
		end
		if sex_ev['mad'] < 1 and sex_ev['angry_after'] < 1:
			act'Thanks for the <<$sex_ev[''fun'']>>':
				sex_ev['leaving'] = 1
				cla & *clr
				gs 'sex_ev_leave', 'dress_loop'
				'You get up from the bed and pad across the floor, bending down to pick up your discarded apparel.'
				if sex_ev['sleepover'] = 1:
					'"Thanks for the <<$sex_ev[''fun'']>> last night," you say, <<$sex_ev[''dress_describe'']>> with a smirk over your shoulder. "And for letting me stay over."'
				elseif sex_ev['get_up'] = 0:
					'"Thanks for the <<$sex_ev[''fun'']>>," you say, <<$sex_ev[''dress_describe'']>>.'
				else
					'"Well, thanks for the <<$sex_ev[''fun'']>>," you say, <<$sex_ev[''dress_describe'']>>.'
				end
				gs 'sex_ev_hookup_leave', 'hookup_continuation'
			end
		end
	else
		act'Prepare to leave':
			cla & *clr
			$sex_ev['bed_room']
			if sex_ev['sleepover'] = 1 and npc_latesleeper[$boy] = 1 and sex_ev['boy_asleep'] ! 0:
				gs'sex_ev_leave', 'sneak_out1'
			else
				gs'sex_ev_leave', 'leaving_dialogue'
			end
		end
	end
end

if $ARGS[0] = 'hookup_continuation':
	if $sex_ev['type'] = 'hookup':
		sex_ev['continuation'] = rand(-1,1)
		if rand(1,10) > 5 and (hour > 20 or hour < 4) and npc_caretaker[$boy] > 0 and npc_girlfriend[$boy] = 0 and sex_ev['cant_stay'] = 0 and sex_ev['sleepover'] ! 1:
			'"You know, it''s kinda late." <<$npc_firstname[$boy]>> sits up in bed. "You don''t have to go right now. Did you want to maybe... spend the night?"'
			gs 'sex_ev_hookup_leave', 'spend_the_night'
		else
			if sex_ev['continuation'] > 0 and sex_ev['mad'] < 1 and sex_ev['angry_after'] < 1:
				sex_ev['hookup_continuation_check'] = 1
				cla
				if npc_finance[$boy] = 2 and npc_goal[$boy] < 3 and (rand(-1,2) - npc_selfish[$boy] > 0 or sex_ev['prostitution'] = 1):
					gs 'sex_ev_hookup_leave', 'npc_sugar_daddy_offer'
				elseif npc_goal[$boy] = 1:
					gs 'sex_ev_hookup_leave', 'npc_fuckbuddy_request'
				elseif npc_goal[$boy] > 1:
					gs 'sex_ev_hookup_leave', 'npc_date_request'
				end
				gs 'sex_ev_leave', 'dressing_finish'
			elseif sex_ev['thank_for_fun'] = 1:
				if sex_ev['bj_count'] > 0 and sex_ev['fuck_count'] < 1:
					if sex_ev['virgin'] > 0:
						'"Thanks for the blowjob," he smirks back. "You give pretty good head. You sure you''re a virgin?" You don''t respond, <<$sex_ev[''dress_describe'']>>, but roll your eyes at his commentary.'
					else
						'"Thanks for the blowjob," he smirks back as you''re <<$sex_ev[''dress_describe'']>>. "You give great head."'
					end
				elseif sex_ev['fuck_count'] > 0:
					'"Right back at you," he smirks in return while you''re <<$sex_ev[''dress_describe'']>>.'
				end
				gs 'sex_ev_hookup_leave', 'later'
				gs 'sex_ev_dress_talking', 'dress_talk_pc'
				gs 'sex_ev_hookup_leave', 'panty_gift'
			else
				cla
				if sex_ev['hookup_continuation_first_pass'] = 0 :
					'"Alright, sure. Feel free to see yourself out."'
					sex_ev['hookup_continuation_first_pass'] = 1
				end
				gs 'sex_ev_hookup_leave', 'later'
				gs 'sex_ev_dress_talking', 'dress_talk_pc'
				gs 'sex_ev_leave', 'panty_gift'
			end
		end
	else
		sex_ev['continuation'] = rand(-1,1)
		if sex_ev['continuation'] > 0 and sex_ev['mad'] < 1 and sex_ev['angry_after'] < 1:
			
			if npc_finance[$boy] = 2 and npc_goal[$boy] < 3 and (rand(-1,2) - npc_selfish[$boy] > 0 or sex_ev['prostitution'] = 1) and $npc_rel_type[$boy] ! 'sugar_daddy':
				cla
				gs 'sex_ev_hookup_leave', 'npc_sugar_daddy_offer'
	!!		elseif npc_goal[$boy] = 1 and $npc_rel_type[$boy] ! 'fuckbuddy' and $npc_rel_type[$boy] ! 'sugar_daddy':
	!!			gs 'sex_ev_hookup_leave', 'npc_fuckbuddy_request'
	!!		elseif npc_goal[$boy] > 1 and $npc_rel_type[$boy] ! 'fuckbuddy' and $npc_rel_type[$boy] ! 'sugar_daddy'::
	!!			gs 'sex_ev_hookup_leave', 'npc_date_request'
			end
	!!		gs 'sex_ev_leave', 'dressing_finish'
		end
	end
end

if $ARGS[0] = 'spend_the_night':
	act'No thanks':
		sex_ev['cant_stay'] = 1
		cla & *clr
		gs 'sex_ev_leave', 'dress_loop'
		'"Thanks but no thanks," you say, wistfully <<$sex_ev[''dress_describe'']>>. "I really need to get home tonight."'
		gs 'sex_ev_hookup_leave', 'hookup_continuation'
	end

	act'Well...':
		cla & *nl
		'"Well..." you pause for a moment, considering. You <i>could</i> stay over tonight. Maybe you don''t <i>have</i> to go...'
		act'No, I shouldn''t':
			sex_ev['cant_stay'] = 1
			cla & *clr
			$sex_ev['bed_room']
			'"... no," you sigh. "I really shouldn''t. I want to, but I can''t."'
			gs 'sex_ev_hookup_leave', 'hookup_continuation'
		end
		
		act'I guess I could...':
			cla & *clr
			$sex_ev['bed_room']
			'"... I guess I could..." you relent, dropping the clothes you were holding.'
			act'Undress and get into bed with him':
				if $clothingworntype ! 'nude':gs 'clothing', 'strip'
				if $braworntype ! 'none':gs 'bras', 'remove'
				if $pantyworntype ! 'none':gs 'panties', 'remove'
				cla & *clr
				'<center><img <<$set_imgh>> src="images/shared/sex/after/cuddle1.jpg"></center>'
				'You slip back into bed and cuddle up with <<$npc_firstname[$boy]>>, resting your naked body on top of his. He wraps his arms around you in return and the two of your relax, listening to the sound of each other''s breathing.'						
				gs 'sex_ev_after', 'sleep'
			end
		end				
	end
	
	act'I really need to go':
		sex_ev['cant_stay'] = 1
		cla & *clr
		gs 'sex_ev_leave', 'dress_loop'
		'"I wish I could but I really have to go," you say, <<$sex_ev[''dress_describe'']>>. "Just not an option for me tonight."'
		gs 'sex_ev_hookup_leave', 'hookup_continuation'
	end
end

if $ARGS[0] = 'pc_fuckbuddy_request':
	act'We should hook up again later':
		cla & *clr
		gs 'sex_ev_leave', 'dress_loop'
		if sex_ev['cant_stay'] = 1:
			'"Maybe we could hook up again some other time?" you ask, <<$sex_ev[''dress_describe'']>>.'
		else
			'"This was fun. We should hook up again some time," you say, <<$sex_ev[''dress_describe'']>>.'
		end
		act'Continue':
			cla & *clr
			gs 'sex_ev_leave', 'dress_loop'
			if rand(1,3) = 1:
				'"Nah, this was a one time thing," <<$npc_firstname[$boy]>> replies. "I never fuck the same girl twice."'
				'You pause for a moment and give him a look.'
				'"Seriously?"'
				'"Do I look like I''m kidding?" he grins back, clearly satisfied with himself.'
				'<i>Free access to pussy and you''re just gonna turn it down? Whatever...</i> you think to yourself, <<$sex_ev[''dress_describe'']>>.'
				*nl
				'Once you''re finished dressing, you grab your things and leave. <<$npc_firstname[$boy]>> doesn''t say a word as you close the door behind you.'
			else
				gs 'sex_ev_leave', 'fuckbuddy_add'
				'"What, like fuckbuddies?"'
				'"Why not?" you say, <<$sex_ev[''dress_describe'']>>.'
				'"Sure, I''ll sleep with you again if you''re offering."'
				'You tell him your number while you finished getting dressed and he taps it into his phone. A few moments later, a notification pings in your messages:'
				*nl
				gs 'sex_ev_hookup_leave', 'fuckbuddy_text'
			end
			act'Leave':gt 'sex_ev_leave', 'exit'
		end
	end
end

if $ARGS[0] = 'pc_date_request':
	act'Maybe I could see you again sometime?':
		cla & *clr
		gs'sex_ev_leave', 'dress_loop'
		'"Maybe I could see you again? For like, dinner? Or a movie? Or something?" you say, <<$sex_ev[''dress_describe'']>>.'
		act'Continue':
			cla & *clr
			gs 'sex_ev_leave', 'dress_loop'
			if rand(1,3) = 1:
				'"Nah, this was a one time thing," <<$npc_firstname[$boy]>> replies. "I never fuck the same girl twice."'
				'You pause for a moment and give him a look.'
				'"Seriously?"'
				'"Do I look like I''m kidding?" he grins back, clearly satisfied with himself.'
				'<i>Wow... You can really pick em, huh <<$pcs_nickname>>?</i> you think to yourself  <<$sex_ev[''dress_describe'']>>. <i>Ugh. Whatever...</i>'
				*nl
				'Once you''re done, you grab your things and leave. <<$npc_firstname[$boy]>> doesn''t say a word as you close the door behind you.'
				act'Leave':gt 'sex_ev_leave', 'exit'
			else
				!! set dating flag
				'"You mean like a date?"'
				'"Yeah... like a date..."'
				'For a moment you feel intensely awkward, <<$sex_ev[''dress_describe'']>> as you wait for his response, but when you turn to look at him he''s smiling.'
				'"A date... Yeah, I''d like to take you on a date sometime." Your expression bursts into a smile as well, unable to contain yourself.'
				'You tell him your number while you finished getting dressed and he taps it into his phone. A few moments later, a notification pings in your messages:'
				*nl
				sex_ev['text_message'] = rand(1,2)
				if sex_ev['text_message'] = 1:
					'	<b><font color="blue">hey cutie</font></b>'
					'"Hey yourself," you say aloud, smiling back at him. "Anyways, see you around."'
				elseif sex_ev['text_message'] = 2:
					'	<b><font color="blue">dont forget to call :)</font></b>'
					*nl
					'"I won''t," you promise.'
				end
				
				if $sex_ev['loc'] = 'house_party':
					'That bit of business done, you cheerfully wave him goodbye and head back out into the party.'
				else
					'That bit of business done, you cheerfully wave him goodbye and head out the door.'
				end
				act'Leave':gt 'sex_ev_leave', 'exit'
			end
		end
	end
end

if $ARGS[0] = 'npc_fuckbuddy_request':
	if sex_ev['thank_for_fun'] = 1:
		'"You want to do it again sometime? Nothing serious, just sex. No strings."'
	else
		if sex_ev['npc_can_spend_the_night'] > 0:
			'"Well, maybe you could stay over some other night?" he asks. "We could fuck each other''s brains out and then you can sleep here."'
		else
			'"Cool. Maybe we can hook up again sometime?"'
		end
	end
	act'You mean like fuckbuddies?':
		cla & *clr
		gs 'sex_ev_leave', 'dress_loop'
		'"Like what?" you ask back, <<$sex_ev[''dress_describe'']>>. "Friends with benefits? Fuckbuddies? Booty callers? No strings attached?"'
		'"Yeah, just like that. No strings attached."'
		gs 'sex_ev_hookup_leave', 'just_a_hookup'
		act'Sure':
			cla & *clr
			gs 'sex_ev_leave', 'dress_loop'
			gs 'sex_ev_leave', 'fuckbuddy_add'
			'"Sure, sounds fun," you smile, <<$sex_ev[''dress_describe'']>>.'
			'After finishing getting dressed, you tell him your number while he taps it into his phone. A few moments later, a notification pings in your messages:'
			*nl
			sex_ev['text_message'] = rand(1,2)
			if sex_ev['text_message'] = 1:
				'	<b><font color="blue">hey fuck buddy</font></b>'
				'"Hey yourself," you say aloud, looking up at him. "Anyways, see you around."'
			elseif sex_ev['text_message'] = 2:
				'	<b><font color="blue">send nudes</font></b>'
				*nl
				'"Maybe," you smirk. "Anyways, see you around."'
			end
			if $sex_ev['loc'] = 'house_party':
				'Your little exchange done, you wave him goodbye and head back out into the party.'
			else
				'Your little exchange done, you wave him goodbye and head out the door.'				
			end
			act'Leave':gt 'sex_ev_leave', 'exit'
		end
		gs 'sex_ev_hookup_leave', 'have_a_boyfriend'
		gs 'sex_ev_hookup_leave', 'have_a_girlfriend'
	end
end

if $ARGS[0] = 'npc_date_request':
	'"Well... Maybe I could see you again sometime? Not just sex, but like really see you, you know? Take you out on a date or something? Dinner? See a movie?"'
	gs 'sex_ev_hookup_leave', 'just_a_hookup'
	act'Sure':
		cla & *clr
		gs 'sex_ev_leave', 'dress_loop'
		gs 'sex_ev_leave', 'lover_add'
		'"Yeah, I think I''d like that," you smile gently.'
		'After finishing getting dressed, you tell him your number while he taps it into his phone. A few moments later, a notification pings in your messages:'
		*nl
		sex_ev['text_message'] = rand(1,2)
		if sex_ev['text_message'] = 1:
			'	<b><font color="blue">hey cutie</font></b>'
			'"Hey yourself," you say aloud, looking up at him. "Anyways, see you around."'
		elseif sex_ev['text_message'] = 2:
			'	<b><font color="blue">dont forget to call :)</font></b>'
			*nl
			'"I won''t," you promise.'
		end
		if $sex_ev['loc'] = 'house_party':
			'Your little exchange done, you wave him goodbye and head back out into the party.'
		else
			'Your little exchange done, you wave him goodbye and head out the door.'				
		end
		act'Leave':gt 'sex_ev_leave', 'exit'
	end
	act'I''m not up for anything serious':
		cla & *clr
		gs 'sex_ev_leave', 'dress_loop'
		'"I''m not looking for anything serious right now," you say, more than a little awkwardly as you''re <<$sex_ev[''dress_describe'']>>.'
		act'Sorry':
			cla & *clr
			gs 'sex_ev_leave', 'dress_loop'
			'"Sorry..."'
			'"Oh. Uhh, well, it''s fine I guess..." <<$npc_firstname[$boy]>> trails off and you''re left in an extremely uncomfortable silence while you <<$sex_ev[''dress_describe'']>>.'
			'<i>Holy fuck this is awkward,</i> you think to yourself as you pull the last of your clothes on. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards the door to escape.'
			act'Leave':gt 'sex_ev_leave', 'exit'
		end
		
		act'If we were fuckbuddies...':
			cla & *clr
			gs 'sex_ev_leave', 'dress_loop'
			'"If it were something purely physical, like fuckbuddies or something," you say, <<$sex_ev[''dress_describe'']>>. "I wouldn''t mind getting together for some fun, but I''m not interested in a boyfriend."'
			if rand(1,10) > 7 and npc_goal[$boy] ! 3:
				gs 'sex_ev_leave', 'fuckbuddy_add'
				'"Well... If it means I can see you again, then sure I guess." <<$npc_firstname[$boy]>> doesn''t really seem satisfied with the results, but he still tells you his number while you tap it into your contact list.'
				'"So uhh, yeah... Call me sometime?"'
				iif($sex_ev['loc'] = 'house_party', 'With a shrug and an awkward wave goodbye, you head out back out into the party.', 'With a shrug and an awkward wave goodbye, you head out the door and out of <<$npc_firstname[$boy]>>''s apartment.')
				act'Leave':gt 'sex_ev_leave', 'exit'
			else
				'"No," he shakes his head. "I don''t want to get led on by you if you''re only interested in a fuck and not anything real. Guess this is just a one night stand."'
				act'It''s to be expected':
					cla & *clr
					gs 'sex_ev_leave', 'dress_loop'
					'You nod to yourself, continuing <<$sex_ev[''dress_describe'']>>. It''s to be expected from a guy like him. But if he wants something more, you just can''t give it to him. You''re only after pleasure, you don''t want to get tangled up in a relationship.'
					*nl
					iif($sex_ev['loc'] = 'house_party', '"Well, I guess I won''t see you around then so... bye?" You wave to <<$npc_firstname[$boy]>> and head out back out into the party.', '"Well, I guess I won''t see you around then so... bye?" You wave to <<$npc_firstname[$boy]>> and stride out the door, unable to feel that this little bit of fun took a bit of a damper turn right at the end.')
					act'Leave':gt 'sex_ev_leave', 'exit'
				end
				
				act'Taken aback':
					cla & *clr
					gs 'sex_ev_leave', 'dress_loop'
					'You blink in surprise, stopping halfway through <<$sex_ev[''dress_describe'']>>. That response really wasn''t what you saw coming. After all, what guy just gives up free access to sex?'
					*nl
					iif($sex_ev['loc'] = 'house_party', '"Uhh well, uhh... Alright... Guess I won''t see you later then..." you respond awkwardly. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and head out back out into the party.', '"Uhh well, uhh... Alright... Guess I won''t see you later then..." you respond awkwardly. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards out the door.')
					act'Leave':gt 'sex_ev_leave', 'exit'
				end
			end
		end
	end
end

if $ARGS[0] = 'npc_sugar_daddy_offer':
	sex_ev['sugar_daddy_offer'] = rand(10,20)
	if sex_ev['thank_for_fun'] = 1:
		'"Did you really enjoy it? Or are you just saying that?" <<$npc_firstname[$boy]>> asks.'
		act'Just saying (honest)':
			gs 'sex_ev_leave', 'dress_loop'
			'"Just saying it," you shrug, <<$sex_ev[''dress_describe'']>>. "If I''m being honest, this wasn''t anything special. But I thought I''d try to be polite."'
			gs 'sex_ev_hookup_leave', 'npc_sugar_daddy_offer2'
		end
		
		act'Just saying (teasing)':
			gs 'sex_ev_leave', 'dress_loop'
			'"Just saying," you say, <<$sex_ev[''dress_describe'']>> with a teasing smirk. "I was trying to be nice."'
			gs 'sex_ev_hookup_leave', 'npc_sugar_daddy_offer2'
		end
		
		act'You mean it':
			gs 'sex_ev_leave', 'dress_loop'
			'"No really," you smirk, <<$sex_ev[''dress_describe'']>>. "It was a good time."'
			gs 'sex_ev_hookup_leave', 'npc_sugar_daddy_offer2'
		end
	else
		gs 'sex_ev_hookup_leave', 'npc_sugar_daddy_offer2'
	end
end

if $ARGS[0] = 'npc_sugar_daddy_offer2':
	'"How about we do this again?" <<$npc_firstname[$boy]>> says.'
	'"Do what?" you ask back, <<$sex_ev[''dress_describe'']>>.'
	if sex_ev['prostitution'] > 0:
		'"This," he says again, gesturing vaguely around the room. "You can keep me company and I can get you some... compensation."'
	else
		'"This," he says again, gesturing vaguely around the room. "And maybe for your time and your company I could find you some... compensation."'
	end
	act'Not a hooker':
		gs 'sex_ev_leave', 'dress_loop'
		'"I''m not a hooker," you say, <<$sex_ev[''dress_describe'']>>.'
		'"I didn''t say you were," <<$npc_firstname[$boy]>> snickers back. "Don''t think of it that way. Think of it more like... a sugar daddy relationship. Will you let me be your daddy?"'
		gs'sex_ev_hookup_leave', 'npc_sugar_daddy_refuse'
		gs'sex_ev_hookup_leave', 'npc_sugar_daddy_how_much'
	end
	gs'sex_ev_hookup_leave', 'npc_sugar_daddy_how_much'
	gs 'sex_ev_hookup_leave', 'have_a_boyfriend'
	gs 'sex_ev_hookup_leave', 'have_a_girlfriend'
end

if $ARGS[0] = 'npc_sugar_daddy_refuse':
	act'Refuse him':
		cla
		act'Nice try but no':
			cla & *clr
			'<center><video autoplay loop src="images/shared/romance/misc/depart_annoyed1.mp4"></video></center>'
			iif($sex_ev['loc'] = 'house_party', '"Nice try but no," you grimace and pick up the rest of your things and head back out into the party.', '"Nice try but no," you grimace and pick up the rest of your things and head out the door.')
			act'Leave':gt 'sex_ev_leave', 'exit'
		end
		
		act'Not that kind of girl':
			cla & *clr
			'<center><video autoplay loop src="images/shared/romance/misc/depart_annoyed1.mp4"></video></center>'
			'"I''m not that kind of girl," you sneer.'
			'"The missing money from my wallet would disagree," he chuckles back.'
			'Filled with disgust, you pick up the rest of your things and head out the door.'
			act'Leave':gt 'sex_ev_leave', 'exit'
		end
		
		act'"You''re disgusting"':
			cla & *clr
			'<center><video autoplay loop src="images/shared/romance/misc/depart_annoyed1.mp4"></video></center>'
			'"You''re disgusting," you sneer.'
			'"Hey, what''s the point of money if you don''t spend it?" he chuckles back.'
			'Filled with revulsion, you pick up the rest of your things and head out the door.'
			act'Leave':gt 'sex_ev_leave', 'exit'
		end
		
		act'"You can''t afford me"':
			gs 'sex_ev_leave', 'dress_loop'
			'"Please," you scoff, <<$sex_ev[''dress_describe'']>>. "You can''t afford me."'
			'"So you say, but your loss in the end I suppose," he smirks back.'
			act'Leave':gt 'sex_ev_leave', 'exit'
		end
	end
end

if $ARGS[0] = 'npc_sugar_daddy_how_much':
	act'How much?':
		gs 'sex_ev_leave', 'dress_loop'
		'"Depends," you muse, <<$sex_ev[''dress_describe'']>>. "How much are we talking?"'
		'"How about... <<sex_ev[''sugar_daddy_offer''] * 100>> <b>₽</b> a date?"'
		gs'sex_ev_hookup_leave', 'npc_sugar_daddy_refuse'
		gs'sex_ev_hookup_leave', 'npc_sugar_daddy_accept'
		gs'sex_ev_hookup_leave', 'npc_sugar_daddy_haggle'
	end
end

if $ARGS[0] = 'npc_sugar_daddy_accept':
	act'Accept':
		gs 'sex_ev_leave', 'sugar_daddy_add'
		gs 'sex_ev_leave', 'dress_loop'
		'"That sounds... mutually beneficial," you say, slowly <<$sex_ev[''dress_describe'']>>.'
		'"I''ll look forward to the next time you come over then," <<$npc_firstname[$boy]>> smirks. "Give me your number so I can tell you when to come over.'
		*nl
		'You hand him your phone and when you get it back you see he''s the latest saved contact.'
		gs'sex_ev_leave', 'leaving_dialogue_choices'
	end
end

if $ARGS[0] = 'npc_sugar_daddy_haggle':
	act'Haggle':
		:invalid_counter_offer
		sex_ev['sugar_daddy_counteroffer'] = input ("Pick a number between 10 and 50. The number will be multiplied by 100. (10 will be 1000, 25 will be 2500, 50 will be 5000)")
		if sex_ev['sugar_daddy_counteroffer'] > 50 or sex_ev['sugar_daddy_counteroffer'] < 10 :
			msg 'Invalid input. Pick a number between 10 and 50.'
			jump 'invalid_counter_offer'
		else
			gs'sex_ev_hookup_leave', 'npc_sugar_daddy_haggle2'
		end
	end
end

if $ARGS[0] = 'npc_sugar_daddy_haggle2':
	gs 'sex_ev_leave', 'dress_loop'
	if sex_ev['sugar_daddy_counteroffer'] = sex_ev['sugar_daddy_offer']:
		gs'sex_ev_hookup_leave', 'npc_sugar_daddy_accept'
	elseif sex_ev['sugar_daddy_counteroffer'] < sex_ev['sugar_daddy_offer']:
		sex_ev['sugar_daddy_offer'] = sex_ev['sugar_daddy_counteroffer']
		gs 'sex_ev_leave', 'sugar_daddy_add'
		'"Why don''t we say <<sex_ev[''sugar_daddy_counteroffer''] * 100>>? I''d feel bad if I took too much," you smirk, <<$sex_ev[''dress_describe'']>>.'
		'"Hey if you''re willing to put out for less, I won''t complain," <<$npc_firstname[$boy]>> grins back. "Give me your number so I can tell you when to come over.'
		*nl
		'You hand him your phone and when you get it back you see he''s the latest saved contact.'
		gs'sex_ev_leave', 'leaving_dialogue_choices'
	elseif sex_ev['sugar_daddy_counteroffer'] > 25:
		if sex_ev['haggle_fail'] = 1:
			gs'sex_ev_hookup_leave', 'npc_sugar_daddy_haggle_fail'
		else
			'"How about <<sex_ev[''sugar_daddy_counteroffer''] * 100>>?" you smirk, <<$sex_ev[''dress_describe'']>>.'
			'"You greedy bitch," <<$npc_firstname[$boy]>> snickers back. "You''re not worth that much. Come on, try again."'
			sex_ev['haggle_fail'] = 1
			gs'sex_ev_hookup_leave', 'npc_sugar_daddy_haggle'
		end
	elseif rand(1,pcs_persuas) > npc_willpower[$boy] or sex_ev['sugar_daddy_counteroffer'] < sex_ev['sugar_daddy_offer'] + 2:
		sex_ev['sugar_daddy_offer'] = sex_ev['sugar_daddy_counteroffer']
		gs 'sex_ev_leave', 'sugar_daddy_add'
		'"Why don''t we say... <<sex_ev[''sugar_daddy_counteroffer''] * 100>>?" you smirk, <<$sex_ev[''dress_describe'']>>. "That seems worth my time."'
		'"You drive a hard bargain baby girl," <<$npc_firstname[$boy]>> grins back. "But I think I can work with that. Give me your number so I can tell you when to come over.'
		*nl
		'You hand him your phone and when you get it back you see he''s the latest saved contact.'
		gs'sex_ev_leave', 'leaving_dialogue_choices'
	else
		if sex_ev['haggle_fail'] = 1:
			gs'sex_ev_hookup_leave', 'npc_sugar_daddy_haggle_fail'
		else
			sex_ev['sugar_daddy_offer'] += rand(1,2)
			'"How about... <<sex_ev[''sugar_daddy_counteroffer''] * 100>>?" you ask, <<$sex_ev[''dress_describe'']>>.'
			'"Seems a little steep," <<$npc_firstname[$boy]>> frowns. "Why don''t we try <<sex_ev[''sugar_daddy_offer''] * 100>>?'
			gs'sex_ev_hookup_leave', 'npc_sugar_daddy_haggle'
		end
	end
end

if $ARGS[0] = 'npc_sugar_daddy_haggle_fail':
	'"How about <<sex_ev[''sugar_daddy_counteroffer''] * 100>>?" you try again, <<$sex_ev[''dress_describe'']>>.'
	if sex_ev['sugar_daddy_counteroffer'] > 25:
		'"Who do you think you are?" <<$npc_firstname[$boy]>> scoffs. "I could fuck a supermodel for that kind of money. You know what? Forget it. I don''t need another gold digger in my life."'
	else
		'"Still too rich for my blood," <<$npc_firstname[$boy]>> says with a shake of his head. "You know what? Forget it. I don''t need another gold digger in my life."'
	end
	if sex_ev['dress_end'] = 1:
		'Everything becomes very awkward very quickly and you take that as your cue to grab your things and hurry out the door.'
	else
		'Everything becomes very awkward very quickly and you take that as your cue to finish getting dressed in a hurry and head out the door.'
	end
	act'Leave':gt 'sex_ev_leave', 'exit'
end

if $ARGS[0] = 'fuckbuddy_text':
	gs 'sex_ev_leave', 'fuckbuddy_add'
	sex_ev['text_message'] = rand(1,2)
	if sex_ev['text_message'] = 1:
		'	<b><font color="blue">hey fuck buddy</font></b>'
		*nl
		'"Hey yourself," you say aloud, smiling at him. "Anyways, see you around."'
	elseif sex_ev['text_message'] = 2:
		'	<b><font color="blue">send nudes</font></b>'
		*nl
		'"We''ll see about that," you roll your eyes back. "Anyways, see you around."'
	end
	'That little exchange done, you cheerfully wave him goodbye and head out the door.'
end


if $ARGS[0] = 'later':
	gs 'sex_ev_leave', 'dressing_finish'
	gs 'sex_ev_hookup_leave', 'pc_fuckbuddy_request'
	gs 'sex_ev_hookup_leave', 'pc_date_request'
end

if $ARGS[0] = 'just_a_hookup':
	if hour >= 20 or hour <= 9:
		$sex_ev['just_a'] = 'one night stand'
	else
		$sex_ev['just_a'] = 'random hookup'
	end
	act'This was a <<$sex_ev[''just_a'']>>':
		cla & *clr
		gs 'sex_ev_leave', 'dress_loop'
		'"No," you shake your head, <<$sex_ev[''dress_describe'']>>. "This was just a <<$sex_ev[''just_a'']>>. I''m not looking for anything lasting."'
		if sex_ev['continuation'] = 1:
			'"Whatever, your loss," he shrugs.'
			'"Pfft-! Yeah, sure," you snigger back, pulling on the rest of your clothes. You give yourself a once over, making sure everything''s in place and wave goodbye as you head towards the door.'
		elseif sex_ev['continuation'] = 2:
			'"Oh. Uhh, well..." <<$npc_firstname[$boy]>> trails off and you''re left in an extremely uncomfortable silence while you get dressed in front of him.'
			'<i>Holy fuck this is awkward,</i> you think to yourself as you pull the last of your clothes on. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards the door to escape.'
		end
		act'Leave':gt 'sex_ev_leave', 'exit'
	end
end

if $ARGS[0] = 'have_a_boyfriend':
	if pcs_lover - pcs_girlfriends > 0:
		act'I have a boyfriend':
			npc_know_girlfriend[$boy] = 0
			gs 'sex_ev_leave', 'dress_loop'
			'"I have a boyfriend," you say, giving him a look as you''re <<$sex_ev[''dress_describe'']>>.'
			if sex_ev['sugar_daddy_offer'] > 0:
				'"So?" <<$npc_firstname[$boy]>> grins shamelessly. "Does that change the value of the money?"'
				gs'sex_ev_hookup_leave', 'npc_sugar_daddy_refuse'
				gs'sex_ev_hookup_leave', 'npc_sugar_daddy_how_much'
				act'So long as you know':
					cla & *clr
					$sex_ev['bed_room']
					gs 'sex_ev_leave', 'fuckbuddy_add'
					'"Just wanted to make sure you knew," you reply, shrugging as you''re <<$sex_ev[''dress_describe'']>>. "So how much are we talking here?"'
					'"How about... <<sex_ev[''sugar_daddy_offer''] * 100>> <b>₽</b> a ''date?''"'
					gs'sex_ev_hookup_leave', 'npc_sugar_daddy_accept'
				end
			elseif npc_fidelity[$boy] <= 5:
				if npc_girlfriend[$boy] = 1 and npc_goal[$boy] = 1:
					'"So? I have a girlfriend," he grins shamelessly. "Doesn''t mean we can''t keep fucking."'
					act'No way':
						cla & *clr
						'<center><video autoplay loop src="images/shared/romance/misc/depart_annoyed1.mp4"></video></center>'
						'"Yeah, no," you grimace. "That''s a kind of drama I <i>don''t</i> want to deal with.'
						'And with that, you pick up the rest of your things and head out the door.'
						act'Leave':gt 'sex_ev_leave', 'exit'
					end
					act'So long as you know':
						cla & *clr
						gs 'sex_ev_leave', 'dress_loop'
						gs 'sex_ev_leave', 'fuckbuddy_add'
						'"So long as you know," you reply, <<$sex_ev[''dress_describe'']>>. You exchange numbers with him and a moment later a notification pings in your messages.'
						*nl
						gs 'sex_ev_hookup_leave', 'fuckbuddy_text'
						act'Leave':gt 'sex_ev_leave', 'exit'
					end
				else
					'"Whatever, your loss," he shrugs. "Looks like I''m a better lay than him anyways."'
					'"Yeah, sure," you snigger back, pulling on the rest of your clothes. You give yourself a once over, making sure everything''s in place and wave goodbye as you head towards the door.'
					act'Leave':gt 'sex_ev_leave', 'exit'
				end
			else
				'"Oh. Uhh, well..." <<$npc_firstname[$boy]>> trails off and you''re left in an extremely uncomfortable silence while you get dressed in front of him.'
				'<i>Holy fuck this is awkward,</i> you think to yourself as you pull the last of your clothes on. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards the door to escape.'
				act'Leave':gt 'sex_ev_leave', 'exit'
			end
		end
	end
end

if $ARGS[0] = 'have_a_girlfriend':
	if pcs_girlfriends > 0:
		act'I have a girlfriend':
			npc_know_girlfriend[$boy] = 1
			gs 'sex_ev_leave', 'dress_loop'
			'"I have a girlfriend," you say, giving him a look as you''re <<$sex_ev[''dress_describe'']>>.'
			if sex_ev['sugar_daddy_offer'] > 0:
				'"So?" <<$npc_firstname[$boy]>> grins shamelessly. "Does that change the value of the money?"'
				gs'sex_ev_hookup_leave', 'npc_sugar_daddy_refuse'
				gs'sex_ev_hookup_leave', 'npc_sugar_daddy_how_much'
				act'So long as you know':
					cla & *clr
					$sex_ev['bed_room']
					gs 'sex_ev_leave', 'fuckbuddy_add'
					'"Just wanted to make sure you knew," you reply, shrugging as you''re <<$sex_ev[''dress_describe'']>>. "So how much are we talking here?"'
					'"How about... <<sex_ev[''sugar_daddy_offer''] * 100>> <b>₽</b> a ''date?''"'
					gs'sex_ev_hookup_leave', 'npc_sugar_daddy_accept'
				end
			else
				if npc_fidelity[$boy] <= 5:
					if npc_girlfriend[$boy] = 1 and npc_goal[$boy] = 1:
						'"Hey, me too!" he grins shamelessly.'
						act'No way':
							cla & *clr
							'<center><video autoplay loop src="images/shared/romance/misc/depart_annoyed1.mp4"></video></center>'
							'"Nice try but no," you grimace, and pick up the rest of your things and head out the door.'
							act'Leave':gt 'sex_ev_leave', 'exit'
						end
						
						act'So long as you know':
							cla & *clr
							$sex_ev['bed_room']
							gs 'sex_ev_leave', 'fuckbuddy_add'
							'"So long as you know," you reply, <<$sex_ev[''dress_describe'']>>. You exchange numbers with him and a moment later a notification pings in your messages.'
							*nl
							gs 'sex_ev_hookup_leave', 'fuckbuddy_text'
							act'Leave':gt 'sex_ev_leave', 'exit'
						end
					else
						'"Whatever, your loss," he shrugs. "Bi girls always come back when they start missing dick."'
						'"That''s what strapons are for," you roll your eyes, pulling on the rest of your clothes. You give yourself a once over, making sure everything''s in place and wave goodbye as you head towards the door.'
						act'Leave':gt 'sex_ev_leave', 'exit'
					end
				else
					'"Oh. Uhh, well..." <<$npc_firstname[$boy]>> trails off and you''re left in an extremely uncomfortable silence while you get dressed in front of him.'
					'<i>Holy fuck this is awkward,</i> you think to yourself as you pull the last of your clothes on. After giving yourself a once over, you give <<$npc_firstname[$boy]>> a strained smile and wave goodbye, quickly striding towards the door to escape.'
					act'Leave':gt 'sex_ev_leave', 'exit'
				end
			end
		end
	end
end

--- sex_ev_hookup_leave ---------------------------------