TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 20th Dec 2009 13:29

Modified: 20th Dec 2009 13:30

Author: Alex Libby

Summary

This is a good example of the rnd() command, and it's fun to!

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

set text size 40

wait key

A=rnd(30)

if A=0

B$="Signs point to yes."

endif

if A=1

B$="Yes."

endif

if A=2

B$="Reply hazy, try again."

endif

if A=3

B$="Without a doubt."

endif

if A=4

B$="My sources say no."

endif

if A=5

B$="As I see it, yes."

endif

if A=6

B$="You may rely on it."

endif

if A=7

B$="Concentrate and ask again."

endif

if A=8

B$="Outlook not so good."

endif

if A=9

B$="It is decidedly so."

endif

if A=10

B$="Better not tell you now. "

endif

if A=11

B$="Very doubtful."

endif

if A=12

B$="Yes - definitely."

endif

if A=13

B$="It is certain."

endif

if A=14

B$="Cannot predict now."

endif

if A=15

B$="Most likely."

endif

if A=16

B$="Ask again later."

endif

if A=17

B$="My reply is no."

endif

if A=18

B$="Outlook good."

endif

if A=19

B$="Don't count on it."

endif

if A=20

B$="Yes, in due time."

endif

if A=21

B$="Definitely not."

endif

if A=22

B$="You will have to wait."

endif

if A=23

B$="I have my doubts."

endif

if A=24

B$="Outlook so so."

endif

if A=25

B$="Looks good to me!"

endif

if A=26

B$="Who knows?"

endif

if A=27

B$="Probably."

endif

if A=28

B$="Are you kidding?"

endif

if A=29

B$="Forget about it."

endif

if A=30

B$="no."

endif

center text 300,220,B$

wait key

cls

loop

Download

Please login to download

Comments

No comments yet.

CodeBase - Magic (CPU)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Alex Libby
CodeBase Entries:	13