diff options
author | Juan J. Martinez <jjm@usebox.net> | 2023-02-21 12:40:31 +0000 |
---|---|---|
committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-21 12:40:31 +0000 |
commit | 198498b3c604d55d3b54fef34c62f215ba8a2525 (patch) | |
tree | f3d7725657608cafdfc4888313f3631c14857032 /src/Game/Map.hs | |
parent | fd74ead510f4ca326e36450fa23dee0d681c296b (diff) | |
download | space-plat-hs-198498b3c604d55d3b54fef34c62f215ba8a2525.tar.gz space-plat-hs-198498b3c604d55d3b54fef34c62f215ba8a2525.zip |
New Robot enemy.
Diffstat (limited to 'src/Game/Map.hs')
-rw-r--r-- | src/Game/Map.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |