TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Games

Version: 2.0

Information

Uploaded: 11th Apr 2005 01:31

Modified: 11th Apr 2005 01:44

Author: Trammel

Summary

Adapatation, fix and slight upgrade to 'Gambeling'.

Full Description

Adapatation, fix and slight upgrade to 'Gambeling' made while I was bored.<br /> (Original author: Matthew Baker)<br /> <br /> Description: Beginners, text based, input, variables, true randomization, nested IFs, game

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

************************************************************************************

Original program: Black Gamble

Original Author: Matthew Baker

Original date: 1974

Originaly completed on: 1974

Updated/Modified program: Black Gamble II

Updated/Modified by: Trammel

Updated/Modified on: 11 April 2005 (5:27am)

Update list:

* Fixed crash where <Esc> would force a lock into a "null-input" loop.

* Compessed original "I picked xxx" from multiple identical routines to one routine.

* Replaced misused "Gosub" commands with "Goto" as they didnt use "Return".

* Added a "streak" counter... and "best streak" counter to make it more game-like.

* Lowered random number from 1-10 to 1-5 so "game" is alot easier.

************************************************************************************

remend

rem Setup

sync on

hide mouse

randomize timer()

guessCorrect = 0

guessStreak = 0

guessBest = 0

rem Start of main program loop

start:

input "Pick a number between 1 and 5: ";guess

rem Convert string to whole number

guess = int(guess)

rem Check "number" for errors

if guess <1 or guess >5

cls

print "Error!!!"

print "Input was not a number between 1 and 5!"

print ""

goto start

endif

rem Generate the computers random number

rndNumber=RND(4)+1 : rem Rnd(x) is based on 0... so allow (0-9) and just add 1

rem Check numbers and give specific feedback (and update scores)

cls

if guess = rndNumber

if guessCorrect = 1

guessStreak = guessStreak + 1

else

guessStreak = 1

endif

guessCorrect = 1

print "Correct!!!"

else

guessCorrect = 0

print "Sorry..."

endif

rem If current streak is better than my best... then make it my best!

if guessStreak > guessBest then guessBest = guessStreak

rem Give standard feedback about computer and your numbers

print ""

print "The number I picked at random was: ",rndNumber

print "and your number was: ",guess

print ""

rem Give a comment about your current winning streak

if guessCorrect = 0

print "Your currently not on a winning streak."

else

print "Your currently on a winning streak with ",guessStreak," wins!"

endif

rem Give a comment about your best winning streak so far

if guessBest = 0

print "...and you've never won anything this game :("

else

print "...and your best winning-streak so far is ",guessBest,"!!!"

endif

rem Add a few spaces for formatting (looks)

print ""

sync

wait 2000

goto start

Download

Please login to download

Comments

No comments yet.

CodeBase - Gambeling v2

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Trammel
CodeBase Entries:	1