My 3d Torch Fire function here :)

Author

Message

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 22nd Mar 2019 06:53 Edited at: 25th Mar 2019 03:27

Link

I thought id share my fire function with the community, it takes all the dirty work out of making fire for torches campfires and candles it comes complete with particles fire and smoke.

simply download the attached file and drop it into your project folder
then in your main project add these lines

+ Code Snippet

#include "fire.agc"
`loads images in a numbered series
Load_fire()

` (particle number,objectnumber, number of images to use,size) "images provided!"
createobjectbox(1,.1,.1,.1)
makefire(1,1,4,4)

Do
`(particle number,objectnumber)
move_fire(1,1)
sync()
loop

this will create a smoke cloud, spark particles and moving flames, it has a built in offset to keep the sprites from running all over the place as the camera moves and the screen xy coods change. i

hope this helps someone enjoy

torch code separate below

function Load_fire()
global particlesreserved as integer:particlesreserved=95
global firestepper as integer
firestepper=100
global oldfirex as integer[10]
global newfirex as integer[10]
global oldfirey as integer[10]
global newfirey as integer[10]
	LoadImage (16,"particle.png")
	for i = 100 to 104
		loadimage(i,"fire"+str(i-99)+".png")
	next 
	endfunction

function makefire(partid,objID,imagenums,size)
	`spark particles
global imgnums
imgnums=imagenums
CreateParticles           ( objID, 150, 10 )

SetParticlesImage         ( objID, 16 )
SetParticlesStartZone     ( objID, -2, -1, 2, 1 )
SetParticlesDirection     ( objID, 0, 50.0*size )
SetParticlesLife          ( objID, 4 )
SetParticlesSize          ( objID, 2*size )
SetParticlesAngle         ( objID, 30 ) 
SetParticlesFrequency     ( objID, .3 )
SetParticlesVelocityRange ( objID, 1, 4 )
AddParticlesColorKeyFrame ( objID, 0, 255, 255, 55, 255 )
AddParticlesColorKeyFrame ( objID, .5, 255, 255, 50, 200 )
AddParticlesColorKeyFrame ( objID, 3.0, 50, 50, 50, 100 )
AddParticlesColorKeyFrame ( objID, 4.0, 0, 0, 0, 0 )

`blacksmoke
CreateParticles (objID+1,GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)),GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)))
SetParticlesImage         ( objID+1, 16 )
SetParticlesStartZone     ( objID+1, -2, 5, 2, 9 )
SetParticlesDirection     ( objID+1, 0, -50.0*size )
SetParticlesLife          ( objID+1, 4 )
SetParticlesSize          ( objID+1, 20*size )
SetParticlesAngle         ( objID+1, 20 )
SetParticlesFrequency     ( objID+1, 20 )
SetParticlesVelocityRange ( objID+1, 1, 4 )
AddParticlesColorKeyFrame ( objID+1, 0, 55, 55, 55, 85 )
AddParticlesColorKeyFrame ( objID+1, .5, 55, 55, 55, 50 )
AddParticlesColorKeyFrame ( objID+1, 3.0, 10, 10, 10, 25 )
AddParticlesColorKeyFrame ( objID+1, 4.0, 0, 0, 0, 0 )

`load fire images create 4 particles for rnd fire effect.	
for i=particlesreserved+(partid*4)+partid to particlesreserved+imgnums+(partid*4)+partid

CreateParticles        	  ( i, 150, 10 )
	SetParticlesImage         ( i, firestepper)
	SetParticlesStartZone     ( i, -1*size, 1*size, 1*size, 1*size )
	SetParticlesDirection     ( i, 0, -40.0*size )
	SetParticlesLife          ( i, .4 )
	SetParticlesSize          ( i, 9 *size)
	SetParticlesAngle         ( i, 0 )
	SetParticlesFrequency     ( i, 13*size)
	AddParticlesColorKeyFrame ( i, .1, 255, 255, 55, 255 )
	AddParticlesColorKeyFrame ( i, .2, 255, 255, 55, 155 )
	AddParticlesColorKeyFrame ( i, .2, 255, 255, 55, 75 )
	AddParticlesColorKeyFrame ( i, .4, 155, 155, 55, 25 )
	SetParticlesVelocityRange ( i, .5, 2 )
	if firestepper < imgnums+100
		inc firestepper, 1
	else 
		firestepper=100
endif
next	
endfunction

function move_fire(partid,objID)
	
		oldfirex[partid]=GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		oldfirey[partid]=GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		for i=particlesreserved+(partid*4)+partid to particlesreserved+imgnums+(partid*4)+partid
			OffsetParticles(i,(oldfirex[partid]-newfirex[partid]),oldfirey[partid]-newfirey[partid])	
		next
		OffsetParticles(objID+1,(oldfirex[partid]-newfirex[partid]),oldfirey[partid]-newfirey[partid]) 
	
		newfirex[partid]=GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		newfirey[partid]=GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		for i=particlesreserved+(partid*4)+partid to particlesreserved+imgnums+(partid*4)+partid
			SetParticlesPosition(i,newfirex[partid],newfirey[partid])
			SetParticlesPosition(objID,GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)),GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)))
			SetParticlesPosition(objID+1,newfirex[partid],newfirey[partid])
		next
endfunction

+ Code Snippet



function Load_fire()
global particlesreserved as integer:particlesreserved=95
global firestepper as integer
firestepper=100
global oldfirex as integer[10]
global newfirex as integer[10]
global oldfirey as integer[10]
global newfirey as integer[10]
	LoadImage (16,"particle.png")
	for i = 100 to 104
		loadimage(i,"fire"+str(i-99)+".png")
	next 
	endfunction 

function makefire(partid,objID,imagenums,size)
	`spark particles
global imgnums
imgnums=imagenums
CreateParticles           ( objID, 150, 10 )


SetParticlesImage         ( objID, 16 )
SetParticlesStartZone     ( objID, -2, -1, 2, 1 )
SetParticlesDirection     ( objID, 0, 50.0*size )
SetParticlesLife          ( objID, 4 )
SetParticlesSize          ( objID, 2*size )
SetParticlesAngle         ( objID, 30 ) 
SetParticlesFrequency     ( objID, .3 )
SetParticlesVelocityRange ( objID, 1, 4 )
AddParticlesColorKeyFrame ( objID, 0, 255, 255, 55, 255 )
AddParticlesColorKeyFrame ( objID, .5, 255, 255, 50, 200 )
AddParticlesColorKeyFrame ( objID, 3.0, 50, 50, 50, 100 )
AddParticlesColorKeyFrame ( objID, 4.0, 0, 0, 0, 0 )

`blacksmoke
CreateParticles (objID+1,GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)),GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)))
SetParticlesImage         ( objID+1, 16 )
SetParticlesStartZone     ( objID+1, -2, 5, 2, 9 )
SetParticlesDirection     ( objID+1, 0, -50.0*size )
SetParticlesLife          ( objID+1, 4 )
SetParticlesSize          ( objID+1, 20*size )
SetParticlesAngle         ( objID+1, 20 )
SetParticlesFrequency     ( objID+1, 20 )
SetParticlesVelocityRange ( objID+1, 1, 4 )
AddParticlesColorKeyFrame ( objID+1, 0, 55, 55, 55, 85 )
AddParticlesColorKeyFrame ( objID+1, .5, 55, 55, 55, 50 )
AddParticlesColorKeyFrame ( objID+1, 3.0, 10, 10, 10, 25 )
AddParticlesColorKeyFrame ( objID+1, 4.0, 0, 0, 0, 0 )
 

`load fire images create 4 particles for rnd fire effect.	
for i=particlesreserved+(partid*4)+partid to particlesreserved+imgnums+(partid*4)+partid

	CreateParticles        	  ( i, 150, 10 )
	SetParticlesImage         ( i, firestepper)
	SetParticlesStartZone     ( i, -1*size, 1*size, 1*size, 1*size )
	SetParticlesDirection     ( i, 0, -40.0*size )
	SetParticlesLife          ( i, .4 )
	SetParticlesSize          ( i, 9 *size)
	SetParticlesAngle         ( i, 0 )
	SetParticlesFrequency     ( i, 13*size)
	AddParticlesColorKeyFrame ( i, .1, 255, 255, 55, 255 )
	AddParticlesColorKeyFrame ( i, .2, 255, 255, 55, 155 )
	AddParticlesColorKeyFrame ( i, .2, 255, 255, 55, 75 )
	AddParticlesColorKeyFrame ( i, .4, 155, 155, 55, 25 )
	SetParticlesVelocityRange ( i, .5, 2 )
	if firestepper < imgnums+100
		inc firestepper, 1
	else 
		firestepper=100
endif
next	
endfunction 


function move_fire(partid,objID)
	
		oldfirex[partid]=GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		oldfirey[partid]=GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		for i=particlesreserved+(partid*4)+partid to particlesreserved+imgnums+(partid*4)+partid
			OffsetParticles(i,(oldfirex[partid]-newfirex[partid]),oldfirey[partid]-newfirey[partid])	
		next
		OffsetParticles(objID+1,(oldfirex[partid]-newfirex[partid]),oldfirey[partid]-newfirey[partid]) 
	
		newfirex[partid]=GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		newfirey[partid]=GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID))
		for i=particlesreserved+(partid*4)+partid to particlesreserved+imgnums+(partid*4)+partid
			SetParticlesPosition(i,newfirex[partid],newfirey[partid])
			SetParticlesPosition(objID,GetScreenXFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)),GetScreenyFrom3D(getobjectx(objID), getobjecty(objID), getobjectz(objID)))
			SetParticlesPosition(objID+1,newfirex[partid],newfirey[partid])
		next
endfunction

EDIT: side not if you want more then one torch of fire add a seperate object for it to get xyz coord from but object number i believe needs to be 2 higher in number then the previous since it add images for smoke and particles. based off object id.

A child's dream never dies.

Attachments

Login to view attachments

Back to top

Profile PM Email

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 22nd Mar 2019 08:55

Link

nice smerf thanks for sharing

fubar

Back to top

Profile PM Email Website

haliop_New

User Banned

Posted: 22nd Mar 2019 11:25

Link

wow thanks !

Back to top

Profile

Rick Nasher

7

Years of Service

User Offline

Joined: 25th Jul 2017

Location: Amsterdam

Posted: 23rd Mar 2019 19:46 Edited at: 23rd Mar 2019 19:49

Link

Nice example, love the fire. Thanks for sharing, but 2 things:

- I think it should read move_fire(1,1) instead of movefire(1,1) in the main loop

- It doesn't seem to take other 3D-objects into account and always shows the fire sprites in the foreground of them.

I haven't delved into AGK's particle system enough yet to know how to tackle this, so that it appears behind 3D-objects when moving away from the box it's connected to.

Does this require a complete rework or is there an easy command or so to fix this?
I've seen for sprites there's a command to arrange the order of appearance SetSpriteDepth, but I'm not sure how that would combine within a 3D world, where for instance the main character of a third person shooter would move in front of the particle generated fire?

Back to top

Profile PM Email Website

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 24th Mar 2019 00:21

Link

you have to set the depth of your 3d objects or the depth of the particles or how ur game render's 2d and 3d front or back. that particles work as there supposed to better to be in front by default then behind i would imagine
try SetParticlesDepth( ID, depth )

A child's dream never dies.

Back to top

Profile PM Email

JosephB

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 24th Mar 2019 00:54

Link

Smerf,

Really nice, thank you. I added a Sync() command in place of the move command in your main.agc example. Following is the snippet for the main.agc file:

+ Code Snippet

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "FireDemo" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 0, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

#include "fire.agc"
`loads images in a numbered series
Load_fire()
 
` (particle number,objectnumber, number of images to use,size) "images provided!"
createobjectbox(1,.1,.1,.1)
makefire(1,1,4,4)
 
Do
`(particle number,objectnumber)
move_fire(1,1)
Sync()
loop

Back to top

Profile PM Email

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 25th Mar 2019 03:26

Link

yeah my bad it was pretty late an i was trying to piece it all together from different include files to make it work glad u guy are finding it useful, I was working on my game an realized i needed about 20 torches in a few different levels an immediately said the heck with setting all this up 100 times. Using it currently working great might make some better fire images later to make it really pop but for now its pretty good.

A child's dream never dies.

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Classic Chat / My 3d Torch Fire function here :)

Attachments