From 568309d0cfb5114accbc21962d5d23c3b9bf7036 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 23 Sep 2017 20:26:52 +0200
Subject: Fixes "Too much recursion" and some similar issues

---
 client/elm/battlemap/src/Battlemap/Tile.elm | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

(limited to 'client/elm/battlemap/src/Battlemap/Tile.elm')

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
+   }
-- 
cgit v1.2.3-70-g09d2