Quote: "I believe boxes and cubes have a repeated texture. I don't know if there is any way around that?"
I made this one long time ago, lucky still in my computer:
#constant mesh1 1
#constant dice 1 `this will be the center of the dice
#constant face1 1
#constant face2 2
#constant face3 3
#constant face4 4
#constant face5 5
#constant face6 6
load image "media\dice1.bmp",face1
load image "media\dice2.bmp",face2
load image "media\dice3.bmp",face3
load image "media\dice4.bmp",face4
load image "media\dice5.bmp",face5
load image "media\dice6.bmp",face6
make object plane dice,50,50
make mesh from object mesh1,dice
delete object dice
make object sphere dice,0
add limb dice,face1,mesh1
add limb dice,face2,mesh1
add limb dice,face3,mesh1
add limb dice,face4,mesh1
add limb dice,face5,mesh1
add limb dice,face6,mesh1
offset limb dice,face1,0,0,-25
offset limb dice,face2,0,0,25
offset limb dice,face3,25,0,0
offset limb dice,face4,-25,0,0
offset limb dice,face5,0,25,0
offset limb dice,face6,0,-25,0
rotate limb dice,face3,0,90,0
rotate limb dice,face4,0,90,0
rotate limb dice,face5,90,0,0
rotate limb dice,face6,90,0,0
texture limb dice,face1,face1
texture limb dice,face2,face2
texture limb dice,face3,face3
texture limb dice,face4,face4
texture limb dice,face5,face5
texture limb dice,face6,face6
set object cull dice,0
scale object dice,50,50,50
autocam off
position camera 0,0,-100
n=-1
do
backdrop off
set cursor 20,20
set text size 20
print "press right key to change the ghosting mode or left ley to back to normal"
set cursor screen width()/2-40,screen height()-100
if n<>-1
print "ghost mode= ",n
else
print "ghost mode= off"
endif
turn object left dice,-0.1
pitch object down dice,0.1
if rightkey()
color backdrop rgb(rnd(255),rnd(255),rnd(255))
wait 100
inc n,1
if n=6 then n=0
ghost object on dice,n
endif
if leftkey()
ghost object off dice
n=-1
endif
backdrop on
loop
end
wait key
end
