TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Input / Output

Version: 1.05

Information

Uploaded: 16th Mar 2005 20:17

Modified: 1st Jan 1970 01:00

Author: kairi990

Summary

A simple TEXT BASED game. Someone fix it up and make it cool! maybe a couple of graphics here and there

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem my first game

rem Lori Williams

rem march 16 2005

rem the game begins here

print "welcome to my first game"

wait 2000

print "what is your name?"

input name$

wait 100

print "is this correct?"

print name$

print " "

Input answer$

if answer$="no" then gosub Quit

if answer$="yes" then gosub ageenter

rem they enter their age here

ageenter:

print "welcome"

print name$

wait 2000

print "please enter your age"

input age

if age<10 then gosub Quit

if age>10 then print "so, you are.."

print  "name:";name$

print "age:";age

wait 850

gosub gamestart

rem if player quits or gives wrong answer they are kicked off here

Quit:

print "you either lost, waited too long or got kicked off becuse i didn't like you.."

print "goodbye"

wait 2000

end

rem this starts the personal questions

gamestart:

print "you have been selected to play MY GAME!"

print "understand that ANY cheating will warrant me to KICK YOUR ASS!"

print "any questions?"

wait 3500

print "good... let's get started"

wait 1000

Print " i will ask you a series of questions, of which i will want and answer"; " the first 3 are personal"

Print "are you ready?"

print " "

wait 2500

print "are you a male or female?"

input sex$

wait 500

print "okay."

wait 100

Print "are you a good athlete?"

input athanswer$

wait 500

print "i see..."

wait 100

Print "Last Question"

Print "do you believe in God?"

input godans$

wait 500

print "very well then.."

wait 500

print "would you like to conintue"

input answer2$

if answer2$="no" then gosub Quit

if answer2$="yes" then gosub continue1

rem if the player decided to continue the would be asked question 1 here

continue1:

print "i'm glad you have decided to continue.."

wait 500

print "now these questions count."

wait 500

print " Question 1 of 5: Easy"

print "who is George W Bush"

print " "

Print " A- an ***hole"

print " B- One of our presidents"

print " C- A and B"

input Q1$

if Q1$= "a" then gosub Quit

if Q1$= "b" then gosub Quit

if Q1$= "c" then gosub Question2

rem this is question 2

Question2:

Print " "

print "well you made it past that one."; " If this is your second try then SHAME ON YOU!"

Print " "

print "let us continue...."

print "Question 2 of 5: *sorta* easy "

print "Algebra was developed by Egyptians as *Al Gabwr* "

Print "True or False"; " (please type the full word)"

input Q2$

if Q2$= "true" then gosub Question3

if Q2$= "false" then gosub Quit

rem this is question 3

Question3:

print " "

print "Hmmm... Better than I thought"

print ""

Print "very well then..Let us continue"

print "Question 3 of 5: Medium Level"

Print "BASIC means..."

print "A- Beginners Algebraic Symmetrical Interface Code"

print "B- Bastards  A** Side Intuitive Code"

print "C- Beginners All-Purpose Symbolic Instruction Code"

input Q3$

if Q3$= "A" then gosub Quit

If Q3$= "b" then gosub Quit

if Q3$= "c" then gosub Question4

rem this is question 4

Question4:

print " "

Print "how the heck did you make it this far??"

print " "

Print "Question 4 of 5: Medium-Hard"

Print " This game was developed by..."

Print "A-Microsoft"

Print "B-Enteractive"

print "C-Dragonfire Software"

input Q4$

if Q4$= "A" then gosub Quit

if Q4$= "B" then gosub Quit

if Q4$= "C" then gosub Question5

Question5:

print " "

print "how the hell do I get you off of here!...."

wait 1000

Print "oops! did I say that OUT LOUD?!"

wait 500

Print " "

Print " AHEM!"

print "Question 5 of 5: If you get this you will be a legend! (in your own mind......)"

print "Hypatia was a....."

print "A- A female mathematician"

print "B- A character on harry potter"

print "C- A name I just made up"

input Q5$

if Q5$= "A" then Goto Champ

if Q5$= "b" then gosub Quit

if Q5$= "c" then gosub Quit

rem if the player makes it through all 5 they go here

Champ:

print " "

print "well you made it, Damn! how did you get that last one....."

wait 1000

Print " Okay "; name$; " you are the winner of this quiz"

print "Age: "; age

print "sex: "; sex$

Print " no go home and tell your family you won"

Print " "

print "THE END"

End

Download

Please login to download

Comments

No comments yet.

CodeBase - M first Game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	kairi990
CodeBase Entries:	1