ok then, all converted, what it is, is the bases of what im considering makeing a game off. But basicly there one ship with two parical trails and two layers of never ending stars. Keys are as follows:
up = faster
down = slower
left = left
right = right
and the code it 20 lines reads as follows:
sync on : autocam off : for t=1000 to 1250 : make object sphere t,1 : if t < 1100
position object t,rnd(500)-250,-50,rnd(500)-250 : endif : if t >=1100 : position object t,rnd(1000)-500,-100,rnd(1000)-500 : endif
next t : load image "fire1.bmp",1 : load object "Ship.X",1 : scale object 1,1000,1000,1000 : position object 1,0,0,0
for t=1 to 2 : make object sphere t+10,1 : hide object t+10 : make particles t,2,1,15 : position particles t,0,-100,0
position particle emissions t,0,0,0 : set particle gravity t,0 : set particle velocity t,0 : set particle speed t,0.0075 : set particle life t,5
next t : color backdrop rgb(0,0,0) : position camera 0,200,0 : point camera 0,0,0 : set camera range 10,10000
shipturn#=0 : speed#=2.5 : do : for t=1000 to 1099 : if object position x(t) > object position x(1)+250
position object t,object position x(1)-250,-50,object position z(1)+rnd(500)-250 : endif : if object position z(t) > object position z(1)+250 : position object t,object position x(1)+rnd(500)-250,-50,object position z(1)-250 : endif
if object position x(t) < object position x(1)-250 : position object t,object position x(1)+250,-50,object position z(1)+rnd(500)-250 : endif : if object position z(t) < object position z(1)-250 : position object t,object position x(1)+rnd(500)-250,-50,object position z(1)+250
endif : next t : for t=1100 to 1250 : if object position x(t) > object position x(1)+500 : position object t,object position x(1)-500,-100,object position z(1)+rnd(1000)-500
endif : if object position z(t) > object position z(1)+500 : position object t,object position x(1)+rnd(1000)-500,-100,object position z(1)-500 : endif : if object position x(t) < object position x(1)-500
position object t,object position x(1)+500,-100,object position z(1)+rnd(1000)-500 : endif : if object position z(t) < object position z(1)-500 : position object t,object position x(1)+rnd(1000)-500,-100,object position z(1)+500 : endif
next t : if leftkey()=1 : shipturn#=shipturn#-5 : endif : if rightkey()=1
shipturn#=shipturn#+5 : endif : if upkey()=1 : speed#=speed#+0.25 : endif
if downkey()=1 : speed#=speed#-0.25 : endif : shipturn=wrapvalue(shipturn#) : yrotate object 1,shipturn#
move object 1,speed# : for t=1 to 2 : position object t+10,object position x(1),object position y(1),object position z(1) : yrotate object t+10,wrapvalue(shipturn#+180) : move object t+10,25
if t=1 : yrotate object 11,wrapvalue(shipturn#+90) : endif : if t=2 : yrotate object 12,wrapvalue(shipturn#-90)
endif : move object t+10,15 : position particle emissions t,object position x(t+10)/15,object position y(t+10)/15,object position z(t+10)/15 : next t : position camera object position x(1),200,object position z(1)
sync : loop
downloaded at http://members.tripod.co.uk/nskid/test.zip *oh you'll need dbpro to run it as i don't have the time at the min to upload the exe, sorry
i'll try and get it uploaded tomorow
Skid
