:: pain[include]
<<run console.warn('Usage of <<gs "pain">> is deprecated! Use <<pain>> instead.',$location_var[$here])>>
<<set [_painMagnitude,_painBodypart,_painAction] = $location_var[$here]>>

<<switch _painAction>>
	<<case 'slap'>>
		<<set _painMagnitude *= 1>>
	<<case 'bind'>>
		<<set _painMagnitude *= 1>>
	<<case 'spank'>>
		<<set _painMagnitude *= 3>>
	<<case 'choke'>>
		<<set _painMagnitude *= 3>>
	<<case 'shock'>>
		<<set _painMagnitude *= 4>>
	<<case 'twist'>>
		<<set _painMagnitude *= 4>>
	<<case 'pull'>>
		<<set _painMagnitude *= 4>>
	<<case 'fall'>>
		<<set _painMagnitude *= 4>>
	<<case 'labor'>>
		<<set _painMagnitude *= 4>>
	<<case 'pinch'>>
		<<set _painMagnitude *= 5>>
	<<case 'stretch'>>
		<<set _painMagnitude *= 6>>
	<<case 'slam'>>
		<<set _painMagnitude *= 6>>
	<<case 'burn'>>
		<<set _painMagnitude *= 7>>
	<<case 'freeze'>>
		<<set _painMagnitude *= 7>>
	<<case 'hit'>>
		<<set _painMagnitude *= 7>>
	<<case 'pierce'>>
		<<set _painMagnitude *= 8>>
	<<case 'bite'>>
		<<set _painMagnitude *= 8>>
	<<case 'tear'>>
		<<set _painMagnitude *= 9>>
	<<case 'ache'>>
		<<set _painMagnitude *= 9>>
	<<case 'kick'>>
		<<set _painMagnitude *= 10>>
	<<case 'break'>>
		<<set _painMagnitude *= 10>>
	<<case 'cramp'>>
		<<set _painMagnitude *= 10>>
<</switch>>

<<pain _painBodypart _painMagnitude>>

:: pain_deprecated[deprecated]
<!-- !For checking pain and when applicable triggering arousal.-->
<!-- !ARGS[0] magnitude of pain inflicted 1 is very light, 9 is the maximum value in the given way of causing pain-->
<!-- !$larg(1) should equal the body part being hurt from any of the following:-->
<!-- !BobyPart 'head', 'hair', 'ears', 'eyebrows', 'eyes', 'cheeks', 'nose', 'mouth', 'lips', 'tongue', 'throat', 'neck', 'back',-->
<!-- !'asscheeks', 'asshole', 'hips', 'thighs', 'legL', 'legR', 'feet', 'toes', 'shoulders', 'armL', 'armR', 'handL', 'handR',-->
<!-- !'fingers', 'chest', 'breasts', 'nipples', 'ribs', 'tummy', 'pubic', 'vaginal', 'labia', 'clitoris', 'urethra', 'cervix',-->
<!-- !'wrists', 'ankles'-->
<!-- !$larg(2) The action the participant has performed on Sveta (some of these can cause arousal if Sveta is into pain)-->
<!-- !Acts: 'pierce', 'slap', 'spank', 'pinch', 'bite', 'burn', 'freeze', 'hit', 'kick', 'Slam', 'shock', 'bind', 'stretch'-->
<!-- !'tear', 'break', 'twist', 'ache', 'cramp', 'labor', 'choke', 'fall', 'pull'-->
<!-- !Format to use: gs 'pain', n, 'BobyPart', 'Act'-->
<!-- !For pain to multiple body parts, use multiple calls-->
<<setinit $pain[1] = Math.min(ARGS[0],9)>>
<<if $pain[1] < 1>>
	$exit

<</if>>

<<if $location_var[$here][1] == 'hair'>>
	<<setinit $pain[3] = 1>>
<<elseif $location_var[$here][1] == 'asscheeks'>>
	<<setinit $pain[3] = 2>>
<<elseif $location_var[$here][1] == 'feet'>>
	<<setinit $pain[3] = 2>>
<<elseif $location_var[$here][1] == 'shoulders'>>
	<<setinit $pain[3] = 2>>
<<elseif $location_var[$here][1] == 'wrists'>>
	<<setinit $pain[3] = 2>>
<<elseif $location_var[$here][1] == 'ankles'>>
	<<setinit $pain[3] = 2>>
<<elseif $location_var[$here][1] == 'armL'>>
	<<setinit $pain[3] = 2>>
<<elseif $location_var[$here][1] == 'armR'>>
	<<setinit $pain[3] = 2>>
<<elseif $location_var[$here][1] == 'cheeks'>>
	<<setinit $pain[3] = 3>>
<<elseif $location_var[$here][1] == 'legL'>>
	<<setinit $pain[3] = 3>>
<<elseif $location_var[$here][1] == 'legR'>>
	<<setinit $pain[3] = 3>>
<<elseif $location_var[$here][1] == 'hands'>>
	<<setinit $pain[3] = 3>>
<<elseif $location_var[$here][1] == 'mouth'>>
	<<setinit $pain[3] = 4>>
<<elseif $location_var[$here][1] == 'jaw'>>
	<<setinit $pain[3] = 4>>
<<elseif $location_var[$here][1] == 'thighs'>>
	<<setinit $pain[3] = 4>>
<<elseif $location_var[$here][1] == 'toes'>>
	<<setinit $pain[3] = 4>>
<<elseif $location_var[$here][1] == 'fingers'>>
	<<setinit $pain[3] = 4>>
<<elseif $location_var[$here][1] == 'nose'>>
	<<setinit $pain[3] = 5>>
<<elseif $location_var[$here][1] == 'back'>>
	<<setinit $pain[3] = 5>>
<<elseif $location_var[$here][1] == 'ribs'>>
	<<setinit $pain[3] = 5>>
<<elseif $location_var[$here][1] == 'hips'>>
	<<setinit $pain[3] = 5>>
<<elseif $location_var[$here][1] == 'head'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'ears'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'eyebrows'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'lips'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'throat'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'tummy'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'pubic'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'urethra'>>
	<<setinit $pain[3] = 6>>
<<elseif $location_var[$here][1] == 'tongue'>>
	<<setinit $pain[3] = 7>>
<<elseif $location_var[$here][1] == 'neck'>>
	<<setinit $pain[3] = 7>>
<<elseif $location_var[$here][1] == 'chest'>>
	<<setinit $pain[3] = 7>>
<<elseif $location_var[$here][1] == 'eyes'>>
	<<setinit $pain[3] = 8>>
<<elseif $location_var[$here][1] == 'breasts'>>
	<<setinit $pain[3] = 8>>
<<elseif $location_var[$here][1] == 'vaginal'>>
	<<setinit $pain[3] = 8>>
<<elseif $location_var[$here][1] == 'labia'>>
	<<setinit $pain[3] = 8>>
<<elseif $location_var[$here][1] == 'cervix'>>
	<<setinit $pain[3] = 8>>
<<elseif $location_var[$here][1] == 'asshole'>>
	<<setinit $pain[3] = 9>>
<<elseif $location_var[$here][1] == 'nipples'>>
	<<setinit $pain[3] = 9>>
<<elseif $location_var[$here][1] == 'clitoris'>>
	<<setinit $pain[3] = 10>>
<</if>>
<<set $curpain = ($pain[1] * $pain[2] * $pain[3]) / 10>>
<<set $prevpain = $pain[$location_var[$here][1]]>>
<<setinit $pain[$location_var[$here][1]] = modul(prevpain,curpain)>>
<<if $pain[$location_var[$here][1]] > 100>>
	<<setinit $pain[$location_var[$here][1]] = 100>>

<</if>>
