# boyfrend

if $ARGS[0] = 'start':
	if arrsize('pcs_lovers') > 2:
		'Hmm, you are already three boyfriend, why do you need a fourth?'
	else
		gs 'boyfrend', 'add'
	end
end

if $ARGS[0] = 'add':
	i = arrsize('pcs_lovers')
	$lover[i] = $boy
	$loverdesc[i] = $boydesc
	loverbodyrand[i] = boybodyrand
	$loverbody[i] = $boybody
	loverbodrand[i] = boybodrand
	$loverbod[i] = $boybod
	loverfacerand[i] = boyfacerand
	$loverface[i] = $boyface
	loverdick[i] = dick
	$loverdick_girth[i] = $dick_girth
	loversilaVag[i] = silaVag
	loverfinance[i] = finance
	vneshlover[i] = vneshBoy
	$loverClo[i] = $boyClo
	figurlover[i] = figurBoy
	titlover[i] = titBoy
	hairlover[i] = hairBoy
	haraklover[i] = harakBoy
	loverday[i] = daystart
	loverrelation[i] = 3
	loverdays[i] = 0
	boyonce[i] = 0
	loverizvrat[i] = izvrat
	giftDay[i] = 0
	giftNum[i] = 0
	loverlove[i] = 0
	loverscompliance[i] = 0
	boypic[i] = picrand
	meethour[i] = 0
	svidanie[i] = 0
	meetday[i] = 0

	
	!!new preferences
	clotTypePref[i] = clotTypePrefTmp
	clotQualPref[i] = clotQualPrefTmp
	clotTopPref[i] = clotTopPrefTmp
	bottShorPref[i] = bottShorPrefTmp
	clotThinPref[i] = clotThinPrefTmp
	bimbPref[i] = bimbPrefTmp
	pierPref[i] = pierPrefTmp
	tattPref[i] = tattPrefTmp
	lipsPref[i] = lipsPrefTmp
	bodyPref[i] = bodyPrefTmp
	makePref[i] = makePrefTmp
	IQPref[i] = IQPrefTmp
	
	pcs_lovers[i] = 1
	pcs_lover +=1
end

if $ARGS[0] = 'remove':
	killvar '$lover', ARGS[1]
	killvar '$loverdesc', ARGS[1]
	killvar 'loverbodyrand', ARGS[1]
	killvar '$loverbody', ARGS[1]
	killvar 'loverbodrand', ARGS[1]
	killvar '$loverbod', ARGS[1]
	killvar 'loverfacerand', ARGS[1]
	killvar '$loverface', ARGS[1]
	killvar 'loverdick', ARGS[1]
	killvar '$loverdick_girth', ARGS[1]
	killvar 'loversilaVag', ARGS[1]
	killvar 'loverfinance', ARGS[1]
	killvar 'vneshlover', ARGS[1]
	killvar '$loverClo', ARGS[1]
	killvar 'figurlover', ARGS[1]
	killvar 'titlover', ARGS[1]
	killvar 'hairlover', ARGS[1]
	killvar 'haraklover', ARGS[1]
	killvar 'loverday', ARGS[1]
	killvar 'loverrelation', ARGS[1]
	killvar 'loverdays', ARGS[1]
	killvar 'boyonce', ARGS[1]
	killvar 'loverizvrat', ARGS[1]
	killvar 'giftDay', ARGS[1]
	killvar 'giftNum', ARGS[1]
	killvar 'loverlove', ARGS[1]
	killvar 'loverscompliance', ARGS[1]
	killvar 'boypic', ARGS[1]
	killvar 'meethour', ARGS[1]
	killvar 'svidanie', ARGS[1]
	killvar 'meetday', ARGS[1]
	
	!!new preferences
	killvar 'clotTypePrefTmp', ARGS[1]
	killvar 'clotQualPrefTmp', ARGS[1]
	killvar 'clotTopPrefTmp', ARGS[1]
	killvar 'bottShorPrefTmp', ARGS[1]
	killvar 'clotThinPrefTmp', ARGS[1]
	killvar 'bimbPrefTmp', ARGS[1]
	killvar 'pierPrefTmp', ARGS[1]
	killvar 'tattPrefTmp', ARGS[1]
	killvar 'lipsPrefTmp', ARGS[1]
	killvar 'bodyPrefTmp', ARGS[1]
	killvar 'makePrefTmp', ARGS[1]
	killvar 'IQPrefTmp', ARGS[1]
	
	killvar 'pcs_lovers', ARGS[1]
	pcs_lover -=1
end


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