06:30 am – Wake-Up\n07:00 am – Weigh-in and Vitals\n07:30 am – 8:00 am – Shower and Daily Prep\n08:15 am – Breakfast\n09:00 am – Group\n10:00 am – Physical Therapy\n11:00 am – Physician Check-In\n12:00 pm – Lunch\n01:00 pm – Group\n02:00 pm – Cognitive Behavioral Therapy\n03:00 pm – Afternoon Snack\n03:30 pm – Family Therapy/Work Time\n05:00 pm – Work Time\n06:00 pm – Dinner\n07:00 pm – Work Time\n08:30 pm – Evening Snack / Free Time\n09:30 pm – Evening Check-In\n10:00 pm – Doors Locked\n11:00 pm – Lights Out\n
2007.August.27\nMonday\n\n<<timedgoto "day11" 4s>>
Chris.\n\nGo to hell.\n\n\n-Ian\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]\n\n
<<set $dadLetter = 'dad05'>>\n\n<<set $treatmentExtension = "yes">>\n\n<<set $docreport = "pos">>\n\n<<timedgoto $currentDayBase .2s>>
September 21, 2007\n\n<<display $dadLetter>><<silently>>\n\n<<set $day39choice02 = 0>><<endsilently>>
//Total 9/15-9/21 : $9600\n\nTotal on Account: $43200\n\nInsurance Coverage: $42000//\n\nTOTAL OWED BY PATIENT: $1200.00\n\nNOTE: \n\tPayment of $10,300 has been made to Babylon Behavioral Hospital, ensuring a further seven days of inpatient treatment, as well as various charges associated therein. Arrangements have been made for discharge on 27 September, 2007.\n\n\n[[put away|day36base]]
2007.August.30\nThursday\n\n<<timedgoto "day14" 4s>>
<<silently>><<if $letterVisited eq "y">><<set $day16LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day16choice01 + $day16choice02 neq 0>><<if $day16choice01 + $day16choice02 eq 2>>The daily schedule and a note from Rick sit<<endif>><<if $day16choice01 + $day16choice02 eq 1>><<if $day16choice01 eq 1>>The daily schedule sits<<endif>><<if $day16choice02 eq 1>>A note from Rick sits<<endif>><<endif>><<if $day16LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day16choice01 + $day16choice02 eq 0 and $day16LetterChoice eq 1>>A letter from Ian sits on the bedside table.<<endif>> \n\n\n<<if $day16choice01 eq 1>>[[read the schedule|day16schedule]]\n\n<<endif>><<if $day16choice02 eq 1>>[[read the note from Rick|day16rick]]\n\n<<endif>><<if $day16LetterChoice eq 1 and $letterVisited eq "n">>[[read the letter from Ian|letter]]<<endif>>\n\n<<silently>>\n<<set $currentDayBase = 'day16base'>>\n<<set $day20LetterChoice = $nextLetterDayChoice>>\n<<set $letterArriveDate = "September 4, 2007">>\n\n<<if $day16choice01 + $day16choice02 + $day16LetterChoice eq 0>>\n<<timedgoto "day17wait" .1s>>\n<<endif>><<endsilently>>
Hey Chris,\n\nLook, I know it has to be hard being back here, especially after such a long time. And I can tell that you're trying, at least a little, to get your head back on your shoulders.\nYou're gonna have to do better, Chris. I'm telling you this because I //know// you have it in you, and I //know// you hate it here. \nSo kick it into high gear, okay? You don't have a whole lot of time here.\n\n-Rick
2007.August.21\nTuesday\n\n<<timedgoto "day05" 4s>>
Chris,\n\nI thought I raised you right. I tried to make it so that you didn't want for anything... I know it was difficult, moving around all the time, but I thought things were okay. You always seemed happy.\nI just don't understand why you would do something like that to yourself. Did something happen to you?\nYou were never really a 'normal' kid growing up, but it never seemed like anything was //wrong// with you.\nI've had some issues coming to terms with what you are. \nBut I've always loved you. \n\nYou have always been loved.\n\nLove,\nDad\n\n\n[[reply|dad03_Back]]\n\n[[throw away|dad03_Not]]
(function () {\n "use strict";\n version.extensions['soundMacros'] = {\n major: 1,\n minor: 1,\n revision: 2\n };\n var p = macros['playsound'] = {\n soundtracks: {},\n handler: function (a, b, c, d) {\n var loop = function (m) {\n if (m.loop == undefined) {\n m.loopfn = function () {\n this.play();\n };\n m.addEventListener('ended', m.loopfn, 0);\n } else m.loop = true;\n m.play();\n };\n var s = eval(d.fullArgs());\n if (s) {\n s = s.toString();\n var m = this.soundtracks[s.slice(0, s.lastIndexOf("."))];\n if (m) {\n if (b == "playsound") {\n m.play();\n } else if (b == "loopsound") {\n loop(m);\n } else if (b == "pausesound") {\n m.pause();\n } else if (b == "unloopsound") {\n if (m.loop != undefined) {\n m.loop = false;\n } else if (m.loopfn) {\n m.removeEventListener('ended', m.loopfn);\n delete m.loopfn;\n }\n } else if (b == "stopsound") {\n m.pause();\n m.currentTime = 0;\n } else if (b == "fadeoutsound" || b == "fadeinsound") {\n if (m.interval) clearInterval(m.interval);\n if (b == "fadeinsound") {\n if (m.currentTime>0) return;\n m.volume = 0;\n loop(m);\n } else {\n if (!m.currentTime) return;\n m.play();\n }\n var v = m.volume;\n m.interval = setInterval(function () {\n v = Math.min(1, Math.max(0, v + 0.005 * (b == "fadeinsound" ? 1 : -1)));\n m.volume = Math.easeInOut(v);\n if (v == 0 || v == 1) clearInterval(m.interval);\n if (v == 0) {\n m.pause();\n m.currentTime = 0;\n m.volume = 1;\n }\n }, 10);\n }\n }\n }\n }\n }\n macros['fadeinsound'] = p;\n macros['fadeoutsound'] = p;\n macros['unloopsound'] = p;\n macros['loopsound'] = p;\n macros['pausesound'] = p;\n macros['stopsound'] = p;\n macros['stopallsound'] = {\n handler: function () {\n var s = macros.playsound.soundtracks;\n for (var j in s) {\n\t\tif (s.hasOwnProperty(j)) {\n s[j].pause();\n if (s[j].currentTime) {\n\t\t s[j].currentTime = 0;\n\t\t }\n\t\t}\n }\n }\n }\n var div = document.getElementById("storeArea").firstChild;\n var fe = ["ogg", "mp3", "wav", "webm"];\n while (div) {\n var b = String.fromCharCode(92);\n var q = '"';\n var re = "['" + q + "]([^" + q + "']*?)" + b + ".(ogg|mp3|wav|webm)['" + q + "]";\n k(new RegExp(re, "gi"));\n div = div.nextSibling;\n }\n\n function k(c, e) {\n do {\n var d = c.exec(div.innerHTML);\n if (d) {\n var a = new Audio();\n if (a.canPlayType) {\n for (var i = -1; i < fe.length; i += 1) {\n if (i >= 0) d[2] = fe[i];\n if (a.canPlayType("audio/" + d[2])) break;\n }\n if (i < fe.length) {\n a.setAttribute("src", d[1] + "." + d[2]);\n a.interval = null;\n macros.playsound.soundtracks[d[1]] = a;\n } else console.log("Browser can't play '" + d[1] + "'");\n }\n }\n } while (d);\n }\n}());
2007.September.24\nMonday\n\n<<timedgoto "day39" 4s>>
Chris,\n\nAre you mad at me for going out with Thomas and them? Why? We used to do it all the time, and I know sometimes things got out of hand but that was usually you, not me. \nI know how to take care of myself. I know my limits. You? Not so much. That's why you are in there now, isn't it? A little bit, at least.\nI can usually take care of you when you're like that, too. I don't know what happened that night, I just went at it too fast and passed out early. I should have paced myself a little better, maybe, but still. It isn't my fault, and you know that.\n\nYou know that, right?\n\nLove,\nIan\n\n\n[[reply|ianReply03_NoReply_Back]]\n\n[[throw away|ianReply03_NoReply_Not]]
<<display 'mondaySchedule'>>\n\n[[put away|day32base]]<<set $day32choice01 = 0>>
<<if $dischargechoice01 + $dischargechoice02 eq 2>>A report from Dr. Bailey and a final bill are inside, alongside various pieces of paperwork.<<endif>><<if $dischargechoice01 + $dischargechoice02 eq 1>><<if $dischargechoice1 eq 1>>A report from Dr. Bailey is inside, alongside various pieces of paperwork.<<endif>><<if $dischargechoice02 eq 1>>A final bill is inside, alongside various pieces of paperwork.<<endif>><<endif>><<if $dischargecchoice01 + $dischargechoice02 eq 0>><<timedgoto "end1" .1s>><<endif>>\n\n\n<<if $dischargechoice01 eq 1>>[[read Dr. Bailey's report|day35dischargedocreport]]\n\n<<endif>><<if $dischargechoice02 eq 1>>[[read the bill|day35dischargebill]]<<endif>>\n\n\n\n
<<timedgoto "day31start" 3s>>\n\n<<silently>>\n<<set $day31choice01 = 1>>\n<<set $day31choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
[day 32]\n\n<<timedgoto "day32base" 4s>>
<<set $day0choice3 = "1">>\n<<timedgoto "Day00Pamphlet" .0001s>>
[day 00]\n\n<<timedgoto "Day 00 Base" 4s>>
<<silently>><<if $letterVisited eq "y">><<set $day23LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day23choice01 + $day23choice02 neq 0>><<if $day23choice01 + $day23choice02 eq 2>>The daily schedule and a note from Rick sit<<endif>><<if $day23choice01 + $day23choice02 eq 1>><<if $day23choice01 eq 1>>The daily schedule sits<<endif>><<if $day23choice02 eq 1>>A note from Rick sits<<endif>><<endif>><<if $day23LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day23LetterChoice eq 1 and $day22choice01 + $day23choice02 eq 0>>A letter from Ian sits on the bedside table.<<endif>>\n\n\n<<if $day23choice01 eq 1>>[[read the schedule|day23schedule]]\n\n<<endif>><<if $day23choice02 eq 1>>[[read the note from Rick|day23rick]]\n\n<<endif>><<if $day23LetterChoice eq 1>>[[read the letter from Ian|letter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day23base'>>\n<<set $day27LetterChoice = $nextLetterDayChoice>>\n\n<<set $letterArriveDate = "September 11, 2007">>\n\n\n<<if $day23choice01 + $day23choice02 + $day23LetterChoice eq 0>>\n<<timedgoto "day24wait" .1s>>\n<<endif>><<endsilently>>
2007.September.22\nSaturday\n\n<<timedgoto "day37" 4s>>
For all I know you're just sitting in your room trying to cut yourself again because life is //just//. //so//. //hard//.\n\nGrow the fuck up.\nAnd, in the meantime, go fuck yourself.\n\nI can't believe I ever loved someone so pathetic.\n\n-Ian\n\nPS: You said your last boyfriend hurt you. I bet he didn't do SHIT to you. You make this shit up to make yourself feel better. You're just a sad little thing that can't take responsibility for yourself. Grow the fuck up.\n\n\n[[reply|ianNoReply08_Back]]\n\n[[throw away|ianNoReply08_Not]]
<<set $nextLetter = 'ianNoReply03'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<timedgoto "day35start" 3s>>\n\n<<silently>>\n<<set $day35choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
2007.September.18\nTuesday\n\n<<timedgoto "day33" 4s>>
<<set $nextLetter = 'ianNoReply06_Reply_Reply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<display 'mondaySchedule'>>\n\n[[put away|day18base]]<<set $day18choice01 = 0>>
<<timedgoto "day20start" 3s>>\n\n<<silently>>\n<<set $day20choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<timedgoto "day19start" 3s>>\n\n<<silently>>\n<<set $day19choice01 = 1>>\n<<set $day19choice02 = 1>>\n<<set $day19choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
2007.September.13\nThursday\n\n<<timedgoto "day28" 4s>>
<<set $day0choice2 = "1">>\n<<timedgoto "Day00Pamphlet" .0001s>>
Chris, \n\nIt's okay, I know that they are keeping you busy before you're released. And you know that we'd never be able to afford to pay out-of-pocket, so you'll just have to make do.\nHere's your bus ticket, it's good for the whole day but you'll need to get there as soon as you can. Only a few buses run on the 20th that will get you home.\n\nI'm here for you. \n\nI'll protect you.\n\nLove,\nIan\n\n\n[[put away|ianReply05_NoReply_Reply_2]]\n\n
<<if $day06choice1 + $day06choice2 neq 0>><<if $day06choice1 + $day06choice2 eq 2>>A note from Carly and a letter with the Babylon letterhead are<<endif>><<if $day06choice1 + $day06choice2 eq 1>><<if $day06choice1 eq 1>>A note from Carly is<<endif>><<if $day06choice2 eq 1>>A letter with the Babylon letterhead is<<endif>><<endif>> inside the folder.<<endif>>\n\n\n<<if $day06choice1 eq 1>>[[read the note from Carly|day06carlynote]]\n\n<<endif>><<if $day06choice2 eq 1>>[[read the BABYLON letter|day06babylonletter]]<<endif>><<silently>>\n\n<<if $day06choice1 + $day06choice2 eq 0>>\n<<timedgoto "day07wait" .1s>>\n<<endif>><<endsilently>>
<<timedgoto "day14start" 3s>>\n\n<<silently>>\n<<set $day14choice01 = 1>>\n<<set $day14choice02 = 1>>\n<<set $day14choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
You're fucking lying to them if you say I did anything to hurt you. You're just trying to make it seem like you meant it so you have an excuse. \n\nBesides, look at what you did to YOURSELF that night. Kelly said the paramedics told you that you looked like Christ, you did such a number to yourself. If you need an excuse to hurt yourself, I won't be it. Admit that you did this all to yourself and that I had nothing to do with it.\n\nAnd fucking WRITE BACK. You may be pathetic but maybe you still have a heart.\n\n-Ian\n\n\n[[reply|ianNoReply07_Back]]\n\n[[throw away|ianNoReply07_Not]]
<<timedgoto "day17start" 3s>>\n\n<<silently>>\n<<set $day17choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
You're just trying to make it seem like you meant it so that you have some kind of excuse. You're fucking lying to them if you say I did anything to hurt you.\n\nBesides, look at what you did to YOURSELF that night. Kelly said the paramedics told you that you looked like Christ, you did such a number to yourself. If you need an excuse to hurt yourself, I won't be it. Admit that you did this all to yourself and that I had nothing to do with it.\n\nGot that?\n\nBy the way, everyone believes Kelly. What did I hear someone say... that they "knew I had it in me" all along?\n\nYou've RUINED me, Chris. You better fucking fix this, and fast.\n\n-Ian\n\n\n[[reply|ianNoReply05_Reply_Reply_Back]]\n\n[[throw away|ianNoReply05_Reply_Reply_Not]]\n
2007.August.17\nFriday\n\n<<timedgoto "day01" 4s>>
<<if $day21choice01 eq 1>>The daily schedule sits on the bedside table.<<endif>>\n\n<<if $day21choice01 eq 1>>\n[[read the schedule|day21schedule]]<<endif>><<silently>>\n\n<<set $currentDayBase = 'day21base'>>\n<<if $day21choice01 + $day21LetterChoice eq 0>>\n<<timedgoto "day22wait" .1s>>\n<<endif>><<endsilently>>
Chris,\n\nWe'll work on it when you get home. It's on you to fix this mess, so don't expect much help from me. No one is going to believe me anyway, so it has to come from you.\n\nAnd you know that it's a terrible idea for you to stay there any longer. I'm not paying a cent for you to stay, and God knows you're broke. So just come home. \n\nFix the mess you've made here.\n\n-Ian\n\n\n[[put away|ianReply03_NoReply_Reply_NoReply_Reply_2]]
<<timedgoto "day13start" 3s>>\n\n<<silently>>\n<<set $day13choice01 = 1>>\n<<set $day13LetterChoice = 1>>\n<<set $letterWrittenDate = "August 28, 2007">>\n<<set $currentDayBaseChoice = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>\n
<<timedgoto "day25start" 3s>>\n\n<<silently>>\n<<set $day25choice01 = 1>>\n<<set $day25choice02 = 1>>\n<<set $day25choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<timedgoto $currentDayBase .5s>>\n<<silently>>\n<<set $nextLetterDayChoice = 0>>\n<<set $day20LetterChoice = 0>>\n<<set $day21LetterChoice = 0>>\n<<set $day22LetterChoice = 0>>\n<<set $day23LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day25LetterChoice = 0>>\n<<set $day26LetterChoice = 0>>\n<<set $day27LetterChoice = 0>>\n<<set $day28LetterChoice = 0>>\n<<set $day29LetterChoice = 0>>\n<<set $day30LetterChoice = 0>>\n<<set $day31LetterChoice = 0>>\n<<set $day32LetterChoice = 0>>\n<<set $day33LetterChoice = 0>>\n<<set $day34LetterChoice = 0>>\n<<set $day35LetterChoice = 0>>\n<<set $day36LetterChoice = 0>>\n<<set $day37LetterChoice = 0>>\n<<set $day38LetterChoice = 0>>\n<<set $day39LetterChoice = 0>>\n<<set $day40LetterChoice = 0>>\n<<set $day41LetterChoice = 0>>\n<<set $day42LetterChoice = 0>>\n<<endsilently>>\n
<<timedgoto "day16start" 3s>>\n\n<<silently>>\n<<set $day16choice01 = 1>>\n<<set $day16choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>\n\n
9.4 Tuesday\n\nPatient on full dosage of both SSRI and general anti-anxiety. Side-effects are include over-perspiration and some GI issues, but both should be manageable.\nProgress in therapy is slow. Will increase assignment of writing activities, as patient appears to have difficulty expressing thought and emotional processes verbally.\nAutism-spectrum, perhaps, but high-performing otherwise.\n\nMichael Bailey, MD
Fuck you, Chris. You don't know the kind of fire you're playing with here. You've made life hell for me. It's horrible.\n\nPeople think I'm some kind of monster, because they think I, what, raped you?\n\nGive me a fucking break.\n\nWe've been together for over two years. How is that even a possibility?\n\nJesus. Just, fuck off, Chris. I really can't believe what you've done.\n\n-Ian\n\n\n[[reply|ianNoReply06_Reply_Back]]\n\n[[throw away|ianNoReply06_Reply_Not]]
<<set $nextLetter = 'ianReply03_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Chris,\n\nI'm sorry.\n\n-Idina\n\n\n[[put away|day30base]]\n\n<<set $day30choice02 = 0>>
<<set $nextLetter = 'ianNoReply03_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nYour vitals are looking really shaky lately, and I've heard from some of the nurse techs that you haven't been eating.\n\nYou need to eat. If you continue to refuse to eat, we will have to use a nasogastric feeding tube. We shove that up your nose. It is not comfortable.\n\n-Larissa
Chris,\n\nThat's not what happened.\n\nYou may think that's what happened, but that is not what happened.\n\nYou didn't fight back. YOU DIDN'T FIGHT BACK.\n\nSO //I'M NOT TO BLAME//.\n\nStop trying to make everything that you did out to be some sort of sad little response to something I did to you. Because that's not what happened.\n\nYou were drunk, and you were high, and you decided to go on a little cutting spree. All while I was asleep. You cannot blame me.\n\n[[keep reading|ianNoReply07_Reply2]]
<<if $day40choice01 + $day40choice02 neq 0>><<if $day40choice01 + $day40choice02 eq 2>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day40choice01 + $day40choice02 eq 1>><<if $day40choice01 eq 1>>The daily schedule sits<<endif>><<if $day40choice02 eq 1>>Dr. Bailey's report sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day40choice01 eq 1>>[[read the schedule|day40schedule]]\n\n<<endif>><<if $day40choice02 eq 1>>[[read Dr. Bailey's report|day40docreport]]<<endif>><<silently>>\n<<set $currentDayBase = 'day40base'>>\n\n<<if $day40choice01 + $day40choice02 eq 0>><<timedgoto "day41wait" .1s>><<endif>>\n<<endsilently>>\n\n
BABYLON BEHAVIORAL HOSPITAL\n\nDear Patient:\n\nWelcome to Babylon. We hope that your first day here was as stress-free as we could accommodate.\nThese first few days are going to be difficult and probably uncomfortable, but it's just part of the process of healing. During this time, the team here at Babylon will be working to stabilize your body's vitals so that it is safe for you to begin your treatment in earnest. You have been assigned a personal nurse for the coming weekend to help you through this process. \nAs difficult as the next few days may be, keep in mind that you are safe. No one is here to hurt you. Everyone at Babylon is a medical professional, and we only want the healthiest future for you.\n\n\n[[put away|day02base]]<<silently>>\n<<set $day02choice2 = 0>>\n<<endsilently>>\n\n\n
[day 14]\n\n<<timedgoto "day14base" 4s>>
[day 15]\n\n<<timedgoto "day15base" 4s>>\n\n<<set $day15choice01 = 1>>\n<<set $day15choice02 = 1>>\n<<set $day15choice03 = 1>>
[day 16]\n\n<<timedgoto "day16base" 4s>>
[day 17]\n\n<<timedgoto "day17base" 4s>>
[day 10]\n\n<<timedgoto "day10base" 4s>>\n\n<<set $day10choice1 = 1>>\n<<set $day10choice2 = 1>>\n<<set $day10choice3 = 1>>\n<<set $day10choice4 = 1>>
[day 11]\n\n<<timedgoto "day11base" 4s>>\n\n<<silently>>\n<<set $day11choice1 = 1>>\n<<set $day11choice2 = 1>>\n<<endsilently>>
A folder sits on the bedside table.\n\n\n[[open the folder|day06base1]]\n\n<<silently>>\n<<set $day06choice1 = 1>>\n<<set $day06choice2 = 1>>\n<<endsilently>>
[day 13]\n\n<<timedgoto "day13base" 4s>>\n\n<<set $day13choice1 = 1>>
Zach Sanford
<<if $firstReply eq "y">>Dear Chris,\n\t\n\tIt's Kelly. I didn't know how to address this to you, so I just sort of sent it to the hospital, hopefully they get it to you...\n\tYou need to stop talking to Ian.\n\tHe is out of control.\n\tHe's been drunk, or high, or hanging off someone's arm every time I've seen him. He's in denial, or he's in his own little form of depression. Either way, you NEED TO STOP TALKING TO HIM.\n\tWhat's worse is he's been spreading some bullshit about how you are denying that he did anything to you.\n\tI was there, Chris.\n\tYou were cut up like hell, but I still saw the bruises. You wouldn't even let me look at them.\n\tYou were shaking. You were crying. You were completely out of it but you were legitimately terrified.\n\tOf him.\n\tStop talking to him. What the fuck are you thinking? You are supposed to be getting help, and talking to him is a horrible idea. He is manipulative and he will not back down from his version of the story. He will NEVER admit that he did anything wrong.\n\tSo do yourself a favor and cut all ties with him. I have. I don't even feel safe around him anymore. Not after what he did to you.\n\tI love you, Chris, unconditionally. You are my best friend. And Ian has never been good for you.\n\n\n[[keep reading|KellyLetter2y]]<<endif>><<if $firstReply eq "n">>Dear Chris,\n\nIt's Kelly. I didn't know how to address this to you, so I just sort of sent it to the hospital, hopefully they get it to you...\n\tIan is out of control.\n\tHe's been drunk, or high, or hanging off someone's arm every time I've seen him. He's in denial, or he's in his own little form of depression. Either way, you need to stay the hell away from him.\n\tEven worse, he's been spreading bullshit about how you were lying when you told me what he did.\n\tI was there, Chris.\n\tYou were cut up like hell, but I still saw the bruises. You wouldn't even let me look at them.\n\tYou were shaking. You were crying. You were completely out of it but you were legitimately terrified.\n\tOf him.\n\tIf he's trying to talk to you, don't respond. He is manipulative and he will not back down from his version of the story. He will NEVER admit that he did anything wrong.\n\tSo do yourself a favor and cut all ties with him. I have. I don't even feel safe around him anymore. Not after what he did to you.\n\tI love you, Chris, unconditionally. You are my best friend. And Ian has never been good for you.\n\tI mean, you've changed so much since you two got together.\n\n\n[[keep reading|KellyLetter2n]]<<endif>>\n\n\n\n\n
<<display 'thursdaySchedule'>>\n\n[[put away|day21base]]<<set $day21choice01 = 0>>
[day 18]\n\n<<timedgoto "day18base" 4s>>
[day 19]\n\n<<timedgoto "day19base" 4s>>\n
<<timedgoto $currentDayBase .2s>>
<<set $nextLetter = 'ianNoReply07'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n
06:30 am – Wake-Up\n07:00 am – Weigh-in and Vitals\n07:30 am – 8:00 am – Shower and Daily Prep\n08:15 am – Breakfast\n09:00 am – Group\n10:00 am – Art Therapy\n11:00 am – Physician Check-In\n12:00 pm – Lunch\n01:00 pm – Group\n02:00 pm – Meditation\n03:00 pm – Afternoon Snack\n03:30 pm – Cognitive Behavioral Therapy\n05:00 pm – Work Time\n06:00 pm – Dinner\n07:00 pm – Work Time\n08:30 pm – Evening Snack / Free Time\n09:30 pm – Evening Check-In\n10:00 pm – Doors Locked\n11:00 pm – Lights Out\n
<<display 'sundaySchedule'>>\n\n[[put away|day24base]]<<set $day24choice01 = 0>>
2007.September.01\nSaturday\n\n<<timedgoto "day16" 4s>>
<<set $nextLetter = 'ianReply06_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Pathetic.\n\nEverything about you is pathetic.\n\nI didn't rape you.\n\nStay in fucking Indiana.\n\n-Ian\n\n\n[[reply|ianReply03_NoReply_Reply_NoReply_NoReply_Back]]\n\n[[throw away|ianReply03_NoReply_Reply_NoReply_NoReply_Not]]
9/8/07\n\tInpatient Care: $1200\n9/9/07\n\tInpatient Care: $1200\n9/10/07\n\tInpatient Care: $1200\n9/11/07\n\tInpatient Care: $1200\n9/12/07\n\tInpatient Care: $1200\n9/13/07\n\tInpatient Care: $1200\n9/14/07\n\tInpatient Care: $1200\n\n[[keep reading|day35dischargebill5]]
<<set $nextLetter = 'ianNoReply05_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Chris,\n\nHoly shit.\nYou wrote back.\n\nI really didn't believe it when I saw your handwriting on the envelope.\n\nThe thing is, I didn't open that letter. \nI threw it in the trash.\n\nI can't believe you would wait that long to write back to me. There is something seriously wrong with you. \nI thought about that for a long time after I wrote that last letter. \n\nAnd I'm done with you.\n\nAfter what you told Kelly, and I'm assuming your dad as well?\n\n[[keep reading|ianNoReply06_Reply2]]
9/15/07\n\tInpatient Care: $1200\n9/16/07\n\tInpatient Care: $1200\n9/17/07\n\tInpatient Care: $1200\n9/18/07\n\tInpatient Care: $1200\n9/19/07\n\tInpatient Care: $1200\n9/20/07\n\tPartial Inpatient Care: $800\n\n[[keep reading|day35dischargebill6]]\n
September 5, 2007\n\n<<display $dadLetter>><<set $day22choice04 = 0>>
<<timedgoto "day41start" 3s>>\n\n<<silently>>\n<<set $day41choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
\na { color: #666666 !important }\n\nBODY {background-color:#202020 ; }\n\n\n#passages { border-left: 0; padding-left: 0; }\n.passage {\n margin: 0px;\n\n /* Text formatting */\n color: #B8B8B8 ;\nfont-family:"Palatino Linotype", Palatino, serif;\n\n\t}\n\n#sidebar { display: none; }\n\n#passages { margin-left: 7em; }\n\n#passages {title:none; }\n\n.transition-out { display:none; }\n\n.revision-span-in {\n\topacity: 0;\n}\n.revision-span:not(.revision-span-out) {\n\ttransition: 1s; -webkit-transition: 1s;\n}\n.revision-span-out {\n\tposition:absolute;\n\topacity: 0;\n}
<<set $nextLetter = 'ianNoReply10' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
//Why should you choose Babylon?//\n\n<<if $replay eq "y">>[because you are not safe]<<endif>><<if $replay2 eq "y">>[because you have been ruined]<<endif>><<if $replay3 eq "y">>[because you don't know what else to do]<<endif>><<if $replay4 eq "y">>[because this is who you are now]<<endif>><<if $played neq "y">>[end of page]<<endif>>
God, I can't even write it.\n\nJust write me back, okay?\n\nLove,\nIan\n\n\n[[reply|ianReply04_NoReply_Back]]\n\n[[throw away|ianReply04_NoReply_Not]]\n
<<display 'saturdaySchedule'>>\n\n[[put away|day16base]]<<set $day16choice01 = 0>>
<<set $dadLetter = 'dad03'>>\n\n<<timedgoto $currentDayBase .2s>>
<<set $dadLetter = 'dad02_NoReply'>>\n\n<<timedgoto $currentDayBase .2s>>
<<set $nextLetter = 'ianNoReply06_Reply_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nEverything is set up in your old bedroom. Good job already getting those college applications lined up. Every little step!\n\nI talked to Ron, the guy who runs that grocery store on Knox when I was in there the other day. He's Jack's dad, remember? You and Jack used to be such close friends in elementary school. He's in grad school now, can you believe it? And engaged! \nAnyway, Ron said he's looking for cashiers and he said you should definitely apply. He seemed to remember you.\n\nI'm looking forward to having you back home. See you in a few days!\n\nLove,\nDad\n\n\n[[put away|dad06_Back]]
BABYLON BEHAVIORAL HOSPITAL\nAccounting Department\n\nPatient Name: Perth, C.\n8/25/07:\n\tInpatient Care: $1200\n8/26/07:\n\tInpatient Care: $1200\n8/27/07:\n\tInpatient Care: $1200\n8/28/07:\n\tInpatient Care: $1200\n8/29/07:\n\tInpatient Care: $1200\n8/30/07:\n\tInpatient Care: $1200\n8/31/07:\n\tInpatient Care: $1200\n\n[[keep reading|day15bill2]]<<set $day15choice03 = 0>>\n\n\n
Chris,\n\nI'm not going to lie, I was surprised that you would ask for that much money. But I thought about it, and I cannot think of a better use of it. \nI called the hospital and set up an extra week of treatment, out-of-pocket. It is only for a week because that's all that I could possibly afford, and even then I can't //really// afford it. \nBut I believe you when you promise that you'll make the most of that week. \n\nIt feels like I'm finally seeing you again after a very, very long time. I hate that it had to happen this way, but I am happy to see the "real you" again.\n\nLove,\nDad\n\n\n[[reply|dad05_Back]]\n\n<<set $treatmentExtension = "yes">>\n<<set $docreport = "pos">>\n\n\n
<<if $day17choice01 eq 1>>The daily schedule sits on the bedside table.<<endif>>\n\n\n<<if $day17choice01 eq 1>>[[read the schedule|day17schedule]]<<endif>><<silently>>\n\n<<set $currentDayBase = 'day17base'>>\n<<if $day17choice01 eq 0>>\n<<timedgoto "day18wait" .1s>>\n<<endif>><<endsilently>>
Too little, too late.\n\n-Ian\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]\n
Chris,\n\nI knew there was a reason that you weren't returning any of my calls. I cannot believe that you would not contact me to let me know what happened. Why wouldn't you call and let me know?\nI had to find out from the police. They went to your place and that guy- Ian? He told the police that you'd gone to the hospital. I know we haven't been talking much the past few months, but I shouldn't have had to find out that way. That is completely unacceptable.\nThis whole situation is unacceptable. Why would you do something like this to yourself? You're not stupid, but //this// is beyond stupid. What is wrong with you?\nThe hospital says you aren't taking any calls. Why? Are you afraid to talk to me? Or is it someone else?\n\nYou better find a way to get in contact with me. I'm worried about you. And I'm glad you're safe. I'm only an hour away if you need anything.\n\n-Dad\n\n\n[[reply|dad01_Back]]\n\n[[throw away|dad01_Not]]
<<set $nextLetter = 'ianNoReply05_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nWhat, no response now? Or are you just ignoring me again?\n\nYou are such a pathetic loser. If I cared enough, I'd drive to Babylon myself and fucking...\n\nJust don't write me back.\n\nI'm throwing all of your shit out.\n\n-Ian\n\n\n[[reply|ianNoReply05_Reply_Reply_NoReply_Back]]\n\n[[throw away|ianNoReply05_Reply_Reply_NoReply_Not]]
For all I know you're just sitting in your room trying to cut yourself again because life is //just//. //so//. //hard//.\n\nGrow the fuck up.\n\nAnd, in the meantime, go fuck yourself.\n\nI can't believe I ever loved someone so pathetic.\n\n-Ian\n\nPS: You said your last boyfriend hurt you. I bet he didn't do SHIT to you. You make this shit up to make yourself feel better. You're just a sad little thing that can't take responsibility for yourself. Grow the fuck up.\n\n\n[[reply|ianNoReply06_Reply_Reply_Back]]\n\n[[throw away|ianNoReply06_Reply_Reply_Not]]
//Total 9/8-9/14 : $9400\n\nTotal on Account: $34800\n\nInsurance Coverage: $34800//\n\nTOTAL OWED BY PATIENT: $0.00\n\n\n[[put away|day29base]]
<<timedgoto "day32start" 3s>>\n\n<<silently>>\n<<set $day32choice01 = 1>>\n<<set $day32choice02 = 1>>\n<<set $day32choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<set $nextLetter = 'ianReply05_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Hey Chris,\n\nI know it has to be really rough being back here after so long, but you know what? Big deal. It happens. Get your shit straightened out and head back out there with your head on your shoulders.\nYou won't be able to do that if you keep isolating yourself like you've been doing.\nCut that out, okay? It's not easy, but you aren't doing yourself any favors by keeping to yourself.\n\n-Rick
2007.September.04\nTuesday\n\n<<timedgoto "day19" 4s>>
<<set $day09choice1 = 0>>\n<<set $nextLetter = 'ianReply01'>>\n<<set $firstReply = "y">>\n<<timedgoto "day09base" .5s>>\n
<<timedgoto "day40start" 3s>>\n\n<<silently>>\n<<set $day40choice01 = 1>>\n<<set $day40choice02 = 1>>\n<<set $day40choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
9.7 Friday\n\nPatient refuses medication, citing uncontrollable perspiration and constant tremors. These may not be side-effects of medication, instead I suspect that patient is suppressing traumatic reaction to events of 15 August.\nDo not discontinue self-harm precautions.\n\nMichael Bailey, MD
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
August 21, 2007\n\nDear Chris,\n\nI'm sorry I haven't written in the past couple of days, work has been crazy and I didn't really have anything to say that I haven't already. \nPeople are starting to ask about where you are. I told them you're visiting family there in Indiana. I hope that's okay? I figured you wouldn't want everyone to know what was going on.\n\nPlease write back.\n\nI love you.\n\n-Ian\n\n\n[[read the next letter|day09letter4]]
August 18, 2007\n\nDear Chris,\n\nAnother night alone in the apartment and, well, I woke up again last night. But I can't complain, right? I'm still home, and I know you're going through hell right now. \n\nFocus on yourself right now, okay?\n\nI miss you. Write me back when you can.\n\nLove,\nIan\n\n\n[[read the next letter|day09letter3]]
August 22, 2007\n\nDear Chris,\n\nI've been saving all of your mail, except for the bills and stuff like that (which I'm taking care of the best that I can- have you talked to your boss about that disability thing yet?). Should I mail it to you as a big package or just hold on to it until you're out?\nAre you getting mail now? I'm really looking forward to hearing from you. I really hope you'll be writing be back, despite everything.\n\nTake care of yourself, okay?\n\nLove,\nIan\n\n\n[[reply|day09reply]]\n\n[[throw away|day09discard]]
<<if $day25choice01 + $day25choice02 neq 0>><<if $day25choice01 + $day25choice02 eq 2>>The daily schedule and a note from Idina sit<<endif>><<if $day25choice01 + $day25choice02 eq 1>><<if $day25choice01 eq 1>>The daily schedule sits<<endif>><<if $day25choice02 eq 1>>A note from Idina sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day25choice01 eq 1>>[[read the schedule|day25schedule]]\n\n<<endif>><<if $day25choice02 eq 1>>[[read the note from Idina|day25idina]]<<endif>><<silently>>\n<<set $currentDayBase = 'day25base'>>\n\n\n<<if $day25choice01 + $day25choice02 + $day25LetterChoice eq 0>>\n<<timedgoto "day26wait" .1s>>\n<<endif>><<endsilently>>
You know I called the hospital that Kelly took you to? I just had to ask about the person who came in sliced all to hell. They knew who I was talking about.\n\nThat's what you wanted, isn't it? To be remembered for being this sad little victim bathed in their own blood?\n\nYou are completely hopeless.\n\nDon't write back.\n\n-Ian\n\n\n[[reply|ianNoReply07_Reply_Back]]\n\n[[throw away|ianNoReply07_Reply_Not]]
<<set $nextLetter = 'ianReply04'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<display 'sundaySchedule'>>\n\n[[put away|day10base]]<<set $day10choice1 = 0>>\n\n
<<timedgoto "warning" 2s>>
<<timedgoto "titlescreen1" 3s>>\n
<<if $ianReplyScore gte 3>><<display 'day23rickbad'>><<endif>><<if $ianReplyScore lte 2>><<display 'day23rickgood'>><<endif>>\n\n\n[[put away|day23base]]<<set $day23choice02 = 0>>
Chris,\n\nWhat is with this hot-and-cold business?\nI asked you to make a little effort in getting back to me so you, what, just completely ignore me?\n\nThis isn't like you.\n\nI thought you were better than this.\nWhat are they telling you in that place? What are they doing to you to make you act like this? It's ridiculous.\n\n[[keep reading|ianReply01_NoReply_Reply_NoReply2]]
<<set $nextLetter = 'ianNoReply06' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
September 16, 2007\n\n<<display $dadLetter>>\n\n<<set $day33choice03 = 0>>
2007.August.22\nWednesday\n\n<<timedgoto "day06" 4s>>
<<set $nextLetter = 'ianReply02_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<timedgoto "day07start" 4s>>
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
2007.August.31\nFriday\n\n<<timedgoto "day15" 4s>>
<<timedgoto "start" 5s>>
August 17, 2007\n\nDear Chris,\n\nIt's weird being in this apartment by myself. I woke up at 4 am this morning expecting to hear you coming through the door, knocking shit over before you microwaved one of those awful noodle cups you eat every night when you're like that...\n\nAnd I was kind of... sad. That you weren't here. That you weren't stumbling into the bedroom, the smell of God-knows-what still on you.\n\nI miss you already. But I'm glad that you're getting the help that you need.\n\nLove,\nIan\n\n\n[[read the next letter|day09letter2]]
[day 29]\n\n<<timedgoto "day29base" 4s>>
[day 28]\n\n<<timedgoto "day28base" 4s>>
Chris,\n\nI cannot tell what is going on with you.\nPlease, tell me what is going on.\nLet me know how I can help you.\nDon't leave me out of the loop, you know how that always turns out for you.\n\n-Dad\n\n\n[[reply|dad03NoReply_Back]]\n\n[[throw away|dad03NoReply_Not]]
[day 25]\n\n<<timedgoto "day25base" 4s>>
[day 24]\n\n<<timedgoto "day24base" 4s>>
[day 27]\n\n<<timedgoto "day27base" 4s>>
[day 26]\n\n<<timedgoto "day26base" 4s>>
[day 21]\n\n<<timedgoto "day21base" 4s>>
[day 20]\n\n<<timedgoto "day20base" 4s>>
[day 23]\n\n<<timedgoto "day23base" 4s>>
[day 22]\n\n<<timedgoto "day22base" 4s>>\n\n
<<if $day02choice1 + $day02choice2 eq 2>>A handwritten note and a letter with the Babylon letterhead sit on the bedside table.<<endif>><<if $day02choice1 + $day02choice2 eq 1>><<if $day02choice1 eq 1>>A handwritten not sits on the bedside table.<<endif>><<if $day02choice2 eq 1>>A letter with the Babylon letterhead sits on the bedside table.<<endif>><<endif>>\n\n\n<<if $day02choice1 eq 1>>[[read the note|day02note]]\n\n<<endif>><<if $day02choice2 eq 1>>[[read the BABYLON letter|day02babylonletter]]<<endif>><<silently>>\n\n<<if $day02choice1 + $day02choice2 eq 0>>\n<<timedgoto "day03wait" .1s>>\n<<endif>><<endsilently>>
<<set $nextLetter = 'ianReply02_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianNoReply05_Reply_NoReply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n\n\n
<<set $nextLetter = 'ianReply03_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianReply06'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Everything about you is pathetic.\n\nI didn't fucking rape you.\n\nI fucking loved you.\n\nNot anymore. Not after this.\n\n-Ian\n\n\n[[reply|ianReply04_NoReply_NoReply_Back]]\n\n[[throw away|ianReply04_NoReply_NoReply_Not]]
I don't know.\n\nMaybe you were just really confused that night. You had to have been; I told you it was not a good idea to mix those pills with the amount of tequila you drank. You were really, just, way gone. But you seemed 'with it' enough that you have no reason to make these accusations. You were just having a bad trip, or something. That's all it was.\n\nJust tell me that's all it was. I'll understand, but you'll have to make it right. You can't just go around telling people that I'm some sort of monster.\n\nI deserve more than that.\n\n-Ian\n\n\n[[reply|ianReply01_NoReply_Reply_NoReply_Reply_Back]]\n\n[[throw away|ianReply01_NoReply_Reply_NoReply_Reply_Not]]
Hey Chris,\n\nCan you believe some of the bullshit they're trying to force-feed us again? I mean, COME ON.\nAll of this “you'll struggle every day for the rest of your life” shit. That is really so, SO inspiring.\n“It gets easier, but it never goes away!” No. No, it really never gets easier, not really. It may feel easier, but then it gets really fucking hard and you're never prepared for it. So you slip just once, and then it's a quick slide to rock-bottom all over again.\nWhatever. It's such a fucked up cycle, and I'm sick of it.\n\nSorry if I'm being kind of a downer. It's my fifth time through here, you know? I'm starting to wonder if I'm one of those “chronic” cases. This treatment regimen, in and out of places like this, is it the rest of my life?\n\nHow fucking sad would that be?\n\n-Idina\n\n\n[[put away|day19base]]<<silently>>\n\n<<set $day19choice03 = 0>><<endsilently>>
[[push the green button|day05wait]]\n\n[[do nothing|day05wait]]
2007.August.23\nThursday\n\n<<timedgoto "day07" 4s>>
<<set $nextLetterDayChoice = 0>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $dadLetter = 'dad05'>>\n\n<<timedgoto $currentDayBase .2s>>
Chris,\n\nPlease don't tell me you're worried about coming home. It'll be difficult, but we'll make it through together, okay?\nHere's your bus ticket. It'll be good for the whole day on the 20th, but there are only a few buses running so be sure to get there as soon as you can so you don't miss them all. You can be air-headed like that sometimes.\n\nI'm excited to see you. See you soon!\n\nLove,\nIan\n\n\n[[put away|ianReply04_NoReply_Reply_NoReply_2]]\n
<<timedgoto "day34start" 3s>>\n\n<<silently>>\n<<set $day34choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<timedgoto "day28start" 3s>>\n\n<<silently>>\n<<set $day28choice01 = 1>>\n<<set $day28choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
//Total 8/25-8/31 : $9600\n\nTotal on Account: $9600\n\nInsurance Coverage: $9600//\n\nTOTAL OWED BY PATIENT: $0.00\n\n\n//NOTE://\nPatient's insurance has approved 35 days of inpatient treatment. Further treatment may involve an out-of-pocket expense.\n\n\n[[put away|day08base]]
<<if $dischargechoice01 + $dischargechoice02 neq 0>><<if $dischargechoice01 + $dischargechoice02 eq 2>>A report from Dr. Bailey and a bill from the hospital are inside<<endif>><<if $dischargechoice01 + $dischargechoice02 eq 1>><<if $dischargechoice01 eq 1>>A report from Dr. Bailey is inside<<endif>><<if $dischargechoice02 eq 1>>A bill from the hospital is inside<<endif>><<endif>>, alongside various pieces of paperwork.<<endif>><<if $dischargechoice01 + $dischargechoice02 eq 0>><<timedgoto "end1" .1s>><<endif>>\n\n\n<<if $dischargechoice01 eq 1>>[[read Dr. Bailey's report|day42dischargedocreport]]\n\n<<endif>><<if $dischargechoice02 eq 1>>[[read the bill|day42dischargebill]]<<endif>>\n\n
2007.September.03\nMonday\n\n<<timedgoto "day18" 4s>>
<<set $nextLetter = 'ianReply07'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<timedinsert 1s>>[loading]<<endtimedinsert>>\n\n\n<<timedinsert 3s>>[<<endtimedinsert>><<timedinsert 5s>>l<<endtimedinsert>><<timedinsert 7s>>t<<endtimedinsert>><<timedinsert 9s>>b<<endtimedinsert>><<timedinsert 11s>>]<<endtimedinsert>>\n\n<<timedgoto "start2" 13s>>\n
<<timedgoto "day42start" 3s>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>
9.18 Tuesday\n\nPatient's father has agreed to pay for one further week of treatment, through 27 September. This is still earlier than hoped, but better than the alternative.\nWill have father conference call in for family therapy tomorrow (19 September). Trust issues will need to be addressed.\nStarting a new anti-anxiety med today, will taper to full dosage before patient is discharged.\n\nMichael Bailey, MD
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $dadLetter = 'dad06'>>\n\n<<timedgoto $currentDayBase .2s>>
Letters to Babylon\n
<<silently>>\n<<set $nextLetterDayChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day25LetterChoice = 0>>\n<<set $day26LetterChoice = 0>>\n<<set $day27LetterChoice = 0>>\n<<set $day28LetterChoice = 0>>\n<<set $day29LetterChoice = 0>>\n<<set $day30LetterChoice = 0>>\n<<set $day31LetterChoice = 0>>\n<<set $day32LetterChoice = 0>>\n<<set $day33LetterChoice = 0>>\n<<set $day34LetterChoice = 0>>\n<<set $day35LetterChoice = 0>>\n<<set $day36LetterChoice = 0>>\n<<set $day37LetterChoice = 0>>\n<<set $day38LetterChoice = 0>>\n<<set $day39LetterChoice = 0>>\n<<set $day40LetterChoice = 0>>\n<<set $day41LetterChoice = 0>>\n<<set $day42LetterChoice = 0>>\n<<endsilently>>\n<<timedgoto $currentDayBase .5s>>
<<set $nextLetterDayChoice = 0>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
2007.August.25\nSaturday\n\n<<timedgoto "day09" 4s>>
<<if $day33choice01 + $day33choice02 + $day33choice03 neq 0>><<if $day33choice01 + $day33choice02 + $day33choice03 eq 3>>The daily schedule, Dr. Bailey's report, and a letter from dad sit<<endif>><<if $day33choice01 eq 1 and $day33choice02 + $day33choice03 eq 0>>The daily schedule sits<<endif>><<if $day33choice01 eq 1 and $day33choice02 + $day33choice03 eq 1>><<if $day33choice02 eq 1>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day33choice03 eq 1>>The daily schedule and a letter from dad sit<<endif>><<endif>><<if $day33choice01 eq 0 and $day33choice02 + $day33choice03 eq 2>>Dr. Bailey's report and a letter from dad sit<<endif>><<if $day33choice01 eq 0 and $day33choice02 + $day33choice03 eq 1>><<if $day33choice02 eq 1>>Dr. Bailey's report sits<<endif>><<if $day33choice03 eq 1>>A letter from dad sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day33choice01 eq 1>>[[read the schedule|day33schedule]]\n\n<<endif>><<if $day33choice02 eq 1>>[[read Dr. Bailey's report|day33docreport]]\n\n<<endif>><<if $day33choice03 eq 1>>[[read the letter from dad|day33dadletter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day33base'>>\n\n<<if $day33choice01 + $day33choice02 + $day33choice03 + $day33LetterChoice eq 0>>\n<<timedgoto "day34wait" .1s>>\n<<endif>><<endsilently>>
Chris,\n\nYou better be "busy" getting ready to come home, seeing as I haven't heard from you in nearly a week.\n\nYou better not be ignoring me.\n\nI expect you home on the 20th. Take a cab from the hospital as soon as you get discharged - the ticket should be good for any bus that day.\n\nSee you soon.\n\n-Ian\n\n\n[[put away|ianReply01_NoReply_Reply_NoReply_Reply_Reply_NoReply_2]]\n\n\n
Hey, you!\n\nHow are you holding up? \n\nDon't worry about not recognizing me when you first got here. You were pretty out of it those first few days, so I don't blame you. Hell, I barely remember my first week here. And, hey, don't be discouraged about being back. It's my third time back since we were in here together. I should probably ask about getting a membership or something, huh?\nLet me know if you need anything or just want someone to talk to.\nI'm glad to see a familiar face.\n\nAs messed up as that is.\n\n-Idina\n\n\n[[put away|day11base]]<<set $day11choice2 = 0>>
Chris,\n\nNo response to that? That's what I thought.\n\nDo not write me back.\nDo not call me.\nDo not contact me in any way.\nDo not come back here.\n\nThis is not your home anymore.\n\n-Ian\n\n\n[[reply|ianNoReply06_Reply_Reply_NoReply_Back]]\n\n[[throw away|ianNoReply06_Reply_Reply_NoReply_Not]]
Nevermind.\n\nMaybe you were just really confused that night. You were really out of it, you know. You had no business mixing those pills with the tequila. \n\nIf that's the case, just tell me. I'll understand, but you'll have to make it right. You can't just go around telling people that I'm some sort of monster.\n\nWrite me back this time, alright?\n\n-Ian\n\n\n[[reply|ianReply02_NoReply_Reply_NoReply_Back]]\n\n[[throw away|ianReply02_NoReply_Reply_NoReply_Not]]
<<set $nextLetter = 'ianReply04_NoReply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Dear Chris,\n\nThank you for admitting it. You were wrong, but we can work on it when you get back home. \n\nThey want me to come in for, what did you call it, “group therapy?” What?\nThey know that I live in Kansas City, right? A trip to Indiana isn't exactly something I can swing on random Thursday.\n\nAnd no, I can't do the conference call thing, either. I work during that time. You know that. I can't take off of work, either. Money's kind of tight since you, well, had to get help.\n\n[[keep reading|ianReply01_NoReply_Reply_NoReply_Reply_Reply2]]
8.31 Friday\n\nIncrease SSRI to full dosage over the weekend.\nPatient shared some facts about partner, Ian, that are troubling. Still will not discuss night of 15 August, when incident occurred.\nOverall, progress is encouraging.\n\nMichael Bailey, MD\n\n\n[[put away|day15base]]<<silently>>\n\n<<set $day15choice02 = 0>><<endsilently>>
<<set $nextLetter = 'ianReply05_NoReply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<silently>><<if $letterVisited eq "y">><<set $day27LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day27choice01 + $day27choice02 neq 0>><<if $day27choice01 + $day27choice02 eq 2>> The daily schedule and a note from Larissa sit<<endif>><<if $day27choice01 + $day27choice02 eq 1>><<if $day27choice01 eq 1>>The daily schedule sits<<endif>><<if $day27choice02 eq 1>>A note from Larissa sits<<endif>><<endif>><<if $day27LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day27LetterChoice eq 1 and $day27choice01 + $day27choice02 eq 0>>A letter from Ian sits on the bedside table.<<endif>>\n\n\n<<if $day27choice01 eq 1>>[[read the schedule|day27schedule]]\n\n<<endif>><<if $day27choice02 eq 1>>[[read the note from Larissa|day27larissa]]\n\n<<endif>><<if $day27LetterChoice eq 1>>[[read the letter from Ian|letter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day27base'>>\n<<set $day30LetterChoice = $nextLetterDayChoice>>\n\n<<set $letterArriveDate = "September 14, 2007">>\n\n\n<<if $day27choice01 + $day27choice02 + $day27LetterChoice eq 0>>\n<<timedgoto "day28wait" .1s>>\n<<endif>><<endsilently>>
<<if $ianReplyScore gte 3>><<display 'day27larissabad'>><<endif>><<if $ianReplyScore lte 2>><<display 'day27larissagood'>><<endif>>\n\n\n[[put away|day27base]]<<set $day27choice02 = 0>>\n\n
Chris,\n\nIt's okay, don't apologize. I know you're busy.\nSome weird stuff has been happening back here, though.\nKelly been saying some things about what you said that night that she took you to the hospital, and I don't want to believe her.\nYou were really drunk and out of it, so even if you really did say those things, I don't think you knew what you were saying.\nDid you really tell her that I... hurt you?\n\nMaybe you were remembering wrong.\n\nMaybe you misunderstood what was going on.\n\nIt wasn't like that.\n\n[[keep reading|ianReply02_NoReply_Reply2]]
<<if $day11choice1 + $day11choice2 neq 0>><<if $day11choice1 + $day11choice2 eq 2>>The daily schedule and a note from a fellow patient sit<<endif>><<if $day11choice1 + $day11choice2 eq 1>><<if $day11choice1 eq 1>>The daily schedule sits<<endif>><<if $day11choice2 eq 1>>A note from a fellow patient sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day11choice1 eq 1>>[[read the schedule|day11schedule]]\n\n<<endif>><<if $day11choice2 eq 1>>[[read the note|day11idina]]<<endif>><<silently>>\n\n<<if $day11choice1 + $day11choice2 eq 0>><<timedgoto "day12wait" .1s>><<endif>><<endsilently>>
2007.September.07\nFriday\n\n<<timedgoto "day22" 4s>>
Christ, Chris...\n\nWe'll figure this out when you get back.\n\n-Ian\n\n\n[[reply|ianNoReply04_Reply_Reply_Back]]\n\n[[throw away|ianNoReply04_Reply_Reply_Not]]
<<if $day18choice01 + $day18choice02 neq 0>><<if $day18choice01 + $day18choice02 eq 2>> The daily schedule and a letter from dad sit<<endif>><<if $day18choice01 + $day18choice02 eq 1>><<if $day18choice01 eq 1>>The daily schedule sits<<endif>><<if $day18choice02 eq 1>>A letter from dad sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day18choice01 eq 1>>[[read the schedule|day18schedule]]\n\n<<endif>><<if $day18choice02 eq 1>>[[read the letter from dad|day18dadletter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day18base'>>\n<<if $day18choice01 + $day18choice02 eq 0>><<timedgoto "day19wait" .1s>><<endif>>\n<<endsilently>>\n
<<set $dadLetter = 'dad03NoReply'>>\n<<set $treatmentExtension = "no">>\n<<set $docreport = "neg">>\n<<timedgoto $currentDayBase .2s>>
<<set $nextLetter = 'ianNoReply05' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianReply04_NoReply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
[[all green|day06wait]]
<<silently>><<if $letterVisited eq "y">><<set $day30LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day30choice01 + $day30choice02 neq 0>><<if $day30choice01 + $day30choice02 eq 2>>The daily schedule and a note from Idina sit<<endif>><<if $day30choice01 + $day30choice02 eq 1>><<if $day30choice01 eq 1>>The daily schedule sits<<endif>><<if $day30choice02 eq 1>>A note from Idina sits<<endif>><<endif>><<if $day30LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day30choice01 + $day30choice02 eq 0 and $day30LetterChoice eq 1>>A letter from Ian sits on the bedside table.<<endif>>\n\n\n<<if $day30choice01 eq 1>>[[read the schedule|day30schedule]]\n\n<<endif>><<if $day30choice02 eq 1>>[[read the note from Idina|day30idina]]\n\n<<endif>><<if $day30LetterChoice eq 1>>[[read the letter from Ian|letter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day30base'>>\n<<set $day34LetterChoice = $nextLetterDayChoice>>\n\n<<set $letterArriveDate = "September 18, 2007">>\n\n\n<<if $day30choice01 + $day30choice02 + $day30LetterChoice eq 0>>\n<<timedgoto "day31wait" .1s>>\n<<endif>><<endsilently>>
<<if $ticket eq "yes">>Patient has been written prescriptions for three months, to be filled in Kansas City:<<endif>><<if $ticket eq "no">>Patient does not have a living situation in place, has been given information on several shelters in the area for temporary housing. Prescriptions have been written for patient to fill at any pharmacy:<<endif>>\n\nFluoxetine\nDiazepam \nAlprazolam\n\nFurther outpatient treatment strongly recommended. <<if $ticket eq "yes">>Patient has been provided with a list of providers in Kansas City that specialize in anxiety and depression.<<endif>><<if $ticket eq "no">>Patient has been provided with a list of providers in the area that specialize in anxiety and depression.<<endif>>\n\nPatient strongly advised against any alcohol or non-prescription drug use.\n\nMichael Bailey, MD\n\n\n//a note is attached to the letter//\n\n\n[[read the note|day35dischargedocnote]]<<silently>>\n\n<<set $dischargechoice01 = 0>><<endsilently>>
2007.August.18\nSaturday\n\n<<timedgoto "day02" 4s>>
2007.August.28\nTuesday\n\n<<timedgoto "day12" 4s>>
<<set $nextLetter = 'ianNoReply05'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
8.28 Tuesday\n\nPatient's dose of SSRI and anti-anxiety increased to the next dosage level as of today.\nPatient has attended all required meetings and seems to be participating in a satisfactory capacity.\n\nTreatment progress is encouraging so far.\n\nMichael Bailey, MD\n\n\n[[put away|day12base]]<<silently>>\n\n<<set $day12choice2 = 0>><<endsilently>>
<<set $nextLetterDayChoice = 0>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<display 'wednesdaySchedule'>>\n\n[[put away|day20base]]<<set $day20choice01 = 0>>
Chris,\n\nYou know what? Fuck you. If you're too fucking scared to talk about it, that's on you. You have always been such a coward.\nIt really doesn't surprise me that you'd say those things about me. High and drunk as hell or not, there's no way that you would take responsibility for what you did to yourself.\nYou know I called the hospital here in Kansas City? I didn't even have to tell them your name, I just asked about the person who came in sliced up from head to toe. They remembered you.\nThat's how you want to be remembered, isn't it? Some sad little thing covered in its own blood, saying "no, no, it's not my fault" when you held the fucking razor in your own hand the whole time?\n\n[[keep reading|ianReply03_NoReply_Reply_NoReply_NoReply2]]
//Total 8/17-9/28 : $52300\n\nTotal on Account: $52300\n\nInsurance Coverage: $42000//\n\nTOTAL OWED BY PATIENT: $10,300.00\n\nNOTE: Final payment of $10,300 ensured treatment until 27 September, 2007. Patient is hereby discharged and no further bills will be sent. A final statement will be mailed, but no further payments are required.\n\n\n[[put away|day42discharge]]
BABYLON BEHAVIORAL HOSPITAL\n\n\n<<if $day0choice1 eq "0">>[[What is Babylon?|whatisbabylon]]<<else>><<display 'whatisbabylontext'>><<endif>>\n\n<<if $day0choice2 eq "0">>[[What is Babylon's vision?|babylonsvision]]<<else>><<display 'babylonsvisiontext'>><<endif>>\n\n<<if $day0choice3 eq "0">>[[What are Babylon's values?|babylonsvalues]]<<else>><<display 'babylonsvaluestext'>><<endif>>\n\n<<if $day0choice4 eq "0">>[[Why should you choose Babylon?|whychoosebabylon]]<<else>><<display 'whychoosebabylontext'>><<endif>><<silently>>\n<<if $day0choice1 eq "1" & $day0choice2 eq "1" and $day0choice3 eq "1" and $day0choice4 eq "1">>\n<<if $played neq "y">><<timedgoto "titlescreenwait" 4s>><<endif>>\n<<if $played eq "y">><<timedgoto "day01start" 3s>><<endif>>\n<<endif>><<endsilently>>\n
9/15/07\n\tInpatient Care: $1200\n9/16/07\n\tInpatient Care: $1200\n9/17/07\n\tInpatient Care: $1200\n9/18/07\n\tInpatient Care: $1200\n9/19/07\n\tInpatient Care: $1200\n9/20/07\n\tInpatient Care: $1200\n9/21/07\n\tInpatient Care: $1200\n\n[[keep reading|day42dischargebill6]]
2007.August.24\nFriday\n\n<<timedgoto "day08" 4s>>
Chris,\n\nAll of us are still in shock about Idina. I know that you two were close. We're lucky she's still alive... \n\nIf you need to talk about what she did, or if you have any thoughts of doing that yourself, DO NOT HESITATE to talk to me or any of the other staff. \n\nI'm not saying that because of the state you were in when you came here. I'm saying it because I honestly care about you and it's never easy when someone you care about decides to try to end their life.\n\nDon't forget that.\n\n-Rick
<<set $dadLetter = 'dadNoReply02'>>\n\n<<timedgoto $currentDayBase .2s>>
<<timedgoto "start3" 2s>>
<<if $played neq "y">><<fadeinsound "ltb2.mp3">><<endif>>\n\n\n\n\n\n\n\n[[push|warning]]\n\n<<silently>>\n<<set $day10LetterChoice = 0>>\n<<set $day11LetterChoice = 0>>\n<<set $day12LetterChoice = 0>>\n<<set $day13LetterChoice = 0>>\n<<set $day14LetterChoice = 0>>\n<<set $day15LetterChoice = 0>>\n<<set $day16LetterChoice = 0>>\n<<set $day17LetterChoice = 0>>\n<<set $day18LetterChoice = 0>>\n<<set $day19LetterChoice = 0>>\n<<set $day20LetterChoice = 0>>\n<<set $day21LetterChoice = 0>>\n<<set $day22LetterChoice = 0>>\n<<set $day23LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day25LetterChoice = 0>>\n<<set $day26LetterChoice = 0>>\n<<set $day27LetterChoice = 0>>\n<<set $day28LetterChoice = 0>>\n<<set $day29LetterChoice = 0>>\n<<set $day30LetterChoice = 0>>\n<<set $day31LetterChoice = 0>>\n<<set $day32LetterChoice = 0>>\n<<set $day33LetterChoice = 0>>\n<<set $day34LetterChoice = 0>>\n<<set $day35LetterChoice = 0>>\n<<set $day36LetterChoice = 0>>\n<<set $day37LetterChoice = 0>>\n<<set $day38LetterChoice = 0>>\n<<set $day39LetterChoice = 0>>\n<<set $day40LetterChoice = 0>>\n<<set $day41LetterChoice = 0>>\n<<set $day42LetterChoice = 0>>\n\n\n<<endsilently>><<silently>>\n\n<<set $ticket = "no">>\n<<set $docreport = "pos">>\n<<set $ianReplyScore = 0>>\n<<set $replay = 0>>\n<<endsilently>>
<<set $nextLetter = 'ianNoReply07_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
2007.September.08\nSaturday\n\n<<timedgoto "day23" 4s>>
<<set $nextLetter = 'ianNoReply05_Reply_Reply_NoReply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nAbsolutely not. I will not pay one cent for you to stay in Babylon any longer. You've gotten all the help you could need, and now you've got to start fixing things here on my end.\nI've done all of your damage control for you while you've been gone. Now you have to repay the favor. \n\nAnd us? No, we are not "good" right now. We'll work on it, though, and we can't do that if you are not here with me. \n\nHere is a bus ticket.\n\nCome home. \n\n-Ian\n\n\n[[put away|ianReply01_NoReply_Reply_NoReply_Reply_Reply_Reply_2]]\n\n
<<if $day08choice1 + $day08choice2 + $day08choice3 eq 3>> The daily schedule, a note from the doctor, and a bill from the hospital sit on the bedside table.<<endif>><<if $day08choice1 eq 1 and $day08choice2 + $day08choice3 eq 1>><<if $day08choice2 eq 1>>The daily schedule and a note from the doctor sit on the bedside table.<<endif>><<if $day08choice3 eq 1>>The daily schedule and a bill from the hospital sit on the bedside table.<<endif>><<endif>><<if $day08choice1 eq 1 and $day08choice2 + $day08choice3 eq 0>>The daily schedule sits on the bedside table.<<endif>><<if $day08choice1 eq 0 and $day08choice2 + $day08choice3 eq 2>>A note from the doctor and a bill from the hospital sit on the bedside table.<<endif>><<if $day08choice1 eq 0 and $day08choice2 + $day08choice3 eq 1>><<if $day08choice2 eq 1>>A note from the doctor sits on the bedside table.<<endif>><<if $day08choice3 eq 1>>A bill from the hospital sits on the bedside table.<<endif>><<endif>>\n\n\n<<if $day08choice1 eq 1>>[[read the schedule|day08schedule]]\n\n<<endif>><<if $day08choice2 eq 1>>[[read the note|day08docnote]]\n\n<<endif>><<if $day08choice3 eq 1>> [[read the bill|day08bill]]<<endif>>\n<<if $day08choice1 + $day08choice2 + $day08choice3 eq 0>> <<timedgoto "day09wait" .1s>> <<endif>>
BABYLON BEHAVIORAL HOSPITAL\nAccounting Department\n\nPatient Name: Perth, C.\n9/8/07:\n\tInpatient Care: $1200\n9/9/07:\n\tInpatient Care: $1200\n9/10/07:\n\tInpatient Care: $1200\n9/11/07:\n\tInpatient Care: $1200\n9/12/07:\n\tInpatient Care: $1200\n9/13/07:\n\tInpatient Care: $1200\n9/14/07:\n\tInpatient Care: $1200\n\n[[keep reading|day29bill2]]<<set $day29choice03 = 0>>\n\n
2007.September.02\nSunday\n\n<<timedgoto "day17" 4s>>
Chris,\n\nI was so happy to get your letter today, I literally jumped up and down! I think the neighbors might think I'm a little crazy, but, hey, I'm not the one in the mental ward!\nI say that with love, obviously.\n\nI'm sorry to hear that you're feeling alone there, and I miss you too.\nYou're there for a reason, though, so do what you can to get better and come home, okay? No more of this bullshit, just get yourself together and come home.\n\nWrite back soon!\n\nLove,\nIan\n\n\n[[reply|ianNoReply01_Reply_Back]]\n\n[[throw away|ianNoReply01_Reply_Not]]\n
9.14 Friday\n\nPatient refusing all medication, will not participate in group activities. Assigned a nurse tech to constant supervision of patient, due to increased belligerence and episodes of emotional turbulence.\nPatient claims to have suggested therapy to both partner and father, but doesn't seem to think either will accept.\nPrescribed supplemental anti-depressant and anti-anxiety; doubt that the patient will take it.\nDue to patient's insurance policy, discharge is scheduled, despite all recommendation from medical staff. Patient says that there are no other financial options to fund treatment.\n\nI am genuinely worried about Chris.\n\nMichael Bailey, MD\n
Chris,\n\nWhy haven't you gotten back to me? Are you afraid to talk about what you said to your dad?\nOr is it that you're afraid to talk about what I'm guessing you told Kelly?\n\nBecause she's been a complete bitch to me lately and I think it's because of something that you said when you were hopped up on pills and drunk and bleeding all over the place.\nShe seems to think that I did something to you before you went razor-happy on yourself. You know that's a lie. Maybe you were confused about what happened, since you were pretty out of it, but still. You need to clear this up.\n\nI didn't do anything to you that night that you didn't want me to do. We've been together for over two years, you can't say that I... \n\n[[keep reading|ianReply03_NoReply_Reply_NoReply2]]\n
<<set $nextLetter = 'ianNoReply01_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
\n<<timedgoto "replay5credits" 2s>>\n
<<set $nextLetter = 'ianReply01_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
--Let the player undo moves? (on / off)\n--In Sugarcane, this enables the browser's back button.\n--In Jonah, this lets the player click links in previous\n--passages.\n\nUndo: on\n\n--Let the player use bookmarks? (on / off)\n--This enables the Bookmark links in Jonah and Sugarcane\n--(If the player can't undo, bookmarks are always disabled.)\n\nBookmark: on\n\n--Obfuscate the story's HTML source to prevent possible\n--spoilers? (swap / off)\n\nObfuscate: off\n\n--String of letter pairs to use for swap-style obfuscation\n\nObfuscateKey: aihxjbpfvdnwsyqrkcztlegumo\n\n--Include the jQuery script library? (on / off)\n--Individual scripts may force this on by\n--containing the text 'requires jQuery'.\n\njQuery: off\n\n--Include the Modernizr script library? (on / off)\n--Individual scripts/stylesheets may force this on by\n--containing the text 'requires Modernizr'.\n\nModernizr: off\n
<<set $nextLetter = 'ianNoReply05_Reply_Reply_NoReply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
//What Is Babylon?//\n\nBabylon was founded to offer the best behavioral healthcare services possible, with a focus on both treatment and research. For over a century, Babylon and its staff have provided cutting-edge treatment techniques developed by the world's top psychiatric care professionals. This tradition continues today, with a world-renowned team of psychiatrists, psychologists, physicians, and experts in the fields of addiction treatment and cognitive behavioral therapy.
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|$currentDayBase]]
Chris,\n\nAre you okay?\nYou sounded down in your last letter and I haven't heard from you for a week. Are you sure that they are treating you okay in there?\nSorry if my handwriting is a little shaky, Thomas and the gang took me out because of everything that went down and I'm still recovering, if you know what I mean. Missed you that night.\nWrite back, okay? Just make that little effort. For me.\nMissing you back home.\n\nLove,\nIan\n\nPS: I had to throw out that green blanket. I couldn't get the stains out of it, from when you, you know. We'll get a new one.\n\n\n[[reply|ianReply02_NoReply_Back]]\n\n[[throw away|ianReply02_NoReply_Not]]\n\n
<<set $dadLetter = 'dadNoReply05'>>\n\n<<timedgoto $currentDayBase .2s>>
9/1/07\n\tInpatient Care: $1200\n9/2/07\n\tInpatient Care: $1200\n9/3/07\n\tInpatient Care: $1200\n9/4/07\n\tInpatient Care: $1200\n9/5/07\n\tInpatient Care: $1200\n9/6/07\n\tInpatient Care: $1200\n9/7/07\n\tInpatient Care: $1200\n\n[[keep reading|day42dischargebill4]]
2007.September.26\nWednesday\n\n<<timedgoto "day41" 4s>>
<<silently>>\n<<timedgoto "end2" 3s>>\n<<if $replay4 neq "y">>\n<<if $played neq "y">><<fadeinsound "ltb.mp3">><<endif>>\n<<if $played eq "y">><<fadeinsound "ltb2.mp3">><<endif>>\n<<endif>>\n<<if $replay4 eq "y">>\n<<playsound "ltb.mp3">>\n<<endif>>\n<<endsilently>>
\tI mean, you've changed so much since you two got together.\n\tI never see you anymore. And when I do, he's always been there, basically draped over you like a wet towel.\n\tAnd... this will probably sound weird, and bear with me, but...\n\tYou haven't been YOU.\n\tTake this time to get back in touch with who you are, because I think Ian has stolen that from you.\n\tYou don't have to write back, I know you're doing your thing in there. So do your thing. I'm sure I'll hear from you when you're ready.\n\tBut if I see you with Ian again, I am going to kick your ass.\n\tI may be little, but my foot will //probably// reach that skinny ass of yours.\n\tSo yeah.\n\t...take that!\n\tI miss you, Chris.\n\tPlease, find some peace in there. \n\tI'm gonna stop writing now.\n\tLove you.\n\n-Kelly\n\n\n[[put away|$currentDayBase]]
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
<<if $day09choice2 + $day09choice3 + $day09choice4 neq 0>><<if $day09choice2 + $day09choice3 + $day09choice4 eq 3>>The daily schedule, a letter with the Babylon letterhead, and a note from Larissa sit<<endif>><<if $day09choice2 eq 1 and $day09choice3 + $day09choice4 eq 1>><<if $day09choice3 eq 1>>The daily schedule and a letter with the Babylon letterhead sit<<endif>><<if $day09choice4 eq 1>>The daily schedule and a note from Larissa sit<<endif>><<endif>><<if $day09choice2 eq 1 and $day09choice3 + $day09choice4 eq 0>>The daily schedule sits<<endif>><<if $day09choice2 eq 0 and $day09choice3 + $day09choice4 eq 2>>A letter with the Babylon letterhead and a note from Larissa sit<<endif>><<if $day09choice2 eq 0 and $day09choice3 + $day09choice4 eq 1>><<if $day09choice3 eq 1>>A letter with the Babylon letterhead sits<<endif>><<if $day09choice4 eq 1>>A note from Larissa sits<<endif>><<endif>><<if $day09choice1 eq 1>> next to a stack of letters bound by rubber bands<<endif>> on the bedside table.<<endif>><<if $day09choice2 + $day09choice3 + $day09choice4 eq 0 and $day09choice1 eq 1>>A stack of letters bound by rubber bands sits on the bedside table.<<endif>>\n\n\n<<if $day09choice2 eq 1>>[[read the schedule|day09schedule]]\n\n<<endif>><<if $day09choice3 eq 1>> [[read the BABYLON letter|day09babylonletter]]\n\n<<endif>><<if $day09choice4 eq 1>> [[read the note from Larissa|day09larissanote]]\n\n<<endif>><<if $day09choice1 eq 1>>[[read the letters|day09letters]]\n\n<<endif>>\n\n<<if $day09choice1 + $day09choice2 + $day09choice3 + $day09choice4 eq 0>> <<timedgoto "day10wait" .1s>> <<endif>>
<<if $ianReplyScore gte 2>><<display 'day16rickbad'>><<endif>><<if $ianReplyScore lte 1>><<display 'day16rickgood'>><<endif>>\n\n\n[[put away|day16base]]<<set $day16choice02 = 0>>
Chris,\n\nIn light of Idina's actions and your close relationship with her, as well as your own history of self-harm, your doctor has requested that we put you under an increased self-harm watch.\n\nWe would appreciate your cooperation. It is only for a few more days, anyway.\n\n-Larissa
PS: You really need to talk to Kelly. She's been a complete bitch to me lately and I think it's because of what you said when you were hopped up on pills and drunk and bleeding all over the place.\nTell her it was just a misunderstanding. You know that now. You were too out of it to understand what you were suggesting to her.\n\nWe've been together for over two years, does she not understand that?\n\nIt doesn't...\n\nJust talk to her, okay?\n\n\n[[reply|ianReply06_Back]]\n\n[[throw away|ianReply06_Not]]
Chris,\n\nI think the idea of you moving back home is a good one. It's not what you want, but it seems like the safest and smartest solution. It wouldn't be forever, obviously, but you could get a job. You could even go back to school.\nI know you don't want to move back to Indiana, and that you have Ian back in Kansas City, but from what you've told me... \nIf Ian doesn't understand, maybe that should be a sign to you.\nYou haven't been yourself since he came into your life. It would be a good change. \n\nTalk about it with your doctor.\n\nLove,\nDad\n\n\n[[reply|dad04_Back]]\n\n<<set $docreport = "pos">>
Chris,\n\nYes, I know you are busy, but that sounds like an excuse to me. You're not telling me something and I don't like it.\n\nSo your dad called me the other day, and it was really, really weird. He acted like it was suddenly his business to tell me to stay away from you, like he gives a shit about you now. What was all that about?\nDid you tell him something? Does it have to do with the crap that Kelly's been spreading about me?\n\nSeriously, if I find out that you've been telling people that I did something to hurt you, I'll...\n\n[[keep reading|ianReply01_NoReply_Reply_NoReply_Reply2]]
Chris,\n\nMy name is Michael Bailey. I am your assigned physician for your time here at Babylon. We'll be meeting every weekday, and I'll be providing you with copies of my reports on Tuesdays and Fridays.\nI look forward to working with you.\n\nMichael Bailey, MD\n\n//Dr. Bailey's report is paperclipped to the note.//\n\n\n[[read Dr. Bailey's report|day08docreport]]<<silently>>\n<<set $day08choice2 = 0>>\n<<endsilently>>
2007.September.12\nWednesday\n\n<<timedgoto "day27" 4s>>
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nNo letter from you for a bit, but I figure they're keeping you super-busy this last week. That's okay, I'll see you very soon!\nYour bus ticket is in the envelope, it should be good for the whole day on the 20th, I think there are three or four buses that run that day. \n\nLove,\nIan\n\n\n[[put away|ianReply06_NoReply_2]]\n\n\n
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
BABYLON BEHAVIORAL HOSPITAL\nAccounting Department\n\nPatient Name: Perth, C.\n9/15/07:\n\tInpatient Care: $1200\n9/16/07:\n\tInpatient Care: $1200\n9/17/07:\n\tInpatient Care: $1200\n9/18/07:\n\tInpatient Care: $1200\n9/19/07:\n\tInpatient Care: $1200\n9/20/07:\n\tInpatient Care: $1200\n9/21/07:\n\tInpatient Care: $1200\n\n[[keep reading|day36bill2]]<<set $day36choice03 = 0>>
<<set $dadLetter = 'dad02'>>\n\n<<timedgoto $currentDayBase .2s>>
<<set $nextLetter = 'ianNoReply08' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
2007.September.23\nSunday\n\n<<timedgoto "day38" 4s>>
9.14 Friday\n\nPatient showing renewed signs of improvement, but strongly recommend continued inpatient treatment at this stage.\nWill be discharging patient against my recommendation, but there really is no alternative.\nInsurance company refuses any further authorization.\n\nMichael Bailey, MD
<<set $nextLetter = 'ianReply03_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<display 'saturdaySchedule'>>\n\n[[put away|day37base]]<<set $day37choice01 = 0>>
Do you remember what happened that night? Do you really remember it? \n\nYou were drunk and high as hell. Way more than I was. I'm surprised you didn't pass out on the way up to the apartment.\n\nAnd when I started taking your clothes off, you said "no." But just once. And you didn't fight back after that.\n\nYOU DIDN'T FIGHT BACK.\n\nThen I wake up the next day and there's the green blanket from the bed sitting on the kitchen floor, covered in blood. I didn't know where you were, or what had happened. So I called the cops, I called all of our friends but no one knew. Kelly finally texted me.\n\n"Chris is in the hospital. Don't contact him or me."\n\n[[keep reading|ianToreTicket3]]
<<display 'tuesdaySchedule'>>\n\n[[put away|day12base]]<<set $day12choice1 = 0>>\n
9.18 Tuesday\n\nPatient seems distraught. Terrified, even, despite words to the contrary. Patient refuses, even now, to discuss the events of 15 August. \nPatient continues to refuse medication, and has stopped attending group activities.\nGeneral mood seems despondent, distant, hopeless.\nI STRONGLY oppose patient's discharge.\n\nMichael Bailey, MD
Oh, look who has a backbone now.\n\nWhat was this, some kind of "group therapy" assignment?\nThey're buying your story in there, huh?\nFuck you.\n\nPathetic.\n\n-Ian\n\n\n[[reply|ianNoReply08_Reply_Back]]\n\n[[throw away|ianNoReply08_Reply_Not]]
9/1/07\n\tInpatient Care: $1200\n9/2/07\n\tInpatient Care: $1200\n9/3/07\n\tInpatient Care: $1200\n9/4/07\n\tInpatient Care: $1200\n9/5/07\n\tInpatient Care: $1200\n9/6/07\n\tInpatient Care: $1200\n9/7/07\n\tInpatient Care: $1200\n\n[[keep reading|day35dischargebill4]]
<<set $nextLetter = 'ianReply04_NoReply_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<timedgoto "day24start" 3s>>\n\n<<silently>>\n<<set $day24choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<set $nextLetter = 'ianNoReply05_Reply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
I wish you didn't feel so alone in there. If the doctors aren't actually trying to help you, then just do your time and come home. We can work on all of this together after you get home. You're trying though, right? You have to at least give it a try.\n\nTry for me, okay?\n\nLove,\nIan\n\n\n[[reply|ianReply05_Back]]\n\n[[throw away|ianReply05_Not]]
<<set $nextLetter = 'ianReply05'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $docreport = "neg">>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply02'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianReply05'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply08_Reply_NoReply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
I've even started cleaning up the apartment! Thomas and them have been over a few times so it was kind of a wreck...\nBut there won't be any pizza boxes or beer bottles sitting around when you get home.\nPromise!\n\nLove,\nIan\n\n\n[[reply|ianReply03_NoReply_Reply_Back]]\n\n[[throw away|ianReply03_NoReply_Reply_Not]]
<<timedgoto "day39start" 3s>>\n\n<<silently>>\n<<set $day39choice01 = 1>>\n<<set $day39choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<endsilently>>
BABYLON BEHAVIORAL HOSPITAL\n\n\n\tOn behalf of the entire Babylon staff, congratulations on making through the first step of recovery! Your vitals have stabilized and it is safe for you to begin the next stage of your treatment. Note that if your physician thinks it is necessary, you may be required to make use of a wheelchair for a short period of time.\n\t You will have the day to get settled into your new room and meet your roommate. We also suggest that you meet the other patients you will be spending the next few weeks with.\n\tTomorrow, you will be expected to begin attending group meetings and activities throughout the day. It is important that you attend every scheduled activity in order for your treatment to be as effective as possible. A daily schedule of these meetings and activities will be delivered to your room every morning.\n\tIf you fail to attend any meetings or activities, your assigned physician will be notified. If this is a court-mandated treatment, the representative handling your case will also be notified. Depending on the specific requirements of your court-assigned treatment (if applicable), failure to attend meetings may result in revocation of the privilege of treatment and transfer to a federal prison facility.\n\tDon't let any of this scare you, though! We have the utmost confidence in you. Let any of the staff know of any needs or concerns you might have.\n\n\n[[put away|day06base1]]<<silently>>\n<<set $day06choice2 = 0>>\n<<endsilently>>\n
<<set $nextLetter = 'ianNoReply08'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n
Chris,\n\nYou know what? Fuck you. If you're too fucking scared to talk about it, that's on you. You have always been such a coward.\nIt really doesn't surprise me that you'd say those things about me. High and drunk as hell or not, there's no way that you would take responsibility for what you did to yourself.\nYou know I called the hospital here in Kansas City? I didn't even have to tell them your name, I just asked about the person who came in sliced up from head to toe. They remembered you.\nThat's how you want to be remembered, isn't it? Some sad little thing covered in its own blood, saying "no, no, it's not my fault" when you held the fucking razor in your own hand the whole time?\n\nPathetic.\n\n[[keep reading|ianReply04_NoReply_NoReply2]]
<<if $day15choice01 + $day15choice02 + $day15choice03 neq 0>><<if $day15choice01 + $day15choice02 + $day15choice03 eq 3>>The daily schedule, Dr. Bailey's report, and a bill from the hospital sit<<endif>><<if $day15choice01 eq 1 and $day15choice02 + $day15choice03 eq 1>><<if $day16choice02 eq 1>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day15choice03 eq 1>>The daily schedule and a bill from the hospital sit<<endif>><<endif>><<if $day15choice01 eq 1 and $day15choice02 + $day15choice03 eq 0>>The daily schedule sits<<endif>><<if $day15choice01 eq 0 and $day15choice02 + $day15choice03 eq 2>>Dr. Baile's report and a bill from the hospital sit<<endif>><<if $day15choice01 eq 0 and $day15choice02 + $day15choice03 eq 1>><<if $day15choice02 eq 1>>Dr.Bailey's report sits<<endif>><<if $day15choice03 eq 1>>A bill from the hospital sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day15choice01 eq 1>>[[read the schedule|day15schedule]]\n\n<<endif>><<if $day15choice02 eq 1>>[[read Dr. Bailey's report|day15docreport]]\n\n<<endif>><<if $day15choice03 eq 1>>[[read the bill|day15bill]]<<endif>>\n<<silently>>\n<<set $currentDayBase = 'day15base'>>\n<<if $day15choice01 + $day15choice02 + $day15choice03 + $day15LetterChoice eq 0>>\n<<timedgoto "day16wait" .1s>>\n<<endif>><<endsilently>>
<<set $nextLetter = 'ianNoReply09_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nYou are a monster.\n\nFuck you.\n\nDon't contact me. Ever.\n\nIf I get another letter from you, I am //not// reading it, and I am //not// responding.\n\n-Ian\n\n\n[[reply|ianNoReply05_Endchain]]\n\n[[throw away|ianNoReply05_Endchain]]
BABYLON MEMORIAL HOSPITAL\nAccounting Department\n//FINAL BILL//\n\nPatient Name: Perth, C.\n8/17/07\n\tInpatient Care: $1200\n8/18/07\n\tInpatient Care: $1200\n8/19/07\n\tInpatient Care: $1200\n8/20/07\n\tInpatient Care: $1200\n8/21/07\n\tInpatient Care: $1200\n8/22/07\n\tInpatient Care: $1200\n8/23/07\n\tInpatient Care: $1200\n8/24/07\n\tInpatient Care: $1200\n\n[[keep reading|day35dischargebill2]]<<set $dischargechoice02 = 0>>\n
<<set $nextLetter = 'ianNoReply07_Reply_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<if $day28choice01 + $day28choice02 neq 0>><<if $day28choice01 + $day28choice02 eq 2>>The daily schedule and a letter from dad sit<<endif>><<if $day28choice01 + $day28choice02 eq 1>><<if $day28choice01 eq 1>>The daily schedule sits<<endif>><<if $day28choice02 eq 1>>A letter from dad sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day28choice01 eq 1>>[[read the schedule|day28schedule]]\n\n<<endif>><<if $day28choice02 eq 1>>[[read the letter from dad|day28dadletter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day28base'>>\n\n\n\n<<if $day28choice01 + $day28choice02 + $day28LetterChoice eq 0>>\n<<timedgoto "day29wait" .1s>>\n<<endif>><<endsilently>>
<<silently>><<if $letterVisited eq "y">><<set $day13LetterChoice = $currentDayBaseChoice>><<endif>><<endsilently>><<if $day13choice1 + $day13LetterChoice eq 2>>A letter from Ian sits next to the daily schedule on the bedside table.<<endif>><<if $day13choice1 + $day13LetterChoice eq 1>><<if $day13choice1 eq 1>>The daily schedule sits on the bedside table.<<endif>><<if $day13LetterChoice eq 1>>A letter from Ian sits on the bedside table.<<endif>><<endif>>\n\n\n<<if $day13choice1 eq 1>>[[read the schedule|day13schedule]]\n\n<<endif>><<if $day13LetterChoice eq 1 and $letterVisited eq "n">>[[read the letter from Ian|letter]]<<endif>><<silently>>\n\n<<set $currentDayBase = 'day13base'>>\n<<set $day16LetterChoice = $nextLetterDayChoice>>\n<<set $letterArriveDate = "August 31, 2007">>\n\n\n<<if $day13choice1 + $day13LetterChoice eq 0>>\n<<timedgoto "day14wait" .1s>><<endif>><<endsilently>>
Fuck off, Chris.\n\nYou know I loved you? Really, truly loved you? And you just... you do this to me.\n\nI can't believe you did this to me.\n\nYou are a monster.\n\n-Ian\n\n\n[[reply|ianReply07_Reply_Reply_Back]]\n\n[[throw away|ianReply07_Reply_Reply_Not]]
Chris,\n\nLook at you. You're making some big changes.\n\nAnd that's great.\n\nI'm not going to bore you with a silly letter. Let's just play a few rounds of crazy eights before you head off into the wild.\n\n-Rick\n\n\n[[put away|day38base]]\n\n<<set $day38choice02 = 0>>
Chris,\n\nFuck you.\n\n-Ian\n\n\n[[keep|ianReply04_NoReply_NoReply_NoReply2]]\n\n[[throw away|ianReply04_NoReply_NoReply_NoReply2]]\n\n
Dear Chris,\n\nThank you for admitting it.\n\nYou were wrong, but we can work on it when you get back home. \nThey want me to come in for, what did you call it, “group therapy?” What?\nThey know that I live in Kansas City, right? A trip to Indiana isn't exactly something I can swing on random Thursday.\nAnd no, I can't do the conference call thing, either. I work during that time. You know that. I can't take off of work, either. Money's kind of tight since you, well, had to get help.\nSo no, that won't work. You're the one that needs treatment, not me, right?\n\nOnly a week-and-a-half!\n\n-Ian\n\n\n[[reply|ianReply04_NoReply_Reply_Back]]\n\n[[throw away|ianReply04_NoReply_Reply_Not]]\n\n
<<display 'fridaySchedule'>>\n\n[[put away|day36base]]<<set $day36choice01 = 0>>
9.7 Friday\n\nPatient reporting that over-perspiration in underarms is worsening. Probably the anti-anxiety med; will taper down and watch the situation.\nDiscussion of Ian has progressed, although incrementally. Suggested including Ian in therapy, but patient refused.\nParticipation in group activities is satisfactory; patient seems more comfortable opening up despite clear barriers in verbal communication, the cause of which is still uncertain.\nWill return written assignments to patient with notes as needed.\nSelf-harm precautions have been lifted, but have advised nurse tech staff to remain nearby while patient is in the restroom.\n\nMichael Bailey, MD\n
[last day of treatment]\n\n<<timedgoto "day35base" 4s>>\n\n<<set $dischargechoice01 = 1>>\n<<set $dischargechoice02 = 1>>\n<<set $dischargechoice03 = 1>>\n<<set $dischargechoice04 = 1>>
//What are Babylon's values?//\n\nAbove all, we at Babylon value healing. Healing is our utmost priority, and through our vision of a unified treatment regimen, as well as through the dedication of our passionate and driven staff and board of directors, we aim to provide healing.
<<display 'sundaySchedule'>>\n\n[[put away|day17base]]<<set $day17choice01 = 0>>
<<if $day31choice01 + $day31choice02 neq 0>><<if $day31choice01 + $day31choice02 eq 2>>The daily schedule and a note from Rick sit<<endif>><<if $day31choice01 + $day31choice02 eq 1>><<if $day31choice01 eq 1>>The daily schedule sits<<endif>><<if $day31choice02 eq 1>>A note from Rick sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day31choice01 eq 1>>[[read the schedule|day31schedule]]\n\n<<endif>><<if $day31choice02 eq 1>>[[read the note from Rick|day31rick]]<<endif>><<silently>>\n\n<<set $currentDayBase = 'day31base'>>\n\n<<if $day31choice01 + $day31choice02 eq 0>>\n<<timedgoto "day32wait" .1s>>\n<<endif>><<endsilently>>
<<display 'tuesdaySchedule'>>\n\n[[put away|day19base]]<<set $day19choice01 = 0>>
<<set $day0choice1 = "1">>\n<<timedgoto "Day00Pamphlet" .0001s>>
<<set $nextLetterDayChoice = 0>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<print $letterWrittenDate>>\n\n<<display $nextLetter>><<set $nextLetterDayChoice = 1>><<set $currentDayBaseChoice = 0>><<set $letterVisited = "y">>
Chris,\n\nIt's okay, you don't need to apologize.\nI totally get that you're busy. Just try to make a bit of an effort okay? I'm lonely here by myself, and I get worried when you don't write back right away.\n\nJust some effort, you know?\n\nOh, and I had to throw that away that green blanket, the one you wrapped yourself up in after you... you know. I couldn't get all of the stains out of it. Sorry.\n\n-Ian\n\n\n[[reply|ianReply01_NoReply_Reply_Back]]\n\n[[throw away|ianReply01_NoReply_Reply_Not]]
August 31, 2007\n\n<<display $dadLetter>><<set $day18choice02 = 0>>
Go.\nFuck.\nYourself.\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]\n
Chris,\n\nAll of us are still in shock about Idina. I know that you two were close. We're lucky she's still alive... \n\nIf you need to talk about what she did, or if you have any thoughts of doing that yourself, DO NOT HESITATE to talk to me or any of the other staff. \n\nConsidering the state you came here in and the way you've been acting since you got here, I have to tell you: I am honestly scared about what you might do once you're out of here next week. Don't do anything stupid, okay? So many people, myself included, care about you.\n\nDon't forget that.\n\n-Rick
<<display 'wednesdaySchedule'>>\n\n[[put away|day34base]]<<silently>>\n\n<<set $day34choice01 = 0>><<endsilently>>
<<timedgoto "day29start" 3s>>\n\n<<silently>>\n<<set $day29choice01 = 1>>\n<<set $day29choice02 = 1>>\n<<set $day29choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<if $day29choice01 + $day29choice02 + $day29choice03 neq 0>><<if $day29choice01 + $day29choice02 + $day29choice03 eq 3>>The daily schedule, Dr. Bailey's report, and a bill from the hospital sit<<endif>><<if $day29choice01 eq 1 and $day29choice02 + $day29choice03 eq 1>><<if $day29choice02 eq 1>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day29choice03 eq 1>>The daily schedule and a bill from the hospital sit<<endif>><<endif>><<if $day29choice01 eq 1 and $day29choice02 + $day29choice03 eq 0>>The daily schedule sits<<endif>><<if $day29choice01 eq 0 and $day29choice02 + $day29choice03 eq 2>>Dr. Bailey's report and a bill from the hospital sit<<endif>><<if $day29choice01 eq 0 and $day29choice02 + $day29choice03 eq 1>><<if $day29choice02 eq 1>>Dr. Bailey's report sits<<endif>><<if $day29choice03 eq 1>>A bill from the hospital sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day29choice01 eq 1>>[[read the schedule|day29schedule]]\n\n<<endif>><<if $day29choice02 eq 1>>[[read Dr. Bailey's report|day29docreport]]\n\n<<endif>><<if $day29choice03 eq 1>> [[read the bill|day29bill]]<<endif>><<silently>>\n<<set $currentDayBase = 'day29base'>>\n\n<<if $day29choice01 + $day29choice02 + $day29choice03 + $day29LetterChoice eq 0>>\n<<timedgoto "day30wait" .1s>>\n<<endif>><<endsilently>>\n
I just wish I knew what made you do what you did after that, after I fell asleep.\nIf you know, or if you figure that out, tell me, okay?\nI want to help you through it.\n\nI love you.\n\n-Ian\n\n\n[[reply|ianReply02_NoReply_Reply_Back]]\n\n[[throw away|ianReply02_NoReply_Reply_Not]]
<<timedgoto "day05start" 3s>>\n\n<<if $replay eq "y">>Did he?<<endif>><<if $replay2 eq "y">>He didn't hear.<<endif>><<if $replay3 eq "y">>YOU SAID NO.<<endif>><<if $replay4 eq "y">>No.<<endif>>
<<if $day14choice01 + $day14choice02 + $day14choice03 neq 0>><<if $day14choice01 + $day14choice02 + $day14choice03 eq 3>>The daily schedule, a letter from dad, and a note from Larissa sit<<endif>><<if $day14choice01 eq 1 and $day14choice02 + $day14choice03 eq 1>><<if $day14choice02 eq 1>>The daily schedule and a letter from dad sit<<endif>><<if $day14choice03 eq 1>>The daily schedule and a note from Larissa sit<<endif>><<endif>><<if $day14choice01 eq 1 and $day14choice02 + $day14choice03 eq 0>>The daily schedule sits<<endif>><<if $day14choice01 eq 0 and $day14choice02 + $day14choice03 eq 2>>A letter from dad and a note from Larissa sit<<endif>><<if $day14choice01 eq 0 and $day14choice02 + $day14choice03 eq 1>><<if $day14choice02 eq 1>>A letter from dad sits<<endif>><<if $day14choice03 eq 1>>A note from Larissa sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day14choice01 eq 1>>[[read the schedule|day14schedule]]\n\n<<endif>><<if $day14choice02 eq 1>>[[read the letter from dad|day14dadletter]]\n\n<<endif>><<if $day14choice03 eq 1>>[[read the note from Larissa|day14larissa]]<<endif>><<silently>>\n<<set $currentDayBase = 'day14base'>>\n\n<<if $day14choice01 + $day14choice02 + $day14choice03 eq 0>><<timedgoto "day15wait" .1s>><<endif>><<endsilently>>\n\n\n\n
<<if $ticket eq "no">>Chris,\n\nI don't tend to write patients personal notes, but this is an exception. I am very, very worried about you. Everything about your behavior here suggests that you came from an incredibly unsafe situation, and even if you are going to live at a shelter for the time being, I think that you will be safer than back in Kansas City.\n\nI don't know what happened to you, but I can make a fair guess.\n\nIt is //not// your fault.\n\nWhatever you feel, whatever you are told, it is not your fault.\nYou have my card. You have my phone number. You have my e-mail. Contact me at any time. You're a good kid, Chris. \n\nDon't let whatever happened get the best of you.\n\n-Mike<<endif>><<if $ticket eq "yes">>I don't tend to write patients personal notes, but this is an exception. I am very, very worried about you. Everything about your behavior here suggests that you are returning to an incredibly unsafe situation, and I wish that you weren't bound to that.\n<<if $quitExtension eq "yes">>It is especially disappointing, given that until a day or two ago you seemed set on staying on an extra week. I wish I knew what happened to change your mind.<<endif>>\nI don't know what happened to you, but I can make a fair guess.\n\nIt is //not// your fault.\n\nWhatever you feel, whatever you are told, it is not your fault. You have my card. You have my phone number. You have my e-mail. Contact me at any time.\nYou're a good kid, Chris.\n \nDon't let whatever happened get the best of you.\n\n-Mike<<endif>>\n\n\n[[keep|day35discharge]]\n\n[[throw away|day35discharge]]
[day 38]\n\n<<timedgoto "day38base" 4s>>
[day 39]\n\n<<timedgoto "day39base" 4s>>
[day 36]\n\n<<timedgoto "day36base" 4s>>
[day 37]\n\n<<timedgoto "day37base" 4s>>
[day 34]\n\n<<timedgoto "day34base" 4s>>
[day 35]\n\n<<if $treatmentExtension eq "no">><<timedgoto "day35.2" 4s>><<endif>><<if $treatmentExtension eq "yes">><<timedgoto "day35base" 4s>><<endif>>
Chris,\n\nI've noticed that you haven't been interacting with anyone outside of group. I think you should try to put yourself out there. They're here to get help, just like you.\n\n-Larissa\n
[day 33]\n\n<<timedgoto "day33base" 4s>>
[day 30]\n\n<<timedgoto "day30base" 4s>>
[day 31]\n\n<<timedgoto "day31base" 4s>>
<<set $dadLetter = 'dad04'>>\n<<set $docreport = "pos">>\n<<set $treatmentExtension = "yes">>\n\n<<timedgoto $currentDayBase .2s>>
<<set $nextLetter = 'ianNoReply04_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
//Total 9/1-9/7 : $9400\n\nTotal on Account: $26400\n\nInsurance Coverage: $26400//\n\nTOTAL OWED BY PATIENT: $0.00\n\n\n[[put away|day22base]]
<<silently>><<if $letterVisited eq "y">><<set $day41LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day41choice01 eq 1>>The daily schedule sits<<if $day41LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day41choice01 eq 0 and $day41LetterChoice eq 1>>A letter from Ian sits on the bedside table.<<endif>>\n\n\n<<if $day41choice01 eq 1>>[[read the schedule|day41schedule]]\n\n<<endif>><<if $day41LetterChoice eq 1>>[[read the letter from Ian|letter]]<<endif>>\n\n<<silently>>\n<<set $currentDayBase = 'day41base'>>\n<<set $day50LetterChoice02 = $nextLetterDayChoice>>\n<<set $letterArriveDate = "September 28, 2007">>\n<<if $day41choice01 + $day41LetterChoice eq 0>>\n<<timedgoto "day42wait" .1s>>\n<<endif>><<endsilently>>\n
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
I'm not reading this letter.\n\nI meant it.\n\nDon't try to contact me.\n\n-Ian\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]\n
<<if $docreport eq "neg">><<display 'day19docreportneg'>><<endif>><<if $docreport eq "pos">><<display 'day19docreportpos'>><<endif>>\n\n\n[[put away|day19base]]<<silently>>\n\n<<set $day19choice02 = 0>><<endsilently>>
<<display 'fridaySchedule'>>\n\n[[put away|day29base]]<<set $day29choice01 = 0>>
2007.September.05\nWednesday\n\n<<timedgoto "day20" 4s>>
Get it together and write back to me.\n\n-Ian\n\nPS: Kelly is saying some nasty shit about me and she's making it sound like it came from you. What exactly did you tell her happened that night? Because some of the things she's saying are completely untrue. \nTalk to her.\n\n\n[[reply|ianReply01_NoReply_Reply_NoReply_Back]]\n\n[[throw away|ianReply01_NoReply_Reply_NoReply_Not]]
<<display 'tuesdaySchedule'>>\n\n[[put away|day26base]]<<set $day26choice01 = 0>>
<<set $nextLetter = 'ianNoReply05_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply05_Reply_Reply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n
<<if $docreport eq "pos">><<display 'day26docreportpos'>><<endif>><<if $docreport eq "neg">><<display 'day26docreportneg'>><<endif>>\n\n\n[[put away|day26base]]<<set $day26choice02 = 0>>
<<display 'wednesdaySchedule'>>\n\n[[put away|day41base]]<<set $day41choice01 = 0>>
<<if $docreport eq "pos">><<display 'day22docreportpos'>><<endif>><<if $docreport eq "neg">><<display 'day22docreportneg'>><<endif>>\n\n\n[[put away|day22base]]<<set $day22choice02 = 0>>
<<timedgoto "day22start" 3s>>\n\n<<silently>>\n<<set $day22choice01 = 1>>\n<<set $day22choice02 = 1>>\n<<set $day22choice03 = 1>>\n<<set $day22choice04 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
//Total 8/17 - 9/20: $41,600\n\nTotal on Account: $41,600\n\nInsurance Coverage: $41,600//\n\nTOTAL OWED BY PATIENT: $0.00\n\n\n[[put away|day35discharge]]
<<set $nextLetter = 'ianNoReply08_Reply_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
2007.August.19\nSunday\n<<timedgoto "day03" 4s>>
8/25/07\n\tInpatient Care: $1200\n8/26/07\n\tInpatient Care: $1200\n8/27/07\n\tInpatient Care: $1200\n8/28/07\n\tInpatient Care: $1200\n8/29/07\n\tInpatient Care: $1200\n8/30/07\n\tInpatient Care: $1200\n8/31/07\n\tInpatient Care: $1200\n\n[[keep reading|day35dischargebill3]]
<<set $nextLetter = 'ianReply02_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianReply04_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nOkay, I think I understand, but you could have at least written me back. That's not okay. Why would your doctors think you shouldn't have visitors or get calls? That is weird.\nThings have been kind of weird here, too. Kelly has been spreading some rumors about what happened that night. She says that you said some things when you were really messed up... What is that all about?\nAnd sorry if I seemed really upset in that last letter. I was worried, and this stuff with Kelly is stressing me out. And to top it off, I thought maybe you were ignoring me and spreading this bullshit around. \n\nThat would be fucked up.\n\n-Ian\n\n\n[[reply|ianNoReply04_Reply_Back]]\n\n[[throw away|ianNoReply04_ReplyNot]]
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianReply02'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply06_Reply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<timedgoto "day01start" 3s>>\n<<fadeoutsound "ltb2.mp3">>
\n\n to\n\n<<timedgoto "titlescreen3" 2s>>
\n\n\n\n\n Babylon\n\n<<timedgoto "day01wait" 2s>>
Letters\n\n<<timedgoto "titlescreen2" 2s>>
Hey Chris,\n\nI could tell from the first time I saw you back here that there was something different about you. You didn't even recognize me that first weekend, remember?\n\nI can see a bit of the light that I remember coming back into your eyes, though. It is definitely there. You've still got some spitfire in you, don't you?\n\n-Rick
<<set $nextLetter = 'ianNoReply08_Reply_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Chris,\n\nI thought I raised you right. I tried to make it so that you didn't want for anything... I know it was difficult, moving around all the time, but I thought things were okay. You always seemed happy.\nI just don't understand why you would do something like that to yourself. Did something happen to you? You were never really a 'normal' kid growing up, but it never seemed like there was anything //wrong// with you.\nI've had some issues coming to terms with what you are- but I've always loved you. \n\nYou have always been loved.\n\nPlease write back this time, okay?\n\nLove,\nDad\n\n\n[[reply|dad02_NoReply_Back]]\n\n[[throw away|dad02_NoReply_Not]]
06:30 am – Wake-Up\n07:00 am – Weigh-in and Vitals\n07:30 am – 8:00 am – Shower and Daily Prep\n08:15 am – Breakfast\n09:00 am – Group\n10:00 am – Music Therapy\n11:00 am – Physician Check-In\n12:00 pm – Lunch\n01:00 pm – Group\n02:00 pm – Nutrition \n03:00 pm – Afternoon Snack\n03:30 pm – Cognitive Behavioral Therapy\n05:00 pm – Work Time\n06:00 pm – Dinner\n07:00 pm – Work Time\n08:30 pm – Evening Snack / Free Time\n09:30 pm – Evening Check-In\n10:00 pm – Doors Locked\n11:00 pm – Lights Out\n
<<set $dadLetter = 'dadNoReply03'>>\n\n<<timedgoto $currentDayBase .2s>>
Chris,\n\nWhy haven't you written me back?\nAre you afraid to talk about what you said to Kelly?\nAnd could that have anything to do with why your dad called me the other day and told me to stay away from you?\nFirst of all, since when did he give a shit about you?\nBut more importantly, what is going with you?\nTalk to me. I have a feeling you've made a hell of a mess for me back here, especially if you went around running your mouth, telling people that I did something to you.\nIf we're going to fix this, you're going to have to talk to me.\nI'm pissed off, yes, but you were high and drunk. You probably just misunderstood what was happening. We've been together for two years, it's not like I can really... \n\n[[keep reading|ianReply04_NoReply2]]\n
//What is Babylon's vision?//\n\nBabylon's vision is one of healing through unity. Combining therapy techniques such as CBT, art therapy, physical therapy, psychiatric care, group interaction, and responsible medication, we aim to deliver the most complete and well-rounded treatment possible to provide our patients with the most effective care and rehabilitation.
I waited for you at the bus station all day. I called the hospital over and over and over. I WENT to the hospital and they wouldn't let me in. So I finally called your dad.\n\nYou are moving back to Indiana. And you NEVER TOLD ME?!\nYou are just... \n\nI can't even explain the feeling I had when he told me that. \n\nI could kill you, Chris. I could fucking strangle you. You're lucky they didn't let me in that hospital.\n\nYou are worse than a monster. You are PATHETIC.\n\n[[keep reading|ianToreTicket2]]\n\n
<<silently>><<if $letterVisited eq "y">><<set $day20LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day20choice01 neq 0>><<if $day20choice01 eq 1>>The daily schedule sits<<endif>><<if $day20LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day20choice01 eq 0 and $day20LetterChoice eq 1>>A letter from Ian sits on the bedside table.<<endif>>\n\n\n<<if $day20choice01 eq 1>>[[read the schedule|day20schedule]]\n\n<<endif>><<if $day20LetterChoice eq 1>>[[read the letter from Ian|letter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day20base'>>\n<<set $day23LetterChoice = $nextLetterDayChoice>>\n<<set $letterArriveDate = "September 7, 2007">>\n\n<<if $day20choice01 + $day20LetterChoice eq 0>>\n<<timedgoto "day21wait" .1s>>\n<<endif>><<endsilently>>
2007.September.25\nTuesday\n\n<<timedgoto "day40" 4s>>
<<if $played neq "y">><<timedgoto "credits1" 2s>><<endif>><<if $played eq "y">><<timedgoto "credits6" 2s>><<endif>>
.<<timedinsert 2s>>.<<endtimedinsert>><<timedinsert 4s>>.<<endtimedinsert>>\n\n<<timedgoto "end3" 6s>>
2007.September.06\nThursday\n\n<<timedgoto "day21" 4s>>
<<display 'fridaySchedule'>>\n\n[[put away|day08base]]<<set $day08choice1 = 0>>\n
<<if $docreport eq "pos">><<display 'day33docreportpos'>><<endif>><<if $docreport eq "neg">><<display 'day33docreportneg'>><<endif>>\n\n\n[[put away|day33base]]<<silently>>\n\n<<set $day33choice02 = 0>><<endsilently>>
<<timedgoto "day37start" 3s>>\n\n<<silently>>\n<<set $day37choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<if $treatmentExtension eq "yes">><<if $day35choice01 eq 1>>The daily schedule sits on the bedside table.<<endif>>\n\n\n<<if $day35choice01 eq 1>>[[read the schedule|day35schedule]]<<endif>>\n<<if $day35choice01 + $day35LetterChoice eq 0>>\n<<timedgoto "day36wait" .1s>><<endif>><<endif>><<if $treatmentExtension eq "no">>A folder with "PATIENT DISCHARGE INFORMATION" printed in bold yellow font sits on the bedside table.\n\n\n[[open the folder|day35discharge]]<<endif>><<silently>>\n<<set $currentDayBase = 'day35base'>>\n<<endsilently>>\n\n\n\n\n
[last day of treatment]\n\n<<timedgoto "day42base" 4s>>\n\n<<set $dischargechoice01 = 1>>\n<<set $dischargechoice02 = 1>>\n<<set $dischargechoice03 = 1>>
So no, that won't work. You're the one that needs treatment, not me, right?\n\nOnly a week-and-a-half!\n\n-Ian\n\n\n[[reply|ianReply01_NoReply_Reply_NoReply_Reply_Reply_Back]]\n\n[[throw away|ianReply01_NoReply_Reply_NoReply_Reply_Reply_Not]]\n
<<set $nextLetter = 'ianNoReply04'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Chris,\n\nStop.\n\nJust, stop.\nWe're done.\n\nI can't believe I ever loved you. Think about what you've done to me. Not that you'd care, you've never cared about what happens to other people.\n\nYou are a monster.\n\n-Ian\n\n\n[[reply|ianNoReply05_Reply_Reply_NoReply_Reply_Back]]\n\n[[throw away|ianNoReply05_Reply_Reply_NoReply_Reply_Not]]
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]\n
<<timedgoto "day30start" 3s>>\n\n<<silently>>\n<<set $day30choice01 = 1>>\n<<set $day30choice02 = 1>>\n<<set $day30choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
9.25 Tuesday\n\nPatient leaves 27 September, this Thursday.\nThough progress during the past week has been incredibly encouraging, further inpatient treatment is recommended but not financially feasible.\nSuggested several out-patient treatment centers in Indianapolis for patient to contact.\nFather's home seems the safest place for patient, as the details that patient has shared about Ian have been startling.\nSuggested that patient contact police, but patient seems reluctant.\nPrescriptions for three months of SSRI and anti-anxiety have been provided.\nWill submit a final report before discharge on 27 September.\n\nMichael Bailey, MD\n\n\n[[put away|day40base]]<<silently>>\n\n<<set $day40choice02 = 0>><<endsilently>>
[[push the green button|day05push1]]
<<set $nextLetter = 'ianReply04_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
//NOTE TO ALL PATIENTS: Family visiting time has been cancelled for the day, due to an incident with a patient yesterday evening. We apologize, as we know that family visits are a highlight of the week.\nIn lieu of visiting time, you are encouraged to work on any assignments from the previous week. If you feel affected by or concerned about the incident that took place, or if you feel that you are at any risk for self-harm, please communicate this with any staff immediately.//\n\n<<display 'sundaySchedule'>>\n\n[[put away|day31base]]<<set $day31choice01 = 0>>
//A note has been affixed to the letter//:\n\n"This was addressed to you, but it was sent to the hospital's accounting department. Apologies for the delay in getting it to you."\n\n\n[[read the letter|day32kellyletter2]]<<set $day32choice02 = 0>>
Chris,\n\nI looked up the place you're at, Babylon? They're supposed to be really good at dealing with people with problems like yours. I think you made a good choice in going there.\nI just wish that you'd write me back.\n\n-Dad\n\n\n[[reply|dadNoReply02_Back]]\n\n[[throw away|dadNoReply02_Not]]\n
Chris,\n\nI cannot believe you still won't contact me.\nI don't know what is going on with you, but you need to figure it out.\nYou are nearly 24. \nGet it together.\n\n-Dad\n\n\n[[reply|dadNoReply03_Back]]\n\n[[throw away|dadNoReply03_Not]]\n\n<<set $docreport = "neg">>
Chris,\n\nThis is absurd.\nGET IN CONTACT WITH ME.\n\n-Dad\n\n\n[[throw away|dadNoReply04_Not]]
Chris,\n\nIf you are going back to Kansas City, don't expect to hear from me.\nWhatever grudge you seem to have against me, you can deal with it by yourself or with that guy.\nYou are being incredibly stupid, you know that?\nThe next time I see you, if that ever happens, don't expect a happy welcome.\n\n-Dad\n\n\n[[throw away|dadNoReply05_Not]]\n\n[[keep|dadNoReply05_Not]]
Dear Chris,\n\nThey want me to come in for, what did you call it, “group therapy?” What?\nThey know that I live in Kansas City, right? A trip to Indiana isn't exactly something I can swing on random Thursday.\nAnd no, I can't do the conference call thing, either. I work during that time. You know that. I can't take off of work, either. Money's kind of tight since you, well, had to get help.\nSo no, that won't work. You are the one that needs treatment, not me, right?\nI'm here for you, you know that. But focus on yourself, ok? It sounds like they're trying to distract you.\nOnly a week-and-a-half!\n\nLove,\nIan\n\n[[keep reading|ianReply06_2]]\n\n
Chris,\n\nNo, that is a terrible, terrible idea. You said that you would be gone for five weeks. Your insurance approved five weeks.\nThere is no way that we can pay out of pocket. With you gone and the fact that you refused to apply for any kind of disability pay while you were gone, we are pretty much broke.\nI'm not doing any therapy with you, either. I don't need therapy like you.\nI'm not the one who needed to go to the crazy house, remember?\nJust come home. I even bought you a bus ticket. \n\nI'll keep you safe.\n\nLove,\nIan\n\n\n[[put away|ianReply07_2]]\n\n\n
Dear Chris,\n\nKelly said some things about what you were saying that night that she took you to the hospital, and I don't want to believe her.\nYou were drunk and out of it, so even if you really did say those things, I don't think you knew what you were saying.\nDid you really tell her that I hurt you?\nMaybe you were remembering wrong.\nMaybe you misunderstood what was going on.\nIt wasn't like that.\nI just wish I knew what made you do what you did after that, after I fell asleep.\nIf you know, or if you figure that out, tell me, okay?\nI want to help you through it.\n\nI love you.\n\n-Ian\n\n\n[[reply|ianReply04_Back]]\n\n[[throw away|ianReply04_Not]]
Dear Chris,\n\nYour dad just called me. It was weird. He told me to leave you alone, that he knew what I did.\nHave you been talking to him? What have you been telling him? And why does he suddenly have an interest in your well-being?\nOr does he just have a problem with me? \nI don't know. It was weird.\nMaybe talk to him, or something.\nI cannot wait for you to get home.\nI've even started cleaning up the apartment! Thomas and them have been over a few times so it was kind of a wreck...\nBut there won't be any pizza boxes or beer bottles sitting around when you get home.\nPromise!\nI hope!\n\n[[keep reading|ianReply05_2]]
Dear Chris,\n\nI'm sorry to hear that things aren't going so well so far.\nI really miss you.\nI wish I could visit. Or call. We could talk about what happened that night... Why you did what you did, and without even letting me know where you were afterward. I just don't get it.\nTake care of yourself, okay?\n\nWrite back soon.\n\nLove,\nIan\n\n\n[[reply|ianReply02_Back]]\n\n[[throw away|ianReply02_Not]]
Dear Chris,\n\n\tSorry if my handwriting is a little shaky, I went out with Thomas and them the other night and, well, I need a day to get it back together, you know what I mean?\n\tI really shouldn't have spent as much money as I did, either, but it was a hell of a lot of fun.\n\tI wish you could have been there. It was a crazy, crazy night... and morning.\n\tAnyway, did they ever get you some actual clothes? Should I mail some to you or something?\n\tI don't know how that works. \n\tBy the way, I tried washing that green blanket, but I couldn't the... stains... out of it. I had to throw it out. Please don't be mad, I know it was expensive. But I'm sure we'll find one like it.\n\n\tSorry, I'm a little all over the place, I'm still kind of hazy from the other night.\n\nLove,\nIan\n\n\n[[reply|ianReply03_Back]]\n\n[[throw away|ianReply03_Not]]
Dear Chris,\n\nI got your letter today! I literally did a little dance around the mailbox when I saw your handwriting on the envelope. It was kind of embarrassing. I think our neighbors might think I'm a little crazy.\nI'm glad to hear you're doing okay, though the wheelchair thing sounds like a little much. It's not like you're old and feeble. But I'm not a doctor, so what do I know?\nI've been okay, just worried about you. Work has been insane, but things are starting to quiet down.\nI guess there's a few days delay in getting the letters out of there. Are they screening them or something? Anyway. I know you're busy, so I won't bore you with a super-long letter. \n\nI look forward to hearing back from you soon!\n\nLove,\nIan\n\n\n[[reply|ianLetter01Reply_Back]]\n\n[[throw away|ianLetter01Reply_Not]]<<set $docreport = "neg">>
<<timedgoto "day06start" 6s>>\n<<fadeoutsound "ltb.mp3">>
September 1, 2007\n\n<<display 'KellyLetter'>>
\n\n<<timedinsert 4.9s>>end.<<endinsert>>
<<display 'thursdaySchedule'>>\n\n[[put away|day28base]]<<set $day28choice01 = 0>>
<<if $day19choice01 + $day19choice02 + $day19choice03 neq 0>><<if $day19choice01 + $day19choice02 + $day19choice03 eq 3>>The daily schedule, Dr. Bailey's report, and a note from Idina sit<<endif>><<if $day19choice01 eq 1 and $day19choice02 + $day19choice03 eq 0>>The daily schedule sits<<endif>><<if $day19choice01 eq 1 and $day19choice02 + $day19choice03 eq 1>><<if $day19choice02 eq 1>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day19choice03 eq 1>>The daily schedule and a note from Idina sit<<endif>><<endif>><<if $day19choice01 eq 0 and $day19choice02 + $day19choice03 eq 2>>Dr. Bailey's report and a note from Idina sit<<endif>><<if $day19choice01 eq 0 and $day19choice02 + $day19choice03 eq 1>><<if $day19choice02 eq 1>>Dr. Bailey's report sits<<endif>><<if $day19choice03 eq 1>>A note from Idina sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day19choice01 eq 1>>[[read the schedule|day19schedule]]\n\n<<endif>><<if $day19choice02 eq 1>>[[read Dr. Bailey's report|day19docreport]]\n\n<<endif>><<if $day19choice03 eq 1>>[[read the note from Idina|day19idina]]<<endif>><<silently>>\n\n<<set $currentDayBase = 'day19base'>>\n<<if $day19choice01 + $day19choice02 + $day19choice03 + $day19LetterChoice eq 0>><<timedgoto "day20wait" .1s>><<endif>><<endsilently>>\n\n
Dear Chris,\n\nAre you okay? Like, are you REALLY okay? I guess maybe you're just really busy.\n\nPlease write back as soon as you can, okay?\n\nLove,\nIan\n\n\n[[reply|ianReply01_NoReply_Back]]\n\n[[throw away|ianReply01_NoReply_Not]]
<<set $nextLetterDayChoice = 0>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianNoReply06_Reply_Reply_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<display 'wednesdaySchedule'>>\n\n[[put away|day27base]]<<set $day27choice01 = 0>>
2007.September.09\nSunday\n\n<<timedgoto "day24" 4s>>
Chris,\n\nWould you make up your fucking mind and write me back? Jesus, you're such a piece of shit sometimes.\n\nYour dad called me the other day, and it was really, really weird. He acted like it was suddenly his business to tell me to stay away from you, like he gives a shit about you now. What was all that about?\n\nDid you tell him something? Does it have to do with the crap that Kelly's been spreading about me?\n\nSeriously, if I find out that you've been telling people that I did something to hurt you, I'll...\n\n[[keep reading|ianReply02_NoReply_Reply_NoReply2]]
I can't believe you.\n\nYou are a fucking MONSTER.\n\n-Ian\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]\n\n
<<set $dadLetter = 'dadNoReply05'>>\n<<set $treatmentExtension = "no">>\n<<set $docreport = "neg">>\n\n<<timedgoto $currentDayBase .2s>>
Chris,\n\nI actually read that letter, and it almost looks like someone is trying to grow a backbone.\n\nIt's not a good look on you, Perth. \n\nI guess you think you're better than me now, huh? Now that some shrink inflated your sense of self-worth?\nMaybe you think that because I smoke a little pot now and then, take ex when I go out, that I drink now and then, now that you've got your new friends in AA and NA and whatever else that I'm just trash?\n\nWell guess what? I have my shit together. I may do those things but I don't need to go to a hospital because I can't deal with real life.\n\nYou are such a fucking loser, and so are your new friends.\n\nIf you even have any friends in there.\n\n[[keep reading|ianNoReply06_Reply_Reply2]]
They're talking about keeping me here for another six months because I haven't “shown any signs of marked improvement.”\nSo fucking unfair.\nOf course my insurance is paying for it.\nAnd if I leave, my parents will disown me and I'm out on my own. I can't do that again.\nI don't know what I'm going to do.\n\n-Idina\n\n\n[[put away|day25base]]<<set $day25choice02 = 0>>
<<timedgoto "day18start" 3s>>\n\n<<silently>>\n<<set $day18choice01 = 1>>\n<<set $day18choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>\n\n
God, I can't even write it.\n\nFix this, Chris.\n\n-Ian\n\n\n[[reply|ianReply03_NoReply_Reply_NoReply_Back]]\n\n[[throw away|ianReply03_NoReply_Reply_NoReply_Not]]\n
<<set $nextLetter = 'ianNoReply01_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $docreport = "neg">>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply07_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<if $day07choice1 + $day07choice2 + $day07choice3 neq 0>><<if $day07choice1 + $day07choice2 + $day07choice3 eq 3>>The daily schedule, a note from the nurse, and a letter with the Babylon letterhead sit<<endif>><<if $day07choice1 eq 1 and $day07choice2 + $day07choice3 eq 1>><<if $day07choice2 eq 1>>The daily schedule and a note from the nurse sit<<endif>><<if $day07choice3 eq 1>>The daily schedule and a letter with the Babylon letterhead sit<<endif>><<endif>><<if $day07choice1 eq 1 and $day07choice2 + $day07choice3 eq 0>>The daily schedule sits<<endif>><<if $day07choice1 eq 0 and $day07choice2 + $day07choice3 eq 2>>A note from the nurse and a letter with the Babylon letterhead sit<<endif>><<if $day07choice1 eq 0 and $day07choice2 + $day07choice3 eq 1>><<if $day07choice2 eq 1>>A note from the nurse sits<<endif>><<if $day07choice3 eq 1>>A letter with the Babylon letterhead sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day07choice1 eq 1>>[[read the schedule|day07schedule]]\n\n<<endif>><<if $day07choice2 eq 1>>[[read the nurse's note|day07nursesnote]]\n\n<<endif>><<if $day07choice3 eq 1>>[[read the BABYLON letter|day07babylonletter]]<<endif>>\n\n<<if $day07choice1 + $day07choice2 + $day07choice3 eq 0>>\n<<timedgoto "day08wait" .1s>>\n<<endif>>\n
That's what I thought. No response.\n\nFucking pathetic.\n\n-Ian\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]\n
<<timedgoto "day21start" 3s>>\n\n<<silently>>\n<<set $day21choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<timedgoto "day03start" 3s>>
07:30 am - Wake-Up\n08:00 am – Weigh-in and Vitals\n08:30 am – 9:00 am – Shower and Daily Prep\n09:15 am – Breakfast\n10:00 am – Group\n11:00 am – Visiting Hours Start\n12:00 pm – Lunch\n01:00 pm – Work Time\n03:00 pm – Afternoon Snack\n03:30 pm – Family Social Time\n06:00 pm – Dinner\n07:00 pm – Visiting Hours End\n08:30 pm – Evening Snack / Free Time\n09:30 pm – Evening Check-In\n10:00 pm – Doors Locked\n11:00 pm – Lights Out\n
9.11 Tuesday\n\nPatient continues to refuse medication, despite alternative prescriptions, blaming side effects. \nPatient is withdrawn, barely participates in group activities. \nNurse techs reported a confrontation with a fellow patient from previous treatment. Advised to keep the two separated as much as possible. Will address in further therapy.\nSuggested family therapy with Ian and the patient's father.\n\nMichael Bailey, MD
<<set $nextLetter = 'ianNoReply05_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>\n
<<set $nextLetter = 'ianNoReply07_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
2007.August.16\nThursday\n\n<<timedgoto "Day 00" 3.5s>>\n\n<<silently>>\n<<set $replyscore = 10>>\n<<endsilently>>
September 10, 2007\n\n<<display $dadLetter>><<set $day28choice02 = 0>>
<<if $ianReplyScore gte 2>><<display 'day14larissabad'>><<endif>><<if $ianReplyScore lte 1>><<display 'day14larissagood'>><<endif>>\n\n\n[[put away|day14base]]<<silently>>\n\n<<set $day14choice03 = 0>><<endsilently>>
<<if $day24choice01 eq 1>>The daily schedule sits on the bedside table.<<endif>>\n\n<<if $day24choice01 eq 1>>\n[[read the schedule|day24schedule]]<<endif>><<silently>>\n\n<<if $day24choice01 eq 0>>\n<<set $currentDayBase = 'day24base'>>\n<<timedgoto "day25wait" .1s>>\n<<endif>><<endsilently>>
A pamphlet sits on a coffee table in the hospital's lobby.\n\n\n[[read the pamphlet|Day00Pamphlet]]<<silently>>\n<<set $day0choice1 = "0">>\n<<set $day0choice2 = "0">>\n<<set $day0choice3 = "0">>\n<<set $day0choice4 = "0">>\n<<endsilently>>\n\n
<<timedinsert 2s>>[written, designed, and programmed by]<<endtimedinsert>>\n\n<<timedinsert 6s>>Zach Sanford<<endtimedinsert>>\n\n\n\n<<timedinsert 11s>>[music by]<<endtimedinsert>>\n\n<<timedinsert 15s>>Neutrino Effect<<endtimedinsert>>\n\n<<timedgoto "credits6" 20s>>
BABYLON BEHAVIORAL HOSPITAL\n\nDear Patient:\n\n\tWelcome to Babylon Behavioral Hospital's main treatment ward. You have been informed of the attendance policy for group meetings and activities by now, but it is worth reiterating the importance of going to each and every of these meetings unless instructed otherwise by your physician.\n\tNOTE: IF THIS IS A COURT-MANDATED TREATMENT, LACK OF ATTENDANCE WILL BE REPORTED TO A REPRESENTATIVE OF THE COURT ASSIGNED TO YOUR CASE AND COULD RESULT IN TRANSFER TO A FEDERAL PRISON FACILITY.\n\t\nYou will be allowed to start receiving letters and phone-calls from those individuals listed in your allowed-contact list in two days.\n\n\tAll of us here at Babylon wish you strength for the next few weeks while you are here with us!\n\n\n[[put away|day07base]]<<silently>>\n<<set $day07choice3 = 0>>\n<<endsilently>>
<<set $nextLetter = 'ianNoReply07' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianNoReply08_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
<<display 'mondaySchedule'>>\n\n[[put away|day25base]]<<set $day25choice01 = 0>>
.<<timedinsert 2s>>.<<endtimedinsert>><<timedinsert 4s>>.<<endtimedinsert>>\n\n<<if $played eq "y">><<fadeoutsound "ltb2.mp3">><<endif>>\n\n<<timedgoto "day00start" 6s>>\n\n\n
<<set $nextLetter = 'ianNoReply09' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<display 'thursdaySchedule'>>\n\n[[put away|day07base]]<<silently>>\n<<set $day07choice1 = 0>>\n<<endsilently>>
<<if $docreport eq "pos">><<display 'day29docreportpos'>><<endif>><<if $docreport eq "neg">><<display 'day29docreportneg'>><<endif>>\n\n\n[[put away|day29base]]<<set $day29choice02 = 0>>
2007.September.14\nFriday\n\n<<timedgoto "day29" 4s>>\n
<<if $day22choice01 + $day22choice02 + $day22choice03 neq 0>><<if $day22choice01 + $day22choice02 + $day22choice03 eq 3>>The daily schedule, Dr. Bailey's report, and a bill from the hospital sit<<endif>><<if $day22choice01 eq 1 and $day22choice02 + $day22choice03 eq 0>>The daily schedule sits<<endif>><<if $day22choice01 eq 1 and $day22choice02 + $day22choice03 eq 1>><<if $day22choice02 eq 1>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day22choice03 eq 1>>The daily schedule and a bill from the hospital sit<<endif>><<endif>><<if $day22choice01 eq 0 and $day22choice02 + $day22choice03 eq 2>> Dr. Bailey's report and a bill from the hospital sit<<endif>><<if $day22choice01 eq 0 and $day22choice02 + $day22choice03 eq 1>><<if $day22choice02 eq 1>>Dr. Bailey's report sits<<endif>><<if $day22choice03 eq 1>>A bill from the hospital sits<<endif>><<endif>><<if $day22choice04 eq 1>> next to a letter from dad<<endif>> on the bedside table.<<endif>><<if $day22choice04 eq 1 and $day22choice01 + $day22choice02 + $day22choice03 eq 0>>A letter from dad sits on the bedside table.<<endif>>\n\n\n<<if $day22choice01 eq 1>>[[read the schedule|day22schedule]]\n\n<<endif>><<if $day22choice02 eq 1>>[[read Dr. Bailey's report|day22docreport]]\n\n<<endif>><<if $day22choice03 eq 1>>[[read the bill|day22bill]]\n\n<<endif>><<if $day22choice04 eq 1>>[[read the letter from dad|day22dadletter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day22base'>>\n\n<<if $day22choice01 + $day22choice02 + $day23choice03 + $day22choice04 + $day22LetterChoice eq 0>>\n<<timedgoto "day23wait" .1s>>\n<<endif>><<endsilently>>
<<set $nextLetter = 'ianNoReply07_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianNoReply07_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nIt seems like you're fitting in okay so far. I've noticed that you've been pretty quiet, but I can tell that you are at least trying. \nI also noticed that you haven't been sharing much about what happened to bring you here. Try to put yourself out there a little more.\n\n-Larissa
version.extensions.timedgotoMacro={major:1,minor:2,revision:0};\nmacros["goto"]=macros.timedgoto={timer:null,handler:function(a,b,c,d){function cssTimeUnit(s){if(typeof s=="string"){if(s.slice(-2).toLowerCase()=="ms"){return +(s.slice(0,-2))||0\n}else{if(s.slice(-1).toLowerCase()=="s"){return +(s.slice(0,-1))*1000||0\n}}}throwError(a,s+" isn't a CSS time unit");return 0}var t,d,m,s;\nt=c[c.length-1];d=d.fullArgs();m=0;if(b!="goto"){d=d.slice(0,d.lastIndexOf(t));\nm=cssTimeUnit(t)}d=eval(Wikifier.parse(d));if(d+""&&state&&state.init){if(macros["goto"].timer){clearTimeout(macros["goto"].timer)\n}s=state.history[0].passage.title;macros["goto"].timer=setTimeout(function(){if(state.history[0].passage.title==s){state.display(d,a)\n}},m)}}};
That's how you want to be remembered, isn't it? Some sad little thing covered in its own blood, saying "no, no, it's not my fault" when you held the fucking razor in your own hand the whole time?\n\nPathetic.\n\nEverything about you is pathetic.\n\nI didn't fucking rape you.\n\n-Ian\n\n[[reply|ianReply01_NoReply_Reply_NoReply_Reply_NoReply_Back]]\n\n[[throw away|ianReply01_NoReply_Reply_NoReply_Reply_NoReply_Not]]\n
<<set $nextLetter = 'ianReply04_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianNoReply03'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Chris,\n\nWhat's going on?\nI mentioned your dad, and Kelly's thing and now you're not talking to me? \n\nIs there something that you aren't telling me?\n\n-Ian\n\n\n[[reply|ianReply05_NoReply_Back]]\n\n[[throw away|ianReply05_NoReply_Not]]
Chris,\n\nNothing to say to that? Fine. I'm throwing your shit out.\n\nDon't come back here.\n\nDon't contact me.\n\nDon't even try to.\n\n-Ian\n\n\n[[reply|ianNoReply05_Reply_NoReply_NoReply_Back]]\n\n[[throw away|ianNoReply05_Reply_NoReply_NoReply_Not]]
2007.September.16\nSunday\n\n<<timedgoto "day31" 4s>>
<<set $nextLetter = 'ianReply05_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<display 'saturdaySchedule'>>\n\n[[put away|day23base]]<<set $day23choice01 = 0>>
2007.September.21\nFriday\n\n<<timedgoto "day36" 4s>>
I never see you anymore. And when I do, he's basically draped over you like a wet towel.\n\tAnd... this will probably sound weird, and bear with me, but...\n\tYou haven't been YOU.\n\tTake this time to get back in touch with who you are, because I think Ian has stolen that from you.\n\tYou don't have to write back, I know you're doing your thing in there. So do your thing. I'm sure I'll hear from you when you're ready.\n\tBut if I see you with Ian again, I am going to kick your ass.\n\tI may be little, but my foot will //probably// reach that skinny ass of yours.\n\tSo yeah.\n\t...take that!\n\tI miss you, Chris.\n\tPlease, find some peace in there. \n\tI'm gonna stop writing now.\n\tLove you.\n\n-Kelly\n\n\n[[put away|$currentDayBase]]
[day 12]\n\n<<timedgoto "day12base" 4s>>\n\n<<silently>>\n<<set $day12choice1 = 1>>\n<<set $day12choice2 = 1>>\n<<set $day12choice3 = 1>>\n<<endsilently>>
<<set $nextLetter = 'ianNoReply05_Reply_Reply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply04' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $day0choice4 = "1">>\n<<timedgoto "Day00Pamphlet" .0001s>>
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianReply03'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply05_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|$currentDayBase]]
Chris,\n\nYou have got to be fucking kidding me. One letter and then it's back to radio silence? What are you so scared of?\n\nDID you say those things? Do you actually BELIEVE those things?\n\nYou can't. There's just no way.\n\nThat would be ridiculous. It would be //stupid//.\n\n-Ian\n\n\n[[reply|ianNoReply04_Reply_NoReply_Back]]\n\n[[throw away|ianNoReply04_Reply_NoReply_Not]]
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
Chris,\n\nHave you been getting enough sleep lately? The overnight nurse techs have told me that you are usually up until 2 or 3 in the morning. That's not good- you need to be getting a good amount of sleep.\n\nLack of sleep can increase anxiety and worsen depression. You know this.\n\nTalk to your doctor if you think you might need a sleeping aid.\n\n-Larissa
07:30 am - Wake-Up\n08:00 am – Weigh-in and Vitals\n08:30 am – 9:00 am – Shower and Daily Prep\n09:15 am – Breakfast\n10:00 am – Group\n11:00 am – Visiting Hours Start\n12:00 pm – Lunch\n01:00 pm – Work Time\n03:00 pm – Afternoon Snack\n03:30 pm – Family Social Time\n06:00 pm – Dinner\n07:00 pm – Visiting Hours End\n08:30 pm – Evening Snack / Free Time\n09:30 pm – Evening Check-In\n11:00 pm – Doors Locked\n12:00 am – Lights Out\n
<<display 'thursdaySchedule'>>\n\n[[put away|day14base]]<<silently>>\n<<set $day14choice01 = 0>>\n<<endsilently>>
<<display 'mondaySchedule'>>\n\n[[put away|day39base]]<<set $day39choice01 = 0>>
You know I called the hospital that Kelly took you to? I just had to ask about the person who came in sliced all to hell. They knew who I was talking about.\n\nThat's what you wanted all along, isn't it? To be remembered for being this sad little victim bathed in their own blood?\n\nYou are completely hopeless. I cannot believe that I ever loved you.\n\nDon't write back.\n\n-Ian\n\n\n[[reply|ianNoReply06_Reply_Reply_Reply_Back]]\n\n[[throw away|ianNoReply06_Reply_Reply_Reply_Not]]\n
<<display 'saturdaySchedule'>>\n\n[[put away|day30base]]<<set $day30choice01 = 0>>
BABYLON BEHAVIORAL HOSPITAL\nAccounting Department\n\nPatient Name: Perth, C.\n8/17/07:\n\tInpatient Care: $1200\n8/18/07:\n\tInpatient Care: $1200\n8/19/07:\n\tInpatient Care: $1200\n8/20/07:\n\tInpatient Care: $1200\n8/21/07:\n\tInpatient Care: $1200\n8/22/07:\n\tInpatient Care: $1200\n8/23/07:\n\tInpatient Care: $1200\n8/24/07\n\tInpatient Care: $1200\n\n[[keep reading|day08bill2]]<<silently>><<set $day08choice3 = 0>><<endsilently>>
Chris,\n\nMy name is Larissa. I am a nurse here on the main ward. There are a few things you should know that you might not have been told yet.\n\tBecause you have a history of self-harm, you will not be allowed to use the restroom or shower with the door closed. I will stand outside while you do those things, but I promise that you don't have anything I haven't seen before. This precaution will continue until Dr. Bailey thinks it is safe for you to have the door closed.\n\tWe usually have clothes for new patients to wear, but there is a problem with the on-site laundry facilities so we only have hospital gowns for you. It should only be for a day or two. If you have anyone who can bring you some clothes, they can certainly bring them, they will just have to be searched by me or one of the other staff.\n\n\t-Larissa\n\n\n[[put away|day07base]]<<silently>>\n<<set $day07choice2 = 0>>\n<<endsilently>>
9.20 Thursday\n\nDischarge Letter:\n\nPatient is leaving treatment against all medical and psychiatric advice.\n\nPatient has a very high likelihood of further self-harm.\n\nPatient made very little progress in treatment, reluctant to open up about anything.\n\nIf possible, I would detain patient, but there is no immediate threat to others and threat to patient's self is only conjecture; without a clear idea of what actually happened on 15 August, I cannot appeal to the court for mandatory hospitalization.\n\n[[keep reading|day35dischargedocreport2]]
Chris,\n\nThat's not what happened. You may think that's what happened, but that is not what happened.\n\nYou didn't fight back. YOU DIDN'T FIGHT BACK.\n\nSO //I'M NOT TO BLAME//.\n\nStop trying to make everything that happened to you out to be some sort of sad little response to something I did to you. Because that's not what happened.\n\nYou were drunk, and you were high, and you decided to go on a little cutting spree. All while I was asleep. You cannot blame me.\n\n[[keep reading|ianNoReply06_Reply_Reply_Reply2]]
<<timedgoto "day12start" 3s>>
[[push the green button|day04wait]]\n\n[[do nothing|day04wait]]
<<set $nextLetter = 'ianNoReply08' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Then I wake up the next day, and you're gone, the green blanket from the bed is in the living room covered in blood, and I had no idea what was going on. There was one text on my phone. From Kelly.\n"Chris is in the hospital. Don't contact."\n\nAnd then, poof, you're off to Babylon, in Indiana somewhere, and I can't get ahold of you. Then these rumors start swirling.\n\nI understand what is going on. You can't own up to the fact that you were lying, or so fucked up that you didn't even understand what was going on. Or are you just scared?\n\nWhatever it is, it's ruining me, Chris. It's ruining my name and my reputation.\n\nYou better fix this.\n\n-Ian\n\n\n[[reply|ianNoReply05_Reply_NoReply_Back]]\n\n[[throw away|ianNoReply05_Reply_NoReply_Not]]
2007.August.26\nSunday\n\n<<timedgoto "day10" 4s>>
<<set $dadLetter = 'dad02_NoReply'>>\n\n<<timedgoto $currentDayBase .2s>>\n\n
Hi, Chris! My name is Carly. I'm going to be your nurse for the next few days. If you need anything, just push the green button on the little remote.\nI'm here for you!\n\n-Carly\n\nPS: Try not to pull your IV out. It hurts like heck to put back in.\n\n\n[[put away|day02base]]<<silently>>\n<<set $day02choice1 = 0>>\n<<endsilently>>
9.21 Friday\n\nAs patient enters this final week of treatment, have increased number of assignments and meetings with therapists and myself.\nPatient's father insists on patient moving in with him upon discharge - patient seems to be warming to the idea.\n\nNo change in medication.\n\nMichael Bailey, MD\n\n\n[[put away|day36base]]<<silently>>\n\n<<set $day36choice02 = 0>><<endsilently>>\n\n
<<timedgoto $currentDayBase .2s>>
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
<<set $nextLetter = 'ianReply03'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $docreport = "neg">>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianReply01_NoReply_Reply' >>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $nextLetter = 'ianNoReply06_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>\n
\n\n[ [[all \n\n<<timedinsert 2s>> green<<endtimedinsert>>|prestart]] <<timedinsert 2s>>]<<endtimedinsert>>\n\n\n\n\n
<<timedgoto "end1" 3s>>
<<timedgoto "day08start" 4s>>
<<timedinsert 2s>>by [bracket]<<endtimedinsert>>\n\n<<timedgoto "credits3" 7s>>
Chris,\n\nI don't know why the fuck I'm even bothering. Maybe some part of me thinks we can work this out, that maybe you'll be able to fix the shitshow you've made back here. But here's a bus ticket back home.\n\nI don't want to see you, so don't expect to be welcomed into the apartment. Find somewhere else to stay.\n\n-Ian\n\n\n[[put away|ianReply04_NoReply_NoReply_Reply_2]]
<<set $nextLetter = 'ianReply02_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n\n\n
Letters to Babylon\n\n<<timedgoto "credits2" 5s>>
<<if $replay4 neq "y">><<timedgoto "credits7" 5s>><<endif>>\n<<silently>>\n\n<<if $replay4 eq "y">><<timedgoto "replay5creditspre" 5s>><<endif>>\n<<endsilently>>\n\n\n\n
<<if $replay4 eq "y">><<timedgoto "replay5creditspre" .01s>><<endif>>\n\n<<if $replay3 eq "y">><<set $replay4 = "y">><<set $replay = 0>><<set $replay2 = 0>><<set $replay3 = 0>><<timedgoto "credits8" .1s>><<endif>>\n\n<<if $replay2 eq "y">><<set $replay3 = "y">><<set $replay = 0>><<set $replay2 = 0>><<timedgoto "credits8" .1s>><<endif>>\n\n<<if $replay eq "y">><<set $replay2 = "y">><<set $replay = 0>><<timedgoto "credits8" .1s>><<endif>>\n\n<<if $played neq "y">><<set $played = "y">><<set $replay = "y">><<timedgoto "credits8" .1s>><<endif>>\n\n
[day 09]\n\n<<timedgoto "day09base" 4s>>\n\n<<silently>>\n<<set $day09choice1 = 1>>\n<<set $day09choice2 = 1>>\n<<set $day09choice3 = 1>>\n<<set $day09choice4 = 1>>\n<<endsilently>>
[day 08]\n\n<<timedgoto "day08base" 4s>>\n\n<<set $day08choice1 = 1>>\n\n<<set $day08choice2 = 1>>\n\n<<set $day08choice3 = 1>>\n
[day 03]\n\n<<timedgoto "day03base" 4s>>
[day 02]\n\n<<timedgoto "day02base" 4s>>\n\n<<silently>>\n<<set $day02choice1 = 1>>\n<<set $day02choice2 = 1>>\n<<endsilently>>
[day 01]\n\n<<timedgoto "day01base" 4s>>
[day 07]\n\n<<timedgoto "day07base" 4s>>\n\n<<silently>>\n\n<<set $day07choice1 = 1>>\n<<set $day07choice2 = 1>>\n<<set $day07choice3 = 1>>\n\n<<endsilently>>
[day 06]\n\n<<timedgoto "day06base" 4s>>
[day 05]\n\n<<timedgoto "day05base" 4s>>
[day 04]\n\n<<timedgoto "day04base" 4s>>
<<if $ianReplyScore gte 5>><<display 'day31rickbad'>><<endif>><<if $ianReplyScore lte 4>><<display 'day31rickgood'>><<endif>>\n\n\n[[put away|day31base]]<<set $day31choice02 = 0>>
2007.August.29\nWednesday\n\n<<timedgoto "day13" 4s>>
24 August 2007\n\nPatient's vitals are stabilized, though keeping in wheelchair through the coming weekend as a precautionary measure. Is probably safe to remove the majority of bandages from patient's arms.\n\nPatient seems nervous and withdrawn; expected, but will monitor progress. Attending all meetings so far.\n\nBeginning doses of SSRI and anti-anxiety, will increase to full dosage over the next week.\n\nMichael Bailey, MD\n\n\n[[put away|day08base]]\n\n
<<set $nextLetter = 'ianReply06'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
You have more to say. You have more to explain, and you have a HELL of a lot more to answer for, Chris.\n\nI don't think you're actually sorry. Not yet, anyway.\n\nGive me a reason to think that you are actually sorry.\n\nCome on.\n\n-Ian\n\n\n[[reply|ianNoReply05_Reply_Back]]\n\n[[throw away|ianNoReply05_Reply_Not]]\n
BABYLON BEHAVIORAL HOSPITAL\n\nWelcome!\n\nWe know this is a scary time. This probably seems like a scary place! A strange room, a strange bed, and a whole lot of strangers taking care of you.\nBut you are safe. We are professionals who are only here to help you.\nThese first few days are going to be difficult. And we will be here for you every step of the way.\n\nYou are not alone.\n\n\n[[put away|day02wait]]
<<display 'sundaySchedule'>>\n\n[[put away|day38base]]<<set $day38choice01 = 0>>
2007.September.19\nWednesday\n\n<<timedgoto "day34" 4s>>
<<display 'thursdaySchedule'>>\n\n[[put away|day35base]]<<set $day35choice01 = 0>>
[day 42]\n\n<<timedgoto "day42.2" 4s>>
Chris,\n\nHere's your bus ticket, be sure to go to the bus station right as soon as you are discharged, okay? There are only a few buses that run and you don't want to miss all of them.\nDespite everything, I'm really excited to see you. I've missed you so much.\n\nWe'll figure everything else out when you get home.\n\nLove,\nIan\n\n\n[[put away|ianReply04_NoReply_Reply_Reply_2]]\n\n
Chris,\n\nWe were all shocked by Idina's actions, but don't let what she did stall your treatment. You have obviously been affected by it, but use this as an opportunity to explore any thoughts of self-harm that you may be experiencing both in group and with your doctor.\n\nIf you feel the need to talk about Idina, or anything else, do not hesitate to come to me or any of the other staff.\n\n-Larissa
BABYLON BEHAVIORAL HOSPITAL\nAccounting Department\n\nPatient Name: Perth, C.\n9/1/07:\n\tInpatient Care: $1200\n9/2/07:\n\tInpatient Care: $1200\n9/3/07:\n\tInpatient Care: $1200\n9/4/07:\n\tInpatient Care: $1200\n9/5/07:\n\tInpatient Care: $1200\n9/6/07:\n\tInpatient Care: $1200\n9/7/07:\n\tInpatient Care: $1200\n\n[[keep reading|day22bill2]]<<set $day22choice03 = 0>>\n
Chris,\n\nNo.\nJust stop.\n\nWe'll talk when you get home.\n\n-Chris\n\n\n[[put away|ianReply01_NoReply_Reply_NoReply_Reply_NoReply_Reply_2]]
//Total 8/25-8/31 : $9400\n\nTotal on Account: $18000\n\nInsurance Coverage: $18000//\n\nTOTAL OWED BY PATIENT: $0.00\n\n\n[[put away|day15base]]
<<timedgoto "day04start" 3s>>\n\n<<if $replay eq "y">>He did this to you.<<endif>><<if $replay2 eq "y">>He wouldn't listen.<<endif>><<if $replay3 eq "y">>You said no.<<endif>><<if $replay4 eq "y">>Maybe he's right.<<endif>>
<<timedgoto "day09start" 3s>>
<<set $nextLetter = 'ianReply03_NoReply_Reply_NoReply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Hey Chris,\n\nIt's Rick, the nurse tech. I noticed you were sitting by yourself during visiting hours yesterday. It's okay if no one comes to visit on the weekend, but your doc would probably prefer that you work on something during that time.\nSo I think it'd be really cool if we worked together during that time today.\nI've left your assignment with this note. \n\nI expect to see you at 11 am sharp, okay? \n\n-Rick\n\n//a deck of cards is wrapped up inside//\n\n\n[[put away|day10base]]<<silently>><<set $day10choice2 = 0>><<endsilently>>
Dear Chris,\n\nThat's okay, I understand that they are keeping you busy in there. No need to apologize. Just write me something, //anything//, next time, okay?\nYour dad called me. It was weird. He told me to leave you alone, that he knew what I did.\nHave you been talking to him? What have you been telling him? And why does he suddenly have an interest in your well-being?\n\nOr does he just have a problem with me? \n\nI don't know. It was weird. Maybe talk to him, or something.\nI cannot wait for you to get home.\n\n[[keep reading|ianReply03_NoReply_Reply2]]\n
<<set $nextLetterDayChoice = 0>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<silently>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day25LetterChoice = 0>>\n<<set $day26LetterChoice = 0>>\n<<set $day27LetterChoice = 0>>\n<<set $day28LetterChoice = 0>>\n<<set $day29LetterChoice = 0>>\n<<set $day30LetterChoice = 0>>\n<<set $day31LetterChoice = 0>>\n<<set $day32LetterChoice = 0>>\n<<set $day33LetterChoice = 0>>\n<<set $day34LetterChoice = 0>>\n<<set $day35LetterChoice = 0>>\n<<set $day36LetterChoice = 0>>\n<<set $day37LetterChoice = 0>>\n<<set $day38LetterChoice = 0>>\n<<set $day39LetterChoice = 0>>\n<<set $day40LetterChoice = 0>>\n<<set $day41LetterChoice = 0>>\n<<set $day42LetterChoice = 0>>\n<<endsilently>>\n
<<if $day12choice1 + $day12choice2 neq 0>><<if $day12choice1 + $day12choice2 eq 2>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day12choice1 + $day12choice2 eq 1>><<if $day12choice1 eq 1>>The daily schedule sits<<endif>><<if $day12choice2 eq 1>>Dr. Bailey's report sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day12choice1 eq 1>>[[read the schedule|day12schedule]]\n\n<<endif>><<if $day12choice2 eq 1>>[[read Dr. Bailey's report|day12docreport]]<<endif>><<silently>>\n\n<<if $day12choice1 + $day12choice2 eq 0>><<timedgoto "day13wait" .1s>><<endif>><<endsilently>>\n\n\n
<<set $day09choice1 = 0>>\n<<set $nextLetter = 'ianNoReply01'>>\n<<set $firstReply = "n">>\n<<timedgoto "day09base" .5s>>\n
<<set $nextLetter = 'ianReply04'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
2007.September.10\nMonday\n\n<<timedgoto "day25" 4s>>
Chris,\n\nI was so happy to get your letter today, I literally jumped up and down! I think the neighbors might think I'm a little crazy, but, hey, I'm not the one in the mental ward! \n\nI'm sorry to hear that you're feeling alone there, and I miss you too.\nSorry if my handwriting is a little shaky, by the way... Thomas and the gang took me out a couple days ago and I'm still recovering, if you know what I mean. It was a wild night, you were missed.\nAs for taking so long to respond... it's okay, just put in a little more effort, okay? For me? You're not the only one who's going through this, you know.\n\nWrite back soon!\n\nLove,\nIan\n\n\n[[reply|ianNoReply03_Reply_Back]]\n\n[[throw away|ianNoReply03_Reply_Not]]\n
<<timedgoto "day33start" 3s>>\n\n<<silently>>\n<<set $day33choice01 = 1>>\n<<set $day33choice02 = 1>>\n<<set $day33choice03 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<set $nextLetter = 'ianNoReply04_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<if $day10choice1 + $day10choice2 neq 0>><<if $day10choice1 + $day10choice2 eq 2>>The daily schedule and a note from a nurse tech sit<<endif>><<if $day10choice1 + $day10choice2 eq 1>><<if $day10choice1 eq 1>>The daily schedule sits<<endif>><<if $day10choice2 eq 1>>A note from a nurse tech sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day10choice1 eq 1>>[[read the schedule|day10schedule]]\n\n<<endif>><<if $day10choice2 eq 1>>[[read the note|day10note]]<<endif>><<silently>>\n\n<<if $day10choice1 + $day10choice2 eq 0>><<timedgoto "day11wait" .1s>><<endif>><<endsilently>>\n
Chris,\n\nYour shit is on the curb.\nIt's raining.\n\nDon't come back home.\n\n-Ian\n\n\n[[reply|ianNoReply07_Reply_NoReply_Back]]\n\n[[throw away|ianNoReply07_Reply_NoReply_Not]]
<<display 'fridaySchedule'>>\n\n[[put away|day15base]]<<silently>>\n<<set $day15choice01 = 0>>\n<<endsilently>>
<<set $dadLetter = 'dad03NoReply'>>\n\n<<timedgoto $currentDayBase .2s>>
<<timedgoto "day38start" 3s>>\n\n<<silently>>\n<<set $day38choice01 = 1>>\n<<set $day38choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<display 'saturdaySchedule'>>\n\n[[put away|day09base]]<<silently>>\n<<set $day09choice2 = 0>>\n<<endsilently>>
27.September\n//Discharge Letter//\n\nPatient CHRIS PERTH discharged 27 September, 2007, against physician's recommendation, into the care of patient's father.\n\nPrescriptions:\n\nFluoxetine\nDiazepam\n\nFurther out-patient psychiatric therapy strongly recommended. Patient has been provided with a list of recommended therapists in Indianapolis. \n\nPatient presents a probable risk of further self-harm, given the severity of injuries upon admission. Patient is strongly advised against alcohol use, as well as any use of non-prescribed medications.\n\nMichael Bailey, MD\n\n\n[[put away|day42discharge]]<<silently>>\n\n<<set $dischargechoice01 = 0>><<endsilently>>
<<set $dadLetter = 'dad04'>>\n\n<<timedgoto $currentDayBase .2s>>\n\n<<set $treatmentExtension = "yes">>\n<<set $docreport = "pos">>
Chris,\nAnother patient informed me that you were watching a television show in the common room that dealt with sexual assault. I know that you didn't mean anything by it, but those types of shows are off-limits here. Don't feel bad about it, but a lot of our patients have histories of sexual abuse, so those shows can be a trigger for them.\nJust be a little more mindful.\n\n-Larissa\n\n\n[[put away|day09base]]<<set $day09choice4 = 0>>\n\n
Chris,\n\nBack to this game, then?\nFine.\nYou want to know what really happened that night?\n\nYou were a HELL of a lot drunker than I was. And high on xanax. You were gone. Way gone.\n\nI doubt you even remember it.\n\nWhen we got home, I started taking your clothes off. You said "no."\n\nBut there's no way you meant it. We've been together for two years. That isn't how it works.\n\nYou don't get to say "no" to me.\n\nAnd after that, you didn't fight. Not really.\n\n[[keep reading|ianNoReply05_Reply_NoReply2]]\n
<<timedgoto "day27start" 3s>>\n\n<<silently>>\n<<set $day27choice01 = 1>>\n<<set $day27choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
A letter with the Babylon letterhead sits on the bedside table.\n\n\n[[read the BABYLON letter|day01pamphlet]]
<<if $day32choice01 + $day32choice02 + $day32choice03 neq 0>><<if $day32choice01 + $day32choice02 + $day32choice03 eq 3>>The daily schedule, a letter addressed in unfamiliar handwriting, and a note from Larissa sit<<endif>><<if $day32choice01 eq 1 and $day32choice02 + $day32choice03 eq 0>>The daily schedule sits<<endif>><<if $day32choice01 eq 1 and $day32choice02 + $day32choice03 eq 1>><<if $day32choice02 eq 1>>The daily schedule and a letter addressed in unfamiliar handwriting sit<<endif>><<if $day32choice03 eq 1>>The daily schedule and a note from Larissa sit<<endif>><<endif>><<if $day32choice01 eq 0 and $day32choice02 + $day32choice03 eq 2>>A letter addressed in unfamiliar handwriting and a note from Larissa sit<<endif>><<if $day32choice01 eq 0 and $day32choice02 + $day32choice03 eq 1>><<if $day32choice02 eq 1>>A letter addressed in unfamiliar handwriting sits<<endif>><<if $day32choice03 eq 1>>A note from Larissa sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day32choice01 eq 1>>[[read the schedule|day32schedule]]\n\n<<endif>><<if $day32choice02 eq 1>>[[read the strange letter|day32kellyletter]]\n\n<<endif>><<if $day32choice03 eq 1>>[[read the note from Larissa|day32larissa]]<<endif>><<silently>>\n<<set $currentDayBase = 'day32base'>>\n\n<<if $day32choice01 + $day32choice02 + $day32choice03 eq 0>><<timedgoto "day33wait" .1s>><<endif>>\n<<endsilently>>\n\n\n
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
<<display 'mondaySchedule'>>\n\n[[put away|day11base]]<<set $day11choice1 = 0>>
<<set $nextLetter = 'ianReply03_NoReply_Reply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
STOP.\nWRITING.\nME.\n\n\n-Ian\n\n\n[[reply|endReset]]\n\n[[throw away|endReset]]\n
<<if $treatmentExtension eq "yes">>\n<<set $day32LetterChoice = 0>>\n<<set $day33LetterChoice = 0>>\n<<set $day34LetterChoice = 0>>\n<<set $day35LetterChoice = 0>>\n<<set $day36LetterChoice = 0>>\n<<set $day37LetterChoice = 0>>\n<<set $day38LetterChoice = 0>>\n<<set $day39LetterChoice = 0>>\n<<set $day40LetterChoice = 0>>\n<<set $day41LetterChoice = 1>>\n<<set $day42LetterChoice = 0>>\n<<set $nextLetter = 'ianToreTicket'>>\n<<set $nextLetterDayChoice = 0>>\n<<set $toreTicket = "y">>\n\n<<endif>>\n\n<<timedgoto $currentDayBase .2s>>\n
<<timedgoto "day11start" 3s>>
Chris,\n\nI don't even... You //actually// told her those things. Did you tell your dad, too? Because that would explain the call I got from him the other week. I figured it was him being, well, like he is, but I guess not.\n\nBut seriously, Chris?\n\nYou've fucked me over telling her those things.\n\nI can't believe you. You're going to have to fix this. I CANNOT believe you could do this to me. \n\nHonestly...\n\n[[keep reading|ianNoReply04_Reply_Reply2]]
<<display 'tuesdaySchedule'>>\n\n[[put away|day40base]]<<set $day40choice01 = 0>>
<<set $nextLetter = 'ianReply02_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>\n\n<<set $docreport = "neg">>
2007.September.20\nThursday\n\n<<timedgoto "day35" 4s>>
<<if $day39choice01 + $day39choice02 neq 0>><<if $day39choice01 + $day39choice02 eq 2>>The daily schedule and a letter from dad sit<<endif>><<if $day39choice01 + $day39choice02 eq 1>><<if $day39choice01 eq 1>>The daily schedule sits<<endif>><<if $day39choice02 eq 1>>A letter from dad sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day39choice01 eq 1>>[[read the schedule|day39schedule]]\n\n<<endif>><<if $day39choice02 eq 1>>[[read the letter from dad|day39dadletter]]<<endif>>\n\n<<silently>>\n<<set $currentDayBase = 'day39base'>>\n\n<<if $day39choice01 + $day39choice02 + $day39LetterChoice eq 0>>\n<<timedgoto "day40wait" .1s>>\n<<endif>><<endsilently>>\n
<<if $day38choice01 + $day38choice02 neq 0>><<if $day38choice01 + $day38choice02 eq 2>>The daily schedule and a note from Rick sit<<endif>><<if $day38choice01 + $day38choice02 eq 1>><<if $day38choice01 eq 1>>The daily schedule sits<<endif>><<if $day38choice02 eq 1>>A note from Rick sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day38choice01 eq 1>>[[read the schedule|day38schedule]]\n\n<<endif>><<if $day38choice02 eq 1>>[[read the note from Rick|day38rick]]<<endif>><<silently>>\n<<set $currentDayBase = 'day38base'>>\n\n<<if $day38choice01 + $day38choice02 eq 0>>\n<<timedgoto "day39wait" .5s>>\n<<endif>><<endsilently>>
<<timedgoto "day10start" 3s>>
<<timedgoto "day26start" 3s>>\n\n<<silently>>\n<<set $day26choice01 = 1>>\n<<set $day26choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
I tried to get to you in the ER but they wouldn't let me in, because I'm not immediate family or some shit like that.\n\nThen you were gone. Poof, off to Indiana.\n\nOff to Babylon.\n\nWhat, were you running away from me?\n\nWRITE ME BACK.\n\n-Ian\n\n\n[[reply|ianNoReply06_Back]]\n\n[[throw away|ianNoReply06_Not]]
August 28, 2007\n\n<<display 'dad01'>><<set $day14choice02 = 0>>
[ all\n\n<<timedinsert 2s>> over<<endtimedinsert>>\n\n\n\n<<timedinsert 5s>>again ]<<endtimedinsert>>\n<<timedgoto "prewwarning" 10s>>\n\n<<silently>>\n<<set $day10LetterChoice = 0>>\n<<set $day11LetterChoice = 0>>\n<<set $day12LetterChoice = 0>>\n<<set $day13LetterChoice = 0>>\n<<set $day14LetterChoice = 0>>\n<<set $day15LetterChoice = 0>>\n<<set $day16LetterChoice = 0>>\n<<set $day17LetterChoice = 0>>\n<<set $day18LetterChoice = 0>>\n<<set $day19LetterChoice = 0>>\n<<set $day20LetterChoice = 0>>\n<<set $day21LetterChoice = 0>>\n<<set $day22LetterChoice = 0>>\n<<set $day23LetterChoice = 0>>\n<<set $day24LetterChoice = 0>>\n<<set $day25LetterChoice = 0>>\n<<set $day26LetterChoice = 0>>\n<<set $day27LetterChoice = 0>>\n<<set $day28LetterChoice = 0>>\n<<set $day29LetterChoice = 0>>\n<<set $day30LetterChoice = 0>>\n<<set $day31LetterChoice = 0>>\n<<set $day32LetterChoice = 0>>\n<<set $day33LetterChoice = 0>>\n<<set $day34LetterChoice = 0>>\n<<set $day35LetterChoice = 0>>\n<<set $day36LetterChoice = 0>>\n<<set $day37LetterChoice = 0>>\n<<set $day38LetterChoice = 0>>\n<<set $day39LetterChoice = 0>>\n<<set $day40LetterChoice = 0>>\n<<set $day41LetterChoice = 0>>\n<<set $day42LetterChoice = 0>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = 0>>\n\n\n<<endsilently>><<silently>>\n\n<<set $ticket = "no">>\n<<set $docreport = "pos">>\n<<set $ianReplyScore = 0>>\n<<set $quitExtension = 0>>\n<<set $treatmentExtension = 0>>\n<<set $toreTicket = 0>>\n\n<<endsilently>>
2007.September.27\nThursday\n\n<<timedgoto "day42" 4s>>
//a bus ticket for a one-way trip from Quarry, Indiana to Kansas City is inside the envelope//\n\n\n[[take the ticket|taketheticket]]\n\n[[tear the ticket in half|teartheticket]]
Why would you lie about that?\nWhat could I have done to you make you do that?!\nAnd Kelly has been spreading some shit about me that I don't like, and she says it came from you.\n\nGet back to me. NOW.\n\n-Ian\n\n\n[[reply|ianNoReply04_Back]]\n\n[[throw away|ianNoReply04_Not]]
Chris,\n\nWhat's up? I haven't gotten a letter in a week.\nAre you okay? Did something happen?\n\nPlease write back.\n\nLove,\nIan\n\nPS: Sorry if my handwriting is a little shaky. Thomas and the gang took me out a couple days ago and I'm still recovering, if you know what I mean. It was a wild night. You were missed.\n\nPSS: I don't know where my head is... but I had to throw out that green blanket. I washed it three times but the stains wouldn't come out. It's probably for the best that I threw it out, anyway.\n\n\n[[reply|ianNoReply01_Reply_NoReply_Back]]\n\n[[throw away|ianNoReply01_Reply_NoReply_Not]]
<<set $nextLetter = 'ianNoReply05_Reply_Reply_NoReply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
Chris,\n\nYou really are a piece of work.\n\nDo you even remember that night? I really, really doubt it. You were a lot more drunk than I was, and taking that xanax was a terrible idea. \nLet me fill you in.\n\nYou hit me and said "no, you're drunk."\n\nYou were drunk too.\n\nAnd you gave in pretty damn quick.\n\nWe've been together for two years, you don't get to say “no” to me like that.\n\nI've earned more than that, dealing with your bullshit all the time.\n\nAnd you didn't fight back after that.\n\nSo you didn't mean it.\n\n[[keep reading|ianNoReply05_Reply_Reply2]]
<<set $ticket = "yes">>\n\n<<timedgoto $currentDayBase .2s>>\n\n<<if $treatmentExtension eq "yes">>\n<<set $treatmentExtension = "no">>\n<<set $quitExtension = "yes">>\n<<endif>>\n\n<<set $nextLetterDayChoice = 0>>
06:30 am – Wake-Up\n07:00 am – Weigh-in and Vitals\n07:30 am – 8:00 am – Shower and Daily Prep\n08:15 am – Breakfast\n09:00 am – Group\n10:00 am – Individual Therapy\n11:00 am – Physician Check-In\n12:00 pm – Lunch\n01:00 pm – Group\n02:00 pm – Social Worker Appointments\n03:00 pm – Afternoon Snack\n03:30 pm – Cognitive Behavioral Therapy\n05:00 pm – Work Time\n06:00 pm – Dinner\n07:00 pm – Work Time\n08:30 pm – Evening Snack / Free Time\n09:30 pm – Evening Check-In\n10:00 pm – Doors Locked\n11:00 pm – Lights Out\n
Chris,\n\nDo you even remember that night? How much of a little bitch you were being the whole time?\n\nI should have known that this was just some half-baked, half-thought-out cry for attention. <<if $treatmentExtension eq "yes">>You've got your dad on your side now, so hurray, maybe a few of your daddy-issues can get worked out now that he's protecting you like you always wished he had.<<endif>>\n\nBut, really, do you even remember that night?\n\nYou hit me and said "no, you're drunk." You were drunk too.\nAnd you gave in pretty damn quick. We've been together for two years, you don't get to say “no” to me like that. I've earned more than that, dealing with your bullshit all the time.\n\nAnd you didn't fight back after that. So you didn't mean it.\n\n[[keep reading|ianNoReply07_2]]
Chris,\n\nStill nothing. You know what?\n\nFuck you.\n\nFuck you and whatever weird sense of entitlement you have because you're “getting help.” We all have lives, you know, and they don't stop when you decide to swallow a bunch of pills and cut yourself up.\n\nWhy did you even do that?\n\nKelly wouldn't tell me after she took you to the ER. All she would say is “Chris needs space, Chris is in bad shape, you don't want to see Chris this way.”\n\n[[keep reading|ianNoReply06_2]]
Chris,\n\nStill silence from you. You're doing this on purpose. I'm not writing my name on the envelopes anymore. You might make them block my mail, or something.\nYou need to talk to me. I've been covering your bases back here, and I understand you're probably going through a lot, but that's no excuse.\n\nYou need to talk to me.\n\n-Ian\n\nPS: Your dad called me. Did you ask him to do that? Did you tell him what to say? Because this sudden care about your well-being seems out of nowhere.\nAnd no, I won't listen to him. He doesn't get to tell me to stay away from you.\n\n\n[[reply|ianNoReply05_Back]]\n\n[[throw away|ianNoReply05_Not]]
Chris,\n\nI called the hospital, and they said they couldn't give me any information about you. Something about “patient confidentiality,” or some shit. //And// they said that I wasn't on the list to visit you OR to call you.\nI could have called you?\n\nI could have VISITED?!\nYou told me that neither of those things were allowed.\n\nYou fucking liar.\n\n[[keep reading|ianNoReply04_2]]
Dear Chris,\n\nAre you actually ignoring me?\nI've asked everyone if they've heard from you but they don't seem to want to talk to me. What is going on?\n\nPLEASE.\nGET BACK TO ME.\n\n-Ian\n\n\nPS: I threw out that green blanket, I couldn't get all of the... stains... out of it.\n\n\n[[reply|ianNoReply03_Back]]\n\n[[throw away|ianNoReply03_Not]]
Dear Chris,\n\nAre you okay? Like, are you REALLY okay? I'm starting to get scared that something happened to you. Or that maybe they've done something to you.\n\nThey don't do any of that One Flew Over the Cuckoo's nest crap to people nowadays, right?\n\nI know you might be mad at me, and I don't really understand why, but can we at least talk about it?\n\nPlease, write back.\n\nLove,\nIan\n\n\n\n[[reply|ianNoReply02_Back]]\n\n[[throw away|ianNoReply02_Not]]\n
Chris,\n\nI'm really starting to get worried. Are they not letting you get letters?\n\nAre you in some sort of solitary confinement?\nOr are you just not answering me?\nPlease write me back, or if they let you call people give me a call, or something. \n\nPlease.\n\n-Ian\n\n\n[[reply|ianNoReply01_Back]]\n\n[[throw away|ianNoReply01_Not]]<<set $docreport = "pos">>
<<set $nextLetter = 'ianNoReply05_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Chris,\n\nFuck.\nYou.\n\nI am not sorry for ANYTHING.\n\n-Ian\n\n\n[[reply|ianNoReply09_Back]]\n\n[[throw away|ianNoReply09_Not]]
Chris,\n\nI'm done. Fucking stay in Indiana. Your shit is on the curb, and it's raining. So don't bother coming back for it.\n\nI guess you think you're better than me now, huh? Now that some shrink inflated your sense of self-worth? Maybe you think now that you've got your new friends in AA and NA and whatever else that I'm just trash?\n\nWell guess what? I have my shit together. I may do those things but I don't need to go to a hospital because I can't deal with real life.\n\nYou are such a fucking loser, and so are your new friends.\n\nIf you even have any friends in there.\n\n[[keep reading|ianNoReply08_2]]
I'm so proud of you, Chris! I know it was rough. But you got through it! You're a champ!\nYou'll be heading off into the main ward today. I might not see you again, so I just \twanted to let you know that you are doing a great and brave thing. You have so much potential! \tJust be strong, okay? I don't want to see you back here again! I mean it!\n\n-Carly\n\nPS: You're going to be in a wheelchair for the next few days, just to be extra safe. It'll only be for a bit, though, so don't fret!\n\n\n[[put away|day06base1]]<<silently>>\n<<set $day06choice1 = 0>>\n<<endsilently>>
<<if $day26choice01 + $day26choice02 neq 0>><<if $day26choice01 + $day26choice02 eq 2>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day26choice01 + $day26choice02 eq 1>><<if $day26choice01 eq 1>>The daily schedule sits<<endif>><<if $day26choice02 eq 1>>Dr. Bailey's report sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day26choice01 eq 1>>[[read the schedule|day26schedule]]\n\n<<endif>><<if $day26choice02 eq 1>>[[read Dr. Bailey's report|day26docreport]]<<endif>><<silently>>\n<<set $currentDayBase = 'day26base'>>\n\n<<if $day26choice01 + $day26choice02 + $day26LetterChoice eq 0>>\n<<timedgoto "day27wait" .1s>>\n<<endif>><<endsilently>>
<<if $docreport eq "neg">><<display 'day32larissabad'>><<endif>><<if $docreport eq "pos">><<display 'day32larissagood'>><<endif>>\n\n\n[[put away|day32base]]<<silently>><<set $day32choice03 = 0>><<endsilently>>
<<silently>><<if $letterVisited eq "y">><<set $day37LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day37choice01 eq 1>>The daily schedule sits<<if $day37LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day37choice01 eq 0 and $day37LetterChoice eq 1>>A letter from Ian sits on the bedside table.<<endif>>\n\n\n<<if $day37choice01 eq 1>>[[read the schedule|day37schedule]]\n\n<<endif>><<if $day37LetterChoice eq 1 and $toreTicket neq "y">>[[read the letter from Ian|letter]]<<endif>><<silently>>\n<<set $currentDayBase = 'day37base'>>\n<<set $day41LetterChoice = $nextLetterDayChoice>>\n<<set $letterArriveDate = "September 25, 2007">>\n\n\n<<if $day37choice01 + $day37LetterChoice eq 0>>\n<<timedgoto "day38wait" .1s>>\n<<endif>><<endsilently>>
<<set $nextLetter = 'ianReply05'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<set $dadLetter = 'dadNoReply04'>>\n\n<<timedgoto $currentDayBase .2s>>\n\n<<set $docreport = "neg">>\n\n<<set $treatmentExtension = "no">>
<<timedgoto "day23start" 3s>>\n\n<<silently>>\n<<set $day23choice01 = 1>>\n<<set $day23choice02 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>\n
[you did this all to yourself]\n\n<<timedinsert 4s>>No.<<endtimedinsert>>\n<<timedinsert 8s>>Not all of it.<<endtimedinsert>>\n\n\n<<timedinsert 14s>>[i didn't rape you]<<endtimedinsert>>\n\n<<timedinsert 18s>>Yes.<<endtimedinsert>>\n<<timedinsert 22s>>Yes you did.<<endtimedinsert>>\n\n\n<<timedinsert 28s>>[so you think I'm a monster?]<<endtimedinsert>>\n\n\n<<timedinsert 32s>>No.<<endtimedinsert>>\n<<timedinsert 38s>>I think you are pathetic.<<endtimedinsert>>\n\n<<timedgoto "creditsend" 46s>>\n
Hey Chris,\n\nWhat's going on with you?\nSo much about you seems different than I remember from the last time you came through.\nThere's something hanging over you, something weighing you down. I can see it in your eyes. You always seem so distant.\nYou're not really //here//, are you?\n\n-Rick
BABYLON BEHAVIORAL HOSPITAL\nAccounting Department\n//FINAL BILL//\n\nPatient Name: Perth, C.\n8/17/07\n\tInpatient Care: $1200\n8/18/07\n\tInpatient Care: $1200\n8/19/07\n\tInpatient Care: $1200\n8/20/07\n\tInpatient Care: $1200\n8/21/07\n\tInpatient Care: $1200\n8/22/07\n\tInpatient Care: $1200\n8/23/07\n\tInpatient Care: $1200\n8/24/07\n\tInpatient Care: $1200\n\n[[keep reading|day42dischargebill2]]<<set $dischargechoice02 = 0>>
<<set $nextLetter = 'ianReply04_NoReply_NoReply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Chris,\n\nThanks for writing me back.\nI looked up the place you're at, Babylon? They're supposed to be really good at dealing with people with problems like yours. I think you made a good choice in going there.\nI just wish you didn't have to go through all of this.\n\n-Dad\n\n\n[[reply|dad02_Back]]\n\n[[throw away|dad02_Not]]\n
\n\n[[the green button|day05push10]]
\n\n\n\n[[push the green button|day05push9]]
<<display 'fridaySchedule'>>\n\n[[put away|day22base]]<<set $day22choice01 = 0>>
\n\n\n[[push|day05push4]]
\n\n[[push the green button|day05push3]]
\n[[push the green button|day05push2]]
\n\n\n\n\n\n\n[[PUSH HIM|day05push8]]
\n\n\n\n\n\n[[push|day05push7]]
\n\n\n\n\n[[push|day05push6]]
\n\n\n\n[[push|day05push5]]
<<set $nextLetter = 'ianNoReply05_Reply_NoReply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
Christ, you are still writing back to me?\n\nStop. It's pathetic.\n\n-Ian\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]\n\n
<<timedgoto "day15start" 3s>>\n\n<<silently>>\n<<set $day15choice01 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
9.4 Tuesday\n\nPatient on full dosage of SSRI and anti-anxiety. No remarkable side-effects so far, though patient has reported increased perspiration and GI issues.\nProgress in therapy is at a stand-still. Pressuring patient on events of 15 August produces total shutdown and PTSD-like symptoms. This is very concerning.\nFurthermore, patient seems to have a general discomfort with verbal communication. Possible autism-spectrum disorder?\n\nMichael Bailey, MD
<<set $nextLetter = 'ianNoReply06_Reply_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
<<silently>><<if $letterVisited eq "y">><<set $day34LetterChoice = $currentDayBaseChoice>><<endif>>\n<<endsilently>><<if $day34choice01 eq 1>>The daily schedule sits<<if $day34LetterChoice eq 1>> next to a letter from Ian<<endif>> on the bedside table.<<endif>><<if $day34choice01 eq 0 and $day34LetterChoice eq 1>>A letter from Ian sits on the bedside table.<<endif>>\n\n\n<<if $day34choice01 eq 1>>[[read the schedule|day34schedule]]\n\n<<endif>><<if $day34LetterChoice eq 1>>[[read the letter from Ian|letter]]\n<<endif>><<silently>>\n<<set $currentDayBase = 'day34base'>>\n<<set $day37LetterChoice = $nextLetterDayChoice>>\n<<set $letterArriveDate = "September 21, 2007">>\n\n\n<<if $day34choice01 + $day34LetterChoice eq 0>><<timedgoto "day35wait" .1s>><<endif>><<endsilently>>
<<display 'wednesdaySchedule'>>\n\n[[put away|day13base]]<<set $day13choice1 = 0>>\n
<<set $replay1 = "y">>\n<<set $played = "y">>\n[[try|end1]]
<<set $nextLetter = 'ianReply02_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
[day 41]\n\n<<timedgoto "day41base" 4s>>
[day 40]\n\n<<timedgoto "day40base" 4s>>
9/22/07\n\tInpatient Care: $1200\n9/23/07\n\tInpatient Care: $1200\n9/24/07\n\tInpatient Care: $1200\n9/25/07\n\tInpatient Care: $1200\n9/27/07\n\tInpatient Care: $1200\n9/28/07\n\tPartial Inpatient Care: $800\nADDITIONAL CHARGES:\n\t$2300\n\n[[keep reading|day42dischargebill7]]
A folder bearing the words DISCHARGE INFORMATION in bold yellow font sits on the bedside table.\n\n\n[[open the folder|day42discharge]]\n\n<<if $day42LetterChoice eq 1>>\n[[read the letter|letter]]<<endif>>\n\n<<silently>>\n<<set $currentDayBase = 'day42base'>>\n<<set $day50LetterChoice03 = $nextLetterDayChoice>>\n<<set $day42LetterChoice = $currentDayBaseChoice>>\n<<set $letterArriveDate = "September 29, 2007">>\n<<endsilently>>\n
<<if $day36choice01 + $day36choice02 + $day36choice03 neq 0>><<if $day36choice01 + $day36choice02 + $day36choice03 eq 3>>The daily schedule, Dr. Bailey's report, and a bill from the hospital sit<<endif>><<if $day36choice01 eq 1 and $day36choice02 + $day36choice03 eq 0>>The daily schedule sits<<endif>><<if $day36choice01 eq 1 and $day36choice02 + $day36choice03 eq 1>><<if $day36choice02 eq 1>>The daily schedule and Dr. Bailey's report sit<<endif>><<if $day36choice03 eq 1>>The daily schedule and a bill from the hospital sit<<endif>><<endif>><<if $day36choice01 eq 0 and $day36choice02 + $day36choice03 eq 2>>Dr. Bailey's report and a bill from the hospital sit<<endif>><<if $day36choice01 eq 0 and $day36choice02 + $day36choice03 eq 1>><<if $day36choice02 eq 1>>Dr. Bailey's report sits<<endif>><<if $day36choice03 eq 1>>A bill from the hospital sits<<endif>><<endif>> on the bedside table.<<endif>>\n\n\n<<if $day36choice01 eq 1>>[[read the schedule|day36schedule]]\n\n<<endif>><<if $day36choice02 eq 1>>[[read Dr. Bailey's report|day36docreport]]\n\n<<endif>><<if $day36choice03 eq 1>>[[read the bill|day36bill]]\n\n<<endif>>\n<<silently>>\n<<if $day36choice01 + $day36choice02 + $day36choice03 + $day36LetterChoice eq 0>><<timedgoto "day37wait" .1s>><<endif>>\n\n\n<<set $currentDayBase = 'day36base'>>\n<<endsilently>>\n\n
<<set $nextLetter = 'ianNoReply04_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
2007.September.17\nMonday\n\n<<timedgoto "day32" 4s>>
06:30 am – Wake-Up\n07:00 am – Weigh-in and Vitals\n07:30 am – 8:00 am – Shower and Daily Prep\n08:15 am – Breakfast\n09:00 am – Group\n10:00 am – Physical Therapy\n11:00 am – Physician Check-In\n12:00 pm – Lunch\n01:00 pm – Group\n02:00 pm – Cognitive Behavioral Therapy\n03:00 pm – Afternoon Snack\n03:30 pm – Family Therapy/Work Time\n05:00 pm – Work Time\n06:00 pm – Dinner\n07:00 pm – Work Time\n08:30 pm – Evening Snack / Free Time\n09:30 pm – Evening Check-In\n10:00 pm – Doors Locked\n11:00 pm – Lights Out\n
Chris,\n\nYou aren't telling me something, but you better be coming home on the 20th. I got you a bus ticket- it's good for the whole day but make sure to get to the bus station as soon as you can. There are only a few buses that will get you home.\nWe'll talk about it when you get home.\n\nI am worried.\n\n-Ian\n\n\n[[put away|ianReply05_NoReply_NoReply_2]]\n
2007.September.11\nTuesday\n\n<<timedgoto "day26" 4s>>
9/8/07\n\tInpatient Care: $1200\n9/9/07\n\tInpatient Care: $1200\n9/10/07\n\tInpatient Care: $1200\n9/11/07\n\tInpatient Care: $1200\n9/12/07\n\tInpatient Care: $1200\n9/13/07\n\tInpatient Care: $1200\n9/14/07\n\tInpatient Care: $1200\n\n[[keep reading|day42dischargebill5]]
Chris,\n\nYou know what? Fuck you. If you're too fucking scared to talk about it, that's on you. You have always been such a coward.\n\nIt really doesn't surprise me that you'd say those things about me. High and drunk as hell or not, there's no way that you would take responsibility for what you did to yourself.\n\nYou know I called the hospital here in Kansas City? I didn't even have to tell them your name, I just asked about the person who came in sliced up from head to toe. They remembered you.\n\n[[keep reading|ianReply01_NoReply_Reply_NoReply_Reply_NoReply2]]
<<set $nextLetterDayChoice = 0>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
<<set $nextLetter = 'ianReply02_NoReply_Reply_NoReply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>
I called around to all of the hospitals and finally found out that you had gone to the ER, sliced up from head to toe. You did that to YOURSELF, Chris.\n\nAnd you have to drag me down with you?\n\nFuck you, Chris Perth.\n\nEnjoy those scars. Good luck ever finding a guy who thinks you are attractive.\n\n-Ian\n\n\n[[keep|endReset]]\n\n[[throw away|endReset]]
<<set $dadLetter = 'dad03NoReply'>>\n\n<<timedgoto $currentDayBase .2s>>
8/25/07\n\tInpatient Care: $1200\n8/26/07\n\tInpatient Care: $1200\n8/27/07\n\tInpatient Care: $1200\n8/28/07\n\tInpatient Care: $1200\n8/29/07\n\tInpatient Care: $1200\n8/30/07\n\tInpatient Care: $1200\n8/31/07\n\tInpatient Care: $1200\n\n[[keep reading|day42dischargebill3]]
<<display 'tuesdaySchedule'>>\n\n[[put away|day33base]]<<set $day33choice01 = 0>>
<<timedgoto "day02start" 3s>>
9.11 Tuesday\n\nPatient spending significant time with another patient, apparently know each other from previous treatment. For the time being, this seems acceptable, but said fellow patient may not be the best influence. Will monitor the situation.\nPatient disclosed communication with parents, father specifically. Suggested a family therapy session. \n\nMichael Bailey, MD
BABYLON BEHAVIORAL HOSPITAL\n\nDear Patient:\n\t\n\tThis is your first weekend in the main ward. Congratulations on making it through the week!\n\tWork doesn't stop over the weekend, however. You will have more free time, but there are still scheduled group sessions and meals. Do not skip these, as they are mandatory.\n\tIf you have free time after finishing assignments from your physician and therapists, feel free to take and use any of the activity books provided in the common room.\n\n\n[[put away|day09base]]<<set $day09choice3 = 0>>
2007.September.15\nSaturday\n\n<<timedgoto "day30" 4s>>
2007.August.20\nMonday\n\n<<timedgoto "day04" 4s>>
Chris,\n\nNo. I'm not buying that story. You're not "just busy" for this long. My guess is that it just slipped past your little "screening" system.\n\nAnd, really, that's all you have to say?\n\n"Sorry?"\n\n"I've been busy?"\n\nNo.\n\n[[keep reading|ianNoReply05_Reply2]]\n\n
<<timedgoto "day36start" 3s>>\n\n<<silently>>\n<<set $day36choice01 = 1>>\n<<set $day36choice02 = 1>>\n<<set $day36choice03 = 1>>\n<<set $day36choice04 = 1>>\n<<set $nextLetterDayChoice = 0>>\n<<set $letterVisited = "n">>\n<<endsilently>>
<<set $nextLetter = 'ianReply01_NoReply_Reply_NoReply_Reply_Reply_Reply'>>\n\n<<timedgoto $currentDayBase .5s>>\n\n<<set $letterWrittenDate = $letterArriveDate>>\n\n<<set $ianReplyScore = $ianReplyScore + 1>>
(function(){version.extensions.replaceMacrosCombined={major:1,minor:1,revision:4};var nullobj={handler:function(){}};function showVer(n,notrans){if(!n){return\n}n.innerHTML="";new Wikifier(n,n.tweecode);n.setAttribute("data-enabled","true");n.style.display="inline";n.classList.remove("revision-span-out");\nif(!notrans){n.classList.add("revision-span-in");if(n.timeout){clearTimeout(n.timeout)}n.timeout=setTimeout(function(){n.classList.remove("revision-span-in");\nn=null},1)}}function hideVer(n,notrans){if(!n){return}n.setAttribute("data-enabled","false");n.classList.remove("revision-span-in");\nif(n.timeout){clearTimeout(n.timeout)}if(!notrans){n.classList.add("revision-span-out");n.timeout=setTimeout(function(){if(n.getAttribute("data-enabled")=="false"){n.classList.remove("revision-span-out");\nn.style.display="none";n.innerHTML=""}n=null},1000)}else{n.style.display="none";n.innerHTML="";n=null}}function tagcontents(b,starttags,desttags,endtags,k){var l=0,c="",tg,a,i;\nfunction tagfound(i,e){for(var j=0;j<e.length;j++){if(a.indexOf("<<"+e[j],i)==i){return e[j]}}}a=b.source.slice(k);for(i=0;\ni<a.length;i++){if(tg=tagfound(i,starttags)){l++}else{if((tg=tagfound(i,desttags))&&l==0){b.nextMatch=k+i+tg.length+4;return[c,tg]\n}else{if(tg=tagfound(i,endtags)){l--;if(l<0){return null}}}}c+=a.charAt(i)}return null}var begintags=[];var endtags=[];function revisionSpanHandler(g,e,f,b){var k=b.source.indexOf(">>",b.matchStart)+2,vsns=[],vtype=e,flen=f.length,becomes,c,cn,m,h,vsn;\nfunction mkspan(vtype){h=insertElement(m,"span",null,"revision-span "+vtype);h.setAttribute("data-enabled",false);h.style.display="none";\nh.tweecode="";return h}if(this.shorthand&&flen){while(f.length>0){vsns.push([f.shift(),(this.flavour=="insert"?"gains":"becomes")])\n}}else{if(this.flavour=="insert"||(this.flavour=="continue"&&this.trigger=="time")){vsns.push(["","becomes"])}}if(this.flavour=="continue"&&flen){b.nextMatch=k+b.source.slice(k).length;\nvsns.push([b.source.slice(k),vtype])}else{becomes=["becomes","gains"];c=tagcontents(b,begintags,becomes.concat(endtags),endtags,k);\nif(c&&endtags.indexOf(c[1])==-1){while(c){vsns.push(c);c=tagcontents(b,begintags,becomes,endtags,b.nextMatch)}c=tagcontents(b,begintags,["end"+e],endtags,b.nextMatch)\n}if(!c){throwError(g,"can't find matching end"+e);return}vsns.push(c);if(this.flavour=="continue"){k=b.nextMatch;b.nextMatch=k+b.source.slice(k).length;\nvsns.push([b.source.slice(k),""])}}if(this.flavour=="remove"){vsns.push(["","becomes"])}cn=0;m=insertElement(g,"span",null,e);\nm.setAttribute("data-flavour",this.flavour);h=mkspan("initial");vsn=vsns.shift();h.tweecode=vsn[0];showVer(h,true);while(vsns.length>0){if(vsn){vtype=vsn[1]\n}vsn=vsns.shift();h=mkspan(vtype);h.tweecode=vsn[0]}if(typeof this.setup=="function"){this.setup(m,g,f)}}function quantity(m){return(m.children.length-1)+(m.getAttribute("data-flavour")=="remove")\n}function revisionSetup(m,g,f){m.className+=" "+f[0].replace(" ","_")}function keySetup(m,g,f){var key=f[0];m.setEventListener("keydown",function l(e){var done=!revise("revise",m);\nif(done){m.removeEventListener("keydown",l)}})}function timeSetup(m,g,f){function cssTimeUnit(s){if(typeof s=="string"){if(s.slice(-2).toLowerCase()=="ms"){return Number(s.slice(0,-2))||0\n}else{if(s.slice(-1).toLowerCase()=="s"){return Number(s.slice(0,-1))*1000||0}}}throwError(g,s+" isn't a CSS time unit");\nreturn 0}var tm=cssTimeUnit(f[0]);setTimeout(function timefn(){var done=!revise("revise",m);if(!done){setTimeout(timefn,tm)\n}},tm)}function hoverSetup(m){var fn,noMouseEnter=(document.head.onmouseenter!==null),m1=m.children[0],m2=m.children[1];if(!m1||!m2){return\n}m1.onmouseenter=function(e){if(this.getAttribute("data-enabled")!="false"){revise("revise",this.parentNode)}};m2.onmouseleave=function(e){if(this.getAttribute("data-enabled")!="false"){revise("revert",this.parentNode)\n}};if(noMouseEnter){fn=function(n){return function(e){if(!event.relatedTarget||(event.relatedTarget!=this&&!(this.compareDocumentPosition(event.relatedTarget)&Node.DOCUMENT_POSITION_CONTAINED_BY))){this[n]()\n}}};m1.onmouseover=fn("onmouseenter");m2.onmouseout=fn("onmouseleave")}m=null}function mouseSetup(m){var evt=(document.head.onmouseenter===null?"onmouseenter":"onmouseover");\nm[evt]=function(){var done=!revise("revise",this);if(done){this[evt]=null}};m=null}function linkSetup(m,g,f){var l=Wikifier.createInternalLink(),p=m.parentNode;\nl.className="internalLink replaceLink";p.insertBefore(l,m);l.insertBefore(m,null);l.onclick=function(){var p,done=false;if(m&&m.parentNode==this){done=!revise("revise",m);\nscrollWindowTo(m)}if(done){this.parentNode.insertBefore(m,this);this.parentNode.removeChild(this)}};l=null}function visitedSetup(m,g,f){var i,done,shv=state.history[0].variables,os="once seen",d=(m.firstChild&&(this.flavour=="insert"?m.firstChild.nextSibling:m.firstChild).tweecode);\nshv[os]=shv[os]||{};if(d&&!shv[os].hasOwnProperty(d)){shv[os][d]=1}else{for(i=shv[os][d];i>0&&!done;i--){done=!revise("revise",m,true)\n}if(shv[os].hasOwnProperty(d)){shv[os][d]+=1}}}[{name:"insert",flavour:"insert",trigger:"link",setup:linkSetup},{name:"timedinsert",flavour:"insert",trigger:"time",setup:timeSetup},{name:"insertion",flavour:"insert",trigger:"revisemacro",setup:revisionSetup},{name:"later",flavour:"insert",trigger:"visited",setup:visitedSetup},{name:"keyinsert",flavour:"insert",trigger:"key",setup:keySetup},{name:"replace",flavour:"replace",trigger:"link",setup:linkSetup},{name:"timedreplace",flavour:"replace",trigger:"time",setup:timeSetup},{name:"mousereplace",flavour:"replace",trigger:"mouse",setup:mouseSetup},{name:"hoverreplace",flavour:"replace",trigger:"hover",setup:hoverSetup},{name:"revision",flavour:"replace",trigger:"revisemacro",setup:revisionSetup},{name:"keyreplace",flavour:"replace",trigger:"key",setup:keySetup},{name:"timedremove",flavour:"remove",trigger:"time",setup:timeSetup},{name:"mouseremove",flavour:"remove",trigger:"mouse",setup:mouseSetup},{name:"hoverremove",flavour:"remove",trigger:"hover",setup:hoverSetup},{name:"removal",flavour:"remove",trigger:"revisemacro",setup:revisionSetup},{name:"once",flavour:"remove",trigger:"visited",setup:visitedSetup},{name:"keyremove",flavour:"remove",trigger:"key",setup:keySetup},{name:"continue",flavour:"continue",trigger:"link",setup:linkSetup},{name:"timedcontinue",flavour:"continue",trigger:"time",setup:timeSetup},{name:"mousecontinue",flavour:"continue",trigger:"mouse",setup:mouseSetup},{name:"keycontinue",flavour:"continue",trigger:"key",setup:keySetup},{name:"cycle",flavour:"cycle",trigger:"revisemacro",setup:revisionSetup},{name:"mousecycle",flavour:"cycle",trigger:"mouse",setup:mouseSetup},{name:"timedcycle",flavour:"cycle",trigger:"time",setup:timeSetup},{name:"keycycle",flavour:"replace",trigger:"key",setup:keySetup}].forEach(function(e){e.handler=revisionSpanHandler;\ne.shorthand=(["link","mouse","hover"].indexOf(e.trigger)>-1);macros[e.name]=e;macros["end"+e.name]=nullobj;begintags.push(e.name);\nendtags.push("end"+e.name)});function insideDepartingSpan(elem){var r=elem.parentNode;while(!r.classList.contains("passage")){if(r.classList.contains("revision-span-out")){return true\n}r=r.parentNode}}function reviseAll(rt,rname){var rall=document.querySelectorAll(".passage [data-flavour]."+rname),ret=false;\nfor(var i=0;i<rall.length;i++){if(!insideDepartingSpan(rall[i])){ret=revise(rt,rall[i])||ret}}return ret}function revise(rt,r,notrans){var ind2,curr,next,ind=-1,rev=(rt=="revert"),rnd=(rt.indexOf("random")>-1),fl=r.getAttribute("data-flavour"),rc=r.childNodes,cyc=(fl=="cycle"),rcl=rc.length-1;\nfunction doToGainerSpans(n,fn){for(var k=n-1;k>=0;k--){if(rc[k+1].classList.contains("gains")){fn(rc[k],notrans)}else{break\n}}}for(var k=0;k<=rcl;k++){if(rc[k].getAttribute("data-enabled")=="true"){ind=k}}if(rev){ind-=1}curr=(ind>=0?rc[ind]:(cyc?rc[rcl]:null));\nind2=ind;if(rnd){ind2=(ind+(Math.floor(Math.random()*rcl)))%rcl}next=((ind2<rcl)?rc[ind2+1]:(cyc?rc[0]:null));var docurr=(rev?showVer:hideVer);\nvar donext=(rev?hideVer:showVer);var currfn=function(){if(!(next&&next.classList.contains("gains"))||rnd){docurr(curr,notrans);\ndoToGainerSpans(ind,docurr,notrans)}};var nextfn=function(){donext(next,notrans);if(rnd){doToGainerSpans(ind2+1,donext,notrans)\n}};if(!rev){currfn();nextfn()}else{nextfn();currfn()}return(cyc?true:(rev?(ind>0):(ind2<rcl-1)))}macros.revert=macros.revise=macros.randomise=macros.randomize={handler:function(a,b,c){var l,rev,rname;\nfunction disableLink(l){l.style.display="none"}function enableLink(l){l.style.display="inline"}function updateLink(l){if(l.className.indexOf("random")>-1){enableLink(l);\nreturn}var rall=document.querySelectorAll(".passage [data-flavour]."+rname),cannext,canprev,i,ind,r,fl;for(i=0;i<rall.length;\ni++){r=rall[i],fl=r.getAttribute("data-flavour");if(insideDepartingSpan(r)){continue}if(fl=="cycle"){cannext=canprev=true\n}else{if(r.firstChild.getAttribute("data-enabled")==!1+""){canprev=true}if(r.lastChild.getAttribute("data-enabled")==!1+""){cannext=true\n}}}var can=(l.classList.contains("revert")?canprev:cannext);(can?enableLink:disableLink)(l)}function toggleText(w){w.classList.toggle(rl+"Enabled");\nw.classList.toggle(rl+"Disabled");w.style.display=((w.style.display=="none")?"inline":"none")}var rl="reviseLink";if(c.length<2){throwError(a,b+" macro needs 2 parameters");\nreturn}rname=c.shift().replace(" ","_");l=Wikifier.createInternalLink(a,null);l.className="internalLink "+rl+" "+rl+"_"+rname+" "+b;\nvar v="";var end=false;var out=false;if(c.length>1&&c[0][0]=="$"){v=c[0].slice(1);c.shift()}switch(c[c.length-1]){case"end":end=true;\nc.pop();break;case"out":out=true;c.pop();break}var h=state.history[0].variables;for(var i=0;i<c.length;i++){var on=(i==Math.max(c.indexOf(h[v]),0));\nvar d=insertElement(null,"span",null,rl+((on)?"En":"Dis")+"abled");if(on){h[v]=c[i];l.setAttribute("data-cycle",i)}else{d.style.display="none"\n}insertText(d,c[i]);l.appendChild(d)}l.onclick=function(){reviseAll(b,rname);var t=this.childNodes,u=this.getAttribute("data-cycle")-0,m=t.length,n,lall,i;\nif((end||out)&&u==m-(end?2:1)){if(end){n=this.removeChild(t[u+1]);n.className=rl+"End";n.style.display="inline";this.parentNode.replaceChild(n,this)\n}else{this.parentNode.removeChild(this);return}}else{toggleText(t[u]);u=(u+1)%m;if(v){h[v]=c[u]}toggleText(t[u]);this.setAttribute("data-cycle",u)\n}lall=document.getElementsByClassName(rl+"_"+rname);for(i=0;i<lall.length;i++){updateLink(lall[i])}};l=null}};macros.mouserevise=macros.hoverrevise={handler:function(a,b,c,d){var endtags=["end"+b],evt=(window.onmouseenter===null?"onmouseenter":"onmouseover"),t=tagcontents(d,[b],endtags,endtags,d.source.indexOf(">>",d.matchStart)+2);\nif(t){var rname=c[0].replace(" ","_"),h=insertElement(a,"span",null,"hoverrevise hoverrevise_"+rname),f=function(){var done=!reviseAll("revise",rname);\nif(b!="hoverrevise"&&done){this[evt]=null}};new Wikifier(h,t[0]);if(b=="hoverrevise"){h.onmouseover=f;h.onmouseout=function(){reviseAll("revert",rname)\n}}else{h[evt]=f}h=null}}};macros.instantrevise={handler:function(a,b,c,d){reviseAll("revise",c[0].replace(" ","_"))}};macros.endmouserevise=nullobj;\nmacros.endhoverrevise=nullobj}());