Merge branch 'harperteststuff' into 'dev'

Harper asylum scene

See merge request Vrelnir/degrees-of-lewdity!3108

game/overworld-forest/loc-asylum/events.twee

@@ -224,6 +224,50 @@ The long-haired girl's eyes seem to follow you as you leave.<<if $o_long_and_bea
 <<endevent>>
 <<link [[Next|Asylum]]>><</link>>
 
+:: Asylum Inkblot Answer Honestly
+
+<<set $outside to 0>><<set $location to "asylum">><<asylumeffects>><<effects>>
+<<if $awareness gte 400>>
+	You try to describe what you saw to Harper, but words fail you. After an awkward silence, you end up stammering something about a monster and a void.
+	<br><br>
+	Harper nods, and writes something down on <<his>> clipboard. "I appreciate your honesty. I can assure you, there is nothing frightening about this picture."
+<<elseif $awareness gte 200>>
+	<<if $speech_attitude is "meek">>
+		"It looks like a... you know," you say, your voice fading to a whisper. "Someone's privates?"
+	<<elseif $speech_attitude is "bratty">>
+		"Is it meant to be a fucking <<if $NPCList[0].penis isnot "none">>dick?<<else>>pussy?<</if>>" you ask, squinting at the paper.
+	<<else>>
+		"I think it kind of looks like a <<if $NPCList[0].penis isnot "none">>penis,<<else>>vagina,<</if>>" you hesitantly say.
+	<</if>>
+	<br><br>
+	Harper nods, and writes something down on <<his>> clipboard. "I appreciate your honesty. There's no reason to be uncomfortable. It's simply a sign that you have a healthy libido."
+<<else>>
+	You tell Harper that the picture looks like a <<if $NPCList[0].penis isnot "none">>rocket.<<else>>butterfly.<</if>>
+	<br><br>
+	Harper smiles, and writes something down on <<his>> clipboard. "I appreciate your honesty. What this tells me is that you are very imaginative."
+<</if>>
+<<He>> glances at the clock. "That's all for today. Be well."
+<br><br>
+<<endevent>>
+<<link [[Next|Asylum]]>><</link>>
+
+:: Asylum Inkblot Answer Evasively
+
+<<set $outside to 0>><<set $location to "asylum">><<asylumeffects>><<effects>>
+You shake your head and keep your mouth shut.
+<<if $awareness gte 400>>
+	You're not sure you're capable of decribing what you saw, even if you wanted to.
+<<elseif $awareness gte 200>>
+	There's no way you're going to tell the doctor you think it looks like something so dirty.
+<<else>>
+	You don't want to play this game right now.
+<</if>>
+<br><br>
+Harper sighs, and writes something down on <<his>> clipboard. "You're only making it harder for me to help you by refusing to open up,"
+<<he>> says. "But there's always another time." <<He>> glances at the clock. "That's all for today. Be well."
+<br><br>
+<<endevent>>
+<<link [[Next|Asylum]]>><</link>>
 
 :: Asylum Sit Desk
 

game/overworld-forest/loc-asylum/widgets.twee

@@ -206,7 +206,33 @@
 		<<link [[Refuse|Asylum Pill Refuse]]>><<suspicion 5>><</link>><<ggsuspicion>><<ggstress>>
 		<br>
 	<</addinlineevent>>
-
+	<<addinlineevent "asylum_treatment_9" 1>>
+		<<npc Harper>><<person1>>
+		You are led into Harper's office. <<He>> waits for you inside, sat at <<his>> desk. "Thank you for coming," <<he>> says. "Please, take a seat."
+		<br><br>
+		You sit down in a chair in front of <<his>> desk. Harper pulls something out from a drawer. It's a folded piece of paper. Dark splotches bleed through it from within.
+		<br><br>
+		"This is something called an inkblot test," <<he>> explains. "I want you to tell me what this shape reminds you of."
+		<br><br>
+		<<He>> unfolds the paper. The two sides stick together, but come undone with a crackle. A symmetrical black blob is painted on the inside.
+		<<if $awareness gte 400>>
+			The strokes twist together across the page, tangling over one another. They converge into total darkness, like a hole punched through the paper, or the mouth of a terrible creature. You stare at it, unable to tear your eyes away. <<gstress>><<stress 6>><<gtrauma>><<trauma 6>>
+		<<elseif $awareness gte 200>>
+			You stare at the paper, trying to discern the shape. The blob looks suspiciously <<if $NPCList[0].penis isnot "none">>phallic.<<else>>yonic.<</if>>
+			<<if $purity gte 1000 or $angel gte 6>>
+				You wonder if you're just being dirty-minded.<<gstress>><<stress 1>>
+			<<else>>
+				The longer you stare at it, the more certain you are that it looks like a <<if $NPCList[0].penis isnot "none">>penis.<<else>>pussy.<</if>>
+			<</if>>
+		<<else>>
+			You tilt your head, looking at the paper. The shape looks like a <<if $NPCList[0].penis isnot "none">>rocket taking off.<<else>>beautiful butterfly.<</if>>
+		<</if>>
+		<br><br>
+		<<link [[Answer honestly|Asylum Inkblot Answer Honestly]]>><<trauma -6>><<suspicion -5>><<awareness -10>><</link>><<llsuspicion>><<llawareness>><<lltrauma>>
+		<br>
+		<<link [[Refuse to answer|Asylum Inkblot Answer Evasively]]>><<awareness -1>><<stress 3>><</link>><<lawareness>><<gstress>>
+		<br>
+	<</addinlineevent>>
 	<<runeventpool>>
 <</if>>
 <</widget>>