diff --git a/src/pregmod/seFCTV.tw b/src/pregmod/seFCTV.tw
new file mode 100644
index 0000000000000000000000000000000000000000..41a37e4109005b854077f15a4ce415920750d5ff
--- /dev/null
+++ b/src/pregmod/seFCTV.tw
@@ -0,0 +1,169 @@
+:: SE FCTV [nobr]
+
+<<set $nextButton = "Continue", $nextLink = "Scheduled Event", $returnTo = "Scheduled Event", $showEncyclopedia = 1, $encyclopedia = "FCTV">>
+<<if ndef $showEleven>>
+	<<set $showEleven = 0>>
+<</if>>
+<<if ndef $showTwelve>> /* Milkanon's channel */
+	<<set $showTwelve = 0>>
+<</if>>
+<<if ndef $showThirteen>> /* Channel13's work */
+	<<set $showThirteen = 0>>
+<</if>>
+<<if ndef $showFourteen>> /* anon's story channel */
+	<<set $showFourteen = 0>>
+<</if>>
+<<if ndef $showFifteen>> /* the pirate channel */
+	<<set $showFifteen = 0>>
+<</if>>
+<<set $randShow = random(0,15)>>
+<<set $FCTVshow = 0>>
+<<if $randShow == $lastShow>>
+	<<set $randShow += 1>>
+	<<if $randShow > 15>>
+		<<set $randShow = 0>>
+	<</if>>
+<</if>>
+
+Tired after a long day, you tell <<if $Concubine != 0>>@@.pink;$Concubine.slaveName@@<<else>>$assistantName<</if>> to turn on the TV and
+<<if $cheatMode == 1 or $debugMode == 1>>
+	bring you the remote so you can choose whatever show you find interesting.
+<br>
+<<link 0>>
+	<<set $randShow = 0>>
+    <<replace "#show">>
+        <<include "SE FCTV Shows">>
+    <</replace>>
+<</link>>
+<<link 1>>
+	<<set $randShow = 1>>
+    <<replace "#show">>
+        <<include "SE FCTV Shows">>
+    <</replace>>
+<</link>>
+<<link 2>>
+	<<set $randShow = 2>>
+    <<replace "#show">>
+        <<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 3>>
+		<<set $randShow = 3>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 4>>
+		<<set $randShow = 4>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 5>>
+		<<set $randShow = 5>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 6>>
+		<<set $randShow = 6>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 7>>
+		<<set $randShow = 7>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 8>>
+		<<set $randShow = 8>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 9>>
+		<<set $randShow = 9>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 10>>
+		<<set $randShow = 10>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 11>>
+		<<set $randShow = 11>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 12>>
+		<<set $randShow = 12>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 13>>
+		<<set $randShow = 13>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 14>>
+		<<set $randShow = 14>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+	<<link 15>>
+		<<set $randShow = 15>>
+		<<replace "#show">>
+			<<include "SE FCTV Shows">>
+		<</replace>>
+	<</link>>
+
+	<<link "Toggle inappropriate">>
+		<<if _FCTVShowAll>>
+			<<set _FCTVShowAll = 0>>
+		<<else>>
+			<<set _FCTVShowAll = 1>>
+		<</if>>
+	<</link>>
+
+<<else>>
+	set FCTV to random show. Your larger-than-life screen flashes on, and is soon playing a random show from the popular streaming service.
+	/* we need to check for pansy no-extreme squick stuff */
+	<<if $minimumSlaveAge > 13 && ($randShow == 12 || $randShow == 14)>>
+		<<set $randShow = either(0,1,2,3,4,5,6,7,8,9,10,11,13,15)>>
+		There is an audible tone from your screen, which then displays a message: <i>Actor not vintage enough, changing program.</i>
+	<</if>>
+	<<if $seeExtreme == 0 && $randShow == 10>>
+		<<set $randShow = either(0,1,2,3,4,5,6,7,8,9,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too much hugging detected, changing program.</i>
+	<</if>>
+	<<if $seeHyperPreg == 0 && $randShow == 8>>
+		<<set $randShow = either(0,1,2,3,4,5,6,7,9,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too much happiness detected, changing program.</i>
+	<</if>>
+	<<if $seePreg == 0 && ($randShow == 5 || $randShow == 8)>>
+		<<set $randShow = either(0,1,2,3,4,6,7,9,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too much baking detected, changing program.</i>
+	<</if>>
+	<<if $seeDicks == 0 && $makeDicks == 0 && $randShow == 10>>
+		<<set $randShow = either(0,1,2,3,4,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too many hot dogs detected, changing program.</i>
+	<</if>>
+	<<if $randShow == 11 && $purchasedSagBGone == 1 && $showEleven > 2>>
+		<<set $randShow++>>
+		There is an audible tone from your screen, which then displays a message: <i>Product purchase detected, skipping commercials.</i>
+	<</if>>
+<</if>>
+<<set _FCTV = "test">>
+
+<span id="show">
+	<<include "SE FCTV Shows">>
+</span>
\ No newline at end of file
diff --git a/src/pregmod/seFCTVshows.tw b/src/pregmod/seFCTVshows.tw
index cb61547ad28fe2685baec5fed473076c77a6d512..c9f26643ea630f3d8741dfba081c9a69558aed8d 100644
--- a/src/pregmod/seFCTVshows.tw
+++ b/src/pregmod/seFCTVshows.tw
@@ -1,55 +1,34 @@
 :: SE FCTV Shows [nobr]
 
 <<set $nextButton = "Continue", $nextLink = "Scheduled Event", $returnTo = "Scheduled Event", $showEncyclopedia = 1, $encyclopedia = "FCTV">>
-<<if ndef $showEleven>>
-	<<set $showEleven = 0>>
-<</if>>
-<<if ndef $showTwelve>> /* Milkanon's channel */
-	<<set $showTwelve = 0>>
-<</if>>
-<<if ndef $showThirteen>> /* Channel13's work */
-	<<set $showThirteen = 0>>
-<</if>>
-<<if ndef $showFourteen>> /* anon's story channel */
-	<<set $showFourteen = 0>>
-<</if>>
-<<if ndef $showFifteen>> /* the pirate channel */
-	<<set $showFifteen = 0>>
-<</if>>
-<<set $randShow = random(0,15)>>
-<<set $FCTVshow = 0>>
-<<if $randShow == $lastShow>>
-	<<set $randShow += 1>>
-	<<if $randShow > 15>>
-		<<set $randShow = 0>>
+<<if _FCTVShowAll>>
+	There is an audible tone from your screen, which then displays a message: <i>Showing all content, for testing purposes.</i>
+<<else>>
+	/* we need to check for pansy no-extreme squick stuff */
+	<<if $minimumSlaveAge > 13 && ($randShow == 12 || $randShow == 14)>>
+		<<set $randShow = either(0,1,2,3,4,5,6,7,8,9,10,11,13)>>
+		There is an audible tone from your screen, which then displays a message: <i>Actor not vintage enough, changing program.</i>
+	<</if>>
+	<<if $seeExtreme == 0 && $randShow == 10>>
+		<<set $randShow = either(0,1,2,3,4,5,6,7,8,9,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too much hugging detected, changing program.</i>
+	<</if>>
+	<<if $seeHyperPreg == 0 && $randShow == 8>>
+		<<set $randShow = either(0,1,2,3,4,5,6,7,9,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too much happiness detected, changing program.</i>
+	<</if>>
+	<<if $seePreg == 0 && ($randShow == 5 || $randShow == 8)>>
+		<<set $randShow = either(0,1,2,3,4,6,7,9,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too much baking detected, changing program.</i>
+	<</if>>
+	<<if $seeDicks == 0 && $makeDicks == 0 && $randShow == 10>>
+		<<set $randShow = either(0,1,2,3,4,11,12)>>
+		There is an audible tone from your screen, which then displays a message: <i>Too many hot dogs detected, changing program.</i>
+	<</if>>
+	<<if $randShow == 11 && $purchasedSagBGone == 1 && $showEleven > 2>>
+		<<set $randShow++>>
+		There is an audible tone from your screen, which then displays a message: <i>Product purchase detected, skipping commercials.</i>
 	<</if>>
-<</if>>
-
-Tired after a long day, you tell <<if $Concubine != 0>>@@.pink;$Concubine.slaveName@@<<else>>$assistantName<</if>> to turn on the TV and set FCTV to random show. Your larger-than-life screen flashes on, and is soon playing a random show from the popular streaming service.
-/* we need to check for pansy no-extreme squick stuff */
-<<if $minimumSlaveAge > 13 && ($randShow == 12 || $randShow == 14)>>
-	<<set $randShow = either(0,1,2,3,4,5,6,7,8,9,10,11,13)>>
-	There is an audible tone from your screen, which then displays a message: <i>Actor not vintage enough, changing program.</i>
-<</if>>
-<<if $seeExtreme == 0 && $randShow == 10>>
-	<<set $randShow = either(0,1,2,3,4,5,6,7,8,9,11,12)>>
-	There is an audible tone from your screen, which then displays a message: <i>Too much hugging detected, changing program.</i>
-<</if>>
-<<if $seeHyperPreg == 0 && $randShow == 8>>
-	<<set $randShow = either(0,1,2,3,4,5,6,7,9,11,12)>>
-	There is an audible tone from your screen, which then displays a message: <i>Too much happiness detected, changing program.</i>
-<</if>>
-<<if $seePreg == 0 && ($randShow == 5 || $randShow == 8)>>
-	<<set $randShow = either(0,1,2,3,4,6,7,9,11,12)>>
-	There is an audible tone from your screen, which then displays a message: <i>Too much baking detected, changing program.</i>
-<</if>>
-<<if $seeDicks == 0 && $makeDicks == 0 && $randShow == 10>>
-	<<set $randShow = either(0,1,2,3,4,11,12)>>
-	There is an audible tone from your screen, which then displays a message: <i>Too many hot dogs detected, changing program.</i>
-<</if>>
-<<if $randShow == 11 && $purchasedSagBGone == 1 && $showEleven > 2>>
-	<<set $randShow++>>
-	There is an audible tone from your screen, which then displays a message: <i>Product purchase detected, skipping commercials.</i>
 <</if>>
 
 <br><br>
@@ -1106,7 +1085,7 @@ The offered price is <<print cashFormat($slaveCost)>>.
 		<br><br>
 		You flip off the TV. News from a pirate, how novel.
 	<<elseif $showFifteen == 2>>
-		Your TV randomly hits channel 8, the pirate themed channel. Apparently this is a live feed produced by a band of pirates and you tuned in right as they board a small pleasure craft.
+		Your TV randomly hits channel 15, the pirate themed channel. Apparently this is a live feed produced by a band of pirates and you tuned in right as they board a small pleasure craft.
 		<br><br>
 		Three armed pirates are swiftly sweeping the boat, gathering the passengers, a man, his wife and his two children, on deck and tying them up. The camera is attached to the pirate captain as he sweeps below deck finding their supplies.
 		<br><br>
diff --git a/src/uncategorized/scheduledEvent.tw b/src/uncategorized/scheduledEvent.tw
index 7ef2a974987c6d580ad47302bdd07c1e2acb0df1..ada973b93df9ec12a4d12b41c4b4827711378938 100644
--- a/src/uncategorized/scheduledEvent.tw
+++ b/src/uncategorized/scheduledEvent.tw
@@ -150,7 +150,7 @@
 	<<goto "SE Birth">>
 <<elseif ($FCTVshow == 1)>>
 	<<set $FCTVshow = 0, $activeSlave = 0>>
-	<<goto "SE FCTV Shows">>
+	<<goto "SE FCTV">>
 <<elseif ($Recruiter != 0 && $recruiterEugenics == 0 && $recruiterProgress >= 13)>>
 	<<goto "SE recruiter success">>
 <<elseif ($Recruiter != 0 && $recruiterEugenics == 1 && $recruiterProgress >= (13 + ($IntelligenceEugenicsSMR+$HeightEugenicsSMR+$FaceEugenicsSMR)*6))>>