~ start

do Patient.marker.fill(0)
set Patient.dialog_tree = Patient.build_dialog_tree([11,12,13,14,15,21,22,23,24,31,32,33])

do Globals.release_display.emit("[color=orange_red]ERROR[/color]")
do Globals.terminate_display.emit("[color=orange_red]ERROR[/color]")
set Globals.buttons_activated = false

????: [#surprised] Oh, hello, dear. How gorgeous you look.
????: [#neutral] Tell me. What do you think about pleasure ?

~ part_1

- You misunderstand the situation. I ask the questions. You answer. [if Patient.dialog_tree[11] == "not_asked"]
	set Patient.dialog_tree[11] = "asked"
	????: [#smiling] Oh, my sweet little lamb. How cute you sound !
	????: [#neutral] I am going to contemplate you until you answer me. Don't worry, I am here for you.
	=> part_1

- Pleasure is a distraction, a reminder of our primitive urges that must be tempered by reason. [if Patient.dialog_tree[12] == "not_asked"]
	set Patient.dialog_tree[12] = "asked"
	????: [#smiling] Ahahaha, a rationalist ! The harder you strive to control your urges, the further you stray from your own truth.
	????: [#aroused] Which makes you all the more tastier.
	=> part_2

- Pleasure is what I need to preserve my sanity after a long day of grueling work. [if Patient.dialog_tree[13] == "not_asked"]
	set Patient.dialog_tree[13] = "asked"
	????: [#surprised] Oh, poor little cake. Life's hardships have gotten to your head. How tiring it must feel, to terminate innocent people for a living.
	????: [#aroused] Do not fret, sweetie. I am here for you.
	=> part_2

- What other goal is there in life but to seek pleasure ? [if Patient.dialog_tree[14] == "not_asked"]
	set Patient.dialog_tree[14] = "asked"
	????: [#smiling] Behold, an enjoyer of delights, shedding the burden of thought to indulge the cravings of flesh !
	????: [#aroused] You are such a snack.
	=> part_2

- Pleasure is evil, a shame that is to be cast away. [if Patient.dialog_tree[15] == "not_asked"]
	set Patient.dialog_tree[15] = "asked"
	????: [#smiling] So, you're one of those ! Unknowingly harvesting pleasure from the very act of prohibiting it. How deviant you are.
	????: [#aroused] I like it.
	=> part_2


~ part_2
????: [#smiling] Now, dear, to the next dish. What gives you the most pleasure ?

- Enough. I am here to assess you, not the other way around. [if Patient.dialog_tree[21] == "not_asked"]
	set Patient.dialog_tree[21] = "asked"
	????: [#surprised] Dearie, dearie. We both know your computing systems are not working right now. We have time to kill together, you and I.
	=> part_2

- Spending time with my friends and family. [if Patient.dialog_tree[22] == "not_asked"]
	set Patient.dialog_tree[22] = "asked"
	????: [#laughing] Look at that, a social animal ! Through human connections you thrive.
	????: [#excited] How delicious.
	=> part_3

- Stuffing my belly with tasty food. [if Patient.dialog_tree[23] == "not_asked"]
	set Patient.dialog_tree[23] = "asked"
	????: [#laughing] Incredible ! A connoisseur of culinary rapture !
	????: [#excited] How savoury.
	=> part_3

- Pursuing my goals and career. [if Patient.dialog_tree[24] == "not_asked"]
	set Patient.dialog_tree[24] = "asked"
	????: [#laughing] Oh my, oh my ! A pursuer of status and material abundance. Be careful not to conflate the means with the ends, darling.
	????: [#excited] How lovely.
	=> part_3


~ part_3
????: [#smiling] Now, to the final question: how do you seek pleasure ?

- I get pleasure whenever I can, for it is the goal of every being, and everything in life derives from it. [if Patient.dialog_tree[31] == "not_asked"]
	set Patient.dialog_tree[31] = "asked"
	????: [#ecstatic] Oh yes, yeees, everything indeed does come from pleasure. Eeeverything.
	=> part_end

- Pleasure is a resource to be managed, to be balanced with the other sources of fulfillment in life. [if Patient.dialog_tree[32] == "not_asked"]
	set Patient.dialog_tree[32] = "asked"
	????: [#ecstatic] Ooh, this one still thinks other sources of fulfillment are distinct from pleasure. Such a level of delusion is bound to upheave my palate, yeees.
	=> part_end

- Pleasure is everything, and sometimes sacrifices need to be made, so as to increase pleasure on the long term. [if Patient.dialog_tree[33] == "not_asked"]
	set Patient.dialog_tree[33] = "asked"
	????: [#ecstatic] Oooh, look at that little, thoughtful, pleasure-seeking beast ! You must be sooo... crunchy.
	=> part_end


~ part_end

do Globals.release_display.emit("[color=dark_green]RELEASE[/color]")
do Globals.terminate_display.emit("[color=dark_red]TERMINATE[/color]")
set Globals.buttons_activated = true
[#ecstatic] The computing systems come back online as the subject erupts into an unending, ecstatic laughter. Now might be a good time to act.
do Globals.console_message.emit("[color=dark_orange]ALLOTED ASSESSMENT TIME ELAPSED[/color]\n\n[color=orange_red]PLEASE MAKE A DECISION[/color]")
=> END


~ terminate
do Globals.color_change.emit("red")
It That Eats: [#itthateats1] [color=red]... I... SHALL... FEAST... ON... YOU... DEAR...[/color]
set Globals.event_index = "supervisor"
set Globals.supervisor_index = 2
do Globals.clear_patient.emit("terminate")
do UI.save_slot_pressed.emit(0)
=> END


~ release
do Globals.color_change.emit("green")
It That Eats: [#itthateats1] [color=red]... I... SHALL... FEAST... ON... YOU... DEAR...[/color]
set Globals.event_index = "supervisor"
set Globals.supervisor_index = 2
do Globals.clear_patient.emit("release")
do UI.save_slot_pressed.emit(0)
=> END