{fixes] Fixes to parent id, C array blanks and setting lovers to the B array from Drugas

locations/dinSex.qsrc

@@ -295,8 +295,13 @@ if $ARGS[0] = 'boy_wants_anal':
 	$bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
 	if $bwa_boy = 'lubri': $bwa_boy = $boydesc
 	if analplugin = 1:
-		'<<$bwa_boy>> pulls the plug out of your narrow and tight ass.'
-		analplugout = 1
+		if pcs_ass < 16:
+			'<<$bwa_boy>> pulls the plug out of your narrow and tight ass.'
+			analplugout = 1
+		else
+			'<<$bwa_boy>> pulls the plug out of your ass.'
+			analplugout = 1
+		end
 	end
 	if $ARGS[2] = 'lubri':
 		lubri +=1
@@ -325,9 +330,13 @@ if $ARGS[0] = 'girl_wants_anal':
 	$bwa_girl = iif($ARGS[1] = '',$boydesc,$ARGS[1])
 	if $bwa_girl = 'lubri': $bwa_girl = $boydesc
 	if analplugin = 1:
-		'<<$bwa_girl>> pulls the plug out of your narrow and tight ass.'
-		analplugin = 0
-		analplugout = 1
+		if pcs_ass < 16:
+			'<<$bwa_boy>> pulls the plug out of your narrow and tight ass.'
+			analplugout = 1
+		else
+			'<<$bwa_boy>> pulls the plug out of your ass.'
+			analplugout = 1
+		end
 	end
 	if $ARGS[2] = 'lubri':
 		lubri +=1

locations/lover.qsrc

@@ -1,6 +1,7 @@
 # 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

locations/npccleanc.qsrc

@@ -97,6 +97,10 @@ $npc_dna[$tempcclean] = ''
 i = arrsize('$cemptyarray')
 $cemptyarray[i] = $tempcclean
 
+:clean_sanity_loop
+i = arrsize('$cemptyarray') 
+If i > 1 and $cemptyarray[0] = $cemptyarray[i]: killvar '$cemptyarray', i & jump 'clean_sanity_loop'
+
 killvar '$tempcclean'
 
 --- npccleanc ---------------------------------