From 7a8af18d0e1003c26eb595b5faa71e51da6286a6 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Mon, 17 Apr 2023 23:41:35 +0100
Subject: Added new shooter enemy

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

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

diff --git a/src/Game/Map.hs b/src/Game/Map.hs
index 9616971..1d395dc 100644
--- a/src/Game/Map.hs
+++ b/src/Game/Map.hs
@@ -43,6 +43,7 @@ data Object
   | BatteryEntity Int Int
   | SlimeEntity Int Int Dir
   | RobotEntity Int Int Dir
+  | ShooterEntity Int Int Dir
   deriving (Show, Eq, Ord)
 
 data JsonMapData = JsonMapData
@@ -86,10 +87,14 @@ instance JSON Object where
         SlimeEntity <$> valFromObj "x" obj <*> valFromObj "y" obj <*> pure DirRight
       Just "Robot" ->
         RobotEntity <$> valFromObj "x" obj <*> valFromObj "y" obj <*> pure DirRight
+      Just "Shooter" ->
+        ShooterEntity <$> valFromObj "x" obj <*> valFromObj "y" obj <*> pure DirRight
       Just "Slime-l" ->
         SlimeEntity <$> valFromObj "x" obj <*> valFromObj "y" obj <*> pure DirLeft
       Just "Robot-l" ->
         RobotEntity <$> valFromObj "x" obj <*> valFromObj "y" obj <*> pure DirLeft
+      Just "Shooter-l" ->
+        ShooterEntity <$> valFromObj "x" obj <*> valFromObj "y" obj <*> pure DirLeft
       Just (JSString (JSONString s)) -> Error $ "unsupported entity " ++ show s
       e -> Error $ "unsupported entity in " ++ show e
   readJSON _ = mzero
-- 
cgit v1.2.3