Type TSpark
   Global list:TList =CreateList()
   Field Link:TLink

   Field x#
   Field y#
   Field moveX#
   Field moveY#
   Field r
   Field g
   Field b
   Method New()
      Link = List.AddLast(Self)
      ri = Rand(360)
      moveX = Cos(ri) * 10
      moveY = -Sin(ri) * 10
   End Method

   Method setRi(ri:Int)
      moveX = Cos(ri) * 10
      moveY = -Sin(ri) * 10
   End Method

   Method stepTo(tox:Int, toy:Int)
      rishall = ATan2(y-toy,tox-x)
      movexshall# = Cos(rishall) * 10
      moveyshall# = -Sin(rishall) * 10
      moveX = moveX + (movexshall-movex)/20
      moveY = moveY + (moveyshall-movey)/20
      X = X + moveX
      Y = Y + moveY
   EndMethod
End Type

Graphics 800,600
SetBlend Lightblend
MoveMouse 200,200
shooterX# = 100
shooterY# = 100
bulletX# = 0
bullety# = 0
movex# = 0
moveY# = 0
Repeat
   If KeyHit(164)
      r = Rand(255)
      g = Rand(255)
      b = Rand(255)
      For x = 1 To 360 Step 10
         spark:TSpark = New TSpark
         spark.setRi(x)
         spark.x# = shooterx
         spark.y# = shootery
         spark.r = r
         spark.g = g
         spark.b = b
      Next
   End If

   If KeyHit(32)
         spark:TSpark = New TSpark
         spark.x# = shooterx
         spark.y# = shootery
         spark.r = Rand(255)
         spark.g = Rand(255)
         spark.b = Rand(255)
   End If

   If KeyHit(67)
      ClearList(TSpark.list)
   End If

   If MouseDown(1)
      shooterx = MouseX()
      shootery = MouseY()
   End If

   Cls
   SetColor 255,255,255
   DrawOval shooterX-5, shooterY-5, 10, 10
   For spark:Tspark = EachIn spark.list
      SetColor spark.r, spark.g, spark.b
      DrawOval spark.x-5, spark.y-5, 10, 10
      spark.stepTo(MouseX(), MouseY())
   Next
   Flip
Until KeyHit(27)