Sorry your browser is not supported!

Rem
Rem Effet de flammes Ver 1.0
Rem
Rem crée par Frédéric Cordier
Rem
set display mode 640,480,16
sync rate 75 : sync on

Rem Chargement des images de flammes.
for boucle=1 to 10
  load image "images\image"+chr$(boucle+47)+".jpg",boucle,0
 next boucle
 load image "images\image10.jpg",11,0

backdrop on
color backdrop rgb(0,0,0)
Rem On crée les 3 objets pour la flamme , 2 part de flamme et 1 socle
make object plain 1,32,64
make object plain 2,32,64
make object plain 3,32,32
Rem on définit les attributs des 3 objets
for boucle=1 to 3
  set object boucle,1,1,0,0,0,0
  ghost object on boucle
 next boucle
Rem On fait une rotation de 90° sur X pour la 2ème partie de la flamme.
rotate object 2,0,90,0
Rem On met le socle à plat.
rotate object 3,90,0,0
Rem On positionne les 3 objets pour le rendu final.
position object 1,0,32,0
position object 2,0,32,0
position object 3,0,0,0
Rem On texture le socle
texture object 3,11
vitesse=1
_txtr=1 : _txtr2=6
Rem Camera en position initiale
position camera 0,32,-256
repeat
    Rem On calcule le changement d'angle ainsi que le mouvement de la camera
    angle=wrapvalue(angle+((rightkey()-leftkey() )*vitesse ))
    move camera (upkey()-downkey() )*vitesse
    rotate camera 0,angle,0
    Rem On texture les 2 parties de la flamme avec la texture animée.
    texture object 1,_txtr
    texture object 2,_txtr2
    Rem On calcule selon une vitesse au 1/3 le changement d'images ( tout les 3 frames )
    inc vitesse
    if vitesse=5
      vitesse=0
      inc _txtr
      inc _txtr2
     endif
    if _txtr=11 then _txtr=1
    if _txtr2=11 then _txtr2=1
    set cursor 0,0
    ink rgb(255,255,255),rgb(0,0,0)
    print screen fps()
  sync
 until spacekey()=1

Rem On efface tout avant de quitter.
for boucle=1 to 3
  delete object boucle
 next boucle
for boucle=1 to 11
  delete image boucle
 next boucle

Rem
Rem Flame Effect Ver 1.0
Rem
Rem Made by Frédéric Cordier
Rem
set display mode 640,480,16
sync rate 75 : sync on

Rem Load the flame images.
for boucle=1 to 10
  load image "images\image"+chr$(boucle+47)+".jpg",boucle,0
 next boucle
 load image "images\image10.jpg",11,0

backdrop on
color backdrop rgb(0,0,0)
Rem We create 3 objects for the flame , 2 for the flame and 1 base
make object plain 1,32,64
make object plain 2,32,64
make object plain 3,32,32
Rem We set the attributes of the objects
for boucle=1 to 3
  set object boucle,1,1,0,0,0,0
  ghost object on boucle
 next boucle
Rem We rotate the second part of the flame 90 degrees around the X axis
rotate object 2,0,90,0
Rem We make the base flat
rotate object 3,90,0,0
Rem Finally we position the three objects.
position object 1,0,32,0
position object 2,0,32,0
position object 3,0,0,0
Rem We texture the base
texture object 3,11
vitesse=1
_txtr=1 : _txtr2=6
Rem Set the initial position of the camera
position camera 0,32,-256
repeat
    Rem We calculate the change in angle, and thus the movement of the camera
    angle=wrapvalue(angle+((rightkey()-leftkey() )*vitesse ))
    move camera (upkey()-downkey() )*vitesse
    rotate camera 0,angle,0
    Rem We apply animated textures to the two flames
    texture object 1,_txtr
    texture object 2,_txtr2
    Rem We calculate according to the 1/3 of the speed, the changing of the images (all the frames)
    inc vitesse
    if vitesse=5
      vitesse=0
      inc _txtr
      inc _txtr2
     endif
    if _txtr=11 then _txtr=1
    if _txtr2=11 then _txtr2=1
    set cursor 0,0
    ink rgb(255,255,255),rgb(0,0,0)
    print screen fps()
  sync
 until spacekey()=1

Rem We clear up the media before we quit
for boucle=1 to 3
  delete object boucle
 next boucle
for boucle=1 to 11
  delete image boucle
 next boucle