Sorry your browser is not supported!

Rem Project: casinoGame
Rem Created: 18.03.2006 17:59:01

Rem ***** Main Source File *****

Type num
 a As Integer
 b As Integer
 t As Integer
EndType
Type players
   name As String
   turn As Integer
   money As Integer
   dice As num
EndType
GLOBAL dice1, dice2
DIM player(4) As Players

player(0).name = "Player"
player(0).money = 100
player(1).name = "Ric"
player(1).money = 100
player(2).name = "Sexy Lady"
player(2).money = 100
player(3).name = "Cucumber"
player(3).money = 100

repeat
cls

for p = 0 to 3
      text p*100, 0, player(p).name
      line p*100, 0, p*100, 100
      text p*100, 20, "DICE1: "
      text p*100, 34, "DICE2: "
      text p*100, 48, "TOTAL: "
      text p*100, 86, "MONEY: "
next p

clicked0 = button(10, 110, "ROLL DICE")
if clicked0 > 0 and roll0 = 0 then roll0 = 1
   if roll0 = 1
      roll0 = 2
      rollDice(0) : turn = 0
         rollDice(1) : turn = 1
         rollDice(2) : turn = 2
         rollDice(3) : turn = 3
   endif
if clicked0 = 0 then roll0 = 0

if turn = 3
   turn = 4
      wina = Max2(player(0).dice.t,player(1).dice.t)
      winb = Max2(player(2).dice.t,player(3).dice.t)
      winf = Max2(wina, winb)
         if wina = 0 and winb = 0
            result = 0
         endif
        if wina <> 0 or winb <> 0
            result = winf
         endif

      lastwinner1$ = winner$
      for f = 0 to 3
         if result = player(f).dice.t
            player(f).money = player(f).money + 10
            winner$ = player(f).name
         endif
         if result = 0
            winner$ = "NOBODY"
         endif
      next f
endif
if winner$ = ""
else
if winner$ = "Ric"
   text 100, 186, "Wha..? "+ winner$+"! HOW COME YOU WON THIS ROUND?"
else
if winner$ = "Cucumber"
   text 100, 186, "OH YOU WON Mr."+ winner$+"! DONT YOU FEEL LUCKY TODAY?"
else
if winner$ = lastwinner1$
   if winner$ = "NOBODY"
      else
   text 100, 186, "LUCKY BASTARD "+ winner$+" HAS WON THE LAST ROUND AGAIN!!"
   endif
else
text 100, 186, winner$+" HAS WON THE LAST ROUND"
text 100, 200, "AND "+winner$+" GETS 10$ IN HIS POCKET"
text 100, 214, "BIGGEST DICE TOTAL IS "+str$(result)+" BY "+winner$
endif
endif
endif
endif


for t = 0 to 3
   text t*100+text width("DICE1: "), 20, str$(player(t).dice.a)
   text t*100+text width("DICE1: "), 34, str$(player(t).dice.b)
   text t*100+text width("TOTAL: "), 48, str$(player(t).dice.t)
   text t*100+text width("TOTAL: "), 86, str$(player(t).money)
next t

until returnkey()


Function rollDice(n As Integer)
   player(n).dice.a = INT(RND(5) + 1)
   player(n).dice.b = INT(RND(5) + 1)
      player(n).dice.t = player(n).dice.a + player(n).dice.b
EndFunction

Function button(x As Integer, y As Integer, str As String)
ink rgb(220, 20, 20), 0
box x-5, y-5, x+text width(str)+5, y+text height(str)+5
if mousex() > x and mousex() < x+text width(str) and mousey() > y and mousey() < y+text height(str)
   ink rgb(20, 220, 20), 0
   box x, y, x+text width(str), y+text height(str)
      if mouseclick() and click = 0 then click = 1
         if click = 1
            click = 2
            clicked = 1
            ink rgb(20, 180, 20), 0
            box x, y, x+text width(str), y+text height(str)
         endif
      if mouseclick() = 0 then click = 0 : clicked = 0
      else
   ink rgb(220, 220, 220), 0
   box x, y, x+text width(str), y+text height(str)
endif
ink rgb(220, 20, 20), 0
text x, y, str
EndFunction clicked


Function Max2(a,b)
   if a>b
      res=a
         else
      res=b
   endif
   if a=b
      res=0
   endif
EndFunction res

Sync On: Sync Rate 60: Autocam Off

Make_Die(1)

Position Object 1,0,-2,8

Do
   Turn Object Left 1,.5
   Pitch Object Down 1,.8
   Sync
Loop







Function Make_Die(Obj)
   `If Image 11 exists, then we don't need to make the Dice side images.
   If Image Exist(11)=0
      `Make sure there is no conflict by using Bitmap 1
      If Bitmap Exist(1)
         Delete Bitmap 1
      Endif
      `Make six sides
      Restore Dot_Locations
      `Make Bitmap 1
      Create Bitmap 1,512,512
      `Make the drawing part go faster
      Lock Pixels
      For i = 1 to 6
         `White sides
         ink Rgb(255,255,255),0
         Box 0,0,512,512
         `Rounded corners of the die
         For j=0 to 25
            Ink Rgb(255-j^1.5,255-j^1.5,255-j^1.5),0
            Line 25-j,25-j,487+j,25-j
            Line 25-j,487+j,487+j,487+j
            Line 25-j,25-j,25-j,487+j
            Line 487+j,25-j,487+j,487+j
         Next j
         `Draw the dot's
         For j = 1 to i
            Read x,y
            For r=0 to 28
               Ink Rgb(r*5,r*5,r*5),0
               Circle x,y,r
               Circle x-1,y,r
            Next r
         Next j
         `Get the image
         Get Image 10+i,0,0,512,512,1
      Next i
      Delete Bitmap 1
   Endif
   `Just incase the object already exists
   If Object Exist(obj) Then Delete Object obj
   Make Object Plain obj,1,1
   `Make a mesh from the plain so we can add limbs
   Make Mesh From Object 1,1
   `Offset the limb to make the edges, not quite 1/2 the size of the box.
   Offset Limb obj,0,0,0,.499
   `Add the next side
   Add Limb obj,1,1
   `And offset it
   Offset Limb obj,1,0,0,-.499
   `And so on...
   Add Limb obj,2,1
   Offset Limb obj,2,0,.499,0
   Rotate Limb obj,2,90,0,0

   Add Limb obj,3,1
   Offset Limb obj,3,0,-.499,0
   Rotate Limb obj,3,90,0,0

   Add Limb obj,4,1
   Offset Limb obj,4,.499,0,0
   Rotate Limb obj,4,0,90,0

   Add Limb obj,5,1
   Offset Limb obj,5,-.499,0,0
   Rotate Limb obj,5,0,90,0

   `Now that all the sides are done, add in the textures
   For i = 0 to 5
      Texture Limb obj,i,11+i
   Next i
   Set Object Cull obj,0
   Set Object Emissive obj,rgb(100,100,100)
Endfunction



Dot_Locations:
Data 256,256
Data 128,128,384,384
Data 128,384,256,256,384,128
Data 128,128,128,384,384,384,384,128
Data 128,128,128,384,384,384,384,128,256,256
Data 128,128,128,384,384,384,384,128,128,256,384,256

Set Display Mode 1024,768,32
Sync On: Sync Rate 60: Autocam Off



sk=0

Do
   If Spacekey() and sk=0
      Roll=Roll_Die()
      sk=1
   Endif
   sk=(Spacekey() and sk=1)
   Set Cursor 0,0
   Print Roll
   Sync
Loop

Function Roll_Die()
   dieroll=rnd(5)+1
   x#=rnd(20)-10
   y#=rnd(10)
   d=Free_Die()
   Make_Die(d)
   xp#=0
   For yp = -15 to y#
      xp#=xp#+(x#/(y#+15.0))
      Position Object d,xp#,yp,20
      Pitch Object Down d,7
      Turn Object Right d,Rnd(14)-7
      Sync
   Next yp
   Restore Die_Rotations
   For i = 1 to dieroll
      Read x,y,z
   Next i
   Rotate Object d,x,y,z
Endfunction dieroll




Function Make_Die(Obj)
   `If Image 11 exists, then we don't need to make the Dice side images.
   If Image Exist(11)=0
      `Make sure there is no conflict by using Bitmap 1
      If Bitmap Exist(1)
         Delete Bitmap 1
      Endif
      `Make six sides
      Restore Dot_Locations
      `Make Bitmap 1
      Create Bitmap 1,512,512
      `Make the drawing part go faster
      Lock Pixels
      For i = 1 to 6
         `White sides
         ink Rgb(255,255,255),0
         Box 0,0,512,512
         `Rounded corners of the die
         For j=0 to 35
            Ink Rgb(255-j^1.3,255-j^1.3,255-j^1.3),0
            Line 35-j,25-j,477+j,35-j
            Line 35-j,477+j,477+j,477+j
            Line 35-j,35-j,35-j,477+j
            Line 477+j,35-j,477+j,477+j
         Next j
         `Draw the dot's
         For j = 1 to i
            Read x,y
            For r=0 to 28
               Ink Rgb(r*5,r*5,r*5),0
               Circle x,y,r
               Circle x-1,y,r
            Next r
         Next j
         `Get the image
         Get Image 10+i,0,0,512,512,1
      Next i
      Delete Bitmap 1
   Endif
   `Just incase the object already exists
   If Object Exist(obj) Then Delete Object obj
   Make Object Plain obj,1,1
   `Make a mesh from the plain so we can add limbs
   Make Mesh From Object 1,obj
   `Offset the limb to make the edges, not quite 1/2 the size of the box.
   Offset Limb obj,0,0,0,.49999
   `Add the next side
   Add Limb obj,1,1
   `And offset it
   Offset Limb obj,1,0,0,-.49999
   `And so on...
   Add Limb obj,2,1
   Offset Limb obj,2,0,.49999,0
   Rotate Limb obj,2,90,0,0

   Add Limb obj,3,1
   Offset Limb obj,3,0,-.49999,0
   Rotate Limb obj,3,90,0,0

   Add Limb obj,4,1
   Offset Limb obj,4,.49999,0,0
   Rotate Limb obj,4,0,90,0

   Add Limb obj,5,1
   Offset Limb obj,5,-.49999,0,0
   Rotate Limb obj,5,0,90,0

   `Now that all the sides are done, add in the textures
   For i = 0 to 5
      Texture Limb obj,i,11+i
   Next i
   Set Object Cull obj,0
   Set Object Emissive obj,rgb(100,100,100)
   Set Object Light obj,0
Endfunction

Function Free_Die()
   flag=0
   For i = 1201 to 1300
      If Object Exist(i)=0
         flag=1
         Exit
      Endif
   Next i
   i=i*flag
Endfunction i

Function Delete_Dice()
   Delete Objects 1201,1300
Endfunction

Dot_Locations:
Data 256,256
Data 128,128,384,384
Data 128,384,256,256,384,128
Data 128,128,128,384,384,384,384,128
Data 128,128,128,384,384,384,384,128,256,256
Data 128,128,128,384,384,384,384,128,128,256,384,256

Die_Rotations:
Data -180,0,0
Data 0,0,0
Data -90,0,0
Data 90,0,0
Data 0,90,0
Data 0,-90,0

sync on
sync rate 70
autocam off

media()
camera()

do
   randomize timer()
   race()
   sync
loop

function media()
`make horses
for h = 1 to 5
make object box h,3,3,3
next h
`make matrix
make matrix 1,50,100,10,10
`positioning horses
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
endfunction

function camera()
`camera position
position camera 0,20,100,160
point camera 0,20,-1,10
endfunction

function race()
`store values
ran1 = rnd(8)
ran2 = rnd(8)
ran3 = rnd(8)
ran4 = rnd(8)
ran5 = rnd(8)
`move horses
move object 1,ran1
move object 2,ran2
move object 3,ran3
move object 4,ran4
move object 5,ran5
endfunction

sync on
sync rate 60
autocam off

global speed#=20.0
media()
camera()

do
   randomize timer()
   race()
   sync
loop

function media()
`make horses
for h = 1 to 5
make object box h,3,3,3
next h
`make matrix
make matrix 1,50,100,10,10
`positioning horses
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
endfunction

function camera()
`camera position
position camera 0,20,100,160
point camera 0,20,-1,10
endfunction

function race()
`store values
ran1# = rnd(8)/speed#
ran2# = rnd(8)/speed#
ran3# = rnd(8)/speed#
ran4# = rnd(8)/speed#
ran5# = rnd(8)/speed#
`move horses
move object 1,ran1#
move object 2,ran2#
move object 3,ran3#
move object 4,ran4#
move object 5,ran5#
endfunction

sync on
sync rate 60
autocam off

set global collision on
global speed# = 20.0
global size = 150

textures()
media()
camera()

do
   automatic object collision 100,6,1
   show object bounds 100
   randomize timer()
   race()
   collision()
   sync
loop

function media()
`make horses
for h = 1 to 5
make object box h,3,3,3
next h
`make wall object
make object box 100,60,5,5
position object 100,20,0,150
`ghost object on 100
`make matrix
make matrix 1,50,size,10,10
prepare matrix texture 1,1,1,1
`positioning horses
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
endfunction

function camera()
`camera position
position camera 0,20,100,160
point camera 0,20,-1,10
endfunction

function race()
`store values
ran1# = rnd(12)/speed#
ran2# = rnd(12)/speed#
ran3# = rnd(12)/speed#
ran4# = rnd(12)/speed#
ran5# = rnd(12)/speed#
`move horses
move object 1,ran1#
move object 2,ran2#
move object 3,ran3#
move object 4,ran4#
move object 5,ran5#
if object position z(1) => 40
position camera 0,20,100,220
point camera 0,20,-1,30
endif
endfunction

function collision()
`stops horses
remstart
for i = 1 to 5
oldx# = object position x(i)
oldz# = object position z(i)
if object collision(i,0) > 99
position object ,oldx#,0,oldz#
next i
remend
for i = 1 to 5
automatic object collision i,4,1
next i
endfunction

function textures()
`makes textures for game
for x = 1 to 300
for y = 1 to 300
color = rgb(rnd(50),rnd(200),rnd(169))
dot x,y,color
next x
next y
get image 1,0,0,300,300
endfunction

sync on
sync rate 60
autocam off

set global collision on
global speed# = 20.0
global size = 150

textures()
media()
camera()

do
`   automatic object collision 100,6,1
`   show object bounds 100
   winner=_check_winner()
   if winner>0 then _post_winner(winner)
   randomize timer()
   race()
   collision()
   sync
loop

function _post_winner(winner)
center text screen width()/2,screen height()/2,"The WINNER is horse# "+str$(winner)
sync
wait key
endfunction

function _check_winner()
hitnum=object collision(100,0)
endfunction hitnum

function media()
`make horses
for h = 1 to 5
make object box h,3,3,3
next h
`make wall object
make object box 100,60,5,5
position object 100,20,0,150
`ghost object on 100
`make matrix
make matrix 1,50,size,10,10
prepare matrix texture 1,1,1,1
`positioning horses
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
endfunction

function camera()
`camera position
`position camera 0,20,100,160
`point camera 0,20,-1,10
position camera 0,150,50,80
point camera 0,-100,0,80
endfunction

function race()
`store values
ran1# = rnd(12)/speed#
ran2# = rnd(12)/speed#
ran3# = rnd(12)/speed#
ran4# = rnd(12)/speed#
ran5# = rnd(12)/speed#
`move horses
move object 1,ran1#
move object 2,ran2#
move object 3,ran3#
move object 4,ran4#
move object 5,ran5#
if object position z(1) => 40
`position camera 0,20,100,220
`point camera 0,20,-1,30
endif
endfunction

function collision()
`stops horses
remstart
for i = 1 to 5
oldx# = object position x(i)
oldz# = object position z(i)
if object collision(i,0) > 99
position object ,oldx#,0,oldz#
next i
remend
for i = 1 to 5
automatic object collision i,4,1
next i
endfunction

function textures()
`makes textures for game
for x = 1 to 300
for y = 1 to 300
color = rgb(rnd(50),rnd(200),rnd(169))
dot x,y,color
next x
next y
get image 1,0,0,300,300
endfunction

Rem Project: casinoGame
Rem Created: 18.03.2006 17:59:01

Rem ***** Main Source File *****

Type num
 a As Integer
 b As Integer
 t As Integer
EndType
Type players
   name As String
   turn As Integer
   money As Integer
   dice As num
EndType
GLOBAL dice1, dice2
DIM player(4) As Players

player(0).name = "Player"
player(0).money = 100
player(1).name = "Joe"
player(1).money = 100
player(2).name = "Jack"
player(2).money = 100
player(3).name = "Cucumber"
player(3).money = 100

repeat
cls

for p = 0 to 3
      text p*100, 0, player(p).name
      line p*100, 0, p*100, 100
      text p*100, 20, "DICE1: "
      text p*100, 34, "DICE2: "
      text p*100, 48, "TOTAL: "
      text p*100, 86, "MONEY: "
next p

clicked0 = button(10, 110, "ROLL DICE")
if clicked0 > 0 and roll0 = 0 then roll0 = 1
   if roll0 = 1
      roll0 = 2
      rollDice(0) : turn = 0
         rollDice(1) : turn = 1
         rollDice(2) : turn = 2
         rollDice(3) : turn = 3
   endif
if clicked0 = 0 then roll0 = 0

if turn = 3
   turn = 4
      wina = Max2(player(0).dice.t,player(1).dice.t)
      winb = Max2(player(2).dice.t,player(3).dice.t)
         if wina = 0 and winb = 0
            result = 0
         endif
         if wina = 0 and winb > 0
            winf = Max2(player(0).dice.t, winb)
               if winf > 0
                  result = winf
                     else
                  result = 0
               endif
         endif
         if wina > 0 and winb = 0
            winf = Max2(wina, player(2).dice.t)
               if winf > 0
                  result = winf
                     else
                  result = 0
               endif
         endif
         if wina > 0 and winb > 0
            winf = Max2(wina, winb)
            result = winf
         endif


      lastwinner1$ = winner$
      for f = 0 to 3
         if result = player(f).dice.t
            player(f).money = player(f).money + 10
            winner$ = player(f).name
         endif
         if result = 0
            winner$ = "NOBODY"
         endif
      next f
endif
if winner$ = ""
else
if winner$ = "NOBODY"
   text 100, 186, "NOBODY WINS THIS ROUND THERE IS EQUALITY"
else
if winner$ = "Player"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."
else
if winner$ = "Joe"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."
else
if winner$ = "Jack"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."
else
if winner$ = "Cucumber"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."

endif
endif
endif
endif
endif
endif


for t = 0 to 3
   text t*100+text width("DICE1: "), 20, str$(player(t).dice.a)
   text t*100+text width("DICE1: "), 34, str$(player(t).dice.b)
   text t*100+text width("TOTAL: "), 48, str$(player(t).dice.t)
   text t*100+text width("TOTAL: "), 86, str$(player(t).money)
next t

until returnkey()


Function rollDice(n As Integer)
   player(n).dice.a = INT(RND(5) + 1)
   player(n).dice.b = INT(RND(5) + 1)
      player(n).dice.t = player(n).dice.a + player(n).dice.b
EndFunction

Function button(x As Integer, y As Integer, str As String)
ink rgb(220, 20, 20), 0
box x-5, y-5, x+text width(str)+5, y+text height(str)+5
if mousex() > x and mousex() < x+text width(str) and mousey() > y and mousey() < y+text height(str)
   ink rgb(20, 220, 20), 0
   box x, y, x+text width(str), y+text height(str)
      if mouseclick() and click = 0 then click = 1
         if click = 1
            click = 2
            clicked = 1
            ink rgb(20, 180, 20), 0
            box x, y, x+text width(str), y+text height(str)
         endif
      if mouseclick() = 0 then click = 0 : clicked = 0
      else
   ink rgb(220, 220, 220), 0
   box x, y, x+text width(str), y+text height(str)
endif
ink rgb(220, 20, 20), 0
text x, y, str
EndFunction clicked


Function Max2(a,b)
   if a>b
      res=a
         else
      res=b
   endif
   if a=b
      res=0
   endif
EndFunction res

Type num
 a As Integer
 b As Integer
 t As Integer
EndType
Type players
   name As String
   turn As Integer
   money As Integer
   dice As num
EndType
GLOBAL dice1, dice2
DIM player(4) As Players

player(0).name = "Player"
player(0).money = 100
player(1).name = "Joe"
player(1).money = 100
player(2).name = "Jack"
player(2).money = 100
player(3).name = "Cucumber"
player(3).money = 100

repeat
cls
set cursor 0, 300
print "wina: ",wina
print "winb: ",winb
print "winf: ",winf
print "result: ",result
for p = 0 to 3
      text p*100, 0, player(p).name
      line p*100, 0, p*100, 100
      text p*100, 20, "DICE1: "
      text p*100, 34, "DICE2: "
      text p*100, 48, "TOTAL: "
      text p*100, 86, "MONEY: "
next p

clicked0 = button(10, 110, "ROLL DICE")
if clicked0 > 0 and roll0 = 0 then roll0 = 1
   if roll0 = 1
      roll0 = 2
      bet = 20
      for f = 0 to 3
         if player(f).money <> 0
         player(f).money = player(f).money - 5
         rollDice(f) : turn = f
         endif
         if player(f).money = 0
         player(f).dice.a = 0
         player(f).dice.b = 0
         player(f).dice.t = 0
         endif
      next f

   endif
if clicked0 = 0 then roll0 = 0

if turn = 3
   turn = 4

   wina = Max2(player(0).dice.t,player(1).dice.t)
   winb = Max2(player(2).dice.t,player(3).dice.t)

        if wina > 0 and winb > 0
               winf = Max2(wina, winb)
                  if winf > 0
                     result = winf
                        else
                     result = 0
                  endif
         else
         if wina > 0 and winb = 0
               winf = Max2(wina, player(2).dice.t)
                  if winf > 0
                     result = winf
                        else
                     result = 0
                  endif
         else
        if wina = 0 and winb > 0
               winf = Max2(player(0).dice.t, winb)
                  if winf > 0
                     result = winf
                        else
                     result = 0
                  endif

         endif
         endif
         endif



      lastwinner1$ = winner$
      for f = 0 to 3
      if player(f).money <> 0
         if result = player(f).dice.t
            player(f).money = player(f).money + bet
            winner$ = player(f).name
         endif
      endif
         if result = 0
            player(f).money = player(f).money + 5
            winner$ = "NOBODY"
         endif
      next f
endif


if winner$ = ""
else
if winner$ = "NOBODY"
   text 100, 186, "NOBODY WINS THIS ROUND THERE IS EQUALITY"
else
if winner$ = "Player"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."
else
if winner$ = "Joe"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."
else
if winner$ = "Jack"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."
else
if winner$ = "Cucumber"
   text 100, 186, "Conguratulations."+ winner$+"! YOU WON THE LAST ROUND."

endif
endif
endif
endif
endif
endif


for t = 0 to 3
   text t*100+text width("DICE1: "), 20, str$(player(t).dice.a)
   text t*100+text width("DICE1: "), 34, str$(player(t).dice.b)
   text t*100+text width("TOTAL: "), 48, str$(player(t).dice.t)
   text t*100+text width("TOTAL: "), 86, str$(player(t).money)
next t

until returnkey()


Function rollDice(n As Integer)
   player(n).dice.a = INT(RND(5) + 1)
   player(n).dice.b = INT(RND(5) + 1)
      player(n).dice.t = player(n).dice.a + player(n).dice.b
EndFunction

Function button(x As Integer, y As Integer, str As String)
ink rgb(220, 20, 20), 0
box x-5, y-5, x+text width(str)+5, y+text height(str)+5
if mousex() > x and mousex() < x+text width(str) and mousey() > y and mousey() < y+text height(str)
   ink rgb(20, 220, 20), 0
   box x, y, x+text width(str), y+text height(str)
      if mouseclick() and click = 0 then click = 1
         if click = 1
            click = 2
            clicked = 1
            ink rgb(20, 180, 20), 0
            box x, y, x+text width(str), y+text height(str)
         endif
      if mouseclick() = 0 then click = 0 : clicked = 0
      else
   ink rgb(220, 220, 220), 0
   box x, y, x+text width(str), y+text height(str)
endif
ink rgb(220, 20, 20), 0
text x, y, str
EndFunction clicked


Function Max2(a,b)
   if a>b
      res=a
         else
      res=b
   endif
   if a=b
      res=0
   endif
EndFunction res

Rem Project: Slot Machine
Rem Created: 3/18/2006 6:04:45 PM
REM Liberty Sevens
REM by MrBigger         v.1.0
Rem ***** Main Source File *****

`          DISCLAIMER
`This code was written for learning
`purposes and in no way condones gambling.
`By using this code you release the author
`of any responsiblity for your gambling
`habits.Your problem`s are your own.

`            NOTE
`If this is too loose you can tighten it up by
`unremming a different set of six data lines
`at the bottom of the program,just be sure
`to rem the set you are using now.
`Leave the last data line as is.
`............ENJOY!.............
sync on
sync rate 60
  if check display mode(800,600,32)=1
     SET DISPLAY MODE 800,600,32
     else
     SET DISPLAY MODE 800,600,16
  endif
autocam off:backdrop on:color backdrop 0:position camera (),0,-3,-50:set normalization on
#constant XOR ~~
randomize timer():oldtime# = timer():oldtime1# = timer()
dim virtual(64,3):dim actual(22):dim pay(3)
GOSUB PAR:GOSUB TEXTURES:GOSUB CREATE
`prep for viewport text
paid = 0:credits = 0:bet = 0:ink rgb(255,10,10),0:set text size 18
`start reels at jackpot
xrotate object 10,66:xrotate object 11,66:xrotate object 12,66
`dim all buttons
set object diffuse 21,rgb(50,50,50):set object diffuse 22,rgb(50,50,50):set object diffuse 23,rgb(50,50,50)
DO
  if timer() >= oldtime#+100 and mouseclick() = 0 then GOSUB RANDOM:oldtime# = timer()
GOSUB VIEWPORTS
button=PICK OBJECT(mouseX(), mousey(), 21, 27)
`spin reels
  if mouseclick() > 0 and button = 23 and bet > 0 and credits => bet
    dec credits,bet:go1 = 0:go2 = 0:go3 = 0:paid = 0
    set object diffuse 21,rgb(50,50,50):set object diffuse 22,rgb(50,50,50):set object diffuse 23,rgb(50,50,50)
      sp = 1:GOSUB SPIN:gosub payout:sp = 0
  endif
`bet 1
  if mouseclick() > 0 and button = 22 and timer() >= oldtime1#+150
    if bet < 3 and credits > bet
      inc bet
      else
      bet = 1
        if credits < 2 then set object diffuse 22,rgb(50,50,50)
    endif
   oldtime1# = timer()
  endif
`max bet
  if mouseclick() > 0 and button = 21 and credits > 2
    bet = 3:dec credits,bet:go1 = 0:go2 = 0:go3 = 0:paid = 0
    set object diffuse 21,rgb(50,50,50):set object diffuse 22,rgb(50,50,50):set object diffuse 23,rgb(50,50,50)
    sp = 1:GOSUB SPIN:gosub payout:sp = 0
      if bet > credits then bet = credits
  endif
if bet > credits then bet = credits
if credits > 2 and bet < 4 then set object diffuse 21,rgb(255,255,255):set object diffuse 22,rgb(255,255,255):set object diffuse 23,rgb(255,255,255)
if credits > 1 then set object diffuse 22,rgb(255,255,255):set object diffuse 23,rgb(255,255,255)
if credits = 1 then set object diffuse 23,rgb(255,255,255)
if credits > 0 and bet = 0 then bet = 1
if mouseclick() > 0 and button = 24 then end
if mouseclick() > 0 and button = 27 and credits < 200:credits = 200
  xrotate object 10,66:xrotate object 11,66:xrotate object 12,66
endif
`conrol chart
if mouseclick() > 0 and button = 26
  if scale = 0 then payout = 1
  if scale = 40 then payout = 0
endif
if payout = 1 and scale < 40
inc scale:scale sprite 1,scale:scale sprite 2,scale:scale sprite 3,scale:scale sprite 4,scale
if scale = 40 then payout = 2
endif
if payout = 0 and scale > 0
dec scale:scale sprite 1,scale:scale sprite 2,scale:scale sprite 3,scale:scale sprite 4,scale
if scale = 0 then payout = 2
endif
SYNC
LOOP
viewports:
`text 10,570,str$(screen fps())
text 25,4,"EXIT":text 25,34,"NEW":text 16,64,"CHART"
if credits = 0 and sp = 0
  ink rgb(255,255,255),0:text 214,40,"THANK YOU FOR PLAYING LIBERTY SEVENS":ink rgb(255,0,0),0
endif
text 250,347,"PAID":text 364,347,"CREDITS":text 486,347,"COINS BET"
if paid > 0 then text 230,375,str$(paid)
text 358,375,str$(credits):text 520,375,str$(bet)
return
SPIN:
do
`spin reels
  if go1 = 0 then xrotate object 10,wrapvalue(object angle x(10)-6)
  if go2 = 0 then xrotate object 11,wrapvalue(object angle x(11)-6)
  if go3 = 0 then xrotate object 12,wrapvalue(object angle x(12)-6)
`stop reels
  if timer() >= oldTime#+1200
    go1 = 1:hit = virtual(r1,1):hit1 = actual(hit):pay(1) = hit:xrotate object 10,hit1
  endif
  if timer() >= oldTime#+1800
    go2 = 1:hit = virtual(r2,2):hit1 = actual(hit):pay(2) = hit:xrotate object 11,hit1
  endif
  if timer() >= oldTime#+2300
    go3 = 1:hit = virtual(r3,3):hit1 = actual(hit):pay(3) = hit:xrotate object 12,hit1
    oldTime# = timer()
  endif
gosub viewports
sync
  if go3 = 1 then return
loop
return
payout:
`jackpot
if pay(1) = 11 and pay(2) = 11 and pay(3) = 11 then paid = 5000*bet:inc credits,5000*bet
`3 red sevens
if pay(1) = 1 or pay(1) = 13
  if pay(2) = 1 or pay(2) = 13
     if pay(3) = 1 or pay(3) = 13
        paid = 1000*bet:inc credits,1000*bet:nos = 3
endif:endif:endif
`3 white sevens
if pay(1) = 3 or pay(1) = 15
  if pay(2) = 3 or pay(2) = 15
     if pay(3) = 3 or pay(3) = 15
        paid = 200*bet:inc credits,200*bet
endif:endif:endif
`3 blue sevens
if pay(1) = 5 or pay(1) = 17
  if pay(2) = 5 or pay(2) = 17
     if pay(3) = 5 or pay(3) = 17
        paid = 100*bet:inc credits,100*bet
endif:endif:endif
`3 white bars
if pay(1) = 7 or pay(1) = 19
  if pay(2) = 7 or pay(2) = 19
     if pay(3) = 7 or pay(3) = 19
        paid = 50*bet:inc credits,50*bet
endif:endif:endif
`3 red bars
if pay(1) = 9 or pay(1) = 21
  if pay(2) = 9 or pay(2) = 21
     if pay(3) = 9 or pay(3) = 21
        paid = 25*bet:inc credits,25*bet
endif:endif:endif
`any 2 red sevens
  if nos < 3
    if pay(1) = 1 or pay(1) = 13 then inc nos,1
    if pay(2) = 1 or pay(2) = 13 then inc nos,1
    if pay(3) = 1 or pay(3) = 13 then inc nos,1
    if nos = 1 then paid = 2*bet:inc credits,2*bet
    if nos = 2 then paid = 10*bet:inc credits,10*bet
  endif
nos = 0
return
CREATE:
`backdrop
make object plain 8,256,206:texture object 8,2:position object 8,0,0,110
`wheel one
make object cylinder 10,10:scale object 10,400,100,400:color object 10,rgb(50,50,50)
position object 10,-12,0,16:texture object 10,1:zrotate object 10,90:fix object pivot 10
`wheel two
make object cylinder 11,10:scale object 11,400,100,400:position object 11,0,0,16:zrotate object 11,90:fix object pivot 11:texture object 11,1
`wheel three
make object cylinder 12,10:scale object 12,400,100,400:position object 12,12,0,16:zrotate object 12,90:fix object pivot 12:texture object 12,1
`payline
make object plain 13,34,.3:color object 13,rgb(255,00,00):position object 13,0,0,-4.9
`left divider
make object box 14,2,30,30:color object 14,rgb(150,150,150):position object 14,-6,-8,10
`right divider
make object box 15,2,30,30:color object 15,rgb(150,150,150):position object 15,6,-8,10
`righ side
make object box 16,2,30,30:position object 16,18,0,10:color object 16,rgb(150,0,0)
`left side
make object box 17,2,30,30:position object 17,-18,0,10:color object 17,rgb(150,0,0)
`sign top
make object box 18,34,8,1:texture object 18,7:position object 18,0,11,-4.2
`face bottom
make object box 19,35,8,1:texture object 19,6:position object 19,0,-11,-4
`tray
make object box 20,38,12,10:color object 20,rgb(20,20,150):position object 20,0,-20,-7:xrotate object 20,55
`bet max button
make object box 21,6,6,1:texture object 21,5:position object 21,0,-16,-11:xrotate object 21,55
`bet one button
make object box 22,6,6,1:texture object 22,3:position object 22,-10,-16,-11:xrotate object 22,55
`spin reels button
make object box 23,6,6,1:texture object 23,4:position object 23,10,-16,-11:xrotate object 23,55
`exit button
make object box 24,7,2,1:color object 24,rgb(255,100,100):position object 24,-36,26,1
`top
make object cylinder 25,2:color object 25,rgb(150,0,0):zrotate object 25,90:position object 25,0,15,-5:scale object 25,100,1900,100
`pay chart button
make object box 26,7,2,1:color object 26,rgb(100,100,255):position object 26,-36,20,1
`credit button
make object box 27,7,2,1:position object 27,-36,23,1
`pay chart
sprite 1,3,410,8:rotate sprite 1,270:scale sprite 1,40:sprite 2,20,410,9:rotate sprite 2,270:scale sprite 2,40
sprite 3,37,410,10:rotate sprite 3,270:scale sprite 3,40:sprite 4,60,91,11:scale sprite 4,40
scale sprite 1,0:scale sprite 2,0:scale sprite 3,0:scale sprite 4,0
return
TEXTURES:
rem reel texture
create bitmap 1,1100,50
`color reels
ink rgb(160,160,160),0:for i = 0 to 1099:line i,0,i,1100:next i
`blue seven
ink rgb(0,0,220),0:for la=65 to 80:line la,11,la,39:next la:for la=0 to 45:line 64-la,28-la/3,64-la,38-la/4:next la
`1 red bar
ink rgb(220,0,0),0:for la=140 to 160:line la,11,la,39:next la
`white seven
ink rgb(255,255,255),0:for la=265 to 280:line la,11,la,39:next la:for la=0 to 45:line 264-la,28-la/3,264-la,38-la/4:next la
`wild
ink rgb(220,0,0),0:for la=361 to 373:line la,11,la,39:next la:ink rgb(255,255,255),0:for la=343 to 355:line la,11,la,39:next la:ink rgb(0,0,220),0:for la=325 to 337:line la,11,la,39:next la
`red seven
ink rgb(220,0,0),0:for la=465 to 480:line la,11,la,39:next la:for la=0 to 45:line 464-la,28-la/3,464-la,38-la/4:next la
`2 white bars
ink rgb(255,255,255),0:for la=555 to 567:line la,11,la,39:next la:for la=537 to 549:line la,11,la,39:next la
`blue seven
ink rgb(0,0,220),0:for la=665 to 680:line la,11,la,39:next la:for la=0 to 45:line 664-la,28-la/3,664-la,38-la/4:next la
`1 red bar
ink rgb(220,0,0),0:for la=740 to 760:line la,11,la,39:next la
`white seven
ink rgb(255,255,255),0:for la=865 to 880:line la,11,la,39:next la:for la=0 to 45:line 864-la,28-la/3,864-la,38-la/4:next la
`red seven
ink rgb(220,0,0),0:for la=965 to 980:line la,11,la,39:next la:for la=0 to 45:line 964-la,28-la/3,964-la,38-la/4:next la
`2 white bars
ink rgb(255,255,255),0:for la=1055 to 1067:line la,11,la,39:next la:for la=1037 to 1049:line la,11,la,39:next la:get image 1,0,0,1100,50:delete bitmap 1:set current bitmap 0
`backdrop
create bitmap 1,256,256:set current bitmap 1
for i = 0 to 127:ink rgb(255,i*2,i*2),0:line 0,i,256,i:next i
for i = 128 to 256:ink rgb(-i*2,-i*2,255),0:line 0,i,256,i:next i
ink rgb(255,255,255),0:line 0,128,256,128:get image 2,0,0,256,256:delete bitmap 1:set current bitmap 0:cls
`viewport texture
create bitmap 1,256,256:set current bitmap 1:get image 6,0,0,256,256:delete bitmap 1:set current bitmap 0:cls
`sign texture
create bitmap 1,256,50:set current bitmap 1
ink rgb(175,175,175),0:for la=0 to 256:line la,0,la,50:next la
ink rgb(0,0,255),0:set text size 32:set text to bold:set text font "lucida calligraphy"
text 20,10,"Liberty":ink rgb(255,0,0),0:text 140,10,"Sevens"
get image 7,0,0,256,50:delete bitmap 1:set current bitmap 0:cls
`button textures
create bitmap 1,70,70:set current bitmap 1:set text font "verdana":set text size 14
ink rgb(220,220,220),0:for la=0 to 200:line la,0,la,200:next la:ink rgb(0,0,0),0:text 18,14,"BET":text 18,36,"ONE":get image 3,0,0,62,62:cls
ink rgb(220,220,220),0:for la=0 to 200:line la,0,la,200:next la:ink rgb(0,0,0),0:text 18,14,"MAX":text 18,36,"BET":get image 5,0,0,62,62:cls
ink rgb(220,220,220),0:for la=0 to 200:line la,0,la,200:next la:ink rgb(0,0,0),0:text 12,14,"SPIN":text 9,36,"REELS":get image 4,0,0,62,62:delete bitmap 1:set current bitmap 0
`pay chart
for ditto = 8 to 10
create bitmap 1,800,300
`color chart background
ink rgb(1,1,1),0:for i = 0 to 799:line i,0,i,800:next i
`wild
ink rgb(220,0,0),0:for la=761 to 773:line la,11,la,39:next la:ink rgb(255,255,255),0:for la=743 to 755:line la,11,la,39:next la:ink rgb(0,0,220),0:for la=725 to 737:line la,11,la,39:next la
`red seven
ink rgb(220,0,0),0:for la=665 to 680:line la,11,la,39:next la:for la=0 to 45:line 664-la,28-la/3,664-la,38-la/4:next la
`white seven
ink rgb(255,255,255),0:for la=565 to 580:line la,11,la,39:next la:for la=0 to 45:line 564-la,28-la/3,564-la,38-la/4:next la
`blue seven
ink rgb(0,0,220),0:for la=465 to 480:line la,11,la,39:next la:for la=0 to 45:line 464-la,28-la/3,464-la,38-la/4:next la
`2 white bars
ink rgb(255,255,255),0:for la=355 to 367:line la,11,la,39:next la:for la=337 to 349:line la,11,la,39:next la
`1 red bar
ink rgb(220,0,0),0:for la=240 to 260:line la,11,la,39:next la
if ditto < 10
`red seven
ink rgb(220,0,0),0:for la=165 to 180:line la,11,la,39:next la:for la=0 to 45:line 164-la,28-la/3,164-la,38-la/4:next la
endif
if ditto < 9
`red seven
ink rgb(220,0,0),0:for la=65 to 80:line la,11,la,39:next la:for la=0 to 45:line 64-la,28-la/3,64-la,38-la/4:next la
endif
get image ditto,0,0,800,300:delete bitmap 1:set current bitmap 0
next ditto
`pay chart text
create bitmap 1,305,800
`color chart back ground
ink rgb(1,1,1),0:for i = 0 to 799:line 0,i,800,i:next i
ink rgb(255,255,255),0:set text size 36
text 0,35, "Pays 5000 x Bet":text 0,135, "Pays 1000 x Bet":text 0,235, "Pays 200 x Bet":text 0,335, "Pays 100 x Bet"
text 0,435, "Pays 50 x Bet":text 0,535, "Pays 25 x Bet":text 0,635, "Any Pays 10 x Bet":text 0,735, "Any Pays 2 x Bet"
get image 11,0,0,305,800:delete bitmap 1:set current bitmap 0
return
Random:
ran = rnd(100000000):dom = ran/63:r1 = ran-(dom*63)+1:ran = rnd(100000000):dom = ran/63:r2 = ran-(dom*63)+1:ran = rnd(100000000):dom = ran/63:r3 = ran-(dom*63)+1
return
PAR:
restore PAR_CHART
  for reel = 1 to 3
    for vstop = 1 to 64
      read number:virtual(vstop,reel) = number
    next vstop
  next reel
 for tooth = 1 to 22
   read number:actual(tooth) = number
 next tooth
return
`**************************************************************************************
`first data set weights reels differently  (TIGHT)  Most realistic.
`second data set weights reels the same    (MEDIUM) eh.Win some Lose some.
`third data set weights reels the same     (LOOSE)  It`s fun to win.
`last data line is actual gears
PAR_CHART:
`data 3,11,17,1,19,12,22,4,5,15,10,13,5,3,14,21,19,7,10,16,11,15,1,4,21,12,9,20,10,17,21,7
`data 12,9,6,22,11,2,8,14,8,10,18,13,9,6,16,12,21,17,11,1,9,7,18,10,20,3,15,2,19,7,12,5
`data 12,5,19,10,14,2,11,8,16,18,4,5,12,9,1,17,7,11,20,8,3,17,6,16,10,21,2,9,13,21,6,15
`data 10,4,18,7,12,14,5,20,11,22,1,16,10,22,6,18,9,20,3,14,12,8,15,4,22,12,21,2,13,19,7,10
`data 8,14,2,17,12,7,16,10,20,12,5,4,10,19,12,3,10,21,9,18,6,16,10,1,22,7,12,2,17,8,14,4
`data 21,12,10,6,22,19,10,3,22,12,6,9,15,11,20,2,18,13,10,16,5,12,8,20,7,19,10,18,4,21,9,14

`data 7,14,10,3,5,17,8,1,12,10,19,14,5,22,2,12,9,15,4,20,11,13,17,7,1,19,3,21,10,22,6,16
`data 18,8,2,12,15,10,18,13,9,19,12,19,7,16,4,3,21,9,20,1,17,7,22,6,12,21,10,2,21,5,15,9
`data 7,14,10,3,5,17,8,1,12,10,19,14,5,22,2,12,9,15,4,20,11,13,17,7,1,19,3,21,10,22,6,16
`data 18,8,2,12,15,10,18,13,9,19,12,19,7,16,4,3,21,9,20,1,17,7,22,6,12,21,10,2,21,5,15,9
`data 7,14,10,3,5,17,8,1,12,10,19,14,5,22,2,12,9,15,4,20,11,13,17,7,1,19,3,21,10,22,6,16
`data 18,8,2,12,15,10,18,13,9,19,12,19,7,16,4,3,21,9,20,1,17,7,22,6,12,21,10,2,21,5,15,9

data 7,14,10,3,5,17,8,1,12,9,19,14,5,21,7,12,9,15,4,20,11,13,17,7,1,19,3,21,10,22,6,16
data 18,8,2,19,15,10,18,13,9,19,12,19,7,16,4,3,21,9,20,1,17,7,22,6,12,21,10,2,21,5,15,9
data 7,14,10,3,5,17,8,1,12,9,19,14,5,21,7,12,9,15,4,20,11,13,17,7,1,19,3,21,10,22,6,16
data 18,8,2,19,15,10,18,13,9,19,12,19,7,16,4,3,21,9,20,1,17,7,22,6,12,21,10,2,21,5,15,9
data 7,14,10,3,5,17,8,1,12,9,19,14,5,21,7,12,9,15,4,20,11,13,17,7,1,19,3,21,10,22,6,16
data 18,8,2,19,15,10,18,13,9,19,12,19,7,16,4,3,21,9,20,1,17,7,22,6,12,21,10,2,21,5,15,9

data 230,246,99,115,164,180,196,147,131,82,66,50,34,17,263,344,328,312,0,279,295,213

do
   winner = check_winner()
   if winner > 0 then post_winner(winner)
   randomize timer()
   race()
   sync
loop


function post_winner(winner)
center text screen width()/2,screen height()/2,"The WINNER is horse# "+str$(winner)
sync
check()
endfunction

function check_winner()
hitnum = object collision(100,0)
endfunction hitnum

winner=check_winner(winner)

function check_winner(lastwin)
if lastwin=0
 hitnum = object collision(100,0)
else
 hitnum=lastwin
endif
endfunction hitnum

global horsenum=3

randomize timer()
do
   winner = check_winner()
   if winner > 0 then post_winner(winner)
   race()
   sync
loop


function post_winner(winner)
center text screen width()/2,screen height()/2,"The WINNER is horse# "+str$(winner)
if horsenum=winner
   center text screen width()/2,screen height()/2-100,"You WIN!!! "
endif
sync
check()
endfunction

function check_winner()
hitnum = object collision(100,0)
endfunction hitnum

winner = 3
input "Please enter a number",bid,
if winner = bid
print "Works here because winner does equal bid"
else
if winner <> bid
print "Also works because winner doesn't equal bid"
endif
endif
wait key
end

sync on
sync rate 60
set display mode 1024,768,16
autocam off
hide mouse
randomize timer()

set global collision on
global speed# = 10.0
global size = 150
global money = 500
global bid = 0
global amount = 0
global horsenum = 3

intro()
camera()
textures()
media()
bets()

do
   winner = check_winner()
   if winner > 0 then post_winner(winner)
   race()
   sync
loop


function post_winner(winner)
center text screen width()/2,screen height()/2,"The WINNER is horse "+str$(winner)
winnings = money+5*amount
if horsenum = winner
   center text screen width()/2,screen height()/2-100,"You could WIN!!! "+str$(winnings)
endif
sync
check()
endfunction

function check_winner()
hitnum = object collision(100,0)
endfunction hitnum

function media()
`make horses
for h = 1 to 5
make object box h,3,3,3
next h
`make wall object
make object box 100,60,5,5
position object 100,20,0,150
ghost object on 100
`make matrix
make matrix 1,50,size,10,10
prepare matrix texture 1,1,1,1
position matrix 1,0,-1,0
`positioning horses
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
endfunction

function camera()
`camera position
position camera 0,150,50,80
point camera 0,-100,0,80
endfunction

function race()
`set info box
box 0,0,1024,100,rgb(125,120,250),rgb(15,220,50),rgb(212,20,50),rgb(75,70,80)
set cursor 450,10
print "Current money: $",money,
set cursor 450,25
print "Betting horse: ",bid,
`store values
ran1# = rnd(12)/speed#
ran2# = rnd(12)/speed#
ran3# = rnd(12)/speed#
ran4# = rnd(12)/speed#
ran5# = rnd(12)/speed#
`move horses
move object 1,ran1#
move object 2,ran2#
move object 3,ran3#
move object 4,ran4#
move object 5,ran5#
endfunction

function textures()
`makes textures for game
for x = 1 to 300
for y = 1 to 300
color = rgb(rnd(50),rnd(200),rnd(169))
dot x,y,color
next x
next y
get image 1,0,0,300,300
endfunction

function intro()
`Give introduction
set text font "Arial"
ink rgb(255,0,0),0
set text size 27
sync
center text 512,300,"Horbox Racing"
ink rgb(0,192,23),0
set text size 17
center text 512,330,"Place your bets, watch your horses and hopefully"
center text 512,360,"win some more money! Bid carfully though or you might"
center text 512,390,"end up broke!"
ink rgb(24,24,255),0
center text 768,690,"Bronze edition Created by Benjamin"
sync
wait key
cls
endfunction

function bets()
`place your bets!
`reset every thing hores
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
cls
sync
`sets the text colour and size
ink rgb(255,255,255),0
set text size 20
set text to bold
`makes the two boxes that will hold my text positionins them and rotates them
make object box 200,0,0.3,2
make object box 210,0,0.3,2
`rotate objects
for i = 200 to 210 step 10
xrotate object i,0
zrotate object i,0
next i
`positions all the objects
position object 200,camera position x(0)-5,camera position y(0)-0,camera position z(0)
position object 210,camera position x(0)-5,camera position y(0)-0.8,camera position z(0)
`get all the text into images for our objects
ink rgb(255,255,255),0
check$ = "Set bid amount:"
info$ = "Choose horse 1-5:"
text 0,0,check$
get image 2,0,0,text width(check$),text height(check$),1
texture object 200,2
`next image
cls
ink rgb(255,255,255),0
sync
text 0,0,info$
get image 3,0,0,text width(info$),text height(info$),2
texture object 210,3
`sets object lights down
set object light 200,0
set object light 210,0
`Get user info for amount and betting horse
money:
set cursor 512,300
input amount
if amount > money then gosub money
money = money-amount
bid:
set cursor 512,390
input bid
if bid > 5 then gosub bid
`refresh screen and sets text colours back to normal
ink rgb(255,255,255),0
`deletes objects
for i = 200 to 210 step 10
delete object i
next i
`bye bye
endfunction

function winning()
`shows you have won
center text 512,384,"YOU WIN MONEY!!!"
money = money+5*amount
sync
wait key
bets()
endfunction

function losing()
`shows that you have lost
center text 512,384,"YOU LOSE MONEY!!!"
money = money
if money = 0 then exit_()
sync
wait key
bets()
endfunction

function check()
`check to see if you have won
wait key
ink rgb(255,255,255,),0
cls
if bid = winner
winning()
else
if bid <> winner
losing()
endif
endif
endfunction

function exit_()
wait key
end
endfunction

Thank you Ric!
If you had not started these challenges I would never have finished a program yet! You got me of my backside and put my head down into programming! [b]Thank You!!! :)  :) [/b]

Thank you BillR!
Without your patient help this game would have a 200 page list of bugs! You patiently looked at my messy code and found out all the problems, fixed it up the fastest and best way possible. Without some of the things you showed me I could not have finished this on time!
[b]Thank You!!! :)  :) [/b]

sync on
sync rate 60
set display mode 1024,768,16
autocam off
hide mouse
randomize timer()

set global collision on
global speed# = 10.0
global size = 150
global money = 500
global bid = 0
global amount = 0
global winner

intro()
camera()
textures()
media()
bets()

do
   winner = check_winner()
   if winner > 0 then post_winner(winner)
   race()
   sync
loop


function post_winner(winner)
center text screen width()/2,screen height()/2,"The WINNER is horse "+str$(winner)
winnings = money+5*amount
 center text screen width()/2,screen height()/2-100,"You could WIN!!! "+str$(winnings)
sync
check()
endfunction

function check_winner()
hitnum = object collision(100,0)
endfunction hitnum

function media()
`make horses
for h = 1 to 5
make object box h,3,3,3
next h
`make wall object
make object box 100,60,5,5
position object 100,20,0,150
ghost object on 100
`make matrix
make matrix 1,50,size,10,10
prepare matrix texture 1,1,1,1
position matrix 1,0,-1,0
`positioning horses
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
endfunction

function camera()
`camera position
position camera 0,150,50,80
point camera 0,-100,0,80
endfunction

function race()
`set info box
box 0,0,1024,100,rgb(125,120,250),rgb(15,220,50),rgb(212,20,50),rgb(75,70,80)
set cursor 450,10
print "Current money: $",money,
set cursor 450,25
print "Betting horse: ",bid,
`store values
ran1# = rnd(12)/speed#
ran2# = rnd(12)/speed#
ran3# = rnd(12)/speed#
ran4# = rnd(12)/speed#
ran5# = rnd(12)/speed#
`move horses
move object 1,ran1#
move object 2,ran2#
move object 3,ran3#
move object 4,ran4#
move object 5,ran5#
endfunction

function textures()
`makes textures for game
for x = 1 to 300
for y = 1 to 300
color = rgb(rnd(50),rnd(200),rnd(169))
dot x,y,color
next x
next y
get image 1,0,0,300,300
endfunction

function intro()
`Give introduction
set text font "Arial"
ink rgb(255,0,0),0
set text size 27
sync
center text 512,300,"Horbox Racing"
ink rgb(0,192,23),0
set text size 17
center text 512,330,"Place your bets, watch your horses and hopefully"
center text 512,360,"win some more money! Bid carfully though or you might"
center text 512,390,"end up broke!"
ink rgb(24,24,255),0
center text 768,690,"Bronze edition Created by Benjamin"
sync
wait key
cls
endfunction

function bets()
`place your bets!
`reset every thing hores
position object 1,48,0,0
position object 2,38,0,0
position object 3,28,0,0
position object 4,18,0,0
position object 5,8,0,0
cls
sync
`sets the text colour and size
ink rgb(255,255,255),0
set text size 20
set text to bold
`makes the two boxes that will hold my text positionins them and rotates them
make object box 200,0,0.3,2
make object box 210,0,0.3,2
`rotate objects
for i = 200 to 210 step 10
xrotate object i,0
zrotate object i,0
next i
`positions all the objects
position object 200,camera position x(0)-5,camera position y(0)-0,camera position z(0)
position object 210,camera position x(0)-5,camera position y(0)-0.8,camera position z(0)
`get all the text into images for our objects
ink rgb(255,255,255),0
check$ = "Set bid amount:"
info$ = "Choose horse 1-5:"
text 0,0,check$
get image 2,0,0,text width(check$),text height(check$),1
texture object 200,2
`next image
cls
ink rgb(255,255,255),0
sync
text 0,0,info$
get image 3,0,0,text width(info$),text height(info$),2
texture object 210,3
`sets object lights down
set object light 200,0
set object light 210,0
`get amount
money:
set cursor 512,300
input amount
if amount > money then gosub money
money = money-amount
bid:
set cursor 512,390
input bid
if bid > 5 then gosub bid
`refresh screen and sets text colours back to normal
ink rgb(255,255,255),0
`deletes objects
for i = 200 to 210 step 10
delete object i
next i
`bye bye
endfunction

function winning()
`shows you have won
center text 512,384,"YOU WIN MONEY!!!"
money = money+5*amount
sync
wait key
bets()
endfunction

function losing()
`shows that you have lost
center text 512,384,"YOU LOSE MONEY!!!"
money = money
if money = 0 then exit_()
sync
wait key
bets()
endfunction

function check()
`check to see if you have won
wait key
ink rgb(255,255,255,),0
cls
if bid = winner
winning()
else
if bid <> winner
losing()
endif
endif
endfunction

function exit_()
wait key
end
endfunction