Boyfriends :) Only issue found so far is cheat menu relationship not always coorisponding with stat display

locations/Cheatmenu_din

@@ -858,42 +858,39 @@ $cheatmenu['reputation'] = {
 
 	if pcs_lovers[1] = 1:
 		pl''
-		pl'You are dating <<$boydesc[1]>>.'
+		pl'You are dating <<$loverdesc[1]>>.'
 		if pcs_lovers_rel[1] < 0: pcs_lovers_rel[1] = 0
-
-
-
-		if pcs_lovers_days[1] < 0: pcs_lovers_days[1] = 0
-		if harakBoy[1] > 2: harakBoy[1] = 0
+		if loversday[1] < 0: loversday[1] = 0
+		if haraklover[1] > 2: haraklover[1] = 0
 		if izvrat[1] > 1: izvrat[1] = 0
-		pl'Change boyfriend''s personality: <a href="exec:harakBoy[1] += 1 & dynamic $cheatmenu[''reputation'']"><<harakBoy[1]>></a>'
+		pl'Change boyfriend''s personality: <a href="exec:haraklover[1] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[1]>></a>'
 		pl'Change boyfriend''s perversion: <a href="exec:izvrat[1] += 1 & dynamic $cheatmenu[''reputation'']"><<izvrat[1]>></a>'
-		pl'Relationship: <<pcs_lovers_rel[1]>> <a href="exec:pcs_lovers_rel[1] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:pcs_lovers_rel[1] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
-		pl'You''ve been dating for <<pcs_lovers_days[1]>> days. <a href="exec:pcs_lovers_days[1] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:pcs_lovers_days[1] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
+		pl'Relationship: <<pcs_lovers_rel[1]>> <a href="exec:pcs_lovers_rel[1] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[1] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
+		pl'You''ve been dating for <<loversday[1]>> days. <a href="exec:loversday[1] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loversday[1] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
 	end
 		if pcs_lovers[2] = 1:
 		pl''
-		pl'You are dating <<$boydesc[2]>>.'
-		if pcs_lovers_rel[2] < 0: pcs_lovers_rel[2] = 0
-		if pcs_lovers_days[2] < 0: pcs_lovers_days[2] = 0
-		if harakBoy[2] > 2: harakBoy[2] = 0
+		pl'You are dating <<$loverdesc[2]>>.'
+		if loverrelation[2] < 0: loverrelation[2] = 0
+		if loverdays[2] < 0: loverdays[2] = 0
+		if haraklover[2] > 2: haraklover[2] = 0
 		if izvrat[2] > 1: izvrat[2] = 0
-		pl'Change boyfriend''s personality: <a href="exec:harakBoy[2] += 1 & dynamic $cheatmenu[''reputation'']"><<harakBoy[2]>></a>'
+		pl'Change boyfriend''s personality: <a href="exec:haraklover[2] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[2]>></a>'
 		pl'Change boyfriend''s perversion: <a href="exec:izvrat[2] += 1 & dynamic $cheatmenu[''reputation'']"><<izvrat[2]>></a>'
-		pl'Relationship: <<pcs_lovers_rel[2]>> <a href="exec:pcs_lovers_rel[2] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:pcs_lovers_rel[2] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
-		pl'You''ve been dating for <<pcs_lovers_days[2]>> days. <a href="exec:pcs_lovers_days[2] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:pcs_lovers_days[2] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
+		pl'Relationship: <<loverrelation[2]>> <a href="exec:loverrelation[2] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[2] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
+		pl'You''ve been dating for <<loverdays[2]>> days. <a href="exec:loverdays[2] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[2] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
 	end
 		if pcs_lovers[3] = 1:
 		pl''
-		pl'You are dating <<$boydesc[3]>>.'
-		if pcs_lovers_rel[3] < 0: pcs_lovers_rel[3] = 0
-		if pcs_lovers_days[3] < 0: dayc = 0
-		if harakBoy[3] > 2: harakBoy[3] = 0
+		pl'You are dating <<$loverdesc[3]>>.'
+		if loverrelation[3] < 0: loverrelation[3] = 0
+		if loverdays[3] < 0: loverdays[3] = 0
+		if haraklover[3] > 2: haraklover[3] = 0
 		if izvrat[3] > 1: izvrat[3] = 0
-		pl'Change boyfriend''s personality: <a href="exec:harakBoy[3] += 1 & dynamic $cheatmenu[''reputation'']"><<harakBoy[3]>></a>'
+		pl'Change boyfriend''s personality: <a href="exec:haraklover[3] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[3]>></a>'
 		pl'Change boyfriend''s perversion: <a href="exec:izvrat[3] += 1 & dynamic $cheatmenu[''reputation'']"><<izvrat[3]>></a>'
-		pl'Relationship: <<pcs_lovers_rel[3]>> <a href="exec:pcs_lovers_rel[3] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:pcs_lovers_rel[3] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
-		pl'You''ve been dating for <<pcs_lovers_days[3]>> days. <a href="exec:dayc += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:pcs_lovers_days[3] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
+		pl'Relationship: <<loverrelation[3]>> <a href="exec:loverrelation[3] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[3] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
+		pl'You''ve been dating for <<loverdays[3]>> days. <a href="exec:loverdays[3] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[3] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
 	end
 	pl''
 	if pav_slut >= 25:pl'In Pavlovsk you are known as a <<$gnikname>>'

locations/IgorHanter

@@ -243,28 +243,28 @@ if hantersIgorLove < 2 and hantersIgorQw >= 35 and hantersKnowSlut = 0 and bfA <
     act 'Answer kiss':
         cls
 	    !stopboy = 0
-	    $boyA = $boy
-	    $boybodyA = $boybody
-	    $boybodA = $boybod
-	    $boyfaceA = $boyface
-	    dickA = dick
-	    silaVagA = silaVag
-	    financeA = finance
-	    vneshBoyA = vneshBoy
-	    $boyCloA = $boyClo
-	    figurBoyA = figurBoy
-	    titBoyA = titBoy
-	    haerBoyA = haerBoy
-	    harakBoyA = harakBoy
-	    boyageA = boyage
-	    boydayA = day
+	    $lover[lover_number] = $boy
+	    $loverbody[lover_number] = $boybody
+	    $loverbod[lover_number] = $boybod
+	    $loverface[lover_number] = $boyface
+	    loverdick[lover_number] = dick
+	    silaVag[lover_number] = silaVag
+	    finance[lover_number] = finance
+	    vneshlover[lover_number] = vneshBoy
+	    $loverClo[lover_number] = $boyClo
+	    figurlover[lover_number] = figurBoy
+	    titlover[lover_number] = titBoy
+	    haerlover[lover_number] = haerBoy
+	    haraklover[lover_number] = harakBoy
+	    boyage[lover_number] = boyage
+	    loverday[lover_number] = day
 	    bfA = 1
-	    daya = 0
-	    boyonceA = 0
-	    izvratA = izvrat
-	    giftDayA = 0
-	    giftNumA = 0
-	    love = 0
+	    day[lover_number] = 0
+	    boyonce[lover_number] = 0
+	    izvrat[lover_number] = izvrat
+	    giftDay[lover_number] = 0
+	    giftNum[lover_number] = 0
+	    loverlove[lover_number] = 0
 	    boypicA = boypic
 	    hantersIgorLove = 2
         pcs_mood = 100

locations/Komp

@@ -328,14 +328,14 @@ if $ARGS[0] = 'znak':
 		'You spend time looking at the various profiles, but it won''t let you register unless you have your own home.'
 		'Still, some of the pictures were quite raunchy and the more desperate profiles were really funny.'
 	else
-		if bfA <= 0:
+		if pcs_lovers[1] < 3:
 			act 'Look for a kind man':
 				cla
 				gs 'boy'
 				gs 'boyfrend', 'start'
 				stopboy = 0
-				harakBoy[i] = 0
-				'You find a guy named <<$boydesc[i]>>, and send him your number after checking out his profile. You hope he will call you!'
+				haraklover[lover_number] = 0
+				'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
 
 				act 'Leave':gt 'Komp', 'brows'
 			end
@@ -345,8 +345,8 @@ if $ARGS[0] = 'znak':
 				gs 'boy'
 				gs 'boyfrend', 'start'
 				stopboy = 0
-				harakBoy[i] = 1
-				'You find a guy named <<$boydesc[i]>>, and send him your number after checking out his profile. You hope he will call you!'
+				haraklover[lover_number] = 1
+				'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
 
 				act 'Leave':gt 'Komp', 'brows'
 			end
@@ -356,8 +356,8 @@ if $ARGS[0] = 'znak':
 				gs 'boy'
 				gs 'boyfrend', 'start'
 				stopboy = 0
-				harakBoy[i] = 2
-				'You find a guy named <<$boydesc[i]>>, and send him your number after checking out his profile. You hope he will call you!'
+				haraklover[lover_number] = 2
+				'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
 
 				act 'Leave this website':gt 'Komp', 'brows'
 			end

locations/boyfrend

@@ -17,146 +17,194 @@ end
 
 if $ARGS[0] = 'A':
 	!!stopboy = 0
-	$boy[1] = $boy
-	$boydesc[1] = $boydesc
-	boybodyrand[1] = boybodyrand
-	$boybody[1] = $boybody
-	boybodrand[1] = boybodrand
-	$boybod[1] = $boybod
-	boyfacerand[1] = boyfacerand
-	$boyface[1] = $boyface
-	pcs_lovers_dick[1] = dick
-	$dick_girth[1] = $dick_girth
-	silaVag[1] = silaVag
-	finance[1] = finance
-	vneshBoy[1] = vneshBoy
-	$boyClo[1] = $boyClo
-	figurBoy[1] = figurBoy
-	titBoy[1] = titBoy
-	haerBoy[1] = haerBoy
-	harakBoy[1] = harakBoy
-	boyday[1] = daystart
-	pcs_lovers_rel[1] = 1
-	pcs_lovers_days[1] = 0
-	boyonce[1] = 0
-	izvrat[1] = izvrat
-	giftDay[1] = 0
-	giftNum[1] = 0
-	pcs_lovers_love[1] = 0
+	lover_number = 1
+	$lover[lover_number] = $boy
+	$loverdesc[lover_number] = $boydesc
+	loverbodyrand[lover_number] = boybodyrand
+	$loverbody[lover_number] = $boybody
+	loverbodrand[lover_number] = boybodrand
+	$loverbod[lover_number] = $boybod
+	loverfacerand[lover_number] = boyfacerand
+	$loverface[lover_number] = $boyface
+	loverdick[lover_number] = dick
+	$dick_girth[lover_number] = $dick_girth
+	silaVag[lover_number] = silaVag
+	finance[lover_number] = finance
+	vneshlover[lover_number] = vneshBoy
+	$loverClo[lover_number] = $boyClo
+	figurlover[lover_number] = figurBoy
+	titlover[lover_number] = titBoy
+	haerlover[lover_number] = haerBoy
+	haraklover[lover_number] = harakBoy
+	loverday[lover_number] = daystart
+	loverrelation[lover_number] = 1
+	loverdays[lover_number] = 0
+	boyonce[lover_number] = 0
+	izvrat[lover_number] = izvrat
+	giftDay[lover_number] = 0
+	giftNum[lover_number] = 0
+	loverlove[lover_number] = 0
+	loverscompliance[lover_number] = 0
 	pcs_lovers[1] = 1
 	pcs_lover +=1
 	boypicA = boypic
 	
 	!!new preferences
-	clotTypePref[1] = clotTypePref
-	clotQualPref[1] = clotQualPref
-	clotTopPref[1] = clotTopPref
-	bottShorPref[1] = bottShorPref
-	clotThinPref[1] = clotThinPref
-	bimbPref[1] = bimbPref
-	pierPref[1] = pierPref
-	tattPref[1] = tattPref
-	lipsPref[1] = lipsPref
-	bodyPref[1] = bodyPref
-	makePref[1] = makePref
-	IQPref[1] = IQPref
-	pcs_lovers_compliance[1] = 0
+	clotTypePref[lover_number] = clotTypePref
+	clotQualPref[lover_number] = clotQualPref
+	clotTopPref[lover_number] = clotTopPref
+	bottShorPref[lover_number] = bottShorPref
+	clotThinPref[lover_number] = clotThinPref
+	bimbPref[lover_number] = bimbPref
+	pierPref[lover_number] = pierPref
+	tattPref[lover_number] = tattPref
+	lipsPref[lover_number] = lipsPref
+	bodyPref[lover_number] = bodyPref
+	makePref[lover_number] = makePref
+	IQPref[lover_number] = IQPref
+
 end
 
 if $ARGS[0] = 'B':
 	!!stopboy = 0
-	$boy[2] = $boy
-	$boydesc[2] = $boydesc
-	boybodyrand[2] = boybodyrand
-	$boybody[2] = $boybody
-	boybodrand[2] = boybodrand
-	$boybod[2] = $boybod
-	boyfacerand[2] = boyfacerand
-	$boyface[2] = $boyface
-	pcs_lovers_dick[2] = dick
-	silaVag[2] = silaVag
-	finance[2] = finance
-	vneshBoy[2] = vneshBoy
-	$boyClo[2] = $boyClo
-	figurBoy[2] = figurBoy
-	titBoy[2] = titBoy
-	haerBoy[2] = haerBoy
-	harakBoy[2] = harakBoy
-	boyday[2] = daystart
-	pcs_lovers_rel[2] = 1
-	pcs_lovers_days[2] = 0
-	boyonce[2] = 0
-	izvrat[2] = izvrat
-	giftDay[2] = 0
-	giftNum[2] = 0
-	pcs_lovers_love[2] = 0
+	lover_number = 2
+	$lover[lover_number] = $boy
+	$loverdesc[lover_number] = $boydesc
+	loverbodyrand[lover_number] = boybodyrand
+	$loverbody[lover_number] = $boybody
+	loverbodrand[lover_number] = boybodrand
+	$loverbod[lover_number] = $boybod
+	loverfacerand[lover_number] = boyfacerand
+	$loverface[lover_number] = $boyface
+	loverdick[lover_number] = dick
+	$dick_girth[lover_number] = $dick_girth
+	silaVag[lover_number] = silaVag
+	finance[lover_number] = finance
+	vneshlover[lover_number] = vneshBoy
+	$loverClo[lover_number] = $boyClo
+	figurlover[lover_number] = figurBoy
+	titlover[lover_number] = titBoy
+	haerlover[lover_number] = haerBoy
+	haraklover[lover_number] = harakBoy
+	loverday[lover_number] = daystart
+	loverrelation[lover_number] = 1
+	loverdays[lover_number] = 0
+	boyonce[lover_number] = 0
+	izvrat[lover_number] = izvrat
+	giftDay[lover_number] = 0
+	giftNum[lover_number] = 0
+	loverlove[lover_number] = 0
+	loverscompliance[lover_number] = 0
 	pcs_lovers[2] = 1
 	pcs_lover +=1
 	boypicB = boypic
 	
 	!!new preferences
-	clotTypePref[2] = clotTypePref
-	clotQualPref[2] = clotQualPref
-	clotTopPref[2] = clotTopPref
-	bottShorPref[2] = bottShorPref
-	clotThinPref[2] = clotThinPref
-	bimbPref[2] = bimbPref
-	pierPref[2] = pierPref
-	tattPref[2] = tattPref
-	lipsPref[2] = lipsPref
-	bodyPref[2] = bodyPref
-	makePref[2] = makePref
-	IQPref[2] = IQPref
-	pcs_lovers_compliance[2] = 0
+	clotTypePref[lover_number] = clotTypePref
+	clotQualPref[lover_number] = clotQualPref
+	clotTopPref[lover_number] = clotTopPref
+	bottShorPref[lover_number] = bottShorPref
+	clotThinPref[lover_number] = clotThinPref
+	bimbPref[lover_number] = bimbPref
+	pierPref[lover_number] = pierPref
+	tattPref[lover_number] = tattPref
+	lipsPref[lover_number] = lipsPref
+	bodyPref[lover_number] = bodyPref
+	makePref[lover_number] = makePref
+	IQPref[lover_number] = IQPref
 end
 
 if $ARGS[0] = 'C':
 	!!stopboy = 0
-	$boy[3] = $boy
-	$boydesc[3] = $boydesc
-	boybodyrand[3] = boybodyrand
-	$boybody[3] = $boybody
-	boybodrand[3] = boybodrand
-	$boybod[3] = $boybod
-	boyfacerand[3] = boyfacerand
-	$boyface[3] = $boyface
-	pcs_lovers_dick[3] = dick
-	silaVag[3] = silaVag
-	finance[3] = finance
-	vneshBoy[3] = vneshBoy
-	$boyClo[3] = $boyClo
-	figurBoy[3] = figurBoy
-	titBoy[3] = titBoy
-	haerBoy[3] = haerBoy
-	harakBoy[3] = harakBoy
-	boyday[3] = daystart
-	pcs_lovers_rel[3] = 1
-	pcs_lovers_days[3] = 0
-	boyonce[3] = 0
-	izvrat[3] = izvrat
-	giftDay[3] = 0
-	giftNum[3] = 0
-	pcs_lovers_love[3] = 0
+	lover_number = 3
+	$lover[lover_number] = $boy
+	$loverdesc[lover_number] = $boydesc
+	loverbodyrand[lover_number] = boybodyrand
+	$loverbody[lover_number] = $boybody
+	loverbodrand[lover_number] = boybodrand
+	$loverbod[lover_number] = $boybod
+	loverfacerand[lover_number] = boyfacerand
+	$loverface[lover_number] = $boyface
+	loverdick[lover_number] = dick
+	$dick_girth[lover_number] = $dick_girth
+	silaVag[lover_number] = silaVag
+	finance[lover_number] = finance
+	vneshlover[lover_number] = vneshBoy
+	$loverClo[lover_number] = $boyClo
+	figurlover[lover_number] = figurBoy
+	titlover[lover_number] = titBoy
+	haerlover[lover_number] = haerBoy
+	haraklover[lover_number] = harakBoy
+	loverday[lover_number] = daystart
+	loverrelation[lover_number] = 1
+	loverdays[lover_number] = 0
+	boyonce[lover_number] = 0
+	izvrat[lover_number] = izvrat
+	giftDay[lover_number] = 0
+	giftNum[lover_number] = 0
+	loverlove[lover_number] = 0
+	loverscompliance[lover_number] = 0
 	pcs_lovers[3] = 1
-	pcs_lover +=1
+	pcs_lover += 1
 	boypicC = boypic
-
+	
 	!!new preferences
-	clotTypePref[3] = clotTypePref
-	clotQualPref[3] = clotQualPref
-	clotTopPref[3] = clotTopPref
-	bottShorPref[3] = bottShorPref
-	clotThinPref[3] = clotThinPref
-	bimbPref[3] = bimbPref
-	pierPref[3] = pierPref
-	tattPref[3] = tattPref
-	lipsPref[3] = lipsPref
-	bodyPref[3] = bodyPref
-	makePref[3] = makePref
-	IQPref[3] = IQPref
-	pcs_lovers_compliance[3] = 0
-
+	clotTypePref[lover_number] = clotTypePref
+	clotQualPref[lover_number] = clotQualPref
+	clotTopPref[lover_number] = clotTopPref
+	bottShorPref[lover_number] = bottShorPref
+	clotThinPref[lover_number] = clotThinPref
+	bimbPref[lover_number] = bimbPref
+	pierPref[lover_number] = pierPref
+	tattPref[lover_number] = tattPref
+	lipsPref[lover_number] = lipsPref
+	bodyPref[lover_number] = bodyPref
+	makePref[lover_number] = makePref
+	IQPref[lover_number] = IQPref
 end
 
+	!!stopboy = 0
+	!!$boyA = $boy --lover
+	!!$boydescA = $boydesc  --
+	!!boybodyrandA = boybodyrand
+	!!$boybodyA = $boybody
+	!!boybodrandA = boybodrand
+	!!$boybodA = $boybod
+	!!boyfacerandA = boyfacerand
+	!!$boyfaceA = $boyface
+	!!pcs_lovers_dickA = dick
+	!!silaVagA = silaVag
+	!!financeA = finance
+	!!vneshBoyA = vneshBoy
+	!!$boyCloA = $boyClo
+	!!figurBoyA = figurBoy
+	!!titBoyA = titBoy
+	!!haerBoyA = haerBoy
+	!!harakBoyA = harakBoy
+	!!boydayA = daystart
+	!!pcs_lovers_relA = 1
+	!!pcs_lovers_daysA = 0
+	!!boyonceA = 0
+	!!izvratA = izvrat
+	!!giftDayA = 0
+	!!giftNumA = 0
+	!!pcs_lovers_loveA = 0
+	!!pcs_loversA = 1
+	!!pcs_lover +=1
+	!!boypicC = boypic
+	!!clotTypePrefA = clotTypePref
+	!!clotQualPrefA = clotQualPref
+	!!clotTopPrefA = clotTopPref
+	!!bottShorPrefA = bottShorPref
+	!!clotThinPrefA = clotThinPref
+	!!bimbPrefA = bimbPref
+	!!pierPrefA = pierPref
+	!!tattPrefA = tattPref
+	!!lipsPrefA = lipsPref
+	!!bodyPrefA = bodyPref
+	!!makePrefA = makePref
+	!!IQPrefA = IQPref
+	!!pcs_lovers_complianceA = 0
+
 --- boyfrend ---------------------------------
 

locations/boylove

@@ -1,77 +1,77 @@
 # boylove
 if $ARGS[0] = 'haer':
-	if haerBoyA ! pcs_haircol:
-		bfA -= 1
+	if haraklover[lover_number] ! pcs_haircol:
+		loverrelation[lover_number] -= 1
 
-		if haerBoyA = 0:'<<$boydescA>> says that you are very beautiful, although he likes brunettes.'
-		if haerBoyA = 1:'<<$boydescA>> says that you are very beautiful, although he likes the brown-haired.'
-		if haerBoyA = 2:'<<$boydescA>> says that you are very beautiful, although he likes red.'
-		if haerBoyA = 3:'<<$boydescA>> says that you are very beautiful, although he likes blondes.'
-	elseif haerBoyA = pcs_haircol:
-		bfA += 1
-		'<<$boydescA>> says that you have beautiful hair.'
+		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes brunettes.'
+		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes the brown-haired.'
+		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes red.'
+		if haraklover[lover_number] = 3:'<<$loverdesc[lover_number]>> says that you are very beautiful, although he likes blondes.'
+	elseif haraklover[lover_number] = pcs_haircol:
+		loverrelation[lover_number] += 1
+		'<<$loverdesc[lover_number]>> says that you have beautiful hair.'
 	end
 end
 
 if $ARGS[0] = 'figure':
-	if figurBoyA = 0:
+	if figurlover[lover_number] = 0:
 		if pcs_hips < 80:
-			bfA += 1
-			'<<$boydescA>> tells you that you have a perfect figure.'
+			loverrelation[lover_number] += 1
+			'<<$loverdesc[lover_number]>> tells you that you have a perfect figure.'
 		elseif pcs_hips >= 80:
-			bfA -= 1
-			'<<$boydescA>> says that you love him despite the fact that he always met with skinny.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> says that you love him despite the fact that he always met with skinny.'
 		end
-	elseif figurBoyA = 1:
+	elseif figurlover[lover_number] = 1:
 		if pcs_hips > 80 and pcs_hips < 100:
-			bfA += 1
-			'<<$boydescA>> tells you that you have a perfect figure.'
+			loverrelation[lover_number] += 1
+			'<<$loverdesc[lover_number]>> tells you that you have a perfect figure.'
 		elseif pcs_hips <= 80:
-			bfA -= 1
-			'<<$boydescA>> asks whether you have anorexia.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> asks whether you have anorexia.'
 		elseif pcs_hips >= 100:
-			bfA -= 1
-			'<<$boydescA>> asks whether you are going on a diet.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> asks whether you are going on a diet.'
 		end
-	elseif figurBoyA = 2:
+	elseif figurlover[lover_number] = 2:
 		if pcs_hips >= 100:
-			bfA += 1
-			'<<$boydescA>> tells you that you have a perfect figure.'
+			loverrelation[lover_number] += 1
+			'<<$loverdesc[lover_number]>> tells you that you have a perfect figure.'
 		elseif pcs_hips < 100:
-			bfA -= 1
-			'<<$boydescA>> says that you are beautiful, but the woman should be in the body.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> says that you are beautiful, but the woman should be in the body.'
 		end
 	end
 end
 
 if $ARGS[0] = 'tits':
-	!!titBoyA
-	if titBoyA = 0:
+	!!titlover[lover_number]
+	if titlover[lover_number] = 0:
 		if tits < 3:
-			bfA += 1
-			'<<$boydescA>> tells you that you have beautiful breasts.'
+			loverrelation[lover_number] += 1
+			'<<$loverdesc[lover_number]>> tells you that you have beautiful breasts.'
 		elseif tits >= 3:
-			bfA -= 1
-			'<<$boydescA>> says that you love him despite the fact that he prefers small breasts.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> says that you love him despite the fact that he prefers small breasts.'
 		end
-	elseif titBoyA = 1:
+	elseif titlover[lover_number] = 1:
 		if tits >= 3 and tits <= 4:
-			bfA += 1
-			'<<$boydescA>> tells you that you have perfect breasts.'
+			loverrelation[lover_number] += 1
+			'<<$loverdesc[lover_number]>> tells you that you have perfect breasts.'
 		elseif tits < 3:
-			bfA -= 1
-			'<<$boydescA>> says that you are beautiful, though small breasts.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> says that you are beautiful, though small breasts.'
 		elseif tits > 4:
-			bfA -= 1
-			'<<$boydescA>> says that you have a really huge breasts.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> says that you have a really huge breasts.'
 		end
-	elseif titBoyA = 2:
+	elseif titlover[lover_number] = 2:
 		if tits > 4:
-			bfA += 1
-			'<<$boydescA>> tells you that you have a great chest.'
+			loverrelation[lover_number] += 1
+			'<<$loverdesc[lover_number]>> tells you that you have a great chest.'
 		elseif tits <= 4:
-			bfA -= 1
-			'<<$boydescA>> says that you are beautiful, though small breasts.'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> says that you are beautiful, though small breasts.'
 		end
 	end
 end

locations/brosok

@@ -1,35 +1,35 @@
 # brosok
-if boyonceA = 0:
+if boyonce[lover_number] = 0:
 	!!racing requirements after sex
-	boyonceA = 1
+	boyonce[lover_number] = 1
 	guy += 1
 	!!!WD:  Probably community extension
-	$bfsex += '<font color="maroon">'+$boyA+'</font>:He was a '+$boybody+' '+$boybod+' '+$boyface+'. Most of the time he was '+$boyClo+' First time we had sex was on the '+day+'th of '+$month+'. He had a '+dickA+' cm long member'
+	$bfsex += '<font color="maroon">'+$lover[lover_number]+'</font>:He was a '+$boybody+' '+$boybod+' '+$boyface+'. Most of the time he was '+$boyClo+' First time we had sex was on the '+day+'th of '+$month+'. He had a '+loverdick[lover_number]+' cm long member'
 
-	if dickA > 20:
+	if loverdick[lover_number] > 20:
 		$bfsex += '[:c].'
-		elseif dickA > 14:
+		elseif loverdick[lover_number] > 14:
 		$bfsex += '[:)].'
 	else
 		$bfsex += '[:(].'
 	end
 
-	if harakBoyA = 0:$bfsex += 'He was a calm and self-possessed character.<br>'
-	if harakBoyA = 1:$bfsex += 'He was cheerful and sociable nature.<br>'
-	if harakBoyA = 2:$bfsex += 'He was irascible and very rigid.<br>'
+	if haraklover[lover_number] = 0:$bfsex += 'He was a calm and self-possessed character.<br>'
+	if haraklover[lover_number] = 1:$bfsex += 'He was cheerful and sociable nature.<br>'
+	if haraklover[lover_number] = 2:$bfsex += 'He was irascible and very rigid.<br>'
 	!!!
-	if financeA = 0:
-		if harakBoyA = 0:vneshBoyA += 8
-		if harakBoyA = 1:vneshBoyA += 16
-		if harakBoyA = 2:vneshBoyA += 32
-	elseif financeA = 1:
-		if harakBoyA = 0:vneshBoyA += 24
-		if harakBoyA = 1:vneshBoyA += 40
-		if harakBoyA = 2:vneshBoyA += 56
-	elseif financeA = 2:
-		if harakBoyA = 0:vneshBoyA += 56
-		if harakBoyA = 1:vneshBoyA += 72
-		if harakBoyA = 2:vneshBoyA += 88
+	if finance[lover_number] = 0:
+		if haraklover[lover_number] = 0:vneshlover[lover_number] += 8
+		if haraklover[lover_number] = 1:vneshlover[lover_number] += 16
+		if haraklover[lover_number] = 2:vneshlover[lover_number] += 32
+	elseif finance[lover_number] = 1:
+		if haraklover[lover_number] = 0:vneshlover[lover_number] += 24
+		if haraklover[lover_number] = 1:vneshlover[lover_number] += 40
+		if haraklover[lover_number] = 2:vneshlover[lover_number] += 56
+	elseif finance[lover_number] = 2:
+		if haraklover[lover_number] = 0:vneshlover[lover_number] += 56
+		if haraklover[lover_number] = 1:vneshlover[lover_number] += 72
+		if haraklover[lover_number] = 2:vneshlover[lover_number] += 88
 	end
 end
 

locations/din_bad

@@ -25,23 +25,7 @@ $mobile_check = {
 			pl'<center><a href="exec:gt ''qwloc4''"><img src="images/system/phone/call_accept.png"></a>         <a href="exec:vladimirday = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
 		end
 	end
-    
-    if TatianaCall = 0 and tobiQW > 0 and TatianaMissionDay + 30 < daystart and rand(1,100) > 99 and TatianaMissionQW < TatianaMissionTotal and hour >= 10 and hour < 18:
-    	'<b><font color="red">Your phone is ringing</font></b>'
-    	if TatianaMissionQW = 0:
-    		$caller = 'Anonymous'
-    		$callerid = ''
-    		dynamic $phone_ring
-    		pl'<center><a href="exec:gt ''tatiana_missions'', ''phone_intro''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
-    	else
-    		$caller = 'Tatiana'
-    		$callerid = 'images/pre/shared/karinpre.jpg'
-    		dynamic $phone_ring
-    		pl'<center><a href="exec:gt ''tatiana_missions'', ''phone_mission''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
-    	end
-    end
 
-    
 	if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0:
 		'<b><font color="red">Your phone is ringing</font></b>'
 		$caller = 'Leonid Vostov'
@@ -68,60 +52,59 @@ $mobile_check = {
 		pl'<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:qwdogiventday = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
 	end
 
-	if pcs_lovers[1] = 1 and boyday[1] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) >= 4:
-		if pcs_apprnc < vneshBoy[1]:
-			pcs_lovers_rel[1] -= 1
-			if pcs_lovers_rel[1] = 0:
+	if pcs_lovers[1] = 1 and loverday[1] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) >= 4:
+		if pcs_apprnc < vneshlover[1]:
+			loverrelation[1] -= 1
+			if loverrelation[1] = 0:
 				'<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
 			else
-				'Your boyfriend <<$boydesc[1]>> has not called you.'
+				'Your boyfriend <<$loverdesc[1]>> has not called you.'
 			end
 		else
 			ring = 1
 			ringA = 1
 			'<b><font color="red">Your phone is ringing</font></b>'
 			PLAY 'sound/old_phone.mp3',30
-			$caller = '<<$boydesc[1]>>'
+			$caller = '<<$loverdesc[1]>>'
 			$callerid = 'images/characters/shared/'+boypicA+'.jpg'
 			dynamic $phone_ring
-			pl'<center><a href="exec:gt ''telefon'', ''boyA''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:boyday[1] = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
+			pl'<center><a href="exec:gt ''telefon'', ''boyA''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:loverday[1] = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
 		end
-	elseif pcs_lovers[2] = 1 and boyday[2] ! daystart and hour > 5 and hour < 20 and ringB = 0 and rand(1,7) >= 4:
-		if pcs_apprnc < vneshBoy[2]:
-			pcs_lovers_rel[2] -= 1
-			if pcs_lovers_rel[2] = 0:
+	elseif pcs_lovers[2] = 1 and loverday[2] ! daystart and hour > 5 and hour < 20 and ringB = 0 and rand(1,7) >= 4:
+		if pcs_apprnc < vneshlover[2]:
+			loverrelation[2] -= 1
+			if loverrelation[2] = 0:
 				'<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
 			else
-				'Your boyfriend <<$boydesc[2]>> has not called you.'
+				'Your boyfriend <<$loverdesc[2]>> has not called you.'
 			end
 		else
 			ring = 1
 			ringB = 1
 			'<b><font color="red">Your phone is ringing</font></b>'
 			PLAY 'sound/old_phone.mp3',30
-			$caller = '<<$boydesc[2]>>'
+			$caller = '<<$loverdesc[2]>>'
 			$callerid = 'images/characters/shared/'+boypicB+'.jpg'
 			dynamic $phone_ring
-			pl'<center><a href="exec:gt ''telefon'', ''boyB''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:boyday[2] = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
+			pl'<center><a href="exec:gt ''telefon'', ''boyB''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:loverday[2] = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
 		end
-	elseif pcs_lovers[3] = 1 and boyday[3] ! daystart and hour > 5 and hour < 20 and ringC = 0 and rand(1,7) >= 4:
-		if pcs_apprnc < vneshBoy[3]:
-			'Your boyfriend <<$boydesc[3]>> has not called you.'
-			pcs_lovers_rel[3] -= 1
-			if pcs_lovers_rel[3] = 0:
+	elseif pcs_lovers[3] = 1 and loverday[3] ! daystart and hour > 5 and hour < 20 and ringC = 0 and rand(1,7) >= 4:
+		if pcs_apprnc < vneshlover[3]:
+			loverrelation[3] -= 1
+			if loverrelation[3] = 0:
 				'<b><font color="red">Your guy does not call you, he probably dumped you.</font></b>'
 			else
-				'Your boyfriend <<$boydesc[3]>> has not called you.'
+				'Your boyfriend <<$loverdesc[3]>> has not called you.'
 			end
 		else
 			ring = 1
 			ringC = 1
 			'<b><font color="red">Your phone is ringing</font></b>'
 			PLAY 'sound/old_phone.mp3',30
-			$caller = '<<$boydesc[3]>>'
+			$caller = '<<$loverdesc[3]>>'
 			$callerid = 'images/characters/shared/'+boypicC+'.jpg'
 			dynamic $phone_ring
-			pl'<center><a href="exec:gt ''telefon'', ''boyC''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:boyday[3] = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
+			pl'<center><a href="exec:gt ''telefon'', ''boyC''"><img src="images/system/phone/call_accept.png"></a>              <a href="exec:loverday[3] = daystart & gt $locM, $metkaM"><img src="images/system/phone/decline.png"></a></center>'
 		end
 	end
 }

locations/event

@@ -47,7 +47,7 @@ if $ARGS[0] = 'hand':
 	*clr
 	bfa += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/event.jpg"></center>'
-	'Without breaking the kiss you deftly unbutton his pants <<$boydescA>> and start to wank your <<dickA>> cm friend. Unable to withstand such pressure he spills his seed on the ground.'
+	'Without breaking the kiss you deftly unbutton his pants <<$loverdesc[lover_number]>> and start to wank your <<loverdick[lover_number]>> cm friend. Unable to withstand such pressure he spills his seed on the ground.'
 	gs 'arousal', 'hj', 5, 'dom'
 	gs 'arousal', 'end'
 	gs 'stat'
@@ -59,7 +59,7 @@ if $ARGS[0] = 'blow':
 	*clr
 	bfa += 2
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/event1.jpg"></center>'
-	'You get on your knees, unbutton his pants, and dramatically immerse yourself in sucking his member, looking up as his face relaxs. After a few minutes the <<$boydescA>> tenses in anticipation of orgasm'
+	'You get on your knees, unbutton his pants, and dramatically immerse yourself in sucking his member, looking up as his face relaxs. After a few minutes the <<$loverdesc[lover_number]>> tenses in anticipation of orgasm'
 	gs 'arousal', 'bj', 5, 'sub'
 	gs 'stat'
 	act 'Continue sucking.':
@@ -68,7 +68,7 @@ if $ARGS[0] = 'blow':
 		spafinloc = 12
 gs 'cum_manage'
 		!!'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-		'A jet of hot sperm hits you in the mouth. You begin to swallow cum, and <<$boydescA>> continues to cum in your mouth. Finally, the flow of hot pungent liquid stops.'
+		'A jet of hot sperm hits you in the mouth. You begin to swallow cum, and <<$loverdesc[lover_number]>> continues to cum in your mouth. Finally, the flow of hot pungent liquid stops.'
 
 		act 'Leave':
 			cla
@@ -81,28 +81,28 @@ gs 'cum_manage'
 	act 'Remove from your mouth.':
 		cla
 
-		if harakBoyA = 0:
+		if haraklover[lover_number] = 0:
 			!!'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-			'You take his cock out of your mouth and <<$boydescA>> finishes in your hand.'
-		elseif harakBoyA = 1:
+			'You take his cock out of your mouth and <<$loverdesc[lover_number]>> finishes in your hand.'
+		elseif haraklover[lover_number] = 1:
 			tiprand = rand(0, 3)
 
 			if tiprand < 3:
 				!!'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-				'You take his cock out of your mouth and <<$boydescA>> finishes in your hand.'
+				'You take his cock out of your mouth and <<$loverdesc[lover_number]>> finishes in your hand.'
 			elseif tiprand = 3:
 				facial += 1
 				spafinloc = 11
 gs 'cum_manage'
 				!!'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-				'You took his cock out of your mouth and immediatly <<$boydescA>> cums directly on your face, covering it with his warm and sticky seed.'
+				'You took his cock out of your mouth and immediatly <<$loverdesc[lover_number]>> cums directly on your face, covering it with his warm and sticky seed.'
 			end
-		elseif harakBoyA = 2:
+		elseif haraklover[lover_number] = 2:
 			facial += 1
 			spafinloc = 11
 gs 'cum_manage'
 			!!'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-			'<<$boydescA>> holds your hair, pulls his dick out of your mouth and finishes on your face. Covering it with warm and sticky cum.'
+			'<<$loverdesc[lover_number]>> holds your hair, pulls his dick out of your mouth and finishes on your face. Covering it with warm and sticky cum.'
 		end
 
 		act 'Leave':
@@ -120,7 +120,7 @@ if $ARGS[0] = 'sex':
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/event2.jpg"></center>'
 	bfa += 3
 	pose = 1
-	gs 'boyStat', $boyA
+	gs 'boyStat', $lover[lover_number]
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog.jpg"></center>'
 	'You remove your heels, pull down your pants, and shake your ass invitingly. <<$boydesc>> pushes you onto all fours, and abruptly enters you'
 	gs 'arousal', 'vaginal', 15, 'sub'

locations/kafeM

@@ -2,18 +2,18 @@
 
 if $ARGS[0] = 'start':
 	minut += 30
-	'You arrive at the cafe and sit at a table. <<$boydesc[i]>> orders food and wine. While you wait for the food to arrive, <<$boydesc[i]>> tells you an anecdote:<br>'
+	'You arrive at the cafe and sit at a table. <<$loverdesc[lover_number]>> orders food and wine. While you wait for the food to arrive, <<$loverdesc[lover_number]>> tells you an anecdote:<br>'
 	gs 'anekdot'
 *nl	
-	if pcs_lovers_days[i] > 15 and harakBoy[i] = 2:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 1:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 0:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 2:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 1:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 30 and harakBoy[i] = 0:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
 	act 'Laugh.':
 		cla
-		pcs_lovers_rel[i] += 1
+		loverrelation[lover_number] += 1
 		xgt 'kafeM', 'a'
 	end
 
@@ -24,7 +24,7 @@ if $ARGS[0] = 'start':
 
 	act 'Not funny.':
 		cla
-		pcs_lovers_rel[i] -= 1
+		loverrelation[lover_number] -= 1
 		xgt 'kafeM', 'a'
 	end
 end
@@ -32,7 +32,7 @@ end
 if $ARGS[0] = 'a':
 	minut += 30
 	fat += 1
-	'Finally your brought the food. <<$boydesc[i]>> pours you wine and proposes a toast to you.'
+	'Finally your brought the food. <<$loverdesc[lover_number]>> pours you wine and proposes a toast to you.'
 
 	act 'Eat':
 		cla
@@ -43,17 +43,17 @@ end
 if $ARGS[0] = 'b':
 	gs 'food', 'm_meal'
 	gs 'stat'
-	'The cafe music starts and <<$boydesc[i]>> asks to dance.'
+	'The cafe music starts and <<$loverdesc[lover_number]>> asks to dance.'
 
 	act 'Dance.':
 		cla
-		pcs_lovers_rel[i] += 1
+		loverrelation[lover_number] += 1
 		xgt 'kafeM', 'dance'
 	end
 
 	act 'Refuse.':
 		cla
-		pcs_lovers_rel[i] -= 1
+		loverrelation[lover_number] -= 1
 		xgt 'kafeM', 'end'
 	end
 end
@@ -61,31 +61,31 @@ end
 if $ARGS[0] = 'dance':
 	minut += 5
 	'<center><img <<$set_imgh>> src="images/pc/activities/dance.jpg"></center>'
-	'You go out with <<$boydesc[i]>> to the dance floor. he gives you a hug and you start to dance.'
+	'You go out with <<$loverdesc[lover_number]>> to the dance floor. he gives you a hug and you start to dance.'
 
-	if harakBoy[i] = 0:
-		'<<$boydesc[i]>> is very formal in his dance, he hugs you and apologises.'
+	if haraklover[lover_number] = 0:
+		'<<$loverdesc[lover_number]>> is very formal in his dance, he hugs you and apologises.'
 
 		act 'Finish the dance.':
 			cla
-			pcs_lovers_rel[i] += 1
+			loverrelation[lover_number] += 1
 			xgt 'kafeM', 'end'
 		end
-	elseif harakBoy[i] = 1:
-		'<<$boydesc[i]>> very confidently leads you in the dance.'
+	elseif haraklover[lover_number] = 1:
+		'<<$loverdesc[lover_number]>> very confidently leads you in the dance.'
 
 		act 'Finish the dance.':
 			cla
-			pcs_lovers_rel[i] += 1
+			loverrelation[lover_number] += 1
 			xgt 'kafeM', 'end'
 		end
-	elseif harakBoy[i] = 2:
-		'<<$boydesc[i]>> grabs your ass while dancing and presses up against you, through the fabric you can feel his hard cock against your stomach.'
+	elseif haraklover[lover_number] = 2:
+		'<<$loverdesc[lover_number]>> grabs your ass while dancing and presses up against you, through the fabric you can feel his hard cock against your stomach.'
 		'He whispers to you, Let''s go to the toilet.'
 
 		act 'Finish the dance.':
 			cla
-			pcs_lovers_rel[i] += 1
+			loverrelation[lover_number] += 1
 			xgt 'kafeM', 'end'
 		end
 
@@ -96,7 +96,7 @@ end
 if $ARGS[0] = 'tualet':
 	minut += 30
 	pcs_horny += 10
-	'<<$boydesc[i]>> pulls you into the toilet and began to knead your chest and you climb between his legs.'
+	'<<$loverdesc[lover_number]>> pulls you into the toilet and began to knead your chest and you climb between his legs.'
 
 	act 'Give blowjob':gt 'kafeM', 'bj'
 	act 'Bend over the toilet.':gt 'kafeM', 'sex'
@@ -108,10 +108,10 @@ if $ARGS[0] = 'sex':
 	sexa += 1
 	pcs_vag += 1
 	pcs_horny += SUB
-	pcs_lovers_rel[i] += 2
+	loverrelation[lover_number] += 2
 	gs 'brosok'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cafe/kafe.jpg"></center>'
-	'You pull his dick out of his pants and start masturbating him, <<$boydesc[i]>> pulls out a condom and put on the penis, then he made you stand over the toilet and stabs his <<dick>> centimeter member into your quivering pussy.'
+	'You pull his dick out of his pants and start masturbating him, <<$loverdesc[lover_number]>> pulls out a condom and put on the penis, then he made you stand over the toilet and stabs his <<dick>> centimeter member into your quivering pussy.'
 
 	if pcs_horny >= 90:
 		pcs_horny = 0
@@ -121,7 +121,7 @@ if $ARGS[0] = 'sex':
 		'You feel a warming sensation growing in your loins which quickly grows as his member pounds into you.  You bite your lip and hastily clamp your hand over your mouth to keep from screaming in ecstasy.'
 	end
 
-	'Soon <<$boydesc[i]>> could not resist and finished in a condom.'
+	'Soon <<$loverdesc[lover_number]>> could not resist and finished in a condom.'
 
 	act 'Next.':gt 'kafeM', 'end'
 end
@@ -134,19 +134,19 @@ if $ARGS[0] = 'bj':
 	spafinloc = 12
 gs 'cum_manage'
 	pcs_horny += SUB
-	pcs_lovers_rel[i] += 2
+	loverrelation[lover_number] += 2
 	gs 'brosok'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cafe/kafe1.jpg"></center>'
 	'You pull his dick out of his pants and start masturbating him, then squat in front of him and take him in your mouth slowly sucking his <<dick>> centimeter member.'
-	'Soon <<$boydesc[i]>> can not resist and finishs in your mouth, filling it with his tart semen.  You attempt to swallow it all, but cum still pours out of your mouth and ran down your lips and chin.'
-	'You faithfully look into <<$boydesc[i]>>''s eyes with your semen smeared face.'
+	'Soon <<$loverdesc[lover_number]>> can not resist and finishs in your mouth, filling it with his tart semen.  You attempt to swallow it all, but cum still pours out of your mouth and ran down your lips and chin.'
+	'You faithfully look into <<$loverdesc[lover_number]>>''s eyes with your semen smeared face.'
 
 	act 'Next.':gt 'kafeM', 'end'
 end
 
 if $ARGS[0] = 'end':
 	minut += 30
-	'<<$boydesc[i]>> offered to hold you.'
+	'<<$loverdesc[lover_number]>> offered to hold you.'
 
 	act 'Home.':gt 'sexm', 'start'
 end

locations/kinoM

@@ -2,19 +2,19 @@
 
 if $ARGS[0] = 'start':
 	minut += 30
-	'You go to the cinema with <<$boydesc[i]>> who buys two tickets for the back row.'
-	'While you wait for the show <<$boydesc[i]>> tells you an anecdote as he buys popcorn and the drinks for the show.<br>'
+	'You go to the cinema with <<$loverdesc[lover_number]>> who buys two tickets for the back row.'
+	'While you wait for the show <<$loverdesc[lover_number]>> tells you an anecdote as he buys popcorn and the drinks for the show.<br>'
 	gs 'anekdot'
 *nl
-	if pcs_lovers_days[i] > 15 and harakBoy[i] = 2:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 1:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 0:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 2:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 1:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 30 and harakBoy[i] = 0:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
 	act 'Laugh':
 		cla
-		pcs_lovers_rel[i] += 1
+		loverrelation[lover_number] += 1
 		xgt 'kinoM', 'a'
 	end
 
@@ -25,7 +25,7 @@ if $ARGS[0] = 'start':
 
 	act 'Not funny':
 		cla
-		pcs_lovers_rel[i] -= 3
+		loverrelation[lover_number] -= 3
 		xgt 'kinoM', 'a'
 	end
 end
@@ -35,20 +35,20 @@ if $ARGS[0] = 'a':
 	minut += 90
 	fat += 2
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/cinema/kino.jpg"></center>'
-	'You and <<$boydesc[i]>> quickly find your seats and <<$boydesc[i]>> puts the big container of popcorn on your lap.'
+	'You and <<$loverdesc[lover_number]>> quickly find your seats and <<$loverdesc[lover_number]>> puts the big container of popcorn on your lap.'
 
-	if harakBoy[i] < 2:
+	if haraklover[lover_number] < 2:
 
 		act 'Hug his arm':
 			cla
-			pcs_lovers_rel[i] += 1
+			loverrelation[lover_number] += 1
 			'You lean against him and hold his arm, taking his hand in yours. He leans over and kisses you and then the two of you sit there while holding hands for the entire movie.'
 			xgt 'kinoM', 'b'
 		end
-	elseif harakBoy[i] = 2:
+	elseif haraklover[lover_number] = 2:
 		act 'Hug his arm':
 			cla
-			pcs_lovers_rel[i] += 1
+			loverrelation[lover_number] += 1
 			'You lean against him and hug his arm, taking his hand in yours. He leans over and kisses you. Once the lights go down and the theatre gets dark, his hand breaks free from yours and rubs your knee. A few minutes later his hand works it''s way down your thigh, sliding between them to your crotch. There he begins to rub your pussy with his fingers while he leans over and whispers to you. "Baby, I want you, right here, right now."'
 
 			act 'Shush him and remove his hand, so you can watch the movie.':xgt 'kinoM', 'b'
@@ -60,7 +60,7 @@ if $ARGS[0] = 'a':
 
 	act 'Watch a movie':
 		cla
-		pcs_lovers_rel[i] -= 1
+		loverrelation[lover_number] -= 1
 		intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
 		'The movie proved interesting and you sit through the entire movie without interruption.'
 		xgt 'kinoM', 'b'
@@ -71,13 +71,13 @@ if $ARGS[0] = 'sex':
 	*clr
 	sexa += 1
 	pcs_vag += 1
-	pcs_lovers_rel[i] += 2
+	loverrelation[lover_number] += 2
 	gs 'brosok'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cinema/sinema.jpg"></center>'
-	'You reach over and undo his pants, opening his fly and pulling his front of his boxers down just  far enough for his dick to spring free, apparently he was already rock hard. Looking around to make sure no one is watching , <<$boydesc[i]>> takes out a condom and put it on his penis.  While he''s doing that you adjust your clothes enough that you can pull your panties down to allow access to your pussy. With a final look around you lift up slightly and slide across his lap reaching one hand between your legs to take his dick in your hand, guiding it towards your moist cunt. You bite your lip as his <<dick>>cm <<$dick_girth>> cock slides into your pussy, to keep from moaning out loud. Then you began to slowly rock up and down fucking him in the dark theatre behind the rest of the audience.'
+	'You reach over and undo his pants, opening his fly and pulling his front of his boxers down just  far enough for his dick to spring free, apparently he was already rock hard. Looking around to make sure no one is watching , <<$loverdesc[lover_number]>> takes out a condom and put it on his penis.  While he''s doing that you adjust your clothes enough that you can pull your panties down to allow access to your pussy. With a final look around you lift up slightly and slide across his lap reaching one hand between your legs to take his dick in your hand, guiding it towards your moist cunt. You bite your lip as his <<dick>>cm <<$dick_girth>> cock slides into your pussy, to keep from moaning out loud. Then you began to slowly rock up and down fucking him in the dark theatre behind the rest of the audience.'
 
 	gs 'arousal', 'vaginal', 10, 'sub'
-	gs 'cum_call', '', $Boy[i], 1
+	gs 'cum_call', '', $lover[lover_number], 1
 	gs 'stat'
 	
 	if pcs_horny >= 90:
@@ -85,10 +85,10 @@ if $ARGS[0] = 'sex':
 		pcs_willpwr += 15
 		
 		$orgasm_or = 'custom'
-		$orgasm_txt = 'You feel growing wave of pleasure inside of you, you start moaning louder and louder causing <<$boydesc[i]>> to puts his hand over you mouth stifling your noises. Then a massive orgasm hits you, leaving you shuddering and quivering on his cock.'
+		$orgasm_txt = 'You feel growing wave of pleasure inside of you, you start moaning louder and louder causing <<$loverdesc[lover_number]>> to puts his hand over you mouth stifling your noises. Then a massive orgasm hits you, leaving you shuddering and quivering on his cock.'
 	end
 
-	'Finally <<$boydesc[i]>> cannot take it any longer and shots his load into the condom. Once he''s finished you move back to your seat and straighten  out your clothes. Once you''re both full dressed again, you look at each other and stifle a laugh as your act went unnoticed and you watch the rest of the movie holding hands.'
+	'Finally <<$loverdesc[lover_number]>> cannot take it any longer and shots his load into the condom. Once he''s finished you move back to your seat and straighten  out your clothes. Once you''re both full dressed again, you look at each other and stifle a laugh as your act went unnoticed and you watch the rest of the movie holding hands.'
 										
 	act 'Next':gt 'kinoM', 'b'
 end
@@ -99,11 +99,11 @@ if $ARGS[0] = 'bj':
 	swallow += 1
 	spafinloc = 12
 gs 'cum_manage'
-	pcs_lovers_rel[i] += 2
+	loverrelation[lover_number] += 2
 	gs 'brosok'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cinema/sinema1.jpg"></center>'
 	'You reach over and undo his pants, opening the fly and pulling his front of his underwear down just enough. His dick springs free, apparently he was already rock hard. You look around to make sure no one was watching, then you lean over and put your face in his lap, you wrap your lips around the shaft of his <<dick>>cm <<$dick_girth>> cock and began to slowly suck his dick in the dark theater.'
-	'Soon <<$boydesc[i]>> couldn''t take it anymore and he shoots his load into your mouth, spurts of hot sperm filling your mouth up. You keep your lips wrapped tightly around his dick until he is finished spurting his load. Having no choice you swallow it all down and suck his dick clean. Once done you sit back up and you look at each other and stifle a laugh as no one seems to have noticed and you watch the rest of the movie holding hands.'
+	'Soon <<$loverdesc[lover_number]>> couldn''t take it anymore and he shoots his load into your mouth, spurts of hot sperm filling your mouth up. You keep your lips wrapped tightly around his dick until he is finished spurting his load. Having no choice you swallow it all down and suck his dick clean. Once done you sit back up and you look at each other and stifle a laugh as no one seems to have noticed and you watch the rest of the movie holding hands.'
 
 	gs 'arousal', 'bj', 10, 'sub'
 	gs 'stat'
@@ -114,10 +114,10 @@ end
 if $ARGS[0] = 'hj':
 	*clr
 	hja += 1
-	pcs_lovers_rel[i] += 1
+	loverrelation[lover_number] += 1
 	gs 'brosok'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/cinema/sinema2.jpg"></center>'
-	'You reach over and undo his pants, opening the fly and pulling his front of his underwear down just enough. His dick springs free, apparently he was already rock hard. You look around to make sure no one was watching while, <<$boydesc[i]>> took out a condom and put it on his penis. You began to stroke his dick with your hand, while you watch the movie.'
+	'You reach over and undo his pants, opening the fly and pulling his front of his underwear down just enough. His dick springs free, apparently he was already rock hard. You look around to make sure no one was watching while, <<$loverdesc[lover_number]>> took out a condom and put it on his penis. You began to stroke his dick with your hand, while you watch the movie.'
 	'Soon, your skillful movements caused him to to shoot his load in the condom. Once done you lean back watch the rest of the movie holding hands.'
 
 	gs 'arousal', 'hj', 10, 'sub'

locations/liames

@@ -50,13 +50,13 @@ act 'Kill some time looking at the shops':
 end
 
 if housr = 2 and hour = meethour:
-	if svidanieA = 1:'<b>Near the entrance you expect <a href="exec:GT ''meet'',''start''"><<$boydescA>></a></b>'
-	if svidanieB = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boydesc[2]>></a></b>'
-	if svidanieC = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$boydesc[3]>></a></b>'
+	if svidanieA = 1:'<b>Near the entrance you expect <a href="exec:GT ''meet'',''start''"><<$loverdesc[1]>></a></b>'
+	if svidanieB = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$loverdesc[2]>></a></b>'
+	if svidanieC = 1:'<b>Near the entrance you expect <a href="exec:GT ''svidan'',''start''"><<$loverdesc[3]>></a></b>'
 end
 
 streetrand = RAND(0,100)
-if streetrand >= 10 and pcs_lover < 3:
+if streetrand >= 60 and pcs_lover < 3:
 	vnerand = RAND(0,1200)
 	if vnerand <= pcs_apprnc:
 		gs'boy'
@@ -67,7 +67,7 @@ if streetrand >= 10 and pcs_lover < 3:
 			cla
 			gs'boyfrend','start'
 			stopboy = 0
-			'<<$boydesc[i]>> record your phone and left.'
+			'<<$loverdesc[lover_number]>> record your phone and left.'
 			act 'Complete outing':gt 'liames'
 		end
 	end
@@ -127,7 +127,7 @@ if hour >= 15 and hour <= 22 and tusa = 1 and tusnyakday ! daystart:
 		end
     
 !!		if sttan = 1 and tanga = 0:
-!!			'- <<$pcs_nickname>>, and you again without panties, - said one of the boys - Pussy pokezh?'
+!!			'- <<$pcs_nickname>>, and again without panties, - said one of the boys - Pussy pokezh?'
 !!			'- And yet to show? - you said - How do I want and go.'
 !!			act 'Further':gt'etoexhib','pos2'
 !!		end

locations/love

@@ -3,18 +3,18 @@ if $ARGS[0] = 'start':
 	cla
 	*clr
 
-	if harakBoyA = 0:gt 'love', '0'
-	if harakBoyA = 1:gt 'love', '1'
-	if harakBoyA = 2:gt 'love', '2'
+	if haraklover[lover_number] = 0:gt 'love', '0'
+	if haraklover[lover_number] = 1:gt 'love', '1'
+	if haraklover[lover_number] = 2:gt 'love', '2'
 end
 
 if $ARGS[0] = '0':
 	cla
 	*clr
 	love = 1
-	'You start talking about living together. <<$boydescA>> tells you that he is not against it, but first he wants you to meet his parents.'
-	'He warns you that his mother is very demanding and rigorous. <<$boydescA>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, be well-groomed with curled hair and use cosmetics only in moderation.'
-	'For your next date, if your are ready, <<$boydescA>> will take you to his parents.'
+	'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it, but first he wants you to meet his parents.'
+	'He warns you that his mother is very demanding and rigorous. <<$loverdesc[lover_number]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, be well-groomed with curled hair and use cosmetics only in moderation.'
+	'For your next date, if your are ready, <<$loverdesc[lover_number]>> will take you to his parents.'
 
 	act 'To invite':
 		cla
@@ -26,8 +26,8 @@ if $ARGS[0] = 'mother':
 	cla
 	*clr
 	minut += 60
-	'<<$boydescA>> drives you to the home of his parents. You get out and take the elevator. The door opens after only knocking once. It seems clear that they were waiting for you. You enter the apartment and are greeted by an elderly gray-haired woman dressed in trousers and a shirt. You are told to switch into a pair of slippers and are then led down a hallway into another room where the elderly woman invites you to sit down at a table.'
-	'<<$boydescA>> pulls out a chair for you and you sit down. His mother places herself in front of the two of you. She looks at you with disgust in her eyes, looking like an overgrown insect, clearly thinking you are not a girl for her son. "So, darling, what do you do for a living?"'
+	'<<$loverdesc[lover_number]>> drives you to the home of his parents. You get out and take the elevator. The door opens after only knocking once. It seems clear that they were waiting for you. You enter the apartment and are greeted by an elderly gray-haired woman dressed in trousers and a shirt. You are told to switch into a pair of slippers and are then led down a hallway into another room where the elderly woman invites you to sit down at a table.'
+	'<<$loverdesc[lover_number]>> pulls out a chair for you and you sit down. His mother places herself in front of the two of you. She looks at you with disgust in her eyes, looking like an overgrown insect, clearly thinking you are not a girl for her son. "So, darling, what do you do for a living?"'
 
 	if (work = 1 or cheatWork = 1) and workKafe = 1:'"I am a waitress in a cafe."'
 	if student > 0 and diplom = 0:'"I study at the university."'
@@ -35,9 +35,9 @@ if $ARGS[0] = 'mother':
 	if work = 0 and cheatWork = 0 and workKafe ! 1:'"I''m unemployed."'
 
 	if city_modelling > 30:
-		bfA = 0
+		loverrelation[lover_number] = 0
 		'She smiles and says with disgust, "Why are you not telling us about the photos you shot for these web sites?" She pulls out the nude photos of you and lies them out on the table. "My son, your mother cares about you. This girl is not worthy of you."'
-		'<<$boydescA>> blushes and screams, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
+		'<<$loverdesc[lover_number]>> blushes and screams, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
@@ -45,9 +45,9 @@ if $ARGS[0] = 'mother':
 	end
 
 	if kavslut > 0:
-		bfA = 0
+		loverrelation[lover_number] = 0
 		'She smiles and says with disgust, "Son, everyone knows that this girl is a slut. <<$pcs_nickname>> does not just wait tables, she lets every customer, even the Armenians who go there, tear up every hole she has. She doesn''t deserve you!"'
-		'<<$boydescA>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
+		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
@@ -55,9 +55,9 @@ if $ARGS[0] = 'mother':
 	end
 
 	if frot > 3:
-		bfA = 0
+		loverrelation[lover_number] = 0
 		'She smiles and says with disgust, "Son, this girl is a slut and lets every pervert who settles down next to her on the subway grope her. She is not worthy of you!"'
-		'<<$boydescA>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
+		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
@@ -65,9 +65,9 @@ if $ARGS[0] = 'mother':
 	end
 
 	if gloryhole > 30:
-		bfA = 0
+		loverrelation[lover_number] = 0
 		'She smiles and says with disgust, "Son, your girlfriend moonlights at the sex shop, sucking the members of countless strangers. Do you want a wife like that? She is not worthy of you!"'
-		'<<$boydescA>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
+		'<<$loverdesc[lover_number]>> blushes and says, "<<$pcs_nickname>>, I loved you so, and you...you turn out to be just another dirty whore! Get out!"'
 
 		act 'Leave':dynamic $brodilr
 
@@ -76,9 +76,9 @@ if $ARGS[0] = 'mother':
 
 	love = 2
 	'She looks at her son with tearful eyes and says, "Alright. Well son, it''s your choice. Who am I to interfere with your life? I just gave birth to you, nursed you and helped you grow up. But of course you are free to forget about your mom who loves you and only wishes the best for you. If you insist on keeping her, please do. I certainly don''t forbid it. "'
-	'<<$boydescA>> looks down, "Mom, what are you saying? Of course I love you, but <<$pcs_nickname>> is also very dear to me."'
+	'<<$loverdesc[lover_number]>> looks down, "Mom, what are you saying? Of course I love you, but <<$pcs_nickname>> is also very dear to me."'
 	'His mother jumps up, her eyes flashing, "Son, you only met her recently, what do you even know about her?"'
-	'<<$boydescA>> takes a long time trying to persuade his mother and making excuses. Finally she lets you out of her predatory claws and you''re ready to leave.'
+	'<<$loverdesc[lover_number]>> takes a long time trying to persuade his mother and making excuses. Finally she lets you out of her predatory claws and you''re ready to leave.'
 
 	act 'Leave':dynamic $brodilr
 end
@@ -87,9 +87,9 @@ if $ARGS[0] = '1':
 	cla
 	*clr
 	love = 1
-	'You start talking about living together. <<$boydescA>> tells you that he is not against it, but first he wants you to meet his friends.'
+	'You start talking about living together. <<$loverdesc[lover_number]>> tells you that he is not against it, but first he wants you to meet his friends.'
 	'He tells you that you have to look chic, wear a dress from a boutique, be well-groomed with curled hair, use cosmetics only in moderation. He wants his friends to get green with envy.'
-	'For your next date, if you are totally ready <<$boydescA>> will take you to his friends.'
+	'For your next date, if you are totally ready <<$loverdesc[lover_number]>> will take you to his friends.'
 
 	act 'To invite':
 		cla
@@ -103,32 +103,32 @@ if $ARGS[0] = 'frends':
 	'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/z0.jpg"></center>'
 
 	sexpartkno = 1
-	gs 'boyStat', $boyA
-	gs 'npcgeneratec', 0, '<<$boydescA>>''s "friend"', rand(18,32)
+	gs 'boyStat', $lover[lover_number]
+	gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
 	gs 'boyStat', $npclastgenerated, 'a'
-gs 'npcgeneratec', 0, '<<$boydescA>>''s "friend"', rand(18,32)
+gs 'npcgeneratec', 0, '<<$loverdesc[lover_number]>>''s "friend"', rand(18,32)
 	gs 'boyStat', $npclastgenerated, 'b'
 	
 	if proverka1 = 0 and proverka2 = 0 and proverka3 = 0 and proverka4 = 0 and proverka5 = 0:
 		minut += 180
-		'<<$boydescA>> drives you to his friends. You arrive at an apartment and <<$boydescA>> introduces you as his bride to two other guys. You sit down at a table set and talk for a couple of hours. Everybody has fun and after everyone finishes eating and drinking, <<$boydescA>> invites you to dance, to which you gladly agree. <<$boydescA>> is already pretty drunk and he''s bad at dancing, but still start to grope you, his hands squeezing your buttocks. Soon he runs them under your dress and continues to stroke your ass. He hitches up you skirt so everyone can see your panties. The other guys are sitting on the sofa intently staring at your buttocks. Soon one of them gets up he guys got up from the couch and comes over to you. "You have the best butt I''ve ever seen. I would like to check it out." he says, and slaps you on the buttocks making you jump. <<$boydescA>> pulls you to him and tells the other guy "Stop that. She''s my girl. You can watch, but you can not touch."'
+		'<<$loverdesc[lover_number]>> drives you to his friends. You arrive at an apartment and <<$loverdesc[lover_number]>> introduces you as his bride to two other guys. You sit down at a table set and talk for a couple of hours. Everybody has fun and after everyone finishes eating and drinking, <<$loverdesc[lover_number]>> invites you to dance, to which you gladly agree. <<$loverdesc[lover_number]>> is already pretty drunk and he''s bad at dancing, but still start to grope you, his hands squeezing your buttocks. Soon he runs them under your dress and continues to stroke your ass. He hitches up you skirt so everyone can see your panties. The other guys are sitting on the sofa intently staring at your buttocks. Soon one of them gets up he guys got up from the couch and comes over to you. "You have the best butt I''ve ever seen. I would like to check it out." he says, and slaps you on the buttocks making you jump. <<$loverdesc[lover_number]>> pulls you to him and tells the other guy "Stop that. She''s my girl. You can watch, but you can not touch."'
 	end
 
 	if city_modelling > 30 and proverka1 = 0:
 		'"Calm down. I''ve already seen her naked. The Internet is full of naked pictures of her." the guy says.'
-		'"Is this true?" asks <<$boydescA>> turning to you.'
+		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
 		'"Yes, I did some naked photoshoots, but I only ever showed of my body. I never fucked anyone." you say'
 
 		if pcs_intel <= 30:
 			guy += 2
 			picrand = 39
-			bfA = 0
-			'"I don''t care! Once everyone has seen you naked you are no better than a whore." With these words he throws you on the sofa. You try to get up to leave, but <<$boydescA>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$boydescA>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$boydescA>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			loverrelation[lover_number] = 0
+			'"I don''t care! Once everyone has seen you naked you are no better than a whore." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
 			act 'Further':xgt 'sexdvoe', 'var'
 		elseif pcs_intel > 30:
 			proverka1 = 1
-			'You defend yourself for a a few minutes trying to tell him, that you didn''t do anything wrong and that his friends are just jealous. In the end, you manage to convince him, and <<$boydescA>> agrees with you.'
+			'You defend yourself for a a few minutes trying to tell him, that you didn''t do anything wrong and that his friends are just jealous. In the end, you manage to convince him, and <<$loverdesc[lover_number]>> agrees with you.'
 
 			act 'Further':gt 'love', 'frends'
 		end
@@ -139,19 +139,19 @@ gs 'npcgeneratec', 0, '<<$boydescA>>''s "friend"', rand(18,32)
 	if kavslut > 0 and proverka2 = 0:
 		cla
 		'"I''ve heard that your little <<$pcs_nickname>> doesn''t just wait the tables but also lets herself get fucked by the customers. I''ve even heard some Armenians brag about using her every hole." the boy says'
-		'"Is this true?" asks <<$boydescA>> turning to you. You can''t think of anything better so you start to cry.'
+		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you. You can''t think of anything better so you start to cry.'
 		'"Yes, these freaks raped me several times."'
 
 		if pcs_intel <= 50:
 			guy += 2
 			picrand = 39
-			bfA = 0
-			'"I don''t care. Someone who says that she got raped several times clearly likes it and invites these situations." With these words he throws you on the sofa. You try to get up to leave, but <<$boydescA>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$boydescA>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$boydescA>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			loverrelation[lover_number] = 0
+			'"I don''t care. Someone who says that she got raped several times clearly likes it and invites these situations." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
 			act 'Further':gt 'sexdvoe', 'var'
 		elseif pcs_intel > 50:
 			proverka2 = 1
-			'You keep crying for a few minutes about the bastards who raped you and in the end, you manage to convince him and <<$boydescA>> hugs you and says that he will not allow anyone to hurt you again.'
+			'You keep crying for a few minutes about the bastards who raped you and in the end, you manage to convince him and <<$loverdesc[lover_number]>> hugs you and says that he will not allow anyone to hurt you again.'
 
 			act 'Further':gt 'love', 'frends'
 		end
@@ -162,19 +162,19 @@ gs 'npcgeneratec', 0, '<<$boydescA>>''s "friend"', rand(18,32)
 	if frot > 3 and proverka3 = 0:
 		cla
 		'"You don''t know who she really is. Everybody knows that this whore lets all the perverts in the subway fuck her in the car right in front of everyone, " says the boy'
-		'"Is this true?" asks <<$boydescA>> turning to you.'
+		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
 		'"What do you mean? How can you believe that even for a second?" you yell at him squeezing a tear from you eye.'
 
 		if pcs_intel <= 40:
 			guy += 2
 			picrand = 39
-			bfA = 0
-			'"Shout your mouth, you whore! I believe my friends, when they say they it was you." With these words he throws you on the sofa. You try to get up to leave, but <<$boydescA>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$boydescA>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$boydescA>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			loverrelation[lover_number] = 0
+			'"Shout your mouth, you whore! I believe my friends, when they say they it was you." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
 			act 'Further':gt 'sexdvoe', 'var'
 		elseif pcs_intel > 40:
 			proverka3 = 1
-			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$boydescA>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
+			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$loverdesc[lover_number]>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
 
 			act 'Further':gt 'love', 'frends'
 		end
@@ -185,19 +185,19 @@ gs 'npcgeneratec', 0, '<<$boydescA>>''s "friend"', rand(18,32)
 	if gloryhole > 30 and proverka4 = 0:
 		cla
 		'"You know, this slut sucks other men''s cocks in the sex shop.?" the guy asks'
-		'"Is this true?" asks <<$boydescA>> turning to you.'
+		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
 		'"How can you believe that I would do that?" you cry. "And you''re a freak! How would you even know, unless you went there yourself?" you start to attack the guy.'
 
 		if pcs_intel <= 60:
 			guy += 2
 			picrand = 39
-			bfA = 0
-			'"Shut your mouth, you whore! If my friends say it was you I believe them." With these words he throws you on the sofa. You try to get up to leave, but <<$boydescA>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$boydescA>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$boydescA>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			loverrelation[lover_number] = 0
+			'"Shut your mouth, you whore! If my friends say it was you I believe them." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
 			act 'Further':gt 'sexdvoe', 'var'
 		elseif pcs_intel > 60:
 			proverka4 = 1
-			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$boydescA>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
+			'Deciding that the best defense is offense, you yell at him for a few minutes. In the end, you manage to convince him and <<$loverdesc[lover_number]>> begins to soothe you saying that he doesn''t blame you, but he had to know.'
 
 			act 'Further':gt 'love', 'frends'
 		end
@@ -208,19 +208,19 @@ gs 'npcgeneratec', 0, '<<$boydescA>>''s "friend"', rand(18,32)
 	if film > 2 and proverka5 = 0:
 		cla
 		'"You know this slut has done porn movies?" the guy asks'
-		'"Is this true?" asks <<$boydescA>> turning to you.'
+		'"Is this true?" asks <<$loverdesc[lover_number]>> turning to you.'
 		'"Yes, but that was long before I met you. It mad some mistakes when I was younger. I had a very difficult time, but I didn''t do this for a long time." you start trying to squeeze out a tear.'
 
 		if pcs_intel <= 70 and izvrat = 0:
 			guy += 2
 			picrand = 39
-			bfA = 0
-			'"Shout your mouth! Doing porn clearly means you are just another whore." With these words he throws you on the sofa. You try to get up to leave, but <<$boydescA>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$boydescA>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$boydescA>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
+			loverrelation[lover_number] = 0
+			'"Shout your mouth! Doing porn clearly means you are just another whore." With these words he throws you on the sofa. You try to get up to leave, but <<$loverdesc[lover_number]>> stops you, "Where are you going, slut? You think you can just mess around with me and then dump me? Well guys, lets pass this whore around." he says, sititng down on the sofa unbuttoning his pants. "Suck" he shouts while pushing your head down to his dick. Having decided that it is better to not argue with three drunken men you take his dick out of his pants and put it into your mouth. The two other guys join in, one sitting down on the couch next to <<$loverdesc[lover_number]>>. He takes out his member and you grasp it with your hand starting to suck both cocks simultaniously. The second guy undresses you and kneels down using his tongue to lick your pussy. The guy sitting on the couch suddenly starts to hiccup as if he is about to vomit and <<$loverdesc[lover_number]>> shouts at him, "Get out of here, before you make a mess." The guy gets up from the couch and rushes to the toilet, his hands covering his mouth.'
 
 			act 'Further':gt 'sexdvoe', 'var'
 		elseif pcs_intel > 70 or izvrat = 1:
 			proverka5 = 1
-			'You keep explaining that you love him and that you made all these mistakes before you met him. In the end, you manage to convince him and <<$boydescA>> hugs you and whispers in your ear "I guess you still remeber a couple of tricks...I would like you to show them to me later."'
+			'You keep explaining that you love him and that you made all these mistakes before you met him. In the end, you manage to convince him and <<$loverdesc[lover_number]>> hugs you and whispers in your ear "I guess you still remeber a couple of tricks...I would like you to show them to me later."'
 
 			act 'Further':gt 'love', 'frends'
 		end
@@ -229,7 +229,7 @@ gs 'npcgeneratec', 0, '<<$boydescA>>''s "friend"', rand(18,32)
 	end
 
 	love = 2
-	'"Okay, it''s time to go, <<$pcs_nickname>>." says <<$boydescA>>. You head for the exit.'
+	'"Okay, it''s time to go, <<$pcs_nickname>>." says <<$loverdesc[lover_number]>>. You head for the exit.'
 	act 'Leave':gt 'street'
 end
 

locations/lug

@@ -9,7 +9,7 @@ if $ARGS[0] = 'start':
 	'It''s a small but well maintained meadow with evergreen grass, perfect for laying down to rest, have a picnic or just sunbathe. Mothers with small children regularly visit this place.'
 
 	streetrand = RAND(0,100)
-	if streetrand >= 10 and pcs_lover < 3:
+	if streetrand >= 60 and pcs_lover < 3:
 		vnerand = RAND(0,300)
 		if vnerand <= pcs_apprnc:
 			gs'boy'
@@ -20,7 +20,7 @@ if $ARGS[0] = 'start':
 				cla
 				gs'boyfrend','start'
 				stopboy = 0
-				'<<$boydesc[i]>> thanks you and leaves.'
+				'<<$loverdesc[lover_number]>> thanks you and leaves.'
 				act 'Complete outing':gt'lug', 'start'
 			end
 		end

locations/obj_din

@@ -1574,21 +1574,21 @@ if $ARGS[0] = 'records':
 	nl
 	if $bfsex > 0:pl'<<$bfsex>>'
 	nl
-	if pcs_lovers[1] = 1:pl'Your guy <<$boydesc[1]>> <<$boybody[1]>> <<$boybod[1]>> <<$boyface[1]>>.<<$boydesc[1]>> <<$boyClo[1]>> Relationship <<bfA>>, met <<pcs_lovers_days[1]>> time.'
-	if harakBoy[1] = 0 and bfA > 1:pl'He''s calm and self-possessed character.'
-	if harakBoy[1] = 1 and bfA > 1:pl'He has a cheerful and sociable character.'
-	if harakBoy[1] = 2 and bfA > 1:pl'He''s short-tempered and rigid.'
+	if pcs_lovers[1] = 1:pl'Your guy <<$loverdesc[1]>> <<$loverbody[1]>> <<$loverbod[1]>> <<$loverface[1]>>.<<$loverdesc[1]>> <<$loverClo[1]>> Relationship <<loverrelation[1]>>, met <<loversdays[1]>> time.'
+	if haraklover[1] = 0 and loverrelation[1] > 1:pl'He''s calm and self-possessed character.'
+	if haraklover[1] = 1 and loverrelation[1] > 1:pl'He has a cheerful and sociable character.'
+	if haraklover[1] = 2 and loverrelation[1] > 1:pl'He''s short-tempered and rigid.'
 	nl
-	if pcs_lovers[2] = 1:pl'Your guy <<$boydesc[2]>> <<$boybody[2]>> <<$boybod[2]>> <<$boyface[2]>>.<<$boydesc[2]>> <<$boyClo[2]>> Relationship <<bfB>>, met <<pcs_lovers_days[2]>> time.'
-	if harakBoy[2] = 0 and bfB > 1:pl'He''s calm and self-possessed character.'
-	if harakBoy[2] = 1 and bfB > 1:pl'He has a cheerful and sociable character.'
-	if harakBoy[2] = 2 and bfB > 1:pl'He''s short-tempered and rigid.'
+	if pcs_lovers[2] = 1:pl'Your guy <<$loverdesc[2]>> <<$loverbody[2]>> <<$loverbod[2]>> <<$loverface[2]>>.<<$loverdesc[2]>> <<$loverClo[2]>> Relationship <<loverrelation[2]>>, met <<loversdays[2]>> time.'
+	if haraklover[2] = 0 and loverrelation[2] > 1:pl'He''s calm and self-possessed character.'
+	if haraklover[2] = 1 and loverrelation[2] > 1:pl'He has a cheerful and sociable character.'
+	if haraklover[2] = 2 and loverrelation[2] > 1:pl'He''s short-tempered and rigid.'
 	nl
-	if pcs_lovers[3] = 1:pl'Your guy <<$boydesc[3]>> <<$boybody[3]>> <<$boybod[3]>> <<$boyface[3]>>.<<$boydesc[3]>> <<$boyClo[3]>> Relationship <<bfC>>, met <<pcs_lovers_days[3]>> time.'
+	if pcs_lovers[3] = 1:pl'Your guy <<$loverdesc[3]>> <<$loverbody[3]>> <<$loverbod[3]>> <<$loverface[3]>>.<<$loverdesc[3]>> <<$loverClo[3]>> Relationship <<loverrelation[3]>>, met <<loversdays[3]>> time.'
 
-	if harakBoy[3] = 0 and bfC > 1:pl'He''s calm and self-possessed character.'
-	if harakBoy[3] = 1 and bfC > 1:pl'He has a cheerful and sociable character.'
-	if harakBoy[3] = 2 and bfC > 1:pl'He''s short-tempered and rigid.'
+	if haraklover[3] = 0 and loverrelation[3] > 1:pl'He''s calm and self-possessed character.'
+	if haraklover[3] = 1 and loverrelation[3] > 1:pl'He has a cheerful and sociable character.'
+	if haraklover[3] = 2 and loverrelation[3] > 1:pl'He''s short-tempered and rigid.'
 
 
 	nl

locations/parkM

@@ -3,18 +3,18 @@
 if $ARGS[0] = 'start':
 	minut += 30
 	'You leisurely stroll through the park.'
-	'<<$boydesc[i]>> tells you an anecdote:<br>'
+	'<<$loverdesc[lover_number]>> tells you an anecdote:<br>'
 	gs 'anekdot'
 *nl
-	if pcs_lovers_days[i] > 15 and harakBoy[i] = 2:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 1:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 0:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 2:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 1:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 30 and harakBoy[i] = 0:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
 	act 'Laugh':
 		cla
-		pcs_lovers_rel[i] += 1
+		loverrelation[lover_number] += 1
 		xgt 'parkM', 'a'
 	end
 
@@ -25,30 +25,30 @@ if $ARGS[0] = 'start':
 
 	act 'Not funny':
 		cla
-		pcs_lovers_rel[i] -= 1
+		loverrelation[lover_number] -= 1
 		xgt 'parkM', 'a'
 	end
 end
 
 if $ARGS[0] = 'a':
-	if harakBoy[i] = 0:
+	if haraklover[lover_number] = 0:
 		gs 'stihi'
-		'<<$boydesc[i]>> reads poetry for you <<$stihi>>.'
+		'<<$loverdesc[lover_number]>> reads poetry for you <<$stihi>>.'
 
 		act 'Further':gt 'parkM', 'aa'
-	elseif harakBoy[i] = 1:
-		'<<$boydesc[i]>> to take you by the hand and leads you through the deserted paths of the park.'
+	elseif haraklover[lover_number] = 1:
+		'<<$loverdesc[lover_number]>> to take you by the hand and leads you through the deserted paths of the park.'
 
 		act 'Further':gt 'parkM', 'aa'
-	elseif harakBoy[i] = 2:
-		'<<$boydesc[i]>> hugs you waist. "You''re a cool girl." he said and leans into kiss you on the lips.'
+	elseif haraklover[lover_number] = 2:
+		'<<$loverdesc[lover_number]>> hugs you waist. "You''re a cool girl." he said and leans into kiss you on the lips.'
 
 		act 'Kiss':gt'parkM','kiss'
 		act 'Step back':
 			cla
 			pcs_dom += 1
-			pcs_lovers_rel[i] -= 1
-			'<<$boydesc[i]>> does not look happy as you pull away from his kiss, "Okay, <<$pcs_nickname>>, lets keep on trekking."'
+			loverrelation[lover_number] -= 1
+			'<<$loverdesc[lover_number]>> does not look happy as you pull away from his kiss, "Okay, <<$pcs_nickname>>, lets keep on trekking."'
 
 			act 'Next.':gt 'parkM', 'aa'
 		end
@@ -56,8 +56,8 @@ if $ARGS[0] = 'a':
 end
 
 if $ARGS[0] = 'kiss':
-	pcs_lovers_rel[i] += 1
-	'<<$boydesc[i]>> kisses you and reaches around to gently massage your ass. His touch excits you and  <<$boydesc[i]>> takes you by the hand and drags you into the bushes.'
+	loverrelation[lover_number] += 1
+	'<<$loverdesc[lover_number]>> kisses you and reaches around to gently massage your ass. His touch excits you and  <<$loverdesc[lover_number]>> takes you by the hand and drags you into the bushes.'
 
 	gs 'arousal', 'kiss', 15
 	gs 'stat'
@@ -65,8 +65,8 @@ if $ARGS[0] = 'kiss':
 	act 'Stop it':
 		cla
 		pcs_dom += 1
-		pcs_lovers_rel[i] -= 1
-		'<<$boydesc[i]>> does not look happy as you push his hand away, "Okay, <<$pcs_nickname>>, Let''s keep on going."'
+		loverrelation[lover_number] -= 1
+		'<<$loverdesc[lover_number]>> does not look happy as you push his hand away, "Okay, <<$pcs_nickname>>, Let''s keep on going."'
 
 		act 'Further':gt 'parkM', 'aa'
 	end
@@ -78,10 +78,10 @@ if $ARGS[0] = 'sexrand':
 	cla
 	clr
 	*clr
-	pcs_lovers_rel[i] += 1
+	loverrelation[lover_number] += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park.jpg"></center>'
-	'<<$boydesc[i]>> pulls you into the bushes and exposes your breasts, suckling on your nipples. You close your eyes, immersed in bliss. <<$boydesc[i]>> kneels in front of you and starts on your pussy.'
+	'<<$loverdesc[lover_number]>> pulls you into the bushes and exposes your breasts, suckling on your nipples. You close your eyes, immersed in bliss. <<$loverdesc[lover_number]>> kneels in front of you and starts on your pussy.'
 
 	gs 'arousal', 'breasts', 15
 	gs 'arousal', 'cuni', 15
@@ -91,8 +91,8 @@ if $ARGS[0] = 'sexrand':
 	act 'Stop it':
 		cla
 		pcs_dom += 1
-		pcs_lovers_rel[i] -= 1
-		'You sidestep and cover your chest, <<$boydesc[i]>> looks annoyed, "Okay, <<$pcs_nickname>>, Let''s go."'
+		loverrelation[lover_number] -= 1
+		'You sidestep and cover your chest, <<$loverdesc[lover_number]>> looks annoyed, "Okay, <<$pcs_nickname>>, Let''s go."'
 
 		act 'Further':gt 'parkM', 'aa'
 	end
@@ -104,10 +104,10 @@ if $ARGS[0] = 'sexrand1':
 	cla
 	clr
 	*clr
-	pcs_lovers_rel[i] += 1
+	loverrelation[lover_number] += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park1.jpg"></center>'
-	'<<$boydesc[i]>> bares your pussy and began to caress it gently, then increasing the tempo, you are very excited, your pussy is sopping, aching for more. <<$boydesc[i]>> whispers to you, "Suck me!"'
+	'<<$loverdesc[lover_number]>> bares your pussy and began to caress it gently, then increasing the tempo, you are very excited, your pussy is sopping, aching for more. <<$loverdesc[lover_number]>> whispers to you, "Suck me!"'
 
 	gs 'arousal', 'vaginal_finger', 15
 	gs 'stat'
@@ -115,8 +115,8 @@ if $ARGS[0] = 'sexrand1':
 	act 'We can not do that here':
 		cla
 		pcs_dom += 1
-		pcs_lovers_rel[i] -= 1
-		'You backed away from him and began to dress, <<$boydesc[i]>> does not look happy, "Okay, <<$pcs_nickname>>, Let''s go."'
+		loverrelation[lover_number] -= 1
+		'You backed away from him and began to dress, <<$loverdesc[lover_number]>> does not look happy, "Okay, <<$pcs_nickname>>, Let''s go."'
 
 		act 'Next':gt 'parkM', 'aa'
 	end
@@ -128,13 +128,13 @@ if $ARGS[0] = 'sexrand2':
 	cla
 	clr
 	*clr
-	pcs_lovers_rel[i] += 1
+	loverrelation[lover_number] += 1
 	bja += 1
 	gs 'brosok'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park2.jpg"></center>'
-	'You kneel in front of <<$boydesc[i]>> swallowing his sticking <<pcs_lovers_dick[i]>> centimeter member. You cup his balls and began to suck.'
-	'After a few minutes <<$boydesc[i]>> tells you, "Baby, if you continue, I''ll finish. Let''s have sex!"'
+	'You kneel in front of <<$loverdesc[lover_number]>> swallowing his sticking <<loverdick[lover_number]>> centimeter member. You cup his balls and began to suck.'
+	'After a few minutes <<$loverdesc[lover_number]>> tells you, "Baby, if you continue, I''ll finish. Let''s have sex!"'
 
 	gs 'arousal', 'bj', 15, 'sub'
 	gs 'stat'
@@ -147,15 +147,15 @@ if $ARGS[0] = 'sexrand3':
 	cla
 	clr
 	*clr
-	pcs_lovers_rel[i] += 1
+	loverrelation[lover_number] += 1
 	spafinloc = 12
 gs 'cum_manage'
 	swallow += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park3.jpg"></center>'
-	'You continued enthusiastically sucking his cock and <<$boydesc[i]>> moans, grabs you by the hair realising a vigorous stream of burning semen into your mouth.'
+	'You continued enthusiastically sucking his cock and <<$loverdesc[lover_number]>> moans, grabs you by the hair realising a vigorous stream of burning semen into your mouth.'
 	'You choke swallowing it, but his mightly load doesn''t fit in your mouths and pours out spreading onto your chin.'
-	'<<$boydesc[i]>> pulls his member out of you cum-filled mouth stuffed and tucked it into his pants, helping you rise then says goodbye, promising to call you.'
+	'<<$loverdesc[lover_number]>> pulls his member out of you cum-filled mouth stuffed and tucked it into his pants, helping you rise then says goodbye, promising to call you.'
 
 	gs 'arousal', 'bj', 15, 'sub'
 	gs 'arousal', 'end'
@@ -167,13 +167,13 @@ end
 if $ARGS[0] = 'sexrand4':
 	cls
 	pose = 1
-	gs 'boyStat', $Boy[i]
+	gs 'boyStat', $lover[lover_number]
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/park/park4.jpg"></center>'
-	'<<$boydesc[i]>> pulls you to your feet, turns you around and bends you over as he enters you. You have to grab the ground to keep from going over as he pounds you.'
+	'<<$loverdesc[lover_number]>> pulls you to your feet, turns you around and bends you over as he enters you. You have to grab the ground to keep from going over as he pounds you.'
 	
 	gs 'arousal', 'vaginal', 15, 'sub'
 	gs 'arousal', 'end'
-	gs 'cum_call', '', $Boy[i], 1
+	gs 'cum_call', '', $lover[lover_number], 1
 	gs 'stat'
 
 	act 'Leave':gt 'park', 'start'
@@ -181,7 +181,7 @@ end
 
 if $ARGS[0] = 'aa':
 	minut += 30
-	'Walked an hour <<$boydesc[i]>> proposed to hold you.'
+	'Walked an hour <<$loverdesc[lover_number]>> proposed to hold you.'
 
 	act 'Home':gt 'sexm', 'start'
 end

locations/parkivent

@@ -766,7 +766,7 @@ if $ARGS[0] = '8':
 			cla
 			gs 'boyfrend', 'start'
 			stopboy = 0
-			'<<$boydesc[i]>> recorded your phone and left.'
+			'<<$loverdesc[lover_number]>> recorded your phone and left.'
 
 			act 'Complete walk':gt 'park', 'start'
 		end
@@ -782,35 +782,35 @@ end
 if $ARGS[0] = '9':
 	gs 'stat'
 
-	if bfa >= 1:
+	if pcs_lover[i] >= 1:
 		cls
-		'You walk through the park and you notice how the meeting goes your man <<$boydescA>>'
+		'You walk through the park and you notice how the meeting goes your man <<$loverdesc[lover_number]>>'
 
-		act 'Leave':bfa -= 1 & gt 'park', 'start'
+		act 'Leave':loverrelation[lover_number]-= 1 & gt 'park', 'start'
 
-		if boyonce[i] = 0 or SUB = 0 and pcs_dom = 0:
+		if boyonce[lover_number] = 0 or SUB = 0 and pcs_dom = 0:
 			act 'Nice to talk':
 				cla
-				bfa += 2
+				loverrelation[lover_number] += 2
 				minut += 15
-				'<<$boydescA>> bradovalsya your chance meeting and hugged you. You nice talk and kiss goodbye to split each according to his deeds.'
+				'<<$loverdesc[lover_number]>> bradovalsya your chance meeting and hugged you. You nice talk and kiss goodbye to split each according to his deeds.'
 
 				act 'Complete walk':gt 'park', 'start'
 			end
-		elseif boyonce[i] = 1 and SUB > 0:
-			'<<$boydescA>> glad you and taking you by the hand led to a deeper into the park.'
+		elseif boyonce[lover_number] = 1 and SUB > 0:
+			'<<$loverdesc[lover_number]>> glad you and taking you by the hand led to a deeper into the park.'
 
 			act 'Go with the guy.':gt 'event', 'park'
-		elseif boyonce[i] = 1 and pcs_dom > 0:
-			'<<$boydescA>> glad you and taking you by the hand led to a deeper into the park.'
+		elseif boyonce[lover_number] = 1 and pcs_dom > 0:
+			'<<$loverdesc[lover_number]>> glad you and taking you by the hand led to a deeper into the park.'
 
 			act 'Offer to sit on the bench. (You decide to have sex with a guy.)':gt 'event', 'park'
 
 			act 'Nice to talk':
 				cla
-				bfa += 5
+				loverrelation[lover_number] += 5
 				minut += 15
-				'<<$boydescA>> bradovalsya your chance meeting and hugged you. You nice talk and kiss goodbye to split each according to his deeds.'
+				'<<$loverdesc[lover_number]>> bradovalsya your chance meeting and hugged you. You nice talk and kiss goodbye to split each according to his deeds.'
 
 				act 'Complete walk':gt 'park', 'start'
 			end

locations/podezdM

@@ -2,38 +2,38 @@
 
 if $ARGS[0] = 'start':
 	minut += 15
-	'<<$boydesc[i]>> turns to you and says, "Let''s go to the store and get some beer."'
+	'<<$loverdesc[lover_number]>> turns to you and says, "Let''s go to the store and get some beer."'
 
 	act 'Walk while embraced':
 		cla
-		if harakBoy[i] = 0:pcs_lovers_rel[i] += 2
-		if harakBoy[i] = 1:pcs_lovers_rel[i] += 1
-		if harakBoy[i] = 2:pcs_lovers_rel[i] -= 1
+		if haraklover[lover_number] = 0:loverrelation[lover_number] += 2
+		if haraklover[lover_number] = 1:loverrelation[lover_number] += 1
+		if haraklover[lover_number] = 2:loverrelation[lover_number] -= 1
 
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo.jpg"></center>'
-		'You walk to the kiosk, your bodies close, his arm around your shoulders, once there <<$boydesc[i]>> buys beer and chips and you leave by the exit.'
+		'You walk to the kiosk, your bodies close, his arm around your shoulders, once there <<$loverdesc[lover_number]>> buys beer and chips and you leave by the exit.'
 		gt 'podezdM', 'kiosk'
 	end
 
 	act 'Go holding hands':
 		cla
-		if harakBoy[i] = 0:pcs_lovers_rel[i] += 1
-		if harakBoy[i] = 1:pcs_lovers_rel[i] += 2
-		if harakBoy[i] = 2:pcs_lovers_rel[i] -= 1
+		if haraklover[lover_number] = 0:loverrelation[lover_number] += 1
+		if haraklover[lover_number] = 1:loverrelation[lover_number] += 2
+		if haraklover[lover_number] = 2:loverrelation[lover_number] -= 1
 
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo1.jpg"></center>'
-		'You walk to the kiosk holding hands, once there <<$boydesc[i]>> buys beer and chips and you leave by the exit.'
+		'You walk to the kiosk holding hands, once there <<$loverdesc[lover_number]>> buys beer and chips and you leave by the exit.'
 		gt 'podezdM', 'kiosk'
 	end
 
 	act 'Go':
 		cla
-		if harakBoy[i] = 0:pcs_lovers_rel[i] -= 1
-		if harakBoy[i] = 1:pcs_lovers_rel[i] += 1
-		if harakBoy[i] = 2:pcs_lovers_rel[i] += 2
+		if haraklover[lover_number] = 0:loverrelation[lover_number] -= 1
+		if haraklover[lover_number] = 1:loverrelation[lover_number] += 1
+		if haraklover[lover_number] = 2:loverrelation[lover_number] += 2
 
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/boygo2.jpg"></center>'
-		'You go up to the kiosk, there <<$boydesc[i]>> buys beer and chips and you leave by the exit.'
+		'You go up to the kiosk, there <<$loverdesc[lover_number]>> buys beer and chips and you leave by the exit.'
 		gt 'podezdM', 'kiosk'
 	end
 end
@@ -87,20 +87,20 @@ if $ARGS[0] = 'kiosk1':
 	cla
 	*clr
 
-	if pcs_lovers_days[i] > 15 and harakBoy[i] = 2:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 1:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 0:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 2:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 1:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 30 and harakBoy[i] = 0:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
 
 	gs 'anekdot'
-	'While drinking beer and walking back, <<$boydesc[i]>> tells you "<<$anek>>."'
+	'While drinking beer and walking back, <<$loverdesc[lover_number]>> tells you "<<$anek>>."'
 
 	act 'Laugh':
 		cla
 		SUB += 1
-		pcs_lovers_rel[i] += 1
+		loverrelation[lover_number] += 1
 		gt 'podezdM', 'kiosk2'
 	end
 
@@ -112,7 +112,7 @@ if $ARGS[0] = 'kiosk1':
 	act 'Not funny':
 		cla
 		pcs_dom += 1
-		pcs_lovers_rel[i] -= 1
+		loverrelation[lover_number] -= 1
 		gt 'podezdM', 'kiosk2'
 	end
 end
@@ -121,13 +121,13 @@ if $ARGS[0] = 'kiosk2':
 	cla
 	*clr
 	if housr = 1:
-		'<<$boydesc[i]>> drinks his beer and wraps his arm around you. "<<$pcs_nickname>> why don''t we go back to your place?"'
+		'<<$loverdesc[lover_number]>> drinks his beer and wraps his arm around you. "<<$pcs_nickname>> why don''t we go back to your place?"'
 		act 'Invite him':gt 'sexm', 'start'
 		act 'Turn him down':gt 'podezdM', 'Walk'
 		act 'I have to go, call you later':gt $loc, $metka
 		
 	else
-		'<<$boydesc[i]>> drinks his beer and wraps his arm around you. "<<$pcs_nickname>> why don''t you come back to my place?"'
+		'<<$loverdesc[lover_number]>> drinks his beer and wraps his arm around you. "<<$pcs_nickname>> why don''t you come back to my place?"'
 		act 'Agree':gt 'sexm', 'start'
 		act 'Turn him down':gt 'podezdM', 'Walk'
 		act 'I have to go, call you later.':gt $loc, $metka
@@ -135,7 +135,7 @@ if $ARGS[0] = 'kiosk2':
 end
 
 if $ARGS[0] = 'Walk':
-	'<<$boydesc[i]>> drained the beer and threw the bottle aside. "<<$pcs_nickname>>, you''re so hot, I want you!" with these words he pulled you into a tight hug and kissed you, his hands reached down and grabbed you by the ass and gave it a hard squeeze.'
+	'<<$loverdesc[lover_number]>> drained the beer and threw the bottle aside. "<<$pcs_nickname>>, you''re so hot, I want you!" with these words he pulled you into a tight hug and kissed you, his hands reached down and grabbed you by the ass and gave it a hard squeeze.'
 
 	gs 'arousal', 'kiss', 3
 	gs 'stat'
@@ -143,7 +143,7 @@ if $ARGS[0] = 'Walk':
 	act 'Break away':
 		cla
 		pcs_dom += 1
-		pcs_lovers_rel[i] -= 1
+		loverrelation[lover_number] -= 1
 		'You push against him and finally manage to push him off you, he stumbles back a step. He seems a bit confused you pushed him away. "What the fuck? Don''t treat me like that." With that you turn and walk away.'
 		act 'I have to go, call you later':gt $loc, $metka
 	end
@@ -172,7 +172,7 @@ if $ARGS[0] = 'Walk':
 	end
 	act 'I want you':
 		cla
-		pcs_lovers_rel[i] += 1
+		loverrelation[lover_number] += 1
 		'You kiss him back and rub the crotch of his pants. "I want you, I want you right now, I need you in me so badly." you tell him.'
 		gs 'arousal', 'kiss', 3, 'sub'
 		gs 'arousal', 'foreplay', 3, 'sub'
@@ -187,14 +187,14 @@ if $ARGS[0] = 'grup':
 	cla
 	*clr
 	'<center><img <<$set_imgh>> src="images/locations/shared/apartment/podezdm1.jpg"></center>'
-	'In a stairwell is a few guys drinking, when you come in they turn and see <<$boydesc[i]>> and greet him. They offer you both a drink from their bottle of vodka.'
+	'In a stairwell is a few guys drinking, when you come in they turn and see <<$loverdesc[lover_number]>> and greet him. They offer you both a drink from their bottle of vodka.'
 
 	act 'Refuse to drink':
 		cla
 
-		if harakBoy[i] = 0:pcs_lovers_rel[i] += 1
-		if harakBoy[i] = 1:pcs_lovers_rel[i] -= 1
-		if harakBoy[i] = 2:pcs_lovers_rel[i] -= 2
+		if haraklover[lover_number] = 0:loverrelation[lover_number] += 1
+		if haraklover[lover_number] = 1:loverrelation[lover_number] -= 1
+		if haraklover[lover_number] = 2:loverrelation[lover_number] -= 2
 
 		gt 'podezdM', 'grup1'
 	end
@@ -207,9 +207,9 @@ if $ARGS[0] = 'grup':
 		pcs_breath = 0
 		gs 'stat'
 
-		if harakBoy[i] = 0:pcs_lovers_rel[i] += 1
-		if harakBoy[i] = 1:pcs_lovers_rel[i] += 2
-		if harakBoy[i] = 2:pcs_lovers_rel[i] += 1
+		if haraklover[lover_number] = 0:loverrelation[lover_number] += 1
+		if haraklover[lover_number] = 1:loverrelation[lover_number] += 2
+		if haraklover[lover_number] = 2:loverrelation[lover_number] += 1
 
 		gt 'podezdM', 'grup1'
 	end
@@ -225,9 +225,9 @@ if $ARGS[0] = 'grup':
 		pcs_willpwr += 10
 		gs 'stat'
 
-		if harakBoy = 0:pcs_lovers_rel[i] -= 1
-		if harakBoy = 1:pcs_lovers_rel[i] += 1
-		if harakBoy = 2:pcs_lovers_rel[i] += 2
+		if harakBoy = 0:loverrelation[lover_number] -= 1
+		if harakBoy = 1:loverrelation[lover_number] += 1
+		if harakBoy = 2:loverrelation[lover_number] += 2
 
 		gt 'podezdM', 'grup2'
 	end
@@ -237,7 +237,7 @@ if $ARGS[0] = 'grup1':
 	cla
 	*clr
 	gs 'stat'
-	'<<$boydesc[i]>> drinks with them, they tell sexist jokes and the boys all laugh, after a few minutes. <<$boydesc[i]>> tells them he needs to go and takes you up stairs.'
+	'<<$loverdesc[lover_number]>> drinks with them, they tell sexist jokes and the boys all laugh, after a few minutes. <<$loverdesc[lover_number]>> tells them he needs to go and takes you up stairs.'
 
 	act 'Go up stairs':gt 'sexm', 'start'
 end
@@ -248,30 +248,30 @@ if $ARGS[0] = 'grup2':
 	gs 'stat'
 	'You feel yourself getting drunk and slip off the rail you was leaning against and nearly fall. One of the boys catches you and pulls you into his lap, another one reaches over and paws at your breasts.'
 
-	if harakBoy[i] = 0:
+	if haraklover[lover_number] = 0:
 
-		'<<$boydesc[i]>> began to mumble, "Come on guys, that''s my girl."'
+		'<<$loverdesc[lover_number]>> began to mumble, "Come on guys, that''s my girl."'
 		'The drunken guys just laughed at him and began pulling off your clothes.'
 
 		act 'Resist':gt 'sexm', 'gangrape'
 		act 'Surrender':gt 'sexm', 'gangbang'
 
-	elseif harakBoy[i] = 1:
-		'<<$boydesc[i]>> stands up and yells, "Hey, not cool bro! That''s my chick, hands off!"'
+	elseif haraklover[lover_number] = 1:
+		'<<$loverdesc[lover_number]>> stands up and yells, "Hey, not cool bro! That''s my chick, hands off!"'
 		'The guys let go of you and put up their hands. "No problem man, we was just having a little harmless fun, we didn''t mean anything by it."'
 
 		act 'Go upstairs':gt 'sexm', 'start'
-		act 'Ignore <<$boydesc[i]>> and kiss the guys':gt 'sexm', 'gangbang'
+		act 'Ignore <<$loverdesc[lover_number]>> and kiss the guys':gt 'sexm', 'gangbang'
 
-	elseif harakBoy[i] = 2 and izvrat = 0:
-		'<<$boydesc[i]>> stood up and silently broke a bottle over the head guy who was pawing at your breasts, the guy fell to the floor and groaned. <<$boydesc[i]>> quietly and confidently said, "Who else wants some?"'
+	elseif haraklover[lover_number] = 2 and izvrat = 0:
+		'<<$loverdesc[lover_number]>> stood up and silently broke a bottle over the head guy who was pawing at your breasts, the guy fell to the floor and groaned. <<$loverdesc[lover_number]>> quietly and confidently said, "Who else wants some?"'
 		'The guys instantly release you and move aside.'
 
 		act 'Go upstairs':gt 'sexm', 'start'
 		act 'Or maybe all together ..?':gt 'sexm', 'gangbang'
 
-	elseif harakBoy[i] = 2 and izvrat = 1:
-		'Seeing this <<$boydesc[i]>> laughs and  announces, "Lets have some fun with this little slut!"'
+	elseif haraklover[lover_number] = 2 and izvrat = 1:
+		'Seeing this <<$loverdesc[lover_number]>> laughs and  announces, "Lets have some fun with this little slut!"'
 		'The drunk guys are enthusiastic about the proposal and start pulling off your clothes.'
 
 		act 'Resist':gt 'sexm', 'gangrape'
@@ -282,13 +282,13 @@ end
 
 if $ARGS[0] = 'alleyway':
     cls
-	gs 'boyStat', $Boy[i]
+	gs 'boyStat', $lover[lover_number]
 	if dick > pcs_vag: pcs_vag += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/alleyway.gif"></center>'
 	'At your words he grabs you and drags you into a nearby alleyway past a dumpster, around the corner. Just out of view of the street, pushes you up against the wall and pulls your clothes off just enough to expose your ass and give him access to your pussy.'
 	'He turns you to face the wall, while he reaches around with one hand and grabs your thigh and lifts your leg up in the air. With his other hand, he lines up his dick and rubs it against your pussy lips until the tip of his dick is nice and wet. Once it is, he slides his dick into you and starts fucking you.'
-	'You hold onto a chain hanging from the side of the building to help keep your balancing, the thought of getting caught turns you on more than you care to admit. You can hear people just a few meters away passing by on the sidewalk, just out of view. You try to be quiet, but soon your moans start getting louder and louder. "Oh god yes <<$boydesc[i]>>, fuck me, fuck me harder!" You tell him and he starts grunting hammering your pussy as hard as he can.'
+	'You hold onto a chain hanging from the side of the building to help keep your balancing, the thought of getting caught turns you on more than you care to admit. You can hear people just a few meters away passing by on the sidewalk, just out of view. You try to be quiet, but soon your moans start getting louder and louder. "Oh god yes <<$loverdesc[lover_number]>>, fuck me, fuck me harder!" You tell him and he starts grunting hammering your pussy as hard as he can.'
 	gs 'arousal', 'vaginal', 15, 'sub', 'rough'
 	gs 'stat'
 	

locations/restoranM

@@ -4,20 +4,20 @@ $location_type = 'public_indoors'
 
 if $ARGS[0] = 'start':
 	minut += 30
-	'You arrive at the restaurant and sit at a table. <<$boydesc[i]>> orders a meal and good wine. You have to wait a little until the food arrives.'
-	'<<$boydesc[i]>> tells you an anecdote:<br>'
+	'You arrive at the restaurant and sit at a table. <<$loverdesc[lover_number]>> orders a meal and good wine. You have to wait a little until the food arrives.'
+	'<<$loverdesc[lover_number]>> tells you an anecdote:<br>'
 	gs 'anekdot'
 *nl
-	if pcs_lovers_days[i] > 15 and harakBoy[i] = 2:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 1:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 0:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 20 and harakBoy[i] = 2:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 25 and harakBoy[i] = 1:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 30 and harakBoy[i] = 0:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 15 and haraklover[lover_number] = 2:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 1:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 0:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 20 and haraklover[lover_number] = 2:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 25 and haraklover[lover_number] = 1:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 30 and haraklover[lover_number] = 0:gs 'boylove', 'figure'
 	
 	act 'Laugh':
 		cla
-		pcs_lovers_rel[i] += 1
+		loverrelation[lover_number] += 1
 		xgt 'restoranM', 'a'
 	end
 
@@ -28,7 +28,7 @@ if $ARGS[0] = 'start':
 
 	act 'Its not funny':
 		cla
-		pcs_lovers_rel[i] -= 1
+		loverrelation[lover_number] -= 1
 		xgt 'restoranM', 'a'
 	end
 end
@@ -36,7 +36,7 @@ end
 if $ARGS[0] = 'a':
 	minut += 30
 	alko += 1
-	'When your food arrives, <<$boydesc[i]>> pours you a glass of wine and proposes a toast to love.'
+	'When your food arrives, <<$loverdesc[lover_number]>> pours you a glass of wine and proposes a toast to love.'
 
 	act 'Eat':
 		cla
@@ -52,7 +52,7 @@ if $ARGS[0] = 'b':
 	gs 'food', 'm_meal'
 	alko += 2
 	gs 'stat'
-	'After you finish your meal and empty the wine, <<$boydesc[i]>> offers to take you to his home.'
+	'After you finish your meal and empty the wine, <<$loverdesc[lover_number]>> offers to take you to his home.'
 
 	act 'Go Home':gt 'sexm', 'start'
 end

locations/stat_display

@@ -315,9 +315,9 @@ if Enable_showrelation = 1:
 	if hantersAndreiQw > 0:gs'show_table','Hunter Andrew: <<hantersAndreiQw>>','2'
 	if hantersSergeiQw > 0:gs'show_table','Hunter Sergei: <<hantersSergeiQw>>','2'
 	if hantersIgorQw > 0:gs'show_table','Hunter Igor: <<hantersIgorQw>>','2'
-	if pcs_lovers[1] = 1:gs'show_table', 'BF <<$boydesc[1]>>: <<pcs_lovers_rel[1]>>','2'
-	if pcs_lovers[2] = 1:gs'show_table', 'BF <<$boydesc[2]>>: <<pcs_lovers_rel[2]>>','2'
-	if pcs_lovers[3] = 1:gs'show_table', 'BF <<$boydesc[3]>>: <<pcs_lovers_rel[3]>>','2'
+	if pcs_lovers[1] = 1:gs'show_table', 'BF <<$loverdesc[1]>>: <<loverrelation[1]>>','2'
+	if pcs_lovers[2] = 1:gs'show_table', 'BF <<$loverdesc[2]>>: <<loverrelation[2]>>','2'
+	if pcs_lovers[3] = 1:gs'show_table', 'BF <<$loverdesc[3]>>: <<loverrelation[3]>>','2'
 	if StoryLine > 0:
 		if npc_rel['A29'] > 0:gs'show_table','Mother: <<npc_rel[''A29'']>>','2'
 		if npc_rel['A28'] > 0:gs'show_table','Father: <<npc_rel[''A28'']>>','2'
@@ -994,8 +994,8 @@ elseif tanwork = 1:
 	$streetev_home = 'Tanya''s apartment'
 elseif student > 0:
 	$streetev_home = 'your dorm'
-!elseif ParHomeBlock = 0 and storyline = 1:
-!	$streetev_home = 'outside your apartment block'
+elseif ParHomeBlock = 0 and storyline = 1:
+	$streetev_home = 'outside your apartment block'
 else
 	$streetev_home = 'the train station'
 end

locations/street_event

@@ -93,7 +93,7 @@ if $ARGS[1] = 'extras':
 				cla
 				gs 'boyfrend', 'start'
 				stopboy = 0
-				'<<$boydesc[i]>> takes your number and leaves.'
+				'<<$loverdesc[lover_number]>> takes your number and leaves.'
 				act 'Continue':gt $loc
 			end
 		end
@@ -104,18 +104,21 @@ if $ARGS[1] = 'extras':
 		if vladimirday = daystart and vladimirQW = 40 and hour >= 16 and week = 6:'<a href="exec:gt ''qwmeet3''">There''s an Audi parked in front of your building and standing beside it you notice Vladimir</a>.'
 
 		if hour = meethourA:
-			if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boydesc[1]>></a> waits <<$streetev_home>>.</b>'
+			if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$loverdesc[1]>></a> waits <<$streetev_home>>.</b>'
+			lover_number = 1
 		end
 		if hour = meethourB:
-			if svidanieB = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boydesc[2]>></a> waits <<$streetev_home>>.</b>'
+			if svidanieB = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$loverdesc[2]>></a> waits <<$streetev_home>>.</b>'
+			lover_number = 2
 		end
 		if hour = meethourC:
-			if svidanieC = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boydesc[3]>></a> waits <<$streetev_home>>.</b>'
+			if svidanieC = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$loverdesc[3]>></a> waits <<$streetev_home>>.</b>'
+			lover_number = 3
 		end
 !		if hour = meethour:
-!			if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$boydesc[1]>></a> waits <<$streetev_home>>.</b>'
-!			if svidanieB = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boydesc[2]>></a> waits <<$streetev_home>>.</b>'
-!			if svidanieC = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$boydesc[3]>></a> waits <<$streetev_home>>.</b>'
+!			if svidanieA = 1:'<b><a href="exec:gt ''meet'', ''start''"><<$loverdesc[1]>></a> waits <<$streetev_home>>.</b>'
+!			if svidanieB = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$loverdesc[2]>></a> waits <<$streetev_home>>.</b>'
+!			if svidanieC = 1:'<b><a href="exec:gt ''svidan'', ''start''"><<$loverdesc[3]>></a> waits <<$streetev_home>>.</b>'
 !		end
 	end
 end

locations/svi

@@ -4,8 +4,8 @@ if $ARGS[0] = 'poor':
 	minut += 20
 
 	if Venera >= 3:
-		bfA = 0
-		'<<$boydesc[i]>> you saw signs of venereal disease and dumped you.'
+		loverrelation[lover_number] = 0
+		'<<$loverdesc[lover_number]>> you saw signs of venereal disease and dumped you.'
 
 		act 'Leave':dynamic $brodilr
 
@@ -14,14 +14,14 @@ if $ARGS[0] = 'poor':
 
 	if pcs_sweat > 24:
 		!!sweating
-		bfA -= 1
+		loverrelation[lover_number] -= 1
 
-		if harakBoy[i] = 0:'<<$boydesc[i]>> tells you that he appeared urgent business.'
-		if harakBoy[i] = 1:'<<$boydesc[i]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
-		if harakBoy[i] = 2:'<<$boydesc[i]>> tells you that you would not hurt to wash.'
-		if harakBoy[i] = 3:'<<$boydesc[i]>> tells you that it appeared urgent business.'
-		if harakBoy[i] = 4:'<<$boydesc[i]>> wrinkles her nose in disgust and tells you that she appeared urgent business.'
-		if harakBoy[i] = 5:'<<$boydesc[i]>> tells you that you would not hurt to wash.'
+		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
+		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
+		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'
+		if haraklover[lover_number] = 3:'<<$loverdesc[lover_number]>> tells you that it appeared urgent business.'
+		if haraklover[lover_number] = 4:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that she appeared urgent business.'
+		if haraklover[lover_number] = 5:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'
 
 		act 'Leave':dynamic $brodilr
 
@@ -30,88 +30,88 @@ if $ARGS[0] = 'poor':
 
 	if temper < 0 and defaultcoat = 5:
 		!!quilted_jacket
-		bfA -= 1
+		loverrelation[lover_number] -= 1
 
-		if harakBoy[i] = 0:'<<$boydesc[i]>> tells you that he appeared urgent business.'
-		if harakBoy[i] = 1:'<<$boydesc[i]>> scornfully looks at you and tells you that they have any urgent matters.'
-		if harakBoy[i] = 2:'<<$boydesc[i]>> tells you that you are in rags like a scarecrow.'
-		if harakBoy[i] = 3:'<<$boydesc[i]>> tells you that it appeared urgent business.'
-		if harakBoy[i] = 4:'<<$boydesc[i]>> scornfully looks at you and tells you that she had her urgent business.'
-		if harakBoy[i] = 5:'<<$boydesc[i]>> tells you that you are in rags like a scarecrow.'
+		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
+		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have any urgent matters.'
+		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'
+		if haraklover[lover_number] = 3:'<<$loverdesc[lover_number]>> tells you that it appeared urgent business.'
+		if haraklover[lover_number] = 4:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that she had her urgent business.'
+		if haraklover[lover_number] = 5:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'
 
 		act 'Leave':dynamic $brodilr
 
 		exit
 	end
 
-	if harakBoy[i] > 0 and izvrat = 0 and cumloc[11] = 1:
-		bfA = 0
-		'<<$boydesc[i]>> you saw traces of semen. He called you slut had severed relations with you.'
+	if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
+		loverrelation[lover_number] = 0
+		'<<$loverdesc[lover_number]>> you saw traces of semen. He called you slut had severed relations with you.'
 
 		act 'Leave':dynamic $brodilr
 
 		exit
 	end
 
-	if pcs_lovers_days[i] < 10 and boyonce[i] = 0:
+	if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:
 
 		!!candy buketny period
 		vstrand = rand(0, 2)
 
 		if vstrand = 0:
-			'<<$boydesc[i]>> offers a walk in the park.'
+			'<<$loverdesc[lover_number]>> offers a walk in the park.'
 
 			act 'Walk in the park':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'You walked in the park with a guy. <<$boydesc[i]>> telling stories and jokes hunted.'
+				loverrelation[lover_number] += 1
+				'You walked in the park with a guy. <<$loverdesc[lover_number]>> telling stories and jokes hunted.'
 
 				act 'To invite':
 					cla
-					if pcs_lovers_days[i] < 3:bfA -= 1
+					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 					gt 'svidan', 'kvartA'
 				end
 
 				act 'Say goodbye and go home':
 					cla
-					bfA += 1
+					loverrelation[lover_number] += 1
 					dynamic $brodilr
 				end
 			end
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		elseif vstrand = 1:
-			'<<$boydesc[i]>> offers to go to the cinema.'
+			'<<$loverdesc[lover_number]>> offers to go to the cinema.'
 
 			act 'Go to the cinema':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'You went to the cinema for a new movie. <<$boydesc[i]>> hug you.'
+				loverrelation[lover_number] += 1
+				'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'
 
-				act 'Hug his hand':
+				act 'Hold his hand':
 					cla
-					bfA += 1
-					'You watch a movie guy hugging hand. Finally the film ends.'
+					loverrelation[lover_number] += 1
+					'You watch a movie while holding hand. Finally the film ends.'
 
 					act 'To invite':
 						cla
-						if pcs_lovers_days[i] < 3:bfA -= 1
+						if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 						gt 'svidan', 'kvartA'
 					end
 
 					act 'Say goodbye and go home':
 						cla
-						bfA += 1
+						loverrelation[lover_number] += 1
 						dynamic $brodilr
 					end
 				end
@@ -119,23 +119,23 @@ if $ARGS[0] = 'poor':
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		elseif vstrand = 2:
-			'<<$boydesc[i]>> offers a drink pivasika in porch.'
+			'<<$loverdesc[lover_number]>> offers beers on the porch.'
 
 			act 'Drink beer':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'<<$boydesc[i]>> bought pivasika and crackers and you went with him to the porch, where drinking and fun chatting.'
+				loverrelation[lover_number] += 1
+				'<<$loverdesc[lover_number]>> bought beers and crackers and you went with him to the porch, where drinking and fun chatting.'
 
 				act 'To invite':
 					cla
 
-					if pcs_lovers_days[i] < 3:bfA -= 1
+					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 
 					gt 'svidan', 'kvartA'
@@ -143,24 +143,24 @@ if $ARGS[0] = 'poor':
 
 				act 'Say goodbye and go home':
 					cla
-					bfA += 1
+					loverrelation[lover_number] += 1
 					dynamic $brodilr
 				end
 			end
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		end
-	elseif pcs_lovers_days[i] >= 10 and boyonce[i] = 0:
+	elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:
 
-		'<<$boydesc[i]>> says he''s a grown man and he is not satisfied platonic relationship.'
+		'<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied platonic relationship.'
 
 		act 'Leave':
 			cla
-			bfA = 0
+			loverrelation[lover_number] = 0
 			dynamic $brodilr
 		end
 
@@ -168,7 +168,7 @@ if $ARGS[0] = 'poor':
 			cla
 			*clr
 			minut += 20
-			'You agreed to have sex. <<$boydesc[i]>> happy.'
+			'You agreed to have sex. <<$loverdesc[lover_number]>> happy.'
 
 			act 'Go to your apartment':gt 'svidan', 'kvartA'
 			act 'Go into the bushes':gt 'svidan', 'kustA'
@@ -177,20 +177,20 @@ if $ARGS[0] = 'poor':
 		exit
 	end
 
-	if pcs_lovers_days[i] > 15:gs 'boylove', 'haer'
-	if pcs_lovers_days[i] > 30:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 60:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 15:gs 'boylove', 'haer'
+	if loverdays[lover_number] > 30:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 60:gs 'boylove', 'tits'
 
-	if boyonce[i] > 0:
+	if boyonce[lover_number] > 0:
 
-		'<<$boydesc[i]>> offers to hang out in the stairwell with pivasikom.'
+		'<<$loverdesc[lover_number]>> offers to hang out in the stairwell with pivasikom.'
 
 		act 'Potusit':
 			cla
 			minut += 60
 			fat += 1
-			bfA += 1
-			'You drank beer in the stairwell with her boyfriend. <<$boydesc[i]>> hugged you and said that he wants you.'
+			loverrelation[lover_number] += 1
+			'You drank beer in the stairwell with her boyfriend. <<$loverdesc[lover_number]>> hugged you and said that he wants you.'
 
 			act 'Go to your apartment':gt 'svidan', 'kvartA'
 			act 'Go into the bushes':gt 'svidan', 'kustA'
@@ -198,7 +198,7 @@ if $ARGS[0] = 'poor':
 
 		act 'Refuse':
 			cla
-			bfA -= 1
+			loverrelation[lover_number] -= 1
 			dynamic $brodilr
 		end
 	end
@@ -208,8 +208,8 @@ if $ARGS[0] = 'norm':
 	minut += 20
 
 	if Venera >= 3:
-		bfA = 0
-		'<<$boydesc[i]>> you saw signs of venereal disease and dumped you.'
+		loverrelation[lover_number] = 0
+		'<<$loverdesc[lover_number]>> you saw signs of venereal disease and dumped you.'
 
 		act 'Leave':dynamic $brodilr
 
@@ -218,11 +218,11 @@ if $ARGS[0] = 'norm':
 
 	if pcs_sweat > 24:
 		!!sweating
-		bfA -= 1
+		loverrelation[lover_number] -= 1
 
-		if harakBoy[i] = 0:'<<$boydesc[i]>> tells you that he appeared urgent business.'
-		if harakBoy[i] = 1:'<<$boydesc[i]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
-		if harakBoy[i] = 2:'<<$boydesc[i]>> tells you that you would not hurt to wash.'
+		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
+		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
+		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'
 
 		act 'Leave':dynamic $brodilr
 
@@ -231,45 +231,45 @@ if $ARGS[0] = 'norm':
 
 	if temper < 0 and defaultcoat = 5:
 		!!quilted_jacket
-		bfA -= 1
+		loverrelation[lover_number] -= 1
 
-		if harakBoy[i] = 0:'<<$boydesc[i]>> tells you that he appeared urgent business.'
-		if harakBoy[i] = 1:'<<$boydesc[i]>> scornfully looks at you and tells you that they have any urgent matters.'
-		if harakBoy[i] = 2:'<<$boydesc[i]>> tells you that you are in rags like a scarecrow.'
+		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
+		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have any urgent matters.'
+		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'
 
 		act 'Leave':dynamic $brodilr
 
 		exit
 	end
 
-	if harakBoy[i] > 0 and izvrat = 0 and cumloc[11] = 1:
-		bfA = 0
-		'<<$boydesc[i]>> you saw traces of semen. He called you slut had severed relations with you.'
+	if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
+		loverrelation[lover_number] = 0
+		'<<$loverdesc[lover_number]>> you saw traces of semen. He called you slut had severed relations with you.'
 
 		act 'Leave':dynamic $brodilr
 
 		exit
 	end
 
-	if pcs_lovers_days[i] < 10 and boyonce[i] = 0:
+	if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:
 
 		!!candy buketny period
 		vstrand = rand(0, 2)
 
 		if vstrand = 0:
-			'<<$boydesc[i]>> offers to go to the cafe.'
+			'<<$loverdesc[lover_number]>> offers to go to the cafe.'
 
 			act 'Go to the cafe':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'You went to a cafe with a guy. <<$boydesc[i]>> telling stories and jokes hunted.'
+				loverrelation[lover_number] += 1
+				'You went to a cafe with a guy. <<$loverdesc[lover_number]>> telling stories and jokes hunted.'
 
 				act 'To invite':
 					cla
 
-					if pcs_lovers_days[i] < 3:bfA -= 1
+					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 
 					gt 'svidan', 'kvartA'
@@ -277,35 +277,35 @@ if $ARGS[0] = 'norm':
 
 				act 'Say goodbye and go home':
 					cla
-					bfA += 1
+					loverrelation[lover_number] += 1
 					dynamic $brodilr
 				end
 			end
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		elseif vstrand = 1:
-			'<<$boydesc[i]>> offers to go to the cinema.'
+			'<<$loverdesc[lover_number]>> offers to go to the cinema.'
 
 			act 'Go to the cinema':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'You went to the cinema for a new movie. <<$boydesc[i]>> hug you.'
+				loverrelation[lover_number] += 1
+				'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'
 
 				act 'Hug his hand':
 					cla
-					bfA += 1
+					loverrelation[lover_number] += 1
 					'You watch a movie guy hugging hand. Finally the film ends.'
 
 					act 'To invite':
 						cla
 
-						if pcs_lovers_days[i] < 3:bfA -= 1
+						if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 
 						gt 'svidan', 'kvartA'
@@ -313,7 +313,7 @@ if $ARGS[0] = 'norm':
 
 					act 'Say goodbye and go home':
 						cla
-						bfA += 1
+						loverrelation[lover_number] += 1
 						dynamic $brodilr
 					end
 				end
@@ -321,23 +321,23 @@ if $ARGS[0] = 'norm':
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		elseif vstrand = 2:
-			'<<$boydesc[i]>> provides for a walk.'
+			'<<$loverdesc[lover_number]>> provides for a walk.'
 
 			act 'Walk':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'<<$boydesc[i]>> to take you by the arm and you were walking down the street talking.'
+				loverrelation[lover_number] += 1
+				'<<$loverdesc[lover_number]>> to take you by the arm and you were walking down the street talking.'
 
 				act 'To invite':
 					cla
 
-					if pcs_lovers_days[i] < 3:bfA -= 1
+					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 
 					gt 'svidan', 'kvartA'
@@ -345,24 +345,24 @@ if $ARGS[0] = 'norm':
 
 				act 'Say goodbye and go home':
 					cla
-					bfA += 1
+					loverrelation[lover_number] += 1
 					dynamic $brodilr
 				end
 			end
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		end
-	elseif pcs_lovers_days[i] >= 10 and boyonce[i] = 0:
+	elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:
 
-		'<<$boydesc[i]>> says he''s a grown man and he is not satisfied platonic relationship.'
+		'<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied with a platonic relationship.'
 
 		act 'Leave':
 			cla
-			bfA = 0
+			loverrelation[lover_number] = 0
 			dynamic $brodilr
 		end
 
@@ -370,7 +370,7 @@ if $ARGS[0] = 'norm':
 			cla
 			*clr
 			minut += 20
-			'You agreed to have sex. <<$boydesc[i]>> happy.'
+			'You agreed to have sex. <<$loverdesc[lover_number]>> is happy.'
 
 			act 'Go to your apartment':gt 'svidan', 'kvartA'
 
@@ -380,23 +380,23 @@ if $ARGS[0] = 'norm':
 		exit
 	end
 
-	if pcs_lovers_days[i] > 12 and pcs_skin < 40:bfA -= 1
-	if pcs_lovers_days[i] > 12:gs 'boylove', 'haer'
-	if pcs_lovers_days[i] > 24:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 48:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 22 and pcs_eyesize < 1:bfA -= 1
-	if pcs_lovers_days[i] > 40 and pcs_lip < 1:bfA -= 1
+	if loverdays[lover_number] > 12 and pcs_skin < 40:loverrelation[lover_number] -= 1
+	if loverdays[lover_number] > 12:gs 'boylove', 'haer'
+	if loverdays[lover_number] > 24:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 48:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 22 and pcs_eyesize < 1:loverrelation[lover_number] -= 1
+	if loverdays[lover_number] > 40 and pcs_lip < 1:loverrelation[lover_number] -= 1
 
-	if boyonce[i] > 0:
+	if boyonce[lover_number] > 0:
 
-		'<<$boydesc[i]>> offers sit in a cafe.'
+		'<<$loverdesc[lover_number]>> suggests going to a cafe.'
 
 		act 'The cafe':
 			cla
 			minut += 60
 			fat += 1
-			bfA += 1
-			'You came to the cafe <<$boydesc[i]>> ordered a full table and you sat talking and having fun. <<$boydesc[i]>> hugged you and said that he wants you.'
+			loverrelation[lover_number] += 1
+			'You find a table and <<$loverdesc[lover_number]>> orders for you both.  You enjoy some playful banter. <<$loverdesc[lover_number]>> hugs you and says that he wants you.'
 
 			act 'Go to your apartment':gt 'svidan', 'kvartA'
 			act 'Go in his car':gt 'svidan', 'carA'
@@ -404,7 +404,7 @@ if $ARGS[0] = 'norm':
 
 		act 'Refuse':
 			cla
-			bfA -= 1
+			loverrelation[lover_number] -= 1
 			dynamic $brodilr
 		end
 	end
@@ -414,8 +414,8 @@ if $ARGS[0] = 'reach':
 	minut += 20
 
 	if Venera >= 3:
-		bfA = 0
-		'<<$boydesc[i]>> you saw signs of venereal disease and dumped you.'
+		loverrelation[lover_number] = 0
+		'<<$loverdesc[lover_number]>> says you show signs of venereal disease and dumps you.'
 
 		act 'Leave':dynamic $brodilr
 
@@ -424,11 +424,11 @@ if $ARGS[0] = 'reach':
 
 	if pcs_sweat > 24:
 		!!вsweating
-		bfA -= 1
+		loverrelation[lover_number] -= 1
 
-		if harakBoy[i] = 0:'<<$boydesc[i]>> tells you that he appeared urgent business.'
-		if harakBoy[i] = 1:'<<$boydesc[i]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
-		if harakBoy[i] = 2:'<<$boydesc[i]>> tells you that you would not hurt to wash.'
+		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he has some urgent business.'
+		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he has some urgent business.'
+		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that it would not hurt to wash.'
 
 		act 'Leave':dynamic $brodilr
 
@@ -437,53 +437,53 @@ if $ARGS[0] = 'reach':
 
 	if temper < 0 and defaultcoat = 5:
 	!!quilted_jacket
-		bfA -= 1
+		loverrelation[lover_number] -= 1
 
-		if harakBoy[i] = 0:'<<$boydesc[i]>> tells you that he appeared urgent business.'
-		if harakBoy[i] = 1:'<<$boydesc[i]>> scornfully looks at you and tells you that they have any urgent matters.'
-		if harakBoy[i] = 2:'<<$boydesc[i]>> tells you that you are in rags like a scarecrow.'
+		if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he has urgent business.'
+		if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have urgent matters to attend to.'
+		if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you look like a scarecrow in those rags.'
 
 		act 'Leave':dynamic $brodilr
 
 		exit
 	end
 
-	if harakBoy[i] > 0 and izvrat = 0 and cumloc[11] = 1:
-		bfA = 0
-		'<<$boydesc[i]>> you saw traces of semen. He called you slut had severed relations with you.'
+	if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
+		loverrelation[lover_number] = 0
+		'<<$loverdesc[lover_number]>> sees traces of semen. He calls you a Slut and severs relations with you.'
 
 		act 'Leave':dynamic $brodilr
 
 		exit
 	end
 
-	if pcs_lovers_days[i] > 5 and pcs_skin < 60:bfA -= 1
-	if pcs_lovers_days[i] > 10:gs 'boylove', 'haer'
-	if pcs_lovers_days[i] > 20:gs 'boylove', 'figure'
-	if pcs_lovers_days[i] > 30:gs 'boylove', 'tits'
-	if pcs_lovers_days[i] > 10 and pcs_eyesize < 2:bfA -= 1
-	if pcs_lovers_days[i] > 6 and pcs_lip < 2:bfA -= 1
-	if pcs_lovers_days[i] > 8 and pcs_lashes < 1:bfA -= 1
+	if loverdays[lover_number] > 5 and pcs_skin < 60:loverrelation[lover_number] -= 1
+	if loverdays[lover_number] > 10:gs 'boylove', 'haer'
+	if loverdays[lover_number] > 20:gs 'boylove', 'figure'
+	if loverdays[lover_number] > 30:gs 'boylove', 'tits'
+	if loverdays[lover_number] > 10 and pcs_eyesize < 2:loverrelation[lover_number] -= 1
+	if loverdays[lover_number] > 6 and pcs_lip < 2:loverrelation[lover_number] -= 1
+	if loverdays[lover_number] > 8 and pcs_lashes < 1:loverrelation[lover_number] -= 1
 
-	if pcs_lovers_days[i] < 10 and boyonce[i] = 0:
+	if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:
 
 		!!candy buketny period
 		vstrand = rand(0, 2)
 
 		if vstrand = 0:
-			'<<$boydesc[i]>> offers to go to the cafe.'
+			'<<$loverdesc[lover_number]>> offers to go to the cafe.'
 
 			act 'Go to the cafe':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'You went to a cafe with a guy. <<$boydesc[i]>> telling stories and jokes hunted.'
+				loverrelation[lover_number] += 1
+				'You go to a cafe with <<$loverdesc[lover_number]>> who entertains you with jokes and hunting stories.'
 
 				act 'To invite':
 					cla
 
-					if pcs_lovers_days[i] < 3:bfA -= 1
+					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 
 					gt 'svidan', 'kvartA'
@@ -491,35 +491,35 @@ if $ARGS[0] = 'reach':
 
 				act 'Say goodbye and go home':
 					cla
-					bfA += 1
+					loverrelation[lover_number] += 1
 					dynamic $brodilr
 				end
 			end
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		elseif vstrand = 1:
-			'<<$boydesc[i]>> offers to go to the cinema.'
+			'<<$loverdesc[lover_number]>> offers to go to the cinema.'
 
 			act 'Go to the cinema':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'You went to the cinema for a new movie. <<$boydesc[i]>> hug you.'
+				loverrelation[lover_number] += 1
+				'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'
 
-				act 'Hug his hand':
+				act 'Hold his hand':
 					cla
-					bfA += 1
-					'You watch a movie guy hugging hand. Finally the film ends.'
+					loverrelation[lover_number] += 1
+					'You watch a movie guy holding hand. Finally the film ends.'
 
 					act 'To invite':
 						cla
 
-						if pcs_lovers_days[i] < 3:bfA -= 1
+						if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 
 						gt 'svidan', 'kvartA'
@@ -527,7 +527,7 @@ if $ARGS[0] = 'reach':
 
 					act 'Say goodbye and go home':
 						cla
-						bfA += 1
+						loverrelation[lover_number] += 1
 						dynamic $brodilr
 					end
 				end
@@ -535,23 +535,23 @@ if $ARGS[0] = 'reach':
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		elseif vstrand = 2:
-			'<<$boydesc[i]>> offers to go to the restaurant.'
+			'<<$loverdesc[lover_number]>> offers to go to the restaurant.'
 
 			act 'Go to the restaurant':
 				cla
 				minut += 60
 				fat += 1
-				bfA += 1
-				'<<$boydesc[i]>> has led you to the restaurant. There waiter quickly covered table and you sat enjoying the food, wine and socializing'
+				loverrelation[lover_number] += 1
+				'<<$loverdesc[lover_number]>> has led you to the restaurant. There waiter quickly covered table and you sat enjoying the food, wine and socializing'
 
 				act 'To invite':
 					cla
 
-					if pcs_lovers_days[i] < 3:bfA -= 1
+					if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
 
 
 					gt 'svidan', 'kvartA'
@@ -559,47 +559,47 @@ if $ARGS[0] = 'reach':
 
 				act 'Say goodbye and go home':
 					cla
-					bfA += 1
+					loverrelation[lover_number] += 1
 					dynamic $brodilr
 				end
 			end
 
 			act 'Refuse':
 				cla
-				bfA -= 1
+				loverrelation[lover_number] -= 1
 				dynamic $brodilr
 			end
 		end
-	elseif pcs_lovers_days[i] >= 10 and boyonce[i] = 0:
+	elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:
 
-		'<<$boydesc[i]>> says he''s a grown man and he is not satisfied platonic relationship.'
+		'<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied with a platonic relationship.'
 
 		act 'Leave':
 			cla
-			bfA = 0
+			loverrelation[lover_number] = 0
 			dynamic $brodilr
 		end
 
-		act 'Agrees to have sex':
+		act 'Agree to sex':
 			cla
 			*clr
 			minut += 20
-			'You agreed to have sex. <<$boydesc[i]>> happy.'
+			'You agree to have sex. <<$loverdesc[lover_number]>> happy.'
 
 			act 'Go to your apartment':gt 'svidan', 'kvartA'
 			act 'Go to him':gt 'svidan', 'hisA'
 		end
 
 		exit
-	elseif boyonce[i] > 0:
-		'<<$boydesc[i]>> offers sit in a cafe.'
+	elseif boyonce[lover_number] > 0:
+		'<<$loverdesc[lover_number]>> offers sit in a cafe.'
 
 		act 'The cafe':
 			cla
 			minut += 60
 			fat += 1
-			bfA += 1
-			'You came to the cafe <<$boydesc[i]>> ordered a full table and you sat talking and having fun. <<$boydesc[i]>> hugged you and said that he wants you.'
+			loverrelation[lover_number] += 1
+			'You came to the cafe <<$loverdesc[lover_number]>> ordered a full table and you sat talking and having fun. <<$loverdesc[lover_number]>> hugs you and says that he wants you.'
 
 			act 'Go to your apartment':gt 'svidan', 'kvartA'
 			act 'Go to him':gt 'svidan', 'hisA'
@@ -607,7 +607,7 @@ if $ARGS[0] = 'reach':
 
 		act 'Refuse':
 			cla
-			bfA -= 1
+			loverrelation[lover_number] -= 1
 			dynamic $brodilr
 		end
 	end

locations/svidan

@@ -3,8 +3,6 @@
 if $ARGS[0] = 'start':
 	if svidanieA = 1 and svidanieB = 1 and svidanieC = 1:
 
-
-
 		pcs_lovers[1] = 0
 		pcs_lovers[2] = 0
 		pcs_lovers[3] = 0
@@ -13,13 +11,13 @@ if $ARGS[0] = 'start':
 		svidanieC = 0
 		pcs_mood = 0
 		pcs_willpwr -= 30
-		'<<$boydesc[1]>>, <<$boydesc[2]>> and <<$boydesc[3]>> come up to you, then look at each other in bewilderment. They understand everything and go. <<$boydesc[3]>> throws you goodbye "Well, you whore!"'
+		'<<$loverdesc[1]>>, <<$loverdesc[2]>> and <<$loverdesc[3]>> come up to you, then look at each other in bewilderment. They understand everything and go. <<$loverdesc[3]>> throws you a goodbye "Well, you whore!"'
 
 		act 'Leave.':dynamic $brodilr
 
 		exit
 	elseif svidanieA = 1 and svidanieB = 1 and svidanieC = 0:
-		bfA -= 1
+		loverrelation[lover_number] -= 1
 
 		pcs_lovers[2] = 0
 		!!pcs_lovers[3] = 0
@@ -28,16 +26,16 @@ if $ARGS[0] = 'start':
 		svidanieC = 0
 		pcs_mood -= 10
 		pcs_willpwr -= 20
-		'<<$boydesc[1]>> and <<$boydesc[2]>> come up to you, then look at each other in bewilderment. <<$boydesc[1]>> asked what kind of bloke you pinned. At that <<$boydesc[2]>> is outraged that he''s your guy and not this half-wit.'
+		'<<$loverdesc[1]>> and <<$loverdesc[2]>> come up to you, then look at each other in bewilderment. <<$loverdesc[1]>> asked what kind of bloke you pinned. At that <<$loverdesc[2]>> is outraged that he''s your guy and not this half-wit.'
 
-		if bfA > 0:'<<$boybody[1]>> <<$boybod[1]>> <<$boydesc[1]>> punches his rival''s face. <<$boydesc[2]>> falls to the ground with a broken face. <<$boydesc[1]>> defeated opponent says, "see you again beside my girls all fucking kill."'
-		if bfA <= 0:'<<$boydesc[1]>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boydesc[2]>> looks at what is happening and leaves without saying a word.'
+		if loverrelation[1] > 0:'<<$loverbody[1]>> <<$loverbod[1]>> <<$loverdesc[1]>> punches his rival''s face. <<$loverdesc[2]>> falls to the ground with a broken face. <<$loverdesc[1]>> defeated opponent says, "see you again beside my girls all fucking kill."'
+		if loverrelation[1] <= 0:'<<$loverdesc[1]>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$loverdesc[2]>> looks at what is happening and leaves without saying a word.'
 
 		act 'Leave.':dynamic $brodilr
 
 		exit
 	elseif svidanieA = 1 and svidanieB = 0 and svidanieC = 1:
-		bfA -= 1
+		loverrelation[1] -= 1
 		!!pcs_lovers[2] = 0
 
 		pcs_lovers[3] = 0
@@ -46,16 +44,16 @@ if $ARGS[0] = 'start':
 		svidanieC = 0
 		pcs_mood -= 10
 		pcs_willpwr -= 20
-		'<<$boydesc[1]>> and <<$boydesc[3]>> come up to you, then look at each other in bewilderment. <<$boydesc[1]>> asked what the dick from the mountain to you pinned. At that <<$boydesc[3]>> is outraged that he''s your guy and not this half-wit.'
+		'<<$loverdesc[1]>> and <<$loverdesc[3]>> come up to you, then look at each other in bewilderment. <<$loverdesc[1]>> asked what the dick from the mountain to you pinned. At that <<$loverdesc[3]>> is outraged that he''s your guy and not this half-wit.'
 
-		if bfA > 0:'<<$boybody[1]>> <<$boybod[1]>> <<$boydesc[1]>> punches his rival''s face. <<$boydesc[3]>> falls to the ground with a broken face. <<$boydesc[1]>> defeated opponent says, "see you again beside my girls all fucking kill."'
-		if bfA <= 0:'<<$boydesc[1]>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boydesc[3]>> looks at what is happening and leaves without saying a word.'
+		if loverrelation[1] > 0:'<<$loverbody[1]>> <<$loverbod[1]>> <<$loverdesc[1]>> punches his rival''s face. <<$loverdesc[3]>> falls to the ground with a broken face. <<$loverdesc[1]>> defeated opponent says, "see you again beside my girls all fucking kill."'
+		if loverrelation[1] <= 0:'<<$loverdesc[1]>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$loverdesc[3]>> looks at what is happening and leaves without saying a word.'
 
 		act 'Leave.':dynamic $brodilr
 
 		exit
 	elseif svidanieA = 0 and svidanieB = 1 and svidanieC = 1:
-		bfB -= 1
+		loverrelation[2] -= 1
 		!!pcs_lovers[2] = 0
 
 		pcs_lovers[3] = 0
@@ -64,66 +62,66 @@ if $ARGS[0] = 'start':
 		svidanieC = 0
 		pcs_mood -= 10
 		pcs_willpwr -= 20
-		'<<$boydesc[2]>> and <<$boydesc[3]>> come up to you, then look at each other in bewilderment. <<$boydesc[2]>> asked what the dick from the mountain to you pinned. At that <<$boydesc[3]>> is outraged that he''s your guy and not this half-wit.'
+		'<<$loverdesc[2]>> and <<$loverdesc[3]>> come up to you, then look at each other in bewilderment. <<$loverdesc[2]>> asked what the dick from the mountain to you pinned. At that <<$loverdesc[3]>> is outraged that he''s your guy and not this half-wit.'
 
-		if bfb > 0:'<<$boybodyB>> <<$boybodB>> <<$boydesc[2]>> punches his rival''s face. <<$boydesc[3]>> falls to the ground with a broken face. <<$boydesc[2]>> defeated opponent says, "see you again beside my girls all fucking kill."'
-		if bfb <= 0:'<<$boydesc[2]>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$boydesc[3]>> looks at what is happening and leaves without saying a word.'
+		if loverrelation[2] > 0:'<<$loverbody[2]>> <<$loverbod[2]>> <<$loverdesc[2]>> punches his rival''s face. <<$loverdesc[3]>> falls to the ground with a broken face. <<$loverdesc[2]>> defeated opponent says, "see you again beside my girls all fucking kill."'
+		if loverrelation[2] <= 0:'<<$loverdesc[2]>> spits angrily on the ground and says. "Fuck you on the dick, whore." throwing flowers and leaves in the trash. <<$loverdesc[3]>> looks at what is happening and leaves without saying a word.'
 
 		act 'Leave.':dynamic $brodilr
 
 		exit
 	elseif svidanieA = 1 and svidanieB = 0 and svidanieC = 0:
 
-		pcs_lovers_days[1] += 1
+		loversday[1] += 1
 		svidanieA = 0
 		pcs_willpwr += rand(5, 10)
 		pcs_mood += rand(5, 10)
 
 		if harakBoy = 0:
-			if pcs_makeup <= 2 and pcs_makeup > 0:bfA += 1
-			if pcs_makeup = 4:bfA -= 1
+			if pcs_makeup <= 2 and pcs_makeup > 0:loverrelation[lover_number] += 1
+			if pcs_makeup = 4:loverrelation[lover_number] -= 1
 		elseif harakBoy = 1:
-			if pcs_makeup <= 3 and pcs_makeup > 0:bfA += 1
-			if pcs_makeup = 4:bfA -= 1
+			if pcs_makeup <= 3 and pcs_makeup > 0:loverrelation[lover_number] += 1
+			if pcs_makeup = 4:loverrelation[lover_number] -= 1
 		elseif harakBoy = 2:
-			if pcs_makeup = 4:bfA += 1
-			if pcs_makeup <= 2 and pcs_makeup > 0:bfA -= 1
+			if pcs_makeup = 4:loverrelation[lover_number] += 1
+			if pcs_makeup <= 2 and pcs_makeup > 0:loverrelation[lover_number] -= 1
 		end
 
-		'<<$boybody[1]>> <<$boybod[1]>> <<$boydesc[1]>> comes up to you and kisses you welcoming.'
+		'<<$loverbody[1]>> <<$loverbod[1]>> <<$loverdesc[1]>> comes up to you and kisses you welcoming.'
 
-		if pcs_lovers_days[1] >= 30:
+		if loversday[1] >= 30:
 			giftrand = rand(0, 2)
 
-			if giftrand <= finance[i]:
-				gift = rand(bfa * 10, bfa * 50)
+			if giftrand <= finance[lover_number]:
+				gift = rand(loverrelation[lover_number] * 10, loverrelation[lover_number] * 50)
 				money += gift
-				'<<$boydesc[1]>> made a gift to you <<gift>> <b>₽</b>.'
+				'<<$loverdesc[1]>> made a gift to you <<gift>> <b>₽</b>.'
 			end
 		end
 
 		act 'Kiss.':gt 'svidan', 'a'
 			act 'Avoid kissing.':
 			cla
-			bfA -= 1
+			loverrelation[lover_number] -= 1
 			gt 'svidan', 'a'
 		end
 
 		exit
 	elseif svidanieA = 0 and svidanieB = 1 and svidanieC = 0:
 
-		pcs_lovers_days[2] += 1
+		loversday[2] += 1
 		svidanieB = 0
-		'<<$boybody[2]>> <<$boybod[2]>> <<$boydesc[2]>> comes up to you and kisses you welcoming.'
+		'<<$loverbody[2]>> <<$loverbod[2]>> <<$loverdesc[2]>> comes up to you and kisses you welcoming.'
 
 		act 'Kiss.':gt 'svidan', 'b'
 
 		exit
 	elseif svidanieA = 0 and svidanieB = 0 and svidanieC = 1:
 
-		pcs_lovers_days[3] += 1
+		loversday[3] += 1
 		svidaniec = 0
-		'<<$boybody[3]>> <<$boybod[3]>> <<$boydesc[3]>> comes up to you and kisses you welcoming.'
+		'<<$loverbody[3]>> <<$loverbod[3]>> <<$loverdesc[3]>> comes up to you and kisses you welcoming.'
 
 		act 'Kiss.':gt 'svidan', 'c'
 
@@ -132,30 +130,30 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'a':
-	if finance[i] = 0:gt 'svi', 'poor'
-	if finance[i] = 1:gt 'svi', 'norm'
-	if finance[i] = 2:gt 'svi', 'reach'
+	if finance[lover_number] = 0:gt 'svi', 'poor'
+	if finance[lover_number] = 1:gt 'svi', 'norm'
+	if finance[lover_number] = 2:gt 'svi', 'reach'
 end
 
 if $ARGS[0] = 'kustA':
 	*clr
 	minut += 20
-	'You hid in the corner and ukromnoi <<$boydesc[i]>> pulled out his penis.'
+	'You hid in the corner and ukromnoi <<$loverdesc[lover_number]>> pulled out his penis.'
 
 	act 'Take by mouth':
 		cla
 		*clr
-		bfA += 1
+		loverrelation[lover_number] += 1
 
 
-		if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+		if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
 		stat['bj'] += 1
-		dick = dick[i]
-		harakBoy = harakBoy[i]
-		gs 'boyStat', $boyA
+		dick = loverdick[lover_number]
+		harakBoy = haraklover[lover_number]
+		gs 'boyStat', $lover[lover_number]
 		'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj24.jpg"></center>'
-		'You kneel and <<$boydesc[i]>> pulled out his penis and offered it to your face.'
+		'You kneel and <<$loverdesc[lover_number]>> pulled out his penis and offered it to your face.'
 		
 		gs 'arousal', 'bj' 10, 'sub'
 		gs 'stat'
@@ -169,7 +167,7 @@ if $ARGS[0] = 'kustA':
 			spafinloc = 12
 			gs 'cum_manage'
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boydesc[i]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
+			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$loverdesc[lover_number]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
 			
 			gs 'arousal', 'bj' 20, 'sub'
 			gs 'arousal', 'end'
@@ -186,19 +184,19 @@ if $ARGS[0] = 'kustA':
 			*clr
 
 
-			if harakBoy[i] = 0:
+			if haraklover[lover_number] = 0:
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-				'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+				'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 				
 				gs 'arousal', 'end'
 				gs 'stat'
 				
-			elseif harakBoy[i] = 1:
+			elseif haraklover[lover_number] = 1:
 				tiprand = rand(0, 3)
 
 				if tiprand < 3:
 					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-					'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+					'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 					
 					gs 'arousal', 'end'
 					gs 'stat'
@@ -208,18 +206,18 @@ if $ARGS[0] = 'kustA':
 					spafinloc = 11
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-					'You took out a member and at this point <<$boydesc[i]>> is dead right on your face, covering it with warm and sticky cum.'
+					'You took out a member and at this point <<$loverdesc[lover_number]>> is dead right on your face, covering it with warm and sticky cum.'
 					
 					gs 'arousal', 'end'
 					gs 'stat'
 			
 				end
-			elseif harakBoy[i] = 2:
+			elseif haraklover[lover_number] = 2:
 				facial += 1
 				spafinloc = 11
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-				'<<$boydesc[i]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
+				'<<$loverdesc[lover_number]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
 				
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -236,22 +234,22 @@ end
 
 if $ARGS[0] = 'carA':
 	*clr
-	'You got in the car and <<$boydesc[1]>> hug you and started kissing.'
+	'You got in the car and <<$loverdesc[1]>> hug you and started kissing.'
 
 	act 'Sex':
 		cla
 		*clr
-		bfA += 1
+		loverrelation[lover_number] += 1
 
 
-		if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+		if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
 		pose = 0
-		gs 'boyStat', $boyA
-		dick = dick[i]
-		silavag = silavag[i]
+		gs 'boyStat', $lover[lover_number]
+		dick = loverdick[lover_number]
+		silavag = silavag[lover_number]
 		'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
-		'<<$boydesc[i]>> you put on your back and spread your legs.'
+		'<<$loverdesc[lover_number]>> you put on your back and spread your legs.'
 		
 		gs 'arousal', 'vaginal', 20, 'sub'
 		gs 'stat'
@@ -267,16 +265,16 @@ if $ARGS[0] = 'carA':
 	act 'Take by mouth':
 		cla
 		*clr
-		bfA += 1
+		loverrelation[lover_number] += 1
 
 
-		if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+		if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
-		dick = dick[i]
-		harakBoy = harakBoy[i]
-		gs 'boyStat', $boyA
+		dick = loverdick[lover_number]
+		harakBoy = haraklover[lover_number]
+		gs 'boyStat', $lover[lover_number]
 		'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj24.jpg"></center>'
-		'You kneel and <<$boydesc[i]>> pulled out his penis and offered it to your face.'
+		'You kneel and <<$loverdesc[lover_number]>> pulled out his penis and offered it to your face.'
 		
 		gs 'arousal', 'bj', 15, 'sub'
 		gs 'stat'
@@ -290,7 +288,7 @@ if $ARGS[0] = 'carA':
 			spafinloc = 12
 			gs 'cum_manage'
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boydesc[i]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
+			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$loverdesc[lover_number]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
 
 			gs 'arousal', 'bj' 15, 'sub'
 			gs 'arousal', 'end'
@@ -307,19 +305,19 @@ if $ARGS[0] = 'carA':
 			*clr
 
 
-			if harakBoy[i] = 0:
+			if haraklover[lover_number] = 0:
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-				'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+				'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 				
 				gs 'arousal', 'end'
 				gs 'stat'
 			
-			elseif harakBoy[i] = 1:
+			elseif haraklover[lover_number] = 1:
 				tiprand = rand(0, 3)
 
 				if tiprand < 3:
 					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-					'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+					'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 				
 					gs 'arousal', 'end'
 					gs 'stat'
@@ -329,17 +327,17 @@ if $ARGS[0] = 'carA':
 					spafinloc = 11
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-					'You took out a member and at this point <<$boydesc[i]>> is dead right on your face, covering it with warm and sticky cum.'
+					'You took out a member and at this point <<$loverdesc[lover_number]>> is dead right on your face, covering it with warm and sticky cum.'
 				
 					gs 'arousal', 'end'
 					gs 'stat'
 				end
-			elseif harakBoy[i] = 2:
+			elseif haraklover[lover_number] = 2:
 				facial += 1
 				spafinloc = 11
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-				'<<$boydesc[i]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
+				'<<$loverdesc[lover_number]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
 				
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -355,22 +353,22 @@ end
 
 if $ARGS[0] = 'hisA':
 	*clr
-	'Once you have entered the apartment <<$boydesc[1]>> hug you and started kissing.'
+	'Once you have entered the apartment <<$loverdesc[1]>> hug you and started kissing.'
 
 	act 'Sex':
 		cla
 		*clr
-		bfA += 1
+		loverrelation[lover_number] += 1
 
 
-		if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+		if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
 		pose = 0
-		gs 'boyStat', $boyA
-		dick = dick[i]
-		silavag = silaVag[i]
+		gs 'boyStat', $lover[lover_number]
+		dick = loverdick[lover_number]
+		silavag = silaVag[lover_number]
 		'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
-		'<<$boydesc[i]>> you put on your back and spread your legs.'
+		'<<$loverdesc[lover_number]>> you put on your back and spread your legs.'
 		
 		gs 'arousal', 'vaginal', 20, 'sub'
 		gs 'stat'
@@ -386,16 +384,16 @@ if $ARGS[0] = 'hisA':
 	act 'Take by mouth':
 		cla
 		*clr
-		bfA += 1
+		loverrelation[lover_number] += 1
 
 
-		if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+		if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
-		dick = dick[i]
-		harakBoy = harakBoy[i]
-		gs 'boyStat', $boyA
+		dick = loverdick[lover_number]
+		harakBoy = haraklover[lover_number]
+		gs 'boyStat', $lover[lover_number]
 		'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj24.jpg"></center>'
-		'You kneel and <<$boydesc[i]>> pulled out his penis and offered it to your face.'
+		'You kneel and <<$loverdesc[lover_number]>> pulled out his penis and offered it to your face.'
 		
 		gs 'arousal', 'bj', 15, 'sub'
 		gs 'stat'
@@ -409,7 +407,7 @@ if $ARGS[0] = 'hisA':
 			spafinloc = 12
 			gs 'cum_manage'
 			'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boydesc[i]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
+			'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$loverdesc[lover_number]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
 
 			gs 'arousal', 'bj' 15, 'sub'
 			gs 'arousal', 'end'
@@ -426,19 +424,19 @@ if $ARGS[0] = 'hisA':
 			*clr
 
 
-			if harakBoy[i] = 0:
+			if haraklover[lover_number] = 0:
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-				'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+				'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 				
 				gs 'arousal', 'end'
 				gs 'stat'
 			
-			elseif harakBoy[i] = 1:
+			elseif haraklover[lover_number] = 1:
 				tiprand = rand(0, 3)
 
 				if tiprand < 3:
 					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-					'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+					'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 					
 					gs 'arousal', 'end'
 					gs 'stat'
@@ -448,18 +446,18 @@ if $ARGS[0] = 'hisA':
 					spafinloc = 11
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-					'You took out a member and at this point <<$boydesc[i]>> is dead right on your face, covering it with warm and sticky cum.'
+					'You took out a member and at this point <<$loverdesc[lover_number]>> is dead right on your face, covering it with warm and sticky cum.'
 				
 					gs 'arousal', 'end'
 					gs 'stat'
 					
 				end
-			elseif harakBoy[i] = 2:
+			elseif haraklover[lover_number] = 2:
 				facial += 1
 				spafinloc = 11
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-				'<<$boydesc[i]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
+				'<<$loverdesc[lover_number]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
 				
 				gs 'arousal', 'end'
 				gs 'stat'
@@ -479,25 +477,25 @@ if $ARGS[0] = 'kvartA':
 	minut += 20
 	if housr > 0:housrA = 1 & housrMir = 0
 
-	'Once you have entered the apartment <<$boydesc[1]>> hug you and started kissing.'
+	'Once you have entered the apartment <<$loverdesc[1]>> hug you and started kissing.'
 
 	if husband = 0:
 		act 'Sex':
 			cla
 			*clr
-			bfA += 1
+			loverrelation[lover_number] += 1
 
 
-			if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+			if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
 			arousal_minut = 0
 			pose = 0
-			gs 'boyStat', $boyA
+			gs 'boyStat', $lover[lover_number]
 
-			dick = dick[i]
-			silavag = silavag[i]
+			dick = loverdick[lover_number]
+			silavag = silavag[lover_number]
 			'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
-			'<<$boydesc[i]>> you put on your back and spread your legs.'
+			'<<$loverdesc[lover_number]>> you put on your back and spread your legs.'
 			
 			gs 'arousal', 'vaginal', 20, 'sub'
 			gs 'stat'
@@ -513,17 +511,17 @@ if $ARGS[0] = 'kvartA':
 		act 'Take by mouth':
 			cla
 			*clr
-			bfA += 1
+			loverrelation[lover_number] += 1
 
 
-			if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+			if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
 
-			dick = dick[i]
-			harakBoy = harakBoy[i]
-			gs 'boyStat', $boyA
+			dick = loverdick[lover_number]
+			harakBoy = haraklover[lover_number]
+			gs 'boyStat', $lover[lover_number]
 			'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj24.jpg"></center>'
-			'You kneel and <<$boydesc[i]>> pulled out his penis and offered it to your face.'
+			'You kneel and <<$loverdesc[lover_number]>> pulled out his penis and offered it to your face.'
 			
 			gs 'arousal', 'bj', 15, 'sub'
 			gs 'stat'
@@ -537,7 +535,7 @@ if $ARGS[0] = 'kvartA':
 				spafinloc = 12
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum30.jpg"></center>'
-				'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boydesc[i]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
+				'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$loverdesc[lover_number]>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
 
 				gs 'arousal', 'bj', 15, 'sub'
 				gs 'arousal', 'end'
@@ -554,19 +552,19 @@ if $ARGS[0] = 'kvartA':
 				*clr
 
 
-				if harakBoy[i] = 0:
+				if haraklover[lover_number] = 0:
 					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-					'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+					'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 					
 					gs 'arousal', 'end'
 					gs 'stat'
 				
-				elseif harakBoy[i] = 1:
+				elseif haraklover[lover_number] = 1:
 					tiprand = rand(0, 3)
 
 					if tiprand < 3:
 						'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-						'You remove a member from his mouth and <<$boydesc[i]>> you are finished in hand.'
+						'You remove a member from his mouth and <<$loverdesc[lover_number]>> you are finished in hand.'
 						
 						gs 'arousal', 'end'
 						gs 'stat'
@@ -576,18 +574,18 @@ if $ARGS[0] = 'kvartA':
 						spafinloc = 11
 						gs 'cum_manage'
 						'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-						'You took out a member and at this point <<$boydesc[i]>> is dead right on your face, covering it with warm and sticky cum.'
+						'You took out a member and at this point <<$loverdesc[lover_number]>> is dead right on your face, covering it with warm and sticky cum.'
 						
 						gs 'arousal', 'end'
 						gs 'stat'
 						
 					end
-				elseif harakBoy[i] = 2:
+				elseif haraklover[lover_number] = 2:
 					facial += 1
 					spafinloc = 11
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-					'<<$boydesc[i]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
+					'<<$loverdesc[lover_number]>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
 					
 					gs 'arousal', 'end'
 					gs 'stat'
@@ -605,7 +603,7 @@ if $ARGS[0] = 'kvartA':
 				*clr
 
 
-				if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+				if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand1.jpg"></center>'
 				'You stripped and put the guy on the bed, while they themselves sat next to him and began to fondle his penis hands.'
@@ -615,9 +613,9 @@ if $ARGS[0] = 'kvartA':
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				if harakBoy[i] = 0:bfA -= 1
-				if harakBoy[i] = 1:bfA -= 5
-				if harakBoy[i] = 2:bfA -= 10
+				if haraklover[lover_number] = 0:loverrelation[lover_number] -= 1
+				if haraklover[lover_number] = 1:loverrelation[lover_number] -= 5
+				if haraklover[lover_number] = 2:loverrelation[lover_number] -= 10
 
 				act 'Wipe your hands and show him out':
 					cla
@@ -632,19 +630,19 @@ if $ARGS[0] = 'kvartA':
 					kunday = daystart
 
 
-					if boyonce[i] = 0:boyonce[i] = 1 & guy += 1 & vneshBoy[i] += 40
+					if boyonce[lover_number] = 0:boyonce[lover_number] = 1 & guy += 1 & vneshlover[lover_number] += 40
 
 					pcs_horny += pcs_dom + (silaVag * 2 + 5)
 					'<center><img <<$set_imgh>> src="images/shared/sex/kuni/kuni.jpg"></center>'
 					'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
-					'<<$boydesc[1]>> lay down between your legs and began to work the tongue on your pussy.'
+					'<<$loverdesc[1]>> lay down between your legs and began to work the tongue on your pussy.'
 					
 					gs 'arousal', 'cuni', 20, 'dom'
 					gs 'stat'
 
-					if harakBoy[i] = 0:bfA -= 1
-					if harakBoy[i] = 1:bfA -= 5
-					if harakBoy[i] = 2:bfA -= 10
+					if haraklover[lover_number] = 0:loverrelation[lover_number] -= 1
+					if haraklover[lover_number] = 1:loverrelation[lover_number] -= 5
+					if haraklover[lover_number] = 2:loverrelation[lover_number] -= 10
 
 					if pcs_horny >= 90:
 						pcs_mood += 15

locations/svidboy

@@ -4,25 +4,25 @@ if $ARGS[0] = 'kinosvid':
 	*clr
 	minut += 60
 	pcs_mood += 10
-	bfA += 3
+	loverrelation[lover_number] += 3
 	gs 'stat'
 	'<center><b>Cinema</b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kino0.jpg"></center>'
-	'<<$boydesc[i]>> you bought the tickets and took their seats ready for viewing'
+	'<<$loverdesc[lover_number]>> you bought the tickets and took their seats ready for viewing'
 
 	act 'Watch a movie':
 		cla
 		*clr
 		minut += 90
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kino1.jpg"></center>'
-		'During the session <<$boydesc[i]>> looked around and making sure that you are in the room except no one is turned to you and started to kiss his hand slipped under your clothes, you started to caress his chest.'
+		'During the session <<$loverdesc[lover_number]>> looked around and making sure that you are in the room except no one is turned to you and started to kiss his hand slipped under your clothes, you started to caress his chest.'
 
 		act '"Not here"':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kino0.jpg"></center>'
 			'You removed his hand with the words "Well, not here"'
-			'When the movie ended <<$boydesc[i]>> said that he has to run and left.'
+			'When the movie ended <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 			act 'Leave':gt 'torgcentr'
 		end
@@ -33,9 +33,9 @@ if $ARGS[0] = 'kinosvid':
 			picrand = 48
 			svidboysex = 1
 			svidboykino = 1
-			pcs_lovers_rel[i] += 5
+			loverrelation[lover_number] += 5
 			'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kino2.jpg"></center>'
-			'You unbutton his pants and pulled out already erection begin to stroke his hand <<$boydesc[i]>> lays down the hands on your shoulders and begins to press down gently guiding your head to its members.'
+			'You unbutton his pants and pulled out already erection begin to stroke his hand <<$loverdesc[lover_number]>> lays down the hands on your shoulders and begins to press down gently guiding your head to its members.'
 
 			act 'Take by mouth':gt 'sex', 'minet'
 		end
@@ -47,11 +47,11 @@ if $ARGS[0] = 'parksvid':
 	*clr
 	minut += 60
 	pcs_mood += 10
-	pcs_lovers_rel[i] += 3
+	loverrelation[lover_number] += 3
 	gs 'stat'
 	'<center><b>Park</b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park0.jpg"></center>'
-	'<<$boydesc[i]>> and you are met at the entrance to the park.'
+	'<<$loverdesc[lover_number]>> and you are met at the entrance to the park.'
 
 	act 'Go for a walk':
 		parksvidrand = rand(0, 1)
@@ -62,14 +62,14 @@ if $ARGS[0] = 'parksvid':
 		*clr
 		minut += 60
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park1.jpg"></center>'
-		'When you come into the park <<$boydesc[i]>> caught you in his arms and began to circle, "Stop, stop, else you will drop" you laughed. <<$boydesc[i]>> put you on the ground.'
+		'When you come into the park <<$loverdesc[lover_number]>> caught you in his arms and began to circle, "Stop, stop, else you will drop" you laughed. <<$loverdesc[lover_number]>> put you on the ground.'
 
 		act 'Move on':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park0.jpg"></center>'
-			'You took his hand and walked away.'
-			'Soon <<$boydesc[i]>> said that he has to run and left.'
+			'You take his hand and walk away.'
+			'Soon <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 			act 'Leave':gt 'park', 'start'
 		end
@@ -78,14 +78,14 @@ if $ARGS[0] = 'parksvid':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park2.jpg"></center>'
-			'You turn to him and kiss on the lips, he hugs you and his hands begin to wander through your body, one stop on the chest, the second is your buttocks squeezes.'
+			'You turn to him and kiss on the lips, he holds you and his hands begin to wander through your body, one on the chest, the second squeezes your buttocks.'
 
 			act 'Stop':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park0.jpg"></center>'
-				'You removed his hands and walked away.'
-				'Soon <<$boydesc[i]>> said that he has to run and left.'
+				'You remove his hands and walked away.'
+				'Soon <<$loverdesc[lover_number]>> said that he has to run and leaves.'
 
 				act 'Leave':gt 'park', 'start'
 			end
@@ -95,14 +95,14 @@ if $ARGS[0] = 'parksvid':
 				*clr
 				pcs_horny += 20
 				'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park3.jpg"></center>'
-				'You keep kissing him <<$boydesc[i]>> goes to your lips on his neck, and hands you bares his chest and begins to squeeze, you have a factory and hand itself stretches to the pussy.'
+				'You kiss him, <<$loverdesc[lover_number]>> starts at your lips, then moves lower, meanwhile he bares your chest and begins to squeeze, while his other hand moves to your pussy.'
 
 				act 'Stop':
 					cla
 					*clr
 					'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park0.jpg"></center>'
-					'You removed his hands and chest hidden under clothes back went on.'
-					'Soon <<$boydesc[i]>> said that he has to run and left.'
+					'You remove his hands and cover your bare breasts.'
+					'Soon <<$loverdesc[lover_number]>> said that he has to run and leaves.'
 
 					act 'Leave':gt 'park', 'start'
 				end
@@ -111,13 +111,13 @@ if $ARGS[0] = 'parksvid':
 					cla
 					*clr
 					'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park4.jpg"></center>'
-					'You stand and enjoy petting, one hand fingering her pussy, when <<$boydesc[i]>> bends you and exposing your ass glares at her tongue, his tongue slides between your buttocks then fondling pussy is a sensitive anus.'
+					'You stand and enjoy petting, one hand fingering her pussy, when <<$loverdesc[lover_number]>> bends you and exposing your ass glares at his tongue, his tongue slides between your buttocks then fondling pussy is a sensitive anus.'
 
 					act 'Continue':
 						picrand = 49
 						svidboysex = 1
 						svidboypark = 1
-						pcs_lovers_rel[i] += 5
+						loverrelation[lover_number] += 5
 						gt 'sex', 'kuni'
 					end
 				end
@@ -134,14 +134,14 @@ if $ARGS[0] = 'parksvid2':
 	'Walking through the park zakaulkam you notice black guy watching you'
 
 	if izvrat = 1:
-		'<<$boydesc[i]>> also his remarks and turned to you rastegivat pants and says, "And let''s have a little show for this pervert"'
+		'<<$loverdesc[lover_number]>> also his remarks and turned to you rastegivat pants and says, "And let''s have a little show for this pervert"'
 
 		act 'Refuse':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park6.jpg"></center>'
 			'"Well, no, I will not do that, " you reply ego buttoning his pants, take his hand and move on.'
-			'Soon <<$boydesc[i]>> said that he has to run and left.'
+			'Soon <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 			act 'Leave':gt 'park', 'start'
 		end
@@ -150,7 +150,7 @@ if $ARGS[0] = 'parksvid2':
 			picrand = 50
 			svidboysex = 1
 			svidboypark1 = 1
-			pcs_lovers_rel[i] += 5
+			loverrelation[lover_number] += 5
 			gt 'sex', 'minet'
 		end
 	end
@@ -168,7 +168,7 @@ if $ARGS[0] = 'parksvid2':
 			picrand = 50
 			svidboysex = 1
 			svidboypark2 = 1
-			pcs_lovers_rel[i] += 5
+			loverrelation[lover_number] += 5
 			gt 'sex', 'minet'
 		end
 	end
@@ -178,7 +178,7 @@ if $ARGS[0] = 'parksvid2':
 		*clr
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park6.jpg"></center>'
 		'You drop this idea and move on.'
-		'Soon <<$boydesc[i]>> said that he has to run and left.'
+		'Soon <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 		act 'Leave':gt 'park', 'start'
 	end
@@ -188,16 +188,16 @@ if $ARGS[0] = 'parksvid21':
 	cla
 	*clr
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park7.jpg"></center>'
-	'Once <<$boydesc[i]>> finished, he asks you, "Well this little Papuan still here?"'
+	'Once <<$loverdesc[lover_number]>> finished, he asks you, "Well this little Papuan still here?"'
 	'"Yes, actively Fingering." you reply, glancing toward African.'
-	'"If you can suck it, and I''ll see." says <<$boydesc[i]>>, clearly wanting something you agreed.'
+	'"If you can suck it, and I''ll see." says <<$loverdesc[lover_number]>>, clearly wanting something you agreed.'
 
 	act 'Refuse':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park6.jpg"></center>'
 		'"Well, no, I''m not going to suck him, enough with him and watching." you reply dressing, then take his hand and move on.'
-		'Soon <<$boydesc[i]>> said that he has to run and left.'
+		'Soon <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 		act 'Leave':gt 'park', 'start'
 	end
@@ -205,16 +205,16 @@ if $ARGS[0] = 'parksvid21':
 	act 'Agree':
 		cla
 		*clr
-		pcs_lovers_rel[i] += 5
+		loverrelation[lover_number] += 5
 		stat['bj'] += 1
 		swallow += 1
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park8.jpg"></center>'
 		'You beckon African, he carefully approaches cautiously posmatrikaya on your guy.'
-		'"Do not worry, took out personal belongings, now my slut suck you down to the bottom" grinned <<$boydesc[i]>>'
-		'You go down on his knees so that <<$boydesc[i]>> could see the whole process, and with styanuv Man briefs start sucking, you had to work not long, a minute later he came in your mouth. Happy man immediately ran away.'
-		'"Hey, if a slut does not take money it could even say thank you" threw him go <<$boydesc[i]>>'
+		'"Do not worry, took out personal belongings, now my slut suck you down to the bottom" grinned <<$loverdesc[lover_number]>>'
+		'You go down on his knees so that <<$loverdesc[lover_number]>> could see the whole process, and with styanuv Man briefs start sucking, you had to work not long, a minute later he came in your mouth. Happy man immediately ran away.'
+		'"Hey, if a slut does not take money it could even say thank you" threw him go <<$loverdesc[lover_number]>>'
 		'Not paying attention to his words, because you really behaved like the last whore, you got dressed and went down.'
-		'Soon <<$boydesc[i]>> said that he has to run and left.'
+		'Soon <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 		act 'Leave':gt 'park', 'start'
 	end
@@ -224,14 +224,14 @@ if $ARGS[0] = 'parksvid22':
 	cla
 	*clr
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park7.jpg"></center>'
-	'After <<$boydesc[i]>> finished, he notices you watching African "Damn, this pervert us spying" and noting both your lips slipped smile asked, "Did you know that he''s here, you''re here to fuck specially decided to show off in front of this Negro, you can also otsosesh him? "'
+	'After <<$loverdesc[lover_number]>> finished, he notices you watching African "Damn, this pervert us spying" and noting both your lips slipped smile asked, "Did you know that he''s here, you''re here to fuck specially decided to show off in front of this Negro, you can also otsosesh him? "'
 
 	act 'Reassure him':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park6.jpg"></center>'
-		'"Of course I did not know anything, do you think that I could have sex with you in front of this" you make pained face and dressed quickly go away after a few seconds <<$boydesc[i]>> catching up with you, "I''m sorry, honey, not mean to offend you, I said sgorecha "he izvenyayus you take him by the hand, saying that you forgive and move on.'
-		'Soon <<$boydesc[i]>> said that he has to run and left.'
+		'"Of course I did not know anything, do you think that I could have sex with you in front of this" you make pained face and dressed quickly go away after a few seconds <<$loverdesc[lover_number]>> catching up with you, "I''m sorry, honey, not mean to offend you, I said sgorecha "he izvenyayus you take him by the hand, saying that you forgive and move on.'
+		'Soon <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 		act 'Leave':gt 'park', 'start'
 	end
@@ -239,15 +239,15 @@ if $ARGS[0] = 'parksvid22':
 	act 'Annoy him':
 		cla
 		*clr
-		pcs_lovers_rel[i] = 0
+		loverrelation[lover_number] = 0
 		stat['bj'] += 1
 		swallow += 1
 		balls += 1
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/sex_park8.jpg"></center>'
 		'"If I want to suck and" threw you back.'
-		'"So what do you expect me to suck or call him, hey man come on here free whore sucks for so" cried <<$boydesc[i]>>'
+		'"So what do you expect me to suck or call him, hey man come on here free whore sucks for so" cried <<$loverdesc[lover_number]>>'
 		'"Come on do not be afraid" you shouted guy African timidly walked up to you.'
-		'You go down on his knees so that <<$boydesc[i]>> could see the whole process, and with styanuv Man briefs start sucking, you had to work not long, a minute later he came in your mouth. But you''re not going to end so quickly when osobeno <<$boydesc[i]>> sitting next crimson with anger. You took the guy cock and continued to masturbate, that he finally fell, but themselves demonstratively turned to his, now ex-boyfriend, and a little tinkering with the sperm in her mouth to swallow it. Then you turned back to African and continued without deliv his cock out of hand you the language began to fondle his balls, then took them whole in his mouth and began to suck it out of his mouth one releasing it again absorbing both when a member of the African stood again, you switched on him, slow and metadichno you licking every inch of his phallus, and then began to suck the head, smacking loudly after you calmly and methodically started sucking him trying to absorb it into himself entirely and as a member was very modest size you manage it, and that would put an end to you shoved in his mouth and his balls. At this <<$boydesc[i]>> could not resist and shouting something about the fact that you as a whore and he wa hates escaped, you quietly completed the guy a blowjob and swallowing cum went away.'
+		'You go down on his knees so that <<$loverdesc[lover_number]>> could see the whole process, and with styanuv Man briefs start sucking, you had to work not long, a minute later he came in your mouth. But you''re not going to end so quickly when osobeno <<$loverdesc[lover_number]>> sitting next crimson with anger. You took the guy cock and continued to masturbate, that he finally fell, but themselves demonstratively turned to his, now ex-boyfriend, and a little tinkering with the sperm in her mouth to swallow it. Then you turned back to African and continued without deliv his cock out of hand you the language began to fondle his balls, then took them whole in his mouth and began to suck it out of his mouth one releasing it again absorbing both when a member of the African stood again, you switched on him, slow and metadichno you licking every inch of his phallus, and then began to suck the head, smacking loudly after you calmly and methodically started sucking him trying to absorb it into himself entirely and as a member was very modest size you manage it, and that would put an end to you shoved in his mouth and his balls. At this <<$loverdesc[lover_number]>> could not resist and shouting something about the fact that you as a whore and he wa hates escaped, you quietly completed the guy a blowjob and swallowing cum went away.'
 
 		act 'Leave':gt 'park', 'start'
 	end
@@ -258,11 +258,11 @@ if $ARGS[0] = 'billsvid':
 	*clr
 	minut += 60
 	pcs_mood += 10
-	pcs_lovers_rel[i] += 3
+	loverrelation[lover_number] += 3
 	gs 'stat'
 	picrand = rand(51, 52)
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/bil<<picrand>>.jpg"></center>'
-	'<<$boydesc[i]>> paid for a table at a booth and you went to play'
+	'<<$loverdesc[lover_number]>> pays for a table at a booth and you go to play'
 
 	act 'Play':
 		cla
@@ -270,7 +270,7 @@ if $ARGS[0] = 'billsvid':
 		minut += 60
 
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/bil1<<picrand>>.jpg"></center>'
-		'During the game <<$boydesc[i]>> suitable for you from behind and his hands glide over your endeavors hips and lips are drawn to the neck.'
+		'During the game <<$loverdesc[lover_number]>> moves behind you and his hands gliding over your endeavors hips and lips are drawn to the neck.'
 
 		act 'Not here':
 			cla
@@ -278,7 +278,7 @@ if $ARGS[0] = 'billsvid':
 			$ImageNeededPlacholder
 			! WD: IMAGE NEEDED ~ '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/bil0<<picrand>>.jpg"></center>'
 			'You removed his hand with the words "Well, not here."'
-			'When your time is up <<$boydesc[i]>> said that he has to run and left.'
+			'When your time is up <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 			act 'Leave':gt 'torgcentr'
 		end
@@ -292,7 +292,7 @@ if $ARGS[0] = 'billsvid':
 			act 'Let continues':
 				svidboysex = 1
 				svidboykino = 1
-				pcs_lovers_rel[i] += 5
+				loverrelation[lover_number] += 5
 				gt 'sex', 'kuni'
 			end
 
@@ -302,7 +302,7 @@ if $ARGS[0] = 'billsvid':
 				$ImageNeededPlacholder
 				! WD: IMAGE NEEDED ~ '<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/bil0<<picrand>>.jpg"></center>'
 				'You removed his hand with the words "Well, not here"'
-				'When your time is up <<$boydesc[i]>> said that he has to run and left.'
+				'When your time is up <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 				act 'Leave':gt 'torgcentr'
 			end
@@ -315,24 +315,24 @@ if $ARGS[0] = 'kafesvid':
 	*clr
 	minut += 60
 	pcs_mood += 10
-	pcs_lovers_rel[i] += 3
+	loverrelation[lover_number] += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kafe0.jpg"></center>'
-	'And you <<$boydesc[i]>> went into a small cafe in the center, it seems that it does not enjoy popularity, site visitors almost there, you sat at a table in one of the private booths.'
+	'And you <<$loverdesc[lover_number]>> went into a small cafe in the center, it seems that it does not enjoy popularity, site visitors almost there, you sat at a table in one of the private booths.'
 
 	act 'Wait for the order':
 		cla
 		*clr
 		minut += 60
 		'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kafe1.jpg"></center>'
-		'Once you have brought order <<$boydesc[i]>> began to pester you, he and Narov kiss you, and slid his hands over your body, then caressing his chest, then squeeze your buttocks.'
+		'Once you have brought order <<$loverdesc[lover_number]>> began to pester you, he and Narov kiss you, and slid his hands over your body, then caressing his chest, then squeeze your buttocks.'
 
 		act '"Not here"':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kafe0.jpg"></center>'
 			'You removed his hand with the words "Well, not here"'
-			'After some time <<$boydesc[i]>> said that he has to run and left.'
+			'After some time <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 			act 'Leave':gt 'down'
 		end
@@ -341,12 +341,12 @@ if $ARGS[0] = 'kafesvid':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kafe2.jpg"></center>'
-			'Soon you remain almost without clothes, and <<$boydesc[i]>> was kissing you underbelly, dropping to the pubis.'
+			'Soon you remain almost without clothes, and <<$loverdesc[lover_number]>> was kissing you underbelly, dropping to the pubis.'
 
 			act 'Let continues':
 				svidboysex = 1
 				svidboykafe = 1
-				pcs_lovers_rel[i] += 5
+				loverrelation[lover_number] += 5
 				picrand = 53
 				gt 'sex', 'kuni'
 			end
@@ -356,7 +356,7 @@ if $ARGS[0] = 'kafesvid':
 				*clr
 				'<center><img <<$set_imgh>> src="images/characters/city/boyfriend/sex/event/kafe0.jpg"></center>'
 				'The last time you came all the same in yourself and realizing that you are in a cafe, pushed him, "No, we have enough in the same cafe, patience to the house"'
-				'But soon <<$boydesc[i]>> said that he has to run and left.'
+				'But soon <<$loverdesc[lover_number]>> said that he has to run and left.'
 
 				act 'Leave':gt 'down'
 			end

locations/telefon

@@ -1,6 +1,5 @@
 # telefon
 
-
 $telotkaz = {
 	cla
 	minut += 10
@@ -12,7 +11,7 @@ $telotkaz = {
 $telotkazboy = {
 	cla
 	minut += 10
-	'<<$boydesc[i]>>, "Sorry, I''m busy right now, maybe next time."'
+	'<<$loverdesc[lover_number]>>, "Sorry, I''m busy right now, maybe next time."'
 
 	act 'Hangup':gt 'telefon', 'fin'
 }
@@ -120,7 +119,7 @@ if $ARGS[0] = 'mobilarazboyA':
 	cls
 	cla
 	gs'din_bad'
-	$caller = '<<$boydesc[1]>>'
+	$caller = '<<$loverdesc[1]>>'
 	$callerid = 'images/characters/shared/'+boypicA+'.jpg'
 	dynamic $phone_balance
 	dynamic $phone_call_receive
@@ -133,7 +132,7 @@ if $ARGS[0] = 'mobilarazboyA':
 			'"Let''s go for a walk in the park."'
 
 			if telotvet > 3:
-				'<<$telsob>>, "See you in the park in an hour."'
+				'<<$loverdesc[1]>>, "See you in the park in an hour."'
 
 				act 'Go':gt 'svidboy', 'parksvid'
 			elseif telotvet <= 3:
@@ -147,7 +146,7 @@ if $ARGS[0] = 'mobilarazboyA':
 		'"Want to go see a movie?"'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the movie theater in an hour."'
+			'<<$loverdesc[1]>>, "See you at the movie theater in an hour."'
 
 			act 'Go':gt 'svidboy', 'kinosvid'
 		elseif telotvet <= 3:
@@ -160,7 +159,7 @@ if $ARGS[0] = 'mobilarazboyA':
 		'"Let''s play pool."'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the pool hall in an hour."'
+			'<<$loverdesc[1]>>, "See you at the pool hall in an hour."'
 
 			act 'Go':gt 'svidboy', 'billsvid'
 		elseif telotvet <= 3:
@@ -173,7 +172,7 @@ if $ARGS[0] = 'mobilarazboyA':
 		'"Let''s go to the cafe."'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the cafe in an hour."'
+			'<<$loverdesc[1]>>, "See you at the cafe in an hour."'
 
 			act 'Go':gt 'svidboy', 'kafesvid'
 		elseif telotvet <= 3:
@@ -187,7 +186,7 @@ if $ARGS[0] = 'mobilarazboyB':
 	cls
 	cla
 	gs'din_bad'
-	$caller = '<<$boydesc[2]>>'
+	$caller = '<<$loverdesc[2]>>'
 	$callerid = 'images/characters/shared/'+boypicB+'.jpg'
 	dynamic $phone_balance
 	dynamic $phone_call_receive
@@ -200,7 +199,7 @@ if $ARGS[0] = 'mobilarazboyB':
 			'"Let''s go for a walk in the park."'
 
 			if telotvet > 3:
-				'<<$telsob>>, "See you in the park in an hour."'
+				'<<$loverdesc[2]>>, "See you in the park in an hour."'
 
 				act 'Go':gt 'svidboy', 'parksvid'
 			elseif telotvet <= 3:
@@ -214,7 +213,7 @@ if $ARGS[0] = 'mobilarazboyB':
 		'"Want to go see a movie?"'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the movie theater in an hour."'
+			'<<$loverdesc[2]>>, "See you at the movie theater in an hour."'
 
 			act 'Go':gt 'svidboy', 'kinosvid'
 		elseif telotvet <= 3:
@@ -227,7 +226,7 @@ if $ARGS[0] = 'mobilarazboyB':
 		'"Let''s play pool."'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the pool hall in an hour."'
+			'<<$loverdesc[2]>>, "See you at the pool hall in an hour."'
 
 			act 'Go':gt 'svidboy', 'billsvid'
 		elseif telotvet <= 3:
@@ -240,7 +239,7 @@ if $ARGS[0] = 'mobilarazboyB':
 		'"Let''s go to the cafe."'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the cafe in an hour."'
+			'<<$loverdesc[2]>>, "See you at the cafe in an hour."'
 
 			act 'Go':gt 'svidboy', 'kafesvid'
 		elseif telotvet <= 3:
@@ -254,7 +253,7 @@ if $ARGS[0] = 'mobilarazboyC':
 	cls
 	cla
 	gs'din_bad'
-	$caller = '<<$boydesc[3]>>'
+	$caller = '<<$loverdesc[3]>>'
 	$callerid = 'images/characters/shared/'+boypicC+'.jpg'
 	dynamic $phone_balance
 	dynamic $phone_call_receive
@@ -267,7 +266,7 @@ if $ARGS[0] = 'mobilarazboyC':
 			'"Let''s go for a walk in the park."'
 
 			if telotvet > 3:
-				'<<$telsob>>, "See you in the park in an hour."'
+				'<<$loverdesc[3]>>, "See you in the park in an hour."'
 
 				act 'Go':gt 'svidboy', 'parksvid'
 			elseif telotvet <= 3:
@@ -281,7 +280,7 @@ if $ARGS[0] = 'mobilarazboyC':
 		'"Want to go see a movie?"'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the movie theater in an hour."'
+			'<<$loverdesc[3]>>, "See you at the movie theater in an hour."'
 
 			act 'Go':gt 'svidboy', 'kinosvid'
 		elseif telotvet <= 3:
@@ -294,7 +293,7 @@ if $ARGS[0] = 'mobilarazboyC':
 		'"Let''s play pool."'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the pool hall in an hour."'
+			'<<$loverdesc[3]>>, "See you at the pool hall in an hour."'
 
 			act 'Go':gt 'svidboy', 'billsvid'
 		elseif telotvet <= 3:
@@ -307,7 +306,7 @@ if $ARGS[0] = 'mobilarazboyC':
 		'"Let''s go to the cafe."'
 
 		if telotvet > 3:
-			'<<$telsob>>, "See you at the cafe in an hour."'
+			'<<$loverdesc[3]>>, "See you at the cafe in an hour."'
 
 			act 'Go':gt 'svidboy', 'kafesvid'
 		elseif telotvet <= 3:
@@ -323,7 +322,7 @@ if $ARGS[0] = 'boyA':
 	clr
 	ring = 0
 	ringA = 0
-	boyday[1] = daystart
+	loverday[1] = daystart
 	gs 'stat'
 	dynamic $phone_call_receive
 	svetrand = rand(0, 5)
@@ -335,28 +334,28 @@ if $ARGS[0] = 'boyA':
 	if svetrand = 4:$sveta = 'hot stuff'
 	if svetrand = 5:$sveta = '<<$pcs_nickname>>'
 
-	'Hey <<$sveta>>, it''s me, <<$boydesc[1]>>. How''s it going?'
+	'Hey <<$sveta>>, it''s me, <<$loverdesc[1]>>. How''s it going?'
 
 	act 'Normally':
 		cla
 		'"Pretty good, you?"'
-		'<<$boydesc[1]>>, "Great, but I kind of miss you, can we meet today?"'
+		'<<$loverdesc[1]>>, "Great, but I kind of miss you, can we meet today?"'
 
-		if pregtime <= pcs_lovers_days[1] and knowpreg = 1 and pregtalk = 0:
+		if pregtime <= loversday[1] and knowpreg = 1 and pregtalk = 0:
 			act 'Tell him he''s going to be a dad':
 				cla
 				pregtalk = 1
 				'"Honey, I''m pregnant with your child."'
 
-				if harakBoy[1] = 0:
+				if haraklover[1] = 0:
 
-					if pcs_lovers_rel[1] >= 90:
-						pcs_lovers_love[1] = 1
+					if loverrelation[1] >= 90:
+						loverlove[1] = 1
 
-						'<<$boydesc[1]>>, "This is wonderful! We have to celebrate!"'
-						'You start talking about living together. <<$boydesc[1]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
-						'He warns you that his mother is very demanding and rigorous. <<$boydesc[1]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
-						'When you are totally ready <<$boydesc{1]>> will take you to their parents.'
+						'<<$loverdesc[1]>>, "This is wonderful! We have to celebrate!"'
+						'You start talking about living together. <<$loverdesc[1]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
+						'He warns you that his mother is very demanding and rigorous. <<$loverdesc[1]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
+						'When you are totally ready <<$loverdesc{1]>> will take you to their parents.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 
@@ -364,7 +363,7 @@ if $ARGS[0] = 'boyA':
 							cla
 							svidanieA = 1
 							'"How about this evening?"'
-							'<<$boydesc[1]>>, "Sounds great! When can I come to pick you up?"'
+							'<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
 
 							act 'Pick a time':
 								cla
@@ -377,39 +376,39 @@ if $ARGS[0] = 'boyA':
 
 								'"How about <<meethourA>> o''clock?"'
 
-								'<<$boydesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>> o''clock."'
+								'<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>> o''clock."'
 
 								act 'Hang up':gt 'telefon', 'fin'
 							end
 						end
-					elseif pcs_lovers_rel[1] < 90:
+					elseif loverrelation[1] < 90:
 						money += 20000
-						'<<$boydesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
+						'<<$loverdesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 					end
-				elseif harakBoy[1] = 1:
+				elseif haraklover[1] = 1:
 
 					money += 20000
-					'<<$boydesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
+					'<<$loverdesc[1]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
 
 					act 'Hang up':gt 'telefon', 'fin'
-				elseif harakBoy[1] = 2:
+				elseif haraklover[1] = 2:
 
-					pcs_lovers_rel[1] = 0
+					loverrelation[1] = 0
 					pcs_lover -= 1
 					pregtalk = 0
-					'<<$boydesc[1]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
+					'<<$loverdesc[1]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
 
 					act 'Hang up':gt 'telefon', 'fin'
 				end
 			end
-		elseif pregtime > pcs_lovers_days[1] and knowpreg = 1 and pregtalk = 0:
+		elseif pregtime > loversday[1] and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
-				pcs_lovers_rel[1] = 0
+				loverrelation[1] = 0
 				'"Honey, I''m pregnant with your child."'
-				'<<$boydesc[1]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
+				'<<$loverdesc[1]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
 
 				act 'Hang up.':gt 'telefon', 'fin'
 			end
@@ -417,7 +416,7 @@ if $ARGS[0] = 'boyA':
 			act 'Sorry, I''m working today':
 				cla
 				'"Sorry, I''m working today."'
-				'<<$boydesc[1]>>, "Okay, I''ll call tomorrow."'
+				'<<$loverdesc[1]>>, "Okay, I''ll call tomorrow."'
 
 				act 'Hang up':gt 'telefon', 'fin'
 			end
@@ -425,11 +424,11 @@ if $ARGS[0] = 'boyA':
 
 		act 'Tonight':
 			cla
-			bfA += 1
+			loverrelation[1] += 1
 			svidanieA = 1
 			meetdayA = daystart
 			'"How about this evening?"'
-			'<<$boydesc[1]>>, "Sounds great! When can I come to pick you up?"'
+			'<<$loverdesc[1]>>, "Sounds great! When can I come to pick you up?"'
 
 			act 'Pick a time':
 				cla
@@ -437,7 +436,7 @@ if $ARGS[0] = 'boyA':
 				if meethourA <= hour or meethourA > 23:meethourA = 20
 
 				'"How about <<meethourA>> o''clock?."'
-				'<<$boydesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>> o''clock."'
+				'<<$loverdesc[1]>>, "Okay <<$sveta>>, see you at <<meethourA>> o''clock."'
 
 				act 'Hang up':gt 'telefon', 'fin'
 			end
@@ -445,11 +444,11 @@ if $ARGS[0] = 'boyA':
 
 		act 'Maybe tomorrow':
 			cla
-			pcs_lovers_rel[1] -= 1
+			loverrelation[1] -= 1
 			'"I''m busy today. Call tomorrow."'
 
-			if pcs_lovers_rel[1] <= 0:pcs_lover -= 1 & '<<$boydesc[1]>>, Are you fucking me, you know what. Suck my dick.'
-			if pcs_lovers_rel[1] > 0:'(<<$boydesc[1]>>) -  Okay, I''ll call tomorrow.'
+			if loverrelation[1] <= 0:pcs_lover -= 1 & '<<$loverdesc[1]>>, Are you fucking me, you know what. Suck my dick.'
+			if loverrelation[1] > 0:'(<<$loverdesc[1]>>) -  Okay, I''ll call tomorrow.'
 
 			act 'Hang up':gt 'telefon', 'fin'
 		end
@@ -466,7 +465,7 @@ if $ARGS[0] = 'boyA':
 
 	act 'Leave':
 		cla
-		pcs_lovers_rel[1] = 0
+		loverrelation[1] = 0
 		pcs_lover -= 1
 		gt 'telefon', 'fin'
 	end
@@ -477,7 +476,7 @@ if $ARGS[0] = 'boyB':
 	clr
 	ring = 0
 	ringB = 0
-	boyday[2] = daystart
+	loverday[2] = daystart
 	gs 'stat'
 	dynamic $phone_call_receive
 	svetrand = rand(0, 5)
@@ -489,27 +488,27 @@ if $ARGS[0] = 'boyB':
 	if svetrand = 4:$sveta = 'hot stuff'
 	if svetrand = 5:$sveta = '<<$pcs_nickname>>'
 
-	'Hey <<$sveta>>, it''s me, <<$boydesc[2]>>. How''s it going?'
+	'Hey <<$sveta>>, it''s me, <<$loverdesc[2]>>. How''s it going?'
 
 
 	act 'Normally':
 		cla
 		'"Pretty good, you?"'
-		'<<$boydesc[2]>>, "Great, but I kind of miss you, can we meet today?"'
+		'<<$loverdesc[2]>>, "Great, but I kind of miss you, can we meet today?"'
 
-		if pregtime <= pcs_lovers_days[2] and knowpreg = 1 and pregtalk = 0:
+		if pregtime <= loversday[2] and knowpreg = 1 and pregtalk = 0:
 			act 'Tell him he''s going to be a dad':
 				cla
 				pregtalk = 1
 				'"Honey, I''m pregnant with your child."'
 
-				if harakBoy[2] = 0:
-					if pcs_lovers_rel[2] >= 90:
-						pcs_lovers_love[2] = 1
-						'<<$boydesc[2]>>, "This is wonderful! We have to celebrate!"'
-						'You start talking about living together. <<$boydesc[2]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
-						'He warns you that his mother is very demanding and rigorous. <<$boydesc[2]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
-						'When you are totally ready <<$boydesc[2]>> will take you to their parents.'
+				if haraklover[2] = 0:
+					if loverrelation[2] >= 90:
+						loverlove[2] = 1
+						'<<$loverdesc[2]>>, "This is wonderful! We have to celebrate!"'
+						'You start talking about living together. <<$loverdesc[2]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
+						'He warns you that his mother is very demanding and rigorous. <<$loverdesc[2]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
+						'When you are totally ready <<$loverdesc[2]>> will take you to their parents.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 
@@ -517,7 +516,7 @@ if $ARGS[0] = 'boyB':
 							cla
 							svidanieB = 1
 							'"How about this evening?"'
-							'<<$boydesc[2]>>, "Sounds great! When can I come to pick you up?"'
+							'<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
 
 							act 'Pick a time':
 								cla
@@ -527,37 +526,37 @@ if $ARGS[0] = 'boyB':
 								if meethourB <= hour or meethourB > 23:meethourB = 20
 
 								'"How about <<meethourB>> o''clock?"'
-								'<<$boydesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>> o''clock."'
+								'<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>> o''clock."'
 
 								act 'Hang up':gt 'telefon', 'fin'
 							end
 						end
-					elseif pcs_lovers_rel[2] < 90:
+					elseif loverrelation[2] < 90:
 						money += 20000
-						'<<$boydesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
+						'<<$loverdesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 					end
-				elseif harakBoy[2] = 1:
+				elseif haraklover[2] = 1:
 					money += 20000
-					'<<$boydesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
+					'<<$loverdesc[2]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
 
 					act 'Hang up':gt 'telefon', 'fin'
-				elseif harakBoy[2] = 2:
-					pcs_lovers_rel[2] = 0
+				elseif haraklover[2] = 2:
+					loverrelation[2] = 0
 					pcs_lover -= 1
 					pregtalk = 0
-					'<<$boydesc[2]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
+					'<<$loverdesc[2]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
 
 					act 'Hang up':gt 'telefon', 'fin'
 				end
 			end
-		elseif pregtime > pcs_lovers_days[2] and knowpreg = 1 and pregtalk = 0:
+		elseif pregtime > loversday[2] and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
-				pcs_lovers_rel[2] = 0
+				loverrelation[2] = 0
 				'"Honey, I''m pregnant with your child."'
-				'<<$boydesc[2]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
+				'<<$loverdesc[2]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
 
 				act 'Hang up.':gt 'telefon', 'fin'
 			end
@@ -565,7 +564,7 @@ if $ARGS[0] = 'boyB':
 			act 'Sorry, I''m working today':
 				cla
 				'"Sorry, I''m working today."'
-				'<<$boydesc[2]>>, "Okay, I''ll call tomorrow."'
+				'<<$loverdesc[2]>>, "Okay, I''ll call tomorrow."'
 
 				act 'Hang up':gt 'telefon', 'fin'
 			end
@@ -573,11 +572,11 @@ if $ARGS[0] = 'boyB':
 
 		act 'Tonight':
 			cla
-			pcs_lovers_rel[2] += 1
+			loverrelation[2] += 1
 			svidanieB = 1
 			meetdayB = daystart
 			'"How about this evening?"'
-			'<<$boydesc[2]>>, "Sounds great! When can I come to pick you up?"'
+			'<<$loverdesc[2]>>, "Sounds great! When can I come to pick you up?"'
 
 			act 'Pick a time':
 				cla
@@ -585,7 +584,7 @@ if $ARGS[0] = 'boyB':
 				if meethourB <= hour or meethourB > 23:meethourB = 20
 
 				'"How about <<meethourB>> o''clock?."'
-				'<<$boydesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>> o''clock."'
+				'<<$loverdesc[2]>>, "Okay <<$sveta>>, see you at <<meethourB>> o''clock."'
 
 				act 'Hang up':gt 'telefon', 'fin'
 			end
@@ -593,11 +592,11 @@ if $ARGS[0] = 'boyB':
 
 		act 'Maybe tomorrow':
 			cla
-			pcs_lovers_rel[2] -= 1
+			loverrelation[2] -= 1
 			'"I''m busy today. Call tomorrow."'
 
-			if pcs_lovers_rel[2] <= 0:pcs_lover -= 1 & '<<$boydesc[2]>>, Are you fucking me, you know what. Suck my dick.'
-			if pcs_lovers_rel[2] > 0:'(<<$boydesc[2]>>) -  Okay, I''ll call tomorrow.'
+			if loverrelation[2] <= 0:pcs_lover -= 1 & '<<$loverdesc[2]>>, Are you fucking me, you know what. Suck my dick.'
+			if loverrelation[2] > 0:'(<<$loverdesc[2]>>) -  Okay, I''ll call tomorrow.'
 
 			act 'Hang up':gt 'telefon', 'fin'
 		end
@@ -614,7 +613,7 @@ if $ARGS[0] = 'boyB':
 
 	act 'Leave':
 		cla
-		pcs_lovers_rel[2] = 0
+		loverrelation[2] = 0
 		gt 'telefon', 'fin'
 	end
 end
@@ -624,7 +623,7 @@ if $ARGS[0] = 'boyC':
 	clr
 	ring = 0
 	ringC = 0
-	boyday[3] = daystart
+	loverday[3] = daystart
 	gs 'stat'
 	dynamic $phone_call_receive
 	svetrand = rand(0, 5)
@@ -636,27 +635,27 @@ if $ARGS[0] = 'boyC':
 	if svetrand = 4:$sveta = 'hot stuff'
 	if svetrand = 5:$sveta = '<<$pcs_nickname>>'
 
-	'Hey <<$sveta>>, it''s me, <<$boydesc[3]>>. How''s it going?'
+	'Hey <<$sveta>>, it''s me, <<$loverdesc[3]>>. How''s it going?'
 
 
 	act 'Normally':
 		cla
 		'"Pretty good, you?"'
-		'<<$boydesc[3]>>, "Great, but I kind of miss you, can we meet today?"'
+		'<<$loverdesc[3]>>, "Great, but I kind of miss you, can we meet today?"'
 
-		if pregtime <= pcs_lovers_days[3] and knowpreg = 1 and pregtalk = 0:
+		if pregtime <= loversday[3] and knowpreg = 1 and pregtalk = 0:
 			act 'Tell him he''s going to be a dad':
 				cla
 				pregtalk = 1
 				'"Honey, I''m pregnant with your child."'
 
-				if harakBoy[3] = 0:
-					if pcs_lovers_rel[3] >= 90:
-						pcs_lovers_love[3] = 1
-						'<<$boydesc[3]>>, "This is wonderful! We have to celebrate!"'
-						'You start talking about living together. <<$boydesc[3]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
-						'He warns you that his mother is very demanding and rigorous. <<$boydesc[3]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
-						'When you are totally ready <<$boydesc[1]>> will take you to their parents.'
+				if haraklover[3] = 0:
+					if loverrelation[3] >= 90:
+						loverlove[3] = 1
+						'<<$loverdesc[3]>>, "This is wonderful! We have to celebrate!"'
+						'You start talking about living together. <<$loverdesc[3]>> tells you that he is not against it in principle, but first he wants you to meet his parents.'
+						'He warns you that his mother is very demanding and rigorous. <<$loverdesc[3]>> says that he loves his mother and does not want to upset her. Therefore, you must look gorgeous, wear a dress from a boutique, have well-groomed and curled hair and makeup in moderation.'
+						'When you are totally ready <<$loverdesc[1]>> will take you to their parents.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 
@@ -664,7 +663,7 @@ if $ARGS[0] = 'boyC':
 							cla
 							svidanieC = 1
 							'"How about this evening?"'
-							'<<$boydesc[3]>>, "Sounds great! When can I come to pick you up?"'
+							'<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
 
 							act 'Pick a time':
 								cla
@@ -674,38 +673,38 @@ if $ARGS[0] = 'boyC':
 								if meethourC <= hour or meethourC > 23:meethourC = 20
 
 								'"How about <<meethourC>> o''clock?"'
-								'<<$boydesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>> o''clock."'
+								'<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>> o''clock."'
 
 								act 'Hang up':gt 'telefon', 'fin'
 							end
 						end
-					elseif pcs_lovers_rel[3] < 90:
+					elseif loverrelation[3] < 90:
 						money += 20000
-						'<<$boydesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
+						'<<$loverdesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money for an abortion. Get rid of the child.'
 
 						act 'Hang up':gt 'telefon', 'fin'
 					end
-				elseif harakBoy[3] = 1:
+				elseif haraklover[3] = 1:
 					money += 20000
-					'<<$boydesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
+					'<<$loverdesc[3]>> "I''m not yet ready to become a dad. I''ll give you the money get an abortion.'
 
 					act 'Hang up':gt 'telefon', 'fin'
-				elseif harakBoy[3] = 2:
-					pcs_lovers_rel[3] = 0
+				elseif haraklover[3] = 2:
+					loverrelation[3] = 0
 					pcs_lover -= 1
 					pregtalk = 0
-					'<<$boydesc[3]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
+					'<<$loverdesc[3]>>, "What? You whore! Someone fucked your pussy and now you drop it on me. You''re dumped.'
 
 					act 'Hang up':gt 'telefon', 'fin'
 				end
 			end
-		elseif pregtime > pcs_lovers_days[3] and knowpreg = 1 and pregtalk = 0:
+		elseif pregtime > loversday[3] and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
-				pcs_lovers_rel[3] = 0
+				loverrelation[3] = 0
 				pcs_lover -= 1
 				'"Honey, I''m pregnant with your child."'
-				'<<$boydesc[3]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
+				'<<$loverdesc[3]>>, "How the fuck did I manage that? Unless I own a time-machine and went back to before we met and fucked you, it''s someone elses, go and tell him. I don''t want to see you again, goodbye."'
 
 				act 'Hang up.':gt 'telefon', 'fin'
 			end
@@ -713,7 +712,7 @@ if $ARGS[0] = 'boyC':
 			act 'Sorry, I''m working today':
 				cla
 				'"Sorry, I''m working today."'
-				'<<$boydesc[3]>>, "Okay, I''ll call tomorrow."'
+				'<<$loverdesc[3]>>, "Okay, I''ll call tomorrow."'
 
 				act 'Hang up':gt 'telefon', 'fin'
 			end
@@ -721,11 +720,11 @@ if $ARGS[0] = 'boyC':
 
 		act 'Tonight':
 			cla
-			pcs_lovers_rel[3] += 1
+			loverrelation[3] += 1
 			svidanieC = 1
 			meetdayC = daystart
 			'"How about this evening?"'
-			'<<$boydesc[3]>>, "Sounds great! When can I come to pick you up?"'
+			'<<$loverdesc[3]>>, "Sounds great! When can I come to pick you up?"'
 
 			act 'Pick a time':
 				cla
@@ -733,7 +732,7 @@ if $ARGS[0] = 'boyC':
 				if meethourC <= hour or meethourC > 23:meethourC = 20
 
 				'"How about <<meethourC>> o''clock?."'
-				'<<$boydesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>> o''clock."'
+				'<<$loverdesc[3]>>, "Okay <<$sveta>>, see you at <<meethourC>> o''clock."'
 
 				act 'Hang up':gt 'telefon', 'fin'
 			end
@@ -741,11 +740,11 @@ if $ARGS[0] = 'boyC':
 
 		act 'Maybe tomorrow':
 			cla
-			pcs_lovers_rel[3] -= 1
+			loverrelation[3] -= 1
 			'"I''m busy today. Call tomorrow."'
 
-			if pcs_lovers_rel[3] <= 0:pcs_lover -= 1 & '<<$boydesc[3]>>, Are you fucking me, you know what. Suck my dick.'
-			if pcs_lovers_rel[3] > 0:'(<<$boydesc[3]>>) -  Okay, I''ll call tomorrow.'
+			if loverrelation[3] <= 0:pcs_lover -= 1 & '<<$loverdesc[3]>>, Are you fucking me, you know what. Suck my dick.'
+			if loverrelation[3] > 0:'(<<$loverdesc[3]>>) -  Okay, I''ll call tomorrow.'
 
 			act 'Hang up':gt 'telefon', 'fin'
 		end
@@ -762,7 +761,7 @@ if $ARGS[0] = 'boyC':
 
 	act 'Leave':
 		cla
-		pcs_lovers_rel[3] = 0
+		loverrelation[3] = 0
 		pcs_lover -= 1
 		gt 'telefon', 'fin'
 	end