Time for action – the EffectsManager module

1. Add a new module called EffectsManager to the Robot Rampage project.

2. Add declarations to the EffectsManager module:

   #Region "Declarations"
   Private _effects As List(Of Particle) = New List(Of Particle)
   Private _rand As Random = New Random()
   Private _texture As Texture2D
   Private _particleFrame As Rectangle = New Rectangle(0, 288, 2, 2)
   Private _expFrames As List(Of Rectangle) = New List(Of Rectangle)
   #End Region

3. Add an Initialize() method to the EffectsManager module:

   #Region "Initialization"
   Public Sub Initialize(
       texture As Texture2D,
       particleFrame As Rectangle,
       explosionFrame As Rectangle,
       explosionFrameCount As Integer)
   
       _texture = texture
       _particleFrame = particleFrame
       _expFrames.Clear()
       _expFrames.Add(explosionFrame)
       For X as Integer = 1 to explosionFrameCount - 1
           explosionFrame.Offset(explosionFrame.Width, 0)
           _expFrames.Add(explosionFrame)
       Next
   End Sub
   #End Region

4. Add the RandomDirection(...