Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- _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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement