:: willpower[include]
<<set $here = 'willpower'>>
<<set $ARGS = $location_var[$here]>>
<!-- !!To use it call it with gs 'willpower', 'action', 'type'-->
<!-- !!Action: Determines what action sveta is resisting, forcing somebody to do or forcing herself to do-->
<!-- !!List of actions:-->
<!-- !!		'voyeur', 'flash', 'mast', 'hj', 'bj', 'cuni', 'sex', 'anal', 'group', 'gangbang', 'prostitution', 'swallow', 'cum_inside', 'cum_inside_anal', 'rape',-->
<!-- !!		'kiss', 'humiliation', 'footjob', 'titjob', 'trib', 'rimming', 'BDSM', 'pee', 'cum_outside', 'drink', 'drugs', 'crime', 'exhib', 'sleep', 'chore'-->
<!-- !!		there is also 'foreplay' for things like touching and fondling-->
<!-- !!		and two special cases 'misc' and 'skill'-->
<!-- !!		'chore' is meant to be used for menial tasks that should not greatly affect willpower max, only drain from the pool-->
<!-- !!Type: Determines what kind of willpower check sveta needs to do ('resist', 'force', 'self').-->
<!-- !!		-'resist' is used if sveta is resisting to do the 'action' somebody else wants her to do.-->
<!-- !!		-'force' is used if sveta forces somebody else to do the 'action'.-->
<!-- !!		-'self' should be used if sveta forces herself to do the 'action' (this should be used only in rare occasions)-->
<!-- !!Example 1: Sveta is forcing somebody to perform a blowjob: gs 'willpower', 'bj', 'force'-->
<!-- !!Example 2: Sveta is resisting doing drugs: gs 'willpower', 'drugs', 'resist'-->
<!-- !!You can modify the difficulty of the check with adding an additional argument at the end. You can either add an 'easy' or a 'hard' to modify the difficulty.-->
<!-- !!Example 1: Sveta is resisting doing drugs, a weak outcast is pressuring her to use them: gs 'willpower', 'drugs', 'resist', 'easy'-->
<!-- !!Example 2: Sveta is resisting doing drugs, a group of gopniks are pressuring her to use them: gs 'willpower', 'drugs', 'resist', 'hard'-->
<!-- !!There are two special cases: 'misc' and 'skill'-->
<!-- !!'skill': Bridging a gap in skill for doing something, for succeeding when not quite meeting the required skill/attribute: gs 'willpower', '<skill>_lvl'-->
<!-- !!Example for 'skill': gs 'willpower', 'skill', 'resist', 'pcs_makupskl_lvl' for a willpower check regarding something with pcs_makupskl_lvl (you can also apply 'easy' or 'hard' difficulty to a skill check)-->
<!-- !!'misc': Use this 'action' if no other 'action' fits the scene. You can set three difficulty levels for this check 'easy', 'medium', 'hard' (Difficulty is only for 'misc' checks)-->
<!-- !!To call 'misc' do the following: gs 'willpower', 'misc', 'type', 'difficulty'-->
<!-- !!Example 1 for 'misc': Sveta wants to bring herself to slap a weak looking nerd: gs 'willpower', 'misc', 'self', 'easy'-->
<!-- !!Example 2 for 'misc': Sveta wants to force Artem to go to Vitek and call him an asshole: gs 'willpower', 'misc', 'force', 'hard'-->
<!-- !!After Sveta has taken the willpower action the cost must be paid with: gs 'willpower', 'pay', 'type'-->
<!-- !!Example: Sveta has to pay for resisting to do a blowjob: gs 'willpower', 'pay', 'resist'-->
<!-- !!WARNING: When adding new options include gs 'willpower', 'difficulty', '<<$larg(2)>>' at the end of the ARGS to apply easy or hard.-->
<!-- !!WARNING: If you have two or more actions that need willpower at the same time, you have to recalculate the willpower cost before the costs are payed (see Code Example 2)-->
<!-- !{ Code Example 1 (one action needs willpower)
gs 'willpower', 'misc', 'self', 'hard'
if will_cost <= willpower:
act 'Kick him in the balls (<<will_cost>> Willpower)':
gs 'willpower', 'pay', 'self'
'Event text'
act 'Next action': gt 'farawayistan'
end
else
act 'Kick him in the balls (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don't have enough willpower to use this action.</font>'
end
} -->
<!-- !{ Code Example 2 (several actions need willpower)
gs 'willpower', 'misc', 'self', 'hard'
if will_cost <= willpower:
act 'Kick him in the balls (<<will_cost>> Willpower)':
gs 'willpower', 'misc', 'self', 'hard' <- recalculate the willpower cost here
gs 'willpower', 'pay', 'self'
'Event text'
act 'Next action': gt 'farawayistan'
end
else
act 'Kick him in the balls (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don't have enough willpower to use this action.</font>'
end
gs 'willpower', 'misc', 'self', 'medium'
if will_cost <= willpower:
act 'Slap him across the face (<<will_cost>> Willpower)':
gs 'willpower', 'misc', 'self', 'medium' <- recalculate the willpower cost here
gs 'willpower', 'pay', 'self'
'Event text'
act 'Next action': gt 'farawayistan'
end
else
act 'Slap him across the face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don't have enough willpower to use this action.</font>'
end
} -->
<<switch $location_var[$here][0]>>
	<<case 'cost'>>
		<<if typeof $location_var[$here][1] == 'object'>>
			<<gs $here $location_var[$here][1][0] $location_var[$here][1][1] $location_var[$here][1][2] $location_var[$here][1][3]>>
		<<else>>
			<<gs $here $location_var[$here][1] $location_var[$here][2] $location_var[$here][3] $location_var[$here][4]>>
		<</if>>
		<<set $result = Math.round($will_cost)>>
	<<case 'calc'>>
		<<gs 'willpower' 'dnd'>>
		<<set $will_calc = $will_dnd>>
		<!-- !!fatigue-->
		<<if $pc.pcs_sleep < 5>>
			<<set $will_calc += 50>>
		<<elseif $pc.pcs_sleep < 10>>
			<<set $will_calc += 25>>
		<<elseif $pc.pcs_sleep < 20>>
			<<set $will_calc += 10>>
		<<elseif $pc.pcs_sleep < 30>>
			<<set $will_calc += 5>>
		<</if>>
		<!-- !!exhaustion (stamina)-->
		<<if $pc.pcs_stam <= 0>>
			<<set $will_calc += 10>>
		<<elseif $pc.pcs_stam < $pc.stammax / 5>>
			<<set $will_calc += 5>>
		<</if>>
		<!-- !!hunger-->
		<<if $pc.pcs_energy < 5>>
			<<set $will_calc += 50>>
		<<elseif $pc.pcs_energy < 10>>
			<<set $will_calc += 25>>
		<<elseif $pc.pcs_energy < 20>>
			<<set $will_calc += 10>>
		<<elseif $pc.pcs_energy < 30>>
			<<set $will_calc += 5>>
		<</if>>
		<!-- !!thirst-->
		<<if $pc.pcs_hydra < 5>>
			<<set $will_calc += 50>>
		<<elseif $pc.pcs_hydra < 10>>
			<<set $will_calc += 25>>
		<<elseif $pc.pcs_hydra < 20>>
			<<set $will_calc += 10>>
		<<elseif $pc.pcs_hydra < 30>>
			<<set $will_calc += 5>>
		<</if>>
		<!-- !!Bad syphilis, you is mental-->
		<<if getvar("$Sifilis") >= 50>>
			<<setn $will_calc += 100>>

		<</if>>
		<!-- !!feeling sick-->
		<<if getvar("$sick") > 72>>
			<<set $will_calc += 35>>
		<<elseif getvar("$sick") > 48>>
			<<set $will_calc += 20>>
		<<elseif getvar("$sick") > 24>>
			<<set $will_calc += 10>>
		<<elseif getvar("$sick") > 1>>
			<<set $will_calc += 5>>
		<</if>>
		<<set $will_calc += $pc.painTotal>>
		<!-- !! Modifier becuse of arousal only used for sex acts-->
		<<set $will_arousal_mod = Math.max(Math.min(($pc.horny - 50)/2,25),-25)>>
	<<case 'voyeur'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('voyeur') - $pc.sexStat('voyeur_sex') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('voyeur') - $pc.sexStat('voyeur_sex') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('voyeur') + $pc.sexStat('voyeur_sex') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'flash'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('flash') - ($pc.sexStat('flashlite') / 2) + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('flash') - ($pc.sexStat('flashlite') / 2) + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('flash') + ($pc.sexStat('flashlite') / 2) + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'mast'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $pc.sexStat('mast') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('mast') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('mast') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('mast') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('mast') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('mast') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'hj'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.sexStat('hj') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('hj') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('hj') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('hj') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.sexStat('hj') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('hj') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'bj'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.sexStat('bj') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('bj') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('bj') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('bj') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.sexStat('bj') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('bj') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'cuni'>>
		<<gs 'willpower' 'calc'>>
		<<set $cuni_check = ($pc.sexStat('cuni') + $pc.sexStat('cuni_give')) / 2>>
		<<if $location_var[$here][1] == 'self'>>
			<<if getvar("$cuni_check") <= 90>>
				<<set $will_cost = (100 - $cuni_check + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if getvar("$cuni_check") <= 40>>
				<<set $will_cost = (110 - $will_enforced - $cuni_check + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if getvar("$cuni_check") <= 90>>
				<<set $will_cost = (10 + $cuni_check + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<set $cuni_check to null>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'sex' 'vaginal'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.sexStat('vaginal') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('vaginal') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('vaginal') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('vaginal') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.sexStat('vaginal') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('vaginal') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'anal'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.sexStat('anal') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('anal') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('anal') <= 40>>
				<<set $will_cost = (160 - $will_enforced * 2 - $pc.sexStat('anal') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.sexStat('anal') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('anal') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'gangbang' 'group'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if getvar("$gang") <= 90>>
				<<set $will_cost = (100 - $gang + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if getvar("$gang") <= 40>>
				<<set $will_cost = (160 - $will_enforced * 2 - $gang + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if getvar("$gang") <= 90>>
				<<set $will_cost = (10 + $gang + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'prostitution'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if getvar("$slutty") <= 90>>
				<<set $will_cost = (100 - $slutty + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if getvar("$slutty") <= 40>>
				<<set $will_cost = (160 - $will_enforced * 2 - $slutty + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<set $prost_will = $pc.fame('pav_prostitute') + $pc.fame('city_prostitute') + $pc.fame('pushkin_prostitute') + $pc.fame('village_prostitute') + $slutty / 2>>
			<<if getvar("$prost_will") <= 90>>
				<<set $will_cost = (10 + $prost_will + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
			<<set $prost_will to null>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'humiliation'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.sexStat('humiliation') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('humiliation') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.sexStat('humiliation') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('humiliation') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'footjob'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $pc.sexStat('footjob') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('footjob') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('footjob') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('footjob') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('footjob') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('footjob') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'titjob'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $pc.sexStat('titjob') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('titjob') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('titjob') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('titjob') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('titjob') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('titjob') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'trib'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $pc.sexStat('trib') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('trib') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('trib') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('trib') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('trib') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('trib') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'rimming'>>
		<<gs 'willpower' 'calc'>>
		<<set $rimming_check = ($pc.sexStat('rimming') + $pc.sexStat('rimming_give')) / 2>>
		<<if $location_var[$here][1] == 'self'>>
			<<if getvar("$rimming_check") <= 90>>
				<<set $will_cost = (100 - $rimming_check + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if getvar("$rimming_check") <= 40>>
				<<set $will_cost = (110 - $will_enforced - $rimming_check + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if getvar("$rimming_check") <= 90>>
				<<set $will_cost = (10 + $rimming_check + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'BDSM'>>
		<<gs 'willpower' 'calc'>>
		<!-- ! It seems to me like 'force' should strictly be BDSM_give, and resist strictly BDSM.-->
		<!-- !bdsm_check = (stat['BDSM'] + stat['BDSM_give']) / 2-->
		<!-- ! Also, this category could benifit from sum, dom, maso, bound inclusion in some way-->
		<!-- !bdsm_exp = (maso['exp'] + bound['exp'] + sub['exp'] + maso['exp'])/4-->
		<<if $location_var[$here][1] == 'self'>>
			<<if ($pc.sexStat('BDSM') + $pc.sexStat('BDSM_give')) / 2 <= 90>>
				<<set $will_cost = (100 - (($pc.sexStat('BDSM') + $pc.sexStat('BDSM_give')) / 2) + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('BDSM_give') <= 40>>
				<<set $will_cost = (160 - $will_enforced - $pc.sexStat('BDSM_give') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (120 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('BDSM') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('BDSM') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'cum_outside'>>
		<<gs 'willpower' 'calc'>>
		<!-- ! I'm including internal stats, since it makes sense those would influence Sveta''s willingness to being cum on-->
		<<set $cum_check = facial + frot + (swallow) + ($pcs_cp_safe_known + $pcs_cp_notsafe_known + $pcs_cp_risky_known) + (pcs_acp_known)>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.cumAtLocation(1) + $pc.cumAtLocation(2) + $pc.cumAtLocation(4) + $pc.cumAtLocation(5) + $pc.cumAtLocation(6) + $pc.cumAtLocation(7) + $pc.cumAtLocation(8) + $pc.cumAtLocation(9) + $pc.cumAtLocation(10) + $pc.cumAtLocation(11) + $pc.cumAtLocation(13) + $pc.cumAtLocation(14) + $pc.cumAtLocation(15) + $pc.cumAtLocation(16) > 0 or getvar("$cum_check") > 90>>
				<<set $will_cost = (10 + $cum_check + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.cumAtLocation(1) + $pc.cumAtLocation(2) + $pc.cumAtLocation(4) + $pc.cumAtLocation(5) + $pc.cumAtLocation(6) + $pc.cumAtLocation(7) + $pc.cumAtLocation(8) + $pc.cumAtLocation(9) + $pc.cumAtLocation(10) + $pc.cumAtLocation(11) + $pc.cumAtLocation(13) + $pc.cumAtLocation(14) + $pc.cumAtLocation(15) + $pc.cumAtLocation(16) > 0 or getvar("$cum_check") > 90>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $cum_check + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'swallow'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.trait('cumeater') == 1 or $pc.cumAtLocation(12) > 0>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (80 - $will_enforced - $pc.trait('cumeater') * 10 + $will_calc - $will_arousal_mod) / 10>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.trait('cumeater') == 1 or $pc.cumAtLocation(12) > 0>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'cum_inside'>>
		<<gs 'willpower' 'calc'>>
		<<set $creampie_count = $pcs_cp_safe_known + $pcs_cp_notsafe_known + $pcs_cp_risky_known>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.cumAtLocation(0) > 0 or getvar("$creampie_count") > 90>>
				<<set $will_cost = (10 + $creampie_count + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.cumAtLocation(0) > 0 or getvar("$creampie_count") > 90>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $creampie_count + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'cum_inside_anal'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<if $pc.cumAtLocation(3) > 0 or getvar("$pcs_acp_known") > 90>>
				<<set $will_cost = (10 + $pcs_acp_known + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (120 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if $pc.cumAtLocation(3) > 0 or getvar("$pcs_acp_known") > 90>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $pcs_acp_known + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'kiss'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $pc.sexStat('kiss') <= 90>>
				<<set $will_cost = (100 - $pc.sexStat('kiss') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('kiss') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('kiss') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('kiss') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('kiss') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'foreplay'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if ($pc.sexStat('foreplay') + stat['foreplay_give']) / 2>>
				<<set $will_cost = (100 - (($pc.sexStat('foreplay') + $pc.sexStat('foreplay_give')) / 2) + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('foreplay_give') <= 40>>
				<<set $will_cost = (110 - $will_enforced - $pc.sexStat('foreplay_give') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('foreplay') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('foreplay') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'pee'>>
		<<gs 'willpower' 'calc'>>
		<!-- ! Same as with BDSM concerning 'force' and 'resist'-->
		<!-- !pee_check = (stat['pee'] + stat['pee_give']) / 2-->
		<<if $location_var[$here][1] == 'self'>>
			<<if ($pc.sexStat('pee') + $pc.sexStat('pee_give')) / 2 <= 90>>
				<<set $will_cost = (100 - (($pc.sexStat('pee') + $pc.sexStat('pee_give')) / 2) + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<if $pc.sexStat('pee_give') <= 40>>
				<<set $will_cost = (160 - $will_enforced - $pc.sexStat('pee_give') + $will_calc - $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (120 - $will_enforced + $will_calc - $will_arousal_mod) / 10>>
			<</if>>
		<<else>>
			<<if $pc.sexStat('pee') <= 90>>
				<<set $will_cost = (10 + $pc.sexStat('pee') + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'skill'>>
		<!-- !! requires the skill to be named with the _lvl postfix-->
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'resist' or $location_var[$here][1] == 'force' or $location_var[$here][1] == 'self'>>
			<<if $location_var[$here][2] == 'inhib_lvl'>>
				<<set $will_cost = (100 - $pc.pcs_inhib + $will_calc) / 10>>
			<<else>>
				<<set $will_cost = (100 - $larg(2) + $will_calc)/10>>
			<</if>>
			<<gs 'willpower' 'difficulty' '$larg(3)'>>
		<<else>>
			<<if $location_var[$here][1] == 'inhib_lvl'>>
				<<set $will_cost = (100 - $pc.pcs_inhib + $will_calc) / 10>>
			<<else>>
				<<set will_cost = (100 - $larg(1) + will_calc)/10>>
			<</if>>
			<<gs 'willpower' 'difficulty' $larg(2)>>
		<</if>>
	<<case 'rape'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<if $missCum >= $timeTresh>>
				<<set $will_calc = 0>>

			<</if>>
			<<set $will_cost = (100 + $will_calc - $will_arousal_mod) / 10>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (200 - $will_enforced * 2 + $will_calc - $will_arousal_mod) / 10>>
		<<else>>
			<<if $missCum >= $timeTresh>>
				<<setn $will_calc += 100>>

			<</if>>
			<<if getvar("$rape") == 0>>
				<<set $will_cost = (10 + $will_calc + $will_arousal_mod) / 10>>
			<<else>>
				<<set $will_cost = (100 + $rape + $will_calc + $will_arousal_mod) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'drink'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<set $will_cost = (60 - $alcohol_exp * 40 + $will_calc) / 10>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (100 - $will_enforced - $alcohol_exp * 30 + $will_calc) / 10>>
		<<else>>
			<<if $pc.alko > 10>>
				<<set $will_cost = (20 + $alcohol_exp * 10 + $will_calc) / 10>>
			<<elseif $pc.alko > 6>>
				<<set $will_cost = (80 + $alcohol_exp * 40 + $will_calc) / 10>>
			<<elseif $pc.alko > 3>>
				<<set $will_cost = (60 + $alcohol_exp * 30 + $will_calc) / 10>>
			<<else>>
				<<set $will_cost = (10 + $alcohol_exp * 20 + $will_calc) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'drugs'>>
		<!-- !!Drug needs already included in the will_calc so just a small base cost here-->
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<set $will_cost = (100 - $addictive_trait_lvl * 30 + $will_calc) / 10>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (100 - $will_enforced - $addictive_trait_lvl * 10 + $will_calc) / 10>>
		<<else>>
			<<if getvar("$addictive_trait_lvl") > 0>>
				<<set $will_cost = ($addictive_trait_lvl * 30 + $will_calc) / 10>>
			<<else>>
				<<set $will_cost = (10 + $will_calc) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'crime'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][0] == 'force'>>
			<<set $will_cost = (80 - $will_enforced + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (60 + $will_calc) / 10>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'exhib'>>
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'self'>>
			<<set $will_cost = (100 - getvar('$Exhibitionist_lvl') * 20 - $pc.pcs_inhib / 5 + $will_calc) / 10>>
		<<elseif $location_var[$here][1] == 'force'>>
			<<set $will_cost = (100 - $will_enforced - getvar('$Exhibitionist_lvl') * 10 + $will_calc) / 10>>
		<<else>>
			<<set $will_cost = (getvar('$Exhibitionist_lvl') * 25 + $pc.pcs_inhib / 4 + $will_calc) / 10>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'sleep'>>
		<!-- !!this is to force you to stay wake so will cost nothing if you have more than 5 sleep, it has no base cost as there will always be a sleep cost in calc-->
		<<gs 'willpower' 'calc'>>
		<<set $will_cost = 0>>
		<<if $pc.pcs_sleep <= 5>>
			<<set $will_cost = $will_calc / 10>>

		<</if>>
		<!-- !! Not sure if this one belongs. It doesn''t look like it's used anywhere.-->
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'misc' 'chore'>>
		<!-- !!Choose this if nothing else fits and for chore which is same thing but without gains for max willpower-->
		<<gs 'willpower' 'calc'>>
		<<if $location_var[$here][1] == 'force'>>
			<<if $location_var[$here][2] == 'easy'>>
				<<set $will_cost = (60 - $will_enforced + $will_calc) / 10>>
			<<elseif $location_var[$here][2] == 'hard'>>
				<<set $will_cost = (90 - $will_enforced + $will_calc) / 10>>
			<<else>>
				<<set $will_cost = (70 - $will_enforced + $will_calc) / 10>>
			<</if>>
		<<else>>
			<<if $location_var[$here][2] == 'easy'>>
				<<set $will_cost = (10 + $will_calc) / 10>>
			<<elseif $location_var[$here][2] == 'hard'>>
				<<set $will_cost = (40 + $will_calc) / 10>>
			<<else>>
				<<set $will_cost = (20 + $will_calc) / 10>>
			<</if>>
		<</if>>
		<<gs 'willpower' 'difficulty' $larg(2)>>
	<<case 'choreSchool'>>
		<<set _schoolDifficulty = 'medium'>>
		<<if $quest('school').func('isGroupMember','gopniks') and $pc.trait('nerd_status') == 0>>
			<<set _schoolDifficulty = 'hard'>>
		<<elseif $pc.trait('nerd_status') > 0>>
			<<set _schoolDifficulty = 'easy'>>
		<</if>>
		<<gs 'willpower' 'chore' 'self' _schoolDifficulty>>
		<<switch $pc.trait('nerd_status')>>
			<<case 2>>
				<<set $will_cost = $will_cost / 2>>
			<<case 3>>
				<<set $will_cost = 0>>
		<</switch>>
	<<case 'dnd'>>
		<!-- !!modifiers for drink an drugs-->
		<<set $will_dnd = 0>>
		<<if $pc.alko > 10>>
			<<set $will_dnd += 160>>
		<<elseif $pc.alko > 6>>
			<<set $will_dnd += 80>>
		<<elseif $pc.alko > 3>>
			<<set $will_dnd += 30>>
		<</if>>
		<!-- !!cigarettes-->
		<<if getvar("$smokerNeed") > 10>>
			<<setn $will_dnd += 10>>

		<</if>>
		<!-- !!weed-->
		<<if getvar("$jointhigh") > 0>>
			<<setn $will_dnd -= 10>>

		<</if>>
		<!-- !!amphetamines-->
		<<if getvar("$amphWithdrawl") > 2>>
			<<set $will_dnd += 40>>
		<<elseif getvar("$amphHigh") > 0>>
			<<set $will_dnd += 80>>
		<</if>>
		<!-- !!heroine-->
		<<if getvar("$SLomka") > 0>>
			<<set $will_dnd += 100>>
		<<elseif $pc.strongNarkota > 0>>
			<<set $will_dnd += 60>>
		<</if>>
		<!-- !!cocaine-->
		<<if getvar("$pc.narkoman") == 1>>
			<<set $will_dnd += 60>>
		<<elseif $pc.nark < 0>>
			<<set $will_dnd -= 20>>
		<</if>>
	<<case 'difficulty'>>
		<!-- !!Multiplier to make willpower cost more. Use if all total costs need adjusting.-->
		<<set $will_cost = $will_cost * 3 / 2>>
		<<if $location_var[$here][1] == 'easy'>>
			<<set $will_cost = $will_cost * 2 / 3>>
			<<if getvar("$will_cost") < 5>>
				<<set $will_cost = 5>>

			<</if>>
		<<elseif $location_var[$here][1] == 'hard'>>
			<<set $will_cost = $will_cost * 3 / 2>>
			<<if getvar("$will_cost") < 7>>
				<<set $will_cost = 7>>

			<</if>>
		<<else>>
			<<if getvar("$will_cost") < 6>>
				<<set $will_cost = 6>>

			<</if>>
		<</if>>
		<<if getvar("$cheatWillpower") == 1>>
			<<set $will_cost = 0>>

		<</if>>
	<<case 'pay'>>
		<<set _will_cost = $location_var[$here][1]>>
		<<if _will_cost < 1 and getvar("$cheatWillpower") == 0>>
			<<set $will_cost = 1>>

		<</if>>
		<<set $pc.willpower -= _will_cost>>
		<<if $location_var[$here][1] == 'force'>>
			<<if $pc.willpowermax < 150>>
				<<set $pc.will_counter+= 10>>
			<</if>>
			<<if getvar("$will_enforced") < 20>>
				<<setn $will_enforced += 1>>

			<</if>>
		<<elseif $location_var[$here][1] != 'chore'>>
			<<if $pc.willpowermax < 150>>
				<<set $pc.will_counter+= 1>>
			<</if>>
		<</if>>
		<<if getvar("$will_counter") >= 20>>
			<<set $pc.will_counter= 0>> <<setn $pc.willpowermax += 1>>

		<</if>>
<</switch>>
