AddedFlavour/locations/mod_addedflavour_A33_Functions.qsrc

# mod_addedflavour_A33_Functions
	if $ARGS[0] = 'config':
		$npc_fontcolor['A33'] = 'Maroon'
		!Conv
		modVar_AF_EventGates['A33-SibSexEv-1'] = 8
		!Touch
		modVar_AF_EventGates['A33-SibSexEv-2'] = 16
		!Kiss
		modVar_AF_EventGates['A33-SibSexEv-3'] = 24
		!Oral
		modVar_AF_EventGates['A33-SibSexEv-4'] = 32
		!Sex
		modVar_AF_EventGates['A33-SibSexEv-5'] = 40
	end
	
	if $ARGS[0] = 'TalkEvents':
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 3
		if modVar_AF_EventOpen['A33-BroSexTalk-1'] = 1:
			act 'Talk about brother' : gt 'mod_addedflavour_A33_Events' , 'A33-SibSexEv-X1'
		elseif modVar_AF_EventProgress['A33-SibSexEv'] = modVar_AF_EventGates['A33-SibSexEv-5'] and modVar_AF_EventOpen['A33-BroSexTalk-2'] ! 2:
			act 'Talk about brother' : gt 'mod_addedflavour_A33_Events' , 'A33-SibThreesomeEv-X1'
		elseif modVar_AF_EventProgress['A33-SibThreesomeEv-SisInv'] = 0 and modVar_AF_EventOpen['A33-BroSexTalk-2'] = 2 and week ! 7 and modVar_AF_Inhib['Result'] = 1:
			act 'Invite for a Sunday Picnic' : gt 'mod_addedflavour_A33_Events' , 'A33-SibThreesomeEv-X2'
		end
	end
	
	!! Code that picks an activity for Kolka and Anya to be doing depending on Sexual Progress !!
	if $ARGS[0] = 'ChooseSibAct':
		KILLVAR '$modArr_AF_A33_SibActChoices'
		if modVar_AF_EventProgress['A33-SibSexEv'] = modVar_AF_EventGates['A33-SibSexEv-5']:
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActSexChoices'
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActOralChoices'
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActKissChoices'
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActTouchChoices'
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActConvChoices'
		elseif modVar_AF_EventProgress['A33-SibSexEv'] >= modVar_AF_EventGates['A33-SibSexEv-4']:
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActSexChoices'
		elseif modVar_AF_EventProgress['A33-SibSexEv'] >= modVar_AF_EventGates['A33-SibSexEv-3']:
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActOralChoices'
		elseif modVar_AF_EventProgress['A33-SibSexEv'] >= modVar_AF_EventGates['A33-SibSexEv-2']:
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActKissChoices'
		elseif modVar_AF_EventProgress['A33-SibSexEv'] >= modVar_AF_EventGates['A33-SibSexEv-1']:
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActTouchChoices'
		else
			gs 'mod_addedflavour_A33_Functions' , 'A33-SibActConvChoices'
		end
		modVar_AF_ArrayLoc = rand(1,ARRSIZE('$modArr_AF_A33_SibActChoices')) - 1
		$modVar_AF_TempStr = $modArr_AF_A33_SibActChoices[modVar_AF_ArrayLoc]
	end
	
	!! Fills the array with Conversation Events !!
	if $ARGS[0] = 'A33-SibActConvChoices':
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-C1'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-C2'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-C3'
	end
	
	!! Fills the array with Touch Events !!
	if $ARGS[0] = 'A33-SibActTouchChoices':
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-T1'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-T2'
		if modVar_AF_EventProgress['A33-SibSexEv'] > modVar_AF_EventGates['A33-SibSexEv-2'] : $modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-T3'
	end
	
	!! Fills the array with Kiss Events !!
	if $ARGS[0] = 'A33-SibActKissChoices':
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-K1'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-K2'
	end
	
	!! Fills the array with Oral Events !!
	if $ARGS[0] = 'A33-SibActOralChoices':
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-O1'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-O2'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-O3'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-O4'
	end
	
	!! Fills the array with Sex Events !!
	if $ARGS[0] = 'A33-SibActSexChoices':
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-S1'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-S2'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-S3'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-S4'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-S5'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-S6'
		$modArr_AF_A33_SibActChoices[] = 'A33-SibSexEv-S7'
	end
	
	!! Code to calculate the amount of progression in Kolka and Anyas Sexual Relationship !!
	if $ARGS[0] = 'AddProgress' and $ARGS[1] = 'A33-SibSexEv':
		if modVar_AF_EventProgress['A33-SibSexEv'] < ARGS[3]:
			modVar_AF_EventProgress['A33-SibSexEv'] += ARGS[2]
			if modVar_AF_EventProgress['A33-SibSexEv'] > ARGS[3] : modVar_AF_EventProgress['A33-SibSexEv'] = ARGS[3]
		end
	end

--- mod_addedflavour_A33_Functions ---------------------------------