Vaisseau spatial

dim lf,hf,l3d,h3d,angle_x,angle_z,angle_y ,ok_y,ok_z,stopit,cam_x,cam_z,vais_x,vais_y,cam_y
angle_x = 0

lf = screen_x
hf = screen_y - 30
height 0,hf
width 0,lf
caption 0, "Exo_traquer V 0.3"


l3d = lf - 8
h3d = hf - 34
scene3d 1
height 1,h3d
width 1,l3d
color 1,0,0,0
axes_show
cam_position 0,5,-10
light_position 0,100,0
left 1,60


3d_mesh 1
3d_load_object 1,"C:\Documents and Settings\utilisateur\Mes documents\Programmation\3d\exo-traquer\VAISSEAU2.3ds"
3d_x_rotate 1,angle_x

3d_sphere 2,1
3d_x_position 2,5
3d_y_position 2,0
3d_z_position 2,5

3d_sphere 3,1
3d_x_position 3,-5
3d_y_position 3,0
3d_z_position 3,5

3d_sphere 4,1
3d_x_position 4,5
3d_y_position 4,0
3d_z_position 4,-5

3d_sphere 5,1
3d_x_position 5,-5
3d_y_position 5,0
3d_z_position 5,-5

while stopit = 0

point_position o3d_x_position(1),o3d_y_position(1),o3d_z_position(1)

if scancode = 38
 angle_x = angle_x - 1
 3d_x_rotate 1,angle_x
 3d_move 1,0.5
end_if

if scancode = 40
 angle_x = angle_x + 1
 3d_x_rotate 1,angle_x
 3d_move 1,0.5
end_if

if scancode = 37
angle_y = angle_y + 1
3d_y_rotate 1,angle_y
3d_move 1,0.5
end_if

if scancode = 39
angle_y = angle_y - 1
3d_y_rotate 1,angle_y
3d_move 1,0.5
end_if

if scancode = 67
angle_z = angle_z + 1
3d_z_rotate 1,angle_z
end_if

if scancode = 86
angle_z = angle_z - 1
3d_z_rotate 1,angle_z
end_if

3d_move 1,0.1


if scancode = 27
terminate
stopit = 1
end_if

cam_x = sin(angle_y/57.33333) * -10 + o3d_x_position(1)
cam_z = cos(angle_y/57.33333) * -10 + o3d_z_position(1)
cam_y = o3d_y_position(1) + 5
cam_z_position cam_z
cam_x_position cam_x
cam_y_position cam_y

end_while

end

full_space  0
scene3D    1
full_space  1
color      1, 0, 0, 0

dim camera(5)
dim ship(5)
dim dir(1)
dim speed
dim x, z

for x=-2 to 2 step 4
    for z=-2 to 2 step 4
        speed = speed+1
        3D_box speed, 1, 1, 1
        3D_x_position speed, x
        3D_z_position speed, z
    next z
next x

speed = 10

3D_box 5, 1, 0.5, 1.5
3D_sphere 6, 1

repeat

    3D_x_position 6, ship(0)+ship(3)
    3D_y_position 6, ship(1)+ship(4)
    3D_z_position 6, ship(2)+ship(5)
    3D_move      5, Speed/100
    3D_point      5, 6
'    cam_x_position camera(0)
 '  cam_y_position camera(1)
  '  cam_z_position camera(2)
    point_x_position ship(0)
    point_y_position ship(1)
    point_z_position ship(2)

    ship(0)  = O3D_x_position(5)
    ship(1)  = O3D_y_position(5)
    ship(2)  = O3D_z_position(5)
    ship(3)  = sin(dir(0)/100)*cos(dir(1)/100)
    ship(4)  = sin(dir(1)/100)
    ship(5)  = cos(dir(0)/100)*cos(dir(1)/100)

    camera(0) = camera(0)+((camera(0)-camera(3))/10)
    camera(1) = camera(1)+((camera(1)-camera(4))/10)
    camera(2) = camera(2)+((camera(2)-camera(5))/10)
    camera(3) = ship(0)-(3*ship(3))
    camera(4) = ship(1)-(3*ship(4))
    camera(5) = ship(2)-(3*ship(5))
   
    if scancode = 37 then dir(0)=dir(0)+1
    if scancode = 38 then dir(1)=dir(1)+1
    if scancode = 39 then dir(0)=dir(0)-1
    if scancode = 40 then dir(1)=dir(1)-1
   
    wait 1
   
until scancode = 27

terminate