Hallo friends... I,m glad you like this litle code.
@Veron. Ha ha...I felt myself stupid... I couldn´t find the way to re-edit my post in order to mend the mess I did trying to send an image and the code...finally I found this "Edit post".
Here we have the an-compressed code with some english coments to help somehow other friends.
autocam off
sync on
hide mouse
//creatin tracks texture
ink rgb(0,0,0),1:box 0,0,122,80
for i= 1 to 10
ink rgb(70,60,60),1
box -10+i*12,30,i*12,50
next i
get image 1,2,0,122,80
get image 2,2,20,122,60
ink rgb(150,100,100),1
box 0,0,100,50
ink rgb(255,255,0),1
//traks body
make object cylinder 1,50
scale object 1,70,50,20
xrotate object 1,90:fix object pivot 1
texture object 1,1
scale object texture 1,5,1
set object 1,1,1,1,0
set object cull 1,0
offset limb 1,0,0,18,0
//making second track (copy of the first one)
clone object 3,1
offset limb 3,0,0,-18,0
//Tank body
make object box 2,30,3,21
make object box 5,30,2,2
make mesh from object 1,5
add limb 2,1,1
offset limb 2,1,10,5,0
delete mesh 1
delete object 5
color object 2,rgb(20,20,10)
//Floor
make object box 5000,800,0,800
position object 5000,0,-10,0
color object 5000,rgb(100,80,0)
position camera -70,70,-70
point camera 0,0,0
do
//positioning traks close to the body tank
s#=0.004
if upkey()
scroll object texture 1,-s#,0
scroll object texture 3,-s#,0
move object right 1,0.1
move object right 2,0.1
move object right 3,0.1
endif
if downkey()
scroll object texture 1,s#,0
scroll object texture 3,s#,0
move object left 1,0.1
move object left 2,0.1
move object left 3,0.1
endif
if leftkey()
g#=g#+0.2
scroll object texture 1,s#,0
scroll object texture 3,-s#,0
yrotate object 1,-g#
yrotate object 2,-g#
yrotate object 3,-g#
endif
if rightkey()
g#=g#-0.2
scroll object texture 1,-s#,0
scroll object texture 3,s#,0
yrotate object 1,-g#
yrotate object 2,-g#
yrotate object 3,-g#
endif
//trail headache
if upkey() or downkey() or leftkey() or rightkey()
si=si+1
if si>80 then si=1
if si=2
p=p+1
trail=100
make object box 1000+p,10,0,30:texture object 1000+p,2:scale object texture 1000+p,0.5,2:set alpha mapping on 1000+p,50
position object 1000+p,object position x(2),object position y(2)-5,object position z(2)
yrotate object 1000+p,object angle y(2):set object 1000+p,1,1,1,1,0
if p>trail then delete object 1000+p-trail
endif
endif
fps$="Fps: "+str$(screen fps())
set cursor 5,400:print fps$
sync
loop
cheers.
learning every day
