here is the code
rem ********************
rem * Galactic Warrior *
rem ********************
rem * By Mike Schlueter*
rem ********************
rem * Nov. 1st 2005 *
rem ********************
hide mouse
sync on
sync rate 0
autocam off
set camera range 5,1000000
rem create space
load bitmap "Space.bmp",1
get image 1,0,0,256,256
delete bitmap 1
make object sphere 1,900000
set object 1,1,1,0
texture object 1,1
scale object texture 1,100,100
rem music
load music "starwars.mp3",1:loop music 1
rem planet
load bitmap "planetsurface.bmp",2
get image 2,0,0,256,256
delete bitmap 2
make object sphere 2,100000
position object 2,90000,90000,90000
texture object 2,2
scale object texture 2,5,5
load bitmap "clouds2.bmp",3
get image 3,0,0,242,225
delete bitmap 3
make object sphere 3,100500
position object 3,90000,90000,90000
ghost object on 3
texture object 3,3
rem scenery
load bitmap "spacecloud.bmp",4
get image 4,0,0,256,256
delete bitmap 4
for o=20 to 80
make object plain o,5000,5000
position object o,rnd(9000000*o),rnd(9000000*o),rnd(9000000*o)
rotate object o,rnd(360),rnd(360),rnd(360)
texture object o,4
scale object texture o,1,1
ghost object on o
next o
rem sun
load bitmap "sun01.bmp",7
get image 7,0,0,256,256
delete bitmap 7
make object plain 7,100000,100000
position object 7,-400000,-250,10000
yrotate object 7,90
texture object 7,7
scale object texture 7,1,1
ghost object on 7
rem player
load bitmap "tailflam.bmp",8
get image 8,0,0,129,256
make object plain 8,1,6
xrotate object 8,90
texture object 8,8
ghost object on 8
show limb 8,0
make object plain 9,1,6
xrotate object 9,90
texture object 9,8
delete bitmap 8
ghost object on 9
show limb 9,0
load bitmap "jetflam.bmp",10
get image 10,0,0,256,256
delete bitmap 10
make object plain 10,1.5,1.5
texture object 10,10
ghost object on 10
scale object texture 10,1,1
show limb 10,0
make object plain 11,1.5,1.5
texture object 11,10
ghost object on 11
scale object texture 11,1,1
show limb 11,0
load object "humanfighter.x",5
yrotate object 5,270
fix object pivot 5
scale object 5,50,50,50
position object 5,5000,5040,5000
glue object to limb 8,5,0
offset limb 8,0,-8,-1.4,1.5
rotate limb 8,0,90,0,270
glue object to limb 9,5,0
offset limb 9,0,-8,-1.4,-1.5
rotate limb 9,0,90,0,270
glue object to limb 10,5,0
offset limb 10,0,-6.5,-1.4,-1.5
rotate limb 10,0,0,90,0
glue object to limb 11,5,0
offset limb 11,0,-6.5,-1.4,1.5
rotate limb 11,0,0,90,0
load bitmap "tfb.bmp",9
get image 9,0,0,129,256
delete bitmap 9
rem ships
make object plain 12,10,10
texture object 12,10
ghost object on 12
scale object texture 12,1,1
show limb 12,0
make object plain 13,10,10
texture object 13,10
ghost object on 13
scale object texture 13,1,1
show limb 13,0
load object "CARRIER4.x",4
position object 4,5000,5000,5000
yrotate object 4,90
scale object 4,170,170,170
glue object to limb 12,4,0
offset limb 12,0,88,14,-14
rotate limb 12,0,0,135,0
glue object to limb 13,4,0
offset limb 13,0,88,14,9
rotate limb 13,0,0,45,0
make object box 14,80,17,10
glue object to limb 14,4,0
offset limb 14,0,20,29,10
set object collision on 5
rem Make drone to mark a back position
make object sphere 6,10
position object 6,5000,5000,5000
rem Update screen
sync
rem Main Loop
do
rem fps screen
fps#=screen fps()
text 0,0,"FPS: "+str$(fps#)
rem Control Player
if upkey()=1 then pitch object down 5,.5
if downkey()=1 then pitch object up 5,.5
if rightkey()=1 then turn object right 5,.5
if leftkey()=1 then turn object left 5,.5
move camera .5:move object 5,.5
if keystate(36)=1 then move camera 100:move object 5,100:texture object 8,9:texture object 9,9
if keystate(36)=0 then texture object 8,8:texture object 9,8
if inkey$()="," then roll object left 5,.3
if inkey$()="." then roll object right 5,.3
rem target
circle screen width()/2,screen height()/2,5
rem Get back position of object for camera
pitch object down 5,11
move object 5,-15
position object 6,object position x(5),object position y(5),object position z(5)
move object 5,15
pitch object up 5,11
rem Place camera and set orientation to object
position camera object position x(6),object position y(6),object position z(6)
set camera to object orientation 5
sync
rem Loop
loop