CodeBase - Gambeling

Return to the CodeBase listing

Category: Games

Version: 1.0

0

0

Information

Uploaded: 10th Apr 2005 16:13

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

this is a simple gambling game.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` 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.