Time for action – building the Enemy class

1. Add a new class called Enemy to the Robot Rampage project.

2. Add declarations to the Enemy class:

   #Region "Declarations"
   Public EnemyBase As Sprite
   Public EnemyClaws As Sprite
   Public EnemySpeed As Single = 60
   Public CurrentTargetSquare As Vector2
   Public Destroyed As Boolean = False
   Private _collisionRadius As Integer = 14
   #End Region

3. Add a constructor to the Enemy class:

   #Region "Constructor"
   Public Sub New(
       worldLocation As Vector2,
       texture As Texture2D,
       initialFrame As Rectangle)
   
       EnemyBase = new Sprite(
           worldLocation,
           texture,
           initialFrame,
           Vector2.Zero)
   
       EnemyBase.CollisionRadius = _collisionRadius
   
       Dim turretFrame As Rectangle = initialFrame
   
       turretFrame.Offset(0, initialFrame.Height)
       EnemyClaws = new Sprite(
           worldLocation,
           texture,
           turretFrame,
           Vector2.Zero)
   End Sub
   #End Region

4. Add the Update() and Draw() methods to the Enemy class:

   #region "Public Methods...