From 12728ed582057403e273d593eba781dd8b655f1f Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Fri, 17 Feb 2023 23:20:31 +0000
Subject: Added fixed pattern enemy (slimes)

---
 src/Game/Map.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Game/Map.hs')

diff --git a/src/Game/Map.hs b/src/Game/Map.hs
index ee30437..95e5618 100644
--- a/src/Game/Map.hs
+++ b/src/Game/Map.hs
@@ -36,7 +36,8 @@ data Layer
 data Object
   = PlayerEntity Int Int
   | BatteryEntity Int Int
-  deriving (Show)
+  | SlimeEntity Int Int
+  deriving (Show, Eq, Ord)
 
 data JsonMapData = JsonMapData
   { width :: Int,
@@ -75,6 +76,8 @@ instance JSON Object where
         PlayerEntity <$> valFromObj "x" obj <*> valFromObj "y" obj
       Just "Battery" ->
         BatteryEntity <$> valFromObj "x" obj <*> valFromObj "y" obj
+      Just "Slime" ->
+        SlimeEntity <$> valFromObj "x" obj <*> valFromObj "y" obj
       Just (JSString (JSONString s)) -> Error $ "unsupported entity " ++ show s
       e -> Error $ "unsupported entity in " ++ show e
   readJSON _ = mzero
-- 
cgit v1.2.3