code:
:: Characteristics [widget]

<<widget "characteristics">><<nobr>>

	<<button Close>>
		<<addclass "#customOverlay" "hidden">>
		<<set $currentOverlay to null>>
	<</button>>
	<<button "Colour Codes">>
		<>
	<</button>>

		Excellent

		Good

		Decent

		Okay

		Poor

		Bad

		Terrible

It is the $monthday<<monthday>> of <<month>> $year.

It has been $days days since the game started.

<<if $hardmodedays isnot undefined>>
You survived $hardmodedays days on hard mode.

<</if>>
<<schoolterm>>

You are
<<if $wolfgirl gte 6>>
a wolf
<<elseif $angel gte 6>>
an angel
<<elseif $fallenangel gte 2>>
a fallen angel
<<elseif $demon gte 6>>
a demon
<<else>>
a
<</if>>
<<genderstop>>

You have $eyecolour eyes. <<if $tanned gte 60>>You have a <<skincolourtext>><</if>> <<if $breastsize gte 1>>You have <<breastsstop>><</if>> You have a <<bottomstop>> <<if $penisexist is 1>>You have a <<penisstop>><</if>>

<<if $hairlength gte 0 and $hairlength lt 100>>Your <<haircolourtext>> hair is short.
<<elseif $hairlength gte 100 and $hairlength lt 200>>When left natural, your <<haircolourtext>> hair passes your chin, <<fringelength>>
<<elseif $hairlength gte 200 and $hairlength lt 300>>When left natural, your <<haircolourtext>> hair comes down to your shoulders, <<fringelength>>
<<elseif $hairlength gte 300 and $hairlength lt 400>>When left natural, your <<haircolourtext>> hair is quite long, and comes down to the top of your chest, <<fringelength>>
<<elseif $hairlength gte 400 and $hairlength lt 500>>When left natural, your long <<haircolourtext>> hair hangs down to your nipples, <<fringelength>>
<<elseif $hairlength gte 500 and $hairlength lt 600>>When left natural, your long <<haircolourtext>> hair reaches the top of your tummy, <<fringelength>>
<<elseif $hairlength gte 600 and $hairlength lt 700>>When left natural, your long <<haircolourtext>> hair reaches your navel, <<fringelength>>
<<elseif $hairlength gte 700 and $hairlength lt 800>>When left natural, your very long <<haircolourtext>> hair reaches your thighs, <<fringelength>>
<<elseif $hairlength gte 800 and $hairlength lt 900>>When left natural, your very long <<haircolourtext>> hair reaches your knees, <<fringelength>>
<<elseif $hairlength gte 900 and $hairlength lte 999>>When left natural, your extremely long <<haircolourtext>> hair reaches your ankles, <<fringelength>>
<<elseif $hairlength gte 1000>>When left natural, your <<haircolourtext>> hair is so long you need be careful lest you trip on it, <<fringelength>><</if>>

Awareness:
<<if $awareness lte 0>>
You are innocent.<<statbaricons sym_awareness 7 7>>

	<<set $percent=Math.floor((($awareness + 200) / 200)*100)>>
	<<print '

'>>

<<elseif $awareness gte 1 and $awareness lt 100>>
You are almost entirely innocent.
<<statbaricons sym_awareness 6 7>>

	<<set $percent=Math.floor(($awareness / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 100 and $awareness lt 200>>
You have a limited understanding of sexuality.
<<statbaricons sym_awareness 5 7>>

	<<set $percent=Math.floor((($awareness - 100) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 200 and $awareness lt 300>>
You have a normal understanding of sexuality.
<<statbaricons sym_awareness 4 7>>

	<<set $percent=Math.floor((($awareness - 200) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 300 and $awareness lt 400>>
Your knowledge of sexual depravity extends beyond that of most people.
<<statbaricons sym_awareness 3 7>>

	<<set $percent=Math.floor((($awareness - 300) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 400 and $awareness lt 500>>
You have seen things that few are privy to.
<<statbaricons sym_awareness 2 7>>

	<<set $percent=Math.floor((($awareness - 400) / 100)*100)>>
	<<print '

'>>

<<elseif $awareness gte 500 and $awareness lte 999>>
You have peered into the depths of depravity.
<<statbaricons sym_awareness 1 7>>

	<<set $percent=Math.floor((($awareness - 500) / 499)*100)>>
	<<print '

'>>

<<elseif $awareness gte 1000>>
Your understanding is transcendental.<<statbaricons sym_purity 7 7>>

<</if>>

Purity:
<<if $purity gte 1000>>
You are angelic.<<statbaricons sym_purity 7 7>>

<<elseif $purity lte 999 and $purity gt 900>>You don't feel entirely pure.
<<statbaricons sym_purity 6 7>>

	<<set $percent=Math.floor((($purity - 900) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 900 and $purity gt 800>>
You feel slightly soiled.
<<statbaricons sym_purity 5 7>>

	<<set $percent=Math.floor((($purity - 800) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 800 and $purity gt 700>>
You feel soiled.
<<statbaricons sym_purity 4 7>>

	<<set $percent=Math.floor((($purity - 700) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 700 and $purity gt 600>>You feel somewhat defiled.
<<statbaricons sym_purity 3 7>>

	<<set $percent=Math.floor((($purity - 600) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 600 and $purity gt 500>>
You feel defiled.
<<statbaricons sym_purity 2 7>>

	<<set $percent=Math.floor((($purity - 500) / 100)*100)>>
	<<print '

'>>

<<elseif $purity lte 500 and $purity gte 1>>
You feel utterly defiled.
<<statbaricons sym_purity 1 7>>

	<<set $percent=Math.floor(($purity / 500)*100)>>
	<<print '

'>>

<<elseif $purity gte 0>>
You are beyond defiled.

<</if>>

Physique:
<<if $physique gte ($physiquesize / 7) * 6>>
Your body is toned and powerful.
<<statbaricons sym_physique 6 6>>

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 6) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7) * 5>>Your body is toned and firm.
<<statbaricons sym_physique 5 6>>

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 5) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7) * 4>>Your body is slim and athletic.
<<statbaricons sym_physique 4 6>>

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 4) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7) * 3>>Your body is slim.
<<statbaricons sym_physique 3 6>>

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 3) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte($physiquesize / 7) * 2>>Your body is lithe and slender.
<<statbaricons sym_physique 2 6>>

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 2) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<elseif $physique gte ($physiquesize / 7)>>You are skinny.
<<statbaricons sym_physique 1 6>>

	<<set $percent=Math.floor((($physique - ($physiquesize / 7) * 1) / ($physiquesize / 7))*100)>>
	<<print '

'>>

<<else>>You are emaciated.
<<statbaricons sym_physique 0 6>>

	<<set $percent=Math.floor(($physique / ($physiquesize / 7))*100)>>
	<<print '

'>>

<</if>>

Willpower:
<<if $willpower gte ($willpowermax / 7) * 6>>
Your will is iron.
<<statbaricons redbolt 6 6>>

	<<set $percent=Math.floor((($willpower - ($willpowermax / 7) * 6) / ($willpowermax / 7))*100)>>
	<<print '

'>>

<<elseif $willpower gte ($willpowermax / 7) * 5>>
You are tenacious.
<<statbaricons redbolt 5 6>>

	<<set $percent=Math.floor((($willpower - ($willpowermax / 7) * 5) / ($willpowermax / 7))*100)>>
	<<print '

'>>

<<elseif $willpower gte ($willpowermax / 7) * 4>>
You are determined.
<<statbaricons redbolt 4 6>>

	<<set $percent=Math.floor((($willpower - ($willpowermax / 7) * 4) / ($willpowermax / 7))*100)>>
	<<print '

'>>

<<elseif $willpower gte ($willpowermax / 7) * 3>>
You are resolved.
<<statbaricons redbolt 3 6>>

	<<set $percent=Math.floor((($willpower - ($willpowermax / 7) * 3) / ($willpowermax / 7))*100)>>
	<<print '

'>>

<<elseif $willpower gte($willpowermax / 7) * 2>>
You are mindful.
<<statbaricons redbolt 2 6>>

	<<set $percent=Math.floor((($willpower - ($willpowermax / 7) * 2) / ($willpowermax / 7))*100)>>
	<<print '

'>>

<<elseif $willpower gte ($willpowermax / 7)>>
You are fainthearted.
<<statbaricons redbolt 1 6>>

	<<set $percent=Math.floor((($willpower - ($willpowermax / 7) * 1) / ($willpowermax / 7))*100)>>
	<<print '

'>>

<<else>>
You are timid.
<<statbaricons redbolt 0 6>>

	<<set $percent=Math.floor(($willpower / ($willpowermax / 7))*100)>>
	<<print '

'>>

<</if>>

Beauty:
<<if $beauty gte ($beautymax / 7) * 6>>
Your beauty is divine.
<<statbaricons sym_beauty 6 6>>

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 6) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7) * 5>>
You are ravishing.
<<statbaricons sym_beauty 5 6>>

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 5) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7) * 4>>
You are beautiful.
<<statbaricons sym_beauty 4 6>>

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 4) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7) * 3>>
You are charming.
<<statbaricons sym_beauty 3 6>>

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 3) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte($beautymax / 7) * 2>>
You are pretty.
<<statbaricons sym_beauty 2 6>>

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 2) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<elseif $beauty gte ($beautymax / 7)>>
You are cute.
<<statbaricons sym_beauty 1 6>>

	<<set $percent=Math.floor((($beauty - ($beautymax / 7) * 1) / ($beautymax / 7))*100)>>
	<<print '

'>>

<<else>>
You are plain.
<<statbaricons sym_beauty 0 6>>

	<<set $percent=Math.floor(($beauty / ($beautymax / 7))*100)>>
	<<print '

'>>

<</if>>

Promiscuity:
<<if $promiscuity lt 1>>
You are chaste and pure.
<<statbaricons sym_promiscuity 0 6>>

<<elseif $promiscuity lt 15>>
You are prudish.
<<statbaricons sym_promiscuity 1 6>>

	<<set $percent=Math.floor(($promiscuity/15)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 35>>
You are sexually curious.
<<statbaricons sym_promiscuity 2 6>>

	<<set $percent=Math.floor((($promiscuity - 15)/20)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 55>>
The thought of sexual contact excites you.
<<statbaricons sym_promiscuity 3 6>>

	<<set $percent=Math.floor((($promiscuity - 35)/20)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 75>>
You crave sexual contact.
<<statbaricons sym_promiscuity 4 6>>

	<<set $percent=Math.floor((($promiscuity - 55)/20)*100)>>
	<<print '

'>>

<<elseif $promiscuity lt 95>>
You are a slut.
<<statbaricons sym_promiscuity 5 6>>

	<<set $percent=Math.floor((($promiscuity - 75)/20)*100)>>
	<<print '

'>>

<<else>>
Your sexual appetite is insatiable.
<<statbaricons sym_promiscuity 6 6>>

	<<set $percent=Math.floor((($promiscuity - 95)/20)*100)>>
	<<print '

'>>

<</if>>

Exhibitionism:
<<if $exhibitionism lt 1>>
You are coy.
<<statbaricons sym_exhibitionism 0 6>>

<<elseif $exhibitionism lt 15>>
You are shy.
<<statbaricons sym_exhibitionism 1 6>>

	<<set $percent=Math.floor(($exhibitionism/15)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 35>>
You like being sexualised.
<<statbaricons sym_exhibitionism 2 6>>

	<<set $percent=Math.floor((($exhibitionism - 15)/20)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 55>>
You enjoy lewd attention.
<<statbaricons sym_exhibitionism 3 6>>

	<<set $percent=Math.floor((($exhibitionism - 35)/20)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 75>>
Feeling exposed excites you.
<<statbaricons sym_exhibitionism 4 6>>

	<<set $percent=Math.floor((($exhibitionism - 55)/20)*100)>>
	<<print '

'>>

<<elseif $exhibitionism lt 95>>
You are shameless.
<<statbaricons sym_exhibitionism 5 6>>

	<<set $percent=Math.floor((($exhibitionism - 75)/20)*100)>>
	<<print '

'>>

<<else>>
The thought of exposure fills you with wild abandon.
<<statbaricons sym_exhibitionism 6 6>>

	<<set $percent=Math.floor((($exhibitionism - 95)/20)*100)>>
	<<print '

'>>

<</if>>

Deviancy:
<<if $deviancy lt 1>>
You are squeamish.
<<statbaricons sym_deviancy 0 6>>

<<elseif $deviancy lt 15>>
You are conventional.
<<statbaricons sym_deviancy 1 6>>

	<<set $percent=Math.floor(($deviancy/15)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 35>>
Your tastes are strange.
<<statbaricons sym_deviancy 2 6>>

	<<set $percent=Math.floor((($deviancy - 15)/20)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 55>>
Your tastes are shocking.
<<statbaricons sym_deviancy 3 6>>

	<<set $percent=Math.floor((($deviancy - 35)/20)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 75>>
Your desires are scandalous.
<<statbaricons sym_deviancy 4 6>>

	<<set $percent=Math.floor((($deviancy - 55)/20)*100)>>
	<<print '

'>>

<<elseif $deviancy lt 95>>
You crave acts others wouldn't conceive of.
<<statbaricons sym_deviancy 5 6>>

	<<set $percent=Math.floor((($deviancy - 75)/20)*100)>>
	<<print '

'>>

<<else>>
You lust for the unspeakable.
<<statbaricons sym_deviancy 6 6>>

	<<set $percent=Math.floor((($deviancy - 95)/20)*100)>>
	<<print '

'>>

<</if>>

Skulduggery:
<<if $skulduggery lte 0>>
None

<<elseif $skulduggery gte 1 and $skulduggery lt 100>>
F <<print Math.floor($skulduggery)>>%

		<<set $percent=Math.floor(($skulduggery/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 100 and $skulduggery lt 200>>
F+ <<print Math.floor($skulduggery - 100)>>%

		<<set $percent=Math.floor((($skulduggery - 100)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 200 and $skulduggery lt 300>>
D <<print $skulduggery - 200>>%

		<<set $percent=Math.floor((($skulduggery - 200)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 300 and $skulduggery lt 400>>
D+ <<print $skulduggery - 300>>%

		<<set $percent=Math.floor((($skulduggery - 300)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 400 and $skulduggery lt 500>>
C <<print $skulduggery - 400>>%

		<<set $percent=Math.floor((($skulduggery - 400)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 500 and $skulduggery lt 600>>
C+ <<print $skulduggery - 500>>%

		<<set $percent=Math.floor((($skulduggery - 500)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 600 and $skulduggery lt 700>>
B <<print $skulduggery - 600>>%

		<<set $percent=Math.floor((($skulduggery - 600)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 700 and $skulduggery lt 800>>
B+ <<print $skulduggery - 700>>%

		<<set $percent=Math.floor((($skulduggery - 700)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 800 and $skulduggery lt 900>>
A <<print $skulduggery - 800>>%

		<<set $percent=Math.floor((($skulduggery - 800)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 900 and $skulduggery lt 1000>>
A+ <<print $skulduggery - 900>>%

		<<set $percent=Math.floor((($skulduggery - 900)/100)*100)>>
		<<print '

'>>

<<elseif $skulduggery gte 1000>>S

<</if>>

<<if $blackmoney gte 1>>
You are carrying £<<print $blackmoney>> in stolen goods.

<</if>>

Dancing:
<<if $danceskill lte 0>>
None

<<elseif $danceskill gte 1 and $danceskill lt 200>>
F <<print $danceskill / 2>>%

		<<set $percent=Math.floor(($danceskill / 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 200 and $danceskill lt 400>>
D <<print (($danceskill - 200) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 400 and $danceskill lt 600>>
C <<print (($danceskill - 400) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 600 and $danceskill lt 800>>
B <<print (($danceskill - 600) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 800 and $danceskill lt 1000>>
A <<print (($danceskill - 800) / 2)>>%

		<<set $percent=Math.floor((($danceskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $danceskill gte 1000>>
S

<</if>>

Swimming: <<if $swimmingskill lte 0>>None

<<elseif $swimmingskill gte 1 and $swimmingskill lt 100>>F <<print $swimmingskill>>%

		<<set $percent=Math.floor(($swimmingskill/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 100 and $swimmingskill lt 200>>F+ <<print $swimmingskill - 100>>%

		<<set $percent=Math.floor((($swimmingskill - 100)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 200 and $swimmingskill lt 300>>D <<print $swimmingskill - 200>>%

		<<set $percent=Math.floor((($swimmingskill - 200)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 300 and $swimmingskill lt 400>>D+ <<print $swimmingskill - 300>>%

		<<set $percent=Math.floor((($swimmingskill - 300)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 400 and $swimmingskill lt 500>>C <<print $swimmingskill - 400>>%

		<<set $percent=Math.floor((($swimmingskill - 400)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 500 and $swimmingskill lt 600>>C+ <<print $swimmingskill - 500>>%

		<<set $percent=Math.floor((($swimmingskill - 500)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 600 and $swimmingskill lt 700>>B <<print $swimmingskill - 600>>%

		<<set $percent=Math.floor((($swimmingskill - 600)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 700 and $swimmingskill lt 800>>B+ <<print $swimmingskill - 700>>%

		<<set $percent=Math.floor((($swimmingskill - 700)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 800 and $swimmingskill lt 900>>A <<print $swimmingskill - 800>>%

		<<set $percent=Math.floor((($swimmingskill - 800)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 900 and $swimmingskill lt 1000>>A+ <<print $swimmingskill - 900>>%

		<<set $percent=Math.floor((($swimmingskill - 900)/100)*100)>>
		<<print '

'>>

<<elseif $swimmingskill gte 1000>>S

<</if>>

Seduction: <<if $seductionskill lte 0>>None

<<elseif $seductionskill gte 1 and $seductionskill lt 200>>F <<print $seductionskill / 2>>%

		<<set $percent=Math.floor(($seductionskill / 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 200 and $seductionskill lt 400>>D <<print (($seductionskill - 200) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 400 and $seductionskill lt 600>>C <<print (($seductionskill - 400) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 600 and $seductionskill lt 800>>
B <<print (($seductionskill - 600) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 800 and $seductionskill lt 1000>>
A <<print (($seductionskill - 800) / 2)>>%

		<<set $percent=Math.floor((($seductionskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $seductionskill gte 1000>>
S

<</if>>

Oral:
<<if $oralskill lte 0>>
None

<<elseif $oralskill gte 1 and $oralskill lt 200>>
F <<print $oralskill / 2>>%

		<<set $percent=Math.floor(($oralskill / 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 200 and $oralskill lt 400>>
D <<print (($oralskill - 200) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 400 and $oralskill lt 600>>C <<print (($oralskill - 400) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 600 and $oralskill lt 800>>
B <<print (($oralskill - 600) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 800 and $oralskill lt 1000>>
A <<print (($oralskill - 800) / 2)>>%

		<<set $percent=Math.floor((($oralskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $oralskill gte 1000>>
S

<</if>>

<<if $vaginaexist is 1>>
Vaginal:
<<if $vaginalskill lte 0>>
None

<<elseif $vaginalskill gte 1 and $vaginalskill lt 200>>F <<print $vaginalskill / 2>>%

		<<set $percent=Math.floor(($vaginalskill / 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 200 and $vaginalskill lt 400>>D <<print (($vaginalskill - 200) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 400 and $vaginalskill lt 600>>
C <<print (($vaginalskill - 400) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 600 and $vaginalskill lt 800>>
B <<print (($vaginalskill - 600) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 800 and $vaginalskill lt 1000>>
A <<print (($vaginalskill - 800) / 2)>>%

		<<set $percent=Math.floor((($vaginalskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $vaginalskill gte 1000>>
S

<</if>>

<</if>>

<<if $penisexist is 1>>
Penile:
<<if $penileskill lte 0>>
None

<<elseif $penileskill gte 1 and $penileskill lt 200>>F <<print $penileskill / 2>>%

		<<set $percent=Math.floor(($penileskill / 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 200 and $penileskill lt 400>>
D <<print (($penileskill - 200) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 400 and $penileskill lt 600>>
C <<print (($penileskill - 400) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 600 and $penileskill lt 800>>
B <<print (($penileskill - 600) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 800 and $penileskill lt 1000>>A <<print (($penileskill - 800) / 2)>>%

		<<set $percent=Math.floor((($penileskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $penileskill gte 1000>>
S

<</if>>

<</if>>

Anal:
<<if $analskill lte 0>>
None

<<elseif $analskill gte 1 and $analskill lt 200>>
F <<print $analskill / 2>>%

		<<set $percent=Math.floor(($analskill / 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 200 and $analskill lt 400>>
D <<print (($analskill - 200) / 2)>>%

		<<set $percent=Math.floor((($analskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 400 and $analskill lt 600>>
C <<print (($analskill - 400) / 2)>>%

		<<set $percent=Math.floor((($analskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 600 and $analskill lt 800>>
B <<print (($analskill - 600) / 2)>>%

		<<set $percent=Math.floor((($analskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 800 and $analskill lt 1000>>
A <<print (($analskill - 800) / 2)>>%

		<<set $percent=Math.floor((($analskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $analskill gte 1000>>
S

<</if>>

Hands:
<<if $handskill lte 0>>
None

<<elseif $handskill gte 1 and $handskill lt 200>>F <<print $handskill / 2>>%

		<<set $percent=Math.floor(($handskill / 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 200 and $handskill lt 400>>
D <<print (($handskill - 200) / 2)>>%

		<<set $percent=Math.floor((($handskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 400 and $handskill lt 600>>
C <<print (($handskill - 400) / 2)>>%

		<<set $percent=Math.floor((($handskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 600 and $handskill lt 800>>
B <<print (($handskill - 600) / 2)>>%

		<<set $percent=Math.floor((($handskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 800 and $handskill lt 1000>>
A <<print (($handskill - 800) / 2)>>%

		<<set $percent=Math.floor((($handskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $handskill gte 1000>>
S

<</if>>

Feet:
<<if $feetskill lte 0>>
None

<<elseif $feetskill gte 1 and $feetskill lt 200>>F <<print $feetskill / 2>>%

		<<set $percent=Math.floor(($feetskill / 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 200 and $feetskill lt 400>>
D <<print (($feetskill - 200) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 400 and $feetskill lt 600>>
C <<print (($feetskill - 400) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 600 and $feetskill lt 800>>
B <<print (($feetskill - 600) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 800 and $feetskill lt 1000>>
A <<print (($feetskill - 800) / 2)>>%

		<<set $percent=Math.floor((($feetskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $feetskill gte 1000>>
S

<</if>>

Buttocks:
<<if $bottomskill lte 0>>None

<<elseif $bottomskill gte 1 and $bottomskill lt 200>>F <<print $bottomskill / 2>>%

		<<set $percent=Math.floor(($bottomskill / 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 200 and $bottomskill lt 400>>D <<print (($bottomskill - 200) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 400 and $bottomskill lt 600>>C <<print (($bottomskill - 400) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 600 and $bottomskill lt 800>>B <<print (($bottomskill - 600) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 800 and $bottomskill lt 1000>>A <<print (($bottomskill - 800) / 2)>>%

		<<set $percent=Math.floor((($bottomskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $bottomskill gte 1000>>
S

<</if>>

Thighs:
<<if $thighskill lte 0>>
None

<<elseif $thighskill gte 1 and $thighskill lt 200>>
F <<print $thighskill / 2>>%

		<<set $percent=Math.floor(($thighskill / 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 200 and $thighskill lt 400>>
D <<print (($thighskill - 200) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 400 and $thighskill lt 600>>
C <<print (($thighskill - 400) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 600 and $thighskill lt 800>>
B <<print (($thighskill - 600) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 800 and $thighskill lt 1000>>
A <<print (($thighskill - 800) / 2)>>%

		<<set $percent=Math.floor((($thighskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $thighskill gte 1000>>
S

<</if>>

Chest:
<<if $chestskill lte 0>>
None

<<elseif $chestskill gte 1 and $chestskill lt 200>>F <<print $chestskill / 2>>%

		<<set $percent=Math.floor(($chestskill / 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 200 and $chestskill lt 400>>
D <<print (($chestskill - 200) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 200)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 400 and $chestskill lt 600>>
C <<print (($chestskill - 400) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 400)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 600 and $chestskill lt 800>>
B <<print (($chestskill - 600) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 600)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 800 and $chestskill lt 1000>>
A <<print (($chestskill - 800) / 2)>>%

		<<set $percent=Math.floor((($chestskill - 800)/ 200)*100)>>
		<<print '

'>>

<<elseif $chestskill gte 1000>>
S

<</if>>

__School__

Science: <<if $science lte 99>>F <<print Math.floor($science)>>%

		<<set $percent=Math.floor(($science / 100)*100)>>
		<<print '

'>>

<<elseif $science gte 100 and $science lt 200>>E <<print Math.floor($science - 100)>>%

		<<set $percent=Math.floor((($science - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 200 and $science lt 300>>D <<print Math.floor($science - 200)>>%

		<<set $percent=Math.floor((($science - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 300 and $science lt 400>>C <<print Math.floor($science - 300)>>%

		<<set $percent=Math.floor((($science - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 400 and $science lt 500>>B <<print Math.floor($science - 400)>>%

		<<set $percent=Math.floor((($science - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $science gte 500 and $science lt 700>>A <<print Math.floor((($science - 500) / 2))>>%

		<<set $percent=Math.floor((($science - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $science gte 700>>A*

		<<set $percent=Math.floor((($science - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

Maths: <<if $maths lte 99>>F <<print Math.floor($maths)>>%

		<<set $percent=Math.floor(($maths / 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 100 and $maths lt 200>>E <<print Math.floor($maths - 100)>>%

		<<set $percent=Math.floor((($maths - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 200 and $maths lt 300>>D <<print Math.floor($maths - 200)>>%

		<<set $percent=Math.floor((($maths - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 300 and $maths lt 400>>C <<print Math.floor($maths - 300)>>%

		<<set $percent=Math.floor((($maths - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 400 and $maths lt 500>>B <<print Math.floor($maths - 400)>>%

		<<set $percent=Math.floor((($maths - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $maths gte 500 and $maths lt 700>>A <<print Math.floor((($maths - 500) / 2))>>%

		<<set $percent=Math.floor((($maths - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $maths gte 700>>A*

		<<set $percent=Math.floor((($maths - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

English: <<if $english lte 99>>F <<print Math.floor($english)>>%

		<<set $percent=Math.floor(($english / 100)*100)>>
		<<print '

'>>

<<elseif $english gte 100 and $english lt 200>>E <<print Math.floor($english - 100)>>%

		<<set $percent=Math.floor((($english - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 200 and $english lt 300>>D <<print Math.floor($english - 200)>>%

		<<set $percent=Math.floor((($english - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 300 and $english lt 400>>C <<print Math.floor($english - 300)>>%

		<<set $percent=Math.floor((($english - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 400 and $english lt 500>>
B <<print Math.floor($english - 400)>>%

		<<set $percent=Math.floor((($english - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $english gte 500 and $english lt 700>>
A <<print Math.floor((($english - 500) / 2))>>%

		<<set $percent=Math.floor((($english - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $english gte 700>>
A*

		<<set $percent=Math.floor((($english - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

History:
<<if $history lte 99>>
F <<print Math.floor($history)>>%

		<<set $percent=Math.floor(($history / 100)*100)>>
		<<print '

'>>

<<elseif $history gte 100 and $history lt 200>>
E <<print Math.floor($history - 100)>>%

		<<set $percent=Math.floor((($history - 100)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 200 and $history lt 300>>
D <<print Math.floor($history - 200)>>%

		<<set $percent=Math.floor((($history - 200)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 300 and $history lt 400>>
C <<print Math.floor($history - 300)>>%

		<<set $percent=Math.floor((($history - 300)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 400 and $history lt 500>>
B <<print Math.floor($history - 400)>>%

		<<set $percent=Math.floor((($history - 400)/ 100)*100)>>
		<<print '

'>>

<<elseif $history gte 500 and $history lt 700>>
A <<print Math.floor((($history - 500) / 2))>>%

		<<set $percent=Math.floor((($history - 500)/ 200)*100)>>
		<<print '

'>>

<<elseif $history gte 700>>A*

		<<set $percent=Math.floor((($history - 700)/ 300)*100)>>
		<<print '

'>>

<</if>>

<<if $antiquemoney gt 0>>
You are carrying antiques worth £<<print $antiquemoney>>.

<</if>>

Your overall performance is
<<if $school gte 2800>>
exemplary.
<<elseif $school gte 2000>>
excellent.
<<elseif $school gte 1600>>
good.
<<elseif $school gte 1200>>
okay.
<<elseif $school gte 800>>
bad.
<<elseif $school gte 400>>
awful.
<<else>>
appalling.
<</if>>

__Insecurities__ - Scrutiny becomes harder to take as insecurity increases, inflicting more stress and damaging control. Acceptance renders you immune to the effect.

<<if $insecurity_penis_tiny gte 1 and $penissize lte 0 and $acceptance_penis_tiny lte 999>>
Insecurity: Tiny Penis

<<set _percent=Math.floor(($insecurity_penis_tiny/1000)*100)>>
<<print '

'>>

	<<if $acceptance_penis_tiny gte 1 and $acceptance_penis_tiny lte 999 and $penissize lte 0>>
	Acceptance: Tiny Penis

	<<set _percent=Math.floor(($acceptance_penis_tiny/1000)*100)>>
	<<print '

'>>

	<</if>>
<</if>>
<<if $insecurity_penis_small gte 1 and $penissize is 1 and $acceptance_penis_small lte 999>>
Insecurity: Small Penis

<<set _percent=Math.floor(($insecurity_penis_small/1000)*100)>>
<<print '

'>>

	<<if $acceptance_penis_small gte 1 and $acceptance_penis_small lte 999 and $penissize is 1>>
	Acceptance: Small Penis

	<<set _percent=Math.floor(($acceptance_penis_small/1000)*100)>>
	<<print '

'>>

	<</if>>
<</if>>
<<if $player.gender is "m">>
	<<if $insecurity_penis_big gte 1 and $penissize gte 4 and $acceptance_penis_big lte 999>>
	Insecurity: Enormous Penis

	<<set _percent=Math.floor(($insecurity_penis_big/1000)*100)>>
	<<print '

'>>

		<<if $acceptance_penis_big gte 1 and $acceptance_penis_big lte 999 and $penissize gte 4>>
		Acceptance: Big Penis

		<<set _percent=Math.floor(($acceptance_penis_big/1000)*100)>>
		<<print '

'>>

		<</if>>
	<</if>>
<<else>>
	<<if $insecurity_penis_big gte 1 and $penissize gte 2 and $acceptance_penis_big lte 999>>
	Insecurity: Enormous Penis

	<<set _percent=Math.floor(($insecurity_penis_big/1000)*100)>>
	<<print '

'>>

		<<if $acceptance_penis_big gte 1 and $acceptance_penis_big lte 999 and $penissize gte 2>>
		Acceptance: Big Penis

		<<set _percent=Math.floor(($acceptance_penis_big/1000)*100)>>
		<<print '

'>>

		<</if>>
	<</if>>
<</if>>
<<if $insecurity_breasts_tiny gte 1 and $breastsize lte 0 and $player.gender is "f" and $acceptance_breasts_tiny lte 999>>
Insecurity: Flat Chest

<<set _percent=Math.floor(($insecurity_breasts_tiny/1000)*100)>>
<<print '

'>>

	<<if $acceptance_breasts_tiny gte 1 and $acceptance_breasts_tiny lte 999 and $breastsize lte 0 and $player.gender is "f">>
	Acceptance: Tiny Breasts

	<<set _percent=Math.floor(($acceptance_breasts_tiny/1000)*100)>>
	<<print '

'>>

	<</if>>
<</if>>
<<if $insecurity_breasts_small gte 1 and $breastsize gte 1 and $breastsize lte 5 and $acceptance_breasts_small lte 999>>
Insecurity: Small Breasts

<<set _percent=Math.floor(($insecurity_breasts_small/1000)*100)>>
<<print '

'>>

	<<if $acceptance_breasts_small gte 1 and $acceptance_breasts_small lte 999 and $breastsize gte 1 and $breastsize lte 5>>
	Acceptance: Small Breasts

	<<set _percent=Math.floor(($acceptance_breasts_small/1000)*100)>>
	<<print '

'>>

	<</if>>
<</if>>
<<if $player.gender is "f">>
	<<if $insecurity_breasts_big gte 1 and $breastsize gte 8 and $acceptance_breasts_big lte 999>>
	Insecurity: Huge Breasts

	<<set _percent=Math.floor(($insecurity_breasts_big/1000)*100)>>
	<<print '

'>>

		<<if $acceptance_breasts_big gte 1 and $acceptance_breasts_big lte 999 and $breastsize gte 8>>
		Acceptance: Big Breasts

		<<set _percent=Math.floor(($acceptance_breasts_big/1000)*100)>>
		<<print '

'>>

		<</if>>
	<</if>>
<<else>>
	<<if $insecurity_breasts_big gte 1 and $breastsize gte 6 and $acceptance_breasts_big lte 999>>
	Insecurity: Huge Breasts

	<<set _percent=Math.floor(($insecurity_breasts_big/1000)*100)>>
	<<print '

'>>

		<<if $acceptance_breasts_big gte 1 and $acceptance_breasts_big lte 999 and $breastsize gte 6>>
		Acceptance: Big Breasts

		<<set _percent=Math.floor(($acceptance_breasts_big/1000)*100)>>
		<<print '

'>>

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

<</nobr>><</widget>>