My Particle Engine

Monkey Forums/Monkey Code/My Particle Engine

Yahfree

(Posted 2011) [#1]

Ported over from bmax.. Obviously Flash/HTML5/(BLANK)Phone can't handle a ton of particles, so use gently. For particle explosions to work correctly, you need to set the seed ( Seed = Millisecs() )

Import mojo
Class Particle
	Global ParticleList:List<Particle> = New List<Particle>
	Field x:Float,y:Float,a:Float = 1,r:Int
	Field ox:Int,oy:Int
	Field img:Image
	Field dx:Float,dy:Float, da:Float
	Field maxdistance:Int
	Field speed:Float
	Field dir:Int
	Field fade:Int
	Field z:Int
	
	Method Create:Particle(_x:Int, _y:Int, _img:Image, _dir:Int = 0, _speed:Float = 0, frames:Int = 1, _fade:Int = False, _autorot:Int = False, _z:Int = 0)
		ParticleList.AddLast(Self)
		z = _z
		x = _x
		y = _y
		ox = _x
		oy = _y
		img = _img
		speed = _speed
		dir = _dir
		dx = Sin(dir) * speed
		dy = -Cos(dir) * speed
		da = 1.0 / frames
		maxdistance = frames
		If dir And _autorot
			r = -dir - 180
		End If

		If _fade
			fade = True
		End If
	End Method
	
	Method Update()
		x+=dx
		y+=dy
		If fade a-=da
		
		maxdistance-=1
		If maxdistance <= 0 Or a <= 0
			Destroy()
		End If
		
		If x > VDeviceWidth() Or x < 0 - img.Width Or y > VDeviceHeight() Or y < 0 - img.Height
			Destroy()
		End If
	End Method
	Method Draw()
		SetAlpha a
		DrawImage img,x,y,r,1,1
		SetAlpha 1
	End Method
	
	
	Method SetPAlpha(alpha:Float)
		a = alpha
	End Method
	
	Method SetPRotation(rot:Int)
		r = rot
	End Method
	
	Method Destroy()
		ParticleList.Remove(Self)
	End Method
	
	Method AddX(_x:Int)
		x+= _x
	End Method
	
	Method AddY(_y:Int)
		y+= _y
	End Method
	
	Method SetDirection(_dir:Int)
		dir = _dir
	End Method
	
	Method SetSpeed(_speed:Float)
		speed = _speed
	End Method
	
End


Function ParticleExplosion(_x:Float, _y:Float, image:Image, n:Int, frames:Int, speed_multiplyer:Float = 0, ar:Int = False, _z:Int = 0)
	Local speed:Float
	
	For Local i:Int = 1 To n
		Local dir:Int = Rnd(0, 359)
		
		If speed_multiplyer
			speed = Rnd(0.08*speed_multiplyer, 1.5*speed_multiplyer)
		Else
			speed = Rnd(0.08, 1.5)
		End If
		
		Local part:Particle = New Particle()
		part.Create(_x, _y, image, dir, speed, frames - 10 + Rnd((frames*1.40)), True, ar, _z)
	Next
	
End Function

Function EmitParticle(_x:Float, _y:Float, image:Image, frames:Int, fade:Int = True, dir:Int = 0, speed:Float = 0, ar:Int = False, _z:Int = 0)

	Local part:Particle = New Particle()
	part.Create(_x, _y, image, dir, speed, frames, fade, ar, _z)

End Function

Function ParticleCount:Int()
	Return Particle.ParticleList.Count()
End Function

Function ClearParticles()
	Particle.ParticleList.Clear()
End Function

Function ClearParticlesZ(z:Int = 0)
	For Local delp:Particle = Eachin Particle.ParticleList
		If delp.z = z
			Particle.ParticleList.Remove(delp)
		End If
	Next
End Function

Function UpdateParticlesZ(z:Int = 0, forcex:Float = 0, forcey:Float = 0)	
	For Local UpdateP:Particle = Eachin Particle.ParticleList
		If UpdateP.z = z
			UpdateP.Update()
			If forcex UpdateP.x+=forcex
			If forcey UpdateP.y+=forcey
		End If
	Next
End Function
Function DrawParticlesZ(z:Int = 0)	
	For Local UpdateP:Particle = Eachin Particle.ParticleList
		If UpdateP.z = z
			UpdateP.Draw()
		End If
	Next
End Function

matt	(Posted 2011) [#2]

A test app to show example use would be great!