From a22410ad4434d6474629211a779a9be312884daf Mon Sep 17 00:00:00 2001
From: klorpa <30924131+klorpa@users.noreply.github.com>
Date: Mon, 13 May 2019 00:12:53 -0500
Subject: [PATCH] Rapeseeds

---
 slave variables documentation - Pregmod.txt |  1 -
 src/pregmod/pRaped.tw                       | 48 ++++--------
 src/uncategorized/RESS.tw                   | 86 ++++++++++-----------
 src/uncategorized/newSlaveIntro.tw          | 33 ++++++--
 4 files changed, 87 insertions(+), 81 deletions(-)

diff --git a/slave variables documentation - Pregmod.txt b/slave variables documentation - Pregmod.txt
index 0c90088afa9..fafc3a6fe1c 100644
--- a/slave variables documentation - Pregmod.txt	
+++ b/slave variables documentation - Pregmod.txt	
@@ -3007,7 +3007,6 @@ wGain + wLoss - slave weight gain/loss fluctuates randomly
 
 androgyny - slave's body attempts to normalize to an androgynous state
 
-
 }
 
 counter:
diff --git a/src/pregmod/pRaped.tw b/src/pregmod/pRaped.tw
index 4a9412c02fa..36d64681c9c 100644
--- a/src/pregmod/pRaped.tw
+++ b/src/pregmod/pRaped.tw
@@ -2,52 +2,38 @@
 
 <<set $raped = 1, $nextLink = "Nonrandom Event", $returnTo = "Nonrandom Event">>
 
+<<setPlayerPronouns>>
+
+<<set $activeSlaveOneTimeMinAge = 16>>
+<<set $oneTimeDisableDisability = 1>>
+<<if $arcologies[0].FSSupremacistLawME == 1>>
+	<<set $fixedRace = $arcologies[0].FSSupremacistRace>>
+<<elseif $arcologies[0].FSSubjugationistLawME == 1>>
+	<<set _races = setup.filterRacesLowercase.filter(race => race !== $arcologies[0].FSSubjugationistRace)>>
+	<<set $fixedRace = _races.random()>>
+<</if>>
 <<if $PC.vagina > 0>>
-	<<set $activeSlaveOneTimeMinAge = 16>>
-	<<set $oneTimeDisableDisability = 1>>
-	<<if $arcologies[0].FSSupremacistLawME == 1>>
-		<<set $fixedRace = $arcologies[0].FSSupremacistRace>>
-	<<elseif $arcologies[0].FSSubjugationistLawME == 1>>
-		<<set _races = setup.filterRacesLowercase.filter(race => race !== $arcologies[0].FSSubjugationistRace)>>
-		<<set $fixedRace = _races.random()>>
-	<</if>>
 	<<set $activeSlave = GenerateNewSlave("XY")>>
-	<<set $activeSlave.origin = "You sentenced her to enslavement for the attempted rape of a free woman.">>
-	<<set $activeSlave.devotion = -100>>
-	<<set $activeSlave.trust = -100>>
-	<<set $activeSlave.health = random(-50,-20)>>
-	<<set $activeSlave.anus = 0>>
 	<<set $activeSlave.dick = 6>>
 	<<set $activeSlave.balls = 5>>
 	<<set $activeSlave.boobs = 0>>
 	<<set $activeSlave.waist = 50>>
 	<<set $activeSlave.skill.oral = 0>>
 	<<set $activeSlave.skill.anal = 0>>
-	<<set $activeSlave.behavioralFlaw = "arrogant">>
-	<<set $activeSlave.sexualFlaw = "judgemental">>
 <<else>>
-	<<set $activeSlaveOneTimeMinAge = 16>>
-	<<set $oneTimeDisableDisability = 1>>
-	<<if $arcologies[0].FSSupremacistLawME == 1>>
-		<<set $fixedRace = $arcologies[0].FSSupremacistRace>>
-	<<elseif $arcologies[0].FSSubjugationistLawME == 1>>
-		<<set _races = setup.filterRacesLowercase.filter(race => race !== $arcologies[0].FSSubjugationistRace)>>
-		<<set $fixedRace = _races.random()>>
-	<</if>>
 	<<set $activeSlave = GenerateNewSlave("XX")>>
-	<<set $activeSlave.origin = "You sentenced her to enslavement for the attempted rape of a free man.">>
-	<<set $activeSlave.devotion = -100>>
-	<<set $activeSlave.trust = -100>>
-	<<set $activeSlave.health = random(-50,-20)>>
-	<<set $activeSlave.anus = 0>>
 	<<set $activeSlave.vagina = 1>>
 	<<set $activeSlave.weight = random(-20,30)>>
 	<<set $activeSlave.waist = -20>>
-	<<set $activeSlave.behavioralFlaw = "arrogant">>
-	<<set $activeSlave.sexualFlaw = "judgemental">>
 <</if>>
+<<set $activeSlave.origin = "You sentenced $him to enslavement for the attempted rape of a free " + _womanP + ".">>
+<<set $activeSlave.devotion = -100>>
+<<set $activeSlave.trust = -100>>
+<<set $activeSlave.health = random(-50,-20)>>
+<<set $activeSlave.anus = 0>>
+<<set $activeSlave.behavioralFlaw = "arrogant">>
+<<set $activeSlave.sexualFlaw = "judgemental">>
 
-<<setPlayerPronouns>>
 <<setLocalPronouns $activeSlave>>
 
 While returning from a meeting with a prospective investor, an unfortunate wrong turn has led you into a rather seedy area of your arcology. You feel distinctly uncomfortable for some reason.
diff --git a/src/uncategorized/RESS.tw b/src/uncategorized/RESS.tw
index cf07c4936d4..e695495acab 100644
--- a/src/uncategorized/RESS.tw
+++ b/src/uncategorized/RESS.tw
@@ -3720,7 +3720,7 @@ During $his weekly inspection, <<EventNameLink>> has trouble following the routi
 <<case "confinement">>b-being <<sh>>-<<sh>>ut up in the d-dark
 <<case "whipping">>b-being wh-wh-whip-ped
 <<case "chastity">>h-having my p-part<<s>> locked up in ch-cha<<s>>tity
-<<default>>n-never knowing what th-the p-punishment will be
+<<default>>n-never knowing what th-the p-puni<<sh>>ment will be
 <</switch>>
 wh-when I'm bad, e-everything, <<if $activeSlave.rudeTitle == 1>><<= PoliteRudeTitle($activeSlave)>><<else>><<Master>><</if>>. Oh, oh, I'm <<s>>orry, p-plea<<s>>e, I'm <<s>>orry I, I'm like thi<<s>>, I'm crying, p-plea<<s>>e <<if $activeSlave.rudeTitle == 1>><<= PoliteRudeTitle($activeSlave)>><<else>><<Master>><</if>>, plea<<s>>e don't..." $He trails off, giving you a look of supplication.
 
@@ -11114,52 +11114,52 @@ brought in to you. This time <<EventNameLink>> has been sent to deliver it. $He
 		<br><br><span id="result2">
 			<<link "Kiss $him back">>
 				<<replace "#result2">>
-				You turn to kiss $him back, on the lips this time. $He <<if canSee($activeSlave)>>sees<<else>>feels<</if>> your intention and @@.mediumaquamarine;complies trustingly,@@ closing $his eyes and tilting $his head slightly so your lips lock perfectly.
-				<<if ($activeSlave.lips > 70)>>
-					$His ridiculous, pillowlike lips part softly.
-				<<elseif ($activeSlave.teeth == "pointy")>>
-					$He opens $his jaw wide, careful to keep $his shark's teeth well clear of you.
-				<</if>>
-				After a few seconds, $he realizes you aren't planning to break the kiss anytime soon, and softens, $his<<if $activeSlave.bellyPreg >= 1500>> pregnant<</if>> body relaxing against yours. $He scoots closer to you, bringing $his legs up under $him on the couch cushions so $he can face you comfortably. $He leans one
-				<<if $activeSlave.weight > 160>>
-					extremely well padded
-				<<elseif $activeSlave.weight > 95>>
-					well padded
-				<<elseif ($activeSlave.muscles > 30)>>
-					muscular
-				<<elseif ($activeSlave.weight > 10)>>
-					plush
-				<<elseif $activeSlave.hips > -1>>
-					pretty
-				<</if>>
-				hip against your leg, hiking $himself half onto your lap so $he can make out with you without having to sit with any weight on $his sore butthole.
-				<<set $activeSlave.trust += 2>>
+					You turn to kiss $him back, on the lips this time. $He <<if canSee($activeSlave)>>sees<<else>>feels<</if>> your intention and @@.mediumaquamarine;complies trustingly,@@ closing $his eyes and tilting $his head slightly so your lips lock perfectly.
+					<<if ($activeSlave.lips > 70)>>
+						$His ridiculous, pillowlike lips part softly.
+					<<elseif ($activeSlave.teeth == "pointy")>>
+						$He opens $his jaw wide, careful to keep $his shark's teeth well clear of you.
+					<</if>>
+					After a few seconds, $he realizes you aren't planning to break the kiss anytime soon, and softens, $his<<if $activeSlave.bellyPreg >= 1500>> pregnant<</if>> body relaxing against yours. $He scoots closer to you, bringing $his legs up under $him on the couch cushions so $he can face you comfortably. $He leans one
+					<<if $activeSlave.weight > 160>>
+						extremely well padded
+					<<elseif $activeSlave.weight > 95>>
+						well padded
+					<<elseif ($activeSlave.muscles > 30)>>
+						muscular
+					<<elseif ($activeSlave.weight > 10)>>
+						plush
+					<<elseif $activeSlave.hips > -1>>
+						pretty
+					<</if>>
+					hip against your leg, hiking $himself half onto your lap so $he can make out with you without having to sit with any weight on $his sore butthole.
+					<<set $activeSlave.trust += 2>>
 				<</replace>>
 			<</link>>
 			<br><<link "Rape $him">>
 				<<replace "#result2">>
-				But $he's wrong to place that kind of faith in you. As $he withdraws from the kiss, you snake a betraying hand between $his butt and the couch, and shove
-				<<if $activeSlave.anus <= 1>>
-					two rude fingers up $his sore little anus.
-				<<elseif $activeSlave.anus == 2>>
-					three rude fingers up $his sore anus.
-				<<else>>
-					all four of your fingers and your thumb, formed into a point, as far up $his loose butt as they will go.
-				<</if>>
-				$He lets out a pained "oh," and then goes silent. For such a little sound, it bears a great weight of @@.gold;betrayed trust.@@ You insert your fingers to the knuckle, making $him writhe with discomfort, and then turf $him off the couch to land
-				<<if $activeSlave.belly >= 300000>>
-					across $his _belly stomach
-				<<else>>
-					face first
-				<</if>>
-				on the floor in front of you. $He tries to spread $his butt and angle $his hips like a good $girl, but you slap $his hands away and push your <<if $PC.dick == 0>>strap-on<<else>>cock<</if>> inside $him without regard for $his poor anus. $He shudders and begins to cry, and keeps crying as you ravage $his asshole. When you climax and pull out, $he continues to weep, but stumbles off to wash. When $he comes back, $he's still sniffling, but without being prompted,
-				<<if $activeSlave.belly >= 300000>>
-					@@.hotpink;$he leans over $his belly and offers you $his sore butthole again.@@
-				<<else>>
-					@@.hotpink;$he gets down on $his knees and offers you $his sore butthole again.@@
-				<</if>>
-				<<set $activeSlave.trust -= 4, $activeSlave.devotion += 5>>
-				<<= AnalVCheck()>>
+					But $he's wrong to place that kind of faith in you. As $he withdraws from the kiss, you snake a betraying hand between $his butt and the couch, and shove
+					<<if $activeSlave.anus <= 1>>
+						two rude fingers up $his sore little anus.
+					<<elseif $activeSlave.anus == 2>>
+						three rude fingers up $his sore anus.
+					<<else>>
+						all four of your fingers and your thumb, formed into a point, as far up $his loose butt as they will go.
+					<</if>>
+					$He lets out a pained "oh," and then goes silent. For such a little sound, it bears a great weight of @@.gold;betrayed trust.@@ You insert your fingers to the knuckle, making $him writhe with discomfort, and then turf $him off the couch to land
+					<<if $activeSlave.belly >= 300000>>
+						across $his _belly stomach
+					<<else>>
+						face first
+					<</if>>
+					on the floor in front of you. $He tries to spread $his butt and angle $his hips like a good $girl, but you slap $his hands away and push your <<if $PC.dick == 0>>strap-on<<else>>cock<</if>> inside $him without regard for $his poor anus. $He shudders and begins to cry, and keeps crying as you ravage $his asshole. When you climax and pull out, $he continues to weep, but stumbles off to wash. When $he comes back, $he's still sniffling, but without being prompted,
+					<<if $activeSlave.belly >= 300000>>
+						@@.hotpink;$he leans over $his belly and offers you $his sore butthole again.@@
+					<<else>>
+						@@.hotpink;$he gets down on $his knees and offers you $his sore butthole again.@@
+					<</if>>
+					<<set $activeSlave.trust -= 4, $activeSlave.devotion += 5>>
+					<<= AnalVCheck()>>
 				<</replace>>
 			<</link>>
 		</span>
diff --git a/src/uncategorized/newSlaveIntro.tw b/src/uncategorized/newSlaveIntro.tw
index ae5878acf05..5e27e6010ac 100644
--- a/src/uncategorized/newSlaveIntro.tw
+++ b/src/uncategorized/newSlaveIntro.tw
@@ -752,12 +752,12 @@ The legalities completed, ''__@@.pink;<<= SlaveFullName($activeSlave)>>@@__'' <<
 	<</link>>
 	<<if canDoAnal($activeSlave)>>
 		| <<link "Put $him in $his place">>
-		<<replace "#introResult">>
-			You stand up and tell $him to strip. $He hesitates, staring at you in dawning apprehension, until $he sees that you're stepping into a strap-on. $He unconsciously takes a step backward, but that's as far as $he gets before you cover the ground between you, grab $him by the throat, and push $his back until $he falls onto the couch. You drag the head of the fake phallus down over $his pussylips, and $he shivers, but you keep going, telling $him that you'll only be fucking $him there when $he's good. When $he's bad, you'll assfuck $him. $His eyes fly open and $he tries to struggle, but you give $him a warning slap and then push yourself home. $He starts to cry, more from hopelessness than anal pain, knowing that @@.mediumorchid;you're a slaveowner like any other,@@ more likely to @@.gold;abuse $him@@ than be sympathetic.
-		<</replace>>
-		<<set $activeSlave.devotion -= 5>>
-		<<set $activeSlave.trust -= 5>>
-		<<= AnalVCheck()>>
+			<<replace "#introResult">>
+				You stand up and tell $him to strip. $He hesitates, staring at you in dawning apprehension, until $he sees that you're stepping into a strap-on. $He unconsciously takes a step backward, but that's as far as $he gets before you cover the ground between you, grab $him by the throat, and push $his back until $he falls onto the couch. You drag the head of the fake phallus down over $his pussylips, and $he shivers, but you keep going, telling $him that you'll only be fucking $him there when $he's good. When $he's bad, you'll assfuck $him. $His eyes fly open and $he tries to struggle, but you give $him a warning slap and then push yourself home. $He starts to cry, more from hopelessness than anal pain, knowing that @@.mediumorchid;you're a slaveowner like any other,@@ more likely to @@.gold;abuse $him@@ than be sympathetic.
+			<</replace>>
+			<<set $activeSlave.devotion -= 5>>
+			<<set $activeSlave.trust -= 5>>
+			<<= AnalVCheck()>>
 		<</link>>
 	<</if>>
 <br>
@@ -950,6 +950,27 @@ The legalities completed, ''__@@.pink;<<= SlaveFullName($activeSlave)>>@@__'' <<
 		<<set $activeSlave.trust += 4>>
 	<</link>>
 <br>
+<<default>>
+	<<set $toSearch = $activeSlave.origin>>
+	<<if ($toSearch.indexOf("enslavement for the attempted rape of a free") != -1)>>
+		//and since $he tried to rape you...//
+		<br>&nbsp;&nbsp;&nbsp;&nbsp;
+		<<link "Show $him how a professional rapes">>
+			<<replace "#introResult">>
+				You gesture towards $eventSlave.slaveName. $He is <<if $eventSlave.intelligence+$eventSlave.intelligenceImplant > 15>>bright enough<<elseif (($eventSlave.skill.vaginal + $eventSlave.skill.anal + $eventSlave.skill.oral) > 100)>>skilled enough<<else>>obedient enough<</if>> to understand you mean a demonstration is in order. $eventSlave.slaveName starts things off with a <<if $eventSlave.skill.entertainment >= 100>>masterful<<elseif $eventSlave.skill.entertainment > 10>>skillful<<else>>passable<</if>> striptease, culminating in $him <<if ($eventSlave.anus > 0) && ($eventSlave.fetish != "cumslut")>>bending over<<else>>kneeling<</if>> in front of you. $He eagerly moans as you enter $him, begging for your seed<<if $eventSlave.energy > 95>> like the slut $he is<<elseif $eventSlave.skill.whoring > 30>> like the whore $he is<<elseif ($eventSlave.assignment == "serve in the master suite") || ($eventSlave.assignment == "please you")>> like the fucktoy $he is<</if>>. As you finish, $he <<if $eventSlave.fetish == "cumslut">>opens $his mouth and savors your gift, thanking you once $he's swallowed enough to be able to talk again.<<elseif ($eventSlave.fetish == "buttslut") || ($eventSlave.fetish == "submissive")>>collapses on the floor with $his ass high in the air, thanking you for painting $his hole white.<<else>>thanks you.<</if>> Witnessing this display of servitude from $his <<if $activeSlave.mother == $eventSlave.ID>>mother<<else>>father<</if>> @@.hotpink;eases $activeSlave.slaveName into $his new life,@@ and @@.mediumaquamarine;gives $him hope@@ $he can find a place here.
+			<</replace>>
+			<<set $activeSlave.devotion += 4>>
+			<<set $activeSlave.trust += 4>>
+		<</link>>
+		| <<link "Show $him that $he could have just asked">>
+			<<replace "#introResult">>
+				You stand up and tell $him to strip. $He hesitates, staring at you in dawning apprehension, until $he sees that you're stepping into a strap-on. $He unconsciously takes a step backward, but that's as far as $he gets before you cover the ground between you, grab $him by the throat, and push $his back until $he falls onto the couch. You drag the head of the fake phallus down over $his pussylips, and $he shivers, but you keep going, telling $him that you'll only be fucking $him there when $he's good. When $he's bad, you'll assfuck $him. $His eyes fly open and $he tries to struggle, but you give $him a warning slap and then push yourself home. $He starts to cry, more from hopelessness than anal pain, knowing that @@.mediumorchid;you're a slaveowner like any other,@@ more likely to @@.gold;abuse $him@@ than be sympathetic.
+			<</replace>>
+			<<set $activeSlave.devotion -= 5>>
+			<<set $activeSlave.trust -= 5>>
+			<<= AnalVCheck()>>
+		<</link>>
+	<</if>>
 <</switch>>
 
 <br>//Have $him changed...//
-- 
GitLab