Real fire on a object.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem *******************
rem *       Fire      *
rem * by Alex Schmidt *
rem *******************



rem load flames
load image "flame1.jpg",1
load image "flame2.jpg",2
load image "flame3.jpg",3
load image "flame4.jpg",4
load image "flame5.jpg",5
load image "flame6.jpg",6
load image "flame7.jpg",7
load image "flame8.jpg",8

sync on
sync rate 40
hide mouse

make object box 1,200,300,0

color backdrop rgb(0,0,0)


do

yrotate object 1,wrapvalue(object angle y(1)+2.5)

texture object 1,1 
wait 1 
texture object 1,2
wait 1
texture object 1,3 
wait 1
 texture object 1,4
wait 1
texture object 1,5 
wait 1
 texture object 1,6
wait 1
texture object 1,7 
wait 1
 texture object 1,8
wait 1

loop