diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-02-17 23:20:31 +0000 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-17 23:20:31 +0000 |
| commit | 12728ed582057403e273d593eba781dd8b655f1f (patch) | |
| tree | 5960174977ba9fd116265b9317c5bea35742b422 /src/Game/Map.hs | |
| parent | cf6fc8b7cb8b108e5778481070944acb13513b5d (diff) | |
| download | space-plat-hs-12728ed582057403e273d593eba781dd8b655f1f.tar.gz space-plat-hs-12728ed582057403e273d593eba781dd8b655f1f.zip | |
Added fixed pattern enemy (slimes)
Diffstat (limited to 'src/Game/Map.hs')
| -rw-r--r-- | src/Game/Map.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 |