this code loads some dice and ya roll different numbers by re-texturing the sides of the objects. (get tha ZIP File)

                                    ` 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,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
two:
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
three:
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
four:
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
five:
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
six:
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

rem -------- DYE 2
one1:
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
two1:
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
three1:
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
four1:
texture limb 2,2,1 : texture limb 1,3,2 : texture limb 1,4,3
texture limb 2,5,4 : texture limb 1,6,5 : texture limb 1,7,6
return
five1:
texture limb 2,2,2 : texture limb 1,3,3 : texture limb 1,4,4
texture limb 2,5,5 : texture limb 1,6,6 : texture limb 1,7,1
return
six1:
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