glife/locations/sex_ev_start.qsrc

# sex_ev_start
!! ------------------------- Booty Call Content Start -----------------------

if $ARGS[0] = 'neighborhood_image':
	if $loc = 'pav_residential':
		if month >= 11 or month <= 3:
			if daystage = 2 or daystage = 3:
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pavreswinter.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pavreswintern.jpg"></center>'
			end
		else
			if daystage = 2 or daystage = 3:
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pavres.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/pavresn_'+ rand(1,2) +'.jpg"></center>'
			end
		end
	elseif $loc = 'city_residential':
		if month >= 11 or month <= 3:
			if daystage = 2 or daystage = 3:
				'<center><img <<$set_imgh>> src="images/locations/city/residential/streetw.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/residential/streetwn.jpg"></center>'
			end
		else
			if daystage = 2 or daystage = 3:
				'<center><img <<$set_imgh>> src="images/locations/city/residential/street.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/residential/street_night.jpg"></center>'
			end
		end
	elseif $loc = 'city_center':
		if month >= 11 or month <= 3:
			if daystage = 2 or daystage = 3:
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/downw.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/downwn.jpg"></center>'
			end
		else
			if daystage = 2 or daystage = 3:
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/down.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/down_night.jpg"></center>'
			end
		end
	end
end

if $ARGS[0] = 'exit_set':
	!! exit should be based on type of apartment and location
	if $sex_ev['loc'] ! 'pc_home':
		if npc_residence[$boy] = 1:
			!! Pav residential exit
			gt 'pav_residential'
		elseif npc_residence[$boy] = 2:
			!! Student dorms exit
			gt 'city_island'
		elseif npc_residence[$boy] = 3:
			!! St. Petersburg Residential exit
			gt 'city_residential'
		elseif npc_residence[$boy] = 4:
			!! St. Petersburg City Center exit
			gt 'city_center'
	!!{ disabled for bug testing
		else
			if $region = 'pav':
				gt 'pav_residential'
			elseif $region = 'pav':
				gt 'pav_commercial'
			elseif $region = 'pav_park':
				gt 'pav_park', 'start'
			elseif $region = 'city':
				gt 'city_residential'
			elseif $region = 'city_center':
				gt 'city_center'
			elseif $region = 'city_park':
				gt 'city_park', 'start'
			elseif $region = 'city_island':
				gt 'city_island'
			end}
		end
	else
		gt 'bedrPar'
	end
end

if $ARGS[0] = 'initiate_pre':
	gs 'boystat', $ARGS[1]
!!	if $npc_rel_type[$boy] = 'husband' or $npc_rel_type[$boy] = 'boyfriend' or $npc_rel_type[$boy] = 'fuckbuddy':
	if $npc_rel_type[$boy] ! '':
		gs 'sex_ev_start', 'lover_initiate'
	else
		gs 'sex_ev_start', 'hookup_initiate'
	end
end

if $ARGS[0] = 'boystat_init':
	if sex_ev['boystat_done'] = 0:
		gs 'boystat', $ARGS[1]
		sex_ev['boystat_done'] = 1
	end
end

if $ARGS[0] = 'lover_initiate':
	if $npc_rel_type[$boy] = 'husband':
		$sex_ev['type'] = 'married_sex'
	elseif $npc_rel_type[$boy] = 'boyfriend':
		$sex_ev['type'] = 'dating_sex'
	elseif $npc_rel_type[$boy] = 'fuckbuddy':
		$sex_ev['type'] = 'booty_call'
		if $booty_call_hotel[$boy] = 'pav':
			gs 'sex_ev_start', 'pav_hotel_img_init'
			gt 'sex_ev_start', 'fb_invited_start'
		elseif $booty_call_hotel[$boy] = 'city':
			gs 'sex_ev_start', 'city_hotel_img_init'
			gt 'sex_ev_start', 'fb_invited_start'
		else
			if (booty_call_invite[$boy] = daystart or npc_booty_call_date[$boy] = daystart or npc_booty_call_date[$boy] = daystart) and npc_last_booty_call[$boy] ! daystart:
				gs 'sex_ev_start', 'lover_home_img_init'
				gt 'sex_ev_start', 'fb_invited_start'
			elseif npc_start_free_time[$boy] >= hour and hour <= npc_end_free_time[$boy] and npc_last_booty_call[$boy] ! daystart and npc_no_booty_call[$boy] ! daystart:
				gs 'sex_ev_start', 'lover_home_img_init'
				gt 'sex_ev_start', 'fb_uninvited_start'
			else
				gs 'sex_ev_start', 'lover_home_img_init'
				gs 'sex_ev_start', 'neighborhood_image'
				'You knock on <<$npc_firstname[$boy]>>''s door but there is no answer.'
				act'Leave':gt $loc
			end
		end
	elseif $npc_rel_type[$boy] = 'sugar_daddy':
		$sex_ev['type'] = 'booty_call'
		sugar_daddy_call[$boy] = 1
		if $booty_call_hotel[$boy] = 'pav':
			gs 'sex_ev_start', 'pav_hotel_img_init'
			gt 'sex_ev_start', 'fb_invited_start'
		elseif $booty_call_hotel[$boy] = 'city':
			gs 'sex_ev_start', 'city_hotel_img_init'
			gt 'sex_ev_start', 'fb_invited_start'
		else
			if (booty_call_invite[$boy] = daystart or npc_booty_call_date[$boy] = daystart or npc_booty_call_date[$boy] = daystart) and npc_last_booty_call[$boy] ! daystart:
				gs 'sex_ev_start', 'lover_home_img_init'
				gt 'sex_ev_start', 'fb_invited_start'
			!!{elseif npc_start_free_time[$boy] >= hour and hour <= npc_end_free_time[$boy] and npc_last_booty_call[$boy] ! daystart and npc_no_booty_call[$boy] ! daystart:
				this is disabled until cheating events can be established
				gs 'sex_ev_start', 'lover_home_img_init'
				gt 'sex_ev_start', 'fb_uninvited_start'}
			else
				gs 'sex_ev_start', 'lover_home_img_init'
				gs 'sex_ev_start', 'neighborhood_image'
				'You knock on <<$npc_firstname[$boy]>>''s door but there is no answer.'
				act'Leave':gt $loc
			end
		end
	end
end

if $ARGS[0] = 'hookup_initiate':
	$sex_ev['type'] = 'hookup'
	if $boy ! $npclastgenerated and $boy ! $npclastsaved:
		if npcgen_lastrun = 1:
			gs 'boystat', $npclastgenerated
		elseif npcgen_lastrun = 2:
			gs 'boystat', $npclastsaved
		end
	end
	stat['hookup'] += 1
end

if $ARGS[0] = 'pc_home_img_init':
	$sex_ev['loc'] = 'pc_home'
	if $loc = 'korrPar' or $home['current'] = 'parents_home':
		$sex_ev['bed_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/bedrpar.jpg"></center>'
		$sex_ev['bath_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/vanrpar.jpg"></center>'
		$sex_ev['kitchen_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/kuhrpar.jpg"></center>'
		$sex_ev['living_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/sitrpar.jpg"></center>'
		$sex_ev['hall_way'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/korrpar.jpg"></center>'
	end
end

if $ARGS[0] = 'lover_home_img_init':
	$sex_ev['loc'] = 'npc_home'
	$sex_ev['bed_room'] = $npc_apt_bedroom[$boy]
	$sex_ev['bath_room'] = $npc_apt_bathroom[$boy]
	$sex_ev['kitchen_room'] = $npc_apt_kitchen[$boy]
	$sex_ev['living_room'] = $npc_apt_livingroom[$boy]
	$sex_ev['hall_way'] = $npc_apt_hall[$boy]
end

if $ARGS[0] = 'pav_hotel_img_init':
	$sex_ev['loc'] = 'hotel_room'
	$sex_ev['bed_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal.jpg"></center>'
	$sex_ev['bath_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal1.jpg"></center>'
	$sex_ev['kitchen_room'] = 'none'
	$sex_ev['living_room'] = 'none'
	$sex_ev['hall_way'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.normal.jpg"></center>'
end

if $ARGS[0] = 'city_hotel_img_init':
	$sex_ev['loc'] = 'hotel_room'
	$sex_ev['bed_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
	$sex_ev['bath_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
	$sex_ev['kitchen_room'] = 'none'
	$sex_ev['living_room'] = 'none'
	$sex_ev['hall_way'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best.jpg"></center>'
end

if $ARGS[0] = 'fb_npc_home_start':
!!	gs 'boystat', $ARGS[1]
	$sex_ev['type'] = 'booty_call'
	if (booty_call_invite[$boy] = daystart or npc_booty_call_date[$boy] = daystart or npc_booty_call_date[$boy] = daystart) and npc_last_booty_call[$boy] ! daystart:
		gt 'sex_ev_start', 'fb_invited_start'
	elseif npc_start_free_time[$boy] >= hour and hour <= npc_end_free_time[$boy] and npc_last_booty_call[$boy] ! daystart and npc_no_booty_call[$boy] ! daystart:
		gt 'sex_ev_start', 'fb_uninvited_start'
	else
		gs 'sex_ev_start', 'neighborhood_image'
		'You knock on <<$npc_firstname[$boy]>>''s door but there is no answer.'
		act'Leave':gt $loc
	end
end

if $ARGS[0] = 'hookup_pc_home_start':
	gs 'sex_ev_start', 'hookup_initiate'
	gs 'sex_ev_start', 'pc_home_img_init'
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'undress'
end

if $ARGS[0] = 'hookup_npc_home_start':
	gs 'sex_ev_start', 'hookup_initiate'
	gs 'sex_ev_start', 'lover_home_img_init'
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'undress'
end

if $ARGS[0] = 'hookup_hotel_start':
	gs 'sex_ev_start', 'hookup_initiate'
	if $region = 'pav':
		gs 'sex_ev_start', 'pav_hotel_img_init'
	else
		gs 'sex_ev_start', 'city_hotel_img_init'
	end
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'undress'
end

if $ARGS[0] = 'hookup_party_start':
	gs 'sex_ev_start', 'hookup_initiate'
	$sex_ev['loc'] = 'house_party'
	$sex_ev['bed_room'] = '<center><img <<$set_imgh>> src="images/shared/romance/lovers/homes/multibedroom/<<rand(1,2)>>/bedroom.jpg"></center>'
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'undress'
end

if $ARGS[0] = 'unique_npc_start':
	sex_ev['unique_npc'] = 1
	gs 'sex_ev_start', 'lover_home_img_init'
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'undress'
end

if $ARGS[0] = 'unique_npc_bed_start':
	sex_ev['unique_npc'] = 1
	gs 'sex_ev_start', 'lover_home_img_init'
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'undress_function'
	gs 'sex_ev_foreplay', 'bed_start'
end

if $ARGS[0] = 'begin':
	$location_type = 'event'
	gs 'themes', 'indoors'
	if minut > 45:
		sex_ev['start_hour'] = hour + 1
	else
		sex_ev['start_hour'] = hour
	end
	gs 'sex_ev_stats', 'starting_stats'
	gs 'sex_ev_stats', 'npc_update'
	if sugar_daddy_call[$boy] = 1 or sex_ev['prostitution'] = 1:
		$sex_ev['prostitution_flag'] = 'prostitution'
		sex_ev['prostitution'] = 1
		npc_sugar_daddy_timer[$boy] = daystart + 10
	end
	npc_last_booty_call[$boy] = daystart
end

if $ARGS[0] = 'fb_hotel_start':
	if $region = 'pav':
		gs 'sex_ev_start', 'pav_hotel_img_init'
	else
		gs 'sex_ev_start', 'city_hotel_img_init'
	end
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'undress'
end

if $ARGS[0] = 'fb_invited_start':
!!	$loc = 'sex_ev_start'
!!	$loc_arg = 'fb_invited_start'
!!	savegame 'autosave_sex_ev.sav'
	gs 'sex_ev_start', 'begin'
	$sex_ev['hall_way']
	'You knock on the door and <<$npc_firstname[$boy]>> opens up.'
	if pcs_sweat > 29:
!!		if AlbinaQW['startletsday'] = daystart:
			act'Didn''t have time':
				cla & *nl
				'"I didn''t have time," you smile. "I came as soon as I saw your message."'
				gs 'sex_ev_start', 'fuck_or_what'
				gs 'sex_ev_shower', 'before_borrow_shower'
			end
			if stat['last_workout'] > totminut - 120:
				act'Working out':
					cla & *nl
					if npc_gymrat[$boy] = 1:
						'"Yeah," you smile back.'
					else
						'"I was working out when you messaged," you shrug.'
					end
					gs 'sex_ev_start', 'fb_sweaty'
				end
			end

			if stat['dance_day'] = daystart:
				act'Came from dance':
					cla & *nl
					'"I came straight from dance practice," you shrug.'
					gs 'sex_ev_start', 'fb_sweaty'
				end
			end

!!{			act'Came from football':
				cla & *nl
				'"I was playing football when I saw your message," you shrug.'
					gs 'sex_ev_start', 'fb_sweaty'
			end}

			if stat['volleyball_day'] = daystart:
				act'Came from volleyball':
					cla & *nl
					'"I came straight from volleyball practice," you shrug.'
					gs 'sex_ev_start', 'fb_sweaty'
				end
			end
			if stat['run_day'] = daystart:
				act'I was running':
					cla & *nl
					'"I was on a run when I saw your message," you shrug.'
					gs 'sex_ev_start', 'fb_sweaty'
				end
			end

			act'Came from work':
				cla & *nl
				'"I came straight from work," you shrug. "Didn''t want to go home and clean up first."'
				gs 'sex_ev_start', 'fuck_or_what'
				gs 'sex_ev_shower', 'before_borrow_shower'
			end

			gs 'sex_ev_start', 'couldnt_wait'
!!		end
		if pcs_sweat > 39 and npc_gymrat[$boy] < 1:
			if npc_argumentative[$boy] = 1:
				'"What the fuck?" he says, wrinkling his nose. "You stink."'
			else
				'"A little fresh today, huh?" he says, as the scent of your sweaty body makes him wince; though the smiles wryly.'
			end
		elseif pcs_sweat > 29:
			if rand(1,2) = 1:
				'"Did I interrupt a workout?" he smirks, looking your sweaty body up and down.'
			else
				'"Hey," he says, looking up and down your sweaty body in amusement. "You''re soaking wet."'
				if pcs_horny >= 70:
					act'Yeah':
						cla & *nl
						'"Yeah," you say huskily, letting your arousal seep into your voice. <<$npc_firstname[$boy]>> locks eyes with you for a split second.'
						'"Bed?"'
						'"Now," you pant and rush inside.'
						act'Clothes. Off. Now.':gt 'sex_ev_start', 'undress'
					end
				end
			end
		end
	else
		if npc_selfish[$boy] > 0 and rand(0,1) = 1:
			'"About fucking time," he says.'
		else
			'"Hey," he grins at you.'
		end
		act'Hey':
			cla & *nl
			'"Hey," you smile back. "So..."'
			if npc_selfish[$boy] > 0 and rand(0,1) = 1:
				'"Let''s get you naked," <<$npc_firstname[$boy]>> says, pulling you inside and immediately tugging at your clothes.'
			else
				'"Come on in," he says, and leads you inside.'
			end
			act'Take it to the bed':gt 'sex_ev_start', 'undress'
		end

		act'Shut up and let''s fuck':
			cla & *nl
			if npc_apt_type[$boy] < 3:
				'"Shut up and fuck me already," you say, putting your hands on his chest and pushing him inside towards the bed. "I''m here to fuck. So let''s fuck."'
			else
				'"Shut up and fuck me already," you say, putting your hands on his chest and pushing him inside towards the bedroom. "I''m here to fuck. So let''s fuck."'
			end
			act'Undress':gt 'sex_ev_start', 'undress'
		end

		if pcs_makeup > 1:
			act'Don''t mess up my makeup':
				sex_ev['dont_ruin_makeup'] = 1
				cla & *clr
				$sex_ev['hall_way']
				if npc_apt_type[$boy] < 3:
					'"Don''t mess up my makeup," you say, walking past him towards the bed.'
				else
					'"Don''t mess up my makeup," you say, walking past him towards the bedroom.'
				end
				act'Undress':gt 'sex_ev_start', 'undress'
				if date = daystart and date_hour_meet <= hour + 1:
					act'I have a date soon':
						cla & *clr
						$sex_ev['hall_way']
						sex_ev['date_soon'] = 1
						if npc_apt_type[$boy] < 3:
							'"Don''t mess up my makeup," you say, walking past him towards the bed. "I have a date right after this."'
						else
							'"Don''t mess up my makeup," you say, walking past him towards the bedroom. "I have a date right after this."'
						end
						act'Undress':gt 'sex_ev_start', 'undress'
					end
				elseif date = daystart:
					act'I have a date later':
						cla & *clr
						$sex_ev['hall_way']
						sex_ev['date_soon'] = 1
						if npc_apt_type[$boy] < 3:
							'"Don''t mess up my makeup," you say, walking past him towards the bed. "I have a date later. I don''t want to do it again."'
						else
							'"Don''t mess up my makeup," you say, walking past him towards the bed. "I have a date later. I don''t want to do it again."'
						end
						act'Undress':gt 'sex_ev_start', 'undress'
					end
				end
				if hour >= 18 and $region = 'pav' and (week = 5 or week = 6):
					act'I''m going to the disco':
						cla & *clr
						$sex_ev['hall_way']
						sex_ev['disco_after'] = 1
						!!if npc_apt_type[$boy] < 3:
							'"Don''t mess up my makeup," you say as you let him pull you inside. "I''m going to the disco after this."'
						!!else
						!!	'"Don''t mess up my makeup," you say, walking past him towards the bedroom. "I''m going to the disco after this."'
						!!end
						act'Undress':gt 'sex_ev_start', 'undress'
					end
				end
			end
		end
		if kanikuli = 0 and mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6 and hour < 9 and hour >= 6:
			act'Make it fast (school)':
				cla & *nl
				'"Let''s make this fast," you say. "I have to get to class."'
				act'Undress':gt 'sex_ev_start', 'undress'
			end
		end
		if mc_inventory['normal_condoms'] > 0 and npc_bareback[$boy] = 0:
			act'I brought condoms':
				pc_buy_condoms[$boy] = 2
				cla & *nl
				'"I brought condoms," you grin, holding up the rubbers for him to see.'
				if know_virgin[$boy] = 1:
					'<<$npc_firstname[$boy]>> stares in awe.'
					'"Does that mean...?"'
					'"Come and find out," you say, moving inside.'
				else
					'"Fuck yeah," he says as he drags you inside.'
				end
				act'Undress':gt 'sex_ev_start', 'undress'
			end
		end
		if mc_inventory['morning_after_pill'] > 0 and npc_bareback[$boy] = 0 and npc_know_bc[$boy] = 0:
			act'Brought a morning after pill':
				cla
				sex_ev['skip_condom'] = 1
				!! sex_ev['no_condom'] = 1
				sex_ev['ma_pill'] = 1
				act'No condoms':
					cla & *clr
					$sex_ev['bed_room']
					'"I brought a morning after pill," you whisper in his ear. "<i>We can skip the condoms today.</i>"'
					act'Undress':gt 'sex_ev_start', 'undress'
				end

				act'Come inside me':
					sex_ev['creampie_allowance'] = 1
					cla & *clr
					$sex_ev['bed_room']
					'"I brought a morning after pill," you whisper in his ear. "<i>Fill me with your cum.</i>"'
					act'Undress':gt 'sex_ev_start', 'undress'
				end
			end
		end
		if $pantyworntype = 'none' and $braworntype = 'none':
			act'Tell him you''re not wearing underwear':
				cla & *clr
				$sex_ev['bed_room']
				'You step inside and draw close to <<$npc_firstname[$boy]>>. You lean in and whisper in his ear...'
				*nl
				'<i>"I''m not wearing any underwear."</i>'
				act'Undress':gt 'sex_ev_start', 'undress'
			end
		end
		if birth_control['think_safe'] = 1 and npc_know_bc[$boy] = 0:
			act'Tell him you''re on birth control':
				gs 'sex_ev_stats', 'birth_control_know'
				cla & *clr
				$sex_ev['bed_room']
				'You step inside and draw close to <<$npc_firstname[$boy]>>. You lean in and whisper in his ear...'
				*nl
				act'No condoms':
					cla & *clr
					$sex_ev['bed_room']
					if npc_know_bc_not_effective[$boy] = 1 or npc_bc_promise[$boy] = 1:
						'"<i>My birth control is ready. Let''s go bareback today.</i>"'
					else
						'"<i>I''m on birth control now. Let''s go bareback today.</i>"'
					end
					act'Undress':gt 'sex_ev_start', 'undress'
				end

				act'Creampies are okay today':
					sex_ev['creampie_allowance'] = 1
					cla & *clr
					$sex_ev['bed_room']
					if npc_know_bc_not_effective[$boy] = 1 or npc_bc_promise[$boy] = 1:
						'"<i>My birth control is ready. You can come inside me.</i>"'
					else
						'"<i>I''m on birth control now. You can come inside me.</i>"'
					end
					act'Undress':gt 'sex_ev_start', 'undress'
				end
			end
		elseif mesec > 0:
			act'"I''m on my period"':
				cla & *clr
				$sex_ev['bed_room']
				'You step inside and draw close to <<$npc_firstname[$boy]>>. You lean in and whisper in his ear...'
				*nl
				act'No condoms':
					cla & *clr
					$sex_ev['bed_room']
					'"<i>I''m on my period right now. Let''s go bareback today.</i>"'
					act'Undress':gt 'sex_ev_start', 'undress'
				end

				act'Come inside me':
					sex_ev['creampie_allowance'] = 1
					cla & *clr
					$sex_ev['bed_room']
					'"<i>I''m on my period right now. You can come inside me.</i>"'
					act'Undress':gt 'sex_ev_start', 'undress'
				end
			end
		end

		if npc_shave_promise[$boy] > 0 and pcs_pubes < 4:
			act'Tell him you shaved':
				cla & *clr
				$sex_ev['bed_room']
				'"I have a special surprise too," you say, stepping inside and drawing close to <<$npc_firstname[$boy]>>. You lean in and whisper in his ear, "<i>I shaved my pussy for you.</i>"'
				act'Undress':gt 'sex_ev_start', 'undress'
			end
		end
!!	act'Stumble over to the couch':gt 'sex_ev_start', 'couch_start'
	end
end

if $ARGS[0] = 'couldnt_wait':
	act'Couldn''t wait':
		cla & *nl
		'"I couldn''t wait," you grin. "<i>Can''t</i> wait. Bedroom?"'
		'"Bedroom," he nods and drags you inside.'
		act'Clothes. Off. Now.':gt 'sex_ev_start', 'undress'
	end
end

if $ARGS[0] = 'fuck_or_what':
	act'Are we going to fuck or what?':
		cla & *nl
		'"So are are we going to fuck or are you going just to keep standing there?" you grin.'
		'<<$npc_firstname[$boy]>> doesn''t say anything, instead grabbing you by the arms and dragging you inside.'
		act'Clothes. Off. Now.':gt 'sex_ev_start', 'undress'
	end
end


if $ARGS[0] = 'fb_sweaty':
	if npc_gymrat[$boy] = 1 or $npc_apt_spare[$boy] = 'gym':
		gs 'sex_ev_start', 'fuck_or_what'
		gs 'sex_ev_shower', 'before_borrow_shower'
	else
		'"And you couldn''t take a shower first?"'
		gs 'sex_ev_start', 'couldnt_wait'
		gs 'sex_ev_shower', 'before_borrow_shower'
	end
end

if $ARGS[0] = 'fb_uninvited_start':
	gs 'sex_ev_start', 'begin'
	gs 'sex_ev_start', 'lover_home_img_init'
	$sex_ev['hall_way']
	'You knock on the door and you hear the latch unlock and the door swings open.'
	act'I was in the neighborhood':
		cla & *nl
		'"Hey," you smile at <<$npc_firstname[$boy]>> who blinks in surprise. "I was in the neighborhood and I started thinking about you, wondering if you wanted to fool around some...?"'
		if npc_booty_call_date[$boy] = daystart:
			'"I was just about to text you," he grins.'
			'So am I coming in or what?" you grin back.'
		else
			'"You couldn''t have called first?"'
			'You shrug.'
			'"Wanted to surprise you. So am I coming in or what?"'
		end

		if rand(1,10) < npc_sexdrive[$boy]:
			if npc_humor[$boy] = 2 and $npc_cum_pref[$boy] = 'creampie':
				'"I''m the only one who''s gonna be coming inside," he says, leering at your ass as he steps aside to let you in.'
			elseif npc_humor[$boy] = 2 and $npc_cum_pref[$boy] = 'mouth':
				'"I''m the only one who''s gonna be coming inside," he says, leering at your ass as he steps aside to let you in. "In your mouth that is."'
			elseif npc_booty_call_date[$boy] = daystart:
				'"As long as those clothes are coming off in the next 10 seconds," he says, leering at your ass as he steps aside to let you in.'
			else
				'"Well I won''t say no to a free fuck," he smirks, stepping aside to let you in and leering at your ass as you walk past.'
			end
			act'Go to the bedroom':gt 'sex_ev_start', 'undress'
		else
			gs 'sex_ev_start', 'uninvited_deny'
		end
	end

	act'Surprise!':
		cla & *nl
		if rand(1,10) < npc_sexdrive[$boy]:
			'"Surprise!" you shout gleefully at a startled <<$npc_firstname[$boy]>>. "Just happened to be walking by and I thought I might drop in, see if you wanted to fool around?" You grin at him, bouncing your eyebrows suggestively.'
			'"Well I won''t say no if that''s what you want," he smirks, stepping aside to let you in and leering at your ass as you walk past.'
			act'Go to the bedroom':gt 'sex_ev_start', 'undress'
		else
			gs 'sex_ev_start', 'uninvited_deny'
		end
	end

	act'I need a good fuck':
		cla & *nl
		if rand(1,10) < npc_sexdrive[$boy]:
			'<<$npc_firstname[$boy]>> stands there startled as you step forward, putting your hand on his chest.'
			'"I need a good fuck and I need it right now," you say.'
			'A moment passes with you staring into his eyes with a smouldering gaze before he drags you inside, slamming the door behind you.'
			act'Go to the bedroom':gt 'sex_ev_start', 'undress'
		else
			gs 'sex_ev_start', 'uninvited_deny'
		end
	end
end

if $ARGS[0] = 'uninvited_deny':
	npc_no_booty_call[$boy] = daystart
	'"You should''ve texted," <<$npc_firstname[$boy]>> says shaking his head. "I''m not in the mood, maybe some other time."'
	'He closes the door on you abruptly and you''re left standing outside horny and alone.'
	act'Leave':gt $loc
end

if $ARGS[0] = 'girlfriend_surprise1':
	'You knock on the door and you hear the latch unlock and the door swings open.'
	act'I was in the neighborhood':
		cla & *nl
		'"Hey, I was in the neighborhood-" you start to smile and freeze when you realize it''s not <<$npc_firstname[$boy]>>, but another woman standing in front of you.'

	end

	act'Surprise!':
		cla & *nl
		'"Surprise!" you shout gleefully at a startled <<$npc_firstname[$boy]>>. "Just happened to be walking by and I thought I might drop in, see if you wanted to fool around?" You grin at him, bouncing your eyebrows suggestively.'
		'"Well I won''t say no if that''s what you want," he smirks, stepping aside to let you in and leering at your ass as you walk past.'
		act'Go to the bedroom':gt 'sex_ev_start', 'undress'
	end

	act'I need a good fuck':
		cla & *nl
		'<<$npc_firstname[$boy]>> stands there startled as you step forward, putting your hand on his chest.'
		'"I need a good fuck and I need it right now," you say.'
		'A moment passes with you staring into his eyes with a smouldering gaze before he drags you inside, slamming the door behind you.'
		act'Go to the bedroom':gt 'sex_ev_start', 'undress'
	end

	if drunk = 1:
		cla & *nl
		act'Guess who''s drunk!':

		end
	end
end

if $ARGS[0] = 'girlfriend_surprise2':

end

if $ARGS[0] = 'girlfriend_cheater1':
	'You walk into <<$npc_firstname[$boy]>>''s apartment, you freeze as you enter seeing a woman standing there, clearly not expecting someone else to arrive here today.'
	'woman: "who are you?"'
	'Sveta: "Uhm, I''m <<$pcs_nickname>>, I''m here to see <<$npc_firstname[$boy]>>.'
	'The woman looks at you questiongly, wondering why you''re here and how you got a key to the apartment. looking at her face you see she it''s dawning on here why you''re here.'
	'"oh fuck" you think inwardly realizing this is either another one of <<$npc_firstname[$boy]>> fuckbuddies who didn''t know he was fucking other girls or this is a girlfriend.'
	'"why?" she says with a hint of poison to her words'
	'Sveta: "ehhh, I''m just here to..."'
end

if $ARGS[0] = 'undress':
	cla & *clr
	gs 'sex_ev_start', 'undress_function'
	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
	if $sex_ev['loc'] = 'house_party':
		if npc_humor[$boy] = 2 or $npc_fidelity[$boy] = 'cheater':
			'You stumble into an empty room with <<$npc_firstname[$boy]>>, barely getting through the door before clothes start getting discarded. Before you can fully get your <<$sex_ev[''top_noun'']>> off, rough hands slide over your skin.'
			'"Girls like you all want the same thing," he grins as he tears it off and pins you to the wall. His hands seem to find every inch of your bare skin. By the time you''re at the bed, there''s a trail of clothing across the floor.'
		elseif npc_humor[$boy] = 1:
			'You stumble into an empty room with <<$npc_firstname[$boy]>>, barely getting through the door before clothes start getting discarded. His eyes light up as your breasts are exposed and he openly leers at them.'
			'"Fuck..." The way <<$npc_firstname[$boy]>> stares at your boobs, he looks like a boy on Christmas day. He suddenly remembers he needs to get undressed as well and scrambles to take off his pants. His eyes never leave your body as you lead him toward the bed.'
		elseif npc_humor[$boy] = 3:
			'You stumble into an empty room with <<$npc_firstname[$boy]>>, barely getting through the door before clothes start getting discarded. Before you can fully get your <<$sex_ev[''top_noun'']>> off, warm hands slide stop you.'
			'"Hold up your arms," he orders as he expertly pulls it over your shoulders. His slightly labored breath makes you want to rush but he takes his time. By the time you''re make the bed, you are naked and panting.'
		else
			'You tear each other''s clothes off, leaving a trail of discarded fabrics.'
		end
	else
		if npc_humor[$boy] = 2 or $npc_fidelity[$boy] = 'cheater':
			'The moment you''re through the door, the both of you begin discarding clothes in a hurry. Before you can fully get your <<$sex_ev[''top_noun'']>> off, rough hands slide over your skin.'
			'"Girls like you all want the same thing," he says as he rips it off and pins you to the wall. His hands seem to find every inch of your bare skin. By the time you''re at the bed, there''s a trail of clothing across the floor.'
		elseif npc_humor[$boy] = 1:
			'<<$npc_firstname[$boy]>> can''t keep his eyes off you as you lead him.'
			'"Fuck," he groans as you start to undress once you''re inside the door. His eyes light up as your breasts are exposed and he openly leers at them. He suddenly remembers he needs to get undressed as well and scrambles to take off his pants. His eyes never leave your body as you lead him toward the bed.'
		elseif npc_humor[$boy] = 3:
			'The moment you''re through the door, the both of you begin discarding clothes in a hurry. Before you can fully get your <<$sex_ev[''top_noun'']>> off, warm hands slide stop you.'
			'"Hold up your arms," he orders as he expertly pulls it over your shoulders. His slightly labored breath makes you want to rush but he takes his time. By the time you''re make the bed, you are naked and panting.'
		else
			'You tear each other''s clothes off, leaving a trail of discarded fabrics.'
		end
	end
	if $sex_ev['loc'] ! 'pc_home' or $home['current'] ! 'parents_home':
		gs 'sex_ev_foreplay', 'bed_start'
	else
		act'Go to your bed':gs 'sex_ev_foreplay', 'bed_start'

		act'Go to Anya''s bed':$sex_ev['bed_choice'] = 'anya_bed' & sisterQW['sex_bed_count'] += 1 & sisterQW['sex_bed'] = daystart & gs 'sex_ev_foreplay', 'bed_start'
	end
end

if $ARGS[0] = 'undress_function':
	if sex_ev['undressed_check'] ! 1:
		sex_ev['undressed_check'] = 1
		$lastwornclothingtype['sex_ev'] = $clothingworntype
		lastwornclothingnumber['sex_ev'] = clothingwornnumber

		$lastwornpantytype['sex_ev'] = $pantyworntype
		lastwornpantynumber['sex_ev'] = pantywornnumber

		$lastwornbratype['sex_ev'] = $braworntype
		lastwornbranumber['sex_ev'] = brawornnumber

		if CloDress = 1:
			sex_ev['CloDress'] = 1
			$sex_ev['top_noun'] = 'dress'
		else
			$sex_ev['top_noun'] = 'top'
		end
		if PCloStyle2 = 4: npc_know_schoolgirl[$boy] = 1
		if $clothingworntype ! 'nude':gs 'clothing', 'strip'
		if $braworntype ! 'none':gs 'bras', 'remove'
		if $pantyworntype ! 'none':gs 'panties', 'remove'
	end
end

if $ARGS[0] = 'pre_reaction':
	if $npc_dick_desc[$boy] = 'tiny' or $npc_dick_desc[$boy] = 'short':
		'<<$npc_firstname[$boy]>>''s pants drop, revealing... what the fuck? Is that a micropenis?'
		'It''s basically the same size as your little finger.'
	elseif $npc_dick_desc[$boy] = 'chode':
		'<<$npc_firstname[$boy]>> pumps his short cock in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But the added lubrication is welcome and his chode slips in and out of you with ease.'
	elseif $npc_dick_desc[$boy] = 'skinny':
		'<<$npc_firstname[$boy]>> pumps his skinny dick in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But the added lubrication is welcome and his slim cock slips in and out of you with ease.'
	elseif $npc_dick_desc[$boy] = 'normal':
		'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But the added lubrication is welcome and his cock slips in and out of you with ease.'
	elseif $npc_dick_desc[$boy] = 'thick':

		'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But the added lubrication is welcome and his thick cock slips in and out of you with ease.'
	elseif $npc_dick_desc[$boy] = 'long':
			'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But his dick is so long that it barely fits inside you, so the added lubrication is more than welcome.'
	elseif $npc_dick_desc[$boy] = 'huge':
		'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But you still gasp with every thrust, his huge cock filling you up with every thrust, so the added lubrication is more than welcome.'
	elseif $npc_dick_desc[$boy] = 'enormous':
		'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But you still gasp with every thrust, his huge cock filling you up with every thrust, so the added lubrication is more than welcome.'
	elseif $npc_dick_desc[$boy] = 'lengthy':
		'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Soft squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But his cock is so long that he bumps against your cervix with every thrust, so the added lubrication is more than welcome.'
	elseif $npc_dick_desc[$boy] = 'gigantic':
		'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Loud squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But his gigantic cock is so big that he fills you to the brim with every thrust, so the added lubrication is more than welcome.'
	elseif $npc_dick_desc[$boy] = 'monster':
		'<<$npc_firstname[$boy]>> pumps his dick in and out of you slowly, focusing more on technique than speed. Loud squelching comes from between your legs, a little wetter sounding than usual, probably on account of your period. But his monstrous cock is so big that he nearly splits you in half with every thrust, so the added lubrication is more than welcome.'
	end
end

if $ARGS[0] = 'bed_start':
	!! $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


if $ARGS[0] = 'mey_home_start':
	if $npc_rel_type[$boy] ! '': gs 'sex_ev_start', 'hookup_initiate'
	$sex_ev['bed_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/guestroom.jpg"></center>'
	$sex_ev['bath_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/hotel.room.best1.jpg"></center>'
	$sex_ev['kitchen_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/kitchen.jpg"></center>'
	$sex_ev['living_room'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/hall.jpg"></center>'
	$sex_ev['hall_way'] = '<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/meynolds/corridor.jpg"></center>'
	gs 'vicky_meynold_schedule'
	gs 'katja_meynold_schedule'
	gs 'sex_ev_start', 'begin'
	if (locat['Vicky'] = 9 or locat['Vicky'] = 12 or locat['Vicky'] = 13 or locat['Vicky'] = 15) and (locat['katja'] = 7 or locat['katja'] = 9):


	elseif locat['Vicky'] = 9 or locat['Vicky'] = 12 or locat['Vicky'] = 13 or locat['Vicky'] = 15:

	elseif locat['katja'] = 7 or locat['katja'] = 9:

	end
	gs 'sex_ev_start', 'undress'
end

if $ARGS[0] = 'mey_vicky_spot':
	cla & *clr
	$sex_ev['hall_way']
	'You lead <<$npc_firstname[$boy]>> into the Meynold''s home.'
	if locat['Vicky'] = 15:
		if rand(1,2) = 1:
			'At that moment, Vicky comes tearing around the corner, her face pressed up against Vanya''s and arms wrapped around his neck as he slams her into the wall with a thud.'
			'"<i>Oh!</i> Oh honey~!" she moans as he thrusts his hand under her skirt. "Fuck! I need you inside me now!"'
			'The two of them stagger off down the hall towards Vicky''s room, apparently too caught up in each other to even notice you brought a guy home.'
		else
			'At that moment, Vicky comes strolling around the corner, her arm in Vanya''s, giggling at something he said. She spots you out of the corner of her eye and pulls up short in surprise.'
			'"Oh! <<$pcs_nickname>>! Is this a boytoy of yours?"'
			'"Yeah," you admit, somewhat embarrassed. She just smirks back in turn.'
			'"Well I don''t want to get in your way. Make sure you pork her good!" Vicky says, winking at <<$npc_firstname[$boy]>>. "She deserves it. If you don''t I''m gonna make sure I hear all about it later!"'
			'And with that, she and Vayna continue on to some other part of the house.'
		end
	else
		'blahblah'
	end
end

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