:: SA work a glory hole [nobr]

<<if $arcologies[0].FSDegradationist != "unset">>
	<<set $beauty to random(80,100)+(20*(4-$slaves[$i].anus))+(10*(4-$slaves[$i].vagina))+Math.trunc($arcologies[0].FSDegradationist/2)>>
<<else>>
	<<set $beauty to random(80,100)+(20*(4-$slaves[$i].anus))+(10*(4-$slaves[$i].vagina))>>
<</if>>
<<if $arcologies[0].FSDegradationistLaw == 1>>
	<<set $beauty = Math.trunc($beauty*1.5)>>
<<elseif $ACitizens > $ASlaves*2>>
	<<set $beauty = Math.trunc($beauty*1.1)>>
<<elseif $ACitizens > $ASlaves>>
	<<set $beauty = Math.trunc($beauty*1)>>
<<elseif $ACitizens > $ASlaves*0.5>>
	<<set $beauty = Math.trunc($beauty*0.95)>>
<<elseif $ACitizens > $ASlaves*0.25>>
	<<set $beauty = Math.trunc($beauty*0.9)>>
<<else>>
	<<set $beauty = Math.trunc($beauty*0.85)>>
<</if>>
<<if $beauty < 10>>
	<<set $beauty to 10>>
<</if>>
<<if $ACitizens > $ASlaves*0.5>>
	<<set $FResult to 3>>
<<elseif $ACitizens > $ASlaves*0.25>>
	<<set $FResult to 2>>
<<else>>
	<<set $FResult to 1>>
<</if>>

is <<if $slaves[$i].fuckdoll == 0>>restrained in a glory hole<<else>>set out for use<</if>>. $beauty customers (<<print Math.trunc($beauty/7)>> a day) paid ¤$FResult to use $possessive holes.

<<if ($arcologies[0].FSDegradationist > 0)>>
	Demand for $possessive holes is strong due to the appetite for degradation rampant in $arcologies[0].name.
<</if>>

<<if ($slaves[$i].curatives > 0)>>
	The drugs $pronoun's on protect $possessive health from the stress of being used as a sexual appliance.
<<elseif ($slaves[$i].health < -50)>>
	The stress of being used while very ill @@color:red;damaged $possessive health.@@
	<<set $slaves[$i].health -= 10>>
<<elseif ($slaves[$i].health < -10)>>
	<<if (random(1,100) > 10)>>
		The stress of being used while weak has @@color:red;damaged $possessive health.@@
		<<set $slaves[$i].health -= 10>>
	<</if>>
<<elseif ($slaves[$i].vagina is -1)>>
	<<if (random(1,100) > 70)>>
		The stress of being used in only two holes has @@color:red;damaged $possessive health.@@
		<<set $slaves[$i].health -= 10>>
	<</if>>
<<elseif (random(1,100) > 25)>>
	The stress of being used has @@color:red;damaged $possessive health.@@
	<<set $slaves[$i].health -= 10>>
<</if>>

<<if ($slaves[$i].vagina == 0) && canDoVaginal($slaves[$i])>>
	A <<if $slaves[$i].fuckdoll == 0>>glory hole <</if>>user takes $possessive virginity. He does not notice or care. @@color:lime;$possessiveCap pussy has been broken in@@ in a @@color:gold;painful@@ and @@color:mediumorchid;degrading@@ way.
	<<set $slaves[$i].devotion -= 10, $slaves[$i].trust -= 10, $slaves[$i].vagina to 1>>
<<elseif ($slaves[$i].vagina < 3) && (canDoVaginal($slaves[$i])) && (random(1,100) > ((170-$beauty)+($slaves[$i].vagina*10)))>>
	@@color:lime;$possessiveCap pussy gets stretched out by the use.@@
	<<set $slaves[$i].vagina += 1>>
<</if>>

<<if ($slaves[$i].anus == 0) && canDoAnal($slaves[$i])>>
	$possessiveCap anal virginity goes to a <<if $slaves[$i].fuckdoll == 0>>glory hole <</if>>user, who doesn't understand why this particular run at <<if $slaves[$i].fuckdoll == 0>>the glory hole<<else>>a Fuckdoll<</if>> is so great. @@color:lime;$possessiveCap ass has been broken in@@ in a @@color:gold;painful@@ and @@color:mediumorchid;degrading@@ way.
	<<set $slaves[$i].devotion -= 5, $slaves[$i].trust -= 5, $slaves[$i].anus to 1>>
<<elseif ($slaves[$i].anus < 3) && canDoAnal($slaves[$i]) && (random(1,100) > ((150-$beauty)+($slaves[$i].anus*10)))>>
	@@color:lime;$possessiveCap asshole sees constant use and loosens.@@
	<<set $slaves[$i].anus += 1>>
<</if>>

<<if ($slaves[$i].fetish is "mindbroken")>>
	$pronounCap serves $possessive role as a mindless set of holes to perfection.
<<else>>
	<<set $skillIncrease = 5>>
	<<if ($slaves[$i].oralSkill <= 10)>>
		With $possessive throat being brutally used, $possessive gag reflex is suppressed and $possessive oral skills improve.
		<<OralSkillIncrease $slaves[$i]>>
	<<elseif ($slaves[$i].vaginalSkill <= 10) && (canDoVaginal($slaves[$i]))>>
		With $possessive pussy being harshly used, $possessive vaginal skills improve.
		<<VaginalSkillIncrease $slaves[$i]>>
	<<elseif ($slaves[$i].analSkill <= 10) && (canDoAnal($slaves[$i]))>>
		With $possessive butt being mercilessly fucked, $possessive anal skills improve.
		<<AnalSkillIncrease $slaves[$i]>>
	<</if>>
	<<if $slaves[$i].sexualFlaw == "self hating">>
		$possessiveCap self hatred is so deep that $pronoun believes $pronoun deserves to serve in a glory hole, and even gets off on the degradation.
	<<elseif ($slaves[$i].sentence > 0)>>
		<<if ($slaves[$i].behavioralFlaw != "odd") && (random(1,100) > (100+($slaves[$i].devotion/5)))>>
			Constant confinement coupled with brutal use has left $object with involuntary nervous tics.
			<<set $slaves[$i].behavioralFlaw to "odd">>
		<</if>>
		<<set $slaves[$i].devotion -= 5, $slaves[$i].trust -= 5>>
		<<if ($slaves[$i].devotion > 50)>>
			$pronounCap does $possessive best to tolerate $possessive sentence to the glory hole, but @@color:mediumorchid;$possessive devotion is hurt@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion > 20)>>
			$pronounCap does not understand why $possessive obedience has earned $object a sentence to this torture. @@color:mediumorchid;$possessiveCap obedience is hurt@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -20)>>
			$possessiveCap fear of you turns to desperation during $possessive sentence. @@color:mediumorchid;$possessiveCap obedience is reduced@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -50)>>
			Though $pronoun is only temporarily sentenced to suffer, @@color:mediumorchid;$possessive resistance is increased@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<else>>
			$pronounCap has hope $pronoun'll be released after $possessive sentence, but @@color:mediumorchid;$possessive hatred of you is increased@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<</if>>
	<<else>>
		<<if ($slaves[$i].behavioralFlaw != "odd") && (random(1,100) > (70+($slaves[$i].devotion/5)))>>
			Constant confinement coupled with brutal use has left $object with involuntary nervous tics.
			<<set $slaves[$i].behavioralFlaw to "odd">>
		<</if>>
		<<set $slaves[$i].devotion -= 10, $slaves[$i].trust -= 10>>
		<<if ($slaves[$i].devotion > 50)>>
			$pronounCap feels starved of personal contact. @@color:mediumorchid;$possessiveCap devotion is hurt@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion > 20)>>
			$pronounCap does not understand why $possessive obedience has earned $object this immurement. @@color:mediumorchid;$possessiveCap obedience is hurt@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -20)>>
			$possessiveCap fear of you has increased into something like a pathology. @@color:mediumorchid;$possessiveCap obedience is reduced@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<elseif ($slaves[$i].devotion >= -50)>>
			$possessiveCap resistance is deepening into hatred. @@color:mediumorchid;$possessiveCap resistance is increased@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<<else>>
			@@color:mediumorchid;$possessiveCap helpless hatred of you is increased@@ and $pronoun is @@color:gold;filled with fear@@ $pronoun won't be let out.
		<</if>>
	<</if>>
<</if>>

<<if ($slaves[$i].assignment is "be confined in the arcade") && ($arcadeUpgradeInjectors == 1)>>
	<<set $FResult += 1>>
<</if>>

$possessiveCap feelings, skills, and appearance do not matter. $pronounCap is condemned to a world that consists of a tiny cell, featureless except for the never-ending dicks $pronoun is required to service. You were paid @@color:yellowgreen;¤<<print ($beauty*$FResult)>>@@ for the use of $slaves[$i].slaveName's holes this week.

/* FACILITY DECORATION IMPACTS */

<<if ($slaves[$i].assignment is "be confined in the arcade") && ($arcadeDecoration != "standard")>>
<<set _seed to 0.0001*$FSSingleSlaveRep*$beauty>>
<<switch $arcadeDecoration>>
<<case "Roman Revivalist">>
	<<set $arcologies[0].FSRomanRevivalist += _seed>>
<<case "Egyptian Revivalist">>
	<<set $arcologies[0].FSEgyptianRevivalist += _seed>>
<<case "Edo Revivalist">>
	<<set $arcologies[0].FSEdoRevivalist += _seed>>
<<case "Arabian Revivalist">>
	<<set $arcologies[0].FSArabianRevivalist += _seed>>
<<case "Chinese Revivalist">>
	<<set $arcologies[0].FSChineseRevivalist += _seed>>
<<case "Repopulation Focus">>
	<<set $arcologies[0].FSRepopulationFocus += _seed>> 
<<case "Eugenics">>
	<<set $arcologies[0].FSRestart += _seed>>
<<case "Chattel Religionist">>
	<<set $arcologies[0].FSChattelReligionist += _seed>>
<<case "Degradationist">>
	<<set $arcologies[0].FSDegradationist += _seed>>
<<case "Asset Expansionist">>
	<<set $arcologies[0].FSAssetExpansionist += _seed>>
<<case "Transformation Fetishist">>
	<<set $arcologies[0].FSTransformationFetishist += _seed>>
<<case "Gender Radicalist">>
	<<set $arcologies[0].FSGenderRadicalist += _seed>>
<<case "Gender Fundamentalist">>
	<<set $arcologies[0].FSGenderFundamentalist += _seed>>
<<case "Physical Idealist">>
	<<set $arcologies[0].FSPhysicalIdealist += _seed>>
<<case "Supremacist">>
	<<set $arcologies[0].FSSupremacist += _seed>>
<<case "Subjugationist">>
	<<set $arcologies[0].FSSubjugationist += _seed>>
<<case "Paternalist">>
	<<set $arcologies[0].FSPaternalist += _seed>>
<<case "Pastoralist">>
	<<set $arcologies[0].FSPastoralist += _seed>>
<<case "Maturity Preferentialist">>
	<<set $arcologies[0].FSMaturityPreferentialist += _seed>>
<<case "Youth Preferentialist">>
	<<set $arcologies[0].FSYouthPreferentialist += _seed>>
<<case "Body Purist">>
	<<set $arcologies[0].FSBodyPurist += _seed>>
<<case "Slimness Enthusiast">>
	<<set $arcologies[0].FSSlimnessEnthusiast += _seed>>
<</switch>>
<</if>>

/* SEX ACT COUNTS */

<<if ndef $slaves[$i].publicCount>>
	<<set $slaves[$i].publicCount to 0>>
<</if ndef>>

<<if canDoVaginal($slaves[$i]) && canDoAnal($slaves[$i])>>
	<<set _seed = Math.trunc($beauty/3)>>
	<<set $slaves[$i].oralCount += _seed, $oralTotal += _seed>>
	<<set $slaves[$i].vaginalCount += _seed, $vaginalTotal += _seed>>
	<<set $slaves[$i].analCount += _seed, $analTotal += _seed>>
	<<set $slaves[$i].publicCount += (_seed * 3)>>
	<<set $_cervixPump = _seed>>
<<elseif canDoVaginal($slaves[$i])>>
	<<set _seed = Math.trunc($beauty/2)>>
	<<set $slaves[$i].oralCount += _seed, $oralTotal += _seed>>
	<<set $slaves[$i].vaginalCount += _seed, $vaginalTotal += _seed>>
	<<set $slaves[$i].publicCount += (_seed + _seed)>>
	<<set $_cervixPump = _seed>>
<<elseif canDoAnal($slaves[$i])>>
	<<set _seed = Math.trunc($beauty/2)>>
	<<set $slaves[$i].oralCount += _seed, $oralTotal += _seed>>
	<<set $slaves[$i].analCount += _seed, $analTotal += _seed>>
	<<set $slaves[$i].publicCount += (_seed + _seed)>>
<<else>>
	<<set _seed = Math.trunc($beauty)>>
	<<set $slaves[$i].oralCount += _seed, $oralTotal += _seed>>
	<<set $slaves[$i].publicCount += _seed>>
<</if>>

<<set $cash += ($beauty*$FResult)>>

<<if $slaves[$i].cervixImplant == 1 && _cervixPump > 0>>
	$pronounCap notices $possessive @@color:orange;belly swell@@ after vaginal sex throughout the week.
	<<set $slaves[$i].bellyImplant += _cervixPump*20>>
<</if>>

src/uncategorized/saWorkAGloryHole.tw