Fixes "Too much recursion" and some similar issues

1 files changed, 21 insertions, 3 deletions

diff --git a/client/elm/battlemap/src/Battlemap/Tile.elm b/client/elm/battlemap/src/Battlemap/Tile.elm
index 068ee30..6d2a65b 100644
--- a/client/elm/battlemap/src/Battlemap/Tile.elm
+++ b/client/elm/battlemap/src/Battlemap/Tile.elm
@@ -1,14 +1,25 @@
-module Battlemap.Tile exposing (Type, set_direction, set_navigation)
+module Battlemap.Tile exposing
+   (
+      Type,
+      TileModifier(..),
+      set_direction,
+      set_navigation,
+      reset_tile
+   )
 
 import Battlemap.Direction
 import Character
 
+type TileModifier =
+   CanBeReached
+   | CanBeAttacked
+
 type alias Type =
    {
       floor_level : Int,
       nav_level : Battlemap.Direction.Type,
-      char_level : (Maybe Character.Ref)
---    mod_level : (Set TileModifier)
+      char_level : (Maybe Character.Ref),
+      mod_level : (Maybe TileModifier)
    }
 
 set_direction : Battlemap.Direction.Type -> Type -> Type
@@ -22,3 +33,10 @@ set_navigation dir t =
    {t |
       nav_level = dir
    }
+
+reset_tile : Type -> Type
+reset_tile t =
+   {t |
+      nav_level = Battlemap.Direction.None,
+      mod_level = Nothing
+   }