TheGameCreators - CodeBase - save name prompter

Category: Input / Output

Version: 1.0

Information

Uploaded: 9th Apr 2005 11:03

Modified: 1st Jan 1970 01:00

Author: Meatloaf

Summary

this short and simple program will prompt the user to enter a save game name, ask them if it is correct, enable them to try again, then store the inputted data as a variable. Vary useful for basic High Score Leaderboard!

Full Description

all descriptions and code meanings as REMs in source code, if you need help, go to my profile and email me

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

REM SAVE GAME NAME

REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

REM BY ANDY BEEVERS / MEATLOAF

REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

startofprogram:

HIDE MOUSE

REM tells the program to hide the mouse

INPUT "Please enter your Save Name:"; a$

REM tells the program to get input from the user and store it as the variable

REM "a$"

ReturnValue=RETURNKEY()

REM checks to see if the enter (return) key is pressed. if it is, then the program

REM returns a value of "1". if it isnt, the program returns a value of "0"

IF RETURNKEY()=1 THEN TEXT 100,200, a$

REM tells the program, that if return key (enter) is pressed, to

REM print the words in the variable "a$" at co-ordinates 100,100.

WAIT 1000

REM waits for the number given (1000 = 1 second)

TEXT 100,300, "is this correct? (y/n)"

REM "DO" starts a loop

REM TEXT... displays the text in "..." at the co-ordinates given

IF KEYSTATE(21)=1

CLS

TEXT 100,300, "thank you"

WAIT 2000

GOTO endofprogram

ENDIF

REM if the key with the keystate in brackets is pressed (in our case, its y)

REM then do all the commands untill the "ENDIF"

REM and in our case the commands are:

REM CLS, which clears the screen.

REM TEXT 100,300, "thank you" is explained above

REM WAIT 2000 waits for 2 seconds

REM GOTO endofprogram jumps to the label "endofpreogram"

REM ENDIF ends the IF ENDIF statement

IF KEYSTATE(49)=1

CLS

TEXT 100,300, "please try again"

WAIT 4000

CLS

GOTO startofprogram

ENDIF

LOOP

REM if the key with the keystate in brackets is pressed (in our case, its n)

REM then do all the commands untill the "ENDIF"

REM and in this case the commands are:

REM CLS is explained above

REM TEXT 100,300, "please try again" is explained above

REM WAIT 4000 is explained above

REM CLS is explained above

REM GOTO endofprogram jumps to the label "endofprogram"

REM ENDIF ends the IF ENDIF statement

REM LOOP ends the loop

endofprogram:

REM label name

END

REM ends program

Download

Please login to download

Comments

No comments yet.

Author Name:	Meatloaf
CodeBase Entries:	1

CodeBase - save name prompter

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments