profitez

  rem * anthony rey programmé*


cls
full_space 0




picture 5

file_load 5,"LOADSCREEN.bmp"
full_space 5



dim angle_y :rem angle de rotation autour de Y
dim x,z:rem coordonnées de l'objet dans le plan XZ
dim vitesse
dim acceleration
acceleration = 0.01
vitesse=0
dim a$
label loop
label mort
label mort2

DIM sd
dim rotax
dim pdi
dim rotay
dim rotaz
dim vue
vue=1
x=0
z=-200

sd=1
rotax =0
rotay =0
rotaz =0

a$=xwing
rem la fenêtre FORM0 prend tout l'écran

caption 0,"Earth Defender 0.5 - Terre Zone I -"


rem on crée une scene3D qui prend tout l'écran
scene3D 1:color 1,10,10,100:full_space 1

rem *creation du xwing en 3d *
3d_mesh 1
3d_load_object 1,a$ +".3ds"


    rem *positionement du xwing*

3d_z_position 1,z
3d_y_position 1,1000

    rem *positionemment de la cam*
cam_z_position z-10
cam_y_position 0



 rem *creation du sol*
 3D_box 2,100000,2,100000
 3D_LOAD_TEXTURE 2 ,"neige1920.bmp"
 






rem laser en 3d *
3d_mesh 7
3d_load_object 7,"laser.3ds"


    rem *positionement du laser *

3d_z_position 7,1000000000
3d_y_position 7,10000000
3d_color 7,200,0,0
3d_transparent 7, 150

rem tourelles
3d_mesh 3
3d_load_object 3,"TOUR.3ds"
3D_X_rotate 3,90
3D_z_position 3,1000
3D_X_position 3,2000

3D_X_scale 3,50
3D_z_scale 3,50
3D_y_scale 3,50









rem boucle principale -------------------------------------------------
loop:

 


  cam_z_position o3d_z_position (1)-15
cam_y_position  o3d_y_position (1)+10

cam_x_position  o3d_x_position (1)

point_x_position o3d_x_position (1)
light_y_position  o3d_y_position (1)+10
light_Z_position  o3d_Z_position (1)


point_y_position o3d_y_position (1)

point_z_position o3d_z_position (1)

3d_move 7,acceleration+5

vitesse= vitesse + acceleration
3d_move 1,acceleration


if scancode = 32
acceleration = acceleration + 1

end_if

if scancode=38
rotax=rotax-1.5
3d_x_rotate 1, rotax
end_if

if scancode=40
rotax=rotax+1.5
3d_x_rotate 1, rotax
end_if


if scancode=39

rotay=rotay -1.5


3d_y_rotate 1, rotay


end_if

if scancode=37

rotay=rotay +1.5


3d_y_rotate 1, rotay
end_if

 if scancode = 9
 3d_z_position 7 , o3d_z_position (1)
  3d_x_position 7 , o3d_x_position (1)
    3d_y_position 7 , o3d_y_position (1)

3d_z_rotate 7 , o3d_z_rotate(1)
3d_x_rotate 7 , o3d_x_rotate(1)
3d_y_rotate 7 , o3d_y_rotate (1)



 
 end_if
 if scancode = 66
 rotaz=rotaz-1.5
 3d_z_rotate 1 ,rotaz
 end_if
 if rotaz = 0 then  rotaz=0

if scancode=8
acceleration = acceleration - 1
end_if

if acceleration < 0.1 then  acceleration = acceleration + 1
if acceleration > 4 then  acceleration = acceleration -1
 if scancode = 78
 rotaz=rotaz+1.5
 3d_z_rotate 1 ,rotaz
 end_if



  IF rotay>360 then rotay=0
  if rotay<0 then rotay=360



  IF rotaX>360 then rotaX=0
  if rotaX<0 then rotaX=360

  IF rotaZ>360 then rotaZ=0
  if rotaZ<0 then rotaZ=360



    IF o3d_y_position (1) < 0 then goto mort






if scancode=27:rem touche Echap

terminate: rem on termine l'exécution
end_if

if scancode=19 :rem pause
message "Jeu en pause"
end_if

rem on visualise ce qu'on a fait

display

rem on reboucle
goto loop

 mort:
 3d_sphere 8,1
 3d_x_position 8 , o3d_x_position (1)
  3d_z_position 8 , o3d_z_position (1)
  3d_y_position 8 , o3d_y_position (1)
  3D_load_texture 8,"boom.bmp"
  3D_transparent 8,20
mort2:
sd=sd+1

3D_X_scale 8,sd
3D_z_scale 8,sd
3D_y_scale 8,sd
3D_hide 1




 if scancode=27:rem touche Echap
terminate: rem on termine l'exécution
end_if
display
 GOTO mort2


 

  rem * anthony rey programmé*


cls
full_space 0
picture 8

file_load 8,"rafclogo.bmp"
full_space 8

wait 5000
cls
picture 11
file_load 11,"demo.bmp"
full_space 11

wait 5000
cls

picture 5

file_load 5,"LOADSCREEN.bmp"
full_space 5





dim angle_y :rem angle de rotation autour de Y
dim x,z:rem coordonnées de l'objet dans le plan XZ
dim vitesse
dim acceleration
acceleration = 0.01
vitesse=0
dim a$
label loop
label teleport
dim rotax
dim pdi
dim rotay
dim rotaz
dim y
dim vue
vue=1
x=0
z=-200
y=-900


rotax =0
rotay =0
rotaz =0

a$=xwing
rem la fenêtre FORM0 prend tout l'écran

caption 0,"Earth Defender 0.5 "


rem on crée une scene3D qui prend tout l'écran
scene3D 1:color 1,0,0,0:full_space 1

rem *creation du xwing en 3d *
3d_mesh 1
3d_load_object 1,a$ +".3ds"


    rem *positionement du xwing*

3d_z_position 1,z
3d_y_position 1,2

    rem *positionemment de la cam*
cam_z_position z-10
cam_y_position 10



 rem *creation de la lune*

3d_sphere 2,1000

    rem *positionement de lune *


3d_z_position 2,2000
3d_y_position 2,200
3d_x_position 2,3000
3d_load_texture 2,"moon.bmp"


3d_sphere 3,9000
3d_z_position 3,-1000
3d_y_rotate 3, 90
3d_y_position 3,-10000
3d_load_texture 3,"earth.bmp"




rem laser en 3d *
3d_mesh 7
3d_load_object 7,"laser.3ds"


    rem *positionement du laser *

3d_z_position 7,1000000000
3d_y_position 7,10000000
3d_color 7,200,0,0
3d_transparent 7, 150



rem pdi en 3d *
3d_mesh 5
3d_load_object 5,"interro.3ds"


    rem *positionement du pdi *

3d_z_position 5,10
3d_y_position 5,100
3d_color 5 ,200,0,0
3d_z_rotate 5,270

3d_x_scale 5,4
3d_y_scale 5,4
3d_z_scale 5,4






  caption 0,"Earth Defender 0.5 - Peripherie de la terre -"

rem boucle principale -------------------------------------------------
loop:



  pdi =pdi +1
  3d_x_rotate 5,pdi
 

 cam_z_position o3d_z_position (1)-15
 
cam_y_position  o3d_y_position (1)+10

cam_x_position  o3d_x_position (1)

point_x_position o3d_x_position (1)
light_y_position  o3d_y_position (1)+10
light_Z_position  o3d_Z_position (1)

point_y_position o3d_y_position (1)

point_z_position o3d_z_position (1)

3d_move 7,acceleration+5

vitesse= vitesse + acceleration
3d_move 1,acceleration


if scancode = 32
acceleration = acceleration + 1

end_if

if scancode=38
rotax=rotax-1.5
3d_x_rotate 1, rotax
end_if

if scancode=40
rotax=rotax+1.5
3d_x_rotate 1, rotax
end_if


if scancode=39

rotay=rotay -1.5


3d_y_rotate 1, rotay


end_if

if scancode=37

rotay=rotay +1.5

3d_y_rotate 1, rotay
end_if

 if scancode = 9
 3d_z_position 7 , o3d_z_position (1)
  3d_x_position 7 , o3d_x_position (1)
    3d_y_position 7 , o3d_y_position (1)

3d_z_rotate 7 , o3d_z_rotate(1)
3d_x_rotate 7 , o3d_x_rotate(1)
3d_y_rotate 7 , o3d_y_rotate (1)



 
 end_if
 if scancode = 66
 rotaz=rotaz-1.5
 3d_z_rotate 1 ,rotaz
 end_if
 if rotaz = 0 then  rotaz=0

if scancode=8
acceleration = acceleration - 1
end_if

if acceleration < 0.1 then  acceleration = acceleration + 1
if acceleration > 4 then  acceleration = acceleration -1
 if scancode = 78
 rotaz=rotaz+1.5
 3d_z_rotate 1 ,rotaz
 end_if

if o3d_y_position (1) < y then goto teleport






if scancode=27:rem touche Echap
delete 1
picture 10

file_load 10,"thanks.bmp"
full_space 10

wait 10000

 teleport:
 message " Vous entrer dans l'atmosphere terrestre "
 execute "EDT0.5.exe"
 
 


 terminate: rem on termine l'exécution
end_if

if scancode=19 :rem pause
message "Jeu en pause"
end_if

rem on visualise ce qu'on a fait

display

rem on reboucle
goto loop