glife/locations/lover.qsrc

# lover

if $ARGS[0] = 'add':
	if mid($boy,1,1) = 'C': gs 'npcpreservec', $boy & gs 'boyStat', $npclastsaved
	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
	lover_picture[i] = lover_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
	loverGender[i] = loverGenderTmp

	!! making sure lover has pronouns
	gs 'pronouns', loverGender[i], 0
	$loverXe[i] = $xe[0]
	$loverXec[i] = $xec[0]
	$loverXem[i] = $xem[0]
	$loverXemc[i] = $xemc[0]
	$loverXyr[i] = $xyr[0]
	$loverXyrc[i] = $xyrc[0]
	$loverXyrs[i] = $xyrs[0]
	$loverXyrsc[i] = $xyrsc[0]
	$loverXemself[i] = $xemself[0]
	$loverXemselfc[i] = $xemselfc[0]
	
	pcs_lovers[i] = 1
	pcs_lover +=1
	if loverGender[i] = 1: pcs_girlfriends += 1
end

if $ARGS[0] = 'remove':
	i = ARGS[1]

	killvar '$lover', i
	killvar '$loverdesc', i
	killvar 'loverbodyrand', i
	killvar '$loverbody', i
	killvar 'loverbodrand', i
	killvar '$loverbod', i
	killvar 'loverfacerand', i
	killvar '$loverface', i
	killvar 'loverdick', i
	killvar '$loverdick_girth', i
	killvar 'loversilaVag', i
	killvar 'loverfinance', i
	killvar 'vneshlover', i
	killvar '$loverClo', i
	killvar 'figurlover', i
	killvar 'titlover', i
	killvar 'hairlover', i
	killvar 'haraklover', i
	killvar 'loverday', i
	killvar 'loverrelation', i
	killvar 'loverdays', i
	killvar 'boyonce', i
	killvar 'loverizvrat', i
	killvar 'giftDay', i
	killvar 'giftNum', i
	killvar 'loverlove', i
	killvar 'loverscompliance', i
	killvar 'lover_picture', i
	killvar 'meethour', i
	killvar 'svidanie', i
	killvar 'meetday', i
	killvar 'loverGender', i
	
	!!new preferences
	killvar 'clotTypePref', i
	killvar 'clotQualPref', i
	killvar 'clotTopPref', i
	killvar 'bottShorPref', i
	killvar 'clotThinPref', i
	killvar 'bimbPref', i
	killvar 'pierPref', i
	killvar 'tattPref', i
	killvar 'lipsPref', i
	killvar 'bodyPref', i
	killvar 'makePref', i
	killvar 'IQPref', i

	killvar '$loverXe', i
	killvar '$loverXec', i
	killvar '$loverXem', i
	killvar '$loverXemc', i
	killvar '$loverXyr', i
	killvar '$loverXyrc', i
	killvar '$loverXyrs', i
	killvar '$loverXyrsc', i
	killvar '$loverXemself', i
	killvar '$loverXemselfc', i

	killvar 'pcs_lovers', i
	pcs_lover -=1
end

if $ARGS[0] = 'add fuckbuddy':
	if mid($ARGS[1],1,1) = 'C' :
		gs 'npcpreservec', $ARGS[1]
		gs 'boyStat', $npclastsaved
	else
		gs 'boyStat',$ARGS[1]
	end
	$fuckbuddy[] = $boy
	$npc_rel_type[$boy] = 'fuckbuddy'
	gs 'telefon', 'AddContact', $boy, $npc_pic[$boy],'',"hour >= 8 and hour <= 22",'', "hour >= 8 and hour <= 22", 0
end

if $ARGS[0] = 'remove fuckbuddy':
	gs 'telefon', 'DeleteContact', $ARGS[1]
	killvar '$fuckbuddy', arrpos('$fuckbuddy',$ARGS[1])
end



--- lover ---------------------------------