glife/sugarcube/src/activities/school/quest_school.tw

:: quest_school
<<switch $location_var[$here][0]>>
	<<case 'title'>>
		School student
	<<case 'start'>>
		<<set $q.school.classes = {}>>
		<<set $q.school.gradeAverage = 0>>
		<<set $q.school.missedDays = 0>>
		<<set $q.school.period = 0>>
		<<set $q.school.attendedDays = 0>>
		<<set $q.school.homeworkLeft = 0>>
		<<set $q.school.lastAttendedDay = 0>>
		<<set $q.school.missedClasses = 0>>
		<<set $q.school.missedDays = 0>>
		<<set $q.school.missedDayWarnings = 0>>
		<<run $q.school.registerEvent('afterSchool',14,0,null,null,null,'daily')>>
		<<run $q.school.registerEvent('groupRelDeterioration',0,0,null,null,null,'daily')>>
		<<run $q.school.registerDayEvent('graduation',25,5,($time.year+1))>>

		<<set $q.school.groups = {
			'cool': {rel:0,raw:0,prev:0},
			'jocks': {rel: 0,raw:0,prev:0},
			'nerds': {rel: 0,raw:0,prev:0},
			'gopniks': {rel: 0,raw:0,prev:0},
			'outcasts': {rel: 0,raw:0,prev:0},
			'teachers': {rel: 0,raw:0,prev:0},
		}>>

		<<set $q.school.config = {
			groupsMaxGainDaily: 10,
			groupsMaxLoseDaily: 30,
		}>>
	<<case 'stageDescription'>>
		<<switch $location_var[$here][1]>>
			<<case 0>>
				You are a student in your last year at highschool.
				You are expected to attend classes and behave yourself in order to not get expelled.
				If you want to attain good grades, you will need to listen to the lectures and participate actively in classes.
				School usually starts at 08:00. You should arrive there before this time.
				The school is located in the residential area of Pavlovsk.
			<<case 8000>>
				You have ignored all warning and have been absent from school for several days again. Surely you will get expelled at some point.
			<<case 8001>>
				You have been expelled for absenteeism.
		<</switch>>
	<<case 'vars'>>
		<<switch $location_var[$here][1]>>
			<<case 'startTimes'>>
				<<set $result = [
					[8,0],
					[8,50],

					[9,40],

					[9,55],
					[10,45],

					[11,35],

					[12,25],
					[13,15],

					[14,0]
				]>>
			<<case 'timetable'>>
				<<set $result = [
					['math',		'russian',	'break',	'english',	'art',		'breakLunch',	'biology',	'pe'],
					['literature',	'geography','break',	'science',	'shop',		'breakLunch',	'computer',	'music'],
					['math',		'russian',	'break',	'biology',	'history',	'breakLunch',	'computer',	'pe'],
					['literature',	'geography','break',	'science',	'shop',		'breakLunch',	'computer',	'music'],
					['math',		'russian',	'break',	'english',	'art',		'breakLunch',	'history',	'pe']
				]>>
		<</switch>>
	<<case 'event'>>
		<<switch $location_var[$here][1]>>
			<<case 'afterSchool'>>
				<<if $time.isSchoolDay>>
					<<if $q.school.lastAttendedDay != $time.daystart>>
						<<set $q.school.missedDays += 1>>
						<<if $q.school.missedDays > 2>>
							<<set $q.school.missedDayWarnings += 1>>
							<<set $q.school.missedDays = 0>>
							<<switch $q.school.missedDayWarnings>>
								<<case 3>>
									<!--Prelud to getting expelled -->
									<<run $q.school.setStage(8000)>>
								<<case 2>>
									<!--recude all grades by 40 -->
								<<case 1>>
									<!--recude all grades by 20 -->
							<</switch>>
						<</if>>
					<</if>>
				<</if>>
			<<case 'groupRelDeterioration'>>
				<<for _deteriorationGroup range ['cool','jocks','nerds','gopniks']>>
					<<run $q.school.func('groupRelInc',_deteriorationGroup,-1 * rand(0,1))>>
					<<set $q.school.groups[_deteriorationGroup].prev = $q.school.groups[_deteriorationGroup].rel>>
					<<set $q.school.groups[_deteriorationGroup].raw  = $q.school.groups[_deteriorationGroup].rel>>
				<</for>>
		<</switch>>
	<<case 'func'>>
		<<switch $location_var[$here][1]>>

				<!-- !!When the character attends a class then remember to include the following-->
				<!-- !! gs 'grades', 'attend_class', 'institution', 'name' Here institution and name are the once you assigned when you created the class.-->
				<!-- !!Then remember to include a number af calls for activities during that class corresponding to the number of optional in class educational activities assigned when the class was created.-->
				<!-- !!Each activity should use one of the following 3 different calls.-->
				<!-- !! gs 'grades', 'class_activity', 'institution', 'name'-->
				<!-- !! gs 'grades', 'class_activity_skill', 'institution', 'name', skill-->
				<!-- !! gs 'grades', 'class_activity_attributes', 'institution', 'name', attribute-->
				<!-- !!The first is to be used if the activity is not to be modified by anything.-->
				<!-- !!The second is if the activity is going to be modified by a skill. This will in general only increase the grade gain from the activity up 85% (It can lower it if the skill is less than 15)-->
				<!-- !!The numerical argument 'skill' should be the skill you want to modify whit, for example if you want to use the characters dance skill it should be pcs_danc.-->
				<!-- !!If you want to modify it by more that one skill you need to decide how. For example if you want to modify by both the characters singing skill and the instrumental music skill, you could take the maximum which would be the Math.max(psc_vokal,pcs_instrmusic) or you could take the average which would be (pcs_vokal+pcs_instrmusic)/2.-->
				<!-- !!These are just suggestions but remember that the result should return a number between 0 and 100.-->
				<!-- !!The third activity call is to be used if you want to modify by an attribute. This can half the grade gain if the attribute is 0 and increase it by 50% if the attribute is 100. If the attribute is 50 this will give the same as the unmodified call.-->
				<!-- !!If you want to modify by more than one attribute then you can do it by using one of the methods explained under the call modified by skill.-->

				<!-- !!For a class where there is optional opportunities to study outside class that can effect the characters grade ther is th following three calls.-->
				<!-- !! gs 'grades', 'optional_activity', 'institution', 'name', 'use of computer'-->
				<!-- !! gs 'grades', 'optional_activity_skill', 'institution', 'name', 'use of computer', skill-->
				<!-- !! gs 'grades', 'optional_activity_attributes', 'institution', 'use of computer', 'name', attribute-->
				<!-- !!The difference between the three is how it is modified. This work exactly as for gs 'grades', 'class_activity'.-->
				<!-- !! 'use of computer' is 'yes' if a computer use to make the activity, 'no' if not. This modifies the grade gain depending of what was choose when the class was created.-->
				<!-- !!These optional activities can be called as many time as one want. the are particularly made for repeatable activities.-->
				<!-- !!The number of these optional activities chosen when the class created is how many time this activity have to be done with out modifies to achieve maximal grade gain in a given week.-->
				<!-- !!The modifiers mean that it can take more of less depending on skill, attributes and if a computer is used or not.-->
				<!-- !!For converting the weekly grade gain into change of the actual grade for the classes, the following should be called either in cikl Sunday night, or the first time the character enters the institution in a given week.-->
				<!-- !!Remember to call it for each institution the character attends.-->
				<!-- !! gs 'grades', 'calculate_grade', 'institution'-->
				<!-- !!Here are some other action that can be done using this file.-->
				<!-- !! gs 'grades', 'grade_cap', 'institution', 'name' number-->
				<!-- !!This make such that the grade can never go above the 'number' given (this should be a number less than 100). Can be used if a teacher don't want to give higher grade for some reason.-->
				<!-- !! gs 'grades', 'grade_cap', 'institution', 'name'-->
				<!-- !!This removes any grade cap on the class.-->
				<!-- !! gs 'grades', 'grade_award', 'institution', 'name' number-->
				<!-- !!This add or subtract to number given from the grade directly, but respecting any cap on the grade. Can be used for giving the character a grade bonus or punishment for some discrete event. For example a bribe or punishment.-->
				<!-- !! gs 'grades', 'grades_above', 'institution', number-->
				<!-- !!This call set the variable class[$institution+'_grades_above_<<number>>'] which returns the number of classes in institution which have a grade equal or higher than the number.-->
				<!-- !!This variable is not set automatically, so whenever you want to use it, remeber to make this call first.-->
				<!-- !!The following variable is set by this files for reference in events other places.-->
				<!-- !! class[$institution+'_<<name>>_grade'], This is the grade of the class in institution by the name given.-->
				<!-- !! class[$institution+'_grade_average'], This is the average of the grades in institution.-->


				<!-- !!For handling the grades for classes in school, university adn other places the main character teke classes.-->
				<!-- !!First important thing is that to use these system to handle the characters grades for a class, it has to be initilized by the following call:-->
				<!-- !! gs 'grades', 'createclass', 'institution', 'name', 'number classes', 'number of optional in class educational activities', 'classes obligatory', 'use of homework', 'use computer in homework and out of class activities', 'number of out of class educational activities for max effectiveness'-->
				<!-- 2: 'name' is simply just the name of the class, make sure that the combination of institution and name is unique.-->
				<!-- 3: 'number of classes' This is the number of classes that the character have each standard week. This number can be 0, but then the only weekly actions that affects grades are the out class educational ones.-->
				<!-- 4: 'number of optional in class educational activities' is the number of actions that the character can do in a given class to improve their grades. Examples include pay attention, ask question. Remember when you write your class to include the given number of activities in each class.-->
				<!-- 5: 'class obligatory' this is eithe 'yes' or 'no'. The difference between an obligatory class and a non obligatory is whether your in class performance is taking into account in your grade. Think the difference between a high-school where you grade is partially given by you teacher evaluating your performance throughout the year and a university lecture where your grade only depends on your performance at the exam.-->
				<!-- 6: 'use of homework' this is an other 'yes' or 'no' question. This is if the class gives assignments as part of the daily homework. Specifically used to see if doing the daily homework contributes to the grade of this class.-->
				<!-- 7: 'use computer in homework and out of class activities' this is to determine if the grade gain from doing homework or out of class activities is affected by access to a computer o not: 0 mean it is not affected, 1 means that the grade is affected if you do not use a computer and 2 means that the homework will not contribute to your grade if you do not use a computer.-->
				<!-- 8: 'number of out of class educational activities for max effectiveness' this for classes that have repeatable study activities outside the class. This can for example be use for self study classes at university. The number is not the maximal number of a time the character can do these activities, but the number of times the character have to do them to get the maximal increase in grade id the associated attribute is 50 or skill is 15.-->
				<<case 'createclass'>>
					<<set _newClass = {
						classes: parseInt($location_var[$here][3]),
						grade_cap: 100,
						homework: $location_var[$here][6].toBoolean(),
						name: $location_var[$here][2],
						obligatory: $location_var[$here][5].toBoolean(),
						optionalclassactivities: parseInt($location_var[$here][4]),
						outofclassactivities: parseInt($location_var[$here][8]),
						usecomputer: $location_var[$here][7].toBoolean(),
					}>>

					<<if _newClass.homework>>
						<<setinit _newClass['weekly_grade_gain_max'] = 10 * _newClass.classes + 10 * _newClass.optionalclassactivities * _newClass.classes + 50 + 10 * _newClass.outofclassactivities>>
					<<else>>
						<<setinit _newClass['weekly_grade_gain_max'] = 10 * _newClass.classes + 10 * _newClass.optionalclassactivities * _newClass.classes + 10 * _newClass.outofclassactivities>>
					<</if>>
					<<if _newClass.obligatory>>
						<<if _newClass.homework>>
							<<setinit _newClass['weekly_grade_gain_breakeven_point'] = Math.min(10*_newClass.classes+25, 5*_newClass.classes +50)>>
						<<else>>
							<<setinit _newClass['weekly_grade_gain_breakeven_point'] = 10 * _newClass.classes>>
						<</if>>
					<<elseif _newClass.homework>>
						<<setinit _newClass['weekly_grade_gain_breakeven_point'] = 50>>
					<<else>>
						<<setinit _newClass['weekly_grade_gain_breakeven_point'] = 5 * _newClass.outofclassactivities>>
					<</if>>

					<<setinit _newClass['optional_weekly_max'] = 10 * _newClass.outofclassactivities>>

					<<set $q.school.classes[_newClass.name] = _newClass>>
					<<unset _newClass>>

				<<case 'grade_cap'>>
					<!-- !!This set a cap on the grade of the class. Used if something are preventing the character for obtaining a higher grade, for example a teacher mad at the character.-->
					<<set $q.school.classes[$location_var[$here][2]].grade_cap = parseInt($location_var[$here][3])>>
					<<set $q.school.classes[$location_var[$here][2]].grade = Math.min($q.school.classes[$location_var[$here][2]].grade,$q.school.classes[$location_var[$here][2]].grade_cap)>>
				<<case 'grade_cap_removed'>>
					<!-- !!Remove the above cap.-->
					<<run $q.school.func('grade_cap',100)>>
				<<case 'attend_class'>>
					<!-- !!This adds the point for attending a class. Also the first time it is called in a given day it register that there will be classes that day.-->
					<<setinit $q.school.classes[$location_var[$here][2]].class_day[$time.weekday] = 1>>
					<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 10>>
				<<case 'class_activity'>>
					<!-- !!This adds the point for doing an in class activity that is not modified.-->
					<<if $pc.pcs_stam <= 0>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 1>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 2>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 3>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 5>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 5>>
						<</if>>
					<<elseif $pc.pcs_stam < $pc.stammax / 5>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 2>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 4>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 6>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 8>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 9>>
						<</if>>
					<<else>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 2>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 5>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 7>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 9>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += 10>>
						<</if>>
					<</if>>
				<<case 'class_activity_skill'>>
					<!-- !!This adds the point for doing an in class activity modified by a skill.-->
					<<set _skillLevel = parseInt($location_var[$here][3])>>
					<<if $pc.pcs_stam <= 0>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (2*(85+_skillLevel))/200>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (5*(85+_skillLevel))/200>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (7*(85+_skillLevel))/200>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (9*(85+_skillLevel))/200>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (10*(85+_skillLevel))/200>>
						<</if>>
					<<elseif $pc.pcs_stam < $pc.stammax / 5>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (6*(85+_skillLevel))/400>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (15*(85+_skillLevel))/400>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (21*(85+_skillLevel))/400>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (27*(85+_skillLevel))/400>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (30*(85+_skillLevel))/400>>
						<</if>>
					<<else>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (2*(85+_skillLevel))/100>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (5*(85+_skillLevel))/100>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (7*(85+_skillLevel))/100>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (9*(85+_skillLevel))/100>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (10*(85+_skillLevel))/100>>
						<</if>>
					<</if>>
				<<case 'class_activity_attributes'>>
					<!-- !!This adds the point for doing an in class activity modified by an attributes.-->
					<<set _skillLevel = parseInt($location_var[$here][3])>>
					<<if $pc.pcs_stam <= 0>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (2*(50+_skillLevel))/200>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (5*(50+_skillLevel))/200>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (7*(50+_skillLevel))/200>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (9*(50+_skillLevel))/200>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (10*(50+_skillLevel))/200>>
						<</if>>
					<<elseif $pc.pcs_stam < $pc.stammax / 5>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (6*(50+_skillLevel))/400>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (15*(50+_skillLevel))/400>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (21*(50+_skillLevel))/400>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (27*(50+_skillLevel))/400>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (30*(50+_skillLevel))/400>>
						<</if>>
					<<else>>
						<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (2*(50+_skillLevel))/100>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (5*(50+_skillLevel))/100>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (7*(50+_skillLevel))/100>>
						<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (9*(50+_skillLevel))/100>>
						<<else>>
							<<setinit $q.school.classes[$location_var[$here][2]].weekly_grade_gain += (10*(50+_skillLevel))/100>>
						<</if>>
					<</if>>
				<<case 'optional_activity'>>
					<!-- !!This adds the point for doing an optional out of class activity that is not modified.-->
					<<if !$q.school.classes[$location_var[$here][2]].use_computer or $location_var[$here][3].toBoolean()>>
						<<if $pc.pcs_stam <= 0>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 1>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 3>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 4>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 5>>
							<</if>>
						<<elseif $pc.pcs_stam < $pc.stammax / 5>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 4>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 6>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 8>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 9>>
							<</if>>
						<<else>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 5>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 7>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 9>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 10>>
							<</if>>
						<</if>>
					<<elseif $q.school.classes[$location_var[$here][2]].use_computer>>
						<<if $pc.pcs_stam <= 0>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 1>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 1>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 3>>
							<</if>>
						<<elseif $pc.pcs_stam < $pc.stammax / 5>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 1>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 3>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 4>>
							<</if>>
						<<else>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 1>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 2>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 3>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 4>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += 5>>
							<</if>>
						<</if>>
					<</if>>
					<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain = Math.min(
						$q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain,
						$q.school.classes[$location_var[$here][2]].optional_weekly_max,
					)>>
				<<case 'optional_activity_skill'>>
					<!-- !!This adds the point for doing an optional out of class activity modified by a skill.-->
					<<set _skillLevel = parseInt($location_var[$here][4])>>
					<<if !$q.school.classes[$location_var[$here][2]].use_computer or $location_var[$here][3].toBoolean()>>
						<<if $pc.pcs_stam <= 0>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(85+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(85+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (7*(85+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (9*(85+_skillLevel))/200>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (10*(85+_skillLevel))/200>>
							<</if>>
						<<elseif $pc.pcs_stam < $pc.stammax / 5>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (6*(85+__skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (15*(85+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (21*(85+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (27*(85+_skillLevel))/400>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (30*(85+_skillLevel))/400>>
							<</if>>
						<<else>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(85+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(85+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (7*(85+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (9*(85+_skillLevel))/100>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (10*(85+_skillLevel))/100>>
							<</if>>
						<</if>>
					<<elseif $q.school.classes[$location_var[$here][2]].use_computer>>
						<<if $pc.pcs_stam <= 0>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (1*(85+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(85+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (3*(85+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (4*(85+_skillLevel))/200>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(85+_skillLevel))/200>>
							<</if>>
						<<elseif $pc.pcs_stam < $pc.stammax / 5>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (3*(85+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (6*(85+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (9*(85+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (12*(85+_skillLevel))/400>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (15*(85+_skillLevel))/400>>
							<</if>>
						<<else>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (1*(85+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(85+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (3*(85+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (4*(85+_skillLevel))/100>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(85+_skillLevel))/100>>
							<</if>>
						<</if>>
					<</if>>
					<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain = Math.min(
						$q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain,
						$q.school.classes[$location_var[$here][2]].optional_weekly_max,
					)>>
				<<case 'optional_activity_attribute'>>
					<!-- !!This adds the point for doing an optional out of class activity modified by an attributes.-->
					<<set _skillLevel = parseInt($location_var[$here][4])>>
					<<if !$q.school.classes[$location_var[$here][2]].use_computer or $location_var[$here][3].toBoolean()>>
						<<if $pc.pcs_stam <= 0>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(50+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(50+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (7*(50+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (9*(50+_skillLevel))/200>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (10*(50+_skillLevel))/200>>
							<</if>>
						<<elseif $pc.pcs_stam < $pc.stammax / 5>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (6*(50+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (15*(50+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (21*(50+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (27*(50+_skillLevel))/400>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (30*(50+_skillLevel))/400>>
							<</if>>
						<<else>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(50+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(50+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (7*(50+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (9*(50+_skillLevel))/100>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (10*(50+_skillLevel))/100>>
							<</if>>
						<</if>>
					<<elseif $q.school.classes[$location_var[$here][2]].use_computer>>
						<<if $pc.pcs_stam <= 0>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (1*(50+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(50+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (3*(50+_skillLevel))/200>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (4*(50+_skillLevel))/200>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(50+_skillLevel))/200>>
							<</if>>
						<<elseif $pc.pcs_stam < $pc.stammax / 5>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (3*(50+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (6*(50+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (9*(50+_skillLevel))/400>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (12*(50+_skillLevel))/400>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (15*(50+_skillLevel))/400>>
							<</if>>
						<<else>>
							<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (1*(50+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (2*(50+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (3*(50+_skillLevel))/100>>
							<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (4*(50+_skillLevel))/100>>
							<<else>>
								<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain += (5*(50+_skillLevel))/100>>
							<</if>>
						<</if>>
					<</if>>
					<<setinit $q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain = Math.min(
						$q.school.classes[$location_var[$here][2]].optional_weekly_grade_gain,
						$q.school.classes[$location_var[$here][2]].optional_weekly_max,
					)>>
				<<case 'homework'>>
					<!-- !!Doing homweork is done by using the following call, remember to have the check lernHome >= number of homeworks before calling this to make sure that there is actually homework to do. The action will automatically lower this variable. Also remember that lernHome have to be increased by one for each day of school.-->
					<!-- !! gs 'grades', 'homework', 'institution', 'use of computer', 'number of homeworks', 'joint', 'npc identifier'-->
					<!-- !! 2 'use of computer' is 'yes' if a computer was available for doing the homework and 'no' if not.-->
					<!-- !!	3 'number of homeworks' is the number of gomework assignments you want to do whit this one call. Remember to make sure that this number is not greater than lernHome.-->
					<!-- !! 4 'joint' 0 if you do the homework alone, 1 if you do it together with an npc, 2 if a npc does the homework for you, 3 use a modifier equal to the numbe set as the next argument.-->
					<!-- !! 5 'npc identifier' the npc identifier from npcstatic in the for A(number) for the npc helping/doing for you. If 'joint' = 3 then the number set here will be used as the modifier for doing the homework-->
					<<set _numberOfHomeworks = parseInt($location_var[$here][3])>>
					<<set $q.school.homeworkLeft -= _numberOfHomeworks>>
					<!-- !!The modifier for doing home work is the characters intelligence if that do it alone, the intelligence of the npc that make it for them (but at least 50), or the maximum of the intelligence of the character and the npc the are doing it together with, with a small bonus if there intelligence is close, or the value set as ARGs[5].-->
					<<if $location_var[$here][4] == 2>>
						<<set _homework_modifier = Math.max($npcs.get($location_var[$here][5],'intel'), 50)>>
					<<elseif $location_var[$here][4] == 1>>
						<<set _npcIntelligence = $npcs.get($location_var[$here][5],'intel')>>
						<!--<<set _homework_modifier =
							Math.max(_npcIntelligence, $pc.intelligence)
							+
							(Math.max(
								10 + min(_npcIntelligence - $pc.intelligence, $pc.intelligence - _npcIntelligence),0)
							*
							(100 - Math.max(_npcIntelligence, $pc.intelligence)))/50>>-->
						<!-- Too complicated for my taste -->
						<<set _homework_modifier = (_npcIntelligence + $pc.intelligence) / 2 * 1.2>><!-- Average of both intelligences and 20% bonus for synergy. -->
					<<elseif $location_var[$here][4] == 3>>
						<<set _homework_modifier = parseInt($ARGS[5])>>
					<<else>>
						<<set _homework_modifier = $pc.intelligence>>
					<</if>>

					<<for _classId, _classData range $q.school.classes>>
						<<if _classData.homework>>
							<<if !$location_var[$here][2].toBoolean()>><!--No computer is used -->
								<<if !_classData.usecomputer>>
									<<if $pc.pcs_stam <= 0>>
										<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*1*(50+_homework_modifier))/200)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*2*(50+_homework_modifier))/200)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*3*(50+_homework_modifier))/200)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*4*(50+_homework_modifier))/200)>>
										<<else>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*5*(50+_homework_modifier))/200)>>
										<</if>>
									<<elseif $pc.pcs_stam < $pc.stammax / 5>>
										<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*3*(50+_homework_modifier))/400)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*6*(50+_homework_modifier))/400)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*9*(50+_homework_modifier))/400)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*12*(50+_homework_modifier))/400)>>
										<<else>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*15*(50+_homework_modifier))/400)>>
										<</if>>
									<<else>>
										<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*1*(50+_homework_modifier))/100)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*2*(50+_homework_modifier))/100)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*3*(50+_homework_modifier))/100)>>
										<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*4*(50+_homework_modifier))/100)>>
										<<else>>
											<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*5*(50+_homework_modifier))/100)>>
										<</if>>
									<</if>>
								<</if>>
							<<else>>
								<<if $pc.pcs_stam <= 0>>
									<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*(50+_homework_modifier))/200)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((5*(50+_homework_modifier))/200)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((7*(50+_homework_modifier))/200)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((9*(50+_homework_modifier))/200)>>
									<<else>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((10*(50+_homework_modifier))/200)>>
									<</if>>
								<<elseif $pc.pcs_stam < $pc.stammax / 5>>
									<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((6*(50+_homework_modifier))/400)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((15*(50+_homework_modifier))/400)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((21*(50+_homework_modifier))/400)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((27*(50+_homework_modifier))/400)>>
									<<else>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((30*(50+_homework_modifier))/400)>>
									<</if>>
								<<else>>
									<<if getvar("$pcs_condition['lack_of_sleep']") >= 20>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((2*(50+_homework_modifier))/100)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 10>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((5*(50+_homework_modifier))/100)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 5>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((7*(50+_homework_modifier))/100)>>
									<<elseif getvar("$pcs_condition['lack_of_sleep']") >= 2>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((9*(50+_homework_modifier))/100)>>
									<<else>>
										<<setinit $q.school.classes[_classId].weekly_grade_gain += _numberOfHomeworks*((10*(50+_homework_modifier))/100)>>
									<</if>>
								<</if>>
							<</if>>
						<</if>>
					<</for>>


					<<unset _homework_modifier>>

				<<case 'grade_award'>>
					<!-- !!This changes the grade directly of ARGS[3]-->
					<<setinit $q.school.classes[$location_var[$here][2]].grade = Math.clamp(parseInt($location_var[$here][3]),0,$q.school.classes[$location_var[$here][2]].grade_cap)>>
					<<run $q.school.func('grade_average_update')>>
				<<case 'grade_average_update'>>
					<<set _t_gradeSum = 0>>
					<<for _classId, _classData range $q.school.classes>>
						<<set _t_gradeSum += _classData.grade>>
					<</for>>
					<<set $q.school.gradeAverage = _t_gradeSum / Object.keys($q.school.classes).length>>
				<<case 'calculate_grade'>>
					<!-- !!This calculates the change in grade for each class in the institution $ARGS[1] at the end of the week. Should either be called from cikl when we move from Sunday to Monday, or the first time the character enters the institution in a given week.-->

					<<for _classId, _classData range $q.school.classes>>
						<<setinit $q.school.classes[_classId].weekly_grade_gain += $q.school.classes[_classId].optional_weekly_grade_gain>>
						<<setinit $q.school.classes[_classId].optional_weekly_grade_gain = 0>>
						<<if $q.school.classes[_classId].weekly_grade_gain < $q.school.classes[_classId].weekly_grade_gain_breakeven_point>>
							<<setinit $q.school.classes[_classId].grade -= (5 - (5 * $q.school.classes[_classId].weekly_grade_gain)/$q.school.classes[_classId].weekly_grade_gain_breakeven_point)>>
						<<else>>
							<<setinit $q.school.classes[_classId].grade += (3*($q.school.classes[_classId].weekly_grade_gain-$q.school.classes[_classId].weekly_grade_gain_breakeven_point))
								/
								($q.school.classes[_classId].weekly_grade_gain_max -$q.school.classes[_classId].weekly_grade_gain_breakeven_point)>>
						<</if>>
						<<if $q.school.classes[_classId].grade > $q.school.classes[_classId].grade_cap>>
							<<setinit $q.school.classes[_classId].grade = $q.school.classes[_classId].grade_cap>>
						<</if>>
						<<setinit $q.school.classes[_classId].weekly_grade_gain = 0>>
					<</for>>

					<<run $q.school.func('grade_average_update')>>
				<<case 'grade_description'>>
					<<set _tempGrade = parseInt($location_var[$here][2])>>
						<<if _tempGrade < 10>>
							<<set $result = '1'>>
						<<elseif _tempGrade < 20>>
							<<set $result = '2-'>>
						<<elseif _tempGrade < 35>>
							<<set $result = '2'>>
						<<elseif _tempGrade < 40>>
							<<set $result = '2+'>>
						<<elseif _tempGrade < 50>>
							<<set $result = '3-'>>
						<<elseif _tempGrade < 65>>
							<<set $result = '3'>>
						<<elseif _tempGrade < 70>>
							<<set $result = '3+'>>
						<<elseif _tempGrade < 75>>
							<<set $result = '4-'>>
						<<elseif _tempGrade < 86>>
							<<set $result = '4'>>
						<<elseif _tempGrade < 90>>
							<<set $result = '4+'>>
						<<elseif _tempGrade < 92>>
							<<set $result = '5-'>>
						<<elseif _tempGrade < 97>>
							<<set $result = '5'>>
						<<else>>
							<<set $result = '5+'>>
						<</if>>
			<<case 'isWearingSchoolUniform'>>
				<<set $result = ($wardrobe.PCloStyle2 == 4)>>
			<<case 'schoolOutfitDescription'>>
				<<set _schoolOutfitData = $location_var[$here][2]>>
				<<if getvar("_schoolOutfitData.inhibition") <= 10>>
					<<set $result = '<font color="lightblue">This uniform is very conservative. Only the nerds would approve of you wearing it.</font>'>>
				<<elseif getvar("_schoolOutfitData.skirtShortness") < 5 and getvar("_schoolOutfitData.thinness") < 5 and getvar("_schoolOutfitData.includesBra") == 0>>
					<<if getvar("_schoolOutfitData.inhibition") >= 30 or getvar("_schoolOutfitData.topcut") == 4>>
						<<set $result = '<font color="red">This uniform, despite meeting the school uniform regulations, is too risqué. Everybody in school apart from the gopniks will think that you\'re a slut but they will respect you for beating the school rules.</font>'>>
					<<elseif getvar("_schoolOutfitData.quality") >= 4>>
						<<set $result = '<font color="lightblue">This uniform complies with the regulations and is of good quality. It would certainly help you with your standing with the cool kids and jocks.</font>'>>
					<<else>>
						<<set $result = '<font color="lightblue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'>>
					<</if>>
				<<elseif getvar("_schoolOutfitData.skirtShortness") == 5 and getvar("_schoolOutfitData.thinness") < 5 and getvar("_schoolOutfitData.includesBra") == 0>>
					<<if getvar("_schoolOutfitData.inhibition") >= 25>>
						<<set $result = '<font color="red">This uniform slightly breaches the school uniform regulations and it is too risqué. Everybody in school apart from the gopniks will think that you\'re a slut.</font>'>>
					<<elseif getvar("_schoolOutfitData.quality") >= 4>>
						<<set $result = '<font color="lightblue">This uniform slightly breaches the school regulations on skirt length and is of good quality. Everybody apart from the nerds would approve of you wearing it.</font>'>>
					<<else>>
						<<set $result = '<font color="lightblue">This uniform slightly breaches the school regulations on skirt length. The gopnik would approve of you wearing it but they will respect you for beating the school rules.</font>'>>
					<</if>>
				<<else>>
					<<set $result = '<font color="red">This uniform makes a mockery of the school uniform regulations. Everybody in school apart from the gopniks will think that you\'re a slut.</font>'>>
				<</if>>
			<<case 'groupRelInc'>>
				<<set _gRI_groupId = $location_var[$here][2]>>
				<<set _gRI_change = $location_var[$here][3]>>
				<<run $q.school.func('groupRelSet',_gRI_groupId, $q.school.groups[_gRI_groupId].raw + _gRI_change, true)>>
			<<case 'groupRelSet'>>
				<!--
					2:	string				GroupId
					3: 	number				Value
					4: (optional) boolean	Use Constraints (used for inits)
				 -->
				<<set _gRS_groupId = $location_var[$here][2]>>
				<<set _gRS_val = $location_var[$here][3]>>

				<<set $q.school.groups[_gRS_groupId].raw = _gRS_val>>
				<<if !$location_var[$here][4]>>
					<<set $q.school.groups[_gRS_groupId].rel = Math.clamp(_gRS_val,0,1000)>>
				<<else>>
					<<set $q.school.groups[_gRS_groupId].rel = Math.clamp(_gRS_val,Math.max(0,$q.school.groups[_gRS_groupId].prev - $q.school.config.groupsMaxLoseDaily),Math.min(1000,$q.school.groups[_gRS_groupId].prev + $q.school.config.groupsMaxGainDaily))>>
				<</if>>
			<<case 'groupMembersRelInc'>>
				<<set _gMRI_Id = ['','cool','jocks','nerds','gopniks','outcasts','teachers'].indexOf($location_var[$here][2])>>
				<<set _gMRI_filter = {grupTipe:_gMRI_Id}>>
				<<if $location_var[$here][4]>>
					<<set _gMRI_filter.gender = ($location_var[$here][4] == 'male' ? 0 : 1)>>
				<</if>>
				<<set _gMRI_npcIds = $npcs.ids(_gMRI_filter)>>
				<<for _gMRI_npcId range _gMRI_npcIds>>
					<<run $npcs.inc(_gMRI_npcId,'rel',$location_var[$here][3])>>
				<</for>>
			<<case 'onPostIntro'>>
				<<for _groupKey, _groupData range $q.school.groups>>
					<<set $q.school.groups[_groupKey].prev = $q.school.groups[_groupKey].rel>>
				<</for>>
		<</switch>>
<</switch>>