TGC Codebase Backup



AMAZINGLY SIMPLE BETTING GAME by The Wilderbeast

15th Dec 2005 13:11
Summary

This program is just a little betting game



Description

A simple betting game that i made when i was bored, i u want to try editing it then try editing the part of code where you become a millionaire



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    hide mouse
money#=10
level=1
points=0


do
if level=0 then level=1
if points=100 then money#=money#+1000
if points=1000 then money#=money#+10000
if money#=1000000.0
print "You will now become a millionaire!"
suspend for key
m#=rnd(money#)
for t=1 to 10
money#=money#+m#
next t
endif
number=rnd(level)


print "Level:";level
print "Money:";money#
print "Points:";points
print "Number:";number

print "My number is between 0 and ";level; " inclusive"

print
input "Enter betting amount>";bet#
input "What do you think my number is?>";guess

if guess=number
print "Good guess!"
print "My number was ";number
suspend for key
level=level+1
money#=money#+bet#
points=points+bet#
else
points=points-bet#
print "Wrong!"
print "My number was actually ";number
level=level-1
money#=money#-bet#
suspend for key
endif


if money#=0
print "You've gone..."
for t=1 to 10
print "BUST!!!"
next t
print
print "Press any key"
suspend for key
end
endif

if money#=<0
print "You've gone..."
for t=1 to 10
print "BUST!!!"
next t
print
print "Press any key"
suspend for key
end
endif

cls
loop