Sorry your browser is not supported!

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

backdrop on : color backdrop rgb(0,0,0)
hide mouse : sync on : set ambient light 35

rem --------------------- 3D OBJECT -------------------------------------
for di= 1 to 2
load object "dy.x",di : yrotate object di,180 : fix object pivot di
set object speed di,75 : set object frame di,1 : rem total object frames=239
next di
position object 1,3,0,0 : position object 2,-3,0,0


rem --------------------- IMAGES -----------------------------------------
load bitmap "dy.bmp",1
get image 1,0,0,64,64 : get image 2,64,0,128,64 : get image 3,128,0,192,64
get image 4,0,64,64,128 : get image 5,64,64,128,128 : get image 6,128,64,192,128
delete bitmap 1

gosub six : gosub six1

rem --------------------- GROUND ----------------------------------------
make matrix 1,50,50,12,12 : position matrix 1,-25,0,0
create bitmap 7,16,16 : cls rgb(0,45,0) : get image 7,0,0,16,16 : delete bitmap 7
prepare matrix texture 1,7,1,1 : `fill matrix 1,0,0

rem -------------------- POSITION CAMERA ----------------------------------
position camera 0,25,-9 : pitch camera down 33

bird=rnd(1000)
bird1=rnd(777)


Do

   if spacekey()=1 and stop=0
      wait 250
      redo:
         inc bird,3 : randomize bird : dye=rnd(6)
         if dye=0 then goto redo
         if dye=1 then gosub one
         if dye=2 then gosub two
         if dye=3 then gosub three
         if dye=4 then gosub four
         if dye=5 then gosub five
         if dye=6 then gosub six
      redo1:
         inc bird1,36 : randomize bird1 : dye1=rnd(6)
         if dye1=0 then goto redo1
         if dye1=1 then gosub one1
         if dye1=2 then gosub two1
         if dye1=3 then gosub three1
         if dye1=4 then gosub four1
         if dye1=5 then gosub five1
         if dye1=6 then gosub six1

      if object playing(1)=0 then play object 1 : play object 2
   endif

   rem --------- Makes sure the player can't roll again during a roll ---------
   if object playing(1)=1
      stop=1 : else : stop=0 : endif


   if object frame(1)>187 then set cursor 50,440 : print "U ROLLED ";dye+dye1
   text 215,20,"( PRESS SPACEBAR 2 ROLL DICE  )"

sync : loop


rem -------------- GO-SUBz ----------------------------------
rem -------- DYE
one:
   texture limb 1,2,5 : texture limb 1,3,6 : texture limb 1,4,1
   texture limb 1,5,2 : texture limb 1,6,3 : texture limb 1,7,4
return

two:
   texture limb 1,2,6 : texture limb 1,3,1 : texture limb 1,4,2
   texture limb 1,5,3 : texture limb 1,6,4 : texture limb 1,7,5
return

three:
   texture limb 1,2,1 : texture limb 1,3,2 : texture limb 1,4,3
   texture limb 1,5,4 : texture limb 1,6,5 : texture limb 1,7,6
return

four:
   texture limb 1,2,2 : texture limb 1,3,3 : texture limb 1,4,4
   texture limb 1,5,5 : texture limb 1,6,6 : texture limb 1,7,1
return

five:
   texture limb 1,2,3 : texture limb 1,3,4 : texture limb 1,4,5
   texture limb 1,5,6 : texture limb 1,6,1 : texture limb 1,7,2
return

six:
   texture limb 1,2,4 : texture limb 1,3,5 : texture limb 1,4,6
   texture limb 1,5,1 : texture limb 1,6,2 : texture limb 1,7,3
return

rem -------- DYE 2
one1:
   texture limb 2,2,5 : texture limb 2,3,6 : texture limb 2,4,1
   texture limb 2,5,2 : texture limb 2,6,3 : texture limb 2,7,4
return

two1:
   texture limb 2,2,6 : texture limb 2,3,1 : texture limb 2,4,2
   texture limb 2,5,3 : texture limb 2,6,4 : texture limb 2,7,5
return

three1:
   texture limb 2,2,1 : texture limb 2,3,2 : texture limb 2,4,3
   texture limb 2,5,4 : texture limb 2,6,5 : texture limb 2,7,6
return

four1:
   texture limb 2,2,2 : texture limb 2,3,3 : texture limb 2,4,4
   texture limb 2,5,5 : texture limb 2,6,6 : texture limb 2,7,1
return

five1:
   texture limb 2,2,3 : texture limb 2,3,4 : texture limb 2,4,5
   texture limb 2,5,6 : texture limb 2,6,1 : texture limb 2,7,2
return

six1:
   texture limb 2,2,4 : texture limb 2,3,5 : texture limb 2,4,6
   texture limb 2,5,1 : texture limb 2,6,2 : texture limb 2,7,3
return