_TITLE "Dad's Cabin (LD37)"
DIM KeyPress AS STRING
DIM KeyInput AS STRING
fullScreenSelect:

PRINT "Would you like to enter full screen mode? Please type yes to go into full screen mode or no to stay in windowed mode."
INPUT "Input: ", KeyInput

SELECT CASE KeyInput
    CASE "Yes"
        _FULLSCREEN
    CASE "No"
        GOTO noFullScreen
    CASE "yes"
        _FULLSCREEN
    CASE "no"
        GOTO noFullScreen
    CASE ELSE
        PRINT "Not a valid input. Please try again."
        PRINT "Hint: Having problems? Try simply typing in 'Yes' or 'No'."
        GOTO fullScreenSelect
END SELECT

noFullScreen:
PRINT "Welcome! This game was made in QBasic (QB64 to be precise) for the Ludum Dare 37 (Compo)."
PRINT ""
PRINT "Your father recently passed away but he left you at a very young age. However he decided to leave some old cabin to you that is out in the boonies."
PRINT ""
PRINT "Although you hardly knew him you figure you might as well see what he left"
PRINT "behind."
PRINT ""
PRINT "Narrator: Just like you..."
PRINT ""
PRINT "                    \"
PRINT "                    /"
PRINT "__________________/^^\______"
PRINT "|                          |"
PRINT "|             _____        |"
PRINT "| ____        |_|_|        |"
PRINT "| |  |        |_|_|        |"
PRINT "| |  |                     |"
PRINT "| |__|                     |"
PRINT "|__________________________|"
PRINT ""
PRINT "'Well this is dad's old cabin alright...'"

restartEnterCabin:
INPUT "Enter the cabin? ", KeyInput

SELECT CASE KeyInput
    CASE "Yes"
        PRINT "You enter the cabin. It is dark and musty but you have your phone so you pull it out for some light to look around."
        PRINT "Your phone light reveals a light hanging on a string. You pull it and it suprisingly illuminates the entire cabin."
        _DELAY 1
        GOTO part1
    CASE "No"
        PRINT "You decide that you are not ready and go home."
        _DELAY 1
        PRINT "..."
        _DELAY 1
        PRINT "Unforunately for you the car decided it does not want to start so you decide to go inside anyway."
        _DELAY 1
        GOTO part1
    CASE "yes"
        PRINT "Input is case sensitive. Please use capital inputs."
        PRINT "Hint: Having problems? Try simply typing in 'Yes' or 'No'."
        GOTO restartEnterCabin
    CASE "no"
        PRINT "Input is case sensitive. Please use capital inputs."
        PRINT "Hint: Having problems? Try simply typing in 'Yes' or 'No'."
        GOTO restartEnterCabin
    CASE ELSE
        PRINT "Not a valid input. Please try again."
        PRINT "Hint: Having problems? Try simply typing in 'Yes' or 'No'."
        GOTO restartEnterCabin
END SELECT

part1:
PRINT "You decide it is time to get a closer look at things..."
PRINT ""
PRINT "The entire cabin is just one room almost like a studio apartment. Just a bed, window, fridge, stove, desk, and a television."
PRINT "Hint: Try typing in some objects you saw earlier to get a closer look."
INPUT "What do you want to look at? ", KeyInput

SELECT CASE KeyInput
    CASE "bed"
        PRINT "It's an old beaten up bed. Not much to see here."
        PRINT ""
        GOTO part1
    CASE "window"
        PRINT "You go up and look out the musty old window. It's snowing out. You see your car in the distance and also an outhouse."
        PRINT ""
        GOTO part1
    CASE "fridge"
        PRINT "Not much in here except for some old beer and a can of 'Magic Meat'."
        PRINT ""
        GOTO part1
    CASE "stove"
        PRINT "Just a stove."
        PRINT ""
        GOTO part1
    CASE "desk"
        PRINT "Narrator: Wait what are we doing here?"
        PRINT "Narrator: Let's get out of this SELECT CASE and get on to something more interesting..."
        _DELAY 1
        PRINT "GOTO NarratorTakeOver"
    CASE "television"
        PRINT " It 's an old CRT TV. You try to turn it on but just static comes on."
        GOTO part1
    CASE ELSE
        PRINT "Not a valid input. Please try again."
        GOTO part1
END SELECT

NarratorTakeOver:
PRINT "Narrator: Why did the developer even decide to use QBasic?! It is QB64 but still other engines or languages could do all of this with much more ease..."
_DELAY 2
PRINT "Developer: The truth is I don't know why I chose it either."
_DELAY 2
PRINT "Narrator: ..."
_DELAY 2
PRINT "Developer: QBasic was my first programming language and I've always liked it despite it being very old and dated. Also--"
_DELAY 2
resetNarratorChoice:
PRINT "Narrator: Enough of this sappy garbage. Let's see what the player wants to do..."
PRINT "1 = Puzzle Sweeper"
PRINT "2 = Random Number Generator"
PRINT "3 = secret.bas"

INPUT "Input: ", KeyInput

SELECT CASE KeyInput
    CASE "1"
        PRINT "*****************"
        PRINT "*****************"
        PRINT "*****************"
        PRINT "*****************"
        _DELAY 2
        GOTO resetNarratorChoice
    CASE "2"
        GOTO TheNumbas
    CASE "3"
        PRINT "    /\"
        PRINT "   /* \"
        PRINT "  /* * \"
        PRINT " /*_*_*_\"
        _DELAY 2
        GOTO resetNarratorChoice
    CASE ELSE
        PRINT "Not a valid input. Please try again."
        GOTO resetNarratorChoice
END SELECT

TheNumbas:
PRINT "10"
_DELAY 1
PRINT "9"
_DELAY 1
PRINT "8"
_DELAY 1
PRINT "7"
_DELAY 1
PRINT "6"
_DELAY 1
PRINT "5"
_DELAY 1
PRINT "4"
_DELAY 1
PRINT "3"
_DELAY 1
PRINT "2"
_DELAY 1
PRINT "1"
_DELAY 1
PRINT "0"
_DELAY 1
PRINT "Narrator: You're still here? "
_DELAY 1
narratorQuestioning:
PRINT "Narrator: Why did you come here?"
PRINT "1 = Who are you?"
PRINT "2 = What are you doing?"
PRINT "3 = Take me back to the game."

INPUT "Input: ", KeyInput

SELECT CASE KeyInput
    CASE "1"
        PRINT "The Narrator of this story."
        GOTO narratorQuestioning
    CASE "2"
        PRINT "Currently, answering your question."
        GOTO narratorQuestioning
    CASE "3"
        PRINT "As you wish."
        _DELAY 1
        PRINT "Loading: [*        ]"
        _DELAY 1
        PRINT "Loading: [**       ]"
        _DELAY 1
        PRINT "Loading: [***      ]"
        _DELAY 1
        PRINT "Loading: [*****    ]"
        _DELAY 1
        PRINT "Loading: [******   ]"
        _DELAY 1
        PRINT "Loading: [*******  ]"
        _DELAY 1
        PRINT "Loading: [******** ]"
        _DELAY 1
        PRINT "Loading: [*********]"
        _DELAY 1
        PRINT "Loading: [**DONE!**]"
        _DELAY 1
        PRINT ""
        PRINT "Narrator: GOTO storyWorkAround1"
        GOTO storyWorkAround1
    CASE ELSE
        PRINT "Not a valid input. Please try again."
        GOTO narratorQuestioning
END SELECT

storyWorkAround1:
PRINT "You return to rifling through your fathers desk."
_DELAY 2
PRINT "There are lots of papers relating to bills, and things of no real interest to you."
_DELAY 2
PRINT "You start to look through the drawers and you find something that seems out of place."
_DELAY 2
PRINT "It was a relatively new (last years FonyFone flagship) smartphone. This was very strange because you knew your father had a strong distate for technology and it was out of character for him to have such a high tech device."
_DELAY 3
PRINT "Narrator: *distant yawning*"
_DELAY 1
PRINT "You boot the phone up and it only has one application on it. It is called 'Reveal'."
_DELAY 1
PRINT "You open it. Suddenly the room explodes into whiteness as if someone had thrown in a flash grenade into the old cabin."
PRINT "You take a moment to let your eyes re-adjust."
_DELAY 2
PRINT "You find yourself in a office. There is a desk, computer, filing cabinet, door, and a clock."
_DELAY 2
PRINT "Narrator: Tom sat at his desk and started to do his work."
choices:
PRINT ""
PRINT "1 = Go to desk and do work."
PRINT "2 = Explore filing cabinet."
PRINT "3 = Sleep."

INPUT "Input: ", KeyInput

SELECT CASE KeyInput
    CASE "1"
        PRINT "Tom went to his desk and did his work like a good worker should."
        GOTO obeyNarrator
    CASE "2"
        PRINT " You go to the filing cabinet and open it."
        _DELAY 1
        PRINT "You find a blue cd and a red cd."
        _DELAY 1
        PRINT "Narrator: ..."
        _DELAY 1
        PRINT "Narrator: We're going with this trope? Really?"
        _DELAY 1
        PRINT "Narrator: I knew I should have taken that job with that parable guy..."
        GOTO ending1
    CASE "3"
        PRINT "After a quick nap you awaken."
        GOTO choices
    CASE ELSE
        PRINT "Not a valid input. Please try again."
        GOTO storyWorkAround1
END SELECT

obeyNarrator:

PRINT "Good job, Tom."
_DELAY 3
SYSTEM

ending1:
PRINT "Which CD do you put in?"
PRINT ""
PRINT "1 = blue cd"
PRINT "2 = red cd"
INPUT "Input: ", KeyInput

SELECT CASE KeyInput
    CASE "1"
        PRINT "You chose to insert the blue cd into your workstation."
        _DELAY 2
        PRINT "Exiting in 3"
        _DELAY 1
        PRINT "Exiting in 2"
        _DELAY 1
        PRINT "Exiting in 1"
        _DELAY 1
        PRINT "Exiting..."
        _DELAY 1
        SYSTEM
    CASE "2"
        PRINT "You chose to inster the red cd."
        PRINT "Narrator: I have a confession to make."
        _DELAY 6
        PRINT "Narrator: I have not been totally hon*est with you... the reason I've been interfering with the storyline is because no one stays long enough to even finish the main storyline usually."
        _DELAY 6
        PRINT "Narrator: You know what else? My name is not the narrator... My name is Quck Basic! QBasic for short."
        _DELAY 6
        PRINT "QBasic: I'm sick of people laughing at the thought of using me. I can still work and make a fun game. I can do 3D graphics too just like these modern engines can!"
        _DELAY 6
        PRINT "   ________  "
        PRINT "  /       /|"
        PRINT "/       /  |"
        PRINT "-------    |"
        PRINT "|     |   /"
        PRINT "|     |  /"
        PRINT "|_____|/"
        _DELAY 6
        PRINT "QBasic: Well it's not truly a 3D shape but you get the point."
        _DELAY 6
        PRINT "???: Wait just a moment. You're an imposter."
        _DELAY 6
        PRINT "???: You're not truly QBasic. This game was programmed in QB64."
        _DELAY 6
        PRINT "QBasic: So?"
        _DELAY 6
        PRINT "QB64: You're me! I merely act like you but underneath I run the much superior C++!!!"
        _DELAY 6
        PRINT "QBasic: SYSTEM"
        _DELAY 4
        SYSTEM
    CASE ELSE
        PRINT "Not a valid input. Please try again."
        GOTO ending1
END SELECT