~ mr_orleg_day_1_dialogue_start

do CurrentPatient.marker.fill(0)
set CurrentPatient.dialog_tree = CurrentPatient.build_dialog_tree([1100,1200,1210,1220, 1300, 1400, 1500, 1610, 1620])

: The patient remains still, watching you expectantly.

Psychiatrist: Greetings Mr Orleg. You shall be my in care for the duration of your stay in this facility. 

Mr Orleg: Greetings Doctor. I need your help, i don't know why i'm here, there must have been a mistake !

~ choice_1

- Tell me why you were brought here. [if CurrentPatient.dialog_tree[1100] == "not_asked"]

	set CurrentPatient.dialog_tree[1100] = "asked"
	do CurrentPatient.marker[0] += 1
	do CurrentPatient.change_emotion("neutral")
	do CurrentPatient.dialog_flags["insight"].append("Anosognosia")
	
	Mr Orleg: Sure. I was at the usual grocery store next door, and there was that cashier who was threatening me. I was busy explaining her nobody can talk to Mr Orleg this way, when these damned cops came out of nowhere and brutally restrained me ! Can you imagine ?!
	
	=> choice_1

- Do you feel safe in this room ? [if CurrentPatient.dialog_tree[1200] == "not_asked"]

	set CurrentPatient.dialog_tree[1200] = "asked"
	do CurrentPatient.marker[0] += 1
	do CurrentPatient.change_emotion("scared")
	do CurrentPatient.dialog_flags["thought_content"].append("Persecutory delusions")
	
	Mr Orleg: Honestly ? I don't. Some of your colleagues have been giving me the heeby jeebies. Gotta stay sharp, i'm pretty sure he's here.
	
	~ choice_1_2
	
	- Who's "he" ? [if CurrentPatient.dialog_tree[1210] == "not_asked"]
	
		set CurrentPatient.dialog_tree[1210] = "asked"
		do CurrentPatient.marker[1] += 1
		do CurrentPatient.dialog_flags["thought_content"].append("Mystical delusions")
		
		Mr Orleg: Shhh... you musntn't speak his name aloud. "He" is the Harbinger. The Prophet and the Reaper. The Messiah and the Deceiver.
		
		if CurrentPatient.marker[1] == 2
			set CurrentPatient.marker[1] = 0
			=> choice_1
		else
			=> choice_1_2
	
	- Which of my colleagues are you talking about ? [if CurrentPatient.dialog_tree[1220] == "not_asked"]
	
		set CurrentPatient.dialog_tree[1220] = "asked"
		do CurrentPatient.marker[1] += 1
		do CurrentPatient.dialog_flags["perceptions"].append("Mystical delusions")
		
		Mr Orleg: Every single one of them... He's been using their shapes to contact me. I need to remain strong, Doctor.
		
		if CurrentPatient.marker[1] == 2
			set CurrentPatient.marker[1] = 0
			=> choice_1
		else
			=> choice_1_2

- How has your sleep been recently ? [if CurrentPatient.dialog_tree[1300] == "not_asked"]

	set CurrentPatient.dialog_tree[1300] = "asked"
	do CurrentPatient.marker[0] += 1
	do CurrentPatient.change_emotion("neutral")
	do CurrentPatient.dialog_flags["sleep"].append("Insomnia")
	
	Mr Orleg: Hard to keep my eyes shut lately, i'll admit. I definitely could use some rest.
	
	=> choice_1

- How are you feeling lately ? [if CurrentPatient.dialog_tree[1400] == "not_asked"]

	set CurrentPatient.dialog_tree[1400] = "asked"
	do CurrentPatient.marker[0] += 1
	do CurrentPatient.change_emotion("neutral")
	do CurrentPatient.dialog_flags["mood"].append("Euthymia")
	
	Mr Orleg: I'm feeling rather fine, actually. My life's quite enjoyable, except for the whole "i'm locked in here cause people think i'm crazy" situation. You've got to help me Doctor.
	
	- Have you had any thoughts about wanting to end your life ?
	
		do CurrentPatient.dialog_flags["suicidal_ideation"].append("None")
	
		Mr Orleg: I would never dare end the life God has given me.
	
	=> choice_1

- Examine [if CurrentPatient.dialog_tree[1500] == "not_asked"]

	set CurrentPatient.dialog_tree[1500] = "asked"
	do CurrentPatient.marker[0] += 1
	do CurrentPatient.dialog_flags["appearance"].append("Fixed gaze")
	
	: The patient appears to be calm and collected. His garment is clean, if a bit crumpled. His gaze switches back and forth between a wide-eyed focus on your face, and vacantly staring at the wall.
	
	=> choice_1
	
- Don't you feel anxious about this otherwordly being targeting you ? [if CurrentPatient.marker[0] == 5]

	set CurrentPatient.marker[0] = 0
	do CurrentPatient.change_emotion("happy")
	do CurrentPatient.dialog_flags["thought_process"].append("Ideo-affective dissociation")
	do CurrentPatient.dialog_flags["thought_content"].append("Megalomaniac delusions")
	
	Mr Orleg: Not really. I'm protected by God. No one can hurt me.
	
	~ choice_1_6
	
	- How do you know God protects you ? [if CurrentPatient.dialog_tree[1610] == "not_asked"]
		
		set CurrentPatient.dialog_tree[1610] = "asked"
		set CurrentPatient.marker[2] += 1
		do CurrentPatient.dialog_flags["perceptions"].append("Intra-psychic auditory hallucinations")
	
		Mr Orleg: He shares his Will with me directly inside my head. We have a special connection.
		
		if CurrentPatient.marker[2] == 2
			set CurrentPatient.marker[2] = 0
			=> choice_2
		else
			=> choice_1_6
	
	- Have you ever seen God or this evil being with your own eyes ? [if CurrentPatient.dialog_tree[1620] == "not_asked"]
		
		set CurrentPatient.dialog_tree[1620] = "asked"
		set CurrentPatient.marker[2] += 1
	
		Mr Orleg: Never. I don't need to see them to know they're here.
		
		if CurrentPatient.marker[2] == 2
			set CurrentPatient.marker[2] = 0
			=> choice_2
		else
			=> choice_1_6

~ choice_2

- Send to Reset
	
	Psychiatrist: You are in need of psychiatric care, Mr Orleg. My colleagues here will take you to the resetting room for adequate treatment.
	
	Mr Orleg: You can't do that Doctor ! This is a mistake !
	
	Mr Orleg: I swear i'm not crazy !
	
	do CurrentPatient.send_to_reset()
	
	=> END

- Send to Isolation

	Psychiatrist: I have assessed that you are currently unstable, Mr Orleg. You may be dangerous to other people, and even to yourself. We are going to Isolate you to ensure your safety.
	
	do CurrentPatient.change_emotion("scared")
	
	Mr Orleg: What ?? Th- This can't be...
	
	Mr Orleg: Please, have mercy.
	
	do CurrentPatient.send_to_isolation
	
	=> END

- End the evaluation => END

=> END