Time for action – spark effects

1. Add the AddSparkEffect() method to the Public Methods region of the EffectsManager module:

   Public Sub AddSparksEffect(
       location As Vector2, 
       impactVelocity As Vector2)
   
       Dim particleCount As Integer = _rand.Next(10, 20)
       For x As Integer = 1 To particleCount
           Dim spark As Particle = New Particle(
               location - (impactVelocity / 60),
               _texture,
               _ParticleFrame,
               randomDirection(CSng(_rand.Next(10, 20))),
               Vector2.Zero,
               60,
               20,
               Color.Yellow,
               Color.Orange)
           _effects.Add(spark)
       Next
   End Sub

2. In the LoadContent() method of the Game1 class, initialize EffectsManager after the Player has been initialized:

   EffectsManager.Initialize(
       spriteSheet,
       New Rectangle(0, 288, 2, 2),
       New Rectangle(0, 256, 32, 32),
       3)

3. In the Update() method of the Game1 class, update EffectsManager after the Player has been updated:

   EffectsManager.Update...