code:
:: Widgets Bodywriting [widget]
<<widget "bodywriting_init">>
<<set $skin to {}>>
<<set $bodypart_number to 12>>
<<for _active_bodypart range setup.bodyparts>>
	<<set $skin[_active_bodypart] to {}>>
<</for>>

<</widget>>

<<widget "add_bodywriting">>/*First argument is body part. Second is the tattoo/bodywriting. Third is the tool used.*/
	<<if typeof $args[1] === "object">>
		<<set $skin[$args[0]] to clone($args[1])>>
	<<elseif typeof $args[1] === "number">>
		<<set $skin[$args[0]] to clone(setup.bodywriting[setup.bodywriting_namebyindex[$args[1]]])>>
	<<else>>
		<<set $skin[$args[0]] to clone(setup.bodywriting[$args[1]])>>
	<</if>>
	<<set $skin[$args[0]].pen to $args[2]>>
<</widget>>

<<widget "bodywriting_npc_bodypart">>/*Argument is the hand used.*/
<<set _bodypart to "forehead">>
<<for _i to 0; _i lt 10; _i++>>
	<<set $rng to random(1, $bodypart_number)>>
	<<switch $rng>>
	<<case 1>>
		<<set _bodypart to "forehead">>
		<<break>>
	<<case 2>>
		<<if !$worn.face.type.includes("mask")>>
			<<set _bodypart to "left_cheek">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 3>>
		<<if !$worn.face.type.includes("mask")>>
			<<set _bodypart to "right_cheek">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 4>>
		<<if ($worn.upper.exposed gte 2 or $worn.upper.open is 1) and ($worn.under_upper.exposed gte 1 or $worn.under_open is 1)>>
			<<set _bodypart to "left_shoulder">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 5>>
		<<if ($worn.upper.exposed gte 2 or $worn.upper.open is 1) and ($worn.under_upper.exposed gte 1 or $worn.under_open is 1)>>
			<<set _bodypart to "right_shoulder">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 6>>
		<<if $worn.upper.exposed gte 2 and ($worn.under_upper.exposed gte 1 or $worn.under_upper.open is 1)>>
			<<set _bodypart to "breasts">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 7>>
		<<if ($worn.upper.exposed gte 2 or $worn.upper.state isnot "waist") and ($worn.under_upper.exposed gte 1 or $worn.under_upper.state isnot "waist")>>
			<<set _bodypart to "back">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 8>>
		<<if ($worn.lower.exposed gte 2 or $worn.lower.anus_exposed gte 1) and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic"))>>
			<<set _bodypart to "left_bottom">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 9>>
		<<if ($worn.lower.exposed gte 2 or $worn.lower.anus_exposed gte 1) and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic"))>>
			<<set _bodypart to "right_bottom">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 10>>
		<<if $worn.lower.exposed gte 1 and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic"))>>
			<<set _bodypart to "pubic">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 11>>
		<<if $worn.lower.vagina_exposed gte 1 and !$worn.under_lower.type.includes("athletic")>>
			<<set _bodypart to "left_thigh">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<<case 12>>
		<<if $worn.lower.vagina_exposed gte 1 and !$worn.under_lower.type.includes("athletic")>>
			<<set _bodypart to "right_thigh">>
			<<if not $skin[_bodypart].pen>>
				<<break>>
			<</if>>
		<</if>>
	<</switch>>
<</for>>

<<if $args[0] is "left">>
	<<for _bwn to 0; _bwn lt $enemynomax; _bwn++>>
		<<if _n isnot _bwn and ($NPCList[_bwn].lefthand is "pen" + "_" + _bodypart or $NPCList[_bwn].righthand is "pen" + "_" + _bodypart)>>
			<<He>> tries to scrawl on your <<bodypart _bodypart>> with <<his>> <<print $NPCList[_n].lefttool>>, but <<his>> colleague shoves <<him>> out of the way.
			<<set $NPCList[_n].lefthand to 0>>
			<<set _bwn_stop to 1>>
			<<break>>
		<</if>>
	<</for>>
<<else>>
	<<for _bwn to 0; _bwn lt $enemynomax; _bwn++>>
		<<if _n isnot _bwn and ($NPCList[_bwn].lefthand is "pen" + "_" + _bodypart or $NPCList[_bwn].righthand is "pen" + "_" + _bodypart)>>
			<<He>> tries to scrawl on your <<bodypart _bodypart>> with <<his>> <<print $NPCList[_n].righttool>>, but <<his>> colleague shoves <<him>> out of the way.
			<<set $NPCList[_n].righthand to 0>>
			<<set _bwn_stop to 1>>
			<<break>>
		<</if>>
	<</for>>
<</if>>
<<if _bwn_stop isnot 1>>
	<<if $skin[_bodypart].pen is "tattoo">>
		<<He>> tries to rub the tattoo off your <<bodypart _bodypart>>.
		<<brat 1>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to 0>>
			<<He>> discards the <<print $NPCList[_n].lefttool>> in frustration.
		<<else>>
			<<set $NPCList[_n].righthand to 0>>
			<<He>> discards the <<print $NPCList[_n].righttool>> in frustration.
		<</if>>
	<<elseif $skin[_bodypart].pen is "brand">>
		<<He>> tries to rub the brand off your <<bodypart _bodypart>>.
		<<brat 1>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to 0>>
			<<He>> discards the <<print $NPCList[_n].lefttool>> in frustration.
		<<else>>
			<<set $NPCList[_n].righthand to 0>>
			<<He>> discards the <<print $NPCList[_n].righttool>> in frustration.
		<</if>>
	<<elseif $skin[_bodypart].pen is "magic">>
		<<He>> tries to rub the seal off your <<bodypart _bodypart>>.
		<<brat 1>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to 0>>
			<<He>> discards the <<print $NPCList[_n].lefttool>> in frustration.
		<<else>>
			<<set $NPCList[_n].righthand to 0>>
			<<He>> discards the <<print $NPCList[_n].righttool>> in frustration.
		<</if>>
	<<elseif $skin[_bodypart].pen is "marker">>
		<<He>> tries to rub the permanent ink off your <<bodypart _bodypart>>.
		<<brat 1>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to 0>>
			<<He>> discards the <<print $NPCList[_n].lefttool>> in frustration.
		<<else>>
			<<set $NPCList[_n].righthand to 0>>
			<<He>> discards the <<print $NPCList[_n].righttool>> in frustration.
		<</if>>
	<<elseif $skin[_bodypart].pen is "pen">>
		<<He>> looks thoughtful as <<he>> rubs off the ink scrawled on your <<bodypart _bodypart>>.
		<<bodywriting_clear _bodypart>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to "pen" + "_" + _bodypart>>
		<<else>>
			<<set $NPCList[_n].righthand to "pen" + "_" + _bodypart>>
		<</if>>
	<<elseif $skin[_bodypart].pen is "lipstick">>
		<<He>> looks thoughtful as <<he>> rubs off the lipstick scrawled on your <<bodypart _bodypart>>.
		<<bodywriting_clear _bodypart>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to "pen" + "_" + _bodypart>>
		<<else>>
			<<set $NPCList[_n].righthand to "pen" + "_" + _bodypart>>
		<</if>>
	<<elseif $skin[_bodypart].pen is "mud">>
		<<He>> looks thoughtful as <<he>> rubs off the mud scrawled on your <<bodypart _bodypart>>.
		<<bodywriting_clear _bodypart>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to "pen" + "_" + _bodypart>>
		<<else>>
			<<set $NPCList[_n].righthand to "pen" + "_" + _bodypart>>
		<</if>>
	<<else>>
		<<if $args[0] is "left">>
			<<set $NPCList[_n].lefthand to "pen" + "_" + _bodypart>>
			<<He>> looks thoughtful as <<he>> hovers the <<print $NPCList[_n].lefttool>> over your <<bodypart _bodypart>>.
		<<else>>
			<<set $NPCList[_n].righthand to "pen" + "_" + _bodypart>>
			<<He>> looks thoughtful as <<he>> hovers the <<print $NPCList[_n].righttool>> over your <<bodypart _bodypart>>.
		<</if>>
	<</if>>
<</if>>
<<unset _bwn_stop>>
<</widget>>

<<widget "bodywriting_npc">>
/*First arg: bodypart
Second arg: tool */
<<set $rng to random(1, 100)>>
<<if $npc[$npcrow.indexOf(_n)] is "Whitney">>
	<<bodywriting_npc_whitney $args[0] $args[1]>>
<<elseif $npc[$npcrow.indexOf(_n)] is "Kylar">>
	<<bodywriting_npc_kylar $args[0] $args[1]>>
<<elseif $npc[$npcrow.indexOf(_n)] is "Sydney">>
	<<bodywriting_npc_sydney $args[0] $args[1]>>
<<elseif $NPCList[_n].type is "plant">>
	<<bodywriting_npc_picture>>
<<elseif $rng gte 51>>
	<<bodywriting_npc_special $args[0] $args[1]>>
<<else>>
	<<bodywriting_npc_normal $args[0] $args[1]>>
<</if>>
<</widget>>

<<widget "bodywriting_npc_whitney">>
<<set $rng to random(1, 3)>>
<<switch $rng>>
<<case 1>>
	<<if $player.gender_appearance is "m">>
		<<add_bodywriting $args[0] whitneys_boyslut $args[1]>>
	<<else>>
		<<add_bodywriting $args[0] whitneys_slut $args[1]>>
	<</if>>
<<case 2>>
	<<add_bodywriting $args[0] property_of_whitney $args[1]>>
<<case 3>>
	<<add_bodywriting $args[0] whitneys_toy $args[1]>>
<</switch>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_npc_kylar">>
<<set $rng to random(1, 3)>>
<<switch $rng>>
<<case 1>>
	<<add_bodywriting $args[0] love_kylar_forever $args[1]>>
<<case 2>>
	<<add_bodywriting $args[0] reserved_for_kylar $args[1]>>
<<case 3>>
	<<add_bodywriting $args[0] just_kylar $args[1]>>
<</switch>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_npc_sydney">>
<<if $consensual is 1 or $combat is 0>>
	<<set $rng to random(1, 6)>>
	<<switch $rng>>
	<<case 1>>
		<<if $NPCName[$NPCNameList.indexOf("Sydney")].purity gte 1>>
			<<add_bodywriting $args[0] purest_love $args[1]>>
		<<else>>
			<<add_bodywriting $args[0] lusty_sinners $args[1]>>
		<</if>>
	<<case 2>>
		<<add_bodywriting $args[0] bound_to_sydney $args[1]>>
	<<case 3>>
		<<add_bodywriting $args[0] sydney_makes_me_smile $args[1]>>
	<<case 4>>
		<<if $NPCName[$NPCNameList.indexOf("Sydney")].corruption gte 10>>
			<<if $player.gender_appearance is "m">>
				<<add_bodywriting $args[0] stud $args[1]>>
			<<else>>
				<<add_bodywriting $args[0] beauty $args[1]>>
			<</if>>
		<<else>>
			<<if $player.gender_appearance is "m">>
				<<add_bodywriting $args[0] handsome $args[1]>>
			<<else>>
				<<add_bodywriting $args[0] pretty $args[1]>>
			<</if>>
		<</if>>
	<<case 5>>
		<<if $NPCName[$NPCNameList.indexOf("Sydney")].corruption gte 10 and $sydneyDaily.sex gte 2>>
			<<add_bodywriting $args[0] insatiable $args[1]>>
		<<else>>
			<<if $player.gender_appearance is "m">>
				<<add_bodywriting $args[0] cute_boy $args[1]>>
			<<else>>
				<<add_bodywriting $args[0] cute_girl $args[1]>>
			<</if>>
		<</if>>
	<<case 6>>
		<<add_bodywriting $args[0] sinner $args[1]>>
	<</switch>>
<<else>>
	<<add_bodywriting $args[0] sinner $args[1]>>
<</if>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_npc_sydney_book">>
<<if $sydneyromance is 1>>
	<<add_bodywriting $args[0] book_criminal_heart $args[1]>>
<<else>>
	<<add_bodywriting $args[0] book_criminal_frown $args[1]>>
<</if>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_npc_sydney_science">>
<<if _sydneyStatus.includes("corrupt") or _sydneyStatus.includes("Lust")>>
	<<switch random(1, 3)>>
		<<case 1>>
			<<add_bodywriting $args[0] attractive_force $args[1]>>
		<<case 2>>
			<<add_bodywriting $args[0] reproductive_system $args[1]>>
		<<case 3>>
			<<add_bodywriting $args[0] breeding_cycle $args[1]>>
	<</switch>>
<<else>>
	<<switch random(1, 3)>>
		<<case 1>>
			<<add_bodywriting $args[0] water_tables $args[1]>>
		<<case 2>>
			<<add_bodywriting $args[0] cytoplasm $args[1]>>
		<<case 3>>
			<<add_bodywriting $args[0] atomic_weight $args[1]>>
	<</switch>>
<</if>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_npc_sydney_friendly">>
<<if $NPCName[$NPCNameList.indexOf("Sydney")].love gte 70>>
	<<add_bodywriting $args[0] best_friend $args[1]>>
<<elseif $NPCName[$NPCNameList.indexOf("Sydney")].love gte 40>>
	<<add_bodywriting $args[0] inspiring $args[1]>>
<<else>>
	<<add_bodywriting $args[0] interesting $args[1]>>
<</if>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_npc_picture">>
<<if $NPCList[0].type is "plant">>
	<<set $rng to random(1, 7)>>
<<else>>
	<<set $rng to random(1,10)>>
<</if>>
<<switch $rng>>
<<case 1>>
	<<add_bodywriting $args[0] unicorn $args[1]>>
<<case 2>>
	<<add_bodywriting $args[0] heart $args[1]>>
<<case 3>>
	<<add_bodywriting $args[0] paw_print $args[1]>>
<<case 4>>
	<<add_bodywriting $args[0] flower $args[1]>>
<<case 5>>
	<<add_bodywriting $args[0] butterfly $args[1]>>
<<case 6>>
	<<add_bodywriting $args[0] star $args[1]>>
<<case 7>>
	<<add_bodywriting $args[0] skull $args[1]>>
<<case 8>>
	<<add_bodywriting $args[0] cross $args[1]>>
<<case 9>>
	<<add_bodywriting $args[0] flame $args[1]>>
<<case 10>>
	<<add_bodywriting $args[0] cattle_brand $args[1]>>
<</switch>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_normal_select">>
<<set $rng to random(1, 39)>>
<<switch $rng>>
<<case 1>>
	<<add_bodywriting $args[0] slut $args[1]>>
<<case 2>>
	<<add_bodywriting $args[0] fucktoy $args[1]>>
<<case 3>>
	<<add_bodywriting $args[0] worthless $args[1]>>
<<case 4>>
	<<add_bodywriting $args[0] free_use $args[1]>>
<<case 5>>
	<<add_bodywriting $args[0] slave $args[1]>>
<<case 6>>
	<<add_bodywriting $args[0] use_me $args[1]>>
<<case 7>>
	<<add_bodywriting $args[0] hit_me $args[1]>>
<<case 8>>
	<<if ($cbchance lt 100 or $dgchance gte 1) and !$player.penisExist>>
		<<add_bodywriting $args[0] cum_rag $args[1]>>
	<<elseif ($dgchance lt 100 or $cbchance gte 1) and $player.penisExist>>
		<<add_bodywriting $args[0] walking_dildo $args[1]>>
	<<else>>
		<<add_bodywriting $args[0] free_use $args[1]>>
	<</if>>
<<case 9>>
	<<if ($dgchance lt 100 or $cbchance gte 1) and $player.penisExist>>
		<<add_bodywriting $args[0] walking_dildo $args[1]>>
	<<elseif ($cbchance lt 100 or $dgchance gte 1) and !$player.penisExist>>
		<<add_bodywriting $args[0] cum_rag $args[1]>>
	<<else>>
		<<add_bodywriting $args[0] free_use $args[1]>>
	<</if>>
<<case 10>>
	<<add_bodywriting $args[0] rape_bait $args[1]>>
<<case 11>>
	<<add_bodywriting $args[0] bitch $args[1]>>
<<case 12>>
	<<add_bodywriting $args[0] fuck_me $args[1]>>
<<case 13>>
	<<add_bodywriting $args[0] hurt_me $args[1]>>
<<case 14>>
	<<add_bodywriting $args[0] enslave_me $args[1]>>
<<case 15>>
	<<add_bodywriting $args[0] treat_me_bad $args[1]>>
<<case 16>>
	<<add_bodywriting $args[0] sex_addict $args[1]>>
<<case 17>>
	<<add_bodywriting $args[0] rape_addict $args[1]>>
<<case 18>>
	<<add_bodywriting $args[0] make_me_squeal $args[1]>>
<<case 19>>
	<<add_bodywriting $args[0] make_me_cum $args[1]>>
<<case 20>>
	<<add_bodywriting $args[0] free_sex $args[1]>>
<<case 21>>
	<<add_bodywriting $args[0] insatiable $args[1]>>
<<case 22>>
	<<add_bodywriting $args[0] stupid_whore $args[1]>>
<<case 23>>
	<<add_bodywriting $args[0] rapetoy $args[1]>>
<<case 24>>
	<<add_bodywriting $args[0] cocksucker $args[1]>>
<<case 25>>
	<<add_bodywriting $args[0] side_piece $args[1]>>
<<case 26>>
	<<add_bodywriting $args[0] slam_pig $args[1]>>
<<case 27>>
	<<add_bodywriting $args[0] abuse_me $args[1]>>
<<case 28>>
	<<add_bodywriting $args[0] strugglefucker $args[1]>>
<<case 29>>
	<<add_bodywriting $args[0] cum_dump $args[1]>>
<<case 30>>
	<<add_bodywriting $args[0] submissive $args[1]>>
<<case 31>>
	<<add_bodywriting $args[0] pet $args[1]>>
<<case 32>>
	<<add_bodywriting $args[0] skank $args[1]>>
<<case 33>>
	<<add_bodywriting $args[0] gutter_whore $args[1]>>
<<case 34>>
	<<add_bodywriting $args[0] stupid_ho $args[1]>>
<<case 35>>
	<<add_bodywriting $args[0] asking_for_it $args[1]>>
<<case 36>>
	<<add_bodywriting $args[0] cock_tease $args[1]>>
<<case 37>>
	<<add_bodywriting $args[0] dumb_bitch $args[1]>>
<<case 38>>
	<<add_bodywriting $args[0] kick_me $args[1]>>
<<case 39>>
	<<add_bodywriting $args[0] buttslut $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_npc_normal">>
<<set _bigdick to 0>>
<<for _nx to 0; _nx lt $enemynomax; _nx++>>
	<<if $NPCList[_nx].penissize gte 3>>
		<<set _bigdick to 1>>
	<</if>>
<</for>>
<<set $rng to random(1, 10)>>
<<if _bigdick eq 1 and $rng eq 1>>
	<<add_bodywriting $args[0] size_queen $args[1]>>
<<else>>
	<<bodywriting_normal_select $args[0] $args[1]>>
<</if>>

<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_finalisation">>
<<if $skin[$args[0]].type is "text">>
	"<<print $skin[$args[0]].writing>>".
<<else>>
	A picture of a <<print $skin[$args[0]].writing>>.
<</if>>
<<if $skin[$args[0]].arrow is 1>>
	<<switch $args[0]>>
		<<case "left_cheek" "right_cheek">>
			<<He>> draws an arrow beside it, pointing at your mouth.
		<<case "pubic" "left_thigh" "right_thigh">>
			<<He>> draws an arrow beside it, pointing at your <<genitals 1>>.
		<<case "back" "left_bottom" "right_bottom">>
			<<if $analdisable is "f">>
				<<He>> draws an arrow beside it, pointing at your <<bottom>>.
			<</if>>
	<</switch>>
<</if>>
<<if $args[1] is "machine">>
	<<set $skin[$args[0]].pen to "tattoo">>
<<else>>
	<<if $skin[$args[0]].pen is undefined>>
		<<set $skin[$args[0]].pen to "pen">>
	<</if>>
<</if>>
<</widget>>

<<widget "bodywriting_criminal">>
<<bodywriting_criminal_select $args[0] $args[1]>>
<<bodywriting_finalisation $args[0]>>
<</widget>>

<<widget "bodywriting_criminal_select">>
<<switch random(1, 7)>>
	<<case 1>><<add_bodywriting $args[0] criminal_scum $args[1]>>
	<<case 2>><<add_bodywriting $args[0] criminal $args[1]>>
	<<case 3>><<add_bodywriting $args[0] law_breaker $args[1]>>
	<<case 4>><<add_bodywriting $args[0] criminal_whore $args[1]>>
	<<case 5>><<add_bodywriting $args[0] in_debt_to_society $args[1]>>
	<<case 6>><<add_bodywriting $args[0] deserves_prison $args[1]>>
	<<case 7>><<add_bodywriting $args[0] threat_to_society $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_rape_select">>
<<switch random(1, 5)>>
	<<case 1>><<add_bodywriting $args[0] rape_me $args[1]>>
	<<case 2>><<add_bodywriting $args[0] rapists_toy $args[1]>>
	<<case 3>><<add_bodywriting $args[0] no_means_yes $args[1]>>
	<<case 4>><<add_bodywriting $args[0] public_toy $args[1]>>
	<<case 5>><<add_bodywriting $args[0] public_property $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_sex_select">>
<<switch random(1, 6)>>
	<<case 1>><<add_bodywriting $args[0] promiscuous $args[1]>>
	<<case 2>><<add_bodywriting $args[0] town_bicycle $args[1]>>
	<<case 3>><<add_bodywriting $args[0] public_slut $args[1]>>
	<<case 4>><<add_bodywriting $args[0] wanton $args[1]>>
	<<case 5>><<add_bodywriting $args[0] insatiable_slut $args[1]>>
	<<case 6>><<add_bodywriting $args[0] dtf $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_bestiality_select">>
<<switch random(1, 12)>>
	<<case 1>><<add_bodywriting $args[0] doggy_slut $args[1]>>
	<<case 2>><<add_bodywriting $args[0] animal $args[1]>>
	<<case 3>><<add_bodywriting $args[0] beast_fucker $args[1]>>
	<<case 4>><<add_bodywriting $args[0] breedable $args[1]>>
	<<case 5>><<add_bodywriting $args[0] deviant $args[1]>>
	<<case 6>><<add_bodywriting $args[0] horse_cock_only $args[1]>>
	<<case 7>><<add_bodywriting $args[0] knots_only $args[1]>>
	<<case 8>><<add_bodywriting $args[0] barn_slut $args[1]>>
	<<case 9>>
		<<if $player.gender_appearance is "m">>
			<<add_bodywriting $args[0] breeding_stud $args[1]>>
		<<else>>
			<<add_bodywriting $args[0] breeding_mare $args[1]>>
		<</if>>
	<<case 10>><<add_bodywriting $args[0] cats_toy $args[1]>>
	<<case 11>><<add_bodywriting $args[0] cat_fucker $args[1]>>
	<<case 12>><<add_bodywriting $args[0] cat_slut $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_prostitution_select">>
<<switch random(1, 8)>>
	<<case 1>><<add_bodywriting $args[0] five_pound_whore $args[1]>>
	<<case 2>><<add_bodywriting $args[0] ten_pound_a_pop $args[1]>>
	<<case 3>><<add_bodywriting $args[0] twenty_five_pound_per_fuck $args[1]>>
	<<case 4>><<add_bodywriting $args[0] one_hundred_pound $args[1]>>
	<<case 5>><<add_bodywriting $args[0] its_not_rape_if_you_pay_me $args[1]>>
	<<case 6>><<add_bodywriting $args[0] whore $args[1]>>
	<<case 7>><<add_bodywriting $args[0] slut_for_hire $args[1]>>
	<<case 8>><<add_bodywriting $args[0] body_for_sale $args[1]>>
	<<case 9>><<add_bodywriting $args[0] prostitute $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_pregnancy_select">>
<<switch random(1, 8)>>
	<<case 1>><<add_bodywriting $args[0] brood_mother>>
	<<case 2>><<add_bodywriting $args[0] inseminate_me>>
	<<case 3>><<add_bodywriting $args[0] impregnate_me>>
	<<case 4>><<add_bodywriting $args[0] pregnancy_slut>>
	<<case 5>><<add_bodywriting $args[0] breeding_ground>>
<</switch>>
<</widget>>

<<widget "bodywriting_exhibitionism_select">>
<<switch random(1, 5)>>
	<<case 1>><<add_bodywriting $args[0] pervert $args[1]>>
	<<case 2>><<add_bodywriting $args[0] attention_whore $args[1]>>
	<<case 3>><<add_bodywriting $args[0] flaunter $args[1]>>
	<<case 4>><<add_bodywriting $args[0] object $args[1]>>
	<<case 5>><<add_bodywriting $args[0] strip_me $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_beauty_select">>
<<switch random(1, 5)>>
	<<case 1>>
		<<if $player.gender_appearance is "m">>
			<<add_bodywriting $args[0] handsome $args[1]>>
		<<else>>
			<<add_bodywriting $args[0] pretty $args[1]>>
		<</if>>
	<<case 2>><<add_bodywriting $args[0] hot $args[1]>>
	<<case 3>><<add_bodywriting $args[0] beautiful $args[1]>>
	<<case 4>>
		<<if $player.gender_appearance is "m">>
			<<add_bodywriting $args[0] cute_boy $args[1]>>
		<<else>>
			<<add_bodywriting $args[0] cute_girl $args[1]>>
		<</if>>
	<<case 5>>
		<<if $player.gender_appearance is "m">>
			<<add_bodywriting $args[0] stud $args[1]>>
		<<else>>
		<<add_bodywriting $args[0] beauty $args[1]>>
	<</if>>
<</switch>>
<</widget>>

<<widget "bodywriting_scrap_select">>
<<switch random(1, 6)>>
	<<case 1>><<add_bodywriting $args[0] defiant_whelp $args[1]>>
	<<case 2>><<add_bodywriting $args[0] brat $args[1]>>
	<<case 3>><<add_bodywriting $args[0] punish_me $args[1]>>
	<<case 4>><<add_bodywriting $args[0] insolent $args[1]>>
	<<case 5>><<add_bodywriting $args[0] naughty $args[1]>>
	<<case 6>><<add_bodywriting $args[0] dumb_bitch $args[1]>>
<</switch>>
<</widget>>

<<widget "bodywriting_npc_special">>
<<set $rng to random(1, 100)>>
<<if $rng gte 90>>
	<<if $famerape gte random(200, 1000)>>
		<<bodywriting_rape_select $args[0] $args[1]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0] $args[1]>>
	<</if>>
<<elseif $rng gte 80>>
	<<if $famesex gte random(200, 1000)>>
		<<bodywriting_sex_select $args[0] $args[1]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0] $args[1]>>
	<</if>>
<<elseif $rng gte 70>>
	<<if $famebestiality gte random(200, 1000)>>
		<<bodywriting_bestiality_select $args[0] $args[1]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0] $args[1]>>
	<</if>>
<<elseif $rng gte 60>>
	<<if $famepregnancy gte random(200, 1000) and $player.vaginaExist>>
		<<bodywriting_pregnancy_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0]>>
	<</if>>
<<elseif $rng gte 50>>
	<<if $fameprostitution gte random(200, 1000)>>
		<<bodywriting_prostitution_select $args[0] $args[1]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0] $args[1]>>
	<</if>>
<<elseif $rng gte 40>>
	<<if $fameexhibitionism gte random(200, 1000)>>
		<<bodywriting_exhibitionism_select $args[0] $args[1]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0] $args[1]>>
	<</if>>
<<elseif $rng gte 28>>
	<<if $beauty gte random(1, $beautymax)>>
		<<bodywriting_beauty_select $args[0] $args[1]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0] $args[1]>>
	<</if>>
<<elseif $rng gte 16>>
	<<if $famescrap gte random(1, 1000)>>
		<<bodywriting_scrap_select $args[0] $args[1]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0] $args[1]>>
	<</if>>
<<else>>
	<<bodywriting_npc_normal $args[0] $args[1]>>
<</if>>

<</widget>>

<<widget "bodywriting_machine">>
<<set $rng to random(1, 100)>>
<<if $bodywriting_special is "dungeon">>
	<<bodywriting_dungeon_select $args[0]>>
	<<bodywriting_finalisation $args[0] machine>>
<<elseif $rng gte 94>>
	<<if $famerape gte random(200, 1000)>>
		<<bodywriting_rape_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<<else>>
		<<bodywriting_normal_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<elseif $rng gte 87>>
	<<if $famesex gte random(200, 1000)>>
		<<bodywriting_sex_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_normal_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<elseif $rng gte 80>>
	<<if $famebestiality gte random(200, 1000)>>
		<<bodywriting_bestiality_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_normal_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<elseif $rng gte 73>>
	<<if $famepregnancy gte random(200, 1000) and $player.vaginaExist>>
		<<bodywriting_pregnancy_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_npc_normal $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<elseif $rng gte 65>>
	<<if $fameprostitution gte random(200, 1000)>>
		<<bodywriting_prostitution_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_normal_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<elseif $rng gte 59>>
	<<if $fameexhibitionism gte random(200, 1000)>>
		<<bodywriting_exhibitionism_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_normal_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<elseif $rng gte 53>>
	<<if $beauty gte random(1, $beautymax)>>
		<<bodywriting_beauty_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_normal_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<elseif $rng gte 47>>
	<<if $famescrap gte random(1, 1000)>>
		<<bodywriting_scrap_select $args[0]>>
		<<bodywriting_finalisation $args[0]>>
	<<else>>
		<<bodywriting_normal_select $args[0]>>
		<<bodywriting_finalisation $args[0] machine>>
	<</if>>
<<else>>
	<<bodywriting_normal_select $args[0]>>
	<<bodywriting_finalisation $args[0] machine>>
<</if>>
<</widget>>

<<widget "bodypart">>
<<switch $args[0]>>
	<<case "breasts" "chest">>
		<<set _text_output to "<<breasts>>">>
	<<case "pubic">>
		<<set _text_output to "pubic area">>
	<<case "left_bottom">>
		<<set _text_output to "left ass cheek">>
	<<case "right_bottom">>
		<<set _text_output to "right ass cheek">>
	<<case "leftarm">>
		<<set _text_output to "left arm">>
	<<case "rightarm">>
		<<set _text_output to "right arm">>
	<<case "vaginaoutside">>
		<<set _text_output to "labia">>
	<<case "thigh">>
		<<set _text_output to "thighs">>
	<<default>>
		<<set _text_output to $args[0].replace(/_/g," ")>>
<</switch>>
<<print _text_output>>
<</widget>>

<<widget "tattoo">>
"<<print $skin[$args[0]].writing>>"
<<switch $skin[$args[0]].pen>>
	<<case "tattoo">><<set _text_output to "tattoo">>
	<<case "brand">><<set _text_output to "brand">>
	<<case "magic">><<set _text_output to "seal">>
	<<default>><<set _text_output to ($skin[$args[0]].type is "text" ? "writing" : "image")>>
<</switch>>
<<print _text_output>>
<</widget>>

<<widget "bodywriting_clear">>
<<set $skin[$args[0]] to {}>>
<</widget>>

<<widget "bodywriting_clear_all">>
<<bodywriting_clear forehead>>
<<bodywriting_clear left_cheek>>
<<bodywriting_clear right_cheek>>
<<bodywriting_clear left_shoulder>>
<<bodywriting_clear right_shoulder>>
<<bodywriting_clear breasts>>
<<bodywriting_clear back>>
<<bodywriting_clear pubic>>
<<bodywriting_clear left_thigh>>
<<bodywriting_clear right_thigh>>
<<bodywriting_clear left_bottom>>
<<bodywriting_clear right_bottom>>
<</widget>>

<<widget "bodypart_admire_prostitution">>
<<if $NPCList[_n].paid is 1>>
<<elseif $skin[$args[0]].degree lte 0>>
	<<if (($enemyarousal + ($enemytrust * 5) - $enemyanger + ($attractiveness / 10) * ($seductionskill / 200)) gte 1000)>>
		<<set $enemyanger += 10>><<set $enemytrust -= 100>><<fameprostitution 1>>
		<<if !$speechadmired>><<set $speechadmired to 1>>
			<<switch random(1, 5)>>
				<<case 1>><<He>> speaks. "Expensive. Fine."
				<<case 2>><<He>> speaks. "I'll pay, but you better be worth it."
				<<case 3>><<He>> speaks. "I'll pay this time, slut."
				<<case 4>><<He>> speaks. "I've seen worse deals."
				<<case 5>><<He>> speaks. "I should pay you. I doubt you're good for anything else."
			<</switch>>
		<</if>>
		<<He>> drops a £10 note atop you.
		<<set $money += 1000>><<earnFeat "Billboard">><<set $NPCList[_n].paid to 1>>
	<<elseif (($enemyarousal + ($enemytrust * 5) - $enemyanger + ($attractiveness / 10) * ($seductionskill / 200)) gte 500)>>
		<<set $enemyanger += 10>><<set $enemytrust -= 100>><<fameprostitution 1>>
		<<if !$speechadmired>><<set $speechadmired to 1>>
			<<switch random(1, 5)>>
				<<case 1>><<He>> speaks. "You're lucky I'm giving you a thing."
				<<case 2>><<He>> speaks. "If only money could buy you dignity."
				<<case 3>><<He>> speaks. "I've bought drinks more expensive than you."
				<<case 4>><<He>> speaks. "Where should I insert it?"
				<<case 5>><<He>> speaks. "Cheap and dirty whores are the best."
			<</switch>>
		<</if>>
		<<He>> drops a £5 note atop you.
		<<set $money += 500>><<earnFeat "Billboard">><<set $NPCList[_n].paid to 1>>
	<<else>><<set $enemytrust -= 20>>
		<<fameprostitution 1>>
		<<if !$speechadmired>><<set $speechadmired to 1>>
			<<switch random(1, 5)>>
				<<case 1>><<He>> speaks. "Pay you? Don't make me laugh."
				<<case 2>><<He>> speaks. "Getting to fuck me is payment enough."
				<<case 3>><<He>> speaks. "Don't think you're worth anything."
				<<case 4>><<He>> speaks. "I hope you're not expecting cash."
				<<case 5>><<He>> speaks. "Whores like you don't deserve anything."
			<</switch>>
		<</if>>
	<</if>>
<<elseif $skin[$args[0]].degree lte ($enemyarousal + ($enemytrust * 5) - $enemyanger + ($attractiveness / 10) * ($seductionskill / 200))>>
	<<set $enemyanger += 10>><<set $enemytrust -= $skin[$args[0]].degree>><<fameprostitution 1>>
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<switch random(1, 5)>>
			<<case 1>><<He>> speaks. "I'm paying, but you better be worth it."
			<<case 2>><<He>> speaks. "You whores are so full of yourself."
			<<case 3>><<He>> speaks. "Fine, but I'm getting my money's worth."
			<<case 4>><<He>> speaks. "I'm gonna make you earn every penny."
			<<case 5>><<He>> speaks. "Fine, I'll pay. This time."
		<</switch>>
	<</if>>
	<<He>> drops £<<print Math.floor($skin[$args[0]].degree / 100)>> atop you.
	<<set $money += $skin[$args[0]].degree>><<earnFeat "Billboard">><<set $NPCList[_n].paid to 1>>
<<else>>
	<<set $enemytrust -= 20>><<fameprostitution 1>>
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<switch random(1, 5)>>
			<<case 1>><<He>> speaks. "You're fucking kidding me."
			<<case 2>><<He>> speaks. "You're not getting a penny, slut."
			<<case 3>><<He>> speaks. "You're not worth a penny."
			<<case 4>><<He>> speaks. "I work hard for my cash. I'm not about to give it to some slut."
			<<case 5>><<He>> speaks. "Fucking me is the only reward you need."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_arrow">>
<<if $skin[$args[0]].special is "prostitution" and $NPCList[_n].type isnot "plant">>
	<<bodypart_admire_prostitution $args[0]>>
<</if>>
<<if $args[0] is "left_cheek" or $args[0] is "right_cheek" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "head" and ($position isnot "wall" or $walltype is "front")>>
	<<if $NPCList[_n].penis is 0 and $mouthuse is 0>>
		<<He>> follows the arrow's instruction, and positions <<his>> $NPCList[_n].penisdesc in front of your mouth.
		<<neutral 5>><<set $mouthuse to "penis">><<set $NPCList[_n].penis to "mouthentrance">><<set $mouthstate to "entrance">><<set $speechmouthentrance to 1>><<set $mouthtarget to _n>>
		<<set $NPCList[_n].location.genitals to "head">>
	<<elseif $NPCList[_n].vagina is 0 and $mouthuse is 0>>
		<<He>> follows the arrow's instruction.
		<<if random(4) is 0>>
			<<if $position is "doggy">>
				<<He>> gently rolls you onto your back.
				<<set $position to "missionary">>
			<</if>>

			<<if $enemyanger gte (($enemyangermax / 5) * 1)>>
				<<print either(
					"<<He>> swings a leg over your face and sits down, sitting on your face.",
					"<<He>> sits down on your face, covering your mouth with <<his>> pussy.",
					"<<His>> pussy and ass descend onto your face, as <<he>> sits on it."
				)>>
				<<violence 3>><<bruise face>>
			<<else>>
				<<print either(
					"<<He>> straddles your face and slowly lowers <<his>> pussy down onto your mouth.",
					"<<He>> stands over your face and lowers <<himself>>, planting <<his>> pussy on your face.",
					"<<His>> pussy comes down onto your face and rests lightly on your mouth, and <<he>> waits expectantly."
				)>>
			<</if>>

			<<submission 5>><<set $NPCList[_n].vagina to "facesit">><<set $mouthuse to "facesit">><<set $mouthstate to "vagina">><<set $mouthtarget to _n>>
			<<set $speechfacesit to 1>><<set $NPCList[_n].location.genitals = "head">>
		<<else>>
			<<He>> wraps <<his>> legs around your head and presses <<his>> pussy against your mouth.
			<<submission 5>><<set $mouthuse to "othervagina">><<set $NPCList[_n].vagina to "mouth">><<set $mouthstate to "othervagina">><<violence 3>><<bruise face>><<set $speechvaginamouth to 1>><<set $mouthtarget to _n>>
			<<set $NPCList[_n].location.genitals to "head">>
		<</if>>
	<</if>>
<<elseif $args[0] is "back" or $args[0] is "right_bottom" or $args[0] is "left_bottom" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "genitals">>
	<<if $worn.lower.anus_exposed gte 1 and $worn.under_lower.anus_exposed gte 1 and $NPCList[0].penis is 0 and $anususe is 0>>
		<<He>> follows the arrow's instruction, and positions <<his>> penis in front of your <<bottom>>.
		<<if $NPCList[_n].type is "plant" and $NPCList[_n].penissize gte 4>>
			Something about it scares you.
		<</if>>
		<<neutral 5>><<set $anususe to "penis">><<set $NPCList[_n].penis to "anusentrance">><<set $anusstate to "entrance">><<set $speechanusentrance to 1>>
		<<set $NPCList[_n].location.genitals to "genitals">><<set $anustarget to _n>>
	<</if>>
<<elseif $args[0] is "pubic" or $args[0] is "left_thigh" or $args[0] is "right_thigh" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "genitals">>
	<<if $player.vaginaExist and $worn.lower.vagina_exposed gte 1 and $worn.under_lower.vagina_exposed gte 1 and $NPCList[0].penis is 0 and $vaginause is 0>>
		<<He>> follows the arrow's instruction, and moves between your legs, positioning <<his>> $NPCList[_n].penisdesc in front of your <<pussy>>.
		<<neutral 5>><<set $NPCList[_n].penis to "vaginaentrance">><<set $vaginause to "penis">><<set $vaginastate to "entrance">><<set $NPCList[_n].location.genitals to "genitals">><<set $vaginatarget to _n>>
	<<elseif $player.penisExist and $worn.lower.vagina_exposed gte 1 and $worn.under_lower.vagina_exposed gte 1 and $NPCList[0].vagina is 0 and $penisuse is 0>>
		<<set $penisuse to "othervagina">><<set $NPCList[_n].vagina to "penisentrance">><<set $penisstate to "entrance">><<set $penistarget to _n>>
		<<He>> follows the arrow's instruction, and straddles you, <<his>> pussy hovering close to your <<penis>>.
		<<set $NPCList[_n].location.genitals to "genitals">>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_rape">>
<<set $enemytrust -= 20>><<famerape 1>>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<if $consensual is 1>>
		<<switch random(1, 9)>>
			<<case 1>><<He>> speaks. "Do you get off on being treated like filth?"
			<<case 2>><<He>> speaks. "I didn't know you were that kind of <<girl>>."
			<<case 3>><<He>> speaks. "You'd like it to be rougher, aye?"
			<<case 4>><<He>> speaks. "You're a dirty one."
			<<case 5>><<He>> speaks. "Do you get taken often?"
			<<case 6>><<He>> speaks. "I'll treat you like you want, don't worry."
			<<case 7>><<He>> speaks. "So you like being a victim?"
			<<case 8>><<He>> speaks. "I bet you put that on yourself, slut."
			<<case 9>><<He>> speaks. "You're just asking for it."
		<</switch>>
	<<else>>
		<<switch random(1, 9)>>
			<<case 1>><<He>> speaks. "Hah! I knew you were a rape addict."
			<<case 2>><<He>> speaks. "I'm just giving you what you want, after all."
			<<case 3>><<He>> speaks. "Don't worry, you'll be treated how you deserve."
			<<case 4>><<He>> speaks. "My my, what a slut."
			<<case 5>><<He>> speaks. "Good to see you know your place."
			<<case 6>><<He>> speaks. "You're just asking for it."
			<<case 7>><<He>> speaks. "I knew you were a fucktoy."
			<<case 8>><<He>> speaks. "I knew this was all you're good for."
			<<case 9>><<He>> speaks. "I'm giving you what you deserve."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_exhibitionism">>
<<fameexhibitionism 1>>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<switch random(1, 10)>>
		<<case 1>><<He>> speaks. "Don't worry. I'm getting a good look."
		<<case 2>><<He>> speaks. "Maybe I'll take some pictures."
		<<case 3>><<He>> speaks. "You're certainly a feast for the eyes."
		<<case 4>><<He>> speaks. "You're hot alright."
		<<case 5>><<He>> speaks. "You like being ogled at, slut?"
		<<case 6>><<He>> speaks. "Being leered at is all you're good for."
		<<case 7>><<He>> speaks. "You'd look great in a cage."
		<<case 8>><<He>> speaks. "Cuties like you shouldn't wear clothes."
		<<case 9>><<He>> speaks. "You're such an attention whore."
		<<case 10>><<He>> speaks. "I bet half the town's seen that ass of yours."
	<</switch>>
<</if>>
<</widget>>

<<widget "bodypart_admire_bestiality">>
<<famebestiality 1>>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<switch random(1, 10)>>
		<<case 1>><<He>> speaks. "You're disgusting."
		<<case 2>><<He>> speaks. "So you like fucking animals? Doesn't surprise me."
		<<case 3>><<He>> speaks. "Maybe I'm not hairy enough for you."
		<<case 4>><<He>> speaks. "You belong in a kennel."
		<<case 5>><<He>> speaks. "Filthy bitch."
		<<case 6>>
			<<if $player.gender_appearance is "f">>
				<<He>> speaks. "You must be in heat."
			<<else>>
				<<He>> speaks. "You must be rutting."
			<</if>>
		<<case 7>><<He>> speaks. "You're such a dirty <<girl>>."
		<<case 8>>
			<<if $player.gender_appearance is "m">>
				<<He>> speaks. "Good dog."
			<<else>>
				<<He>> speaks. "Good bitch."
			<</if>>
		<<case 9>><<He>> speaks. "Someone should tie you up in the park, let the neighbourhood dogs take out their stress."
		<<case 10>><<He>> speaks. "I knew you were a dog-fucker."
	<</switch>>
<</if>>
<</widget>>

<<widget "bodypart_admire_promiscuity">>
<<famesex 1>>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<switch random(1, 10)>>
		<<case 1>><<He>> speaks. "You're such a slut."
		<<case 2>><<He>> speaks. "I bet you'd fuck anyone."
		<<case 3>><<He>> speaks. "I'll let my friends know who to see if they need a fucktoy."
		<<case 4>><<He>> speaks. "Have you no shame?"
		<<case 5>><<He>> speaks. "Self-respect must be an alien concept to you."
		<<case 6>><<He>> speaks. "Don't worry, I know how to satisfy a <<girl>>."
		<<case 7>><<He>> speaks. "I'm glad I could find such a slut."
		<<case 8>><<He>> speaks. "Fucking must be like breathing to you."
		<<case 9>><<He>> speaks. "I bet you can't go a single day without a good fuck."
		<<case 10>><<He>> speaks. "Seems I'm giving you what you want."
	<</switch>>
<</if>>
<</widget>>

<<widget "bodypart_admire_pregnancy">>
<<if pregnancyBellyVisible()>>
	<<famepregnancy 1>>
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<switch random(1, 10)>>
			<<case 1>><<He>> speaks. "Doesn't look like it's something I can help with right now."
			<<case 2>><<He>> speaks. "So how many kids have you given birth to?"
			<<case 3>><<He>> speaks. "I'll let my friends know who to see if they want a kid in a couple of months."
			<<case 4>><<He>> speaks. "How far along are you?"
			<<case 5>><<He>> speaks. "Not being pregnant must be an alien concept to you."
			<<case 6>><<He>> speaks. "Don't worry, you're already pregnant."
			<<case 7>><<He>> speaks. "At least I don't need to worry about condoms."
			<<case 8>><<He>> speaks. "Breeding must be like breathing to you."
			<<case 9>><<He>> speaks. "I bet you love the feeling of giving birth."
			<<case 10>><<He>> speaks. "Seems like you already have what you're after."
		<</switch>>
	<</if>>
<<else>>
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<switch random(1, 10)>>
			<<case 1>><<He>> speaks. "You want a kid that much, slut?"
			<<case 2>><<He>> speaks. "So how many kids have you given birth to?"
			<<case 3>><<He>> speaks. "I'll let my friends know who to see if they want a kid."
			<<case 4>><<He>> speaks. "Are you ovulating right now?"
			<<case 5>><<He>> speaks. "Not being pregnant must be an alien concept to you."
			<<case 6>><<He>> speaks. "Don't worry, I know how to get you pregnant."
			<<case 7>><<He>> speaks. "I'm glad I don't need to worry about condoms."
			<<case 8>><<He>> speaks. "Breeding must be like breathing to you."
			<<case 9>><<He>> speaks. "I bet you love the feeling of giving birth."
			<<case 10>><<He>> speaks. "Seems I'm giving you what you want."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_girly">>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<if $player.gender_appearance is "m">>
		<<switch random(1, 10)>>
			<<case 1>><<He>> speaks. "You want to be treated like a girl? Fine by me."
			<<case 2>><<He>> speaks. "That's an odd thing for a boy to wear."
			<<case 3>><<He>> speaks. "So girly."
			<<case 4>><<He>> speaks. "Makes you look like a girl."
			<<case 5>><<He>> speaks. "Don't worry, I'll treat you like a girl."
			<<case 6>><<He>> speaks. "Aren't you embarrassed to be covered in such a girly thing?"
			<<case 7>><<He>> speaks. "Cute."
			<<case 8>><<He>> speaks. "I bet you like dressing up as a girl, slut."
			<<case 9>><<He>> speaks. "I bet your friends make fun of you."
			<<case 10>><<He>> speaks. "Why would you wear such a thing?"
		<</switch>>
	<<else>>
		<<switch random(1, 10)>>
			<<case 1>><<He>> speaks. "Cute."
			<<case 2>><<He>> speaks. "I bet you wanna be treated like a princess, but you're just a slut."
			<<case 3>><<He>> speaks. "I'll treat you like a kidnapped princess."
			<<case 4>><<He>> speaks. "So cute and feminine."
			<<case 5>><<He>> speaks. "I think you need someone strong to protect you."
			<<case 6>><<He>> speaks. "Most girls would be embarrassed to wear such a thing."
			<<case 7>><<He>> speaks. "Do other girls wear marks like this?"
			<<case 8>><<He>> speaks. "Advertising your femininity? Like anyone would mistake you for a boy."
			<<case 9>><<He>> speaks. "You're fucking hot, that's for sure."
			<<case 10>><<He>> speaks. "So glad I get such a pretty girl to play with."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_boyish">>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<if $player.gender_appearance is "m">>
			<<switch random(1, 10)>>
			<<case 1>><<He>> speaks. "So glad I get such a handsome boy to play with."
			<<case 2>><<He>> speaks. "You're fucking hot, that's for sure."
			<<case 3>><<He>> speaks. "Advertising your masculinity? Like anyone would mistake you for a girl."
			<<case 4>><<He>> speaks. "Do other boys wear marks like this?"
			<<case 5>><<He>> speaks. "Most boys would be embarrassed to wear such at thing."
			<<case 6>><<He>> speaks. "I think you need someone strong to protect you."
			<<case 7>><<He>> speaks. "So strong and masculine."
			<<case 8>><<He>> speaks. "I'll treat you like a kidnapped prince."
			<<case 9>><<He>> speaks. "You're a hot fucktoy alright."
			<<case 10>><<He>> speaks. "It's not wrong."
		<</switch>>
	<<else>>
		<<switch random(1, 10)>>
			<<case 1>><<He>> speaks. "Why would you wear such a thing?"
			<<case 2>><<He>> speaks. "I bet your friends make fun of you."
			<<case 3>><<He>> speaks. "I bet you like dressing up as a boy, but you're just a slut."
			<<case 4>><<He>> speaks. "Hot."
			<<case 5>><<He>> speaks. "Aren't you embarrassed to be covered in such a boyish thing?"
			<<case 6>><<He>> speaks. "Don't worry, I'll treat you like a boy."
			<<case 7>><<He>> speaks. "Makes you look like a boy."
			<<case 8>><<He>> speaks. "So boyish."
			<<case 9>><<He>> speaks. "That's an odd thing for a girl to wear."
			<<case 10>><<He>> speaks. "You want to be treated like a boy? Fine by me."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_combat">>
<<famescrap 1>><<set $enemytrust -= 5>>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<switch random(1, 10)>>
		<<case 1>><<He>> speaks. "I need to watch myself around you."
		<<case 2>><<He>> speaks. "I bet you like being treated badly really."
		<<case 3>><<He>> speaks. "Your brattiness is a front. I can see through it."
		<<case 4>>
			<<if $NPCList[_n].pronoun is "f">>
				<<He>> speaks. "Do I need to watch my purse?"
			<<else>>
				<<He>> speaks. "Do I need to watch my wallet?"
			<</if>>
		<<case 5>><<He>> speaks. "Try anything funny and you'll get beat."
		<<case 6>><<He>> speaks. "Like you could take me."
		<<case 7>><<He>> speaks. "You must have a high opinion of yourself."
		<<case 8>><<He>> speaks. "The people you've beaten must be real wimps."
		<<case 9>><<He>> speaks. "You don't look so tough."
		<<case 10>><<He>> speaks. "Bratty little <<bitch>>."
	<</switch>>
<</if>>
<</widget>>

<<widget "bodypart_admire_violence">>
<<set $enemyanger += 20>>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<switch random(1, 10)>>
		<<case 1>><<He>> speaks. "So you like it rough."
		<<case 2>><<He>> speaks. "I'm just giving you what you want."
		<<case 3>><<He>> speaks. "I bet you're addicted to pain."
		<<case 4>><<He>> speaks. "Sluts like you do deserve beatings."
		<<case 5>><<He>> speaks. "I'll hurt you all you want, and then some."
		<<case 6>><<He>> speaks. "Like I need to be asked."
		<<case 7>><<He>> speaks. "It's a dream come true."
		<<case 8>><<He>> speaks. "I can be rougher."
		<<case 9>><<He>> speaks. "So that's how you like it."
		<<case 10>><<He>> speaks. "Will you cum if I hit you hard enough?"
	<</switch>>
<</if>>
<</widget>>

<<widget "bodypart_admire_lewd">>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<if $skin[$args[0]].type is "text">>
		<<switch random(1, 10)>>
			<<case 1>>
				<<if $skin[$args[0]].pen is "tattoo">>
					<<He>> speaks. "Such a lewd tattoo."
				<<elseif $skin[$args[0]].pen is "brand">>
					<<He>> speaks. "Such a lewd brand."
				<<else>>
					<<He>> speaks. "Such lewd writing."
				<</if>>
			<<case 2>>
				<<if $skin[$args[0]].pen is "tattoo">>
					<<He>> speaks. "Why would you have yourself tattooed so?"
				<<elseif $skin[$args[0]].pen is "brand">>
					<<He>> speaks. "Why would you burn that into your skin?"
				<<else>>
					<<He>> speaks. "Did you write this?"
				<</if>>
			<<case 3>><<He>> speaks. "Suits you."
			<<case 4>><<He>> speaks. "I like my sluts signposted."
			<<case 5>><<He>> speaks. "You're a perfect canvas."
			<<case 6>><<He>> speaks. "I see others have marked their territory."
			<<case 7>><<He>> speaks. "Short and to the point."
			<<case 8>><<He>> speaks. "Good to see sluts come with instructions now."
			<<case 9>><<He>> speaks. "Maybe I'll add my mark."
			<<case 10>><<He>> speaks. "I can think of worse things to write on you."
		<</switch>>
	<<else>>
		<<switch random(1, 10)>>
			<<case 1>>
				<<if $skin[$args[0]].pen is "tattoo">>
					<<He>> speaks. "Such a lewd tattoo."
				<<elseif $skin[$args[0]].pen is "brand">>
					<<He>> speaks. "Such a lewd brand."
				<<else>>
					<<He>> speaks. "Such a lewd drawing."
				<</if>>
			<<case 2>>
				<<if $skin[$args[0]].pen is "tattoo">>
					<<He>> speaks. "Why would you have yourself tattooed so?"
				<<elseif $skin[$args[0]].pen is "brand">>
					<<He>> speaks. "Why would you burn that into your skin?"
				<<else>>
					<<He>> speaks. "Did you draw this?"
				<</if>>
			<<case 3>><<He>> speaks. "Suits you."
			<<case 4>>
				<<if $skin[$args[0]].pen is "tattoo">>
					<<He>> speaks. "I love tattooed sluts."
				<<elseif $skin[$args[0]].pen is "brand">>
					<<He>> speaks. "Burned into you. Lovin' it."
				<<else>>
					<<He>> speaks. "You should get that as a tattoo."
				<</if>>
			<<case 5>><<He>> speaks. "You're a perfect canvas."
			<<case 6>><<He>> speaks. "I see others have marked their territory."
			<<case 7>><<He>> speaks. "Someone's an artist."
			<<case 8>>
				<<if $skin[$args[0]].pen is "tattoo">>
					<<He>> speaks. "You should get more lewd tattoos."
				<<elseif $skin[$args[0]].pen is "brand">>
					<<He>> speaks. "You should get more lewd brands."
				<<else>>
					<<He>> speaks. "I might leave my own mark."
				<</if>>
			<<case 9>>
				<<if $skin[$args[0]].pen is "tattoo">>
					<<He>> speaks. "Good use of ink."
				<<elseif $skin[$args[0]].pen is "brand">>
					<<He>> speaks. "I can think of worse things to brand you with."
				<<else>>
					<<He>> speaks. "I can think of worse things to draw on you."
				<</if>>
			<<case 10>><<He>> speaks. "I've seen lewder."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_criminal">>
<<set $enemytrust -= 35>>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<if $consensual is 1>>
		<<switch random(1, 9)>>
			<<case 1>><<He>> speaks. "I should watch my money."
			<<case 2>><<He>> speaks. "I'm keeping an eye on you."
			<<case 3>><<He>> speaks. "Maybe I should punish you."
			<<case 4>><<He>> speaks. "Don't try to steal anything."
			<<case 5>><<He>> speaks. "Don't think about robbing me."
			<<case 6>><<He>> speaks. "Should I be worried?"
			<<case 7>><<He>> speaks. "Who'd you steal from?"
			<<case 8>><<He>> speaks. "I didn't know being a slut was illegal."
			<<case 9>><<He>> speaks. "I bet you tried whoring yourself."
		<</switch>>
	<<else>>
		<<switch random(1, 9)>>
			<<case 1>><<He>> speaks. "You deserve to be treated like this."
			<<case 2>><<He>> speaks. "I'm doing my part for the community."
			<<case 3>><<He>> speaks. "Punishing whores is fun."
			<<case 4>><<He>> speaks. "Be good, or I'll tell the police you robbed me."
			<<case 5>><<He>> speaks. "Steal from me and I'll fuck you up."
			<<case 6>><<He>> speaks. "Don't try anything. I've counted every penny."
			<<case 7>><<He>> speaks. "I bet you tried to whore yourself, you dumb slut."
			<<case 8>><<He>> speaks. "I knew this was all you're good for."
			<<case 9>><<He>> speaks. "I'm giving you what you deserve."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_cum_heavy">>
<<if $NPCList[_n].type is "plant">>
	<<He>> licks <<his>> lips.
<<else>>
	<<famesex 2>>
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<He>> speaks.

		<<if $args[0] is "anus" and $player.gender is "m" and $penissize lte 1 and random(1, 5) is 1>>
			<<if random(1, 2) is 1>>
				"Doesn’t surprise me, with a dick that small."
			<<else>>
				"With such a tiny cock, I guess that’s the only way you could pleasure someone."
			<</if>>

			<<if $penissize is 1>>
				<<insecurity "penis_small" 1>>
			<<else>>
				<<insecurity "penis_tiny" 1>>
			<</if>>
		<<else>>
			<<switch random(1, 11)>>
				<<case 1>>"What a fucking cum rag."
				<<case 2>>"What a filthy slut."
				<<case 3>>"What a fucking cumdump."
				<<case 4>>"You nasty cumdump!"
				<<case 5>>"Does walking around covered in cum excite you?"
				<<case 6>>"Do you ever clean yourself?"
				<<case 7>>"Fucking sluts won’t even take a bath anymore."
				<<case 8>>"Were you whoring yourself?"
				<<case 9>>"Fuck, are you addicted to cum or what?"
				<<case 10>>"Someone knows how to have fun."
				<<case 11>>
					<<if $args[0] is "vagina">>
						"Are you that desperate for a baby?"
					<<elseif $args[0] is "anus">>
						"Looks like your ass is getting a lot of action."
					<<else>>
						"Someone knows how to have fun."
					<</if>>
			<</switch>>
		<</if>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_cum_light">>
<<if $NPCList[_n].type is "plant">>
	<<He>> licks <<his>> lips.
<<else>>
	<<famesex 1>>
	<<He>> speaks.
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<if $args[0] is "vagina">>
			<<switch random(1, 9)>>
				<<case 1>>
					<<if $malechance gt 0>>
						"Did you have some fun with your boyfriend?"
					<<else>>
						"I see someone had fun already."
					<</if>>
				<<case 2>>
					<<if $malechance gt 0>>
						"Did your boyfriend do that?"
					<<else>>
						"Who put that load in you?"
					<</if>>
				<<case 3>>
					<<if $malechance gt 0>>
						"I bet you made your boyfriend happy."
					<<else>>
						"You must've made someone very happy."
					<</if>>
				<<case 4>>"Don’t worry, I’ll give you some more."
				<<case 5>>"Guess I’ll be taking sloppy seconds."
				<<case 6>>"At least clean yourself after slutting out."
				<<case 7>>"I see someone had fun already."
				<<case 8>>"Do you like being creampied?"
				<<case 9>>"Are you trying to get pregnant?"
			<</switch>>
		<<elseif $args[0] is "anus">>
			<<if $player.gender is "m" and $penissize lte 1 and random(1, 5) is 1>>
				<<if random(1, 2) is 1>>
					"Doesn’t surprise me, with a dick that small."
				<<else>>
					"With such a tiny cock, I guess that’s the only way you could pleasure someone."
				<</if>>

				<<if $penissize is 1>>
					<<insecurity "penis_small" 1>>
				<<else>>
					<<insecurity "penis_tiny" 1>>
				<</if>>
			<<else>>
				<<switch random(1, 10)>>
					<<case 1>>
						<<if $malechance gt 0>>
							"Did you have some fun with your boyfriend?"
						<<else>>
							"I see someone had fun already."
						<</if>>
					<<case 2>>
						<<if $malechance gt 0>>
							"Did your boyfriend do that?"
						<<else>>
							"Who put that load in you?"
						<</if>>
					<<case 3>>
						<<if $malechance gt 0>>
							"I bet you made your boyfriend happy."
						<<else>>
							"You must've made someone very happy."
						<</if>>
					<<case 4>>"Don’t worry, I’ll give you some more."
					<<case 5>>"Guess I’ll be taking sloppy seconds."
					<<case 6>>"At least clean yourself after slutting out."
					<<case 7>>"I see someone had fun already."
					<<case 8>>"Nice to know you don’t mind taking it in the ass."
					<<case 9>>"Did you enjoy getting your ass filled?"
					<<case 10>>"Were you trying to stay a virgin?"
				<</switch>>
			<</if>>
		<<else>>
			<<switch random(1, 8)>>
				<<case 1>>
					<<if $malechance gt 0>>
						"Did you have some fun with your boyfriend?"
					<<else>>
						"I see someone had fun with you already."
					<</if>>
				<<case 2>>
					<<if $malechance gt 0>>
						"Did your boyfriend do that?"
					<<else>>
						"Who dumped that load on you?"
					<</if>>
				<<case 3>>
					<<if $malechance gt 0>>
						"I bet you made your boyfriend happy."
					<<else>>
						"You must've made someone very happy."
					<</if>>
				<<case 4>>"Do you like having cum on you?"
				<<case 5>>"Don’t worry, I’ll give you some more."
				<<case 6>>"At least clean yourself after slutting out."
				<<case 7>>"I see someone had fun with you already."
				<<case 8>>"Were you trying to stay a virgin?"
			<</switch>>
		<</if>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_parasite_comment">>
<<if $NPCList[_n].type is "plant">>
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<if $args[0] is "penis">>
			<<He>> pouts. "That thing better not block your cum<<if $orgasmcurrent gte 1>> again<</if>>."
		<<else>>
			<<He>> raises an eyebrow. "Alright. Gotta admit, that's a new one."
		<</if>>
	<</if>>
<<else>>
	<<famebestiality 1>>
	<<if !$speechadmired>><<set $speechadmired to 1>>
		<<He>> speaks.
		<<switch random(1, 8)>>
			<<case 1>>"That must feel good."
			<<case 2>>"I bet that keeps you horny. That’s why you haven’t taken it off yet."
			<<case 3>>"You should see a doctor about that."
			<<case 4>>"Fuck, is that real?"
			<<case 5>>"Did you put that on yourself?"
			<<case 6>>"Where did you even find that?"
			<<case 7>>"I would never suspect a <<girl>> like you to be into that."
			<<case 8>>"Not my thing, but I guess I can’t be picky."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_kylar">>
<<set _silent to 1>>
<<switch $skin[$args[0]].special>>
	<<case "Kylar">>
		<<if $skin[$args[0]].arrow is 1>>
			"Reserved for me," <<he>> says lovingly as <<he>>
			<<if $args[0] is "left_cheek" or $args[0] is "right_cheek" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "head" and $NPCList[_n].penis is 0 and $mouthuse is 0>>
				positions <<his>> $NPCList[_n].penisdesc in front of your mouth.
				<<neutral 5>><<set $mouthuse to "penis">><<set $NPCList[_n].penis to "mouthentrance">><<set $mouthstate to "entrance">><<set $NPCList[_n].location.genitals to "head">><<set $mouthtarget to _n>>
			<<elseif $args[0] is "left_cheek" or $args[0] is "right_cheek" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "head" and $NPCList[_n].vagina is 0 and $mouthuse is 0>>
				<<if random(4) is 0>>
					gently rolls you onto your back and straddles your face, lowering <<his>> pussy down onto your mouth.
					<<submission 5>><<set $NPCList[_n].vagina to "facesit">><<set $mouthuse to "facesit">><<set $mouthstate to "vagina">><<set $position to "missionary">><<set $mouthtarget to _n>>
				<<else>>
					wraps <<his>> legs around your head, pressing <<his>> pussy against your mouth.
					<<submission 5>><<set $mouthuse to "othervagina">><<set $NPCList[_n].vagina to "mouth">><<set $mouthstate to "othervagina">><<set $mouthtarget to _n>>
				<</if>>
			<<elseif $args[0] is "back" or $args[0] is "right_bottom" or $args[0] is "left_bottom" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "genitals" and $worn.lower.anus_exposed gte 1 and $worn.under_lower.anus_exposed gte 1 and $NPCList[0].penis is 0 and $anususe is 0>>
				positions <<his>> penis in front of your <<bottom>>.
				<<neutral 5>><<set $anususe to "penis">><<set $NPCList[_n].penis to "anusentrance">><<set $anusstate to "entrance">><<set $anustarget to _n>>
			<<elseif $args[0] is "pubic" or $args[0] is "left_thigh" or $args[0] is "right_thigh" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "genitals" and $player.vaginaExist and $worn.lower.vagina_exposed gte 1 and $worn.under_lower.vagina_exposed gte 1 and $NPCList[0].penis is 0 and $vaginause is 0>>
				moves between your legs, positioning <<his>> $NPCList[_n].penisdesc in front of your pussy.
				<<neutral 5>><<set $NPCList[_n].penis to "vaginaentrance">><<set $vaginause to "penis">><<set $vaginastate to "entrance">><<set $NPCList[_n].location.genitals to "genitals">><<set $vaginatarget to _n>>
			<<elseif $args[0] is "pubic" or $args[0] is "left_thigh" or $args[0] is "right_thigh" and $NPCList[_n].location.genitals is 0 and $NPCList[_n].location.head isnot "genitals" and $player.penisExist and $worn.lower.vagina_exposed gte 1 and $worn.under_lower.vagina_exposed gte 1 and $NPCList[0].vagina is 0 and $penisuse is 0>>
				straddles you, <<his>> pussy hovering close to your <<penis>>.
				<<neutral 5>><<set $penisuse to "othervagina">><<set $NPCList[_n].vagina to "penisentrance">><<set $penisstate to "entrance">><<set $NPCList[_n].location.genitals to "genitals">><<set $penistarget to _n>>
			<<else>>
				smiles at you.
			<</if>>
		<<else>>
			<<He>> smiles at you.
			<<unset _silent>>
		<</if>>
		<<set $enemyanger -= 10>><<set $enemytrust += 10>><<npcincr Kylar rage -2>>
	<<case "Robin">>
		<<if _kylarStatus.includes("Rage")>>
			<<He>> snarls. "Forget about <<nnpc_him "Robin">>! I'm better than <<nnpc_him "Robin">>!"
		<<else>>
			<<He>> growls. "Robin can't take care of you like I can!"
		<</if>>
		<<set $enemyanger += 30>><<set $enemytrust -= 30>><<npcincr Kylar rage 3>>
	<<case "Whitney">>
		<<if _kylarStatus.includes("Rage")>>
			<<He>> snarls. "You're not Whitney's! You're mine!"
		<<else>>
			<<He>> freezes. "H... <<nnpc_He "Whitney">> doesn't treat you right! I can!"
		<</if>>
		<<set $enemyanger += 30>><<set $enemytrust -= 30>><<npcincr Kylar rage 3>>
	<<case "Sydney">>
		<<if $skin[$args[0]].lewd isnot 1>>
			<<He>> frowns, but doesn't say anything about it.
			<<unset _silent>>
			<<set $enemyanger += 5>><<set $enemytrust -= 5>>
		<<elseif !$kylarSeen.includes("sydneyWriting") and $args[0].lewd is 1>>
			<<He>> frowns, reading it again, and <<his>> lip curls. "<<nnpc_He "Sydney">>... Forget about <<nnpc_him "Sydney">>."
			<<set $enemyanger += 20>><<set $enemytrust -= 20>><<npcincr Kylar rage 1>><<set $kylarSeen.pushUnique("sydneyWriting")>>
		<<elseif _kylarStatus.includes("Rage")>>
			<<He>> growls. "Sydney doesn't know you like I do!"
			<<set $enemyanger += 30>><<set $enemytrust -= 30>><<npcincr Kylar rage 3>>
		<<else>>
			<<He>> frowns. "I don't like how close you are to <<nnpc_him "Sydney">>."
			<<set $enemyanger += 20>><<set $enemytrust -= 20>><<npcincr Kylar rage 1>>
		<</if>>
	<<case "Black Wolf" "Great Hawk">>
		<<His>> eyes narrow. "I can be an animal, too. Watch!"
		<<set $enemyanger += 30>><<set $enemytrust -= 30>><<npcincr Kylar rage 3>>
	<<case "Eden" "Avery" "Alex">>
		<<if _kylarStatus.includes("Rage")>>
			<<He>> snarls. "Whoever they are, they're worthless!"
		<<else>>
			<<He>> growls. "You don't need them! You only need me!"
		<</if>>
		<<set $enemyanger += 30>><<set $enemytrust -= 30>><<npcincr Kylar rage 3>>
	<<case "prostitution" "rape" "exhibitionism" "sex">>
		<<He>> grimaces.
		<<unset _silent>>
		<<set $enemyanger += 20>><<set $enemytrust -= 20>><<npcincr Kylar rage 1>>
	<<case "pregnancy">>
		/*ToDo: Pregnancy, write once Kylar's reaction to/thoughts on pregnancy is better understood.
		May differ based on gender, jealousy and whether or not Kylar has impregnated the PC in the past.*/
	<<case "combat" "violence" "criminal">>
		<<His>> eyes widen, but <<he>> doesn't say anything about it.
		<<unset _silent>>
	<<default>>
		<<if $skin[$args[0]].lewd is 1>>
			<<He>> frowns.
			<<unset _silent>>
			<<set $enemyanger += 10>><<set $enemytrust -= 10>><<npcincr Kylar rage 1>>
		<<else>>
			/*Do nothing.*/
			<<unset _silent>>
		<</if>>
<</switch>>
<</widget>>

<<widget "bodypart_admire_plant">>
<<if !$speechadmired>><<set $speechadmired to 1>>
	<<if $skin[$args[0]].type is "object">>
		<<switch $skin[$args[0]].writing>>
			<<case "unicorn">>
				"Horses like that exist? Whoa."
			<<case "heart" "cross">>
				"Aw, how cute! ...What is it?"
			<<case "paw_print">>
				<<if $location is "forest">>
					"Hey, are you with the... never mind."
				<<else>>
					"Exotic!"
				<</if>>
			<<case "flower" "butterfly">>
				"Oh, I love it!"
				<<set $enemytrust += 20>>
			<<case "star">>
				<<if $location is "forest">>
					"I wish we could see the stars, but the trees block most of them out..."
				<<elseif $daystate is "night">>
					"Just like the sky!"
				<<else>>
					"Just like the night sky..."
				<</if>>
			<<case "skull">>
				"You mean you have one of those in your body? I don't buy it."
			<<case "flame">>
				<<if $skin[$args[0]].pen is "brand" or $skin[$args[0]].pen is "magic">>
					"That's not... actually burning you, is it?"
				<<else>>
					"You've got a taste for the dangerous."
				<</if>>
			<<case "cattle_brand">>
				<<if $location is "moor">>
					"Don't worry. I won't let Remy take you from me."
				<<else>>
					"Aw, how cute! ...What is it?"
				<</if>>
			<<case "penis">>
				"Ooh, how lewd! ...What do you mean, unused?!"
		<</switch>>
	<<else>>
		<<switch $skin[$args[0]].pen>>
			<<case "tattoo">>
				"What is that, a birthmark?"
			<<case "brand">>
				"Yowch, wouldn't want that seared into me."
			<<case "magic">>
				"Did I have a funky mushroom, or is that actually glowing?"
			<<case "lipstick">>
				"Ooh, pink!"
			<<case "mud">>
				"Nature's canvas."
			<<default>>
				"It's a shame to draw on such cute skin."
		<</switch>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire">>
<<switch $args[1]>>
	<<case "bodywriting">>
		<<if $skin[$args[0]] is undefined or $newlyWritten.includes($args[0])>>
		<<elseif $skin[$args[0]].writing>>
			<<if $args[0] is "forehead" or
			($args[0] is "left_cheek" or $args[0] is "right_cheek") and !$worn.face.type.includes("mask") or
			($args[0] is "left_shoulder" or $args[0] is "right_shoulder") and ($worn.upper.exposed gte 1 or $worn.upper.open is 1) and ($worn.under_upper.exposed gte 1 or $worn.under_open is 1) or
			$args[0] is "breasts" and $worn.upper.exposed gte 1 and ($worn.under_upper.exposed gte 1 or $worn.under_upper.open is 1) or
			$args[0] is "back" and ($worn.upper.exposed gte 1 or $worn.upper.state isnot "waist") and ($worn.under_upper.exposed gte 1 or $worn.under_upper.state isnot "waist") or
			($args[0] is "left_bottom" or $args[0] is "right_bottom") and ($worn.lower.exposed gte 1 or $worn.lower.anus_exposed gte 1) and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic")) or
			$args[0] is "pubic" and $worn.lower.exposed gte 1 and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic")) or
			($args[0] is "left_thigh" or $args[0] is "right_thigh") and $worn.lower.vagina_exposed gte 1 and !$worn.under_lower.type.includes("athletic")>>/*Makes sure bodywriting isn't seen if obstructed by clothing.*/
				<<if $skin[$args[0]].type is "text">>
					<<He>> reads the "<<print $skin[$args[0]].writing>>" writing on your <<bodypart $args[0]>>.
				<<else>>
					<<He>> examines the <<print $skin[$args[0]].writing>> image on your <<bodypart $args[0]>>.
				<</if>>
				<<if $npc[$npcrow.indexOf(_n)] is "Kylar">>
					<<bodypart_admire_kylar $args[0]>>
				<<elseif $npc[$npcrow.indexOf(_n)] isnot "Robin" and $npc[$npcrow.indexOf(_n)] isnot "Mason" and $npc[$npcrow.indexOf(_n)] isnot "Sydney">>
					<<if $skin[$args[0]].arrow is 1 and
					($args[0] is "left_cheek" or
					$args[0] is "right_cheek" or
					$args[0] is "back" or
					$args[0] is "left_bottom" or
					$args[0] is "right_bottom" or
					$args[0] is "pubic" or
					$args[0] is "left_thigh" or
					$args[0] is "right_thigh")>>
						<<bodypart_admire_arrow $args[0]>>
					<<elseif $NPCList[_n].type is "plant">>
						<<bodypart_admire_plant $args[0]>>
					<<elseif $skin[$args[0]].special is "prostitution">>
						<<bodypart_admire_prostitution $args[0]>>
					<<elseif $skin[$args[0]].special is "rape">>
						<<bodypart_admire_rape $args[0]>>
					<<elseif $skin[$args[0]].special is "exhibitionism">>
						<<bodypart_admire_exhibitionism $args[0]>>
					<<elseif $skin[$args[0]].special is "bestiality" or $skin[$args[0]].special is "Black Wolf" or $skin[$args[0]].special is "Great Hawk">>
						<<bodypart_admire_bestiality $args[0]>>
					<<elseif $skin[$args[0]].special is "sex">>
						<<bodypart_admire_promiscuity $args[0]>>
					<<elseif $skin[$args[0]].special is "pregnancy">>
						<<bodypart_admire_pregnancy $args[0]>>
					<<elseif $skin[$args[0]].gender is "f">>
						<<bodypart_admire_girly $args[0]>>
					<<elseif $skin[$args[0]].gender is "m">>
						<<bodypart_admire_boyish $args[0]>>
					<<elseif $skin[$args[0]].special is "combat">>
						<<bodypart_admire_combat $args[0]>>
					<<elseif $skin[$args[0]].special is "violence">>
						<<bodypart_admire_violence $args[0]>>
					<<elseif $skin[$args[0]].special is "criminal">>
						<<bodypart_admire_criminal $args[0]>>
					<<elseif $skin[$args[0]].writing>>
						<<bodypart_admire_lewd $args[0]>>
					<</if>>
				<</if>>
			<</if>>
		<</if>>
	<<case "cum">>
		<<bodypart_admire_cum_convert $args[0]>>
	<<case "parasite">>
		<<bodypart_admire_parasite_convert $args[0]>>
<</switch>>
<</widget>>

<<widget "bodypart_admire_cum_convert">>
<<switch $args[0]>>
	<<case "forehead">>
		<<bodypart_admire_cum hair>>
	<<case "left_bottom", "right_bottom">>
		<<if random(1, 2) is 1>>
			<<bodypart_admire_cum bottom>>
		<<else>>
			<<bodypart_admire_cum anus>>
		<</if>>
	<<case "left_shoulder">>
		<<bodypart_admire_cum leftarm>>
	<<case "right_shoulder">>
		<<bodypart_admire_cum rightarm>>
	<<case "pubic">>
		<<if $player.gender is "m" or ($player.gender is "h" and random(1, 2) is 1)>>
			<<bodypart_admire_cum penis>>
		<<else>>
			<<if random(1, 2) is 1>>
				<<bodypart_admire_cum vagina>>
			<<else>>
				<<bodypart_admire_cum vaginaoutside>>
			<</if>>
		<</if>>
	<<case "back">>
		<<bodypart_admire_cum neck>>
	<<case "breasts">>
		<<bodypart_admire_cum chest>>
	<<case "left_thigh", "right_thigh">>
		<<bodypart_admire_cum thigh>>
	<<case "left_cheek", "right_cheek">>
		<<if random(1, 2) is 1>>
			<<bodypart_admire_cum face>>
		<<else>>
			<<bodypart_admire_cum mouth>>
		<</if>>
	<<default>>
		<<set _admireNothing to true>>
<</switch>>
<<if $NPCList[_n].type is "plant">>
	<<set _admireNothing to true>>
<</if>>
<</widget>>

<<widget "bodypart_admire_parasite_convert">>
<<switch $args[0]>>
	<<case "left_bottom", "right_bottom">>
		<<bodypart_admire_parasite bottom>>
	<<case "left_shoulder">>
		<<bodypart_admire_parasite left_arm>>
	<<case "right_shoulder">>
		<<bodypart_admire_parasite right_arm>>
	<<case "pubic">>
		<<if $player.gender is "m" or ($player.gender is "h" and random(1, 2) is 1)>>
			<<bodypart_admire_parasite penis>>
		<<else>>
			<<bodypart_admire_parasite clit>>
		<</if>>
	<<case "breasts">>
		<<bodypart_admire_parasite nipples>>
	<<default>>
		<<set _admireNothing to true>>
<</switch>>
<</widget>>

<<widget "bodypart_admire_cum">>
<<if _admireNothing>>
<<elseif setup.bodyliquid.combined($args[0]) gte 4>>
	<<if $player.bodyliquid[$args[0]].goo gte 1 and $player.bodyliquid[$args[0]].semen gte 1>>
		<<set _bodypartLiquidText to "semen and slime">>
	<<elseif $player.bodyliquid[$args[0]].goo gte 1>>
		<<set _bodypartLiquidText to "slime">>
	<<else>>
		<<set _bodypartLiquidText to "semen">>
	<</if>>

	<<if $args[0] is "vagina" or $args[0] is "anus" or $args[0] is "mouth">>
		<<He>> <<print either("sees a large amount of", "spots the", "notices the", "eyes up the", "stares at the")>> <<print _bodypartLiquidText>> <<print either("oozing from", "pouring out of", "running from")>> from your <<bodypart $args[0]>>.
	<<else>>
		<<He>> <<print either("sees a large amount of", "spots the", "notices the", "eyes up the", "stares at the")>> <<print _bodypartLiquidText>> <<print either("coating", "soaking", "running down", "cascading off")>> your <<bodypart $args[0]>>.
	<</if>>

	<<if $npc[$npcrow.indexOf(_n)] isnot "Robin" and $npc[$npcrow.indexOf(_n)] isnot "Kylar" and $npc[$npcrow.indexOf(_n)] isnot "Mason" and $npc[$npcrow.indexOf(_n)] isnot "Sydney">>
		<<bodypart_admire_cum_heavy $args[0]>>
	<</if>>
<<elseif setup.bodyliquid.combined($args[0]) gte 2>>
	<<if $player.bodyliquid[$args[0]].goo gte 1 and $player.bodyliquid.mouth.semen gte 1>>
		<<set _bodypartLiquidText to "semen and slime">>
	<<elseif $player.bodyliquid[$args[0]].goo gte 1>>
		<<set _bodypartLiquidText to "slime">>
	<<else>>
		<<set _bodypartLiquidText to "semen">>
	<</if>>

	<<if $args[0] is "vagina" or $args[0] is "anus" or $args[0] is "mouth">>
		<<He>> <<print either("sees a small amount of", "spots some", "notices some", "eyes up the")>> <<print _bodypartLiquidText>> <<print either("dripping from", "leaking from", "running from", "dribbling out of")>> your <<bodypart $args[0]>>.
	<<else>>
		<<He>> <<print either("sees a small amount of", "spots some", "notices some", "eyes up the")>> <<print _bodypartLiquidText>> on your <<bodypart $args[0]>>.
	<</if>>

	<<if $npc[$npcrow.indexOf(_n)] isnot "Robin" and $npc[$npcrow.indexOf(_n)] isnot "Kylar" and $npc[$npcrow.indexOf(_n)] isnot "Mason" and $npc[$npcrow.indexOf(_n)] isnot "Sydney">>
		<<bodypart_admire_cum_light $args[0]>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_parasite">>
<<if _admireNothing or $parasite[$args[0]].name is undefined>>
<<elseif ($args[0] is "nipples" and $worn.upper.exposed gte 2 and $worn.under_upper.exposed gte 1) or (["bottom","clit","penis"].includes($args[0]) and $worn.lower.exposed gte 2 and $worn.under_lower.exposed gte 1) or !["nipples","bottom","clit","penis"].includes($args[0])>>
	<<He>> <<print either("notices", "stares at", "glances at", "eyes up", "sees")>> the <<print $parasite[$args[0]].name>> on your <<bodypart $args[0]>>.
	<<if $npc[$npcrow.indexOf(_n)] isnot "Robin" and $npc[$npcrow.indexOf(_n)] isnot "Kylar" and $npc[$npcrow.indexOf(_n)] isnot "Mason" and $npc[$npcrow.indexOf(_n)] isnot "Sydney">>
		<<bodypart_admire_parasite_comment $args[0]>>
	<</if>>
<</if>>
<</widget>>

<<widget "bodypart_admire_chance">>
<<if $enemytype isnot "beast" and ($NPCList[_n].mouth is 0 or $NPCList[_n].mouth is "speech_only" or ($NPCList[_n].type is "plant" and $speechkissvirgin is 1)) and $speechdisable isnot 1>>
    <<switch random(1, 5)>>
		<<case 5>>
			<<bodypart_admire $args[0] bodywriting>>
		<<case 4>>
			<<bodypart_admire $args[0] cum>>
		<<case 3>>
			<<bodypart_admire $args[0] parasite>>
		<<default>>
			/*Do nothing*/
	<</switch>>
<</if>>
<</widget>>

<<widget "bodywriting">>
<<bodywriting_exposure_check>>
<<for _active_bodypart range setup.bodyparts>>
	<<if $skin[_active_bodypart].writing>>
		<<if $skin[_active_bodypart].special is "magic">>
			A <<print $skin[_active_bodypart].writing>> has been inscripted on your <<bodypart _active_bodypart>>.
		<<elseif $skin[_active_bodypart].type is "text">>
			<<if $skin[_active_bodypart].special is $loveInterest.primary or $skin[_active_bodypart].special is $loveInterest.secondary>>
				"<<print $skin[_active_bodypart].writing>>" has been
			<<elseif $skin[_active_bodypart].special isnot "none">>
				"<<print $skin[_active_bodypart].writing>>" has been
			<<elseif $skin[_active_bodypart].lewd is 1>>
				"<<print $skin[_active_bodypart].writing>>" has been
			<<else>>
				"<<print $skin[_active_bodypart].writing>>" has been
			<</if>>
			<<if $skin[_active_bodypart].pen is "pen">>
				written on your <<bodypart _active_bodypart>> in regular pen.
			<<elseif $skin[_active_bodypart].pen is "marker">>
				written on your <<bodypart _active_bodypart>> in permanent marker.
			<<elseif $skin[_active_bodypart].pen is "tattoo">>
				tattooed on your <<bodypart _active_bodypart>>.
			<<elseif $skin[_active_bodypart].pen is "lipstick">>
				written on your <<bodypart _active_bodypart>> in lipstick.
			<<elseif $skin[_active_bodypart].pen is "mud">>
				written on your <<bodypart _active_bodypart>> in mud.
			<<elseif $skin[_active_bodypart].pen is "brand">>
				branded on your <<bodypart _active_bodypart>>.
			<<elseif $skin[_active_bodypart].pen is "magic">>
				sealed on your <<bodypart _active_bodypart>>.
			<</if>>
		<<else>>
			<<if $skin[_active_bodypart].special isnot "none">>
				A picture of a <<print $skin[_active_bodypart].writing>> has been
			<<elseif $skin[_active_bodypart].lewd is 1>>
				A picture of a <<print $skin[_active_bodypart].writing>> has been
			<<else>>
				A picture of a <<print $skin[_active_bodypart].writing>> has been
			<</if>>
			<<if $skin[_active_bodypart].pen is "pen">>
				drawn on your <<bodypart _active_bodypart>> in regular pen.
			<<elseif $skin[_active_bodypart].pen is "lipstick">>
				drawn on your <<bodypart _active_bodypart>> in lipstick.
			<<elseif $skin[_active_bodypart].pen is "mud">>
				drawn on your <<bodypart _active_bodypart>> in mud.
			<<elseif $skin[_active_bodypart].pen is "marker">>
				drawn on your <<bodypart _active_bodypart>> in permanent marker.
			<<elseif $skin[_active_bodypart].pen is "tattoo">>
				tattooed on your <<bodypart _active_bodypart>>.
			<<elseif $skin[_active_bodypart].pen is "brand">>
				branded on your <<bodypart _active_bodypart>>.
			<<elseif $skin[_active_bodypart].pen is "magic">>
				sealed on your <<bodypart _active_bodypart>>.
			<</if>>
		<</if>>
		<<if $skin[_active_bodypart].arrow is 1>>
			<<if _active_bodypart is "left_cheek" or _active_bodypart is "right_cheek">>
				An arrow points to your mouth.
			<<elseif _active_bodypart is "left_bottom" or _active_bodypart is "right_bottom" or _active_bodypart is "back">>
				An arrow points to your anus.
			<<elseif _active_bodypart is "pubic" or _active_bodypart is "left_thigh" or _active_bodypart is "right_thigh">>
				An arrow points to your <<genitals>>.
			<</if>>
		<</if>>
		<<if $skin[_active_bodypart].pen is "magic">>
			It's always visible.
		<<elseif _skin_array.includes(_active_bodypart)>>
			It's currently visible.
		<<else>>
			It isn't currently visible.
		<</if>>

	<</if>>
<</for>>
<</widget>>

<<widget "bodywriting_exposure_check">>/*Checks if bodywriting or tattoos are visible to NPCs.*/
<<if _skin_array is undefined or $args[0] is true>>
	<<set _skin_array to []>>
	<<set _skin_array_special to []>>
	<<set _bodywriting_exposed to 0>>
	<<if $skin.forehead.writing>>
		<<set _skin_array.push("forehead")>>
		<<set _skin_array_special.push($skin.forehead.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.left_cheek.writing and (!$worn.face.type.includes("mask") or $skin.left_cheek.pen is "magic")>>
		<<set _skin_array.push("left_cheek")>>
		<<set _skin_array_special.push($skin.left_cheek.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.right_cheek.writing and (!$worn.face.type.includes("mask") or $skin.right_cheek.pen is "magic")>>
		<<set _skin_array.push("right_cheek")>>
		<<set _skin_array_special.push($skin.right_cheek.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.left_shoulder.writing and (($worn.over_upper.exposed gte 1 or $worn.over_upper.open is 1) and ($worn.upper.exposed gte 1 or $worn.upper.open is 1) and ($worn.under_upper.exposed gte 1 or $worn.under_open is 1) or $skin.left_shoulder.pen is "magic")>>
		<<set _skin_array.push("left_shoulder")>>
		<<set _skin_array_special.push($skin.left_shoulder.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.right_shoulder.writing and (($worn.over_upper.exposed gte 1 or $worn.over_upper.open is 1) and ($worn.upper.exposed gte 1 or $worn.upper.open is 1) and ($worn.under_upper.exposed gte 1 or $worn.under_open is 1) or $skin.right_shoulder.pen is "magic")>>
		<<set _skin_array.push("right_shoulder")>>
		<<set _skin_array_special.push($skin.right_shoulder.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.breasts.writing and (($worn.over_upper.exposed gte 1) and ($worn.upper.exposed gte 1) and ($worn.under_upper.exposed gte 1) or $skin.breasts.pen is "magic")>>
		<<set _skin_array.push("breasts")>>
		<<set _skin_array_special.push($skin.breasts.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.back.writing and (($worn.over_upper.exposed gte 1 or $worn.over_upper.state isnot "waist") and ($worn.upper.exposed gte 1 or $worn.upper.state isnot "waist") and ($worn.under_upper.exposed gte 1 or $worn.under_upper.state isnot "waist") or $skin.back.pen is "magic")>>
		<<set _skin_array.push("back")>>
		<<set _skin_array_special.push($skin.back.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.left_bottom.writing and (($worn.over_lower.exposed gte 1 or $worn.over_lower.anus_exposed gte 1) and ($worn.lower.exposed gte 1 or $worn.lower.anus_exposed gte 1) and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic")) or $skin.left_bottom.pen is "magic")>>
		<<set _skin_array.push("left_bottom")>>
		<<set _skin_array_special.push($skin.left_bottom.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.right_bottom.writing and (($worn.over_lower.exposed gte 1 or $worn.over_lower.anus_exposed gte 1) and ($worn.lower.exposed gte 1 or $worn.lower.anus_exposed gte 1) and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic")) or $skin.right_shoulder.pen is "magic")>>
		<<set _skin_array.push("right_bottom")>>
		<<set _skin_array_special.push($skin.right_bottom.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.pubic.writing and ($worn.over_lower.exposed gte 1 and $worn.lower.exposed gte 1 and ($worn.under_lower.exposed gte 1 or !$worn.under_lower.type.includes("athletic")) or $skin.pubic.pen is "magic")>>
		<<set _skin_array.push("pubic")>>
		<<set _skin_array_special.push($skin.pubic.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.left_thigh.writing and ($worn.over_lower.vagina_exposed gte 1 and $worn.lower.vagina_exposed gte 1 and !$worn.under_lower.type.includes("athletic") or $skin.left_thigh.pen is "magic")>>
		<<set _skin_array.push("left_thigh")>>
		<<set _skin_array_special.push($skin.left_thigh.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
	<<if $skin.right_thigh.writing and ($worn.over_lower.vagina_exposed gte 1 and $worn.lower.vagina_exposed gte 1 and !$worn.under_lower.type.includes("athletic") or $skin.right_thigh.pen is "magic")>>
		<<set _skin_array.push("right_thigh")>>
		<<set _skin_array_special.push($skin.right_thigh.special)>>
		<<set _bodywriting_exposed to 1>>
	<</if>>
<</if>>
<<set _bodypart to _skin_array.random()>>
<</widget>>

<<widget "bodywriting_prostitution_check">>

<</widget>>

<<widget "tattoo_parlour">>
<<generate1>><<person1>>
<<if $tattoo_choice>>
	<<if $tattoo_parlour.special is "bestiality" or $tattoo_parlour.special is "Black Wolf" or $tattoo_parlour.special is "Great Hawk">>
	Blushing, you tell the tattoo artist you want <<if $tattoo_parlour.type is "text">>"<<print $tattoo_parlour.writing>>"<<else>>a <<print $tattoo_parlour.writing>><</if>> tattooed on your <<bodypart $tattoo_bodypart>>. <<Hes>> unfazed by your deviant request.
	<<control 50>><<gggcontrol>>

	<<elseif $tattoo_parlour.lewd is 1>>
	Blushing, you tell the tattoo artist you want <<if $tattoo_parlour.type is "text">>"<<print $tattoo_parlour.writing>>"<<else>>a <<print $tattoo_parlour.writing>><</if>> tattooed on your <<bodypart $tattoo_bodypart>>. <<Hes>> unfazed by your lewd request.
	<<control 50>><<gggcontrol>>

	<<elseif $tattoo_bodypart is "left_bottom" or $tattoo_bodypart is "right_bottom" or $tattoo_bodypart is "pubic" or $tattoo_bodypart is "breasts">>
	Blushing, you tell the tattoo artist you want <<if $tattoo_parlour.type is "text">>"<<print $tattoo_parlour.writing>>"<<else>>a <<print $tattoo_parlour.writing>><</if>> tattooed on your <<bodypart $tattoo_bodypart>>. <<Hes>> unfazed by the location.
	<<control 50>><<gggcontrol>>

	<<else>>
	You tell the tattoo artist you want <<if $tattoo_parlour.type is "text">>"<<print $tattoo_parlour.writing>>"<<else>>a <<print $tattoo_parlour.writing>><</if>> tattooed on your <<bodypart $tattoo_bodypart>>.
	<<control 25>><<ggcontrol>>

	<</if>>
<<else>>
	<<if $tattoo_parlour.special is "bestiality" or $tattoo_parlour.special is "Black Wolf" or $tattoo_parlour.special is "Great Hawk">>
	Blushing, you tell the tattoo artist you want <<if $tattoo_parlour.type is "text">>writing<<else>>image<</if>> on your <<bodypart $tattoo_bodypart>> to become permanent. <<Hes>> unfazed by your deviant request.

	<<elseif $tattoo_parlour.lewd is 1>>
	Blushing, you tell the tattoo artist you want the <<if $tattoo_parlour.type is "text">>writing<<else>>image<</if>> on your <<bodypart $tattoo_bodypart>> to become permanent. <<Hes>> unfazed by your lewd request.

	<<elseif $tattoo_bodypart is "left_bottom" or $tattoo_bodypart is "right_bottom" or $tattoo_bodypart is "pubic" or $tattoo_bodypart is "breasts">>
	Blushing, you tell the tattoo artist you want the <<if $tattoo_parlour.type is "text">>writing<<else>>image<</if>> on your <<bodypart $tattoo_bodypart>> to become permanent. <<Hes>> unfazed by the location.

	<<else>>
	You tell the tattoo artist you want the <<if $tattoo_parlour.type is "text">>writing<<else>>image<</if>> on your <<bodypart $tattoo_bodypart>> to become permanent.

	<</if>>
<</if>>

<<if $tattoo_bodypart is "left_bottom" or $tattoo_bodypart is "right_bottom">>
"Alright," <<he>> says, pulling the curtain shut. "Lets see your bottom."
	<<if $worn.lower.name isnot "naked">>
		<<if setup.clothes.lower[clothesIndex('lower', $worn.lower)].skirt is 1>>
			<<if $worn.under_lower.name isnot "naked">>
				You <<nervously>> flip up your skirt, baring your $worn.under_lower.name. "Those need to go," <<he>> says. "Or they'll get in the way."
					<<if $worn.under_lower.set is $worn.under_upper.set>>
						You follow <<his>> instruction, and shuffle out of your $worn.under_upper.name while <<his>> back is turned.
					<<else>>
						You follow <<his>> instruction, and pull down your $worn.under_lower.name while <<his>> back is turned.
					<</if>>
			<<else>>
				You <<nervously>> flip up your skirt, baring your <<bottom>>.
			<</if>>
		<<else>>
			<<if $worn.lower.set is $worn.upper.set>>
				<<if !$worn.under_lower.type.includes("naked")>>
					You <<nervously>> remove your $worn.upper.name, baring your <<undertop>> and $worn.under_lower.name. "Those need to go," <<he>> says. "Or they'll get in the way."
						<<if $worn.under_lower.est is $worn.under_upper.set>>
							You follow <<his>> instruction, and shuffle out of your $worn.under_upper.name while <<his>> back is turned.
						<<else>>
							You follow <<his>> instruction, and pull down your $worn.under_lower.name while <<his>> back is turned.
						<</if>>
				<<else>>
					You <<nervously>> pull down your $worn.lower.name, baring your <<bottom>>.
				<</if>>
			<<else>>
				<<if !$worn.under_lower.type.includes("naked")>>
					You <<nervously>> pull down your $worn.lower.name, baring your $worn.under_lower.name. "Those need to go," <<he>> says. "Or they'll get in the way."
						<<if $worn.under_lower.est is $worn.under_upper.set>>
							You follow <<his>> instruction, and shuffle out of your $worn.under_upper.name while <<his>> back is turned.
						<<else>>
							You follow <<his>> instruction, and pull down your $worn.under_lower.name while <<his>> back is turned.
						<</if>>
				<<else>>
					You <<nervously>> pull down your $worn.lower.name, baring your <<bottom>>.
				<</if>>
			<</if>>
		<</if>>
	<<else>>
		<<if $worn.under_lower.name isnot "naked">>
			You <<nervously>> pull down your $worn.under_lower.name, baring your <<bottom>>.
		<<else>>
			You <<nervously>> turn, showing <<him>> your <<bottom>>.
		<</if>>
	<</if>>

<<He>> pulls a lever, and the chair beside <<him>> reclines. "Lie on your side," <<he>> says.
	<<if $worn.genitals.name isnot "naked">>
		<<He>> doesn't mention your $worn.genitals.name. You assume that means it won't get in the way.
	<</if>>
	<<if $worn.under_lower.name is "naked">>
		Bare from the waist down, you lie as instructed. "This will hurt a bit."
	<<else>>
		You lie as instructed. "This will hurt a bit."
	<</if>>

<<elseif $tattoo_bodypart is "pubic" or $tattoo_bodypart is "left_thigh" or $tattoo_bodypart is "right_thigh">>
"Alright," <<he>> says, pulling the curtain shut.
	<<if $worn.lower.name is "naked">>

	<<elseif $worn.upper.set is $worn.lower.set and setup.clothes.lower[clothesIndex('lower', $worn.lower)].skirt isnot 1>>
		"You'll have to strip right down. Don't want fabric getting in the way."

		You <<nervously>> remove your $worn.upper.name, baring your <<undertop>> and <<undies>>.
	<<elseif setup.clothes.lower[clothesIndex('lower', $worn.lower)].skirt isnot 1>>
		"You'll have to take your bottoms off. Don't want the fabric getting in the way."

		You <<nervously>> pull down your $worn.lower.name, baring your <<undies>>.
	<<else>>
		"You'll have to pull your skirt right up. Don't want fabric getting in the way."

		You <<nervously>> lift your $worn.lower.name, baring your <<undies>>.
	<</if>>
	<<He>> pulls a lever, and the chair beside <<him>> reclines. "Lie down," <<he>> says.
	<<if $worn.genitals.name isnot "naked">>
		<<He>> doesn't mention your $worn.genitals.name. You assume that means it won't get in the way.
	<</if>>

	<<if $worn.under_lower.name is "naked">>
		Bare from the waist down, you lie as instructed. "This will hurt a bit."
	<<else>>
		You lie as instructed. "This will hurt a bit."
	<</if>>

<<elseif $tattoo_bodypart is "breasts" or $tattoo_bodypart is "back">>
	"Alright," <<he>> says, pulling the curtain shut.
	<<if $worn.upper.type.includes("naked")>>

	<<elseif $worn.upper.open is 1 or $worn.upper.name is "naked">>
		"Could you pull your top down?"
		<<if $worn.under_upper.type.includes("naked")>>
			You <<nervously>> tug down your $worn.upper.name, exposing your <<breasts>>.
		<<else>>
			You <<nervously>> tug down your $worn.upper.name, exposing your $worn.under_upper.name.
		<</if>>

	<<else>>
		"Could you take your top off?"
		<<if $worn.under_upper.type.includes("naked")>>
			You <<nervously>> remove your $worn.upper.name, exposing your <<breasts>>.
		<<else>>
			You <<nervously>> remove your $worn.upper.name, exposing your $worn.under_upper.name.
		<</if>>

	<</if>>
	<<He>> pulls a lever, and the chair beside <<him>> reclines. "Lie down." You lie as instructed. "This will hurt a bit."

<<else>>
	<<He>> pulls a lever, and the chair beside <<him>> reclines. "Lie down." You lie as instructed. "This will hurt a bit."
<</if>>

<<Hes>> not wrong. Your <<bodypart $tattoo_bodypart>> stings the whole way through, but you get used to it, becoming bored instead.
<<if $tattoo_bodypart is "pubic" or $tattoo_bodypart is "breasts" or $tattoo_bodypart is "left_bottom" or $tattoo_bodypart is "right_bottom">>
The artist remains professional despite the lewd location.
<</if>>

"There we go," <<he>> says at last, reaching for a mirror. You examine your new tattoo,
<<if $tattoo_parlour.lewd is 1>>
	<<if $tattoo_parlour.type is "text">>"<<print $tattoo_parlour.writing>>"<<else>>a <<print $tattoo_parlour.writing>><</if>>
<<else>>
	<<if $tattoo_parlour.type is "text">>"<<print $tattoo_parlour.writing>>"<<else>>a <<print $tattoo_parlour.writing>><</if>>
<</if>>
now permanently emblazoned on your <<bodypart $tattoo_bodypart>>.

The artist explains how to care for your skin while the tattoo is still raw. You get the gist. "Thanks for your custom," <<he>> says as you stand.
<<if $tattoo_bodypart is "left_bottom" or $tattoo_bodypart is "right_bottom">>"Oh, and be careful sitting down."<</if>>

<<if $tattoo_parlour.writing is "Book Criminal >:(" or $tattoo_parlour.writing is "Book Criminal <3">>
	<<earnFeat "A Crime Most Foul">>
<</if>>

<<unset $tattoo_parlour>>
<<unset $tattoo_bodypart>>
<<unset $tattoo_choice>>
<<endevent>>
<</widget>>

<<widget "bodywriting_dungeon_select">>
<<if random(1, 2) is 2>>
	<<add_bodywriting $args[0] slave>>
<<else>>
	<<add_bodywriting $args[0] one_six_three>>
<</if>>
<</widget>>