Added new shooter enemy

1 files changed, 14 insertions, 0 deletions

diff --git a/src/Game/Entities/Common.hs b/src/Game/Entities/Common.hs
index 82e790e..661fe07 100644
--- a/src/Game/Entities/Common.hs
+++ b/src/Game/Entities/Common.hs
@@ -2,6 +2,7 @@ module Game.Entities.Common
   ( toSpriteSet,
     frameLimit,
     collision,
+    inLine,
     updateFrame,
     updateGravity,
   )
@@ -34,6 +35,19 @@ collision playerRef otherHeight other = do
       && player.y + otherHeight - 4 < other.y + otherHeight
       && other.y + 4 < player.y + 24
 
+-- | Check if the player is in line with the entity and the entity is facing the player.
+inLine :: IORef Entity -> Int -> Collision
+inLine playerRef otherHeight other = do
+  player <- readIORef playerRef
+  pure $
+    player.typ == TypePlayer
+      && player.y + otherHeight - 4 < other.y + otherHeight
+      && other.y + 4 < player.y + 24
+      -- XXX: adjust perhaps? so the enemies don't shoot too close to the player
+      && ( (other.dir == DirLeft && player.x < other.x)
+             || (other.dir == DirRight && player.x > other.x)
+         )
+
 -- | Update frame animation for entities that have direction.
 updateFrame :: Bool -> Entity -> Entity
 updateFrame updated e