Explosions Pack

Following a prompt by Xlsior I have produced 25mb of explosion sequences for use in your projects, royalty free.

All animations are 30 cells long and are at 256x256 so that you can reduce to whatever size you choose. 16 animation sets are included in this release.

I'll do more in different styles if there is interest.

http://www.bansheestudios.com/ftp/ExplosionsPack1.zip

Very kind & very generous! Nice work.

Thanks!

Great balls of fire!

yeah combustion is a great tool, isn't it? anyway, nice explosions! you could do some more, maybe with more colors or something...im sure, a lot of peeps out there would love to see more :)

btw: just made a small program to view the explosions (just copy it to the root-folder):

Graphics 640,480,0,2
SetBuffer BackBuffer()

fps = 30 ; frames per second
Dim frames(30) ; imagehandles
curframe = 0
dir$ = "."

While(dir <> "") 
	dir$ = Input("directory (a-z, leave empty to exit): ")
	If(FileType(CurrentDir()+dir$) = 2 And dir <> "")
		; load images
		hdir = ReadDir(CurrentDir()+dir)
		filename$ = NextFile(hdir)
		i = 0
		While filename <> ""
			If(FileType(CurrentDir()+dir$+""+filename) = 1)
				frames(i) = LoadImage(CurrentDir()+dir$+""+filename)
				i = i + 1
			EndIf
			filename$ = NextFile(hdir)
		Wend
		Cls
		; play explosion
		Repeat
			If(framestart < MilliSecs()-1000/fps)
				framestart = MilliSecs()
				curframe = (curframe + 1) Mod 30
			EndIf
			DrawBlock frames(curframe),0,0
			Flip
		Until KeyHit(1)
		; free up memory
		For i=0 To 30
			If(frames(i)<>0) FreeImage frames(i) : frames(i)=0
		Next
	EndIf
Wend
End

OK :), I will do more bangs soon of different styles such as smoke grenades etc.

I've not heard of combusion? For these I used Max.

Thankyou for the code OJay, I havn't even viewed these in realtime myself yet ! I'll go have a look...

http://www.blitzbasic.com/toolbox/toolbox.php?tool=53

Press escape to go back to the directory selection in this updated version of ojay's code.

Graphics 640,480,0,2
SetBuffer BackBuffer()

.start

fps = 30 ; frames per second
Dim frames(30) ; imagehandles
curframe = 0
dir$ = "."

While(dir <> "") 
	dir$ = Input("directory (a-z, leave empty to exit): ")
	If(FileType(CurrentDir()+dir$) = 2 And dir <> "")
		; load images
		hdir = ReadDir(CurrentDir()+dir)
		filename$ = NextFile(hdir)
		i = 0
		While filename <> ""
			If(FileType(CurrentDir()+dir$+""+filename) = 1)
				frames(i) = LoadImage(CurrentDir()+dir$+""+filename)
				i = i + 1
			EndIf
			filename$ = NextFile(hdir)
		Wend
		Cls
		; play explosion
		Repeat
			If(framestart < MilliSecs()-1000/fps)
				framestart = MilliSecs()
				curframe = (curframe + 1) Mod 30
			EndIf
			DrawBlock frames(curframe),0,0
			Flip
		Until KeyHit(1)
		; free up memory
		For i=0 To 30
			If(frames(i)<>0) FreeImage frames(i) : frames(i)=0
		Next
	EndIf
Wend
Goto start
End

very generous Banshee, thanks a lot!

*Excellent* work!!

Extremely appreciated.