This code is a modified one from DarkForge, but I think it's worth at least mentioning even if I didn't code the entire thing myself. This is just an alternative to their effect. Tthe original is the RealFire effect coded by S.Lintula and R.Davey. I've modified it to look better and run faster. It's from DBV1.13, I don't know if it'll run on DBPro.
set display mode 320,240,16 : hide mouse : sync on : sync rate 0
backdrop on : color backdrop 0 : create bitmap 1,340,30 : flames = 50 : sparks = 2
do : for n=0 to flames : col=rnd(35) : ink rgb((200+col),(55+col),0),col : x=rnd(279)+30
box x,28-rnd(1),x+rnd(8)+4,29 : ink 0,0 : x=rnd(339) : box x,28-rnd(1),x+rnd(3)+3,29 : next n
ink rgb(255,205,255),0 : for n=0 to sparks : x=rnd(279)+30 : box x,28,x+1,29 : next n
blur bitmap 1,1 : fade bitmap 1,98 : copy bitmap 1,0,2,339,29,1,0,0,339,27 : copy bitmap 1,20,0,339,23,0,0,141,319,239 : sync
loop
It runs about 40fps on my PIII 500mhz, I dread to think how fast it'll run on a 2ghz! Next time I'll submit something that's 100% my own code.
I do appologise if I am breaking the rules here.
Avan
It's all a dream, trust me...
