Coded by S. Lintula (sasu@dpoy.vip.fi) and optimised by R. Davey. This is a special updated version of the Real Fire code exclusively for the DarkForge Snippets Volume 4. Faster an

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `	------------------------------------------------------------------------
`	Real Fire 2                               DarkForge Snippet (12/10/2000)
`	------------------------------------------------------------------------
`	Coded by S. Lintula (sasu@dpoy.vip.fi) and optimised by R. Davey
`	This is a special updated version of the Real Fire code exclusively for
`	the DarkForge Snippets Volume 4. Faster and smoother.

set display mode 320,240,16

hide mouse
sync rate 0
sync on

create bitmap 1,320,60

flames = 9

do

	set current bitmap 1

	for n = 0 to flames
`		Draw flame
		ink rgb(255,79,0),0
		x = rnd(319)
		line x,59,x+rnd(5),59
`		Draw random hole between flames
		ink 0,0
		x = rnd(319)
		dot x,59
	next n
	
	if frame = 0
	   copy bitmap 1,0,1,319,59,1,0,0,319,58
	   frame = 1
	else
	   blur bitmap 1,2
	   frame = 0
	endif
	
	copy bitmap 1,0,0,319,57,0,0,124,319,239
	
	sync

loop