:: $face_image[include]
<!-- !!use with - <<image $pc.image>>-->

<!-- !! These images are missing from my copy of the image folder, so I am commenting them out for now-->
<!-- !!if glass = 2:-->
<!-- !!	$result = 'pc/body/hcolglass<<pcs_haircol>>.jpg'-->
<!-- !!	exit-->
<!-- !!end-->
<!-- !!if glass = 1:-->
<!-- !!	$result = 'pc/body/nerd.jpg'-->
<!-- !!	exit-->
<!-- !!end-->
<!-- !!if shorthair = 1:-->
<!-- !!	$result = 'pc/body/shcol<<pcs_haircol>>.jpg'-->
<!-- !!	exit-->
<!-- !!end-->
<<set $result = 'pc/body/hairstyles/'>>
<<if $pc.hairColor > 3>>
	<<set $result += 'colours'>>
<<else>>
<!-- !! length-->
<<if $pc.pcs_hairlng > 400>>
	<<set $result += 'vlng'>>
<<elseif $pc.pcs_hairlng > 260>>
	<<set $result += 'lng'>>
<<elseif $pc.pcs_hairlng > 160>>
	<<set $result += 'medlo'>>
<<elseif $pc.pcs_hairlng > 80>>
	<<set $result += 'med'>>
<<elseif $pc.pcs_hairlng > 30>>
	<<set $result += 'short'>>
<<else>>
	<<set $result += 'vshort'>>
<</if>>
<<set $result += '/'>>
<!-- !! style for medium or longer hair-->
<<if $pc.pcs_hairlng > 80>>
	<<if getvar("$hbraids") > 0>>
		<<set $result += 'braids'>>
	<<elseif getvar("$hpigtail") > 0>>
		<<set $result += 'pigtails'>>
	<<elseif getvar("$curly") > 0 and getvar("$hbangs") > 0 and getvar("$hpingripw") > 0>>
		<<set $result += 'curly-bangs-buns'>>
	<<elseif getvar("$curly") > 0 and getvar("$hbangs") > 0 and getvar("$hscrunchw") > 0>>
		<<set $result += 'curly-bangs-scrunch'>>
	<<elseif getvar("$curly") > 0 and getvar("$hbangs") > 0>>
		<<set $result += 'curly-bangs'>>
	<<elseif getvar("$curly") > 0 and getvar("$hpingripw") > 0>>
		<<set $result += 'curly-buns'>>
	<<elseif getvar("$curly") > 0 and getvar("$hscrunchw") > 0>>
		<<set $result += 'curly-scrunch'>>
	<<elseif getvar("$hbangs") > 0 and getvar("$hpingripw") > 0>>
		<<set $result += 'bangs-buns'>>
	<<elseif getvar("$hbangs") > 0 and getvar("$hscrunchw") > 0>>
		<<set $result += 'bangs-scrunch'>>
	<<elseif getvar("$curly") > 0>>
		<<set $result += 'curly'>>
	<<elseif getvar("$hbangs") > 0>>
		<<set $result += 'bangs'>>
	<<elseif getvar("$hpingripw") > 0>>
		<<set $result += 'buns'>>
	<<elseif getvar("$hscrunchw") > 0>>
		<<set $result += 'scrunch'>>
	<<else>>
		<<set $result += 'normal'>>
	<</if>>
	<!-- !! style for short hair (other images don't exist)-->
<<elseif $pc.pcs_hairlng <= 80 and $pc.pcs_hairlng > 30>>
	<<if getvar("$hbangs") > 0>>
		<<set $result += 'bangs'>>
	<<else>>
		<<set $result += 'normal'>>
	<</if>>
	<!-- !! style for very short hair (other images don't exist)-->
<<else>>
	<<set $result += 'normal'>>
<</if>>
<</if>>
<<set $result += '/'>>
<!-- !! color-->
<<set $result += 'hcol'+$pc.hairColor+'.jpg'>>
