Smoke Effect - GameCreators Forum

Author

Message

CuCuMBeR

23

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 31st May 2005 05:49

Link

Actually with some tweaking can be used for trails or clouds too
use cursor keys to adjust wind

Rem Project: Smoke
Rem Created: 30.05.2005 15:53:14

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

`Create smoke image
create bitmap 1,50,50
ink rgb(250,200,100),0
for x=1 to 1000
   ang=rnd(360)
   rad=rnd(20)
   dot 25+sin(ang)*rad,25+cos(ang)*rad
next x
blur bitmap 1,4
img = free_image()
get image img,0,0,50,50
delete bitmap 1

Type Vectors
   x As Float
   y As Float
   z As Float
EndType

Type Particle
   p As Vectors
   v As Vectors
   sz As Vectors
   Fade As Float
EndType

make matrix 1,1000,1000,20,20
position camera 0,20,-50

GOSUB makeSmoke

sync on
do
GOSUB loopSmoke
if leftkey() then windx# = windx# - 0.01
if rightkey() then windx# = windx# + 0.01
if upkey() then windz# = windz# + 0.01
if downkey() then windz# = windz# - 0.01

camera#=wrapvalue(camera#+0.3)
position camera -sin(camera#)*128.0,30,100+cos(camera#)*128.0
point camera 0.0,0.0,100+0.0

sync
loop

makeSmoke:
ttlPrc = 400
objPrc = free_object()
DIM Particles(ttlPrc) As Particle
`Make particles
for x=objPrc to objPrc+ttlPrc
   make object plain x,10,10
   `make object triangle x, -10, 0, 0, 0, 10, 0, 10, 0, 0
   texture object x,img
   hide object x
      set object transparency x,3
      ghost object on x,0
      set object transparency x, 1
      set alpha mapping on x, 100
next x
RETURN

loopSmoke:
`Loop through particles
for t=1 to ttlPrc
   Particles(t).sz.x = Particles(t).sz.x + 0.5
   Particles(t).sz.y = Particles(t).sz.y + 0.5
   Particles(t).p.x = Particles(t).p.x + Particles(t).v.x + windx#
   Particles(t).p.y = Particles(t).p.y + Particles(t).v.y
   Particles(t).p.z = Particles(t).p.z + Particles(t).v.z + windz#
   `Fade particle value
   Particles(t).Fade = Particles(t).Fade - 1
   `Position, scale and fade particle object
   position object objPrc+t-1,Particles(t).p.x,Particles(t).p.y,Particles(t).p.z
   scale object objPrc+t-1,Particles(t).sz.x,Particles(t).sz.y,100
   fade object objPrc+t-1,Particles(t).Fade
   `Point at camera
   set object to camera orientation objPrc+t-1
next t

inc i
if i>ttlPrc then i=1
if Particles(i).Fade < 0
   `Position
  Particles(i).p.x = 0
  Particles(i).p.y = 0
  Particles(i).p.z = 100
   `Scale
   Particles(i).sz.x = 50
   Particles(i).sz.y = 50
   `Velocity (randomize)
   Particles(i).v.x = rnd(100)/1000.0-0.1
   Particles(i).v.y = rnd(200)/1000.0+0.1
   Particles(i).v.z = rnd(100)/1000.0-0.1
   Particles(i).Fade = ttlPrc / 2.0
   `Show the particle
   show object objPrc+i-1
endif
RETURN

Function free_object()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i
Function free_image()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

+ Code Snippet

Rem Project: Smoke
Rem Created: 30.05.2005 15:53:14

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

`Create smoke image
create bitmap 1,50,50
ink rgb(250,200,100),0
for x=1 to 1000
   ang=rnd(360)
   rad=rnd(20)
   dot 25+sin(ang)*rad,25+cos(ang)*rad
next x
blur bitmap 1,4
img = free_image()
get image img,0,0,50,50
delete bitmap 1

Type Vectors
   x As Float
   y As Float
   z As Float
EndType

Type Particle
   p As Vectors
   v As Vectors
   sz As Vectors
   Fade As Float
EndType

make matrix 1,1000,1000,20,20
position camera 0,20,-50

GOSUB makeSmoke

sync on
do
GOSUB loopSmoke
if leftkey() then windx# = windx# - 0.01
if rightkey() then windx# = windx# + 0.01
if upkey() then windz# = windz# + 0.01
if downkey() then windz# = windz# - 0.01

camera#=wrapvalue(camera#+0.3)
position camera -sin(camera#)*128.0,30,100+cos(camera#)*128.0
point camera 0.0,0.0,100+0.0

sync
loop

makeSmoke:
ttlPrc = 400
objPrc = free_object()
DIM Particles(ttlPrc) As Particle
`Make particles
for x=objPrc to objPrc+ttlPrc
   make object plain x,10,10
   `make object triangle x, -10, 0, 0, 0, 10, 0, 10, 0, 0
   texture object x,img
   hide object x
      set object transparency x,3
      ghost object on x,0
      set object transparency x, 1
      set alpha mapping on x, 100
next x
RETURN

loopSmoke:
`Loop through particles
for t=1 to ttlPrc
   Particles(t).sz.x = Particles(t).sz.x + 0.5
   Particles(t).sz.y = Particles(t).sz.y + 0.5
   Particles(t).p.x = Particles(t).p.x + Particles(t).v.x + windx#
   Particles(t).p.y = Particles(t).p.y + Particles(t).v.y
   Particles(t).p.z = Particles(t).p.z + Particles(t).v.z + windz#
   `Fade particle value
   Particles(t).Fade = Particles(t).Fade - 1
   `Position, scale and fade particle object
   position object objPrc+t-1,Particles(t).p.x,Particles(t).p.y,Particles(t).p.z
   scale object objPrc+t-1,Particles(t).sz.x,Particles(t).sz.y,100
   fade object objPrc+t-1,Particles(t).Fade
   `Point at camera
   set object to camera orientation objPrc+t-1
next t

inc i
if i>ttlPrc then i=1
if Particles(i).Fade < 0
   `Position
  Particles(i).p.x = 0
  Particles(i).p.y = 0
  Particles(i).p.z = 100
   `Scale
   Particles(i).sz.x = 50
   Particles(i).sz.y = 50
   `Velocity (randomize)
   Particles(i).v.x = rnd(100)/1000.0-0.1
   Particles(i).v.y = rnd(200)/1000.0+0.1
   Particles(i).v.z = rnd(100)/1000.0-0.1
   Particles(i).Fade = ttlPrc / 2.0
   `Show the particle
   show object objPrc+i-1
endif
RETURN

Function free_object()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i
Function free_image()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

Following is another version

Rem Project: Smoke
Rem Created: 30.05.2005 15:53:14

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

`Create smoke image
create bitmap 1,50,50
ink rgb(250,200,100),0
for x=1 to 1000
   ang=rnd(360)
   rad=rnd(20)
   dot 25+sin(ang)*rad,25+cos(ang)*rad
next x
blur bitmap 1,4
img = free_image()
get image img,0,0,50,50
delete bitmap 1

Type Vectors
   x As Float
   y As Float
   z As Float
EndType

Type Particle
   p As Vectors
   v As Vectors
   sz As Vectors
   Fade As Float
EndType

make matrix 1,1000,1000,20,20
position camera 0,20,-50

GOSUB makeSmoke

sync on
do
GOSUB loopSmoke
if leftkey() then windx# = windx# - 0.01
if rightkey() then windx# = windx# + 0.01
if upkey() then windz# = windz# + 0.01
if downkey() then windz# = windz# - 0.01

camera#=wrapvalue(camera#+0.3)
position camera -sin(camera#)*128.0,30,100+cos(camera#)*128.0
point camera 0.0,0.0,100+0.0

sync
loop

makeSmoke:
ttlPrc = 300
objPrc = free_object()
DIM Particles(ttlPrc) As Particle
`Make particles
for x=objPrc to objPrc+ttlPrc
   make object plain x,10,10
   `make object triangle x, -10, 0, 0, 0, 10, 0, 10, 0, 0
   texture object x,img
   hide object x
      set object transparency x,3
      ghost object on x,0
      set object transparency x, 1
      set alpha mapping on x, 100
next x
RETURN

loopSmoke:
`Loop through particles
for t=1 to ttlPrc
   Particles(t).sz.x = Particles(t).sz.x + 0.5
   Particles(t).sz.y = Particles(t).sz.y + 0.5
   Particles(t).p.x = Particles(t).p.x + Particles(t).v.x + windx#
   Particles(t).p.y = Particles(t).p.y + Particles(t).v.y
   Particles(t).p.z = Particles(t).p.z + Particles(t).v.z + windz#
   `Fade particle value
   Particles(t).Fade = Particles(t).Fade - 1
   `Position, scale and fade particle object
   position object objPrc+t-1,Particles(t).p.x,Particles(t).p.y,Particles(t).p.z
   scale object objPrc+t-1,Particles(t).sz.x,Particles(t).sz.y,100
   fade object objPrc+t-1,Particles(t).Fade
   `Point at camera
   set object to camera orientation objPrc+t-1
next t

for i = 1 to ttlPrc
`if i>ttlPrc then i=1
if Particles(i).Fade < 0
   `Position
  Particles(i).p.x = 0
  Particles(i).p.y = 0
  Particles(i).p.z = 100
   `Scale
   Particles(i).sz.x = 50
   Particles(i).sz.y = 50
   `Velocity (randomize)
   Particles(i).v.x = rnd(100)/1000.0-0.1
   Particles(i).v.y = rnd(200)/1000.0+0.1
   Particles(i).v.z = rnd(100)/1000.0-0.1
   Particles(i).Fade = ttlPrc / 2.0
   `Show the particle
   show object objPrc+i-1
endif
next i
RETURN

Function free_object()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i
Function free_image()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

+ Code Snippet

Rem Project: Smoke
Rem Created: 30.05.2005 15:53:14

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

`Create smoke image
create bitmap 1,50,50
ink rgb(250,200,100),0
for x=1 to 1000
   ang=rnd(360)
   rad=rnd(20)
   dot 25+sin(ang)*rad,25+cos(ang)*rad
next x
blur bitmap 1,4
img = free_image()
get image img,0,0,50,50
delete bitmap 1

Type Vectors
   x As Float
   y As Float
   z As Float
EndType

Type Particle
   p As Vectors
   v As Vectors
   sz As Vectors
   Fade As Float
EndType

make matrix 1,1000,1000,20,20
position camera 0,20,-50

GOSUB makeSmoke

sync on
do
GOSUB loopSmoke
if leftkey() then windx# = windx# - 0.01
if rightkey() then windx# = windx# + 0.01
if upkey() then windz# = windz# + 0.01
if downkey() then windz# = windz# - 0.01

camera#=wrapvalue(camera#+0.3)
position camera -sin(camera#)*128.0,30,100+cos(camera#)*128.0
point camera 0.0,0.0,100+0.0

sync
loop

makeSmoke:
ttlPrc = 300
objPrc = free_object()
DIM Particles(ttlPrc) As Particle
`Make particles
for x=objPrc to objPrc+ttlPrc
   make object plain x,10,10
   `make object triangle x, -10, 0, 0, 0, 10, 0, 10, 0, 0
   texture object x,img
   hide object x
      set object transparency x,3
      ghost object on x,0
      set object transparency x, 1
      set alpha mapping on x, 100
next x
RETURN

loopSmoke:
`Loop through particles
for t=1 to ttlPrc
   Particles(t).sz.x = Particles(t).sz.x + 0.5
   Particles(t).sz.y = Particles(t).sz.y + 0.5
   Particles(t).p.x = Particles(t).p.x + Particles(t).v.x + windx#
   Particles(t).p.y = Particles(t).p.y + Particles(t).v.y
   Particles(t).p.z = Particles(t).p.z + Particles(t).v.z + windz#
   `Fade particle value
   Particles(t).Fade = Particles(t).Fade - 1
   `Position, scale and fade particle object
   position object objPrc+t-1,Particles(t).p.x,Particles(t).p.y,Particles(t).p.z
   scale object objPrc+t-1,Particles(t).sz.x,Particles(t).sz.y,100
   fade object objPrc+t-1,Particles(t).Fade
   `Point at camera
   set object to camera orientation objPrc+t-1
next t

for i = 1 to ttlPrc
`if i>ttlPrc then i=1
if Particles(i).Fade < 0
   `Position
  Particles(i).p.x = 0
  Particles(i).p.y = 0
  Particles(i).p.z = 100
   `Scale
   Particles(i).sz.x = 50
   Particles(i).sz.y = 50
   `Velocity (randomize)
   Particles(i).v.x = rnd(100)/1000.0-0.1
   Particles(i).v.y = rnd(200)/1000.0+0.1
   Particles(i).v.z = rnd(100)/1000.0-0.1
   Particles(i).Fade = ttlPrc / 2.0
   `Show the particle
   show object objPrc+i-1
endif
next i
RETURN

Function free_object()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i
Function free_image()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

Back to top

Profile PM

Baggers

22

Years of Service

User Offline

Joined: 31st May 2004

Location: Yonder over dem dere hills

Posted: 31st May 2005 06:13 Edited at: 31st May 2005 06:14

Link

Try adding
"disable object zwrite x"
in your makesmoke routine, add it just after the
"set alpha mapping on x, 100" bit, it cleans up the edges for you !

Very nice effect though !

Back to top

Profile PM Email

CuCuMBeR

23

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 31st May 2005 06:47 Edited at: 31st May 2005 06:49

Link

Thanks Baggers, indeed the edges give it a shaded effect.

Back to top

Profile PM

jasonhtml

22

Years of Service

User Offline

Joined: 20th Mar 2004

Location: OC, California, USA

Posted: 3rd Jun 2005 13:07

Link

wow! i love this effect! theres only one problem... it is sorta slow... without it i run at about 110+ FPS... with it i get about 40-50 FPS... is there any way increase the FPS while using this? even if it results in a slight visual down-grade of the effect?

Deathquest: 95% (MMORPG)
DD Studios Website: http://www.geocities.com/jasonhtml/
DD Studios Forum: http://s6.invisionfree.com/DD_Studios_Forum

Back to top

Profile PM Email Website

CuCuMBeR

23

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 3rd Jun 2005 17:58

Link

sure, decrease the particles amount, and play with the scale stuff and you will get it:

Rem Project: Smoke
Rem Created: 30.05.2005 15:53:14

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

`Create smoke image
create bitmap 1,50,50
ink rgb(250,200,100),0
for x=1 to 1000
   ang=rnd(360)
   rad=rnd(20)
   dot 25+sin(ang)*rad,25+cos(ang)*rad
next x
blur bitmap 1,4
img = free_image()
get image img,0,0,50,50
delete bitmap 1

Type Vectors
   x As Float
   y As Float
   z As Float
EndType

Type Particle
   p As Vectors
   v As Vectors
   sz As Vectors
   Fade As Float
EndType

`make matrix 1,1000,1000,20,20
position camera 0,20,-50

GOSUB makeSmoke

make object cube 1000, 20
position object 1000, 0, 10, 130

sync rate 0
sync on
do
GOSUB loopSmoke
if leftkey() then windx# = windx# - 0.01
if rightkey() then windx# = windx# + 0.01
if upkey() then windz# = windz# + 0.01
if downkey() then windz# = windz# - 0.01

camera#=wrapvalue(camera#+0.3)
position camera -sin(camera#)*128.0,30,100+cos(camera#)*128.0
point camera 0.0,0.0,100.0
text 0,0,str$(screen fps())
sync
loop

makeSmoke:
ttlPrc = 200
objPrc = free_object()
DIM Particles(ttlPrc) As Particle
`Make particles
for x=objPrc to objPrc+ttlPrc
   make object plain x,10,10
   `make object triangle x, -10, 0, 0, 0, 10, 0, 10, 0, 0
   texture object x,img
   hide object x
      set object transparency x,3
      ghost object on x,0
      set object transparency x, 1
      set alpha mapping on x, 100
      disable object zwrite x
next x
RETURN

loopSmoke:
`Loop through particles
for t=1 to ttlPrc
   Particles(t).sz.x = Particles(t).sz.x + 2.0
   Particles(t).sz.y = Particles(t).sz.y + 2.0
   Particles(t).p.x = Particles(t).p.x + Particles(t).v.x + windx#
   Particles(t).p.y = Particles(t).p.y + Particles(t).v.y
   Particles(t).p.z = Particles(t).p.z + Particles(t).v.z + windz#
   `Fade particle value
   Particles(t).Fade = Particles(t).Fade - 2
   `Position, scale and fade particle object
   position object objPrc+t-1,Particles(t).p.x,Particles(t).p.y,Particles(t).p.z
   scale object objPrc+t-1,Particles(t).sz.x,Particles(t).sz.y,100
   fade object objPrc+t-1,Particles(t).Fade
   `Point at camera
   set object to camera orientation objPrc+t-1
next t

inc i
if i>ttlPrc then i=1
if Particles(i).Fade < 0
   `Position
  Particles(i).p.x = 0
  Particles(i).p.y = 0
  Particles(i).p.z = 100
   `Scale
   Particles(i).sz.x = 50
   Particles(i).sz.y = 50
   `Velocity (randomize)
   Particles(i).v.x = rnd(100)/500.0-0.1
   Particles(i).v.y = rnd(200)/500.0+0.1
   Particles(i).v.z = rnd(100)/500.0-0.1
   Particles(i).Fade = 200 `ttlPrc / 2.0
   `Show the particle
   show object objPrc+i-1
endif
RETURN

Function free_object()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i
Function free_image()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

+ Code Snippet

Rem Project: Smoke
Rem Created: 30.05.2005 15:53:14

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

`Create smoke image
create bitmap 1,50,50
ink rgb(250,200,100),0
for x=1 to 1000
   ang=rnd(360)
   rad=rnd(20)
   dot 25+sin(ang)*rad,25+cos(ang)*rad
next x
blur bitmap 1,4
img = free_image()
get image img,0,0,50,50
delete bitmap 1

Type Vectors
   x As Float
   y As Float
   z As Float
EndType

Type Particle
   p As Vectors
   v As Vectors
   sz As Vectors
   Fade As Float
EndType

`make matrix 1,1000,1000,20,20
position camera 0,20,-50

GOSUB makeSmoke

make object cube 1000, 20
position object 1000, 0, 10, 130

sync rate 0
sync on
do
GOSUB loopSmoke
if leftkey() then windx# = windx# - 0.01
if rightkey() then windx# = windx# + 0.01
if upkey() then windz# = windz# + 0.01
if downkey() then windz# = windz# - 0.01

camera#=wrapvalue(camera#+0.3)
position camera -sin(camera#)*128.0,30,100+cos(camera#)*128.0
point camera 0.0,0.0,100.0
text 0,0,str$(screen fps())
sync
loop

makeSmoke:
ttlPrc = 200
objPrc = free_object()
DIM Particles(ttlPrc) As Particle
`Make particles
for x=objPrc to objPrc+ttlPrc
   make object plain x,10,10
   `make object triangle x, -10, 0, 0, 0, 10, 0, 10, 0, 0
   texture object x,img
   hide object x
      set object transparency x,3
      ghost object on x,0
      set object transparency x, 1
      set alpha mapping on x, 100
      disable object zwrite x
next x
RETURN

loopSmoke:
`Loop through particles
for t=1 to ttlPrc
   Particles(t).sz.x = Particles(t).sz.x + 2.0
   Particles(t).sz.y = Particles(t).sz.y + 2.0
   Particles(t).p.x = Particles(t).p.x + Particles(t).v.x + windx#
   Particles(t).p.y = Particles(t).p.y + Particles(t).v.y
   Particles(t).p.z = Particles(t).p.z + Particles(t).v.z + windz#
   `Fade particle value
   Particles(t).Fade = Particles(t).Fade - 2
   `Position, scale and fade particle object
   position object objPrc+t-1,Particles(t).p.x,Particles(t).p.y,Particles(t).p.z
   scale object objPrc+t-1,Particles(t).sz.x,Particles(t).sz.y,100
   fade object objPrc+t-1,Particles(t).Fade
   `Point at camera
   set object to camera orientation objPrc+t-1
next t

inc i
if i>ttlPrc then i=1
if Particles(i).Fade < 0
   `Position
  Particles(i).p.x = 0
  Particles(i).p.y = 0
  Particles(i).p.z = 100
   `Scale
   Particles(i).sz.x = 50
   Particles(i).sz.y = 50
   `Velocity (randomize)
   Particles(i).v.x = rnd(100)/500.0-0.1
   Particles(i).v.y = rnd(200)/500.0+0.1
   Particles(i).v.z = rnd(100)/500.0-0.1
   Particles(i).Fade = 200 `ttlPrc / 2.0
   `Show the particle
   show object objPrc+i-1
endif
RETURN

Function free_object()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i
Function free_image()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

Back to top

Profile PM

MikeS

Retired Moderator

23

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 5th Jun 2005 00:47

Link

Very nice effect.

A book? I hate book. Book is stupid.
(Formerly Yellow)

Back to top

Profile PM Email

CuCuMBeR

23

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 5th Jun 2005 01:52

Link

yeah its nice, but useless when you want to show more than 1000-1500 quads at once in the scene.
best way is positioning the same smoke (200-500) quads where you want it to be in the scene but definitely at some point personally i want to show more than 3-4 smokes at once.
anyways, thanks for the comments

Back to top

Profile PM

jasonhtml

22

Years of Service

User Offline

Joined: 20th Mar 2004

Location: OC, California, USA

Posted: 6th Jun 2005 01:02

Link

thx Cucumber

Deathquest: 95% (MMORPG)
DD Studios Website: http://www.geocities.com/jasonhtml/
DD Studios Forum: http://s6.invisionfree.com/DD_Studios_Forum

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / Smoke Effect