Why are you asking the same question again?
http://forum.thegamecreators.com/?m=forum_view&t=79941&b=7
There was plenty of help in the links I posted.
Just convert object to FVF 338 and then use the vertex commands and set the diffuse.
sync on : sync rate 60
d as dword
` make a texture
create bitmap 1,128,128
for x=0 to 127
for y=0 to 127
r=128+rnd(127)
ink rgb(r,r,r),0
dot x,y
next y
next x
blur bitmap 1,3
get image 1,0,0,128,128,1
delete bitmap 1
set current bitmap 0
make object sphere 1,10
texture object 1,1
convert object fvf 1,338
lock vertexdata for limb 1,0
vc=get vertexdata index count()
unlock vertexdata
c=0
do
c=wrapvalue(c+2)
n=128+(sin(c)*127.0)
lock vertexdata for limb 1,0
for v=0 to vc-1
e=v mod 3
select e
case 0 : d=rgb(n,n,0) : endcase
case 1 : d=rgb(0,n,n) : endcase
case 2 : d=rgb(0,255-n,0) : endcase
endselect
set vertexdata diffuse v,d
next v
unlock vertexdata
pitch object up 1,0.5
roll object left 1,0.1
turn object left 1,0.3
text 0,0,"Vertices = "+str$(vc)
sync
loop
Boo!
