:: lover
<<set $here = 'lover'>>
<<set $ARGS = $location_var[$here]>>
<<if $location_var[$here][0] == 'add'>>
	<<if mid($sex.npcId,1,1) == 'C'>>
		<<gs 'npcpreservec' $sex.npcId>> <<gs 'boyStat' $npclastsaved>>

	<</if>>
	<<set $i = arrsize('pcs_lovers')>>
	<<setinit $lover[$i] = $sex.npcId>>
	<<setinit $loverdesc[$i] = $boydesc>>
	<<setinit $loverbodyrand[$i] = $boybodyrand>>
	<<setinit $loverbody[$i] = $boybody>>
	<<setinit $loverbodrand[$i] = $boybodrand>>
	<<setinit $loverbod[$i] = $boybod>>
	<<setinit $loverfacerand[$i] = $boyfacerand>>
	<<setinit $loverface[$i] = $boyface>>
	<<setinit $loverdick[$i] = $dick>>
	<<setinit $loverdick_girth[$i] = $dick_girth>>
	<<setinit $loversilaVag[$i] = $silaVag>>
	<<setinit $loverfinance[$i] = $finance>>
	<<setinit $vneshlover[$i] = $vneshBoy>>
	<<setinit $loverClo[$i] = $boyClo>>
	<<setinit $figurlover[$i] = $figurBoy>>
	<<setinit $titlover[$i] = $titBoy>>
	<<setinit $hairlover[$i] = $hairBoy>>
	<<setinit $haraklover[$i] = $harakBoy>>
	<<setinit $loverday[$i] = $time.daystart>>
	<<setinit $loverrelation[$i] = 3>>
	<<setinit $loverdays[$i] = 0>>
	<<setinit $boyonce[$i] = 0>>
	<<setinit $loverizvrat[$i] = $izvrat>>
	<<setinit $giftDay[$i] = 0>>
	<<setinit $giftNum[$i] = 0>>
	<<setinit $loverlove[$i] = 0>>
	<<setinit $loverscompliance[$i] = 0>>
	<<setinit $lover_picture[$i] = $lover_picrand>>
	<<setinit $meethour[$i] = 0>>
	<<setinit $svidanie[$i] = 0>>
	<<setinit $meetday[$i] = 0>>
	<!-- !!new preferences-->
	<<setinit $clotTypePref[$i] = $clotTypePrefTmp>>
	<<setinit $clotQualPref[$i] = $clotQualPrefTmp>>
	<<setinit $clotTopPref[$i] = $clotTopPrefTmp>>
	<<setinit $bottShorPref[$i] = $bottShorPrefTmp>>
	<<setinit $clotThinPref[$i] = $clotThinPrefTmp>>
	<<setinit $bimbPref[$i] = $bimbPrefTmp>>
	<<setinit $pierPref[$i] = $pierPrefTmp>>
	<<setinit $tattPref[$i] = $tattPrefTmp>>
	<<setinit $lipsPref[$i] = $lipsPrefTmp>>
	<<setinit $pc.bodyPref[$i] = $pc.bodyPrefTmp>>
	<<setinit $makePref[$i] = $makePrefTmp>>
	<<setinit $IQPref[$i] = $IQPrefTmp>>
	<<setinit $loverGender[$i] = $loverGenderTmp>>
	<!-- !! making sure lover has pronouns-->
	<<gs 'pronouns' $loverGender[$i] 0>>
	<<setinit $loverXe[$i] = $xe[0]>>
	<<setinit $loverXec[$i] = $xec[0]>>
	<<setinit $loverXem[$i] = $xem[0]>>
	<<setinit $loverXemc[$i] = $xemc[0]>>
	<<setinit $loverXyr[$i] = $xyr[0]>>
	<<setinit $loverXyrc[$i] = $xyrc[0]>>
	<<setinit $loverXyrs[$i] = $xyrs[0]>>
	<<setinit $loverXyrsc[$i] = $xyrsc[0]>>
	<<setinit $loverXemself[$i] = $xemself[0]>>
	<<setinit $loverXemselfc[$i] = $xemselfc[0]>>
	<<setinit $pcs_lovers[$i] = 1>>
	<<set $pcs_lover += 1>>
	<<if getvar("$loverGender["+$i+"]") == 1>>
		<<setn $pcs_girlfriends += 1>>

	<</if>>
<</if>>
<<if $location_var[$here][0] == 'remove'>>
	<<set $i = $larg(1)>>
	<<set $lover[$i] to null>>
	<<set $loverdesc[$i] to null>>
	<<set $loverbodyrand[$i] to null>>
	<<set $loverbody[$i] to null>>
	<<set $loverbodrand[$i] to null>>
	<<set $loverbod[$i] to null>>
	<<set $loverfacerand[$i] to null>>
	<<set $loverface[$i] to null>>
	<<set $loverdick[$i] to null>>
	<<set $loverdick_girth[$i] to null>>
	<<set $loversilaVag[$i] to null>>
	<<set $loverfinance[$i] to null>>
	<<set $vneshlover[$i] to null>>
	<<set $loverClo[$i] to null>>
	<<set $figurlover[$i] to null>>
	<<set $titlover[$i] to null>>
	<<set $hairlover[$i] to null>>
	<<set $haraklover[$i] to null>>
	<<set $loverday[$i] to null>>
	<<set $loverrelation[$i] to null>>
	<<set $loverdays[$i] to null>>
	<<set $boyonce[$i] to null>>
	<<set $loverizvrat[$i] to null>>
	<<set $giftDay[$i] to null>>
	<<set $giftNum[$i] to null>>
	<<set $loverlove[$i] to null>>
	<<set $loverscompliance[$i] to null>>
	<<set $lover_picture[$i] to null>>
	<<set $meethour[$i] to null>>
	<<set $svidanie[$i] to null>>
	<<set $meetday[$i] to null>>
	<<set $loverGender[$i] to null>>
	<!-- !!new preferences-->
	<<set $clotTypePref[$i] to null>>
	<<set $clotQualPref[$i] to null>>
	<<set $clotTopPref[$i] to null>>
	<<set $bottShorPref[$i] to null>>
	<<set $clotThinPref[$i] to null>>
	<<set $bimbPref[$i] to null>>
	<<set $pierPref[$i] to null>>
	<<set $tattPref[$i] to null>>
	<<set $lipsPref[$i] to null>>
	<<set $pc.bodyPref[$i] to null>>
	<<set $makePref[$i] to null>>
	<<set $IQPref[$i] to null>>
	<<set $loverXe[$i] to null>>
	<<set $loverXec[$i] to null>>
	<<set $loverXem[$i] to null>>
	<<set $loverXemc[$i] to null>>
	<<set $loverXyr[$i] to null>>
	<<set $loverXyrc[$i] to null>>
	<<set $loverXyrs[$i] to null>>
	<<set $loverXyrsc[$i] to null>>
	<<set $loverXemself[$i] to null>>
	<<set $loverXemselfc[$i] to null>>
	<<set $pcs_lovers[$i] to null>>
	<<set $pcs_lover -= 1>>
	<<if getvar("$loverGender["+$i+"]") == 1>>
		<<setn $pcs_girlfriends -= 1>>

	<</if>>
<</if>>
<<if $location_var[$here][0] == 'add fuckbuddy'>>
	<<if mid($larg(1),1,1) == 'C'>>
		<<gs 'npcpreservec' $location_var[$here][1]>>
		<<gs 'boyStat' $npclastsaved>>
	<<else>>
		<<gs 'boyStat' $location_var[$here][1]>>
	<</if>>
	<!-- ! Do not add when he has already been added.-->
	<<if arrpos('$fuckbuddy',$sex.npcId) == -1>>
		<<setinitpush "$fuckbuddy" $sex.npcId>>
		<<set $npc($sex.npcId).rel_type = 'fuckbuddy'>>
		<!-- FAILED TO CONVERT
			gs 'telefon', 'AddContact', $sex.npcId, $npc_pic[$sex.npcId],'',"hour >= 8 and hour <= 22",'', "hour >= 8 and hour <= 22", 0
		-----
			<<set gs 'telefon' , 'AddContact' , $sex.npcId , $npc($sex.npcId).pic , '' , ERROR: FAILED TO CONVERT LITERAL: """"hour >""" = ERROR: FAILED TO CONVERT LITERAL: """8 and hour <= 22"""" , '' , "hour >= 8 and hour <= 22" , 0>>

		-->
		<<warn "CONVERSION ERROR d5878f34cd5c7b6ce77685b7cbec3a45">>
	<</if>>
<</if>>
<<if $location_var[$here][0] == 'remove fuckbuddy'>>
	<<gs 'telefon' 'DeleteContact' $location_var[$here][1]>>
	killvar '$fuckbuddy', arrpos('$fuckbuddy',$larg(1))
<</if>>
