Added "tracker" enemy

1 files changed, 13 insertions, 0 deletions

diff --git a/src/Game/Entities/Common.hs b/src/Game/Entities/Common.hs
index eb84400..8fa7fe3 100644
--- a/src/Game/Entities/Common.hs
+++ b/src/Game/Entities/Common.hs
@@ -3,6 +3,7 @@ module Game.Entities.Common
     frameLimit,
     collision,
     inLine,
+    facingLower,
     updateFrame,
     updateGravity,
     turn,
@@ -54,6 +55,18 @@ inLine playerRef otherHeight other = do
              || (other.dir == DirRight && player.x > other.x)
          )
 
+-- | Check if the entity is facing the player and it is in a lower plarform.
+facingLower :: IORef Entity -> Collision
+facingLower playerRef other = do
+  player <- readIORef playerRef
+  pure $
+    player.typ == TypePlayer
+      && player.gravity == gravityOff
+      && player.y < other.y
+      && ( (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