AddedFlavour/locations/mod_addedflavour_SFLA_SexFunctions.qsrc

# mod_addedflavour_SFLA_SexFunctions

	if $ARGS[0] = 'npcsex':
		CLOSE ALL
		*clr & cla
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Voyeur'
		if $loc = 'mod_addedflavour_SFLA_Bedr1':
			modVar_AF_LocBlock['SFLA_Bedr1'] = 1
		elseif $loc = 'mod_addedflavour_SFLA_Bedr2':
			modVar_AF_LocBlock['SFLA_Bedr2'] = 1
		elseif $loc = 'mod_addedflavour_SFLA_Bedr3':
			modVar_AF_LocBlock['SFLA_Bedr3'] = 1
		end
		if ARGS[2] < ARGS[1]:
			modVar_AF_Temp = ARGS[2]
			modVar_AF_Temp2 = ARGS[1]
		else
			modVar_AF_Temp = ARGS[1]
			modVar_AF_Temp2 = ARGS[2]
		end
		$SFLA_SexFunctions_CharOne = $npc_firstname['A<<modVar_AF_Temp>>']
		$SFLA_SexFunctions_CharTwo = $npc_firstname['A<<modVar_AF_Temp2>>']
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , modVar_AF_Temp , rand(10,(10 * difficulty))
		gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , modVar_AF_Temp2 , rand(10,(10 * difficulty))
		SFLA_SexFunctions_SexLevel = 0
		if modVar_AF_SexProg['A<<modVar_AF_Temp>>XA<<modVar_AF_Temp2>>'] >= modVar_AF_SexProg['TouchGate'] : SFLA_SexFunctions_SexLevel += 1
		if modVar_AF_SexProg['A<<modVar_AF_Temp>>XA<<modVar_AF_Temp2>>'] >= modVar_AF_SexProg['KissGate'] : SFLA_SexFunctions_SexLevel += 1
		if modVar_AF_SexProg['A<<modVar_AF_Temp>>XA<<modVar_AF_Temp2>>'] >= modVar_AF_SexProg['OralGate'] : SFLA_SexFunctions_SexLevel += 1
		if modVar_AF_SexProg['A<<modVar_AF_Temp>>XA<<modVar_AF_Temp2>>'] >= modVar_AF_SexProg['VaginalGate'] : SFLA_SexFunctions_SexLevel += 1
		modVar_AF_Rand = rand(1,SFLA_SexFunctions_SexLevel)
		if modVar_AF_Temp = 700 and modVar_AF_Temp2 = 701:
			if modVar_AF_Rand = 1:
				$SFLA_SexFunctions_NPCSexType = 'Touch'
				$SFLA_SexFunctions_NPCSexLine = 'Elizabeth has Kazumis body completely under her control!  She has revealed her welcoming busom and claimed her open pussy for her own.'
			elseif modVar_AF_Rand = 2:
				$SFLA_SexFunctions_NPCSexType = 'Kiss'
				$SFLA_SexFunctions_NPCSexLine = 'Elizabeth and Kazumi are making out with a care in the world.  They are completely gripped with eachothers presence!'	
			elseif modVar_AF_Rand = 3:
				$SFLA_SexFunctions_NPCSexType = 'Oral'
				$SFLA_SexFunctions_NPCSexLine = 'Kazumi has laid back and allowed Elizabeth as full oral assault of her nether regions.  Minute by minute you see Kazumi succombing to the pleasure of it!'	
			elseif modVar_AF_Rand = 4:
				$SFLA_SexFunctions_NPCSexType = 'Vaginal'
				$SFLA_SexFunctions_NPCSexLine = 'All regard for the outside world has been lost and they are laying along each others bodies giving total pleasure their quiverring vaginas!'
			end	
		elseif modVar_AF_Temp = 700 and modVar_AF_Temp2 = 702:
			if modVar_AF_Rand = 1:
				$SFLA_SexFunctions_NPCSexType = 'Touch'
				$SFLA_SexFunctions_NPCSexLine = 'Kazumi and Janina are almost fully naked but that has not stopped them from get very close and personal with each other!'
			elseif modVar_AF_Rand = 2:
				$SFLA_SexFunctions_NPCSexType = 'Kiss'
				$SFLA_SexFunctions_NPCSexLine = 'Kazumi might have Janina on her back but it is Jan who has total control of the situation; their lust having boiled to the point they are kissing with no recognition of the world around them.'	
			elseif modVar_AF_Rand = 3:
				$SFLA_SexFunctions_NPCSexType = 'Oral'
				$SFLA_SexFunctions_NPCSexLine = 'There might have been an instruction uttered before you arrived as Kazumi is going down on Janina.  She is licking Janinas pussy with particular attention to her clit, sparking significant arousal in Jans usual cool demenour!'
			elseif modVar_AF_Rand = 4:
				$SFLA_SexFunctions_NPCSexType = 'Vaginal'
				$SFLA_SexFunctions_NPCSexLine = 'They are now completely naked and in the confines of each others body.  Pussy is grinding into pussy with the sound of orgasm peaking already!'
			end	
		elseif modVar_AF_Temp = 701 and modVar_AF_Temp2 = 702:
			if modVar_AF_Rand = 1:
				$SFLA_SexFunctions_NPCSexType = 'Touch'
				$SFLA_SexFunctions_NPCSexLine = 'It appears that Elizabeth has got Janina to give her a massage (she does seem to like them!).  Janina certainly has no problem with it though and is touching her body without restraint.'
			elseif modVar_AF_Rand = 2:
				$SFLA_SexFunctions_NPCSexType = 'Kiss'
				$SFLA_SexFunctions_NPCSexLine = 'It seems that Janina has taken advantage of Elizabeths submission to lean in and kiss her!  Elizabeth sure is enjoying it though...'
			elseif modVar_AF_Rand = 3:
				$SFLA_SexFunctions_NPCSexType = 'Oral'
				$SFLA_SexFunctions_NPCSexLine = 'Janina is going all out on Elizabeths vagina!  Its a wonder if Liz will have any comprehension left after this.'	
			elseif modVar_AF_Rand = 4:
				$SFLA_SexFunctions_NPCSexType = 'Vaginal'
				$SFLA_SexFunctions_NPCSexLine = 'Janina is presenting her welcoming pussy which Elizabeths lust-addled mind has lept upon tongue first!'
			end	
		end
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Activity/<<$SFLA_SexFunctions_CharOne>><<$SFLA_SexFunctions_CharTwo>><<$SFLA_SexFunctions_NPCSexType>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'Whoa!  You were almost about to walk in on a very personal scene between <<$SFLA_SexFunctions_CharOne>> and <<$SFLA_SexFunctions_CharTwo>>!'
		*nl
		'<<$SFLA_SexFunctions_NPCSexLine>>'
		*nl
		'You feel it is best to leave them at it...'
		act 'Return to Living Room' : gt 'mod_addedflavour_SFLA_Sitr' , 'start'
	end
	
	if $ARGS[0] = 'playersex':
		*clr & cla
		SFLA_PlayerSex_NPCID = ARGS[1]
		$SFLA_PlayerSex_NPCName = $npc_firstname['A<<SFLA_PlayerSex_NPCID>>']
		$SFLA_PlayerSex_FontColour = $npc_fontcolor['A<<SFLA_PlayerSex_NPCID>>']
		KILLVAR '$SFLA_PlayerSex_NPCSexVideoLocList'
		copyarr '$SFLA_PlayerSex_NPCSexVideoLocList','$modArr_AF_A<<SFLA_PlayerSex_NPCID>>_SexVideoLoc'
		KILLVAR '$SFLA_PlayerSex_NPCSexVideoDescList'
		copyarr '$SFLA_PlayerSex_NPCSexVideoDescList','$modArr_AF_A<<SFLA_PlayerSex_NPCID>>_SexVideoDesc'
		KILLVAR '$SFLA_PlayerSex_VideoConditions'
		'<center><b><font color="<<$SFLA_PlayerSex_FontColour>>"><<$npc_firstname[''A<<SFLA_PlayerSex_NPCID>>'']>> <<$npc_lastname[''A<<SFLA_PlayerSex_NPCID>>'']>></font></b></center>'
		if $loc = 'mod_addedflavour_SFLA_Bal':
			$SFLA_PlayerSex_VideoConditions[] = '{Balcony}'
		elseif $loc = 'mod_addedflavour_SFLA_BaRm':
			$SFLA_PlayerSex_VideoConditions[] = '{Bathroom}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr1':
			$SFLA_PlayerSex_VideoConditions[] = '{Bed}'
			$SFLA_PlayerSex_VideoConditions[] = '{Chair}'
			$SFLA_PlayerSex_VideoConditions[] = '{Desk}'
			$SFLA_PlayerSex_VideoConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr2':
			$SFLA_PlayerSex_VideoConditions[] = '{Bed}'
			$SFLA_PlayerSex_VideoConditions[] = '{Chair}'
			$SFLA_PlayerSex_VideoConditions[] = '{Desk}'
			$SFLA_PlayerSex_VideoConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr3':
			$SFLA_PlayerSex_VideoConditions[] = '{Bed}'
			$SFLA_PlayerSex_VideoConditions[] = '{Chair}'
			$SFLA_PlayerSex_VideoConditions[] = '{Desk}'
			$SFLA_PlayerSex_VideoConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr4':
			$SFLA_PlayerSex_VideoConditions[] = '{Bed}'
			$SFLA_PlayerSex_VideoConditions[] = '{Chair}'
			$SFLA_PlayerSex_VideoConditions[] = '{Desk}'
			$SFLA_PlayerSex_VideoConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Kit':
			$SFLA_PlayerSex_VideoConditions[] = '{Kitchen}'
			$SFLA_PlayerSex_VideoConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Sitr':
			$SFLA_PlayerSex_VideoConditions[] = '{Chair}'
			$SFLA_PlayerSex_VideoConditions[] = '{Sofa}'
			$SFLA_PlayerSex_VideoConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_SpRm':
			if modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2 : $SFLA_PlayerSex_VideoConditions[] = '{Bed}'
			if modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2 : $SFLA_PlayerSex_VideoConditions[] = '{Chair}'
			if modVar_AF_SFLA_AptState['SpareRoomOccupied'] ! 2 : $SFLA_PlayerSex_VideoConditions[] = '{Sofa}'
			$SFLA_PlayerSex_VideoConditions[] = '{Desk}'
			$SFLA_PlayerSex_VideoConditions[] = '{Indoor}'
		elseif $loc = 'city_island':
			$SFLA_PlayerSex_VideoConditions[] = '{Desk}'
		elseif $loc = 'city_park':
			$SFLA_PlayerSex_VideoConditions[] = '{Outdoor}'
		elseif $loc = 'torgcentr':
			$SFLA_PlayerSex_VideoConditions[] = '{Shop}'
			$SFLA_PlayerSex_VideoConditions[] = '{Outdoor}'
		elseif $loc = 'club':
			$SFLA_PlayerSex_VideoConditions[] = '{Party}'
		end
		KILLVAR '$SFLA_PlayerSex_VidOptions'	
		SFLA_PlayerSex_VideoLocLoopCount = 0
		:SFLA_PlayerSex_VideoLocLoopstart
		modVar_AF_Temp = 0
		if SFLA_PlayerSex_VideoLocLoopCount >= arrsize('$SFLA_PlayerSex_NPCSexVideoLocList') : jump 'SFLA_PlayerSex_VideoLocLoopend'
		if modVar_AF_SexProg['A<<SFLA_PlayerSex_NPCID>>'] >= modVar_AF_SexProg['ThreesomeGate']:
			modVar_AF_Temp = 1
		elseif (modVar_AF_SexProg['A<<SFLA_PlayerSex_NPCID>>'] > modVar_AF_SexProg['VaginalGate'] and strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoLocLoopCount],'{Vaginal}') > 0):
			modVar_AF_Temp = 1
		elseif (modVar_AF_SexProg['A<<SFLA_PlayerSex_NPCID>>'] > modVar_AF_SexProg['OralGate'] and strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoLocLoopCount],'{Oral}') > 0):
			modVar_AF_Temp = 1
		elseif (modVar_AF_SexProg['A<<SFLA_PlayerSex_NPCID>>'] > modVar_AF_SexProg['KissGate'] and strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoLocLoopCount],'{Kiss}') > 0):
			modVar_AF_Temp = 1
		elseif (modVar_AF_SexProg['A<<SFLA_PlayerSex_NPCID>>'] > modVar_AF_SexProg['TouchGate'] and strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoLocLoopCount],'{Touch}') > 0):
			modVar_AF_Temp = 1
		end
		if modVar_AF_Temp ! 1 : SFLA_PlayerSex_VideoLocLoopCount += 1 & jump 'SFLA_PlayerSex_VideoLocLoopstart'
		SFLA_PlayerSex_VideoDescLoopCount = 0
		:SFLA_PlayerSex_VideoDescLoop
		if SFLA_PlayerSex_VideoDescLoopCount >= arrsize('$SFLA_PlayerSex_VideoConditions') : SFLA_PlayerSex_VideoLocLoopCount += 1 & jump 'SFLA_PlayerSex_VideoLocLoopstart'
		if strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoLocLoopCount],$SFLA_PlayerSex_VideoConditions[SFLA_PlayerSex_VideoDescLoopCount]) > 0 : SFLA_PlayerSex_VidOptions[] = SFLA_PlayerSex_VideoLocLoopCount
		SFLA_PlayerSex_VideoDescLoopCount += 1
		jump 'SFLA_PlayerSex_VideoDescLoop'
		:SFLA_PlayerSex_VideoLocLoopend
		if arrsize('$SFLA_PlayerSex_VidOptions') > 0:
			modVar_AF_Rand = (rand(1,arrsize('SFLA_PlayerSex_VidOptions'))) - 1
			SFLA_PlayerSex_VideoArrPos = SFLA_PlayerSex_VidOptions[modVar_AF_Rand]
			$SFLA_PlayerSex_VidChoice = $SFLA_PlayerSex_NPCSexVideoLocList[SFLA_PlayerSex_VideoArrPos]
			'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="<<$SFLA_PlayerSex_VidChoice>>' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
			*nl
			if strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoArrPos],'{Vaginal}') > 0:
				gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Loss' , SFLA_PlayerSex_NPCID , rand(30,50)
				modVar_AF_Rand = rand(1,(9 - difficulty))
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Vaginal' , modVar_AF_Rand
				if SFLA_PlayerSex_NPCID = 34:
					gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagSex'
					gs 'boyStat', 'A34'
					sexpartkno = 1
					$orgasm_or = 'yes'
					gs 'arousal', 'vaginal', 3, 'incest'
					gs 'Cum_Manage'
					'You and Kolka can contain yourselves no longer.  The desire to give your body to him has robbed you of your rational thought and so you immediately get in position for him to plunge his cock deep into you.  Your familial fuck session is thrusting your orgasm to the fore; you no longer care if any of your housemates have come home, you only care for your Brothers cock hammering your eager folds.  Soon enough a massive orgasm bellows from you, closely followed by Kolka blasting his load deep inside you.'
				elseif SFLA_PlayerSex_NPCID = 700 or SFLA_PlayerSex_NPCID = 701 or SFLA_PlayerSex_NPCID = 702:
					gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Oral_Recv'
					'You and <<$SFLA_PlayerSex_NPCName>> can hold back no longer so launch yourselves at each others bodies.  It is a cauldren of unabashed lust whereupon neither of you can hold back the sexual desires of the other.  Just as <<$SFLA_PlayerSex_NPCName>> targets your vagina for pleasure you choose to do the same to hers; if anyone else was watching they would be unable to restrain their arousal any more than you can your own!  You both bring each other to an explosive orgasm before <<$SFLA_PlayerSex_NPCName>> looks into your eyes with exhausted satisfaction...'
				end
			elseif strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoArrPos],'{Oral}') > 0:
				gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , SFLA_PlayerSex_NPCID , (5 + (2 * difficulty))
				gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_VagPlay_Give'
				modVar_AF_Rand = rand(1,(9 - difficulty))
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Oral' , modVar_AF_Rand
				if SFLA_PlayerSex_NPCID = 34:
					'The desire to put tongue to familial erogenous areas has peaked to the point it can no longer be controlled culminating in some extreme oral satisfaction.  It isn''t long before arousal is sent into overdrive prompting a thundering orgasm and a very satisfied body.'
				elseif SFLA_PlayerSex_NPCID = 700 or SFLA_PlayerSex_NPCID = 701 or SFLA_PlayerSex_NPCID = 702:
					'You and <<$SFLA_PlayerSex_NPCName>> look deeply at each other and know exactly what the other is interested in.  Both of you stare down the other, each waiting for the dam burst of lust to trigger an action.  Eventually it does and you got at her body lust fuelled abandon before moving to her vagina to give the pleasure she so badly craves.  It doesn''t take long for her orgasm to land and so <<$SFLA_PlayerSex_NPCName>> returns the favour with a tongue lashing of her own!  You part with a deep sense of satisfaction.'
				end
			elseif strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoArrPos],'{Kiss}') > 0:
				gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , SFLA_PlayerSex_NPCID , rand(10,(10 * difficulty))
				gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Kiss'
				modVar_AF_Rand = rand(1,(8 - difficulty))
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Kiss' , modVar_AF_Rand
				if SFLA_PlayerSex_NPCID = 34:
					'You get close to Kolka and press your lips upon his.  You both have been desiring each others bodies with a hidden lust and the feelings are bursting over into the form of a heavy make out session.  Your hands go out searching for their own satisfaction and succeed in finding what they desire, only ramping up both of your arousal.'
				elseif SFLA_PlayerSex_NPCID = 700 or SFLA_PlayerSex_NPCID = 701 or SFLA_PlayerSex_NPCID = 702:
					'You can only look at <<$SFLA_PlayerSex_NPCName>>''s lips without having them for so long and sure enough your desires exceeds your restraint; prompting you to throw yourself at her presence.  She returns the affections with eagerness and soon enough the pair of you are locking in a deep and fulfilling kiss.'
				end
			elseif strpos($SFLA_PlayerSex_NPCSexVideoDescList[SFLA_PlayerSex_VideoArrPos],'{Touch}') > 0:
				gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , SFLA_PlayerSex_NPCID , rand(5,(5 * difficulty))
				gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_Touch_Recv'
				modVar_AF_Rand = rand(1,(8 - difficulty))
				gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Touch' , modVar_AF_Rand
				if SFLA_PlayerSex_NPCID = 34:
					'You and Kolka move towards eachother with unashamed lust.  His penis is hard just at the realisation at how much you want his body, but you maintain enough control to restrain yourself from launching yourself on it.  Meanwhile, you both maintain a close interest in letting your hands explore each others form, letting them go searching for their desires...'
				elseif SFLA_PlayerSex_NPCID = 700 or SFLA_PlayerSex_NPCID = 701 or SFLA_PlayerSex_NPCID = 702:
					'You and <<$SFLA_PlayerSex_NPCName>> have been opening up with each others body more and more, and to celebrate this you decide to have a private session exploring your respective sensitive areas.  The feeling of having her hands over your body peaks your arousal which only makes you desire more...'
				end
			end
		else
			'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$ARGS[2]>>"></center>'
			*nl
			'<font color="<<$SFLA_PlayerSex_FontColour>>">Sorry ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''m just not in the mood right now; perhaps later though...</font>'
			*nl
			'You sense that she is telling the truth (almost as if there just isn''t enough of her <i>resources</i> for her to call upon) so decide it is best not to push her into anything, and so leave it at that.'
		end
		gs 'stat'
		act 'Return' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'chksextriggers':
		if ARGS[1] = 700:
			if modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['TouchGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') = 2 and $ARGS[2] = 'NPCInteract':
					act 'Ask about University Course' : gt 'mod_addedflavour_A700_Events' , 'A700-SexTouchEv-X1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['KissGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') <= 1 and $ARGS[2] = 'NPCInteract':
					act 'Kaz wants you for something' : gt 'mod_addedflavour_A700_Events' , 'A700-SexKissEv-X1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['OralGate']:
				if $ARGS[2] = 'Bedr1Alone':
					gt 'mod_addedflavour_A700_Events' , 'A700-SexOralEv-1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['VaginalGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') <= 1 and $ARGS[2] = 'NPCInteract':
					act 'Get her to the bedroom' : gt 'mod_addedflavour_A700_Events' , 'A700-SexVaginalEv-X1'
				end
			end
		elseif ARGS[1] = 701:
			if modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['TouchGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') <= 1 and $ARGS[2] = 'NPCInteract':
					act 'Suggest Massage' : gt 'mod_addedflavour_A701_Events' , 'A701-SexTouchEv-X1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['KissGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') <= 1 and $ARGS[2] = 'NPCInteract':
					act 'Liz gets your attention' : gt 'mod_addedflavour_A701_Events' , 'A701-SexKissEv-X1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['OralGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') <= 1 and $ARGS[2] = 'NPCInteract':
					act 'Guide her to the Bedroom' : gt 'mod_addedflavour_A701_Events' , 'A701-SexOralEv-X1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['VaginalGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and $ARGS[2] = 'SitrAlone':
					gt 'mod_addedflavour_A701_Events' , 'A701-SexVaginalEv-1'
				end
			end
		elseif ARGS[1] = 702:
			if modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['TouchGate']:
				if (modVar_AF_SexProg['A700'] > modVar_AF_SexProg['TouchGate'] or modVar_AF_SexProg['A701'] > modVar_AF_SexProg['TouchGate']) and $ARGS[2] = 'Bedr3Alone':
					gt 'mod_addedflavour_A702_Events' , 'A702-SexTouchEv-1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['KissGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and arrsize('modArr_AF_SFLA_SharedActPeopleArray') <= 1 and $ARGS[2] = 'NPCInteract':
					act 'Talk about your relationship' : gt 'mod_addedflavour_A702_Events' , 'A702-SexKissEv-X1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['OralGate']:
				if strpos($loc,'mod_addedflavour_SFLA') > 0 and $ARGS[2] = 'NPCInteract':
					act 'Look bored' : gt 'mod_addedflavour_A702_Events' , 'A702-SexOralEv-X1'
				end
			elseif modVar_AF_SexProg['A<<ARGS[1]>>'] = modVar_AF_SexProg['VaginalGate']:
				if $loc = 'mod_addedflavour_SFLA_Sitr' and arrsize('modArr_AF_SFLA_SharedActPeopleArray') <= 1 and $ARGS[2] = 'NPCInteract':
					act 'Look lustily at Jan' : gt 'mod_addedflavour_A702_Events' , 'A702-SexVaginalEv-X1'
				end
			end
		elseif ARGS[1] = 34:
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'mod_addedflavour_SFLA' , 'Any'
			if arrsize('modArr_AF_SFLA_SharedActPeopleArray') = 1 and strpos($charsche_character_CurActLoc[arrpos('charsche_charlist',34)],'SFLA') > 0 and modVar_AF_EventLock['A34-AptSleepEv'] ! daystart and modVar_AF_SexProg['A34'] >= (modVar_AF_SexProg['VaginalGate'] + 2):
				gt 'mod_addedflavour_A34_Events' , 'A34-AptSleepEv-1'
			end
		end
	end

--- mod_addedflavour_SFLA_SexFunctions ---------------------------------