' --- Particle Type ----
Type Particle
 Field image, x#, y#, sx#, sy#, r, g, b, alpha#, spin#, rotation, size#, maxsize#, refresh#, T1
 'Field link
 Field Link:TLink
 Method Draw()
  w# = ImageWidth(Image)
  h# = ImageHeight(Image)
  width# = size#
  height# = size#

  SetColor(r,g,b)
  SetScale((width#/w#), (height#/h#))
  SetAlpha(Alpha#)
  SetRotation(Rotation)
  DrawImage Image, x, y
 End Method


 Method Update()

  ' move particle
  x# = x# + sx#
  y# = y# + sy#
 
  ' resize particle
  If MilliSecs()-T1 > Refresh# Then
   T1 = MilliSecs()
   If Size# < MaxSize Then Size = Size + 1
  EndIf

  ' set alpha
  Alpha# = 1 - (Size / MaxSize)

  'rotate
  Rotation = Rotation + Spin
  If Rotation < 0 Then Rotation = 360
  If Rotation > 360 Then Rotation = 0

  'Delete
  If x > ResX Or y > ResY Or x < 0 Or y < 0 Then self.Link.Remove()'ParticleList.remove(Self)

 End Method

End Type

Global ParticleList:TList = New TList
' --- Particle Type ----


Global ResX = 1024
Global ResY = 768

Global CountParticles ' number of particles

Graphics ResX, ResY, 32, 500

SetBlend ALPHABLEND
SetBlend LIGHTBLEND

ImageA = LoadImage("Particle.png") ' particle texture 1

HideMouse()


' ---- Hauptschleife ----
Repeat
 Cls

  If CountParticles > 300 Then Goto LeaveMainLoop

  If MilliSecs()-T1 > 0 Then
   T1 = MilliSecs()
   w = Rnd(360)
   
   PosX# = ResX/2 + Rnd(-10,10)
   PosY# = ResY/2 + Rnd(-10,10)
   SpeedX# = Cos(w)*Rnd(5)
   SpeedY# = Sin(w)*Rnd(5)
   r = Rnd(255,200)
   g = Rnd(150,100)
   b = Rnd(50,25)
   Alpha# = 1.0
   Spin# = Rnd(-5,5)
   Size = 64
   MaxSize = 196
   Refresh = 10

   CreateParticle(ImageA, PosX#, PosY#, SpeedX#, SpeedY#, r, g, b, Alpha#, Spin, Size, MaxSize, Refresh)
  EndIf

  #leavemainloop

  SetScale 1,1
  SetColor 200,200,200
  DrawText("FPS: " + FPS(), 0, 0)
  DrawText("Particles: " + CountParticles, 0, 10)
  DrawText("Memory: " + MemAlloced()/1024 + " KB", 0, 20)

  CountParticles = 0
  For p:particle = EachIn ParticleList
   CountParticles = CountParticles + 1
   p.draw()
   p.update()
  Next
 
  FlushMem()
 
 Flip
Until KeyHit(KEY_ESCAPE)
End
' ---- Hauptschleife ----



' ---- Create Particle ----
Function CreateParticle(image, x#, y#, sx#, sy#, r, g, b, alpha#, spin#, size#, maxsize#, refresh#)
 p:particle = New Particle
 p.image = image
 MidHandleImage(p.image)
 p.x# = x#
 p.y# = y#
 p.sx# = sx#
 p.sy# = sy#
 p.r = r
 p.g = g
 p.b = b
 p.alpha# = alpha#
 p.spin# = spin#
 p.size = size#
 p.maxsize# = maxsize#
 p.refresh# = refresh#
 p.link = ParticleList.addlast(p:particle)
End Function
' ---- Create Particle ----



' ---- Frames per Second ----
Global FPSSEC = MilliSecs(), FPSCOUNT, FRAMES

Function FPS()
 
  FRAMES = FRAMES + 1
  If MilliSecs() - FPSSEC => 1000 Then
   FPSCOUNT = FRAMES
   FRAMES = 0
   FPSSEC = MilliSecs()
  EndIf

 Return FPSCOUNT
End Function
' ---- Frames per Second ----