Merge branch 'pregmod-dev' into 'pregmod-master'

Add missing fSlaveSlaveDickConsummate.tw stuff

See merge request pregmodfan/fc-pregmod!8839

slave variables documentation - Pregmod.txt

@@ -4246,6 +4246,10 @@ origBodyOwner:
 accepts string
 Who, if relevant, the body belonged to.
 
+origBodyOwnerID:
+
+ID, if present, of the slave that possesses their old body.
+
 death:
 
 Cause of slave death.

src/npc/interaction/passage/fSlaveSlaveDickConsummate.tw

@@ -163,8 +163,8 @@ You call $slaverapistx.slaveName into the room.
 	$he only knows that they have a pussy and $his <<if (getSlave($AS).clit >= 4)>>swollen clit<<else>>_dickSize penis<</if>> is erect. Naturally, $he seems quite eager to put them together.
 	<<set _incestMood = "Bottom">>
 <<else>>
+	<<= getSlave($AS).slaveName>> is fully naked and <<if canSee(getSlave($AS))>>looking up at<<else>>waiting in front of<</if>>
 	<<if _isIncest == 1>>
-		<<= getSlave($AS).slaveName>> is fully naked and <<if canSee(getSlave($AS))>>looking up at<<else>>waiting in front of<</if>>
 		<<if getSlave($AS).father == $slaverapistx.ID && getSlave($AS).mother == $slaverapistx.ID>>
 			the slave that is both $his mother and $his father,
 		<<elseif $slaverapistx.mother == $AS || $slaverapistx.father == $AS>>
@@ -198,6 +198,54 @@ You call $slaverapistx.slaveName into the room.
 				<</if>>
 			<</if>>
 		<</if>>
+	<<else>>
+		<<if (getSlave($AS).relationshipTarget == $slaverapistx.ID)>>
+			$his <<print relationshipTerm(getSlave($AS), $slaverapistx)>>,
+			<<if (getSlave($AS).relationship > 2)>>
+				but since they're already in a sexual relationship, $he just shows a relaxed smile as $he waits for $slaverapistx.slaveName to mount $him.
+			<<elseif getSlave($AS).partners.includes($slaverapistx.ID)>>
+				but since they're already done it before, $he just shows a relaxed smile as $he waits for $slaverapistx.slaveName to mount $him.
+			<<else>>
+				whom $he hasn't had sex with yet. $He smiles nervously as $he waits for $slaverapistx.slaveName to mount $him.
+			<</if>>
+		<<elseif (getSlave($AS).rivalryTarget == $slaverapistx.ID)>>
+			$his <<print rivalryTerm(getSlave($AS), $slaverapistx)>>, $slaverapistx.slaveName.
+			<<if getSlave($AS).partners.includes($slaverapistx.ID)>>
+				They've already fucked in the past, and by $his reaction, unwillingly. A
+			<<else>>
+				$He doesn't much like what is to come, but a 
+			<</if>>
+			direct injection of vasodilators fixes that, forcing $him to readiness, much to $his chagrin.
+		<<elseif (getSlave($AS).origBodyOwnerID == $slaverapistx.ID)>>
+			$slaverapistx.slaveName, who inhabits $his prior body.
+			<<if (getSlave($AS).sexualQuirk == "perverted")>>
+				$He's enough of a pervert to get off over getting mounted by $his own form, <<if (getSlave($AS).clit >= 4)>>leaving $his massive clit flushed<<else>>making $his _dickSize cock drip precum<</if>>.
+			<<elseif getSlave($AS).devotion > 95>>
+				$His deep acceptance of slavery means $he is eager to please you, <<if (getSlave($AS).clit >= 4)>>leaving $his massive clit flushed<<else>>making $his _dickSize cock drip precum<</if>>, despite how odd it is to fuck one's own body.
+			<<elseif getSlave($AS).devotion > 60>>
+				$He is clearly struggling to keep $himself hard while acknowledging $he is expected to fuck $his former body. A small dose of vasodilators and $his impressive desire to please you should keep $his <<if (getSlave($AS).clit >= 4)>>clit<<else>>penis<</if>> at attention.
+			<<else>>
+				<<if ndef _bottomDrugged>>
+					Once it becomes clear to $him that "$he'll" be the one mounting $him, $his <<if (getSlave($AS).clit >= 4)>>massive clit<<else>>_dickSize penis<</if>> shrinks away. A direct injection of vasodilators changes that, bringing $him back to readiness to $his horror.
+					<<set _bottomDrugged = 1>>
+				<<else>>
+					To $his own horror the drugs $he was injected with keep $his <<if (getSlave($AS).clit >= 4)>>massive clit<<else>>_dickSize penis<</if>> ready and waiting.
+				<</if>>
+			<</if>>
+		<<else>>
+			<<if getSlave($AS).devotion > 95>>
+				$His deep acceptance of slavery means $he is eager to please you, <<if (getSlave($AS).clit >= 4)>>leaving $his massive clit flushed<<else>>making $his _dickSize cock drip precum<</if>>, eager for $slaverapistx.slaveName.
+			<<elseif getSlave($AS).devotion > 60>>
+				$He is eager enough to please you that $his <<if (getSlave($AS).clit >= 4)>>clit<<else>>penis<</if>> is at attention and waiting for $slaverapistx.slaveName.
+			<<else>>
+				<<if ndef _bottomDrugged>>
+					Once it becomes clear to $him that $slaverapistx.slaveName be the one mounting $him, $his <<if (getSlave($AS).clit >= 4)>>massive clit<<else>>_dickSize penis<</if>> shrinks away. A direct injection of vasodilators changes that, bringing $him back to a proper hardness.
+					<<set _bottomDrugged = 1>>
+				<<else>>
+					To $his own horror the drugs $he was injected with keep $his <<if (getSlave($AS).clit >= 4)>>massive clit<<else>>_dickSize penis<</if>> ready and waiting.
+				<</if>>
+			<</if>>
+		<</if>>
 	<</if>>
 <</if>>
 
@@ -222,8 +270,8 @@ You call $slaverapistx.slaveName into the room.
 		Naturally, since _he2 thinks _he2's a breeding bull, incest means nothing to _him2.
 	<</if>>
 <<else>>
+	$slaverapistx.slaveName sees
 	<<if _isIncest == 1>>
-		$slaverapistx.slaveName sees
 		<<if $slaverapistx.father == $AS && $slaverapistx.mother == $AS>>
 			the slave that is both _his2 mother and _his2 father
 		<<elseif getSlave($AS).mother == $slaverapistx.ID || getSlave($AS).father == $slaverapistx.ID>>
@@ -269,6 +317,42 @@ You call $slaverapistx.slaveName into the room.
 				<</if>>
 			<</if>>
 		<</if>>
+	<<else>>
+		<<if (getSlave($AS).relationshipTarget == $slaverapistx.ID)>>
+			$his <<print relationshipTerm(getSlave($AS), $slaverapistx)>>
+		<<elseif (getSlave($AS).rivalryTarget == $slaverapistx.ID)>>
+			$his <<print rivalryTerm(getSlave($AS), $slaverapistx)>>
+		<<elseif (getSlave($AS).origBodyOwnerID == $slaverapistx.ID)>>
+			$his former body
+		<<else>>
+			<<= getSlave($AS).slaveName>>
+		<</if>>
+		tied to the bed,
+		<<if ($slaverapistx.relationshipTarget == $AS && $slaverapistx.relationship > 2) || ($slaverapistx.rivalryTarget == $AS)>>
+			and licks _his2 lips involuntarily.
+		<<else>>
+			<<if $slaverapistx.devotion > 95>>
+				<<if _incestMood == "Bottom">>
+					as well as _his2 apparent lust. Since _he2 is a perfect slave for you, _his2 vagina becomes flushed with arousal quickly.
+					<<set _incestMood = "Both">>
+				<<else>>
+					<<set _incestMood = "Top">>
+					as well as $his worried expressions. $slaverapistx.slaveName seems aroused and determined to show $him how a proper slave should act.
+				<</if>>
+			<<elseif $slaverapistx.devotion > 20>>
+				<<if _incestMood == "BottomFragile">>
+					<<unset _incestMood>>
+				<</if>>
+				and after figuring out they're just as superficially prepared as _he2 is, resolves _himself2 to try and make it pleasurable.
+			<<else>>
+				and can't hide the look of horror that crosses _his2 face. You assure _him2 this is what _he2 needs to do.
+				<<if _incestMood == "Bottom">>
+					To _his2 growing disgust, _he2 can tell <<= getSlave($AS).slaveName>>'s <<if (getSlave($AS).clit >= 4)>>erect clit<<else>>_dickSize erection<</if>> shows off genuine arousal despite _his2 unwillingness.
+				<<else>>
+					_He2 might find solace in the fact that the owner of the <<if (getSlave($AS).clit >= 4)>>erect clit<<else>>_dickSize erection<</if>> on display doesn't seem thrilled as well.
+				<</if>>
+			<</if>>
+		<</if>>
 	<</if>>
 
 	<<if _incestMood == "Top" || _incestMood == "Both" || ndef(_isIncest)>>