TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Input / Output

Version: .7

Information

Uploaded: 27th Apr 2006 07:54

Modified: 9th May 2006 18:46

Author: Anonymous Coder

Summary

Simple user input storyline.

Full Description

This is a text adventure. I will update it each step of the way. I do not mind other people using this as long as you ask me before using it or hosting it somewhere else. I give anyone the right to list this source code or modified versions on this website only(unless you ask me first). Listing my name and email will be sufficient credit. Credit me by listing my name(Brendan) and email(shadowlink767@yahoo.com). If you end up using this and changing it, can you please send me the modified source code? I am hoping to make a full text adventure. I am also hoping to make a Final Fantasy-type RPG online multiplayer game eventually. If you can help me with these goals, would like to ask me a question, would like to use my source code, or anything else, I've listed contact info below.<br /> To contact me, email: shadowlink767@yahoo.com

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

a$=name

b$=Princess

c$=Prince

d$=gender

e$=Prince+name

f$=space between words

g$=Princess+name

h$=yes or no answer for "is name correct"

remend

rem chooses where to start print

set cursor 5,100

rem easy insert space between words

f$=" "

rem for girls

c$="Prince"

rem for boys

b$="Princess"

rem Label for name input

nameinput:

rem chooses where to start print

set cursor 5,100

rem asks user for name

input "What is your name? ",a$

rem begins loop process

rem Clears screen

cls

rem chooses where to start print

set cursor 5,100

rem Asks if name is correct

print "You have entered ";"'";a$;"' as your name."

input "Is this name correct? (requires yes or no answer)  ",h$

if h$="yes" then goto genderinput:

if h$="no" then goto tryagain:

if h$="y" then goto genderinput:

if h$="no" then goto tryagain:

tryagain:

rem Clears screen

cls

rem chooses where to start print

set cursor 5,100

input "What is your name?  ",a$

loop

rem a label to go to if name is correct

genderinput:

rem Clears screen

cls

rem chooses where to start print

set cursor 5,100

rem asks user to tell gender

input "Are you male or female? Type m for male or f for female.  ",gender$

rem Clears screen

cls

rem chooses where to start print

set cursor 5,100

if gender$="m" then Input "You have chosen male as your gender.  Is this correct?  (requires yes or no answer)",correct$

if gender$="f" then Input "You have chosen female as your gender.  Is this correct?  (requires yes or no answer)",correct$

if correct$="yes" then goto adventurestart:

if correct$="y" then goto adventurestart:

rem Clears screen

cls

rem chooses where to start print

set cursor 5,100

loop

Adventurestart:

rem Clears screen

cls

rem chooses where to start print

set cursor 5,100

rem If user is male, then user becomes Prince+name.

if gender$="m" then name$="Prince "+a$

rem if user is female, then then user becomes Princess+name.

if gender$="f" then name$="Princess "+a$

rem Prints name and then prints the adventure's beginning.

print name$;", prepare to embark on a very exciting adventure."

rem Waits for any user keyboard input

suspend for key

rem Clears screen

cls

rem chooses where to start print

set cursor 5,100

rem Ends program

end

Download

Please login to download

Comments

No comments yet.

CodeBase - Eternity Cell

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1