Hi guys, I just started learning the Dark Basic language last night, let me know what you think of my "Text Adventure." This is currently my first program I made without copying a tutorial off of Youtube or the tutorial section from the Dark Basic Manual.
REM FIRST EVER MADE PROGRAM
REM STARTED MARCH 5TH, 20111
REM ENDED MARCH 6TH, 2011
Print "Please enter your name"
print ""
Input "" , Name$
cls
Print "Hello ", name$
wait 2000
cls
Begin:
cls
Print "So ", name$,", what would you like to do today?"
print ""
Print "1.) Play Football"
Print "2.) Eat a tasty snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto football
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
football:
cls
print "You and your friends get ready for an exciting football game."
wait 2000
Print ""
print "The Center snaps the ball to the Quarterback..."
wait 2000
Print ""
print "You run a post as a wide reciever... You turn around to catch the ball...."
Print ""
wait 3000
print " AND BOOM! The Quarterback quickly passes the ball to you..."
print ""
WAIT 3000
print "You juke left, you juke right, and TOUCHDOWN!"
print ""
wait 2000
print "Press any key to continue..."
wait key
cls
print "What would you like to do now?"
print ""
print "1.) Take a nap"
print "2.) Get a snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Nap
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
Nap:
cls
Print "You go home and take a nap...."
wait 1000
print ""
Print "Congragulations! You have reached the end of the game!"
wait 2000
print ""
Print "Would you like to continue?"
Print ""
Print "Yes Or No?"
Print ""
Input "Enter your choice (Yes or No): ",letterinput$
If letterinput$ = "yes" then goto Begin
If letterinput$ = "no" then goto endofgame
Snack:
cls
Print " What kind of snack do you want?"
Print ""
print "1.) Some Doritos"
print "2.) A Donught"
print "3.) A Brownie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Doritos
If input$ = "2" then goto Doughnut
If input$ = "3" then goto Brownie
Doritos:
cls
print "You carefully crunch down on the cheesy Doritos."
print ""
wait 1000
Print "Press any key to continue..."
wait key
cls
print "What would you like to do now?"
print ""
print "1.) Take a nap"
print "2.) Get a snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Nap
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
Doughnut:
cls
print "You sitck a chocolate glazed doughnut in your mouth, the chocolate is soothing to your stomach."
print ""
wait 3000
Print "Press any key to continue..."
wait key
cls
print "What would you like to do now?"
print ""
print "1.) Take a nap"
print "2.) Get a snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Nap
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
Brownie:
cls
print "You slowly eat the brownie, not caring about your surroundings at the time of enjoyment."
print ""
wait 2600
Print "Press any key to continue..."
wait key
cls
print "What would you like to do now?"
print ""
print "1.) Take a nap"
print "2.) Get a snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Nap
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
Movie:
cls
Print "What Movie will you watch?"
Print ""
Print "1.) Shrek"
Print "2.) Predator"
print "3.) Star wars"
input "Enter your choice (1-3): ", input$
If input$ = "1" then goto Shrek
If input$ = "2" then goto Predator
If input$ = "3" then goto Starwars
Shrek:
cls
print "Ello' Donkay, Now get outa' 'ere! You sit and watch as Donkey annoys Shrek. "
wait 2000
print ""
print "Press any key to continue..."
wait key
cls
print "What would you like to do now?"
print ""
print "1.) Take a nap"
print "2.) Get a snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Nap
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
Predator:
cls
print "Arnold Schwarzenegger grabs a log and snaps it over the Predators Chest..."
wait 3000
Print ""
Print "Arnold: Bad idea...., the Predator grabs him and throws him onto the ground."
Print ""
wait 3000
Print "Arnold some how manages to get away..."
print ""
wait 2000
print "Press any key to continue..."
wait key
cls
print "What would you like to do now?"
print ""
print "1.) Take a nap"
print "2.) Get a snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Nap
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
StarWars:
cls
print "Luke, I am your Father....."
wait 1000
print ""
print "The movie has a major twist."
wait 1500
print ""
print "Press any key to continue..."
wait key
cls
print "What would you like to do now?"
print ""
print "1.) Take a nap"
print "2.) Get a snack"
Print "3.) Watch a movie"
Print ""
INPUT "Enter your choice (1-3): ", input$
If input$ = "1" then goto Nap
If input$ = "2" then goto Snack
If input$ = "3" then goto Movie
endofgame:
cls
Print "Thanks for playing!"
wait 4000
