From 5a75000ec7b961ad5fe93814e5b7905cacbdba49 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Thu, 12 Oct 2017 19:46:36 +0200
Subject: Started a rather large reorganization.

---
 elm/battlemap/src/Battlemap/Tile.elm | 27 +++++++--------------------
 1 file changed, 7 insertions(+), 20 deletions(-)

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

diff --git a/elm/battlemap/src/Battlemap/Tile.elm b/elm/battlemap/src/Battlemap/Tile.elm
index 7e0ae68..d761225 100644
--- a/elm/battlemap/src/Battlemap/Tile.elm
+++ b/elm/battlemap/src/Battlemap/Tile.elm
@@ -1,38 +1,25 @@
 module Battlemap.Tile exposing
    (
       Type,
-      TileModifier(..),
-      set_direction,
-      reset
+      set_character,
+      get_character
    )
 
 import Battlemap.Direction
+import Battlemap.Marker
 import Battlemap.Location
 
 import Character
 
-type TileModifier =
-   CanBeReached
-   | CanBeAttacked
-
 type alias Type =
    {
       location : Battlemap.Location.Ref,
       floor_level : Int,
-      nav_level : Battlemap.Direction.Type,
       char_level : (Maybe Character.Ref),
-      mod_level : (Maybe TileModifier)
    }
 
-set_direction : Battlemap.Direction.Type -> Type -> Type
-set_direction d t =
-   {t |
-      nav_level = d
-   }
+set_character : (Maybe Character.Ref) -> Type -> Type
+set_character char_ref tile = {tile | char_level = char_ref}
 
-reset: Type -> Type
-reset t =
-   {t |
-      nav_level = Battlemap.Direction.None,
-      mod_level = Nothing
-   }
+get_character : Type -> (Maybe Character.Ref)
+get_character tile = tile.char_level
-- 
cgit v1.2.3-70-g09d2