Fix possible adding of duplcate fuckbuddy.

locations/lover.qsrc

@@ -140,9 +140,12 @@ if $ARGS[0] = 'add fuckbuddy':
 	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
+	! Do not add when he has already been added.
+	if arrpos('$fuckbuddy',$boy) = -1:
+		$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
 end
 
 if $ARGS[0] = 'remove fuckbuddy':