:: body_desc_hair[include]

<<switch $larg(0)>>
	<<case 'adj'>>

<</switch>>

:: hair_deprecated[deprecated]
    <<case 'hairMaruda'>>
		<!-- !!! Maruda Hair Mod-->
		<<if $pc.pcs_hairlng <= 80>>
			<<set $hpigtail = 0>>
			<<set $hscrunchw = 0>>
			<<set $hpingripw = 0>>
			<<if getvar("$defcurly") == 0>>
				<<set $curly = 0>>
			<<else>>
				<!-- !! This sets curly hair to as high a number as possible to prevent it straightening in error-->
				<<set $curly = 2147483647>>
			<</if>>
			<<set $hbraids = 0>>
			<<if $pc.pcs_hairlng <= 30 and getvar("$hbangs") == 1>>
				<<set $hbangs = 0>>

			<</if>>
		<</if>>
		<<if $pc.pcs_hairlng > 800>>
			<<set $hpingripw = 0>>
			<<set $hbraids = 0>>
		<</if>>
		<<if $pc.pcs_hairlng > 800 and getvar("$hpigtail") >= 1>>
			<<set $hscrunchw = 0>>
			<<set $hpigtail = 0>>
		<</if>>
		<<if getvar("$hbraids") >= 1>>
			<<set $hscrunchw = 0>>
			<<set $hpingripw = 0>>
			<<set $hbangs = 0>>
			<<set $hpigtail = 0>>
		<</if>>

	<<case 'hairBrush'>>
		<!-- !Hair status - whether hair is tangled or combed-->
		<<if $pc.pcs_hairbsh == -1>>
			<<set _pcs_hairbsh = 'messy from sex. You should brush it so everyone doesn`t know you what you`ve been up to'>>
			<<set $result.adj = ['bed-tangled', 'sex-tousled', 'disheveled', 'mussed'].random()>>
			<<set $result.adjLong = 'messy, just-fucked'>>
		<<elseif $pc.pcs_hairbsh == 0>>
			<<if $pc.pcs_hairlng > 30>>
				<<set _pcs_hairbsh = 'tangled. You should comb it to keep it healthy'>>
				<<set $result.adj = ['tangled', 'tousled', 'disheveled', 'mussed'].random()>>
				<<set $result.adjLong = 'tangled, poorly-kept'>>
			<<else>>
				<<set _pcs_hairbsh = 'messy. You should style it to keep it looking good'>>
				<<set $result.adj = ['tangled', 'tousled', 'disheveled', 'mussed'].random()>>
				<<set $result.adjLong = 'messy, poorly-kept'>>
			<</if>>
		<<else>>
			<<set _pcs_hairbsh = 'neatly styled'>>
			<<set $result.adj = ['neatly styled','well-maintained'].random()>>
			<<set $result.adjLong = 'neat, well-maintained'>>
		<</if>>
		<<set $result.sentence = 'You hair is '+_pcs_hairbsh>>
	<<case 'hairTexture'>>
		<!-- !Hair texture - straight or curly-->
		<<if getvar("$curly") <= 0>>
			<<set $curly = 'straight, slightly wavy '>>
			<!-- !! Not a lot of variety here, I know -- it is for future compatibility, so everything can have be reached in the same fashion.-->
			<<setinit $pc_desc['hair texture'] = 'straight'>>
			<<setinit $pc_descWordy['hair texture'] = 'locks'>>
		<<else>>
			<<set $curly = 'curly '>>
			<<setinit $pc_desc['hair texture'] = ['curls', 'ringlets'].random()>>
			<<setinit $pc_descWordy['hair texture'] = 'playfully curly'>>
		<</if>>
		<!-- !! If you are baffled by the need for a forehead descriptor here, it is primarily just for writing about cumshots. I honestly cannot think of another use case. Other variables largely just for compatibility.-->
		<<if getvar("$hbangs") <= 0>>
			<<set $hbangs = ''>>
			<<setinit $pc_desc['hair bang'] = 'forehead'>>
			<<setinit $pc_descWordy['hair bang'] = 'forehead'>>
		<<else>>
			<<set $hbangs = ', with a fringe covering your forehead'>>
			<<setinit $pc_desc['hair bang'] = ['bangs', 'fringe'].random()>>
			<<setinit $pc_descWordy['hair bang'] = 'fringe'>>
		<</if>>
	<<case 'hairStyle'>>
		<<if getvar("$hscrunchw") == 1>>
			<<set $result.sentence = 'A hair-tie holds your hair in place with a ponytail.'>>
			<<set $result.adj = 'ponytail'>>
			<<set $result.adjLong = 'tight, high-set ponytail'>>
		<<elseif getvar("$hscrunchw") == 2>>
			<!-- !Pigtails-->
			<<set $result.sentence = 'Two scrunchies hold your hair up into two cute, playful twin tails.'>>
			<<set $result.adj = 'pigtails'>>
			<<set $result.adjLong = 'youthful, playful and flirty pigtails'>>
		<<elseif getvar("$hbraids") > 0>>
			<<set $result.sentence = 'Your hair is beautifully braided.'>>
			<<set $result.adj = 'braid'>>
			<<set $result.adjLong = 'delicately-wound braid'>>
		<<elseif getvar("$hpingripw") > 0>>
			<<set $result.sentence = 'Hair-pins hold your hair in place in a stylish updo.'>>
			<<set $result.adj = 'upswept'>>
			<<set $result.adjLong = 'ornate, intricately-pinned updo'>>
		<<else>>
			<<set $result.sentence = ''>>
			<<set $result.adj = 'loose'>>
			<<set $result.adjLong = 'loose and free hair'>>
		<</if>>

	<<case 'hair'>>

			<<set _hcolor = setup.func('body_desc','hairColor').adj>>
			<<set _hbrush = setup.func('body_desc','hairBrush').adj>>
			<<set _hstyle = setup.func('body_desc','hairStyle').sentence>>
			
