From 198498b3c604d55d3b54fef34c62f215ba8a2525 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Tue, 21 Feb 2023 12:40:31 +0000
Subject: New Robot enemy.

---
 src/Game/Entities/Robot.hs | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 src/Game/Entities/Robot.hs

(limited to 'src/Game/Entities/Robot.hs')

diff --git a/src/Game/Entities/Robot.hs b/src/Game/Entities/Robot.hs
new file mode 100644
index 0000000..64c9d48
--- /dev/null
+++ b/src/Game/Entities/Robot.hs
@@ -0,0 +1,46 @@
+module Game.Entities.Robot (mkRobot) where
+
+import Data.Bits (Bits (..))
+import Data.IORef
+import Game.Entities.Common
+import Game.Entities.Const
+import Game.Entities.Types
+import qualified Game.Sprites as S
+
+mkRobot :: S.SpriteSheet -> Int -> Int -> IORef Entity -> IsBlocked -> IO () -> IO Entity
+mkRobot sprites x y playerRef isBlocked hitPlayer' = do
+  s <- S.get sprites "robot"
+  pure
+    Entity
+      { typ = TypeEnemy,
+        x = x,
+        y = y,
+        delay = frameDelay,
+        frame = 0,
+        jumping = False,
+        gravity = gravityOff,
+        dir = DirRight,
+        sprite = s,
+        update = updateRobot (collision playerRef 24) isBlocked hitPlayer',
+        destroy = False,
+        spawns = []
+      }
+
+updateRobot :: Collision -> IsBlocked -> IO () -> Entity -> IO Entity
+updateRobot touchedPlayer isBlocked hitPlayer' e = do
+  touched <- touchedPlayer e
+  let updated = updateFrame True e
+  if touched then fmap (const e) hitPlayer' else pure $ updateMovement updated
+  where
+    updateMovement :: Entity -> Entity
+    updateMovement ent
+      | testBit ent.delay 1 = ent
+      | ent.dir == DirLeft
+          && (isBlocked (ent.x - 1) (ent.y + 17) || isBlocked (ent.x - 1) (ent.y + 17) || not (isBlocked (ent.x - 1) (ent.y + 24))) =
+          ent {dir = DirRight}
+      | ent.dir == DirLeft = ent {x = ent.x - 1}
+      | ent.dir == DirRight
+          && (isBlocked (ent.x + 16) (ent.y + 17) || isBlocked (ent.x + 16) (ent.y + 17) || not (isBlocked (ent.x + 16) (ent.y + 24))) =
+          ent {dir = DirLeft}
+      | ent.dir == DirRight = ent {x = ent.x + 1}
+      | otherwise = ent
-- 
cgit v1.2.3