NewB Makes Fire! Burns the Competition in 56 lines of Code!

Author

Message

Angry kreyon

20

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 19th Aug 2005 15:20

Link

ok I did not originaly write the code, I found it here as an old post (from 2003) that was supposed to be a plasma thing, well I did not see the plasma but when I started to play with the code I did start to see fire. so I spent a little time tweaking and this is the effect so far. I looked around and did not see any other fire like this so I thought it would be a good post.
now I am a NewB at this Dark Basic stuff (I write in vb) so I have No Clue how I did this and why it works, but it is cool and I have some updates in mind for it very soon, so please feel free to check it out and post your comments and suggestions so I can start to learn more about this. I would welcome someone to come and comment the code better to show me what these functions are and how they can be manipulated. but if not I will figure it out anyway.

Happy Coding!

Oh, yea - I found that by taking the numbers in the Grid Size and also some of the other Numbers and changing them can have Radical Effects on the output of the program and can result in some excellent effects! (the numbers in the 5th to lastline at the end of the line that starts with "Box" control the dot size(currently big squares)if you change the numbers from "box refx*4,refy*4,(refx*4)+4,(refy*4)+4" to "box refx*4,refy*4,(refx*4)+3,(refy*4)+3" then the dots get smaller, and so on... this is a cool way to make the fire look like it's on an LCD Panel, change the last numbers to "2" and it is even cooler! but when you make the dots round they start to loose the "Plasma" effect look that this code has.(which could be made better if someone explains to me how to use more than 256 colors.)

anyway Enjoy

Back to top

Profile PM Email

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 19th Aug 2005 17:10 Edited at: 19th Aug 2005 17:10

Link

Bah, damn source attach is still goosed.

You'll have to post it here in code brackets, using the button above the gas-mask wearing smilie - just copy the code from DBPro, click 'Code' then paste it then press 'Code' again to close the brackets, it'll put it in a folding snippet thingy:

+ Code Snippet

Like this

Rich should just get rid of the code attach section

.

Van-B

Put those fiery biscuits away!

Back to top

Profile PM Email

Angry kreyon

20

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 19th Aug 2005 18:20

Link

ok lets try this again

Rem Project: RealTime_fire
Rem Created: 8/19/2005 7:53:08 AM
Rem Re-Coded by Jon "the Angry Kreyon" Ericson
Rem ***** Main Source File *****
Rem Project: realtime_fire
global Choice1$
global sDots
   sync on : sync rate 40
   hide mouse
`*****set the Grid Size****************`
   dim grid(170,170)
`*****do main loop **************
Print "Options 1 to 5"
input "what size dots?", Choice1$
if (choice1$="1")then sDots = 1
if (choice1$="2")then sDots = 2
if (choice1$="3")then sDots = 3
if (choice1$="4")then sDots = 4
if (Choice1$="5")then sDots = 5
`endif

do
      gosub warpus
      gosub array
      sync
   loop
`*****end main loop**************
`***** secondary Pixel color loop******
   warpus:
      for x = 1 to 170
         y = 120
            g = (rnd(255))
            b = (rnd(2))
            r = (rnd(255))
               ink rgb(r,g,b),1
                  col = rgb(r,g,b)
                     grid(x,y)=col
      next x
   return
`*****array Sub loop**************
   array:
      for x = 1 to 170
      for y = 2 to 130
         refx = x
         refy = y
rem extract colours
   col = grid(x,y)
   green = rgbg(col)
   blue = rgbb(col)
   red = rgbr(col)
rem alter colours
      if green + rnd(20) > green then ngreen = green - rnd(4)
      if blue + rnd(20) > blue then nblue = blue - rnd(7)
      if red + rnd(20) > red then nred = red - rnd(2)
      if ngreen < 1 then ngreen = 1
      if nblue < 1 then nblue = 1
      if nred < 1 then nred  = 1
      if ngreen > 100 then ngreen = ngreen - 7
      if nblue > 100 then nblue = nblue - 7
      if nred > 80 then nred = nred - 3
rem mix up
   mix = rnd(3)
      if mix = 1 AND refx > 2 then refx = refx - 1
      if mix = 2 AND refx < 48 then refx = refx + 1
   ymix = rnd(3)
      if ymix = 1 AND refy > 0 then refy = refy - 1
      if ymix = 2 AND refy < 50 then refy = refy + 1
         if rgbr(col) < 60 and rgbg(col) > 2 then ngreen = 0
rem update array and draw on screen
      ncol = RGB(nred,ngreen,nblue)
      ink rgb(nred,ngreen,nblue),1
`****this seems to be the area that controls size of pixels*********
     ` box refx*4,refy*4,(refx*4)+3,(refy*4)+3
     box refx*4,refy*4,(refx*4)+sDots,(refy*4)+sDots
          grid(refx,refy-1)=ncol+2

next y
      next x
   return

+ Code Snippet

Rem Project: RealTime_fire
Rem Created: 8/19/2005 7:53:08 AM
Rem Re-Coded by Jon "the Angry Kreyon" Ericson
Rem ***** Main Source File *****
Rem Project: realtime_fire
global Choice1$
global sDots
   sync on : sync rate 40
   hide mouse
`*****set the Grid Size****************`
   dim grid(170,170)
`*****do main loop **************
Print "Options 1 to 5"
input "what size dots?", Choice1$
if (choice1$="1")then sDots = 1
if (choice1$="2")then sDots = 2
if (choice1$="3")then sDots = 3
if (choice1$="4")then sDots = 4
if (Choice1$="5")then sDots = 5
`endif

   do
      gosub warpus
      gosub array
      sync
   loop
`*****end main loop**************
`***** secondary Pixel color loop******
   warpus:
      for x = 1 to 170
         y = 120
            g = (rnd(255))
            b = (rnd(2))
            r = (rnd(255))
               ink rgb(r,g,b),1
                  col = rgb(r,g,b)
                     grid(x,y)=col
      next x
   return
`*****array Sub loop**************
   array:
      for x = 1 to 170
      for y = 2 to 130
         refx = x
         refy = y
rem extract colours
   col = grid(x,y)
   green = rgbg(col)
   blue = rgbb(col)
   red = rgbr(col)
rem alter colours
      if green + rnd(20) > green then ngreen = green - rnd(4)
      if blue + rnd(20) > blue then nblue = blue - rnd(7)
      if red + rnd(20) > red then nred = red - rnd(2)
      if ngreen < 1 then ngreen = 1
      if nblue < 1 then nblue = 1
      if nred < 1 then nred  = 1
      if ngreen > 100 then ngreen = ngreen - 7
      if nblue > 100 then nblue = nblue - 7
      if nred > 80 then nred = nred - 3
rem mix up
   mix = rnd(3)
      if mix = 1 AND refx > 2 then refx = refx - 1
      if mix = 2 AND refx < 48 then refx = refx + 1
   ymix = rnd(3)
      if ymix = 1 AND refy > 0 then refy = refy - 1
      if ymix = 2 AND refy < 50 then refy = refy + 1
         if rgbr(col) < 60 and rgbg(col) > 2 then ngreen = 0
rem update array and draw on screen
      ncol = RGB(nred,ngreen,nblue)
      ink rgb(nred,ngreen,nblue),1
`****this seems to be the area that controls size of pixels*********
     ` box refx*4,refy*4,(refx*4)+3,(refy*4)+3
     box refx*4,refy*4,(refx*4)+sDots,(refy*4)+sDots
          grid(refx,refy-1)=ncol+2

      next y
      next x
   return

ok and I went ahead and added a small option at the begining to ask for dot size and this way you can see the difference created by the size.

Back to top

Profile PM Email

Angry kreyon

20

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 19th Aug 2005 20:58

Link

tried reposting a couple hours ago but have not seen it come up yet, so here is the code again with a few adjustments I made since first try. now you can choose dot size at start, menu with options 1 to 6. (1) being the smallest dots and (5) being the largest (6) is a random shot from any of the first five (seems like sometimes it actually makes them size 6 which is a cool effect also.)

Rem Project: RealTime_fire
Rem Created: 8/19/2005 7:53:08 AM
Rem Re-Coded by Jon "the Angry Kreyon" Ericson
Rem ***** Main Source File *****
Rem Project: realtime_fire
global Choice1$
global sDots
   sync on : sync rate 50
   hide mouse
`*****set the Grid Size****************`
   dim grid(170,170)
`*****do main loop **************
Print "Options 1 to 6"
print "1=small"
Print "5=Large"
print "6=Random size"
input "what size dots?", Choice1$
if (choice1$="1")then sDots = 1
if (choice1$="2")then sDots = 2
if (choice1$="3")then sDots = 3
if (choice1$="4")then sDots = 4
if (Choice1$="5")then sDots = 5
if (Choice1$="6")then sDots = rnd(6)
`endif

do
      gosub warpus
      gosub array
      sync
   loop
`*****end main loop**************
`***** secondary Pixel color loop******
   warpus:
      for x = 1 to 170
         y = 120
            g = (rnd(255))
            b = (rnd(2))
            r = (rnd(255))
               ink rgb(r,g,b),1
                  col = rgb(r,g,b)
                     grid(x,y)=col
      next x
   return
`*****array Sub loop**************
   array:
      for x = 1 to 170
      for y = 2 to 130
         refx = x
         refy = y
rem extract colours
   col = grid(x,y)
   green = rgbg(col)
   blue = rgbb(col)
   red = rgbr(col)
rem alter colours
      if green + rnd(20) > green then ngreen = green - rnd(4)
      if blue + rnd(20) > blue then nblue = blue - rnd(7)
      if red + rnd(20) > red then nred = red - rnd(2)
      if ngreen < 1 then ngreen = 1
      if nblue < 1 then nblue = 1
      if nred < 1 then nred  = 1
      if ngreen > 100 then ngreen = ngreen - 7
      if nblue > 100 then nblue = nblue - 7
      if nred > 40 then nred = nred - 3
      ` change 40 to another # for higher flames
rem mix up
   mix = rnd(3)
      if mix = 1 AND refx > 2 then refx = refx - 1
      if mix = 2 AND refx < 48 then refx = refx + 1
   ymix = rnd(3)
      if ymix = 1 AND refy > 0 then refy = refy - 1
      if ymix = 2 AND refy < 50 then refy = refy + 1
         if rgbr(col) < 60 and rgbg(col) > 2 then ngreen = 0
rem update array and draw on screen
      ncol = RGB(nred,ngreen,nblue)
      ink rgb(nred,ngreen,nblue),1
`****this seems to be the area that controls size of pixels*********
     ` box refx*4,refy*4,(refx*4)+3,(refy*4)+3
     box refx*4,refy*4,(refx*4)+sDots,(refy*4)+sDots
          grid(refx,refy-1)=ncol+2

next y
      next x
   return

+ Code Snippet


Rem Project: RealTime_fire
Rem Created: 8/19/2005 7:53:08 AM
Rem Re-Coded by Jon "the Angry Kreyon" Ericson
Rem ***** Main Source File *****
Rem Project: realtime_fire
global Choice1$
global sDots
   sync on : sync rate 50
   hide mouse
`*****set the Grid Size****************`
   dim grid(170,170)
`*****do main loop **************
Print "Options 1 to 6"
print "1=small"
Print "5=Large"
print "6=Random size"
input "what size dots?", Choice1$
if (choice1$="1")then sDots = 1
if (choice1$="2")then sDots = 2
if (choice1$="3")then sDots = 3
if (choice1$="4")then sDots = 4
if (Choice1$="5")then sDots = 5
if (Choice1$="6")then sDots = rnd(6)
`endif

   do
      gosub warpus
      gosub array
      sync
   loop
`*****end main loop**************
`***** secondary Pixel color loop******
   warpus:
      for x = 1 to 170
         y = 120
            g = (rnd(255))
            b = (rnd(2))
            r = (rnd(255))
               ink rgb(r,g,b),1
                  col = rgb(r,g,b)
                     grid(x,y)=col
      next x
   return
`*****array Sub loop**************
   array:
      for x = 1 to 170
      for y = 2 to 130
         refx = x
         refy = y
rem extract colours
   col = grid(x,y)
   green = rgbg(col)
   blue = rgbb(col)
   red = rgbr(col)
rem alter colours
      if green + rnd(20) > green then ngreen = green - rnd(4)
      if blue + rnd(20) > blue then nblue = blue - rnd(7)
      if red + rnd(20) > red then nred = red - rnd(2)
      if ngreen < 1 then ngreen = 1
      if nblue < 1 then nblue = 1
      if nred < 1 then nred  = 1
      if ngreen > 100 then ngreen = ngreen - 7
      if nblue > 100 then nblue = nblue - 7
      if nred > 40 then nred = nred - 3
      ` change 40 to another # for higher flames
rem mix up
   mix = rnd(3)
      if mix = 1 AND refx > 2 then refx = refx - 1
      if mix = 2 AND refx < 48 then refx = refx + 1
   ymix = rnd(3)
      if ymix = 1 AND refy > 0 then refy = refy - 1
      if ymix = 2 AND refy < 50 then refy = refy + 1
         if rgbr(col) < 60 and rgbg(col) > 2 then ngreen = 0
rem update array and draw on screen
      ncol = RGB(nred,ngreen,nblue)
      ink rgb(nred,ngreen,nblue),1
`****this seems to be the area that controls size of pixels*********
     ` box refx*4,refy*4,(refx*4)+3,(refy*4)+3
     box refx*4,refy*4,(refx*4)+sDots,(refy*4)+sDots
          grid(refx,refy-1)=ncol+2

      next y
      next x
   return

hopefully you will be able to see this and give me some feedback on it!

Thanks

Back to top

Profile PM Email

Lukas W

22

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 20th Aug 2005 16:33

Link

hey that is a pretty cool effect. but slow: 17fps

Back to top

Profile PM Email

Angry kreyon

20

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 20th Aug 2005 20:29

Link

yea, it does seem kinda slow, especialy at the begining, but like I said I have no clue how to speed it up yet, any suggestions are welcomed! I will add the newest revision I have of the code in this post so check out the changes, and let me know.

Rem Project: RealTime_fire
Rem Created: 8/19/2005 7:53:08 AM
Rem Re-Coded by Jon "the Angry Kreyon" Ericson
Rem ***** Main Source File *****
Rem Project: realtime_fire
`****set variables*********
global Choice1$
global Choice2$
global Choice3$
global sDots
global sTemp
global sTemp2
global sTemp3
`*****set sync and hide mouse *************
   sync on : sync rate 40
   hide mouse
`*****set the Grid Size****************`
   dim grid(170,170)
`*****get options(if on)**************
   gosub choices
`*****use default option settings if none entered *************
if Choice1$ = "" then sDots = 4
sTemp = 4
if choice2$ = "" then sTemp2 = 2
if Choice3$ = "" then stemp3 = 1
   `*****do main loop **************
   do
      gosub warpus
      gosub array
      sync
   loop
`*****end main loop**************
`***** secondary Pixel color loop******
   warpus:
      for x = 1 to 180
         y = 120
            g = (rnd(255))
            b = (rnd(10))
            r = (rnd(255))
               ink rgb(r,g,b),1
                  col = rgb(r,g,b)
                     grid(x,y)=col
                     grid(x+1,y)=rgb(r,g,b)
                     grid(x,y+1)=rgb(r,g,b)
                     grid(x+1,y+1)=rgb(r,g,b)
                     grid(x-1,y)=rgb(r,g,b)
                     grid(x,y-1)=rgb(r,g,b)
                     grid(x-1,y-1)=rgb(r,g,b)
      next x
   return
`*****array Sub loop**************
   array:
      for x = 1 to 170
      for y = 2 to 130
         refx = x
         refy = y
rem extract colours
   col = grid(x,y)
   green = rgbg(col)
   blue = rgbb(col)
   red = rgbr(col)
rem alter colours
      if green + rnd(20) > green then ngreen = green - rnd(4)
      if blue + rnd(20) > blue then nblue = blue - rnd(7)
      if red + rnd(20) > red then nred = red - rnd(2)
      if ngreen < 1 then ngreen = 1
      if nblue < 1 then nblue = 1
      if nred < 1 then nred  = 1
      if ngreen > 100 then ngreen = ngreen - 4
      if nblue > 100 then nblue = nblue - 7
      if nred > 40 then nred = nred - 4
      ` change 40 to another # for higher flames
rem mix up
   mix = rnd(3)
      if mix = 1 AND refx > 2 then refx = refx - 1
      if mix = 2 AND refx < 48 then refx = refx + 1
   ymix = rnd(3)
      if ymix = 1 AND refy > 0 then refy = refy - 1
      if ymix = 2 AND refy < 50 then refy = refy + 1
         if rgbr(col) < 60 and rgbg(col) > 2 then ngreen = 0
rem update array and draw on screen
      ncol = RGB(nred,ngreen,nblue)
      ink rgb(nred,ngreen,nblue),1
`****this seems to be the area that controls size of pixels*********
     ` box refx*4,refy*4,(refx*4)+3,(refy*4)+3
     box refx*sTemp,refy*sTemp,(refx*sTemp)+sDots,(refy*sTemp)+sDots
     `****change speed, and then color change*****
          grid(refx,refy-sTemp2)=ncol+sTemp3

next y
      next x
   return

Choices:
Print "Options 1 to 6"
print "1=small"
Print "5=Large"
print "6=Random size"
input "what size dots?", Choice1$
if (choice1$="1")then sDots = 1
if (choice1$="2")then sDots = 2
if (choice1$="3")then sDots = 3
if (choice1$="4")then sDots = 4
if (Choice1$="5")then sDots = 5
if (Choice1$="6")then sDots = rnd(6)
cls
if choice1$ < "1" then gosub choices
if choice1$ > "6" then gosub choices
   Choices2:
print "1=half screen, 2=full screen"
input "How tall?", Choice2$
if (choice2$="1")then sTemp2 = 1
if (choice2$="2")then sTemp2 = 2
cls
if Choice2$ < "1" then gosub Choices2
if Choice2$ > "2" then gosub Choices2
   Choices3:
Print "Options 1 to 4"
Print "1=None, 4=Lots"
input "How much Smoke Effect?", Choice3$
if (Choice3$="1")then sTemp3 = 1
if (Choice3$="2")then sTemp3 = 2
if (Choice3$="3")then sTemp3 = 3
if (Choice3$="4")then sTemp3 = 4
cls
if Choice3$ < "1" then gosub Choices3
if Choice3$ > "4" then gosub Choices3
return
`endif

+ Code Snippet

Rem Project: RealTime_fire
Rem Created: 8/19/2005 7:53:08 AM
Rem Re-Coded by Jon "the Angry Kreyon" Ericson
Rem ***** Main Source File *****
Rem Project: realtime_fire
`****set variables*********
global Choice1$
global Choice2$
global Choice3$
global sDots
global sTemp
global sTemp2
global sTemp3
`*****set sync and hide mouse *************
   sync on : sync rate 40
   hide mouse
`*****set the Grid Size****************`
   dim grid(170,170)
`*****get options(if on)**************
   gosub choices
`*****use default option settings if none entered *************
if Choice1$ = "" then sDots = 4
sTemp = 4
if choice2$ = "" then sTemp2 = 2
if Choice3$ = "" then stemp3 = 1
   `*****do main loop **************
   do
      gosub warpus
      gosub array
      sync
   loop
`*****end main loop**************
`***** secondary Pixel color loop******
   warpus:
      for x = 1 to 180
         y = 120
            g = (rnd(255))
            b = (rnd(10))
            r = (rnd(255))
               ink rgb(r,g,b),1
                  col = rgb(r,g,b)
                     grid(x,y)=col
                     grid(x+1,y)=rgb(r,g,b)
                     grid(x,y+1)=rgb(r,g,b)
                     grid(x+1,y+1)=rgb(r,g,b)
                     grid(x-1,y)=rgb(r,g,b)
                     grid(x,y-1)=rgb(r,g,b)
                     grid(x-1,y-1)=rgb(r,g,b)
      next x
   return
`*****array Sub loop**************
   array:
      for x = 1 to 170
      for y = 2 to 130
         refx = x
         refy = y
rem extract colours
   col = grid(x,y)
   green = rgbg(col)
   blue = rgbb(col)
   red = rgbr(col)
rem alter colours
      if green + rnd(20) > green then ngreen = green - rnd(4)
      if blue + rnd(20) > blue then nblue = blue - rnd(7)
      if red + rnd(20) > red then nred = red - rnd(2)
      if ngreen < 1 then ngreen = 1
      if nblue < 1 then nblue = 1
      if nred < 1 then nred  = 1
      if ngreen > 100 then ngreen = ngreen - 4
      if nblue > 100 then nblue = nblue - 7
      if nred > 40 then nred = nred - 4
      ` change 40 to another # for higher flames
rem mix up
   mix = rnd(3)
      if mix = 1 AND refx > 2 then refx = refx - 1
      if mix = 2 AND refx < 48 then refx = refx + 1
   ymix = rnd(3)
      if ymix = 1 AND refy > 0 then refy = refy - 1
      if ymix = 2 AND refy < 50 then refy = refy + 1
         if rgbr(col) < 60 and rgbg(col) > 2 then ngreen = 0
rem update array and draw on screen
      ncol = RGB(nred,ngreen,nblue)
      ink rgb(nred,ngreen,nblue),1
`****this seems to be the area that controls size of pixels*********
     ` box refx*4,refy*4,(refx*4)+3,(refy*4)+3
     box refx*sTemp,refy*sTemp,(refx*sTemp)+sDots,(refy*sTemp)+sDots
     `****change speed, and then color change*****
          grid(refx,refy-sTemp2)=ncol+sTemp3

      next y
      next x
   return

   Choices:
Print "Options 1 to 6"
print "1=small"
Print "5=Large"
print "6=Random size"
input "what size dots?", Choice1$
if (choice1$="1")then sDots = 1
if (choice1$="2")then sDots = 2
if (choice1$="3")then sDots = 3
if (choice1$="4")then sDots = 4
if (Choice1$="5")then sDots = 5
if (Choice1$="6")then sDots = rnd(6)
cls
if choice1$ < "1" then gosub choices
if choice1$ > "6" then gosub choices
   Choices2:
print "1=half screen, 2=full screen"
input "How tall?", Choice2$
if (choice2$="1")then sTemp2 = 1
if (choice2$="2")then sTemp2 = 2
cls
if Choice2$ < "1" then gosub Choices2
if Choice2$ > "2" then gosub Choices2
   Choices3:
Print "Options 1 to 4"
Print "1=None, 4=Lots"
input "How much Smoke Effect?", Choice3$
if (Choice3$="1")then sTemp3 = 1
if (Choice3$="2")then sTemp3 = 2
if (Choice3$="3")then sTemp3 = 3
if (Choice3$="4")then sTemp3 = 4
cls
if Choice3$ < "1" then gosub Choices3
if Choice3$ > "4" then gosub Choices3
return
`endif

it has a couple of options that I added that will change the program when run, just to see how the effects can change. I am sure it's no faster but it is still cool!

Back to top

Profile PM Email

Jukuma

22

Years of Service

User Offline

Joined: 18th Nov 2003

Location: Germany

Posted: 22nd Aug 2005 00:42 Edited at: 22nd Aug 2005 00:44

Link

nice code, but a littele slow. if you write on bitmaps use
the command "lock pixels / unlock pixels" before.

i found an old firecode of me, look

Rem Project: firestorm
Rem Created: 17.02.2004 23:52:35

Rem ***** Main Source File *****
Sync rate 60 : Sync on : Autocam off : Color backdrop 0

Dim colmap(1,255)
Dim texmap(127,127)

For c=0 To 85
colmap(0,c)=Rgb(c*3,0,0)
colmap(0,c+85)=Rgb(255,c*3,0)
colmap(0,c+170)=Rgb(255,255,c*3)

colmap(1,c)=Rgb(0,0,c*3)
colmap(1,c+85)=Rgb(0,c*3,255)
colmap(1,c+170)=Rgb(c*3,255,255)
Next c

Get image 1,0,0,127,127
Make memblock 1,12+128*128*4
Write memblock dword 1,0,128
Write memblock dword 1,4,128
Write memblock dword 1,8,32

Make object sphere 1,128,32,32
Set object light 1,0
Scale object 1,100,1,100
Position object 1,0,0,200
Texture object 1,1
Scale object texture 1,3,2

Repeat

Set cursor 0,0
   Print Screen fps()

If a#=0
      m=Rnd(1)
      If Rnd(1)
         Xrotate object 1,90
      Else
         Xrotate object 1,270
      Endif
   Endif

Set camera fov 50+Cos(a#)*40
   Zrotate object 1,a#
   a#=Wrapvalue(a#+0.5)

For x=0 To 127 Step Rnd(4)+1
      texmap(x,127)=128+Rnd(127)
      For y=0 To 127
         c=texmap(Int(Abs(x)),y)-Rnd(3)
         If c>0 Then texmap(Int(Abs(x+Rnd(2)-1)),Int(Abs(y-1)))=c
      Next y
   Next x

For x=0 To 127
      For y=0 To 127
         Write memblock dword 1,12+(x+y*128)*4,colmap(m,texmap(x,y))
      Next x
   Next y

Make image from memblock 1,1
   Texture object 1,1
   Sync

Until Mouseclick()
End

+ Code Snippet

Rem Project: firestorm
Rem Created: 17.02.2004 23:52:35

Rem ***** Main Source File *****
Sync rate 60 : Sync on : Autocam off : Color backdrop 0

Dim colmap(1,255)
Dim texmap(127,127)

For c=0 To 85
colmap(0,c)=Rgb(c*3,0,0)
colmap(0,c+85)=Rgb(255,c*3,0)
colmap(0,c+170)=Rgb(255,255,c*3)

colmap(1,c)=Rgb(0,0,c*3)
colmap(1,c+85)=Rgb(0,c*3,255)
colmap(1,c+170)=Rgb(c*3,255,255)
Next c

Get image 1,0,0,127,127
Make memblock 1,12+128*128*4
Write memblock dword 1,0,128
Write memblock dword 1,4,128
Write memblock dword 1,8,32

Make object sphere 1,128,32,32
Set object light 1,0
Scale object 1,100,1,100
Position object 1,0,0,200
Texture object 1,1
Scale object texture 1,3,2

Repeat

   Set cursor 0,0
   Print Screen fps()

   If a#=0
      m=Rnd(1)
      If Rnd(1)
         Xrotate object 1,90
      Else
         Xrotate object 1,270
      Endif
   Endif

   Set camera fov 50+Cos(a#)*40
   Zrotate object 1,a#
   a#=Wrapvalue(a#+0.5)

   For x=0 To 127 Step Rnd(4)+1
      texmap(x,127)=128+Rnd(127)
      For y=0 To 127
         c=texmap(Int(Abs(x)),y)-Rnd(3)
         If c>0 Then texmap(Int(Abs(x+Rnd(2)-1)),Int(Abs(y-1)))=c
      Next y
   Next x

   For x=0 To 127
      For y=0 To 127
         Write memblock dword 1,12+(x+y*128)*4,colmap(m,texmap(x,y))
      Next x
   Next y

   Make image from memblock 1,1
   Texture object 1,1
   Sync

Until Mouseclick()
End

Back to top

Profile PM

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd Aug 2005 10:40

Link

That's good m8. (Jukuma).
It looks like a sun (when using red-yellow comb)

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Mono

21

Years of Service

User Offline

Joined: 23rd May 2005

Location:

Posted: 22nd Aug 2005 16:29

Link

Ok, i have a firecode, too

Rem Project: FIRE (DBP)
Rem Created: 29.06.2005 17:42:19

Rem          MONOS

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

gosub Init

rem MAINLOOP

DO

TIME=timer()

if TIME>Delay

Delay=TIME+20
      gosub draw_buffer
      gosub set_spots
      gosub calc_buffer

endif

ink rgb(0,255,0),0
   text 10,10,"F/s: "+str$(screen fps())+"  "

fastsync

LOOP

REM SUBs

draw_buffer:

for x=0 to width-1
   for y=0 to height-1

col=buffer(x,y)
      memPos = (y*width*4)+(x*4)
      WRITE MEMBLOCK DWORD 1,memPos+12,palette(col)

next y
next x

make image from memblock 1,1

return

set_spots:

for x=1 to width-1 step 2

if rnd(3)=1 then buffer(x,height)=255

next x

return

calc_buffer:

for x=1 to width-1
   for y=height to 1 step -1

col=buffer(x,y)

if col>2
         buffer(x+rnd(2)-1,y-1)=col-1
         buffer(x,y)=col-3
      endif

next y
next x

return

Init:

sync rate 0
sync on
sync:sync

set text font "ARIAL" : set text size 24
set text opaque : randomize timer()
rem hide mouse

width=256
height=128

get image 1,0,0,width,height,0
make memblock from image 1,1

dim buffer(width,height) as byte
dim palette(255) as dword

rem Palette

For i=0 To 85
  palette(i)  =RGB(Int(255/85*i),0,0)
  palette(i+85) =RGB(255,Int(255/85*i),i/2)
  palette(i+170) =RGB(255,255,Int(255/85*i))
Next i

rem Object (man kann auch Sprites verwenden)
make object plain 1,120,70
texture object 1,1
set object 1,1,0,0,2,0,0,0

position camera 0,0,-70
point camera 0,0,0

backdrop off

return

+ Code Snippet

Rem Project: FIRE (DBP)
Rem Created: 29.06.2005 17:42:19

Rem          MONOS

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


gosub Init


rem MAINLOOP

DO

   TIME=timer()



   if TIME>Delay

     Delay=TIME+20
      gosub draw_buffer
      gosub set_spots
      gosub calc_buffer

    endif




   ink rgb(0,255,0),0
   text 10,10,"F/s: "+str$(screen fps())+"  "

   fastsync

LOOP







REM SUBs



draw_buffer:


for x=0 to width-1
   for y=0 to height-1

      col=buffer(x,y)
      memPos = (y*width*4)+(x*4)
      WRITE MEMBLOCK DWORD 1,memPos+12,palette(col)

   next y
next x


make image from memblock 1,1

return







set_spots:

for x=1 to width-1 step 2

     if rnd(3)=1 then buffer(x,height)=255

next x

return





calc_buffer:

for x=1 to width-1
   for y=height to 1 step -1

      col=buffer(x,y)

      if col>2
         buffer(x+rnd(2)-1,y-1)=col-1
         buffer(x,y)=col-3
      endif

   next y
next x

return






Init:


sync rate 0
sync on
sync:sync

set text font "ARIAL" : set text size 24
set text opaque : randomize timer()
rem hide mouse


width=256
height=128

get image 1,0,0,width,height,0
make memblock from image 1,1



dim buffer(width,height) as byte
dim palette(255) as dword



rem Palette

For i=0 To 85
  palette(i)  =RGB(Int(255/85*i),0,0)
  palette(i+85) =RGB(255,Int(255/85*i),i/2)
  palette(i+170) =RGB(255,255,Int(255/85*i))
Next i





rem Object (man kann auch Sprites verwenden)
make object plain 1,120,70
texture object 1,1
set object 1,1,0,0,2,0,0,0




position camera 0,0,-70
point camera 0,0,0

backdrop off

return

Back to top

Profile PM

Angry kreyon

20

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 23rd Aug 2005 22:19

Link

ok very cool fire! and nice and fast too! but has a contrived shape and look, does not flow as free as my slow fire( but looks way better visually!) if you could make that fire more free form like mine it would be the Pefect Fire code!

remember I am totaly new to this and have no idea what I am doing yet. I would really like it if someone took the time to comment any of these codes and explain what does what and why, all I can do is reverse engineer the code and see what happens, and Wow have I seen some crazy variations from this method. but I still dont understand it (some things seem too easy)

Back to top

Profile PM Email

Jukuma

22

Years of Service

User Offline

Joined: 18th Nov 2003

Location: Germany

Posted: 24th Aug 2005 22:38 Edited at: 24th Aug 2005 23:21

Link

@mono[s]
this doubles the fps rate?

+ Code Snippet

draw_buffer:

rem wy not? i dont understand that!
rem this way is 500 fps slower by me

for mempos = 0 to get memblock size(1) - 16 step 4

         y = mempos / width >> 2
         x = mempos / 4 - y * width

         write memblock dword 1, mempos + 12, palette(int(buffer(x, y)))

next mempos

make image from memblock 1,1

return

[href]
http://www.gamedev.net/reference/articles/article222.asp
[/href]

that is the origin way, next step is tries an error ...

Back to top

Profile PM

Mono

21

Years of Service

User Offline

Joined: 23rd May 2005

Location:

Posted: 24th Aug 2005 23:32

Link

Hi!

@Jukuma:

Nice & interesting code, but it drops my framerate from 476 to 330?!?!?

@Angry kreyon:

Hard to explain (i'm not english

), but i try it:

1. you have a array with the image size (BUFFER())
2. you have a array with the colorpalette (PALETTE() )
3. drop some random spots with number ~250-255 (white in colorpal.)
at the bottom line from array 1. (SET_SPOTS)
4. scan the array-lines and increase from 255 to 0 and scroll up (CALC_BUFFER)
5. draw the image: the numbers of array 1 is equal to the colorvalue
from array 2 (eg: 255=white 128=yellow 80=red 0=black) (DRAW_BUFFER)

I made it with memblocks, because you can't use DOT on images (for using as a texture). But you can also use DOT for drawing directly
on screen, but as Jukuma said: Don't forget LOCK PIXELS & UNLOCK PIXELS.

Oh, and try:
set object texture 1,2,0
after MAKE OBJECT PLAIN.....

HTH,
MONOS

Back to top

Profile PM

Angry kreyon

20

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 25th Aug 2005 16:01

Link

MONOS - Thanks So Much for attempting to Explaine, it does help and I am starting to get the hang of this. slowly but surely. I guess I just got used to Visual Programming, so I always want a visual map of my objects and such, I will have to learn to do without. - Thanks Again and I will keep watching to see what else I can learn.

Back to top

Profile PM Email

DrewG

20

Years of Service

User Offline

Joined: 25th Aug 2005

Location:

Posted: 25th Sep 2005 08:02

Link

Okay I tried this in a DBP trial and it looks awesome. Umm, possible to mod it to work for DBC?

Games I am releasing:
Dragon Stone I : Journey to Achilles Dungeon - 2006?

Back to top

Profile PM

Lukas W

22

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 26th Sep 2005 12:52

Link

by the way isn't Phaelax or some other old skool dbc coder "the original author" to this? or am i completely wrong

http://lukashangout.tk - ZombieHunter - This is a map editor

Back to top

Profile PM Email

Angry kreyon

20

Years of Service

User Offline

Joined: 19th Aug 2005

Location:

Posted: 26th Sep 2005 23:35

Link

@Sony - yes I am sure with Very little work this could be ported over to classic,I'm not sure but it might run the way it is.(i dont have classic so I don't know.)

@Lucas W - in case you started at the bottom of this post, here is the very first line at the top : "ok I did not originaly write the code, I found it here as an old post (from 2003) that was supposed to be a plasma thing,..." - I didn't think at the time to look at who made it, but I do not try and take credit for the original code Ever! (unless it truly is mine.) most of the time I find it's easier for me to take pieces of code from other projects and make something new from them. usually about half way throught the project I have twisted the code around so much it's almost mine, but still I always try and make sure that people know that the code was there before and I only made changes, after all I am just a Hacker! (oooops now I have to kill you!!! *LOL*

)

when I have the time I will list some of the Modifiers I have found in this code to make some real cool effects!

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 27th Sep 2005 06:34

Link

nice snippets from everyone. I updated my code to use memblocks and create a texture instead of drawing points, no speed improvements.

Deadly Night Assassins

Back to top

Profile PM Email Website

Lukas W

22

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 27th Sep 2005 13:16

Link

lol at phaelax.!

well err.. Angry(?) Kreyon. no harm done, and i was just asking.

thanks for that info anyway

http://lukashangout.tk - ZombieHunter - This is a map editor

Back to top

Profile PM Email

Specters

20

Years of Service

User Offline

Joined: 30th Sep 2005

Location: idaho

Posted: 6th Oct 2005 09:09

Link

I totally agree with what Sony put. Can some find out how to make it work for DBC, you would definetly get credit in my final RPG game I am making in DBC, I have an idea for what I will use it for. Thanks in advance. Oh and if you don't have DBC, just download the trial.

Current Project : Legend of Lantis

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / NewB Makes Fire! Burns the Competition in 56 lines of Code!