---

Long time this thread has been sleeping.I made a poor tank with no media long time ago...now it has no textures and no firing to fit in 20 lines code.

I hope you like it

Merry Christams you all !!

sorry....the code is in post down below

---

Sorry...I don´t know how to edit.




+ Code Snippet

autocam off:sync on: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: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
clone object 3,1:offset limb 3,0,0,-18,0: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):make object box 5000,800,0,800
position object 5000,0,-10,0:color object 5000,rgb(80,60,0):position camera -40,40,-40:point camera 0,0,0:do: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: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:sync:loop

---

You don't know how to edit but you edited the post above? This made my day.

---

that looks pretty cool.

---

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.

+ Code Snippet

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.

---

Very cool!

---

Ha ha.....It looks great !!... I suppose you have been flying with the whole tank

cheers

---

But look at the time stamps, the edit came way after his second post.


You should increase the transparency a little more I think on the trails. And the trails should fade out after so long, otherwise the system would bog down pretty quickly with so many objects.

---

@Phaelax.

Yeahhh, you are right !! about transparency and fading trails, but it needs more code with the command " IF ", and if you put several "IF " in the same line, some commands stop working correctly, so there wasn´t room for much more code.

If it where a 50 lines challenge, I shouldn´t get rid of firing, and the tank model should be nicer as well.


+ Code Snippet

trail=100

The trail is created with one by one piece of trail, and when it is biger than 100, the first piece of trail is deleted, so there are not ever 101 pieces of trail on the ground.Even if we fade some of them and finally delete this trails, the engine of dark basic is working even more than if we delete them.

We could reduce the quantity of pieces that a going to form the trail in order not to slow down the system.