diff options
Diffstat (limited to 'particle.bmx')
| -rw-r--r-- | particle.bmx | 53 |
1 files changed, 35 insertions, 18 deletions
diff --git a/particle.bmx b/particle.bmx index 4098598..e511ace 100644 --- a/particle.bmx +++ b/particle.bmx @@ -21,9 +21,7 @@ ' $Id$ ' Strict -Import noddybox.algorithm Import "global.bmx" -Import "gametypes.bmx" Type TParticle Field life:Int @@ -36,40 +34,50 @@ Type TParticle Field ai:Double Field s:Double Field si:Double + Field r:Int + Field g:Int + Field b:Int - Function Image:TParticle(i:TImage, x:Int, y:Int) + Function Image:TParticle(i:TImage, x:Double, y:Double, dx:Double, dy:Double, r:Int, g:Int, b:Int) Local o:TParticle=New TParticle o.life=120 o.x=x o.y=y o.a=1 o.ai=-0.01 - o.dx=0 - o.dy=0 + o.dx=dx + o.dy=dy o.s=1 o.si=0 o.i=i + o.r=r + o.g=g + o.b=b Return o End Function - Function ScaleImage:TParticle(i:TImage, x:Int, y:Int,si:Double) + Function ScaleImage:TParticle(i:TImage, x:Double, y:Double, dx:Double, dy:Double, si:Double, r:Int, g:Int, b:Int) Local o:TParticle=New TParticle o.life=120 o.x=x o.y=y o.a=1 o.ai=-0.01 - o.dx=0 - o.dy=0 + o.dx=dx + o.dy=dy o.s=1 o.si=si o.i=i + o.r=r + o.g=g + o.b=b Return o End Function Method Update:Int() SetAlpha(a) SetScale(s,s) + SetColor(r,g,b) DrawImage(i,x,y) x:+dx y:+dy @@ -91,20 +99,28 @@ Type Particles plist.Clear() End Function - Function AddImage(i:TImage, x:Int, y:Int) - If plist.Count()<1000 - plist.AddLast(TParticle.Image(i,x,y)) - EndIf + Function AddImage(i:TImage, x:Double, y:Double, dx:Double=0, dy:Double=0) + plist.AddLast(TParticle.Image(i,x,y,dx,dy,255,255,255)) End Function - Function AddScaledImage(i:TImage, x:Int, y:Int, si:Double=0.1) - If plist.Count()<1000 - plist.AddLast(TParticle.ScaleImage(i,x,y,si)) - EndIf + Function AddScaledImage(i:TImage, x:Double, y:Double, si:Double=0.1, dx:Double=0, dy:Double=0) + plist.AddLast(TParticle.ScaleImage(i,x,y,dx,dy,si,255,255,255)) + End Function + + Function AddExplosion(x:Double, y:Double) + For Local f:Int=0 To 20 + plist.AddLast(TParticle.Image(GFX.star,x,y,Rnd(-2,2),Rnd(-2,2),Rand(100,255),Rand(100,255),Rand(100,255))) + Next + End Function + + Function AddBigExplosion(x:Double, y:Double) + plist.AddLast(TParticle.ScaleImage(GFX.exhaust,x,y,0,0,0.3,255,0,0)) + For Local f:Int=0 To 50 + plist.AddLast(TParticle.Image(GFX.star,x,y,Rnd(-2,2),Rnd(-2,2),Rand(100,255),Rand(100,255),Rand(100,255))) + Next End Function Function Draw() - SetColor(255,255,255) Local l:TEasyLink=TEasyLink.Create(plist) While l.Value() @@ -118,5 +134,6 @@ Type Particles Wend SetAlpha(1) SetScale(1,1) + SetColor(255,255,255) End Function -End Type +End Type
\ No newline at end of file |