glife/locations/boyfrend

# boyfrend

if $ARGS[0] = 'start':
	if bfA = 0 and stopboy = 0:
		stopboy = 1
		gs 'boyfrend', 'A'
	elseif bfA > 0 and bfB = 0 and stopboy = 0:
		stopboy = 1
		gs 'boyfrend', 'B'
	elseif bfA > 0 and bfB > 0 and bfC = 0 and stopboy = 0:
		stopboy = 1
		gs 'boyfrend', 'C'
	elseif bfA > 0 and bfB > 0 and bfC > 0 and stopboy = 0:
		'Hmm, you are already three boyfriend, why do you need a fourth?'
	end
end

if $ARGS[0] = 'A':
	!!stopboy = 0
	$boyA = $boy
	$boydescA = $boydesc
	boybodyrandA = boybodyrand
	$boybodyA = $boybody
	boybodrandA = boybodrand
	$boybodA = $boybod
	boyfacerandA = boyfacerand
	$boyfaceA = $boyface
	dickA = dick
	$dick_girthA = $dick_girth
	silaVagA = silaVag
	financeA = finance
	vneshBoyA = vneshBoy
	$boyCloA = $boyClo
	figurBoyA = figurBoy
	titBoyA = titBoy
	haerBoyA = haerBoy
	harakBoyA = harakBoy
	boydayA = daystart
	bfA = 1
	daya = 0
	boyonceA = 0
	izvratA = izvrat
	giftDayA = 0
	giftNumA = 0
	love = 0
	boypicA = boypic
	
	!!new preferences
	clotTypePrefA = clotTypePref
	clotQualPrefA = clotQualPref
	clotTopPrefA = clotTopPref
	bottShorPrefA = bottShorPref
	clotThinPrefA = clotThinPref
	bimbPrefA = bimbPref
	pierPrefA = pierPref
	tattPrefA = tattPref
	lipsPrefA = lipsPref
	bodyPrefA = bodyPref
	makePrefA = makePref
	IQPrefA = IQPref
	compliance = 0
end

if $ARGS[0] = 'B':
	!!stopboy = 0
	$boyB = $boy
	$boydescB = $boydesc
	boybodyrandB = boybodyrand
	$boybodyB = $boybody
	boybodrandB = boybodrand
	$boybodB = $boybod
	boyfacerandB = boyfacerand
	$boyfaceB = $boyface
	dickB = dick
	silaVagB = silaVag
	financeB = finance
	vneshBoyB = vneshBoy
	$boyCloB = $boyClo
	figurBoyB = figurBoy
	titBoyB = titBoy
	haerBoyB = haerBoy
	harakBoyB = harakBoy
	boydayB = daystart
	bfB = 1
	dayb = 0
	boyonceB = 0
	boypicB = boypic
	
	!!new preferences
	clotTypePrefB = clotTypePref
	clotQualPrefB = clotQualPref
	clotTopPrefB = clotTopPref
	bottShorPrefB = bottShorPref
	clotThinPrefB = clotThinPref
	bimbPrefB = bimbPref
	pierPrefB = pierPref
	tattPrefB = tattPref
	lipsPrefB = lipsPref
	bodyPrefB = bodyPref
	makePrefB = makePref
	IQPrefB = IQPref
	compliance = 0
end

if $ARGS[0] = 'C':
	!!stopboy = 0
	$boyC = $boy
	$boydescC = $boydesc
	boybodyrandC = boybodyrand
	$boybodyC = $boybody
	boybodrandC = boybodrand
	$boybodC = $boybod
	boyfacerandC = boyfacerand
	$boyfaceC = $boyface
	dickC = dick
	silaVagC = silaVag
	financeC = finance
	vneshBoyC = vneshBoy
	$boyCloC = $boyClo
	figurBoyC = figurBoy
	titBoyC = titBoy
	haerBoyC = haerBoy
	harakBoyC = harakBoy
	boydayC = daystart
	bfC = 1
	dayc = 0
	boyonceC = 0
	boypicC = boypic

	!!new preferences
	clotTypePrefC = clotTypePref
	clotQualPrefC = clotQualPref
	clotTopPrefC = clotTopPref
	bottShorPrefC = bottShorPref
	clotThinPrefC = clotThinPref
	bimbPrefC = bimbPref
	pierPrefC = pierPref
	tattPrefC = tattPref
	lipsPrefC = lipsPref
	bodyPrefC = bodyPref
	makePrefC = makePref
	IQPrefC = IQPref
	compliance = 0

end

--- boyfrend ---------------------------------