Sorry your browser is not supported!

Rem Project: Teste de projet
Rem Created: 2006-05-03 21:00:02

Rem ***** Main Source File *****


`------------------------------------
rem mode d'affichage en 800x600 en 16bits de couleur
`------------------------------------
set display mode 800, 600, 16
`------------------------------------

rem on part le rafraichissement manuel avec un rate de 50
`------------------------------------
sync on
sync rate 200
autocam off
backdrop on
`------------------------------------

rem Prepare la matrix
`------------------------------------
load image "grass09.bmp", 1
make matrix 1, 1000, 1000, 10, 10
prepare matrix texture 1, 1, 1, 1
fill matrix 1, 0, 1
`------------------------------------

remstart
load image "dark_sky.jpg", 3
texture backdrop 3
remend

rem load le COLZ idle comme image 1
`------------------------------------
load object "ColZ.x", 1
Rem Rotate le Colz pour l'avoir dans le bon sense
xrotate object 1, -90
rem Scaler le Colz pour l'avoir dans une dimension normal
scale object 1, 50, 50, 50
rem Positionnement au milieu de la matrix
position object 1, 500, 0, 500
`------------------------------------
Rem load de la planet comme model 2
`------------------------------------
load object "planet.x", 2
rem positionnement de la planet
position object 2, 300, 300, 300
`------------------------------------

remstart load de la music et du son
`------------------------------------
load music "music space loop.wav", 1
load music "crickets.wav", 2
load sound "explode.wav", 1
load sound "fireball2.wav", 2
`------------------------------------
rem faire jouer la music
`------------------------------------
loop music 1
loop music 2
remend
`------------------------------------
rem lumiere
`------------------------------------
make light 1
position light 1, 600, 600, 700
color light 1, 240, 244, 134
set light to object position 1,1
rem mettre du brouillar
`------------------------------------
fog on
fog color 230,230,223
Fog distance 600
set ambient light 90
`------------------------------------



set object speed 1, 1000
FR# = object frame(1)
FT# = total object frames(1)

rem boucle principale
`----------------------------------------------------------------------------------
`----------------------------------------------------------------------------------
do
rem imprime le fps, frame en cour, nbt totals de frame, object speed, NUM action
`------------------------------------
set cursor 0,0
print "" : print "Voir dans le progrmme pour les touche exacte. z=hi speed, x=low speed, c=stop anim, v=start ani, b=select frame to start, q= start from frame1" :

print ""
print "fps" : print screen fps()
print ""
print "Frame" : print FR#
print "" : print "total frame"
print FT#
print ""
print "Object speed" : Print OS#
print ""
print "action"
Print AC#

`------------------------------------
rem variable de la planet
`------------------------------------
PAX# = object angle x(2)
PAY# = object angle Y(2)
PAZ# = object angle Z(2)
`------------------------------------
Rem faire bouger la planet
rotate object 2, PAX#-0.05, PAY#-0.01, PAZ#-0.03
`------------------------------------
rem stoke l'angle y du model, vitesse de l'objet, quel frame est jouer
`------------------------------------
OA# = object angle Y(1)
OS# = object speed(1)
FR# = object frame(1)
`------------------------------------

remstart
Ici est la liste des image pres placer pour les key frames.  changer les
paramettre pour avoir vos frames
remend
`------------------------------------
if inkey$() = "q"
   loop object 1
   AC# = 1

endif
`------------------------------------
if inkey$() = "a"
   play object 1, 0, 9000
   AC# = 2

endif
`------------------------------------
if inkey$() = "s"
   play object 1, 10001, 18000
   AC# = 3

endif
`------------------------------------
if inkey$() = "d"
   play object 1, 20000, 30000
   AC# = 4

endif
`------------------------------------
if inkey$() = "f"
   play object 1, 26500, 26900
   AC# = 5

endif
`------------------------------------
if inkey$() = "g"
   loop object 1, 26900, 32100
   AC# = 6

endif
`------------------------------------

rem arrete object animation
`------------------------------------
if inkey$() = "c"
   stop object 1
   AC# = 0

endif
`------------------------------------
rem stop l'animation et permet le changement de frames
`------------------------------------
if inkey$() ="b"
   stop object 1
   input "quel frame", FR#
   set object frame 1, FR#

endif
`------------------------------------
rem play l'animation
`------------------------------------
if inkey$() = "v" then play object 1 : play sound 1
`------------------------------------
rem changer la vitesse de l'animation
`------------------------------------
if inkey$() = "z" then OS# = OS# + 10 : set object speed 1, OS#
if inkey$() = "x" then OS# = OS# - 10 : set object speed 1, OS#
`------------------------------------




rem Stoke les information de l'objet 1
`------------------------------------
AX# = object position X(1)
AY# = object position Y(1)
AZ# = object position Z(1)
`------------------------------------


Remstart
`------------------------------------
if upkey() = 1 then move object 1, -1
if downkey() = 1 then move object 1, 1
if leftkey() = 1 then Yrotate object 1, wrapvalue(-5)
if rightkey() = 1 then Yrotate object 1, wrapvalue(+5)
`------------------------------------
remend

set camera to follow AX#, AY#, AZ#, 180, 120, 70, 100, 1

Rem Rafraichissement de l'image
`------------------------------------
sync

rem loop final
`------------------------------------
loop
`-------------------------------------------------------------------------------------
`-------------------------------------------------------------------------------------