AddedFlavour/locations/mod_addedflavour_A130_Functions.qsrc

# mod_addedflavour_A130_Functions
	if $ARGS[0] = 'config':
		$npc_fontcolor['A130'] = 'Olive'
		modVar_AF_EventProgress['A130-CoercionRating'] = 0
		modVar_AF_EventProgress['A130-SubmissiveRating'] = 0
		modVar_AF_EventProgress['A130-DominatedRating'] = 0
		modVar_AF_EventTriggered['A130-DomSexEv'] = 0
		modVar_AF_EventTriggered['A130-SubSexEv'] = 0
		modVar_AF_EventTriggered['A130-CoeSexEv'] = 0
		$modVar_AF_EventOption['A130-Status'] = 'None'
		modVar_AF_EventLock['A130-RegistrationEv'] = daystart
		modVar_AF_EventOpen['A130-SubmissiveSexEv'] = 0
		modVar_AF_BlockEvents['A130'] = 0
		modVar_AF_EventGates['A130-TeacherSexEv-1'] = 5 + (5 * difficulty)
		modVar_AF_EventGates['A130-TeacherSexEv-2'] = modVar_AF_EventGates['A130-TeacherSexEv-1'] * 3
	end
	
	if $ARGS[0] = 'changestatus':
		if $modVar_AF_EventOption['A130-Status'] = 'None':
			if $ARGS[1] = 'Add':
				if $ARGS[2] = 'Coercion':
					modVar_AF_EventProgress['A130-CoercionRating'] += ARGS[3]
				else
					modVar_AF_EventProgress['A130-CoercionRating'] -= (ARGS[3] / 2)
				end
				if $ARGS[2] = 'Submissive':
					modVar_AF_EventProgress['A130-SubmissiveRating'] += ARGS[3]
				else
					modVar_AF_EventProgress['A130-SubmissiveRating'] -= (ARGS[3] / 2)
				end
				if $ARGS[2] = 'Dominated':
					modVar_AF_EventProgress['A130-DominatedRating'] += ARGS[3]
				else
					modVar_AF_EventProgress['A130-DominatedRating'] -= (ARGS[3] / 2)
				end
			elseif $ARGS[1] = 'Remove':
				if $ARGS[2] = 'Coercion' : modVar_AF_EventProgress['A130-CoercionRating'] -= ARGS[3]
				if $ARGS[2] = 'Submissive' : modVar_AF_EventProgress['A130-SubmissiveRating'] -= ARGS[3]
				if $ARGS[2] = 'Dominated' : modVar_AF_EventProgress['A130-DominatedRating'] -= ARGS[3]
			end
			if modVar_AF_EventProgress['A130-CoercionRating'] < 0 : modVar_AF_EventProgress['A130-CoercionRating'] = 0
			if modVar_AF_EventProgress['A130-CoercionRating'] > modVar_AF_EventGates['A130-TeacherSexEv-2'] : modVar_AF_EventProgress['A130-CoercionRating'] = modVar_AF_EventGates['A130-TeacherSexEv-2']
			if modVar_AF_EventProgress['A130-SubmissiveRating'] < 0 : modVar_AF_EventProgress['A130-SubmissiveRating'] = 0
			if modVar_AF_EventProgress['A130-SubmissiveRating'] > modVar_AF_EventGates['A130-TeacherSexEv-2'] : modVar_AF_EventProgress['A130-SubmissiveRating'] = modVar_AF_EventGates['A130-TeacherSexEv-2']
			if modVar_AF_EventProgress['A130-DominatedRating'] < 0 : modVar_AF_EventProgress['A130-DominatedRating'] = 0
			if modVar_AF_EventProgress['A130-DominatedRating'] > modVar_AF_EventGates['A130-TeacherSexEv-2'] : modVar_AF_EventProgress['A130-DominatedRating'] = modVar_AF_EventGates['A130-TeacherSexEv-2']
			if modVar_AF_EventProgress['A130-CoercionRating'] = modVar_AF_EventGates['A130-TeacherSexEv-2'] : $modVar_AF_EventOption['A130-Status'] = 'Coercion'
			if modVar_AF_EventProgress['A130-SubmissiveRating'] = modVar_AF_EventGates['A130-TeacherSexEv-2'] : $modVar_AF_EventOption['A130-Status'] = 'Submissive'
			if modVar_AF_EventProgress['A130-DominatedRating'] = modVar_AF_EventGates['A130-TeacherSexEv-2'] : $modVar_AF_EventOption['A130-Status'] = 'Dominated'
		end
	end
	
	if $ARGS[0] = 'LessonEvent':
		*nl
		'During a lull in the lesson he takes the opportunity to remind everyone that he is running an <b>After-School Literature Club</b> on Mondays, Wednesdays and Fridays to spend some free time reading and talking about books.  He does his best to make it sound appealing without being too insistent, obviously wanting to have students attend.'
		!---
		modVar_AF_Rand = rand(1,100)
		if modVar_AF_Rand <= 20 and ($modVar_AF_EventOption['A130-Status'] = 'Dominated' or $modVar_AF_EventOption['A130-Status'] = 'None'):
			*nl
			'<b>Your <a href="exec: gt ''mod_addedflavour_A130_Events'' , ''A130-LessonEv-1'' ">Teacher</a> also trying to organise a small group task while the rest of the class works on their Textbooks.</b>  He is quite anxious to get this little optional thing going and is looking around for volunteers.  You are not quite sure what it is specifically but you gather it will probably just be a small focused study of a small piece of Russian Literature.'
		elseif modVar_AF_Rand > 20 and modVar_AF_Rand <= 40 and ($modVar_AF_EventOption['A130-Status'] = 'Coercion' or $modVar_AF_EventOption['A130-Status'] = 'None'):
			*nl
			'<b>Your <a href="exec: gt ''mod_addedflavour_A130_Events'' , ''A130-LessonEv-2'' ">Teacher</a> also trying to organise a small group task while the rest of the class works on their Textbooks.</b>  He is quite eager to get this little optional thing going and is looking around for volunteers.  You are not quite sure what it is specifically but you gather it will probably just be a small focused study of a small piece of Russian Literature.'
		elseif modVar_AF_Rand > 40 and modVar_AF_Rand <= 60 and ($modVar_AF_EventOption['A130-Status'] = 'Submissive' or $modVar_AF_EventOption['A130-Status'] = 'None'):
			*nl
			'<b>Your <a href="exec: gt ''mod_addedflavour_A130_Events'' , ''A130-LessonEv-3'' ">Teacher</a> also trying to organise a small group task while the rest of the class works on their Textbooks.</b>  He is quite enthusiastic to get this little optional thing going and is looking around for volunteers.  You are not quite sure what it is specifically but you gather it will probably just be a small focused study of a small piece of Russian Literature.'
		end
	end
	
	if $ARGS[0] = 'RegistrationEvent':
		if CloStyle2 = 4 or Enable_sforma = 1:
			if minut <= 20 and modVar_AF_EventProgress['A130-CoercionRating'] >= modVar_AF_EventGates['A130-TeacherSexEv-1'] and ($modVar_AF_EventOption['A130-Status'] = 'Coercion' or $modVar_AF_EventOption['A130-Status'] = 'None'):
				act '<b>Go to Homeroom</b>' : gt 'mod_addedflavour_A130_Events' , 'A130-RegistrationEv-5'
			else
				act '<b>Go to Homeroom</b>' : gt 'mod_addedflavour_A130_Events' , 'A130-RegistrationEv-1'
			end
		end
	end
	
	if $ARGS[0] = 'HallEvent':
		if modVar_AF_EventLock['A130-TriggerEv'] ! daystart:
			modVar_AF_EventLock['A130-TriggerEv'] = daystart
			modVar_AF_Rand = rand(1,3)
			if (modVar_AF_EventLock['A130-RegistrationEv'] < (daystart - 2)) and modVar_AF_Rand = 1:
				if modVar_AF_EventProgress['A130-DominatedRating'] >= modVar_AF_EventGates['A130-TeacherSexEv-1'] and ($modVar_AF_EventOption['A130-Status'] = 'Dominated' or $modVar_AF_EventOption['A130-Status'] = 'None'):
					gt 'mod_addedflavour_A130_Events' , 'A130-HallPunishEv-2'
				elseif $modVar_AF_EventOption['A130-Status'] = 'None':
					gt 'mod_addedflavour_A130_Events' , 'A130-HallPunishEv-1'
				end
			end
			if $modVar_AF_EventOption['A130-Status'] = 'Dominated' and modVar_AF_Rand = 2 and (week = 1 or week = 3 or week = 5) and modVar_AF_EventLock['A130-DominatedSexEv'] < daystart:
				gt 'mod_addedflavour_A130_Events' , 'A130-LessonStayBackEv-1'
			end
			if $modVar_AF_EventOption['A130-Status'] = 'Coercion' and modVar_AF_Rand = 3 and modVar_AF_EventLock['A130-CoercionSexEv'] < daystart:
				gt 'mod_addedflavour_A130_Events' , 'A130-HallFlirtEvent-1'
			end
		end
	end
	
	if $ARGS[0] = 'ClubEvent':
		if modVar_AF_EventLock['A130-ClubEv'] ! daystart and (week = 1 or week = 3 or week = 5):
			act '<b>Go to Literature Club</b>' : gt 'mod_addedflavour_A130_Events' , 'A130-ClubEv-1'
		end
	end

--- mod_addedflavour_A130_Functions ---------------------------------