TheGameCreators - CodeBase - billys gambling game

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 16th Jul 2004 08:43

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

gambling game multiplayer (not on the internet)

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem set red color of text

ink rgb(245,300,811),1

rem load and loop music

load music "Northern Lights.mid",1

loop music 1

INPUT "want cheats press c no cheats press n> ";op$

IF op$ = "c" THEN GOTO 0

IF op$ = "n" THEN GOTO 02

CLS

INPUT "Enter your name:>";naam$

print "welcome ";naam$

wait 1000

rem set turns

turns=10

rem hide the mouse

hide mouse

rem refresh print etc

CLS

rem set red color of text

ink rgb(245,300,811),1

rem load images

load image "points.bmp",4

load image "turns.bmp",5

load image "bonus.bmp",6

rem paste the image turns

paste image 5, 425, 200

rem set point to print

SET CURSOR 540, 360

rem print the number of turns

print " ",turns

rem paste the image points

paste image 4 ,450, -50

rem set point to print

SET CURSOR 560,110

rem print the number of points

print " ",points#

rem set point to print

SET CURSOR 0,0

rem stop the game

IF turns=0 THEN GOTO end

cheats:

rem print options

print "To start press s. For information press i. To quit press escape"

input "press a key (i,s or esc)";name$

IF name$ = "i" THEN GOTO info

IF name$ = "s" THEN GOTO bl

IF name$ = "bonus please" THEN GOTO bonus2

IF name$ = "all turns" THEN GOTO 0

IF name$ = "no cheats" THEN GOTO 02

bl:

A=RND(6)

IF A=0 THEN GOSUB boer

IF A=1 THEN GOSUB koning

IF A=2 THEN GOSUB koningin

IF A=3 THEN GOSUB bonus

IF A=4 THEN GOSUB boer

IF A=5 THEN GOSUB koning

IF A=6 THEN GOSUB koningin

GOTO 1

boer:

rem turns - 1

turns=turns-1

rem points + 1

points#=points#+1

load image "boer.bmp",1

paste image 1,150,50

print "you won 1 point!"

print "please wait 5 seconds"

wait 5000

return

koning:

turns=turns-1

points#=points#+3

load image "koning.bmp",2

paste image 2,150,50

print "you won 3 points!"

print "please wait 5 seconds"

wait 5000

return

koningin:

turns=turns-1

points#=points#+2

load image "kongingin.bmp",3

paste image 3,150,50

print "you won 2 points!"

print "please wait 5 seconds"

wait 5000

return

bonus:

points#=points#+4

paste image 6,0,100

print "you won 4 points! and this is no turn!!:)"

print "please wait 5 seconds"

wait 5000

return

bonus2:

points#=points#+4

paste image 6,0,100

print "you won 4 points! and this is no turn!!:)"

print "please wait 5 seconds"

wait 5000

GOTO 1 ;

end:

print "write the number of points on a paper"

print "Next player be ready! To begin press enter"

print "You have: ",points# ;"points"

wait key

CLS

points#=0

GOTO 0 ;

info:

print "This is a multiplayer game, in the game you must press enter."

print " You will see a picture of a farmer a king a queen or a bonus"

print " when you have a bonus you won 4 points and it is no turn"

print " when you have a farmer it is 1 point and 1 turn"

print " when you have a king it is 3 points and 1 turn"

print " when you have a queen is is 2 points and 1 turn"

print " to begin press enter"

wait key

CLS

GOTO bl ;

02:

CLS

INPUT "Enter your name:>";naam$

print "welcome ";naam$

wait 1000

rem set turns

turns=10

12:

rem hide the mouse

hide mouse

rem refresh print etc

CLS

rem set red color of text

ink rgb(245,300,811),1

rem load images

load image "points.bmp",4

load image "turns.bmp",5

load image "bonus.bmp",6

rem paste the image turns

paste image 5, 425, 200

rem set point to print

SET CURSOR 540, 360

rem print the number of turns

print " ",turns

rem paste the image points

paste image 4 ,450, -50

rem set point to print

SET CURSOR 560,110

rem print the number of points

print " ",points#

rem set point to print

SET CURSOR 0,0

rem stop the game

IF turns=0 THEN GOTO end2

nocheats:

print "To start press s. For information press i. To quit press escape"

input "press a key (i,s or esc)";name2$

IF name2$ = "i" THEN GOTO info2

IF name2$ = "s" THEN GOTO bl2

IF name2$ = "cheats" THEN GOTO cheats

bl2:

A=RND(6)

IF A=0 THEN GOTO boer3

IF A=1 THEN GOTO koning3

IF A=2 THEN GOTO koningin3

IF A=3 THEN GOTO bonus3

IF A=4 THEN GOTO boer3

IF A=5 THEN GOTO koning3

IF A=6 THEN GOTO koningin3

GOTO 1

info2:

print "This is a multiplayer game, in the game you must press enter."

print " You will see a picture of a farmer a king a queen or a bonus"

print " when you have a bonus you won 4 points and it is no turn"

print " when you have a farmer it is 1 point and 1 turn"

print " when you have a king it is 3 points and 1 turn"

print " when you have a queen is is 2 points and 1 turn"

print " to begin press enter"

wait key

CLS

GOTO bl2 ;

boer3:

rem turns - 1

turns=turns-1

rem points + 1

points#=points#+1

load image "boer.bmp",1

paste image 1,150,50

print "you won 1 point!"

print "please wait 5 seconds"

wait 5000

GOTO 12 ;

koning3:

turns=turns-1

points#=points#+3

load image "koning.bmp",2

paste image 2,150,50

print "you won 3 points!"

print "please wait 5 seconds"

wait 5000

GOTO 12 ;

koningin3:

turns=turns-1

points#=points#+2

load image "kongingin.bmp",3

paste image 3,150,50

print "you won 2 points!"

print "please wait 5 seconds"

wait 5000

GOTO 12 ;

bonus3:

points#=points#+4

paste image 6,0,100

print "you won 4 points! and this is no turn!!:)"

print "please wait 5 seconds"

wait 5000

GOTO 12 ;

end2:

print "write the number of points on a paper"

print "Next player be ready! To begin press enter"

print "You have: ",points# ;"points"

wait key

points#=0

CLS

GOTO 02 ;

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	1

CodeBase - billys gambling game

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments