:: lover_pref
<<set $here = 'lover_pref'>>
<<set $ARGS = $location_var[$here]>>
<<gs 'boyStat' $lover[$lover_number]>>
<!-- !!$boybody = 1 - tall, 2 - average, 3 - short-->
<<set $boybody = $loverbody[$lover_number]>>
<!-- !!$boybod = 1 - thin, 2 - athletic, 3 - chunky, 4 - fat-->
<<set $boybod = $loverbod[$lover_number]>>
<<set $boyface = $loverface[$lover_number]>>
<!-- !! sexual force of 0 prior_to 2-->
<<set $silaVag = $loversilaVag[$lover_number]>>
<!-- !!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich-->
<<set $finance = $loverfinance[$lover_number]>>
<!-- !!check in appearance, a parameter vnesh-->
<<set $vneshBoy = $vneshlover[$lover_number]>>
<<set $boyClo = $loverClo[$lover_number]>>
<!-- !!0 - 0 to 2, 1 - 3 to 5, 2, 5 to 6-->
<!-- !! These variables will be compared to the player value 'salocatnow'.-->
<<set $figurBoy = $figurlover[$lover_number]>>
<<if getvar("$figurBoy") == 0>>
	<<set $figurePrefMin = 0>>
	<<set $figurePrefMax = 2>>
<<elseif getvar("$figurBoy") == 1>>
	<<set $figurePrefMin = 3>>
	<<set $figurePrefMax = 4>>
<<elseif getvar("$figurBoy") == 2>>
	<<set $figurePrefMin = 5>>
	<<set $figurePrefMax = 77>>
<<else>>
	<<set $figurePrefMin = 0>>
	<<set $figurePrefMax = 99>>
<</if>>
<!-- !!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4-->
<<set $titBoy = $titlover[$lover_number]>>
<<if getvar("$titBoy") == 0>>
	<<set $titMin = 0>>
	<<set $titMax = 3>>
<<elseif getvar("$titBoy") == 1>>
	<<set $titMin = 3>>
	<<set $titMax = 4>>
<<elseif getvar("$titBoy") == 2>>
	<<set $titMin = 5>>
	<<set $titMax = 999>>
<</if>>
<!-- !!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde-->
<<set $hairBoy = $hairlover[$lover_number]>>
<!-- !!character 0 - soft, 1 -norm 2 - aggressor-->
<<set $harakBoy = $haraklover[$lover_number]>>
<!-- !!perversity-->
<<set $izvrat = $loverizvrat[$lover_number]>>
<<set $husb_birth_year = $time.year - $boyage>>
<<set $husbAge = $boyage>>
<!-- !!new preferences-->
<!-- !!renaming perversity constant-->
<<set $pervConstant = $izvrat>>
<!-- !!This is for clothing type preference-->
<!-- !!0 - none, 1 - cheap, 2 - average, 3 - formal, 4 - fetish.-->
<<set $clotTypePrefTmp = $clotTypePref[$lover_number]>>
<!-- !!This is for the quality of clothing-->
<!-- !! 0 - no preference, 1 - 1 to 4 units cheap to average (Locked if formal chosen), 2 - 5 to 7 units expensive to ballroom quality (Locked if fetish is chosen)-->
<<set $clotQualPrefTmp = $clotQualPref[$lover_number]>>
<!-- !!Need to add modifiers based on breast size, where larger breasts end up forcing the player to show more cleavage than those with smaller breasts.-->
<!-- !! 0 - no preference, 1 - 1 to 2 or neckline to moderate, 2 - 3 to 4 or heavy to severe, 3 - 5 to 7 or buldging to outpouring-->
<!-- !! The breast size must be adjusted either when the action is being calculeted or we can base it on their ideal breast size :titBoy + 0/3 depending on the players breast size-->
<!-- !! How much they want to see your chest USE THIS FOR NOW-->
<!-- !! 0 - no preference, 1 - 1 neckline , 2 - 2 or moderate, 3 - 3 to 4 or heavy to severe-->
<!-- !! It doesn''t matter if your poor or rich, everyone loves tits.-->
<<set $clotTopPrefTmp = $clotTopPref[$lover_number]>>
<!-- !!This part helps calculate the constant to add to the-->
<!-- !!This is to set the max/min of the clotTop variables. This is so you dont need to go through the code changing individual numbers.-->
<<if getvar("$clotTopPrefTmp") == 1>>
	<<set $clotTopMin = 1>>
	<<set $clotTopMax = 4>>
<<elseif getvar("$clotTopPrefTmp") == 2>>
	<<set $clotTopMin = 3>>
	<<set $clotTopMax = 5>>
<<elseif getvar("$clotTopPrefTmp") == 3>>
	<<set $clotTopMin = 5>>
	<<set $clotTopMax = 7>>
<<else>>
	<<set $clotTopMin = 0>>
	<<set $clotTopMax = 999>>
<</if>>
<!-- !!THIS IS THE EQUATION FOR THE TIT ADDITION-->
<<if $pc.tits < 2>>
	<<set $titConstant = 0>>
<<elseif $pc.tits >= 2 and $pc.tits < 4>>
	<<set $titConstant = 1>>
<<elseif $pc.tits >= 4 and $pc.tits < 6>>
	<<set $titConstant = 2>>
<<elseif $pc.tits >= 6>>
	<<set $titConstant = 3>>
<<else>>
	<<set $titConstant = 0>>
<</if>>
<!-- !! This is for pants and skirt shortness and will be grouped together as such.-->
<!-- !! 0 - no preference, 1 - 1 to 2 units or ankle to calf length, 2 - 3 to 5 units or knee to miniskirt, 3 - 5 units to 6 or slut to hoe.-->
<<set $bottShorPrefTmp = $bottShorPref[$lover_number]>>
<!-- !!This is to set the max/min of the bottShor variables. This is so you dont need to go through the code changing individual numbers.-->
<<if getvar("$bottShorPrefTmp") == 1>>
	<<set $bottShorMin = 0>>
	<<set $bottShorMax = 2>>
<<elseif getvar("$bottShorPrefTmp") == 2>>
	<<set $bottShorMin = 3>>
	<<set $bottShorMax = 5>>
<<elseif getvar("$bottShorPrefTmp") == 3>>
	<<set $bottShorMin = 5>>
	<<set $bottShorMax = 6>>
<<else>>
	<<set $bottShorMin = 0>>
	<<set $bottShorMax = 999>>
<</if>>
<!-- !! This is for clothes thinness.-->
<!-- !! 0 - no preference, 1 - 0 to 2 (Conservative), 2 - 3 to 4 (Moderate), 3 - 4 to 6 (really thin)-->
<!-- !! I see the moderate to really thin overlapping. Its intentional.-->
<!-- !!This is to set the max/min of the clotThinness variables. This is so you dont need to go through the code changing individual numbers.-->
<<set $clotThinPrefTmp = $clotThinPref[$lover_number]>>
<<if getvar("$clotThinPrefTmp") == 1>>
	<<set $clotThinMin = 0>>
	<<set $clotThinMax = 2>>
<<elseif getvar("$clotThinPrefTmp") == 2>>
	<<set $clotThinMin = 3>>
	<<set $clotThinMax = 4>>
<<elseif getvar("$clotThinPrefTmp") == 3>>
	<<set $clotThinMin = 4>>
	<<set $clotThinMax = 6>>
<<else>>
	<<set $clotThinMin = 0>>
	<<set $clotThinMax = 999>>
<</if>>
<!-- !!This is to find out if they want you to wear bimbo clothing-->
<!-- !! 0 - no preference, 1 - Prefers bimbo clothing.-->
<<set $bimbPrefTmp = $bimbPref[$lover_number]>>
<!-- !!This is to find out if they want you to wear piercings.-->
<!-- !! 0 - no preference, 1 - 0 to 2 piercings, 2 - 3 to 5 piercings, 3 - 6 or more piercings.-->
<<set $pierPrefTmp = $pierPref[$lover_number]>>
<!-- !!This is to set the max min-->
<<if getvar("$pierPrefTmp") == 1>>
	<<set $pierPrefTmpMin = 0>>
	<<set $pierPrefTmpMax = 2>>
<<elseif getvar("$pierPrefTmp") == 2>>
	<<set $pierPrefTmpMin = 3>>
	<<set $pierPrefTmpMax = 5>>
<<elseif getvar("$pierPrefTmp") == 3>>
	<<set $pierPrefTmpMin = 6>>
	<<set $pierPrefTmpMax = 999>>
<<else>>
	<<set $pierPrefTmpMin = 0>>
	<<set $pierPrefTmpMax = 999>>
<</if>>
<!-- !!This is to find out if they want you to have tattoos.-->
<!-- !! 0 - no preference, 1 - 0 to 2 tattoos, 2 - 3 to 5 tattoos, 3 - 6 or more tattoos.-->
<<set $tattPrefTmp = $tattPref[$lover_number]>>
<!-- !!This is to set the max min for tattoos-->
<<if getvar("$tattPrefTmp") == 1>>
	<<set $tattPrefTmpMin = 0>>
	<<set $tattPrefTmpMax = 2>>
<<elseif getvar("$tattPrefTmp") == 2>>
	<<set $tattPrefTmpMin = 3>>
	<<set $tattPrefTmpMax = 5>>
<<elseif getvar("$tattPrefTmp") == 3>>
	<<set $tattPrefTmpMin = 6>>
	<<set $tattPrefTmpMax = 999>>
<<else>>
	<<set $tattPrefTmpMin = 0>>
	<<set $tattPrefTmpMax = 999>>
<</if>>
<!-- !!This is to find out how big they want your lips.-->
<!-- !! 0 - no preference, 1 - 2 to 3 units (average) , 2 - 4 units (THIC lips)-->
<<set $lipsPrefTmp = $lipsPref[$lover_number]>>
<<if getvar("$lipsPrefTmp") == 1>>
	<<set $lipsPrefTmpMin = 2>>
	<<set $lipsPrefTmpMax = 3>>
<<elseif getvar("$lipsPrefTmp") == 2>>
	<<set $lipsPrefTmpMin = 3>>
	<<set $lipsPrefTmpMax = 99>>
<<else>>
	<<set $lipsPrefTmpMin = 0>>
	<<set $lipsPrefTmpMax = 99>>
<</if>>
<!-- !!This is to find out how big they want YOU.-->
<!-- !! 0 - no preference, 1 - 1 to 3 units (Skinny) , 2 - 3 to 6 units (Average), 3 - 6 + units (THIC)-->
<!-- !! Notice how this one overlaps. I believe that it should because changing ones weight is very hard.-->
<<set $pc.bodyPrefTmp = $pc.bodyPref[$lover_number]>>
<!-- !!This is to find out how much makeup they want you to wear.-->
<!-- !! 0 - no preference, 1 - 1 (light makeup) , 2 - 2 (moderate makeup), 3 - 3(heavy makeup)-->
<<set $makePrefTmp = $makePref[$lover_number]>>
<!-- !! This is to see if they like a ditz, average, or a smartypants-->
<!-- !!0 - no preference, 1 - 1 to 30 intelligence, 2 - 30 to 85 intelligence, 3 - 85 + intelligence.-->
<<set $IQPrefTmp = $IQPref[$lover_number]>>
<!-- !!This is the new hair color preference-->
<!-- !! 0 - black, 1 - brown, 2 - redhead, 3 - blonde, 4 - no preference,-->
<<set $hairPref = $hairBoy>>
<!-- !!0 - none, 1 - cheap, 2 - average, 3 - formal, 4 - fetish.-->
<<if getvar("$clotTypePrefTmp") == 0>>
	<<set $clotTypePrefTmp = ''>>
<<elseif getvar("$clotTypePrefTmp") == 1>>
	<<set $clotTypePrefTmp = 'cheap'>>
<<elseif getvar("$clotTypePrefTmp") == 2>>
	<<set $clotTypePrefTmp = 'average'>>
<<elseif getvar("$clotTypePrefTmp") == 3>>
	<<set $clotTypePrefTmp = 'formal'>>
<<elseif getvar("$clotTypePrefTmp") == 4>>
	<<set $clotTypePrefTmp = 'fetish'>>
<</if>>
<!-- !! 0 - no preference, 1 - 1 to 4 units cheap to average (Locked if formal chosen), 2 - 5 to 7 units expensive to ballroom quality (Locked if fetish is chosen)-->
<<if getvar("$clotQualPrefTmp") == 0>>
	<<set $clotQualPrefTmp = 'any type of'>>
<<elseif getvar("$clotQualPrefTmp") == 1>>
	<<set $clotQualPrefTmp = 'anything but expensive'>>
<<elseif getvar("$clotQualPrefTmp") == 2>>
	<<set $clotQualPrefTmp = 'expensive'>>
<</if>>
<!-- !! 0 - no preference, 1 - 1 to 2 or neckline to moderate, 2 - 3 to 4 or heavy to severe, 3 - 5 to 7 or buldging to outpouring-->
<<if getvar("$clotTopPrefTmp") == 0>>
	<<set $clotTopPrefTmp = 'any amount of'>>
<<elseif getvar("$clotTopPrefTmp") == 1>>
	<<set $clotTopPrefTmp = 'a little bit of'>>
<<elseif getvar("$clotTopPrefTmp") == 2>>
	<<set $clotTopPrefTmp = 'a lot of'>>
<<elseif getvar("$clotTopPrefTmp") == 3>>
	<<set $clotTopPrefTmp = 'a huge amount of'>>
<</if>>
<!-- !! 0 - no preference, 1 - 1 to 2 units or ankle to calf length, 2 - 3 to 4 units or knee to miniskirt, 3 - 5 units to 6 or slut to hoe.-->
<<if getvar("$bottShorPrefTmp") == 0>>
	<<set $bottShorPrefTmp = 'any length'>>
<<elseif getvar("$bottShorPrefTmp") == 1>>
	<<set $bottShorPrefTmp = 'modest length'>>
<<elseif getvar("$bottShorPrefTmp") == 2>>
	<<set $bottShorPrefTmp = 'slightly short length'>>
<<elseif getvar("$bottShorPrefTmp") == 3>>
	<<set $bottShorPrefTmp = 'really short length'>>
<</if>>
<!-- !! 0 - no preference, 1 - 0 to 2 (Conservative), 2 - 3 to 4 (Moderate), 3 - 4 to 6 (really thin)-->
<<if getvar("$clotThinPrefTmp") == 0>>
	<<set $clotThinPrefTmp = ''>>
<<elseif getvar("$clotThinPrefTmp") == 1>>
	<<set $clotThinPrefTmp = 'thick'>>
<<elseif getvar("$clotThinPrefTmp") == 2>>
	<<set $clotThinPrefTmp = 'a little thin'>>
<<elseif getvar("$clotThinPrefTmp") == 3>>
	<<set $clotThinPrefTmp = 'really thin or even see through'>>
<</if>>
<!-- !! 0 - no preference, 1 - Prefers bimbo clothing.-->
<<if getvar("$bimbPrefTmp") == 0>>
	<<set $bimboPref = ''>>
<<else>>
	<<set $bimboPref = 'a bimbo'>>
<</if>>
<!-- !! 0 - no preference, 1 - 0 to 2 piercings, 2 - 3 to 5 piercings, 3 - 6 or more piercings.-->
<<if getvar("$pierPrefTmp") == 0>>
	<<set $pierPrefTmp = 'any amount'>>
<<elseif getvar("$pierPrefTmp") == 1>>
	<<set $pierPrefTmp = 'a couple'>>
<<elseif getvar("$pierPrefTmp") == 2>>
	<<set $pierPrefTmp = 'a good amount'>>
<<elseif getvar("$pierPrefTmp") == 3>>
	<<set $pierPrefTmp = 'a lot'>>
<</if>>
<!-- !! 0 - no preference, 1 - 0 to 2 tattoos, 2 - 3 to 5 tattoos, 3 - 6 or more tattoos.-->
<<if getvar("$tattPrefTmp") == 0>>
	<<set $tattPrefTmp = 'any amount'>>
<<elseif getvar("$tattPrefTmp") == 1>>
	<<set $tattPrefTmp = 'a couple'>>
<<elseif getvar("$tattPrefTmp") == 2>>
	<<set $tattPrefTmp = 'a good amount'>>
<<elseif getvar("$tattPrefTmp") == 3>>
	<<set $tattPrefTmp = 'a lot'>>
<</if>>
<!-- !! 0 - no preference, 1 - 2 to 3 units (average) , 2 - 4 units (THIC lips)-->
<<if getvar("$lipsPrefTmp") == 0>>
	<<set $lipsPrefTmp = 'any sized lips'>>
<<elseif getvar("$lipsPrefTmp") == 1>>
	<<set $lipsPrefTmp = 'average sized lips'>>
<<elseif getvar("$lipsPrefTmp") == 2>>
	<<set $lipsPrefTmp = 'thick lips'>>
<</if>>
<!-- !!This is the Players lip description, this allows flexibility when writing-->
<<if $pc.lip_size == 0>>
	<<set $lipDesc = 'thin'>>
<<elseif $pc.lip_size == 1>>
	<<set $lipDesc = 'soft'>>
<<elseif $pc.lip_size == 2>>
	<<set $lipDesc = 'plump'>>
<<elseif $pc.lip_size == 3>>
	<<set $lipDesc = 'juicy'>>
<<elseif $pc.lip_size == 4>>
	<<set $lipDesc = 'thick'>>
<</if>>
<!-- !! 0 - no preference, 1 - 1 to 3 units (Skinny) , 2 - 3 to 6 units (Average), 3 - 6 + units (THIC)-->
<<if getvar("$pc.bodyPrefTmp") == 0>>
	<<set $pc.bodyPrefTmp = 'any weight'>>
<<elseif getvar("$pc.bodyPrefTmp") == 1>>
	<<set $pc.bodyPrefTmp = 'should be skinny'>>
<<elseif getvar("$pc.bodyPrefTmp") == 2>>
	<<set $pc.bodyPrefTmp = ' should be not to skinny or fat'>>
<<elseif getvar("$pc.bodyPrefTmp") == 3>>
	<<set $pc.bodyPrefTmp = 'should be thick and curvy'>>
<</if>>
<!-- !! 0 - no preference, 1 - 1 (light makeup) , 2 - 2 (moderate makeup), 3 - 3(heavy makeup)-->
<<if getvar("$makePrefTmp") == 0>>
	<<set $makePrefTmp = 'any amount of makeup'>>
<<elseif getvar("$makePrefTmp") == 1>>
	<<set $makePrefTmp = 'a subtle amount of makeup'>>
<<elseif getvar("$makePrefTmp") == 2>>
	<<set $makePrefTmp = 'a good amount of makeup'>>
<<elseif getvar("$makePrefTmp") == 3>>
	<<set $makePrefTmp = 'a slutty amount of makeup'>>
<</if>>
<!-- !!0 - no preference, 1 - 1 to 30 intelligence, 2 - 30 to 85 intelligence, 3 - 85 + intelligence.-->
<<if getvar("$IQPrefTmp") == 0>>
	<<set $IQPrefTmp = 'nice'>>
<<elseif getvar("$IQPrefTmp") == 1>>
	<<set $IQPrefTmp = 'ditzy'>>
<<elseif getvar("$IQPrefTmp") == 2>>
	<<set $IQPrefTmp = 'with at least a little brain power'>>
<<elseif getvar("$IQPrefTmp") == 3>>
	<<set $IQPrefTmp = 'genius'>>
<</if>>
<!-- !! 0 - black, 1 - brown, 2 - redhead, 3 - blonde, 4 - no preference,-->
<<if getvar("$hairPref") == 0>>
	<<set $hairPref = 'black'>>
<<elseif getvar("$hairPref") == 1>>
	<<set $hairPref = 'brown'>>
<<elseif getvar("$hairPref") == 2>>
	<<set $hairPref = 'redhead'>>
<<elseif getvar("$hairPref") == 3>>
	<<set $hairPref = 'blond'>>
<<elseif getvar("$hairPref") == 4>>
	<<set $hairPref = 'any color'>>
<</if>>
<!-- !!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4-->
<<if getvar("$titBoy") == 0>>
	<<set $titBoy = 'petite breasts'>>
<<elseif getvar("$titBoy") == 1>>
	<<set $titBoy = 'good sized breasts'>>
<<elseif getvar("$titBoy") == 2>>
	<<set $titBoy = 'huge breasts'>>
<</if>>
<!-- !! mana , manamax * 50 / 100:-->
<<if $pc.pcs_hairbsh == 1 and getvar("$curly") > 0>>
	<!-- FAILED TO CONVERT
		loverrelation[lover_number] += 2 &
	-----
		<<setinit $loverrelation[$lover_number] += ERROR: FAILED TO CONVERT LITERAL: """2 &""">>

	-->
	<<warn "CONVERSION ERROR 4192b252e7509ddf94203e34fabda172">>
	<<set $meetHair = 'Your hair looks very beautiful.'>>
<</if>>
<<if $pc.pcs_hairbsh == 1 and getvar("$curly") == 0>>
	<<setinit $loverrelation[$lover_number] += 1>>
	<<set $meetHair = 'You have pretty hair today.'>>
<</if>>
<<if $pc.pcs_hairbsh < 1>>
	<<setinit $loverrelation[$lover_number] -= 1>>
	<<set $meetHair = 'You look like you were in a hurry.'>>
<</if>>
<!-- !!This are generic things your boyfriend will call you based on how much he likes you.-->
<<if getvar("$loverrelation["+$lover_number+"]") > 80>>
	<<set $randchan = rand(0,2)>>
	<<if getvar("$randchan") == 0 and getvar("$haraklover["+$lover_number+"]") != 0>>
		<<set $giveNick = 'angel'>>
	<<elseif getvar("$randchan") == 1>>
		<<set $giveNick = 'beautiful'>>
	<<elseif getvar("$randchan") == 2>>
		<<set $giveNick = 'love'>>
	<</if>>
<<elseif getvar("$loverrelation["+$lover_number+"]") > 20>>
	<<set $randchan = rand(0,1)>>
	<<if getvar("$randchan") == 0>>
		<<set $giveNick = 'babe'>>
	<<elseif getvar("$randchan") == 1>>
		<<set $giveNick = '$pc.name_nick'>>
	<</if>>
<<else>>
	<<set $giveNick = '$pc.name_first'>>
<</if>>
