AddedFlavour/locations/mod_addedflavour_SFLA_NPCInteract.qsrc

# mod_addedflavour_SFLA_NPCInteract

	if $ARGS[0] = 'start':
		CLOSE ALL
		*clr & cla
		NPCInteract_NPCID = ARGS[1]
		NPCInteract_NPCArrLoc = arrpos('charsche_charlist',NPCInteract_NPCID)
		$NPCInteract_NPCName = $npc_firstname['A<<NPCInteract_NPCID>>']
		if $NPCInteract_NPCName = 'Igor' : $NPCInteract_NPCName = 'Igora'
		$NPCInteract_FontColour = $npc_fontcolor['A<<NPCInteract_NPCID>>']
		NPCInteract_SexyChance =  rand(1,(6 - difficulty))
		if (PCloInhibit >= 30 or $clothingworntype = 'nude') or npc_horny['A<<NPCInteract_NPCID>>'] >= 75 : NPCInteract_SexyChance = 1
		'<center><b><font color="<<$NPCInteract_FontColour>>"><<$NPCInteract_NPCName>> <<$npc_lastname[''A<<NPCInteract_NPCID>>'']>></font></b></center>'
		KILLVAR '$NPCInteract_NPCImageLocList'
		copyarr '$NPCInteract_NPCImageLocList','$modArr_AF_A<<NPCInteract_NPCID>>_ImagesLoc'
		KILLVAR '$NPCInteract_NPCImageDescList'
		copyarr '$NPCInteract_NPCImageDescList','$modArr_AF_A<<NPCInteract_NPCID>>_ImagesDesc'
		KILLVAR '$NPCInteract_ImageConditions'
		if $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Working Out':
			$NPCInteract_ImageConditions[] = '{Gym}'
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Studying':
			$NPCInteract_ImageConditions[] = '{Studying}'
		end
		if $loc = 'mod_addedflavour_SFLA_Bal':
			$NPCInteract_ImageConditions[] = '{Balcony}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_BaRm':
			$NPCInteract_ImageConditions[] = '{Bathroom}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr1':
			$NPCInteract_ImageConditions[] = '{Bedroom}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr2':
			$NPCInteract_ImageConditions[] = '{Bedroom}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr3':
			$NPCInteract_ImageConditions[] = '{Bedroom}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Bedr4':
			$NPCInteract_ImageConditions[] = '{Bedroom}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Kit':
			$NPCInteract_ImageConditions[] = '{Kitchen}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_Sitr':
			$NPCInteract_ImageConditions[] = '{Lounge}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'mod_addedflavour_SFLA_SpRm':
			if modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2 : $NPCInteract_ImageConditions[] = '{Bedroom}'
			if modVar_AF_SFLA_AptState['SpareRoomOccupied'] ! 2 : $NPCInteract_ImageConditions[] = '{Spareroom}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'city_island':
			$NPCInteract_ImageConditions[] = '{School}'
			$NPCInteract_ImageConditions[] = '{Urban}'
			$NPCInteract_ImageConditions[] = '{Outdoor}'
		elseif $loc = 'city_park':
			$NPCInteract_ImageConditions[] = '{Park}'
			$NPCInteract_ImageConditions[] = '{Outdoor}'
		elseif $loc = 'torgcentr':
			$NPCInteract_ImageConditions[] = '{Shopping}'
			$NPCInteract_ImageConditions[] = '{Urban}'
			$NPCInteract_ImageConditions[] = '{Outdoor}'
		elseif $loc = 'club':
			$NPCInteract_ImageConditions[] = '{Party}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'city_library':
			$NPCInteract_ImageConditions[] = '{Urban}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'foto':
			$NPCInteract_ImageConditions[] = '{Party}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'dorm':
			$NPCInteract_ImageConditions[] = '{Bedroom}'
			$NPCInteract_ImageConditions[] = '{Lounge}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		elseif $loc = 'dolls' or $loc = 'shop_dolls':
			$NPCInteract_ImageConditions[] = '{Work}'
			$NPCInteract_ImageConditions[] = '{Indoor}'
		end
		KILLVAR '$NPCInteractImageOptionsPrimary'
		KILLVAR '$NPCInteractImageOptionsSecondary'
		NPCInteractImageLocLoopCount = 0
		:NPCInteractImageLocLoopstart
		if NPCInteractImageLocLoopCount >= arrsize('$NPCInteract_NPCImageLocList'):
			jump 'NPCInteractImageLocLoopend'
		end
		NPCInteractImageDescLoopCount = 0
		:NPCInteractImageDescLoop
		if NPCInteractImageDescLoopCount >= arrsize('$NPCInteract_ImageConditions'):
			NPCInteractImageLocLoopCount += 1
			jump 'NPCInteractImageLocLoopstart'
		end
		if modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] = 0 and strpos($NPCInteract_NPCImageDescList[NPCInteractImageLocLoopCount],'{Sexy}') > 0:
			NPCInteractImageLocLoopCount += 1
			jump 'NPCInteractImageLocLoopstart'
		end
		if NPCInteract_SexyChance = 1 and modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > 0 and strpos($NPCInteract_NPCImageDescList[NPCInteractImageLocLoopCount],'{Sexy}') > 0:
			if strpos($NPCInteract_NPCImageDescList[NPCInteractImageLocLoopCount],$NPCInteract_ImageConditions[NPCInteractImageDescLoopCount]) > 0:
				if NPCInteractImageDescLoopCount = 0:
					$NPCInteractImageOptionsPrimary[] = NPCInteractImageLocLoopCount
				else
					$NPCInteractImageOptionsSecondary[] = NPCInteractImageLocLoopCount
				end
			end
		elseif NPCInteract_SexyChance = 1 and modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > 0 and strpos($NPCInteract_NPCImageDescList[NPCInteractImageLocLoopCount],'{Casual}') > 0:
			if strpos($NPCInteract_NPCImageDescList[NPCInteractImageLocLoopCount],$NPCInteract_ImageConditions[NPCInteractImageDescLoopCount]) > 0:
				$NPCInteractImageOptionsSecondary[] = NPCInteractImageLocLoopCount
			end
		elseif strpos($NPCInteract_NPCImageDescList[NPCInteractImageLocLoopCount],'{Casual}') > 0 and strpos($NPCInteract_NPCImageDescList[NPCInteractImageLocLoopCount],$NPCInteract_ImageConditions[NPCInteractImageDescLoopCount]) > 0:
			if NPCInteractImageDescLoopCount = 0:
				$NPCInteractImageOptionsPrimary[] = NPCInteractImageLocLoopCount
			else
				$NPCInteractImageOptionsSecondary[] = NPCInteractImageLocLoopCount
			end
		end
		NPCInteractImageDescLoopCount += 1
		jump 'NPCInteractImageDescLoop'
		:NPCInteractImageLocLoopend
		:NPCInteractImageOptionsLoopstart
		if arrsize('$NPCInteractImageOptionsPrimary') >= 3 or arrsize('$NPCInteractImageOptionsSecondary') = 0:
			jump 'NPCInteractImageOptionsLoopend'
		end
		if arrsize('$NPCInteractImageOptionsPrimary') < 3:
			modVar_AF_Rand = rand(1,arrsize('$NPCInteractImageOptionsSecondary')) - 1
			$NPCInteractImageOptionsPrimary[] = $NPCInteractImageOptionsSecondary[modVar_AF_Rand]
			KILLVAR '$NPCInteractImageOptionsSecondary' , modVar_AF_Rand
			jump 'NPCInteractImageOptionsLoopstart'
		end
		:NPCInteractImageOptionsLoopend
		modVar_AF_Rand = rand(1,arrsize('$NPCInteractImageOptionsPrimary')) - 1
		NPCInteract_ImageArrPos = $NPCInteractImageOptionsPrimary[modVar_AF_Rand]
		$NPCInteract_ImageChoice = $NPCInteract_NPCImageLocList[NPCInteract_ImageArrPos]
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		if modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] = 0:
			'<center>Relationship - ' + iif(npc_rel['A<<NPCInteract_NPCID>>'] < 30,'Unpleasant (<<npc_rel[''A<<NPCInteract_NPCID>>'']>>)','') + iif(npc_rel['A<<NPCInteract_NPCID>>'] >= 30 and npc_rel['A<<NPCInteract_NPCID>>'] < 50,'Developing (<<npc_rel[''A<<NPCInteract_NPCID>>'']>>)','') + iif(npc_rel['A<<NPCInteract_NPCID>>'] >= 50 and npc_rel['A<<NPCInteract_NPCID>>'] < 65,'Good (<<npc_rel[''A<<NPCInteract_NPCID>>'']>>)','') + iif(npc_rel['A<<NPCInteract_NPCID>>'] >= 65 and npc_rel['A<<NPCInteract_NPCID>>'] < 75,'Very Good (<<npc_rel[''A<<NPCInteract_NPCID>>'']>>)','') + iif(npc_rel['A<<NPCInteract_NPCID>>'] >= 75 and npc_rel['A<<NPCInteract_NPCID>>'] < 85,'Close (<<npc_rel[''A<<NPCInteract_NPCID>>'']>>)','') + iif(npc_rel['A<<NPCInteract_NPCID>>'] >= 85 and npc_rel['A<<NPCInteract_NPCID>>'] < 100,'Very Close (<<npc_rel[''A<<NPCInteract_NPCID>>'']>>)','') + iif(npc_rel['A<<NPCInteract_NPCID>>'] = 100,'Perfect (<<npc_rel[''A<<NPCInteract_NPCID>>'']>>)','')
		elseif modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > 0:
			'<center>Relationship - ' + iif(modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] < modVar_AF_SexProg['TouchGate'],'Intimate (<<modVar_AF_SexProg[''A<<NPCInteract_NPCID>>'']>>)','') + iif(modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] >= modVar_AF_SexProg['TouchGate'] and modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] < modVar_AF_SexProg['KissGate'],'Body Contact (<<modVar_AF_SexProg[''A<<NPCInteract_NPCID>>'']>>)','') + iif(modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] >= modVar_AF_SexProg['KissGate'] and modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] < modVar_AF_SexProg['OralGate'],'Kissing (<<modVar_AF_SexProg[''A<<NPCInteract_NPCID>>'']>>)','') + iif(modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] >= modVar_AF_SexProg['OralGate'] and modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] < modVar_AF_SexProg['VaginalGate'],'Adventurous (<<modVar_AF_SexProg[''A<<NPCInteract_NPCID>>'']>>)','') + iif(modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] >= modVar_AF_SexProg['VaginalGate'] and modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] < modVar_AF_SexProg['ThreesomeGate'],'Sexual (<<modVar_AF_SexProg[''A<<NPCInteract_NPCID>>'']>>)','') + iif(modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] >= modVar_AF_SexProg['ThreesomeGate'],'Fully Uninhibited (<<modVar_AF_SexProg[''A<<NPCInteract_NPCID>>'']>>)','')
		end
		*nl
		if hour < 12 : $NPCInteract_DayStateName = 'Morning'
		if hour >= 12 and hour < 17 : $NPCInteract_DayStateName = 'Afternoon'
		if hour >= 17 : $NPCInteract_DayStateName = 'Evening'
		modVar_AF_Rand = rand(1,3)
		modVar_AF_Rand2 = rand(1,5)
		if modVar_AF_Rand2 = 1 : $NPCInteract_Preamble = 'I am just'
		if modVar_AF_Rand2 = 2 : $NPCInteract_Preamble = 'I am currently'
		if modVar_AF_Rand2 = 3 : $NPCInteract_Preamble = 'I am idly'
		if modVar_AF_Rand2 = 4 : $NPCInteract_Preamble = 'I am keeping busy while'
		if modVar_AF_Rand2 = 5 : $NPCInteract_Preamble = 'I am enjoying myself while'
		modVar_AF_Rand3 = rand(1,10)
		if modVar_AF_Rand3 = 1 : $NPCInteract_RandomLine = '  You are looking good today!'
		if modVar_AF_Rand3 = 2 : $NPCInteract_RandomLine = '  I feel fantastic today, how are you?'
		if modVar_AF_Rand3 = 3 : $NPCInteract_RandomLine = '  Looks like it is going to be a fine day today.'
		if modVar_AF_Rand3 = 4 : $NPCInteract_RandomLine = '  Are you ready for a day of non-stop activity!?'
		if modVar_AF_Rand3 = 5 : $NPCInteract_RandomLine = '  Hope you are looking forward for the rest of the day, because I am!'
		if modVar_AF_Rand3 = 6 : $NPCInteract_RandomLine = '  I like the clothes you are wearing, they really suit you.'
		if modVar_AF_Rand3 = 7 : $NPCInteract_RandomLine = '  What do you think of my get up, I think I look quite good in them.'
		if modVar_AF_Rand3 = 8 : $NPCInteract_RandomLine = '  It has been nice getting to spend time with you lately.'
		if modVar_AF_Rand3 = 9 : $NPCInteract_RandomLine = '  You know what, I really just do not know what to do with myself today.'
		if modVar_AF_Rand3 = 10 : $NPCInteract_RandomLine = '  You are looking damn pretty today, you fit in so well with everyone here!'
		$NPCInteract_GetActChat = $charsche_character_CurActDesc[NPCInteract_NPCArrLoc]
		gs 'mod_addedflavour_SFLA_NPCInteract' , 'getactchat' , $charsche_character_CurActLoc[NPCInteract_NPCArrLoc]
		$NPCInteract_NPCCurAct = $NPCInteract_GetActChat
		$NPCInteract_GetActChat = $charsche_character_PrevActDesc[NPCInteract_NPCArrLoc]
		gs 'mod_addedflavour_SFLA_NPCInteract' , 'getactchat' , $charsche_character_PrevActLoc[NPCInteract_NPCArrLoc]
		$NPCInteract_NPCPrevAct = $NPCInteract_GetActChat
		'<font color="<<$NPCInteract_FontColour>>">"' + iif(modVar_AF_Rand = 1,'Hi ','') + iif(modVar_AF_Rand = 2,'Good <<$NPCInteract_DayStateName>> ','') + iif(modVar_AF_Rand = 3,'Hello there ','') + '<<$pcs_nickname>>!<<$NPCInteract_RandomLine>>  <<$NPCInteract_Preamble>> <<$NPCInteract_NPCCurAct>>, although earlier I was <<$NPCInteract_NPCPrevAct>>."</font>'
		*nl
		if strpos($NPCInteract_NPCImageDescList[$NPCInteractImageOptionsPrimary[modVar_AF_Rand]],'{Sexy}') > 0 or (modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > 0 and NPCInteract_SexyChance = 1):
			'You notice that <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>> is also being particularly flirty towards you...'
			*nl
			act 'Have a chat' : gt 'mod_addedflavour_SFLA_NPCInteract' , 'chat' , 'Flirty'
		else
			act 'Have a chat' : gt 'mod_addedflavour_SFLA_NPCInteract' , 'chat' , 'Casual'
		end
		if $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Resting':
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Resting'
			'<font color="<<$NPCInteract_FontColour>>">"Do you fancy joining ' + iif (arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 1,'us in some','me in my') + ' comfortable malaise?"</font>'
			act 'Relax with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>> (<<charsche_character_CurActTime[NPCInteract_NPCArrLoc]>> mins)' : gt 'mod_addedflavour_SFLA_Events' , 'relax' , charsche_character_CurActTime[NPCInteract_NPCArrLoc]
			if $loc = 'city_park' and $clothingworntype = 'exercise':
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Or if you''re interested then you and me could go for a jog around the park and get some sweating done!?"</font>'
				act 'Go jogging with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>>' : gt 'mod_addedflavour_SFLA_Events' , 'jogging' , NPCInteract_NPCID
			end
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Watch TV':
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Watch TV'
			'<font color="<<$NPCInteract_FontColour>>">"Would you like to join ' + iif (arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 1,'us','me') + ' on the sofa and veg out in front of the TV?"</font>'
			act 'Watch TV with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>>' : gt 'mod_addedflavour_SFLA_Events' , 'watchtv'
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Playing Games':
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Playing Games'
			'<font color="<<$NPCInteract_FontColour>>">"Do you want to play some Video Games with ' + iif (arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 1,'us','me') + '?"</font>'
			act 'Play Video Games with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>>' : gt 'mod_addedflavour_SFLA_Events' , 'videogames'
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Computer':
			'<font color="<<$NPCInteract_FontColour>>">"Do you want to join me on the Computer?"</font>'
			$modVar_AF_SFLA_Temp = '<<NPCInteract_NPCID>>'
			act 'Idle on the Laptop with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>>' : gt 'mod_addedflavour_SFLA_Events' , 'computertime' , $modVar_AF_SFLA_Temp
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Working Out':
			if $clothingworntype = 'exercise':
				'<font color="<<$NPCInteract_FontColour>>">"How about joining me for the rest of my workout routine?"</font>'
				act 'Exercise with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>>' : gt 'mod_addedflavour_SFLA_Events' , 'exercise' , NPCInteract_NPCID
			else
				'<font color="<<$NPCInteract_FontColour>>">"If you chuck some workout clothes on you could join me in getting some Exercise!"</font>'
			end
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Yoga':
			if $clothingworntype = 'exercise':
				'<font color="<<$NPCInteract_FontColour>>">"You fancy getting down and achieving some spiritual fulfillment with me?"</font>'
				act 'Do Yoga with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>>' : gt 'mod_addedflavour_SFLA_Events' , 'yoga' , NPCInteract_NPCID
			else
				'<font color="<<$NPCInteract_FontColour>>">"How about you go get some workout clothes on so you join me in some yoga!"</font>'
			end
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Partying':
			'<font color="<<$NPCInteract_FontColour>>">"You know, we could go have some fun if you like; how about we go for a dance?"</font>'
			act 'Dance with <<$npc_nickname[''A<<NPCInteract_NPCID>>'']>>' : gt 'mod_addedflavour_SFLA_Events' , 'dancing' , NPCInteract_NPCID
		elseif $charsche_character_CurActDesc[NPCInteract_NPCArrLoc] = 'Shopping':
			gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Shopping'
			'<font color="<<$NPCInteract_FontColour>>">"You are looking a bit bored, you fancy joining ' + iif (arrsize('modArr_AF_SFLA_SharedActPeopleArray') > 1,'us','me') + ' in hitting all the shops without actually buying anything!?"</font>'
			act 'Do some shopping' : gt 'mod_addedflavour_SFLA_Events' , 'SFLA-ShoppingEv'
		end
		gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , $loc , 'Any'
		gs 'mod_addedflavour_A<<NPCInteract_NPCID>>_Functions' , 'NPCInteract-TalkEvents'
		act 'Go about your business' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'getactchat':
		if $NPCInteract_GetActChat = 'Shopping':
			$NPCInteract_GetActChat = 'doing some Shopping'
		elseif $NPCInteract_GetActChat = 'Partying':
			$NPCInteract_GetActChat = 'hitting the Dance Floor'
			if $loc ! 'club':
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' down the Night Club'
			end
		elseif $NPCInteract_GetActChat = 'Studying':
			$NPCInteract_GetActChat = 'revising for my Degree'
			if $loc ! 'city_library' and $ARGS[1] = 'city_library':
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' at the City Library'
			elseif $loc ! 'mod_addedflavour_SFLA_SpRm' and $ARGS[1] = 'mod_addedflavour_SFLA_SpRm':
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' at Home'
			end
		elseif $NPCInteract_GetActChat = 'Resting' and $ARGS[1] = 'city_park':
			$NPCInteract_GetActChat = 'killing time down the Park'
		elseif $NPCInteract_GetActChat = 'Yoga':
			$NPCInteract_GetActChat = 'doing some Yoga'
		elseif $NPCInteract_GetActChat = 'Resting':
			$NPCInteract_GetActChat = 'lounging around'
			if $loc ! 'mod_addedflavour_SFLA_Sitr' and $ARGS[1] = 'mod_addedflavour_SFLA_Sitr':
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' in our Living Room'
			elseif $loc ! 'mod_addedflavour_SFLA_Bal' and $ARGS[1] = 'mod_addedflavour_SFLA_Bal':
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' on our Balcony'
			elseif $loc ! $charsche_character_HomeLoc[NPCInteract_NPCArrLoc] and $ARGS[1] = $charsche_character_HomeLoc[NPCInteract_NPCArrLoc]:
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' in Bed'
			elseif $loc ! 'city_island' and $ARGS[1] = 'city_island':
				$NPCInteract_GetActChat = 'killing time in between lectures'
			end
		elseif $NPCInteract_GetActChat = 'Eating':
			$NPCInteract_GetActChat = 'getting something to Eat'
		elseif $NPCInteract_GetActChat = 'Bathing':
			$NPCInteract_GetActChat = 'having a Shower'
		elseif $NPCInteract_GetActChat = 'Working Out':
			$NPCInteract_GetActChat = 'getting some Exercise'
			if $loc ! 'mod_addedflavour_SFLA_SpRm':
				if modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2:
					$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' in the Living Room'
				else
					$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' in the Spare Room'
				end
			end
		elseif $NPCInteract_GetActChat = 'Playing Games':
			$NPCInteract_GetActChat = 'playing some Video Games'
		elseif $NPCInteract_GetActChat = 'Computer':
			$NPCInteract_GetActChat = 'lazing around with the Computer'
		elseif $NPCInteract_GetActChat = 'Watch TV':
			$NPCInteract_GetActChat = 'Watching some Television'
		elseif $NPCInteract_GetActChat = 'Bathing':
			$NPCInteract_GetActChat = 'Freshening Up'
		elseif $NPCInteract_GetActChat = 'Working':
			if $loc ! 'city_island' and $ARGS[1] = 'city_island':
				$NPCInteract_GetActChat = 'attending University lectures'
			elseif ($loc ! 'dolls' and $loc ! 'shop_dolls') and ($ARGS[1] = 'dolls' or $ARGS[1] = 'shop_dolls'):
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' at Patchwork Dolls'
			end
		elseif $NPCInteract_GetActChat = 'Sex':
			$NPCInteract_GetActChat = ', well, I was... busy...'
		elseif $NPCInteract_GetActChat = 'Modelling':
			if $loc ! 'foto' and $ARGS[1] = 'foto':
				$NPCInteract_GetActChat = $NPCInteract_GetActChat + ' at the Agency'
			end
		end
	end
	
	if $ARGS[0] = 'chat':
		*clr & cla
		minut += rand(2,6)
		gs 'stat'
		'<center><b><font color="<<$NPCInteract_FontColour>>"><<$npc_firstname[''A<<NPCInteract_NPCID>>'']>> <<$npc_lastname[''A<<NPCInteract_NPCID>>'']>></font></b></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="<<$NPCInteract_ImageChoice>>"></center>'
		*nl
		if $ARGS[1] = 'Flirty':
			gs 'mod_addedflavour_SFLA_NPCInteract' , 'chatdialogue' , $NPCInteract_NPCName , 'Flirty'
			KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
			modArr_AF_SFLA_SharedActPeopleArray[] = NPCInteract_NPCID
			modVar_AF_Rand = rand(1,3)
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Sexy' , modVar_AF_Rand
			gs 'mod_addedflavour_Functions' , 'npchorncalc' , 'Gain' , NPCInteract_NPCID , rand(1,5)
		elseif $ARGS[1] = 'Casual':
			gs 'mod_addedflavour_SFLA_NPCInteract' , 'chatdialogue' , $NPCInteract_NPCName , 'Casual'
			KILLVAR 'modArr_AF_SFLA_SharedActPeopleArray'
			modArr_AF_SFLA_SharedActPeopleArray[] = NPCInteract_NPCID
			gs 'mod_addedflavour_SFLA_Functions' , 'npcrelcalc' , 'Casual' , 1
		end
		act 'Return to what you were doing' : gt $loc, $loc_arg
	end
	
	if $ARGS[0] = 'chatdialogue':
		if $ARGS[2] = 'Casual':
			modVar_AF_Rand = rand(1,20)
			modVar_AF_Rand = rand(1,20)
			modVar_AF_Rand = rand(1,20)
		elseif $ARGS[2] = 'Flirty':
			modVar_AF_Rand = rand(21,30)
			modVar_AF_Rand = rand(21,30)
			modVar_AF_Rand = rand(21,30)
		end
		:NPCInteractChatDialogue
		if modVar_AF_Rand = 1:
			'<font color="<<$NPCInteract_FontColour>>">"So how is life keeping you then ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '?</font>'
			*nl
			'"Can''t say I have any complaints..."'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"Good, wouldn''t have it any other way."</font>'
		elseif modVar_AF_Rand = 2:
			'<font color="<<$NPCInteract_FontColour>>">"How are you finding life then ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', anything you need help with?"</font>'
			*nl
			'"Nope, getting through it OK; tough but rewarding...'
		elseif modVar_AF_Rand = 3:
			'<font color="<<$NPCInteract_FontColour>>">"Having a good day so far?"</font>'
			*nl
			'"Yeah, all things considered.  It hasn''t been too bad."'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"Brilliant!  I''ve been having a fantastic day so far!"</font>'
		elseif modVar_AF_Rand = 4:
			if sunWeather = 1:
				'<font color="<<$NPCInteract_FontColour>>">"Nice day out there isn''t it ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"</font>'
				*nl
				'"You''re damn right; weather to look good in!"'
			else
				'<font color="<<$NPCInteract_FontColour>>">"I see that it has been pissing it down, hope it clears up later..."</font>'
				*nl
				'"Not to worry, I''m sure you''ll find a way to brighten up the day!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"... I hope you don''t try that corny line with just anyone; but I love it anyway!"</font>'
			end
		elseif modVar_AF_Rand = 5:
			if hour < 12:
				'"Is the morning treating you well?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well as it could be although I could do without them!"</font>'
			else
				'"You''re looking a bit haggered, bet you are looking forward to bed!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Like you wouldn''t fucking believe!"</font>'
			end
		elseif modVar_AF_Rand = 6:
			if week <= 5:
				'"You looking forward to the weekend?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">Abso-fucking-lutely!  Been working hard this week and need to get some me-time."</font>'
			else
				'"You have the look of someone enjoying a break from things."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Definitely, I needed this weekend like you wouldn''t believe!"</font>'
			end
		elseif modVar_AF_Rand = 7:
			'"You watch anything good on TV lately?"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"No, not really..."</font>'
			*nl
			'"You get up to anything interesting at all?"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"No, not really..."</font>'
			*nl
			'"You''re not really listening to me, are you?"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"No, not really..."</font>'
			*nl
			'"I really feel that our relationship has developed from this enlightening dialogue..."'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"No, not really..."</font>'
			*nl
			'<i>...I might need to murder someone...</i>'
		elseif modVar_AF_Rand = 8:
			if $ARGS[1] = 'Kolka':
				'"We haven''t really talked about it too much but how are you finding the city?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"It''s been extraordinary.  Sometimes it feels as if there is more to do in Pavlovsk but you dig a little bit deeper and sure enough you keep finding new layers to be uncovered."</font>'
				*nl
				'"I''m glad you like it.  It''s always difficult leaving Pavlovsk but when you get here you soon realise it is for the best.  Would be nice if more of my friends made it though."'
			elseif $ARGS[1] = 'Anushka':
				if Storyline = 1:
					'"It''s been so good to see you in the city, I wasn''t sure whether I''d see anyone here with me; how are you finding it?"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"It''s been brilliant!  To be fair I am already well acquainted with the area anyway but to get the chance to spend more time here and away from my Mother is fantastic!"</font>'
				else
					'"It''s been nice getting to know someone new in the city.  It might be full of people but you can feel so isolated at times."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"I know what you mean; although I have found lots of good people here, certainly better people than back home..."</font>'
				end
			elseif $ARGS[1] = 'Igor':
				'"So Igor...a; how are you finding your new life in Saint Petersburg?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Nerve-racking!  I am enjoying only being known as a women but it is difficult to not be completely open about my status.  It''s hard having to hide who I am."</font>'
				*nl
				'"I understand and while I can''t really help you with what you are going through I can at least be there for you and of course, keep your secrets."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Thanks ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '' + iif(Storyline = 1,', you really helped me back in Pavlovsk and its good to have you helping me here as well.','.') + '"</font>'
			else
				'"We haven''t really talked about it but how are you finding Russia?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"You know what, it has been quite interesting and fun.  You never really know what to expect before you come but now that I am here I don''t regret doing so."</font>'
				*nl
				'"That''s fantastic, I know a lot of good people here and I''m sure you can too.  There is certainly a lot of fun to be had: experiencing the atmosphere, seeing the sights, meeting the people, and all the sex that comes with meeting the people, oh and checking out the rural areas!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Exactly, a place worth going t... wait, what was that middle one again?"</font>'
				*nl
				'"Seeing the sights?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"...."</font>'
				*nl
				'"...."'
			end
		elseif modVar_AF_Rand = 9:
			'<font color="<<$NPCInteract_FontColour>>">"Fuck me ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', ther..."</font>'
			*nl
			'"Yes"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"e''s this problem I need to work on that is a pai- wait, what was that?"</font>'
			*nl
			'"What?"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"...."</font>'
		elseif modVar_AF_Rand = 10:
			if $ARGS[1] = 'Kolka':
				'<font color="<<$NPCInteract_FontColour>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', everyone here doesn''t half like going to the Night Club!"</font>'
				*nl
				'"You''re damn right we do!  Must be quite nice though getting the Apartment to yourself?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"You''re damn right!  A whole apartment to myself, wouldn''t know what to do with it!"</font>'
			elseif $ARGS[1] = 'Anushka':
				'<font color="<<$NPCInteract_FontColour>>">"Hey' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I hope to see you down the Night Club at some point; I''m trying to sweet-talk the owner into letting our band play there or somewhere else in the city and I could use another attractive young women to help me!"</font>'
				*nl
				'"Of course, I try to get down there whenever I can!"'
			elseif $ARGS[1] = 'Igor':
				'<font color="<<$NPCInteract_FontColour>>">"You know ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I have been convincing myself to go down the Night Club more lately.  It might sound odd but it seems safe there for me."</font>'
				*nl
				'"I can understand that.  The drink, the lights, the music; everyone can relax their inhibitions there.  I''ll look out for you when I''m down there as well!"'
			else
				'<font color="<<$NPCInteract_FontColour>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''m getting really into living in the City.  Maybe I''ll move out here with you when I am at University!"</font>'
				*nl
				'"You should! It could be a lot of fun!"'
			end
		elseif modVar_AF_Rand = 11:
			if $ARGS[1] = 'Kazumi':
				'<font color="<<$NPCInteract_FontColour>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I fancy running naked through the park!"</font>'
				*nl
				'"Sure you do that..."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"You don''t think its a sane thing to do?"</font>'
				*nl
				'"On the contrary, I''ve seen many a sane person with their clothes off, not necessarily in public but still..."'
				gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 2
				if modVar_AF_Inhib['Result'] = 1:
					*nl
					'<i>Probably best to ignore the fact she''d probably see me doing the same...</i>'
				end
			elseif $ARGS[1] = 'Elizabeth':
				'<font color="<<$NPCInteract_FontColour>>">"So ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', settling in well?"</font>'
				*nl
				'"Absolutely, it''s been very good here!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"That''s grand!  Anything you need you just let me know."</font>'
			elseif $ARGS[1] = 'Janina':
				'<font color="<<$NPCInteract_FontColour>>">"Hey ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you''re looking fine today... not as good as me but still damn fine..."</font>'
				*nl
				'"Thanks Jan, I would say the same but you clearly already know that!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Damn right!"</font>'
			elseif $ARGS[1] = 'Anushka':
				'"I hope you don''t mind me saying but you have been looking so happy since I have seen you spending more time in the city, it''s nice to see!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Don''t worry, I really have been.  Sure, Pavlovsk is where my heart is and I am back there often but it is nice to be on my own."'
			elseif $ARGS[1] = 'Kolka':
				'<font color="<<$NPCInteract_FontColour>>">"It''s a shame I haven''t been able to find anyone playing football out here; you would think it would be easy with it being St.Petersburg after all."</font>'
				*nl
				'"Yeah... come to think of it I hadn''t really noticed until you pointed it out."'
			elseif $ARGS[1] = 'Igor':
				if Storyline = 1:
					'"I''ve got to say that of all the people I expected to join me in the city, you were one of the last people!  Not being mean, just could never see you leaving Pavlovsk."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Ha!  Had you said that before then I would probably have agreed with you, but a lot has changed since then..."</font>'
					*nl
					'"Yeah, you''re not wrong."'
				else
					'"It''s nice seeing you off the Island more, and you seem happier for it."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"And you know what, I am.  You, Eugene and even Eva have really helped me adjust to the City.  I couldn''t have done it without all of you."'
				end
			end
		elseif modVar_AF_Rand = 12:
			if $ARGS[1] = 'Kazumi':
				'"So Kazumi, tell me about Kagoshima?  I''ve only ever read about Japan so would love to know more."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', it''s hotter than you might expect, and while not Tokyo it is still quite a busy city.  Then there is the stratovolcano of course; you can always see it on the skyline."</font>'
				*nl
				'"A Volcano?!  Don''t really know if I could get used to that."'
			elseif $ARGS[1] = 'Elizabeth':
				'"So you said you came from Bath, only thing I really know about there is its reputation"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"True, it does earn that reputation but it still manages to be quite a random place with random people, it might be Bath but it is still Somerset after all!"</font>'
				*nl
				'"A place for all people then?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Exactly, it''s a good environment all in all."</font>'
			elseif $ARGS[1] = 'Janina':
				'"So Janina, you said you come from Darmstadt, can''t say I know anything about there, what''s it like?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"To be fair my family lived on the Military Base so that''s where I spent most of my time; still, Germany was good to me, it''s a good place."</font>'
			elseif $ARGS[1] = 'Anushka':
				if Anush_dolls >= 2 and modVar_AF_EventTriggered['A205-ShopSexEv'] > 0 and rand(1,2) = 1:
					'<font color="<<$NPCInteract_FontColour>>">"Well' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '.  I got a very nice reward from Viola the other day; seemed she was very thankful for sending a certain customer to her store..."</font>'
					*nl
					'"And would that person happen to be little old me per chance..."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Yes, yes it would!  And with the reward I got I''ll have to start introducing you to more people!"</font>'
					*nl
					'"Well, I am always eager to please!"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Aren''t you just!"</font>'
				else
					'<font color="<<$NPCInteract_FontColour>>">"Just so you know I have been taking up some part time work down at Patchwork Dolls to help supplement my earnings at the Agency, I hope to see you down there if not only to keep me company."</font>'
					*nl
					'"Of course Anushka.  ' + iif(Anush_dolls >= 2,'It''s a lot of fun visiting the shop anyway.','I can come and visit you there.') + '  It will give us the chance to spend some time together."'
				end
			elseif $ARGS[1] = 'Kolka':
				if modVar_AF_SFLA_AptRProg['Sitr'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
					'"Have you tried out our Video Games Console yet?  I''ll think you''ll find the rest of the house quite a challange on it!"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Don''t I know it!  Kaz ripped me to shreds on it.  Shows you can only be as good as your competition"</font>'
					*nl
					'"Exactly.... hey, wait a sec...."'
				else
					'"It''s a shame I haven''t finished renovating the Living Room yet; was thinking of getting a brand new video games console."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Yeah, that would of been very cool, might have to visit here more often if you did!"</font>'
				end
			elseif $ARGS[1] = 'Igor':
				if Storyline = 1:
					'"I realise that you are trying to start a new life here but have you heard from anyone back home in Pavlovsk at all?"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"No, not really.  I do try to get back but back there I am still Igor and part of me thinks that is for the best."</font>'
				else
					'"I realise you are in a new chapter of your life but I am curious to know more about where you came from."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"As you can imagine, my past is complicated.  Let''s just say I come from the area outside of the city.  I don''t know if you''d have any reason to go there, it''s a weird place come to think of it..."'
					*nl
					'"You''d be surprised just what I get up to in this country!"'
				end
			end
		elseif modVar_AF_Rand = 13:
			if $ARGS[1] = 'Kazumi':
				'"So Kazumi, is there anything you miss about Kagoshima?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Oh the food.  Don''t get me wrong, I like the food here but there is Deep-Fried Fish Cakes you just can''t find anywhere else.  Oh and the Shōchū; theres good fun to be had getting drunk with that!"</font>'
				*nl
				'"Sounds worth going for that alone!"'
				*nl
				'"You know what, I think it is!!"'
			elseif $ARGS[1] = 'Elizabeth':
				'"So Lizzie, anything you miss about the UK?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well its very easy to miss the familarity of home, but I enjoy travelling the world and it makes it all the easier knowing I always have a pleasant place to go back to."</font>'
			elseif $ARGS[1] = 'Janina':
				'"So Janina, anything you miss from Germany?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well not as much as you might think as we usually had to move around a lot but one thing you could count on in Darmstadt was the Jazz.  There''s a good scene for that music there."</font>'
			elseif $ARGS[1] = 'Anushka':
				if Storyline = 1:
					'"So Anushka, are you still keeping in touch with our friends back in Pavlovsk?"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Yeah!  In fact apart from not having to go to school I am pretty much seeing them as much as I was before."'
				else
					'"So Anushka, as I understand it you are not from Saint Petersburg and I wouldn''t be interested to learn more about your home."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Well I came from Pavlovsk which is a town in the area outside the city.  Not much to say about the place really; on the outside it is your typical Russian town but on the inside... weird place that.  But then maybe its just my personal experience, and that my Mother is still there..."</font>'
					*nl
					'"You know what, the town gets more interesting by the moment."'
				end
			elseif $ARGS[1] = 'Kolka':
				'<font color="<<$NPCInteract_FontColour>>">"It''s a shame I haven''t been able to find anyone playing football out here; you would think it would be easy with it being St.Petersburg after all."</font>'
				*nl
				'"Yeah... come to think of it I hadn''t really noticed until you pointed it out."'
			elseif $ARGS[1] = 'Igor':
				if Storyline = 1:
					'"Do you keep in touch with anyone from School?  I know probably not but I thought I''d ask anyway."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"As it happens, no.  Schoolfriends forget you very quickly but I don''t really have a problem with that.  The cliques, the expectations, the rules; it all disappears the moment you leave those doors."</font>'
					*nl
					'"I try to keep in touch the best I can but yeah, it is much harder without the School forcing you together."'
				else
					'<font color="<<$NPCInteract_FontColour>>">"So ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you haven''t told me much about your past, so go on!"'
					*nl
					'"Well I am sure it is the same as everyone else.  Pressure, rinse, repeat.  Same as any other Bo---!!"'
					*nl
					'<i>Bloody hell, I''ve gotten so used to this that I had completely forgotten my life before the change</i>'
					*nl
					'"..oring old upbringing... ha ha..... ha..."'
					*nl
					'"You''re looking pretty today..."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"...."</font>'
				end
			end
		elseif modVar_AF_Rand = 14:
			if $ARGS[1] = 'Kazumi':
				'"Tell me about your family, I''m not sure if I asked before"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well there isn''t much to tell, they are just good people but otherwise unremarkable."</font>'
				*nl
				'"Still its quite something leaving them behind."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Don''t get me wrong, I love them to bits.  But I was the fifth of six children they had and that gave me a lot of freedom to wonder; I do still keep in touch with them though."</font>'
				*nl
				'"Glad to hear it!"'
			elseif $ARGS[1] = 'Elizabeth':
				'"I''m interested to know more about your family, anything you can tell me?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well my parents were pretty standard I suppose; they did everything they could and did it well.  They just had me and my brother to raise though but he''s a lot of fun and we get on well!"</font>'
				*nl
				'"Sounds like he is worth meeting!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well you just might as he does like to visit me whereever I travel to."</font>'
			elseif $ARGS[1] = 'Janina':
				'"Tell me about your family Jan, I''m interested."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well my father was stationed at the Military Base but he met my mother in the city itself.  It could get quite interesting with the dynamic of it all but it worked well."</font>'
			elseif $ARGS[1] = 'Anushka':
				if valeriaIntroduced = 1:
					'"So is your Mother still... well..."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"... a complete bitch?  Yes.  As it happens the whole thing with me being here and at University is burning her up; she just hates to see achievement in whatever form it takes.  But you know what, fuck her; shrill old failures like her never change."</font>'
					*nl
					'"True that."'
				else
					'<font color="<<$NPCInteract_FontColour>>">"It''s so good to get away from my Mother.  The shrill bitch is wasting her life back home just waiting for other people to fail so she can excuse her own useless existence."</font>'
					*nl
					'"I didn''t realise you fealt that strongly."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Yes, she poisened my Brothers mind against me just out of spite; I feel nothing for her."</font>'
				end
			elseif $ARGS[1] = 'Kolka':
				'"So Kolka, how are you getting on with Mishan and Zhendos, I haven''t heard anything new about them in a while from you..."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"They''re fine; we still play football and... well, thats probably about it.  Yeah, come to think we have done anything new in a long time."</font>'
				*nl
				'"Yeah, it really has been a very long time..."'
			elseif $ARGS[1] = 'Igor':
				if modVar_AF_EventTriggered['A4-EvaSex'] > 0:
					'<font color="<<$NPCInteract_FontColour>>">"So Eva tells me that you two are getting on very well"</font>'
					*nl
					'"She told you?  Well I suppose we couldn''t hide it but damn is she amazing at it; leaves me breathless every time."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Whoa... what do you two get up to when I am not around?"</font>'
					*nl
					'"Oh you don''t... well, you know, things...."'
				else
					'<font color="<<$NPCInteract_FontColour>>">"You should get to know Eva as well, she has been fantastic to me since I settled in here."</font>'
					*nl
					'"Maybe I will, it''s always good to meet new people"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"I usually meet up with her down the University Fields so I am sure you will see her there too."</font>'
				end
			end
		elseif modVar_AF_Rand = 15:
			if $ARGS[1] = 'Kazumi':
				'"So Kazumi, I bet it''s been difficult getting hold of any Manga here."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Absolutely!  I tried the library and they directed me to the kiddie section!  Still, I''ve got the Internet so its not all lost."</font>'
			elseif $ARGS[1] = 'Elizabeth':
				'"So how has University Life been treating you?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"It''s been good.  Met a lot of new people here and they''ve all turned out to be interesting and unique personalities; certainly a lot to get out of living in Russia!"</font>'
			elseif $ARGS[1] = 'Janina':
				'"So Janina, how are you finding the music scene here in Saint-Petersburg?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I''ll admit its not as widespread as I''m used to but if you know where to look you can find some damn cool artists!"</font>'
				*nl
				'"I would like to see them!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Hmmm... are you cool enough... will have to think about that.... *smiles*"</font>'
				*nl
				'"Hey!"'
			elseif $ARGS[1] = 'Anushka':
				If Storyline = 1 : '"Are you still able to practice with the band as much now that you are here?"'
				If Storyline ! 1 : '"I''ve heard you are in a band, you able to practice as much with University and all?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Not as much as before but we are already good enough to play without it everyday anyway"</font>'
				if bandpracticeinvite = 1:
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Besides, that garage wasn''t the best of places to practice in anyway; the acoustics were never the same as a live gig."</font>'
				end
			elseif $ARGS[1] = 'Kolka':
				'"You and Dad have been spending a lot more time together lately, what bought that about then?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I dunno, just suddenly he has wanted to watch TV with me and that sort of thing.  It''s nice though; beforehand you would be hard-pressed to know whether they knew I was there at all!"</font>'
				*nl
				'"Awww, sure they always knew; at least they did if I did anything with you..."'
			elseif $ARGS[1] = 'Igor':
				'"You know, you''ve seen that there is a strong Women''s Football scene here, how about you join up?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Are you serious?  It''s difficult enough to keep it secret just out and about, let alone running around a Football Pitch with everyone looking at you!"</font>'
				*nl
				'"One day Igora, one day I''ll see you out there!"'
			end
		elseif modVar_AF_Rand = 16:
			if $ARGS[1] = 'Kazumi':
				'<font color="<<$NPCInteract_FontColour>>">"So ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', do you fancy getting some food?"</font>'
				*nl
				'"Yeah, I suppose I could go fo-"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Actually I''ve changed my mind, do you fancy going for a jog?"</font>'
				*nl
				'"...OK, yeah I coul-"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Actually, do you fancy finding some Video Games to play?"</font>'
				*nl
				'"......yes, I cou-"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Actually, do you fanc-"</font>'
				*nl
				'"AAAAHHHHHHH!!!!"'
			elseif $ARGS[1] = 'Elizabeth':
				'<font color="<<$NPCInteract_FontColour>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', it''s been so nice having you live here with us, we couldn''t have had a better person move in with us!"</font>'
				*nl
				'"Awwww... thank you Elizabeth!"'
			elseif $ARGS[1] = 'Janina':
				'<font color="<<$NPCInteract_FontColour>>">"You know what, I might very well have done everything I need to do today!"</font>'
				*nl
				'"Well done I guess."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Yep, well done indeed, time for some well earned doing nothing..."</font>'
			elseif $ARGS[1] = 'Anushka':
				'"So Anushka, how has it been <i>sampling</i> what the city has to offer?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I have no idea what you could be insinuating..."</font>'
				*nl
				'"Your mouth may say that but your eyes betray you!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Ha!  I wouldn''t stop anyone watching anyway!"</font>'
			elseif $ARGS[1] = 'Kolka':
				'"I hope you have been doing your studies while you''ve been here; it was the main reason I could get you here at all!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Don''t worry; every weekday I am at the City Library.  It''s actually quite nice studying there, and all that space allows you to work without people tripping up over you."</font>'
				*nl
				'"Good!  Don''t feel you have to burn yourself out but you should definitely take advantage of the City while you are here."'
			elseif $ARGS[1] = 'Igor':
				'"So have you had to chance to sample more of the city yet?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"No not really, although I have convinced myself to visit the Night Club and the Shopping Mall so I am at least venturing off the Island."</font>'
				*nl
				'"That''s good to hear, I''ll keep a look out for you if I am out there!"'
			end
		elseif modVar_AF_Rand = 17:
			if $ARGS[1] = 'Kazumi':
				if month > 9 or month < 4:
					'<font color="<<$NPCInteract_FontColour>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', it''s cold here."</font>'
					*nl
					'"It''s Russia..."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"I know but, it''s really, really cold..."</font>'
					*nl
					'<i>I need to keep her away from the rest of Russia...</i>'
				else
					'<font color="<<$NPCInteract_FontColour>>">"Before I came here I wouldn''t have expected it to get as hot as it does; I can even get a tan here!"</font>'
					*nl
					'"Yeah, you certainly chose the right place to stay in Russia"'
				end
			elseif $ARGS[1] = 'Elizabeth':
				if hotcat >= 7:
					'<font color="<<$NPCInteract_FontColour>>">"You really have been looking gorgeous lately ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', just really beautiful!"</font>'
					*nl
					'"Thanks very much!  I don''t know If I could be more attractive than you but I do try!"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"I won''t have it, you''re putting us all to shame!"</font>'
				else
					'<font color="<<$NPCInteract_FontColour>>">"Can I just say how comfortable you are looking; just really fitting well into who you are."</font>'
					*nl
					'"Thank you, I don''t think anyone has ever said that before"'
				end
			elseif $ARGS[1] = 'Janina':
				if ($clothingworntype = 'formal' or $clothingworntype = 'expensive'):
					'<font color="<<$NPCInteract_FontColour>>">"I''ve been looking at the clothes you''re wearing; you look good but I have something else in mind..."</font>'
					*nl
					'"What did you have in mind?"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"We''ll see, might need to take you shopping!"</font>'
				else
					'<font color="<<$NPCInteract_FontColour>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', we need to find you some new clothes, you''ve been looking a bit dowdy lately!"</font>'
					*nl
					'"You have any idea''s?"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Anything that doesn''t make you look like an old women would be a start"</font>'
					*nl
					'"Thanks..."'
				end
			elseif $ARGS[1] = 'Anushka':
				if $clothingworntype = 'alternative' or $clothingworntype = 'dolls_dress' or $clothingworntype = 'dolls_outfits':
					'<font color="<<$NPCInteract_FontColour>>">"Hey' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I see you are wearing some of Patchwork''s Clothing; you are looking good!"</font>'
					*nl
					'"Thanks Anushka!  Yeah, I saw something I liked and took the plunge."'
				else
					'<font color="<<$NPCInteract_FontColour>>">"So' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I was talking to Viola and she mentioned she had some clothes in that would really suit you, you should head over the next time you get the chance."</font>'
					*nl
					'"Really?  Maybe I will then; can always use something new to wear."'
					if modVar_AF_EventTriggered['A205-ShopSexEv'] > 0:
						*nl
						'<i>Wait... could she be refering to <b>that</b> outfit...</i>'
					end
				end
			elseif $ARGS[1] = 'Kolka':
				'"How are you finding the City then Kolka?  Must be quite surreal getting away from Pavlovsk"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Yeah, its bloody fantastic!  I am able to go to so many different places and do so when I want to; I swear I am stuck in the same bloody routine when I am back home.  And I have no idea what I get up to when we visit Gadukino; whenever I try to remember I draw a blank."</font>'
				*nl
				'"Well that''s good then, and don''t worry, your time at home will only get better!"'
			elseif $ARGS[1] = 'Igor':
				if modVar_AF_EventTriggered['A4-Threesome'] > 0:
					'<font color="<<$NPCInteract_FontColour>>">"So ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I bet you didn''t predict that you would do what we did with Eugene in your lifetime did you?"</font>'
					*nl
					'"I don''t think anyone would predict that!  Was fun though, if not somewhat surreal!"'
				else
					'"I see you have been getting on well with Eugene since I introduced you."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"I certainly have, thank you so much for bringing us together.  She is a bit intense at times but it really has helped accelerate my adaption to life here."</font>'
				end
			end
		elseif modVar_AF_Rand = 18:
			if $ARGS[1] = 'Kazumi':
				'<font color="<<$NPCInteract_FontColour>>">"You know what, I''m in a fantastic mood today.  I feel brilliant, you look brilliant, all is well with the world!"</font>'
				*nl
				'"It is really good being around you when you are all upbeat!"'
			elseif $ARGS[1] = 'Elizabeth':
				'<font color="<<$NPCInteract_FontColour>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', it would be good to see you down the Night Club, it''s a good scene down there and you would shine!"</font>'
				*nl
				'"Maybe I will, I''ll be certain to look for you!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Make sure you do!"</font>'
			elseif $ARGS[1] = 'Janina':
				'<font color="<<$NPCInteract_FontColour>>">"Things have been going well for me lately, think it might be time to go out dancing!"</font>'
				*nl
				'"It is a lot of fun!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Yep, I do bring the fun!"</font>'
			elseif $ARGS[1] = 'Anushka':
				'"Wow Anushka, I can''t help but notice how happy you have been lately."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Do you know what' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', life has been good lately.  I''m moving forward with it and perhaps even better than that, so are other people around me."</font>'
			elseif $ARGS[1] = 'Kolka':
				'"Hey Kolka, what''s it like having a Bedroom of your own?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Oh my god ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I have never had a room of my own and its total bliss.  Finally I have some privacy to watch por-, I mean, special interested programmes..."</font>'
				*nl
				'"Yes, well, certainly make yourself at home but don''t push it!"'
			elseif $ARGS[1] = 'Igor':
				if modVar_AF_EventOpen['A144-UniversityEv'] = 1:
					'"Did you know that Anushka has come to the University as well?"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"I didn''t let on but I did.  Not at the University though, I bumped into her at the Night Club!  She didn''t recognise me though, just smiled and moved on..."</font>'
				else
					'"You know what Igora, it is so nice seeing how happy you are now!"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I feel happy.  And I have you to thank for it.  It''s risky at times but I don''t think I would be able to get here without your help."</font>'
				end
			end
		elseif modVar_AF_Rand = 19:
			if $ARGS[1] = 'Kazumi':
				'"So how is it you know Elizabeth?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"We met up at the Foreign Language School.  She was eager to meet everyone that was there and I was happy to meet someone so outgoing, and our relationship developed quite strongly from there.  Part of me thinks I wouldn''t have got to grips with Russian without her."</font>'
				*nl
				'"She really is a good person to have around; she helped me settle in as well."'
			elseif $ARGS[1] = 'Elizabeth':
				'"So how is it you met Kazumi?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"She was one of the first people I met at the Foreign Language Institute.  You could see the energy bubbling up in her and I just knew it would only take a little effort to get flowing!"</font>'
				*nl
				'"And you sure did, she always seems happy!"'
			elseif $ARGS[1] = 'Janina':
				'"So how do you know Kazumi?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I met her through Liz.  Good thing too, she''s a lot of fun, especially when she''s drunk!"</font>'
				*nl
				'"That is something to look forward to..."'
			elseif $ARGS[1] = 'Anushka':
				'<font color="<<$NPCInteract_FontColour>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '... I love you... in fact, I am totally in love with you..."</font>'
				*nl
				'"Wait... what... really?  I don''t know what to say Anushka.  I lov-"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Actually' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''m just fucking with you, both literally and figuratively!"</font>'
				*nl
				'"Nush, you bitch!  You had me totally under your spell there!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Damn right I did!"</font>'
			elseif $ARGS[1] = 'Kolka':
				'<font color="<<$NPCInteract_FontColour>>">"You know what ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I fucking love Terlis!"</font>'
				*nl
				'"Who or what is that?!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I have no idea, but whenever I see that name around the place I swear more things happen to me, and good things at that."</font>'
				*nl
				'"You know what, I have found that as well, especially when I am with you!  In fact that reminds me" *mumbles* ...must think more on turning you into a women... *mumbles*'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Yeah, certainly lots more to d-, wait, what was that?"</font>'
				*nl
				'"...nothing..."'
			elseif $ARGS[1] = 'Igor':
				'<font color="<<$NPCInteract_FontColour>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', I''m glad you are here, I''ve got something to tell you"</font>'
				*nl
				'"I''m all ears!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I''ve been found by a Talent Scout for Porn Production Company in America and they are moving me out there!  Unfortunately that means that today is the last day we can see each other..."</font>'
				*nl
				'"What?!  You''re going to America!  Today!  I... I don''t know what to say..."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Bloody hell ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', you really are gullible aren''t you?"</font>'
				*nl
				'"...."'
			end
		elseif modVar_AF_Rand = 20:
			if $ARGS[1] = 'Kazumi':
				'"So how is it you know Janina?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Lizzie introduced her to me!  She knew her before she came here and thought we would get along, which we certainly did because we ended up with the Apartment!"</font>'
			elseif $ARGS[1] = 'Elizabeth':
				'"So how did you meet Janina?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"We met while me and my brother were stopping off in Germany before coming here.  She was such this down to earth personality but just a little lost; fortunately she jumped at the chance to join us here!"</font>'
			elseif $ARGS[1] = 'Janina':
				'"So how do you know Elizabeth?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"We met up in Germany.  Her and and her brother we stopping off in the area and when she said she was going to be staying here I figured it sounded interesting enough to do the same!"</font>'
				*nl
				'"Good thing too so then you could meet me"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Well, I suppose there''s always something..."</font>'
				*nl
				'"Hey!  I''m not that bad am I?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Nah!  You''re good people ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '.  This is a good apartment with everyone here!"</font>'
			elseif $ARGS[1] = 'Anushka':
				'<font color="<<$NPCInteract_FontColour>>">"So' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + ', when am I going to meet your Housemates?  They sound like good people!"</font>'
				*nl
				'"Soon enough, just waiting on them really."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Good!  I don''t think I was able to see you at all here until you met them but I still haven''t been able to meet them at all..."'
				*nl
				'<i>Give me a fucking chance, it takes a lot of time!!!</i>'
			elseif $ARGS[1] = 'Kolka':
				'<font color="<<$NPCInteract_FontColour>>">"I like your housemates ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '; they are so open and approachable.  It''s nice being around people who are happy with life.  Might even try to get to know them a little bit..."</font>'
				*nl
				'"Hold on, hold on, let me bloody finish everything first.  It''s difficult enough setting up simple interactions let alone what bloody problems they in turn reveal!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Huh... that doesn''t make any sense..."</font>'
				*nl
				'"Yeah, I don''t know either, I was suddenly just compelled to say it."'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I''m going to go now"</font>'
				*nl
				'"Probably for the best..."'
			elseif $ARGS[1] = 'Igor':
				'<font color="<<$NPCInteract_FontColour>>">"Sometimes I sit back and think:  I don''t think I would be able to get to this point without you.  Or taken further, do I exist at all when you aren''t able to be in my life..."</font>'
				*nl
				'"That''s a bit dark, Igora.  Besides, I wasn''t involved in getting you to the City, you were already here when I re-discovered you!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Fair point, maybe it is best just not to think about it."</font>'
			end
		elseif modVar_AF_Rand = 21:
			'<font color="<<$NPCInteract_FontColour>>">"You are looking particularly sexy there ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!"</font>'
			*nl
			'"And so are you!  Just two particularly sexy ' + iif($ARGS[1] = 'Kolka' or $ARGS[1] = 'Igor','people','girls') + ', what are we to do..."'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"Indeed..."</font>'
		elseif modVar_AF_Rand = 22:
			'<font color="<<$NPCInteract_FontColour>>">"You know, I never thought when I met you that I would end up seeing you naked, but I''m glad I did!"</font>'
			*nl
			'"That''s funny, because from when I met you I always thought I would end up having you see me naked!"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"You minx!"</font>'
		elseif modVar_AF_Rand = 23:
			'"Where is the photographer?"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"What photographer?"</font>'
			*nl
			'"I don''t know, I just figured there must be one for you to be looking so sexy there, a body in need of an artist!"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"Oh ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '!  I''m blushing..."</font>'
		elseif modVar_AF_Rand = 24:
			'"Stay right there!"'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"What... OK... why ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '?"</font>'
			*nl
			'"It''s OK <<$ARGS[1]>>, I just don''t think anyone can look more beautiful than you do at this point in time and I needed to appreciate the moment."'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">*Blushes*</font>'
		elseif modVar_AF_Rand = 25:
			'<font color="<<$NPCInteract_FontColour>>">"Has anyone told you just how stunningly beautiful you are?"</font>'
			*nl
			'"I couldn''t possibly say, but I like to hear it from you..."'
			*nl
			'<font color="<<$NPCInteract_FontColour>>">"Well, if its not being said daily then its not being said enough!"</font>'
			*nl
			'"Oh <<$ARGS[1]>>!  Just hearing it said in your voice is satisfaction enough for me!"'
		elseif modVar_AF_Rand = 26:
			if modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > modVar_AF_SexProg['TouchGate']:
				if $ARGS[1] = 'Kolka' or $ARGS[1] = 'Anushka' or $ARGS[1] = 'Igor':
					'<font color="<<$NPCInteract_FontColour>>">"You know, your body has been looking fantastic lately."</font>'
					*nl
					'"Why thank you, you haven''t been looking too bad yourself.  I find myself thinking of the things we could be doing together."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Well I''m certainly not going to stop you!"</font>'
				else
					'"I can''t wait to get my hands over your body!"'
					*nl
					'<font color="<<$NPCInteract_FontColour>>">"Oh really... and just what would you do with them?"</font>'
					*nl
					'"I would let them start at your exquisite face; then let the fingertips glide down the centre of your body, just kissing your perfect breasts, before continuing down around your navel until finally reaching your supple vagina to meet their goal..."'
					*nl
					'<font color="<<$NPCInteract_FontColour>>"> ' + iif(rand(1,2) = 1,'<<$pcs_nickname>>','<<$pcs_firstname>>') + '... I could feel you doing that just from the description..."</font>'
				end
			else
				modVar_AF_Rand = rand(21,25)
				jump 'NPCInteractChatDialogue'
			end
		elseif modVar_AF_Rand = 27:
			if modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > modVar_AF_SexProg['TouchGate']:
				'<font color="<<$NPCInteract_FontColour>>">*Subtly touches your leg*</font>'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"I''m looking forward to getting more later..."</font>'
				*nl
				'"And I''m looking forward to you wanting it!"'
			else
				modVar_AF_Rand = rand(21,25)
				jump 'NPCInteractChatDialogue'
			end
		elseif modVar_AF_Rand = 28:
			if modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > modVar_AF_SexProg['KissGate']:
				'"I''ve been spending all day thinking about those lips"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"They''re yours whenever you want them!"</font>'
				*nl
				'"And whenever I want them is always..."'
			else
				modVar_AF_Rand = rand(21,27)
				jump 'NPCInteractChatDialogue'
			end
		elseif modVar_AF_Rand = 29:
			if modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > modVar_AF_SexProg['KissGate']:
				'<font color="<<$NPCInteract_FontColour>>">"You know, here I am just sitting here, and there you are just sitting there, almost as if something is missing..."</font>'
				*nl
				'"Like my lips on yours perhaps?"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Yes, very much that!"</font>'
			else
				modVar_AF_Rand = rand(21,27)
				jump 'NPCInteractChatDialogue'
			end
		elseif modVar_AF_Rand = 30:
			if modVar_AF_SexProg['A<<NPCInteract_NPCID>>'] > modVar_AF_SexProg['OralGate']:
				'<font color="<<$NPCInteract_FontColour>>">"Hmmmm.... *licks finger* there seems to be taste of something that I''m missing here..."</font>'
				*nl
				'"Would that happen to be me!"'
				*nl
				'<font color="<<$NPCInteract_FontColour>>">"Yes, I think it would be..." *grins lustily*</font>'
			else
				modVar_AF_Rand = rand(21,29)
				jump 'NPCInteractChatDialogue'
			end
		end
	end

--- mod_addedflavour_SFLA_NPCInteract ---------------------------------