code:
:: Widgets physicalAdjustmentsInit [widget]
<<widget "physicalAdjustmentsInit">><<nobr>>

<<if $sexStats is undefined>>
	<<set $sexStats to {
		"breasts": {
			"playedWith": 0
		},
		"creampie": {
			"self": {
				"anus":0,
				"mouth":0,
				"vagina":0
			},
			"npc":{
				"anus":0,
				"mouth":0,
				"vagina":0,
				"tentacle":0
			}
		},
		"pills":{
			"type": ["penis", "breast"],
			"penis": {
				"type": null,
				"doseTaken": null,
				"autoTake": null,
				"overdose": false,
				"owned": {
					"growth": 0,
					"reduction": 0,
					"blocker": 0,
				}
			},
			"breast": {
				"type": null,
				"doseTaken": null,
				"autoTake": null,
				"overdose": false,
				"owned": {
					"growth": 0,
					"reduction": 0,
					"blocker": 0,
				}
			},
			"boughtOnce": false,
		}
	}>>
<</if>>

<<if $sexStats.anus is undefined>>
	<<set $sexStats.anus to {
		"pregnancy": {
			0: null,
			1: null,
			2: null,
			3: null,
			"count": 0,
			"maxCount": 1,
			"fertile": false,
			"fertilized": false,
			"lowestDaysLeft": null,
			"lowestTimeLeft": null,
			"givenBirth": 0,
			"motherStatus": 0,
			"seenDoctor": 0,
			"feltMovement": false,
			"namesChildren": false,
			"autoRepairDone":1,
		}
	}>>
<</if>>

<<if $sexStats.pills.type is undefined>>
	<<set _quantity to [0,0,0,0,0,0]>>
	<<if $sexStats.pills.breastOwned isnot undefined and $sexStats.pills.boughtOnce is true>>
		<<set _quantity[0] to Math.floor($sexStats.pills.penisOwned[5] + ($sexStats.pills.penisOwned[4] / 2))>>
		<<set _quantity[1] to Math.floor($sexStats.pills.penisOwned[0] + ($sexStats.pills.penisOwned[1] / 2))>>
		<<set _quantity[2] to clone($sexStats.pills.penisOwned[2])>>
		<<set _quantity[3] to Math.floor($sexStats.pills.breastOwned[5] + ($sexStats.pills.breastOwned[4] / 2))>>
		<<set _quantity[4] to Math.floor($sexStats.pills.breastOwned[0] + ($sexStats.pills.breastOwned[1] / 2))>>
		<<set _quantity[5] to clone($sexStats.pills.breastOwned[2])>>
	<</if>>
	<<if $sexStats.pills.boughtOnce is true>>
		<<set _boughtOnce to true>>
	<<else>>
		<<set _boughtOnce to false>>
	<</if>>

	<<set $sexStats.pills to {
		"type": ["penis", "breast"],
		"penis": {
			"type": null,
			"doseTaken": null,
			"autoTake": null,
			"overdose": false,
			"owned": {
				"growth": clone(_quantity[0]),
				"reduction": clone(_quantity[1]),
				"blocker": clone(_quantity[2]),
			}
		},
		"breast": {
			"type": null,
			"doseTaken": null,
			"autoTake": null,
			"overdose": false,
			"owned": {
				"growth": clone(_quantity[3]),
				"reduction": clone(_quantity[4]),
				"blocker": clone(_quantity[5]),
			}
		},
		"boughtOnce": _boughtOnce,
	}>>
<</if>>
<<set _pills to $sexStats.pills>>
<<set _pills.penis.owned.growth to Math.clamp(_pills.penis.owned.growth, 0, 1000)>>
<<set _pills.penis.owned.reduction to Math.clamp(_pills.penis.owned.reduction, 0, 1000)>>
<<set _pills.penis.owned.blocker to Math.clamp(_pills.penis.owned.blocker, 0, 1000)>>
<<set _pills.breast.owned.growth to Math.clamp(_pills.breast.owned.growth, 0, 1000)>>
<<set _pills.breast.owned.reduction to Math.clamp(_pills.breast.owned.reduction, 0, 1000)>>
<<set _pills.breast.owned.blocker to Math.clamp(_pills.breast.owned.blocker, 0, 1000)>>

<</nobr>><</widget>>

:: Widgets physicalAdjustments [widget]
<<widget "physicalAdjustments">><<nobr>>

/*Breasts*/
<<switch $sexStats.pills.breast.type>>
	<<case "growth">>
		<<set _breastMulti to 1 + (2.25 * $sexStats.pills.breast.doseTaken)>>
	<<case "reduction">>
		<<set _breastMulti to -1 + (-2.25 * $sexStats.pills.breast.doseTaken)>>
	<<case "blocker">>
		<<set _breastMulti to 0>>
	<<default>>
		<<set _breastMulti to 1>>
<</switch>>

<<if _breastMulti isnot 0>>
	<<switch $player.gender>>
	<<case "m">>
		<<set _breastMulti -= 1>>
	<<case "f">>
		<<set _breastMulti += (Math.clamp($sexStats.creampie.self.vagina * 2, 0, 50) / 100)>>
	<</switch>>

	<<set _breastMulti += (Math.clamp($sexStats.breasts.playedWith, 0, 500) / 250)>>

	<<set _breastMulti += $sexStats.anus.pregnancy.count / 0.5>>

	<<if $purity gte 990>>
		<<set _breastMulti -= 1>>
	<</if>>

	<<if _breastMulti gt 0>>
		<<set _impurityBoost to 1 + ((1000 - $purity) / 1000)>>
		<<set $breastgrowthtimer -= _breastMulti * 25 * _impurityBoost>>
	<<elseif _breastMulti lt 0>>
		<<set _purityBoost to 1 + ($purity / 1000)>>
		<<set $breastgrowthtimer -= _breastMulti * 25 * _purityBoost>>
	<</if>>
	<<set $impurityBoost to _impurityBoost>>
	<<if $parasite.nipples.name is "urchin">>
		<<set $breastgrowthtimer -= 300>>
	<</if>>
	<<if $parasite.nipples.name is "slime">>
		<<set $breastgrowthtimer += 300>>
	<</if>>

	<<if $breastgrowthtimer lte 0 and $breastsize lt $breastsizemax>>
		<<set $breastsize += 1>>
		<<set $breastgrowthtimer += 700>>
		<<set $breastgrowthmessage to $breastsize>><<set $effectsmessage to 1>>
	<<elseif $breastgrowthtimer gte 1000 and $breastsize gt 0>>
		<<set $breastsize -= 1>>
		<<set $breastgrowthtimer -= 700>>
		<<set $breastshrinkmessage to $breastsize>><<set $effectsmessage to 1>>
	<</if>>

	<<set $breastgrowthtimer to Math.clamp($breastgrowthtimer, 0, 1000)>>

<</if>>

/*Penis*/
<<switch $sexStats.pills.penis.type>>
	<<case "growth">>
		<<set _penisMulti to 1 + (2.25 * $sexStats.pills.penis.doseTaken)>>
	<<case "reduction">>
		<<set _penisMulti to -1 + (-2.25 * $sexStats.pills.penis.doseTaken)>>
	<<case "blocker">>
		<<set _penisMulti to 0>>
	<<default>>
		<<set _penisMulti to 1>>
<</switch>>

<<if $penisexist is 1 and _penisMulti isnot 0>>
	<<set _totalReduction to ($sexStats.creampie.self.anus + $sexStats.creampie.self.mouth) * 2>>
	<<set _totalIncrease to ($sexStats.creampie.npc.anus + $sexStats.creampie.npc.mouth + $sexStats.creampie.npc.vagina) * 2>>

	<<if _penisMulti gt 1>>
		<<set _totalIncrease += 10>>
		<<set _totalIncrease *= _penisMulti>>
	<<elseif _penisMulti lt 0>>
		<<set _totalReduction += 10>>
		<<set _totalReduction *= _penisMulti * -1>>
	<</if>>

	<<set _negativeChange to _totalReduction - _totalIncrease>>
	<<set _positiveChange to _totalIncrease - _totalReduction>>

	<<if _negativeChange gt 0>>
		<<set _purityBoost to 1 + ($purity / 500)>>

		<<set $penisgrowthtimer += _negativeChange>>
		<<set $penisgrowthtimer += _purityBoost * _negativeChange>>
	<<elseif _positiveChange gt 0>>
		<<set _impurityBoost to 1 + ((1000 - $purity) / 500)>>

		<<set $penisgrowthtimer -= _positiveChange>>
		<<set $penisgrowthtimer -= _impurityBoost * _positiveChange>>
	<</if>>
	<<if $penissize lt 0>>
		<<set $penisgrowthtimer -= 50>>
	<</if>>

	<<if $parasite.penis.name is "urchin">>
		<<set $penisgrowthtimer -= 300>>
	<</if>>
	<<if $parasite.penis.name is "slime">>
		<<set $penisgrowthtimer += 300>>
	<</if>>
	<<if $penisgrowthtimer lte 0 and $penissize lt $penissizemax>>
		<<set $penissize += 1>>
		<<set $penisgrowthtimer += 700>>
		<<set $penisgrowthmessage to $penissize>><<set $effectsmessage to 1>>
	<<elseif $penisgrowthtimer gte 1000 and $penissize gt 0>>
		<<set $penissize -= 1>>
		<<set $penisgrowthtimer -= 700>>
		<<set $penisshrinkmessage to $penissize>><<set $effectsmessage to 1>>
	<<elseif $penisgrowthtimer gte 1200 and $penissize lte 0 and $penissize gt $penissizemin>>
		<<set $penissize -= 1>>
		<<set $penisgrowthtimer -= 1000>>
		<<set $penisshrinkmessage to $penissize>><<set $effectsmessage to 1>>
	<</if>>

	<<set $penisgrowthtimer to Math.clamp($penisgrowthtimer, 0, 1000)>>

<</if>>

/*Bottom*/
<<if $purity lt 1000>>
<<set $bottomgrowthtimer -= ((1000 - $purity) / 2)>>
<</if>>

<<if $parasite.bottom.name is "urchin">>
	<<set $bottomgrowthtimer -= 300>>
<</if>>
<<if $parasite.bottom.name is "slime">>
	<<set $bottomgrowthtimer += 300>>
<</if>>
<<if $bottomgrowthtimer lte 0 and $bottomsize lt $bottomsizemax>>
	<<set $bottomsize += 1>>
	<<set $bottomgrowthtimer += 700>>
	<<set $bottomgrowthmessage to $bottomsize>><<set $effectsmessage to 1>>
<<elseif $bottomgrowthtimer gte 1000 and $bottomsize gt 0>>
	<<set $bottomsize -= 1>>
	<<set $bottomgrowthtimer -= 700>>
	<<set $bottomshrinkmessage to $bottomsize>><<set $effectsmessage to 1>>
<<elseif $bottomgrowthtimer gte 1200 and $bottomsize lte 0 and $bottomsize gt $bottomsizemin>>
	<<set $bottomsize -= 1>>
	<<set $bottomgrowthtimer -= 1000>>
	<<set $bottomshrinkmessage to $bottomsize>><<set $effectsmessage to 1>>
<</if>>
<<set $bottomgrowthtimer to Math.clamp($bottomgrowthtimer, 0, 1000)>>

/*Resetting of values*/

<<set $sexStats.creampie.npc.anus to 0>>
<<set $sexStats.creampie.npc.mouth to 0>>
<<set $sexStats.creampie.npc.vagina to 0>>
<<set $sexStats.creampie.npc.tentacle to 0>>
<<set $sexStats.creampie.self.anus to 0>>
<<set $sexStats.creampie.self.mouth to 0>>
<<set $sexStats.creampie.self.vagina to 0>>
<<set $sexStats.breasts.playedWith to 0>>

<<set _pills to $sexStats.pills>>
<<if $location is "home">>
	<<for _i to 0; _i lt _pills.type.length; _i++>>
		<<set _type to _pills.type[_i]>>
		<<set _autoTake to _pills[_type].autoTake>>
		<<if _autoTake isnot null>>
			<<if _pills[_type].owned[_autoTake] gt 0>>
				<<set _pills[_type].owned[_autoTake]-->>
				<<set _pills[_type].type to clone(_autoTake)>>
				<<set _pills[_type].doseTaken to 1>>
				<<set $pillsTaken to true>><<set $effectsmessage to 1>>
				<<if _pills[_type].owned[_autoTake] is 0>>
					<<set _pills[_type].autoTake to null>>
					<<set $pillsTakenLast to true>>
				<</if>>
			<<else>>
				<<set _pills[_type].autoTake to null>>
			<</if>>
		<</if>>
	<</for>>
<<else>>
	<<set _pills.penis.type to null>>
	<<set _pills.penis.doseTaken to 0>>
	<<set _pills.breast.type to null>>
	<<set _pills.breast.doseTaken to 0>>
<</if>>
<</nobr>><</widget>>

/*<<playWithBreasts>>*/
:: Widgets playWithBreasts [widget]
<<widget "playWithBreasts">><<nobr>>
<<if $args[0]>>
	<<set $sexStats.breasts.playedWith += $args[0]>>
<<else>>
	<<set $sexStats.breasts.playedWith++>>
<</if>>
<</nobr>><</widget>>

/*<<creampie "npc" "anus" >> -- <<set $sexStats.creampie.npc.anus++>>*/
/*<<creampie "self" "mouth">> -- <<set $sexStats.creampie.self.mouth++>>*/
:: Widgets creampie [widget]
<<widget "creampie">><<nobr>>
<<if $args[0] and $args[1]>>
	<<set $sexStats.creampie[$args[0]][$args[1]]++>>
<</if>>
<</nobr>><</widget>>


code:
:: Widgets Promiscuity [widget]

<<widget "promiscuity1">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $promiscuity lte 19>>
			<<set $promiscuity += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 20>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 100>><<garousal>>
			<<if $promiscuitystress1 isnot 1>>
				<<set $promiscuitystress1 to 1>><<lstress>><<set $stress -= 100>>
			<</if>>
		<</if>>
	<<else>>
		<<if $promiscuity lte 19>>
			<<set $promiscuity += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 20>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 100>><<garousal>>
			<<if $promiscuitystress1 isnot 1>>
				<<set $promiscuitystress1 to 1>><<lstress>><<set $stress -= 100>>
			<</if>>
		<</if>>
	<</if>>

<</nobr>><</widget>>

<<widget "promiscuity2">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $promiscuity lte 39>>
			<<set $promiscuity += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 40>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 200>><<garousal>>
			<<if $promiscuitystress2 isnot 1>>
				<<set $promiscuitystress2 to 1>><<lstress>><<set $stress -= 200>>
			<</if>>
		<</if>>
	<<else>>
		<<if $promiscuity lte 39>>
			<<set $promiscuity += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 40>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 200>><<garousal>>
			<<if $promiscuitystress2 isnot 1>>
				<<set $promiscuitystress2 to 1>><<lstress>><<set $stress -= 200>>
			<</if>>
		<</if>>
	<</if>>

<</nobr>><</widget>>

<<widget "promiscuity3">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $promiscuity lte 59>>
			<<set $promiscuity += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 60>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 300>><<garousal>>
			<<if $promiscuitystress3 isnot 1>>
				<<set $promiscuitystress3 to 1>><<lstress>><<set $stress -= 300>>
			<</if>>
		<</if>>
	<<else>>
		<<if $promiscuity lte 59>>
			<<set $promiscuity += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 60>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 300>><<garousal>>
			<<if $promiscuitystress3 isnot 1>>
				<<set $promiscuitystress3 to 1>><<lstress>><<set $stress -= 300>>
			<</if>>
		<</if>>
	<</if>>

<</nobr>><</widget>>

<<widget "promiscuity4">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $promiscuity lte 79>>
			<<set $promiscuity += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 80>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 400>><<garousal>>
			<<if $promiscuitystress4 isnot 1>>
				<<set $promiscuitystress4 to 1>><<lstress>><<set $stress -= 400>>
			<</if>>
		<</if>>
	<<else>>
		<<if $promiscuity lte 79>>
			<<set $promiscuity += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 80>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 400>><<garousal>>
			<<if $promiscuitystress4 isnot 1>>
				<<set $promiscuitystress4 to 1>><<lstress>><<set $stress -= 400>>
			<</if>>
		<</if>>
	<</if>>

<</nobr>><</widget>>

<<widget "promiscuity5">><<nobr>>
	<<if $control lt $controlmax>>
		<<if $promiscuity lte 99>>
			<<set $promiscuity += 2>>
			Performing such a lewd act excites you and restores your sense of control and self-worth, for now.
			<<ggcontrol>><<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 100>>
			Performing such a lewd act excites you, but does nothing to lift the cloud hanging over you. You need to do something more extreme.
			<<set $arousal += 500>><<garousal>>
			<<if $promiscuitystress5 isnot 1>>
				<<set $promiscuitystress5 to 1>><<lstress>><<set $stress -= 500>>
			<</if>>
		<</if>>
	<<else>>
		<<if $promiscuity lte 99>>
			<<set $promiscuity += 1>>
			You already feel in control, but performing such a lewd act soothes and excites you.
			<<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
		<<elseif $promiscuity gte 100>>
			You already feel in control and the act is too tame to soothe, but it does excite you.
			<<set $arousal += 500>><<garousal>>
			<<if $promiscuitystress5 isnot 1>>
				<<set $promiscuitystress5 to 1>><<lstress>><<set $stress -= 500>>
			<</if>>
		<</if>>
	<</if>>

<</nobr>><</widget>>

<<widget "combatpromiscuity1">><<nobr>>
	<<if $enemytype is "man">>
		<<if $consensual is 1>>
			<<if $control lt $controlmax>>
				<<if $promiscuity lte 19>>
					<<set $promiscuity += 2>>
					You prepare to perform a particularly lewd act, restoring your sense of control.
					<<ggcontrol>><<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 20>>
					You prepare to perform a particularly lewd act, though its too tame to soothe.
					<<set $arousal += 100>><<garousal>>
					<<if $promiscuitystress1 isnot 1>>
						<<set $promiscuitystress1 to 1>><<lstress>><<set $stress -= 100>>
					<</if>>
				<</if>>
			<<else>>
				<<if $promiscuity lte 19>>
					<<set $promiscuity += 1>>
					You prepare to perform a particularly lewd act, soothing and exciting you.
					<<control 25>><<set $arousal += 100>><<set $stress -= 300>><<combattrauma -30>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 20>>
					You prepare to perform a particularly lewd act, though it's too tame to soothe.
					<<set $arousal += 100>><<garousal>>
					<<if $promiscuitystress1 isnot 1>>
						<<set $promiscuitystress1 to 1>><<lstress>><<set $stress -= 100>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<<else>>
		<<combatdeviancy1>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatpromiscuity2">><<nobr>>
	<<if $enemytype is "man">>
		<<if $consensual is 1>>
			<<if $control lt $controlmax>>
				<<if $promiscuity lte 39>>
					<<set $promiscuity += 2>>
					You prepare to perform a particularly lewd act, restoring your sense of control.
					<<ggcontrol>><<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 40>>
					You prepare to perform a particularly lewd act, though its too tame to soothe you.
					<<set $arousal += 200>><<garousal>>
					<<if $promiscuitystress2 isnot 1>>
						<<set $promiscuitystress2 to 1>><<lstress>><<set $stress -= 200>>
					<</if>>
				<</if>>
			<<else>>
				<<if $promiscuity lte 39>>
					<<set $promiscuity += 1>>
					You prepare to perform a particularly lewd act, soothing and exciting you.
					<<control 25>><<set $arousal += 200>><<set $stress -= 600>><<combattrauma -60>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 40>>
					You prepare to perform a particularly lewd act, though it's too tame to soothe.
					<<set $arousal += 200>><<garousal>>
					<<if $promiscuitystress2 isnot 1>>
						<<set $promiscuitystress2 to 1>><<lstress>><<set $stress -= 200>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<<else>>
		<<combatdeviancy2>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatpromiscuity3">><<nobr>>
	<<if $enemytype is "man">>
		<<if $consensual is 1>>
			<<if $control lt $controlmax>>
				<<if $promiscuity lte 59>>
					<<set $promiscuity += 2>>
					You prepare to perform a particularly lewd act, restoring your sense of control.
					<<ggcontrol>><<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 60>>
					You prepare to perform a particularly lewd act, though its too tame to soothe you.
					<<set $arousal += 300>><<garousal>>
					<<if $promiscuitystress3 isnot 1>>
						<<set $promiscuitystress3 to 1>><<lstress>><<set $stress -= 300>>
					<</if>>
				<</if>>
			<<else>>
				<<if $promiscuity lte 59>>
					<<set $promiscuity += 1>>
					You prepare to perform a particularly lewd act, soothing and exciting you.
					<<control 25>><<set $arousal += 300>><<set $stress -= 900>><<combattrauma -90>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 60>>
					You prepare to perform a particularly lewd act, though it's too tame to soothe.
					<<set $arousal += 300>><<garousal>>
					<<if $promiscuitystress3 isnot 1>>
						<<set $promiscuitystress3 to 1>><<lstress>><<set $stress -= 300>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<<else>>
		<<combatdeviancy3>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatpromiscuity4">><<nobr>>
	<<if $enemytype is "man">>
		<<if $consensual is 1>>
			<<if $control lt $controlmax>>
				<<if $promiscuity lte 79>>
					<<set $promiscuity += 2>>
					You prepare to perform a particularly lewd act, restoring your sense of control.
					<<ggcontrol>><<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
					You prepare to perform a particularly lewd act, though its too tame to soothe you.
					<<set $arousal += 400>><<garousal>>
					<<if $promiscuitystress4 isnot 1>>
						<<set $promiscuitystress4 to 1>><<lstress>><<set $stress -= 400>>
					<</if>>
				<</if>>
			<<else>>
				<<if $promiscuity lte 79>>
					<<set $promiscuity += 1>>
					You prepare to perform a particularly lewd act, soothing and exciting you.
					<<control 25>><<set $arousal += 400>><<set $stress -= 1200>><<combattrauma -120>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 80>>
					You prepare to perform a particularly lewd act, though it's too tame to soothe.
					<<set $arousal += 400>><<garousal>>
					<<if $promiscuitystress4 isnot 1>>
						<<set $promiscuitystress4 to 1>><<lstress>><<set $stress -= 400>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<<else>>
		<<combatdeviancy4>>
	<</if>>
<</nobr>><</widget>>

<<widget "combatpromiscuity5">><<nobr>>
	<<if $enemytype is "man">>
		<<if $consensual is 1>>
			<<if $control lt $controlmax>>
				<<if $promiscuity lte 99>>
					<<set $promiscuity += 2>>
					You prepare to perform a particularly lewd act, restoring your sense of control.
					<<ggcontrol>><<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
					<<elseif $promiscuity gte 100>>
					You prepare to perform a particularly lewd act, though its too tame to soothe you.
					<<set $arousal += 500>><<garousal>>
					<<if $promiscuitystress5 isnot 1>>
						<<set $promiscuitystress5 to 1>><<lstress>><<set $stress -= 500>>
					<</if>>
				<</if>>
			<<else>>
				<<if $promiscuity lte 99>>
					<<set $promiscuity += 1>>
					You prepare to perform a particularly lewd act, soothing and exciting you.
					<<control 25>><<set $arousal += 500>><<set $stress -= 1500>><<combattrauma -150>><<ltrauma>><<lstress>><<garousal>>
				<<elseif $promiscuity gte 100>>
					You prepare to perform a particularly lewd act, though it's too tame to soothe.
					<<set $arousal += 500>><<garousal>>
					<<if $promiscuitystress5 isnot 1>>
						<<set $promiscuitystress5 to 1>><<lstress>><<set $stress -= 500>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<<else>>
		<<combatdeviancy5>>
	<</if>>
<</nobr>><</widget>>

license: mit