TheGameCreators - CodeBase - Fortune Teller Game

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 12th Aug 2010 09:36

Modified: 12th Aug 2010 09:38

Author: Zorkonian12

Summary

A game that gives you a random answer to your question.

Full Description

This game has five different answers that it can randomly choose from to give you an answer to your question. If you would like to change this and make it your own, feel free. I don't need any credit.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Load Music "media/music misty room.mp3", 1

Play Music 1

Loop Music 1

REM Welcome Screen

INK RGB(255,255,255), RGB(0,0,0)

SET TEXT SIZE 48

SET TEXT FONT "Arial"

CENTER TEXT 320, 150, "Welcome to the"

CENTER TEXT 320, 190, "Fortune Teller Game!"

SET TEXT SIZE 16

CENTER TEXT 320, 350, "Press Any Key To Continue"

WAIT KEY

CLS

REM Asking For Name

SET TEXT SIZE 24

INPUT "What is your name?  ";Name$

CLS

REM Instructions

SET TEXT SIZE 24

CENTER TEXT 320, 150, "You are in luck " + Name$ + "! The Fortune Teller is taking"

CENTER TEXT 320, 180, "visitors today! But be quick, her time is limited."

CENTER TEXT 320, 210, "Also, only exect Yes or No answers. She is a person of few words."

CENTER TEXT 320, 240, "You may ask as many questions as you like. When you are done"

CENTER TEXT 320, 270, "type QUIT or hit the escape button."

SET TEXT SIZE 16

CENTER TEXT 320, 350, "Press Any Key To Continue"

WAIT KEY

CLS

REM Asking Questions

INK RGB(255,255,0), RGB(0,0,0)

SET TEXT SIZE 24

TEXT 0, 50, "What is your question?"

PRINT : PRINT : PRINT : PRINT :

INK RGB(255,255,255), RGB(0,0,0)

INPUT Question$

IF Question$ = "Quit" OR Question$ = "QUIT" OR Question$ = "quit"

EXIT

ENDIF

IF Question$ <> ""

seed = Timer()

RANDOMIZE seed

answer = RND(4) + 1

INK RGB(255,255,0), RGB(0,0,0)

TEXT 0, 150, "Interesting question, let me think..."

WAIT 3000

TEXT 330, 150, "Hmmm..."

WAIT 3000

SELECT answer

CASE 1

TEXT 0, 190, "Let's see..."

WAIT 2000

TEXT 0, 210, "All is clear now."

WAIT 2000

TEXT 0, 250, "The answer to your question is Yes."

ENDCASE

CASE 2

TEXT 0, 190, "Give me a moment to focus on your future"

WAIT 2000

TEXT 0, 250, "The obvious answer to your question is No."

ENDCASE

CASE 3

TEXT 0, 190, "This is very strange,"

WAIT 3000

TEXT 0, 250, "I cannot predict the answer to your question. Try asking again."

ENDCASE

CASE 4

TEXT 1, 190, "You must be kidding!"

WAIT 3000

TEXT 1, 250, "I will not answer this type of question!"

ENDCASE

CASE 5

TEXT 0, 190, "Ah..."

WAIT 2000

TEXT 0, 220, "The clear answer to your question is Yes."

ENDCASE

ENDSELECT

SET TEXT SIZE 16

CENTER TEXT 320, 380, "Press Any Key to Continue"

WAIT KEY

CLS

ENDIF

LOOP

REM Closing Screen

CLS

SET TEXT SIZE 24

CENTER TEXT 320, 150, "You are done already?"

CENTER TEXT 320, 180, "Very well, be off, but be sure to come"

CENTER TEXT 320, 210, "back soon! Thanks for Playing!"

WAIT KEY

CLS

END

Download

Please login to download

Comments

No comments yet.

Author Name:	Zorkonian12
CodeBase Entries:	1

CodeBase - Fortune Teller Game

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments