Dad has been acting strange lately.
Tonight he left in a hurry.
(set: $Lightning to (random:4,8))
(set: $Inventory to (ds: ))
[[I wonder why|Bedroom]](track: 'rainwindow', 'fadeout', 1)
(set: $Title to (str: "Bedroom"))
(set: $Description to (str: "You are standing in your bedroom"))
(set: $Choices to
(a:
(dm:
"Location", "BedroomWindow",
"Label", "Check out window",
"Sound", "walk"
),
(dm:
"Location", "UpstairsHallway",
"Label", "Leave room",
"Sound", "doorOpen"
)
)
)
(redirect: "Room")
(track: 'rainwindow', 'loop', true)
(track: 'rainwindow', 'fadein', 1)
(set: $Title to (str: "Bedroom Window"))
(set: $Description to
(str:
"You look out of your bedroom window and see nothing but black trees swaying amidst the grey sky. Rain covers the window in buckets."
))
(set: $Choices to
(a:
(dm:
"Location", "Bedroom",
"Label", "Go back",
"Sound", "walk"
)
))
(redirect: "Room")(track: 'rainwindow', 'fadeout', 1)
(set: $Title to (str: "Upstairs Hallway"))
(set: $Description to
(str:
"You stand in the upstairs hallway. The sound of rain is still present, but distant. The lights are dim, and the floor is cold to the touch.
The family fern is in the corner."
))
(set: $Choices to
(a:
(dm:
"Location", "Bedroom",
"Label", "My Bedroom",
"Sound", "doorOpen"
),
(dm:
"Location", "DadRoom",
"Label", "Dad's Bedroom",
"Sound", "walk"
),
(dm:
"Location", "Upstairs Bathroom",
"Label", "Enter Bathroom",
"Sound", "doorOpen"
),
(dm:
"Location", "Entry Hallway",
"Label", "Go downstairs",
"Sound", "walk"
)
)
)
(redirect: "Room")<h1>(print: $Title)</h1>
(unless: (track: 'rain', 'isplaying'))[(track: 'rain', 'loop', true)(track: 'rain', 'fadein', 2)](print: $Description)
(if:$Lightning <= 0)[
(track: 'thunder', 'play')
(text-colour:#80ffff)[(text-style:"smear","rumble")[''//You hear the sound of Thunder//'']]
(set: $Lightning to(random:7,15)
)]
(for: each _choice, ...$Choices)[(link-repeat: _choice's Label)[(track: _choice's Sound, 'play')(set: $Lightning to $Lightning-1)(goto: _choice's Location)]
]
(link-repeat: "Wait")[(set: $Lightning to $Lightning-1)(goto: "Room")](track: 'rainwindow', 'loop', true)
(track: 'rainwindow', 'fadein', 1)
(set: $Title to (str: "Bathroom"))
(set: $Description to (str: "You are standing in the upstairs bathroom"))
(set: $Choices to
(a:
(dm:
"Location", "UpstairsHallway",
"Label", "Go back",
"Sound", "walk"
)
))
(redirect: "Room")(set: $Title to (str: "Ground Floor Hallway"))
(set: $Description to (str: "You stand in the ground floor hallway"))
(set: $Choices to
(a:
(dm:
"Location", "UpstairsHallway",
"Label", "Go Upstairs",
"Sound", "walk"
),
(dm:
"Location", "LivingRoom",
"Label", "Enter Living Room",
"Sound", "walk"
),
(dm:
"Location", "Basement",
"Label", "Enter Basement",
"Sound", "walk"
),
(dm:
"Location", "GuestBath",
"Label", "Enter Guest Bath",
"Sound", "doorOpen"
),
(dm:
"Location", "Kitchen",
"Label", "Enter Kitchen",
"Sound", "walk"
),
(dm:
"Location", "HomeOffice",
"Label", "Enter Dad's Home Office",
"Sound", "doorOpen"
),
(dm:
"Location", "Front Door",
"Label", "Leave House",
"Sound", "walk"
)
))
(redirect: "Room")(if:$Inventory contains "DadBedroomKey")[
(redirect: "DadsRoomOpen")
]
(else:)
[
(redirect: "DadsRoomLocked")
]
[[DadsRoomLocked]]
[[DadsRoomOpen]] (set: $Title to (str: "Bedroom"))
(set: $Description to (str: "You are standing in your bedroom"))
(set: $Choices to
(a:
(dm:
"Location", "BedroomWindow",
"Label", "Check out window",
"Sound", "walk"
),
(dm:
"Location", "UpstairsHallway",
"Label", "Leave room",
"Sound", "doorOpen"
)
)
)
(redirect: "Room")(set: $Title to (str: "Dad's Room"))
(set: $Description to (str: "You stand in Dad's Bedroom"))
(set: $Choices to
(a:
(dm:
"Location", "DadDresser",
"Label", "Examine Dads dresser",
"Sound", "walk"
),
(dm:
"Location", "UpstairsHallway",
"Label", "Back",
"Sound", "none"
)
))
(redirect: "Room")
[[DadDresser]](set: $Title to (str: "Dad's Bedroom Door"))
(set: $Description to (str: "You stand in front of Dad's bedroom door. You attempt to pull the handle but the door is locked tight."))
(set: $Choices to
(a:
(dm:
"Location", "UpstairsHallway",
"Label", "Go back",
"Sound", "walk"
)
))
(redirect: "Room")(set: $Title to (str: "Living Room"))
(set: $Description to (str: "You are standing in your Living Room"))
(set: $Choices to
(a:
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "walk"
)
))
(redirect: "Room")(if:$Inventory contains "BasementKey")[
(redirect: "BasementOpen")
]
(else:)
[
(redirect: "BasementLocked")
]
[[BasementOpen]]
[[BasementLocked]](set: $Title to (str: "Guest Bathroom"))
(set: $Description to (str: "You are standing in the guest Bathroom"))
(set: $Choices to
(a:
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "doorOpen"
)
))
(redirect: "Room")(set: $Title to (str: "Kitchen"))
(set: $Description to (str: "You are standing in your kitchen"))
(set: $Choices to
(a:
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "walk"
)
))
(redirect: "Room")(set: $Title to (str: "Dad's Home Office"))
(set: $Description to (str: "You are standing in Dad's Home Office"))
(set: $Choices to
(a:
(dm:
"Location", "DadDesk",
"Label", "Check out Dad's desk",
"Sound", "walk"
),
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "doorOpen"
)
))
(redirect: "Room")
[[DadDesk]](set: $Title to (str: "Front Door"))
(set: $Description to (str: "You attempt to leave, but strangely the front door is locked tightly from the inside.
The shoe rack sits beside the door."))
(set: $Choices to
(a:
(dm:
"Location", "ShoeRack",
"Label", "Shoe Rack",
"Sound", "walk"
),
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "walk"
)
))
(redirect: "Room")
[[ShoeRack]](set: $Title to (str: "Basement"))
(set: $Description to (str: "You used the key to open the door to the basement. You stand in the cold dark basement."))
(set: $Choices to
(a:
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "doorOpen"
)
))
(redirect: "Room")(set: $Title to (str: "Basement Door"))
(set: $Description to (str: "You are standing in font of the door to the basement. The door is locked tightly."))
(set: $Choices to
(a:
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "walk"
)
))
(redirect: "Room")rain: ./audio/lightrain.mp3, ./audio/lightrain.ogg
rainwindow: ./audio/windowrain.mp3, ./audio/windowrain.ogg
thunder: ./audio/thunder.mp3, ./audio/thunder.ogg
doorOpen: ./audio/dooropen.mp3, ./audio/dooropen.ogg
walk: ./audio/footsteps.mp3, ./audio/footsteps.ogg
none: ./audio/none.mp3showControls: true
preload: true(set: $Title to (str: ""))
(set: $Description to (str: "You attempt to leave, but strangely the front door is locked tightly from the inside.
The shoe rack sits beside the door."))
(set: $Choices to
(a:
(dm:
"Location", "ShoeRack",
"Label", "Shoe Rack",
"Sound", "walk"
),
(dm:
"Location", "Entry Hallway",
"Label", "Back To Hallway",
"Sound", "walk"
)
))
(redirect: "Room")(set: $Title to (str: "Dad's Desk"))
(set: $Description to (str: "You stand in front of Dad's office desk. Everything is arranged neatly."))
(set: $Choices to
(a:
(dm:
"Location", "DeskDrawer",
"Label", "Look inside the desk drawer",
"Sound", "none"
),
(dm:
"Location", "HomeOffice",
"Label", "Back",
"Sound", "walk"
)
))
(redirect: "Room")
[[DeskDrawer]](set: $Title to (str: "Desk Drawer"))
(if: $Inventory contains "DadBedroomKey")[
(set: $Description to "You have already gotten Dad's bedroom key from the drawer. There is nothing else in here except some neatly organized pens.")
(set: $Choices to
(a:
(dm:
"Location", "HomeOffice",
"Label", "Back",
"Sound", "walk"
)
))
]
(else:)[
(set: $Description to "You see a key labelled "Bedroom" sitting inside the drawer alongside some neatly organized pens"
(set: $Choices to
(a:
(dm:
"Location", "BedroomKeyObtained",
"Label", "Grab Key",
"Sound", "none"
)
))
]
(redirect: "Room")
[[BedroomKeyObtained]](set: $Title to (str: "Bedroom Key"))
(set: $Description to (str: "You grab Dad's bedroom key."))
(set: $Inventory to it +(ds: "DadBedroomKey"))
(set: $Choices to
(a:
(dm:
"Location", "DeskDrawer",
"Label", "Back",
"Sound", "none"
)
))
(redirect: "Room")
[[DeskDrawer]](set: $Title to (str: "Dad's Dresser"))
(set: $Description to (str: "You stand in front of Dad's dresser and examine it. You notice the door is slightly ajar."))
(set: $Choices to
(a:
(dm:
"Location", "DadDresserOpen",
"Label", "Look inside the dresser",
"Sound", "doorOpen"
),
(dm:
"Location", "DadsRoomOpen",
"Label", "Back",
"Sound", "walk"
)
))
(redirect: "Room")
[[DadDresserOpen]]
(set: $Title to (str: "Dad's Dresser"))
(set: $Description to (str: "You open Dad's dresser and see all the hanging shirts have been organized by color. Strangely they've been pushed halfhazardly to the sides of the dresser.
Aditionally you see a faint glow of what looks like glow in the dark marker on the inside of the dresser doors though it's not dark enough to see what it says."))
(set: $Choices to
(a:
(dm:
"Location", "InsideDresser",
"Label", "Look from inside the dresser",
"Sound", "walk"
),
(dm:
"Location", "DadDresser",
"Label", "Back",
"Sound", "doorOpen"
)
))
(redirect: "Room")
[[InsideDresser]](set: $Title to (str: "Inside Dad's Dresser"))
(set: $Description to (str: "You stand inside Dad's dresser and close the doors. As the light receeds the lines slowly become more visible.
The glow in the dark marker reads:
'Eat shit and die!'
...strange
"))
(set: $Choices to
(a:
(dm:
"Location", "DresserExit",
"Label", "Open dresser",
"Sound", "walk"
)
))
(redirect: "Room")
[[DresserExit]](if: $Lightning is 0)[
(redirect: "Secret")
[[Secret]]
]
(else:)[
(redirect: "DadDresserOpen")
](set: $Title to (str: "?"))
(set: $Description to (str: "You push the doors open, but are surprised to see you are no longer inside your house anymore!
The darkness of your home is replaced by cold incandescent lighting and concrete angular walls decorated in red accent trim.
Below you is a dark red sigil matching the one seen on your Dad's desk in the basement.
"))
(set: $Choices to
(a:
(dm:
"Location", "SigilRoom",
"Label", "Exit Dresser",
"Sound", "doorOpen"
),
(dm:
"Location", "InsideDresser",
"Label", "Close dresser doors",
"Sound", "doorOpen"
)
))
(redirect: "Room")
[[DresserExit]]