# 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] = clotTypePref
	clotQualPref[i] = clotQualPref
	clotTopPref[i] = clotTopPref
	bottShorPref[i] = bottShorPref
	clotThinPref[i] = clotThinPref
	bimbPref[i] = bimbPref
	pierPref[i] = pierPref
	tattPref[i] = tattPref
	lipsPref[i] = lipsPref
	bodyPref[i] = bodyPref
	makePref[i] = makePref
	IQPref[i] = IQPref
	
	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 'clotTypePref', ARGS[1]
	killvar 'clotQualPref', ARGS[1]
	killvar 'clotTopPref', ARGS[1]
	killvar 'bottShorPref', ARGS[1]
	killvar 'clotThinPref', ARGS[1]
	killvar 'bimbPref', ARGS[1]
	killvar 'pierPref', ARGS[1]
	killvar 'tattPref', ARGS[1]
	killvar 'lipsPref', ARGS[1]
	killvar 'bodyPref', ARGS[1]
	killvar 'makePref', ARGS[1]
	killvar 'IQPref', ARGS[1]
	
	killvar 'pcs_lovers', ARGS[1]
	pcs_lover -=1
end


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

