It's because you're coloring your objects after texturing, which wipes out the texture. You can't color AND texture, it's one or the other!
If you want to alter the color of a textured object try
SET OBJECT EMISSIVE:
hide mouse
sync on : sync rate 60
randomize timer()
load image "E:\Nut Run\pictures\texture.bmp",1
rem controled object
make object cube 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(255,0,0)
rem walls and ground
make object box 2,1000,1,1000
texture object 2,1
make object box 3,1,20,40
position object 3,0,2,30
texture object 3,1
make object box 4,40,20,1
position object 4,20,2,0
texture object 4,1
make object box 5,1,20,40
position object 5,40,2,30
texture object 5,1
make object box 6,40,20,1
position object 6,20,2,50
texture object 6,1
make object box 7,20,20,1
position object 7,10,2,40
texture object 7,1
make object box 8,1,20,20
position object 8,20,2,30
texture object 8, 1
make object box 9,1,20,20
position object 9,10,2,20
texture object 9,1
make object box 10,1,20,20
position object 10,20,2,30
texture object 10,1
make object box 11,20,20,1
position object 11,20,2,10
texture object 11,1
make object box 12,1,20,40
position object 12,30,2,20
texture object 12,1
make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000
make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001
rem sky
color backdrop 1000
rem collision
set object collision to boxes 2
rem main loop
do
rem level 1 print
center text 320,15,"Level 1" : set text to bold : set text size 30
rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#
rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#
rem camera
X1# = Object position x(1)
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#
inc count
if count=30
for c = 2 to 12
which=rnd(5)
if which=0 then set object emissive c,RGB(255,0,0)
if which=1 then set object emissive c,RGB(0,255,0)
if which=2 then set object emissive c,RGB(0,0,255)
if which=3 then set object emissive c,RGB(255,255,0)
if which=4 then set object emissive c,RGB(0,255,255)
if which=5 then set object emissive c,RGB(255,0,255)
next c
if count=30 then count=0
ENDIF
sync
loop
W:
do
set cursor 200,200 : set text size 10 : print "CONGRATULATIONS"
if returnkey()=1 then exit
p=p+1
if p>200 then exit
sync
loop
end
