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/Map.hs | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/src/Game/Map.hs b/src/Game/Map.hs
index 95e5618..47dc31c 100644
--- a/src/Game/Map.hs
+++ b/src/Game/Map.hs
@@ -37,6 +37,7 @@ data Object
   = PlayerEntity Int Int
   | BatteryEntity Int Int
   | SlimeEntity Int Int
+  | RobotEntity Int Int
   deriving (Show, Eq, Ord)
 
 data JsonMapData = JsonMapData
@@ -78,6 +79,8 @@ instance JSON Object where
         BatteryEntity <$> valFromObj "x" obj <*> valFromObj "y" obj
       Just "Slime" ->
         SlimeEntity <$> valFromObj "x" obj <*> valFromObj "y" obj
+      Just "Robot" ->
+        RobotEntity <$> 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