Additional check.

Source/ThinkTreeNodes/ThinkNode_ChancePerHour_Bestiality.cs

@@ -45,6 +45,10 @@ namespace rjw
 				if (!xxx.is_zoophile(pawn))
 					personality_factor *= 3.5f;
 
+				// Less likely to engage in bestiality if the pawn has a lover... unless the lover is an animal (there's mods for that, so need to check). 
+				if (!xxx.isSingleOrPartnerNotHere(pawn) && !xxx.is_animal(LovePartnerRelationUtility.ExistingMostLikedLovePartner(pawn, false)) && !xxx.is_lecher(pawn) && !xxx.is_nympho(pawn))
+					personality_factor *= 2.5f;
+
 				// Pawns with few or no prior animal encounters are more reluctant to engage in bestiality.
 				if (pawn.records.GetValue(xxx.CountOfSexWithAnimals) < 3)
 					personality_factor *= 1.8f;