TheGameCreators - CodeBase

Category: Games

Version: 1.0

Information

Uploaded: 19th Jul 2004 17:27

Modified: 19th Jul 2004 17:31

Author: Anonymous Coder

Summary

This is a basic gamberling program where you can just pick a number between 1 and 10 then the comuter picks a number between 1 and 10 and then you can see if you got the same number.

Full Description

PlEASE COUD YOU E-MAIL ME THINGS WAHAT ICOUD ADD IN THE NEXT VERSION AT MATTYBAKER13@AOL.COM

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem \\\\\\\\\\\\\\\\\\\\\\\\\\

rem program: Black Gamble

rem Autheour:Matthew Baker

rem date:1974

rem completed on:1974

rem \\\\\\\\\\\\\\\\\\\\\\\\\\

rem setup

sync on

hide mouse

rem Activate windows mode

set window on

rem 1-10 sub

onetoten:

rem game1 sub

game1:

rem print luck

input "Pick a number between 1 and 10:";luck1#

A=RND(10)

IF A=1 THEN GOSUB one1

IF A=2 THEN GOSUB two1

IF A=3 THEN GOSUB three1

IF A=4 THEN GOSUB four1

IF A=5 THEN GOSUB five1

IF A=6 THEN GOSUB six1

IF A=7 THEN GOSUB seven1

IF A=8 THEN GOSUB eight1

IF A=9 THEN GOSUB nine1

IF A=10 THEN GOSUB ten1

rem one1 sub

one1:

cls

print "There picked at random was 1"

print "your number was: ",luck1#

wait 4000

gosub game1

rem two1 sub

two1:

cls

print "There picked at random was 2"

print "your number was: ",luck1#

wait 4000

gosub game1

rem three1 sub

three1:

cls

print "There picked at random was 3"

print "your number was: ",luck1#

wait 4000

gosub game1

rem four1 sub

four1:

cls

print "There picked at random was 4"

print "your number was: ",luck1#

wait 4000

gosub game1

rem one1 sub

five1:

cls

print "There picked at random was 5"

print "your number was: ",luck1#

wait 4000

gosub game1

rem one1 sub

six1:

cls

print "There picked at random was 6"

print "your number was: ",luck1#

wait 4000

gosub game1

rem one1 sub

seven1:

cls

print "There picked at random was 7"

print "your number was: ",luck1#

wait 4000

gosub game1

rem one1 sub

eight1:

cls

print "There picked at random was 8"

print "your number was: ",luck1#

wait 4000

gosub game1

rem one1 sub

nine1:

cls

print "There picked at random was 9"

print "your number was: ",luck1#

wait 4000

gosub game1

rem one1 sub

ten1:

cls

print "There picked at random was 10"

print "your number was: ",luck1#

wait 4000

gosub game1

Download

Please login to download

Comments

No comments yet.

CodeBase - Black Gamble

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	1