From c9786fd27954c79faf901963003a8b7b3131ca4c Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 15 Sep 2017 17:41:07 +0200
Subject: Adds UI to test the Navigator.

---
 client/elm/battlemap/src/Battlemap/Html.elm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

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

diff --git a/client/elm/battlemap/src/Battlemap/Html.elm b/client/elm/battlemap/src/Battlemap/Html.elm
index d14e075..9f519d1 100644
--- a/client/elm/battlemap/src/Battlemap/Html.elm
+++ b/client/elm/battlemap/src/Battlemap/Html.elm
@@ -9,12 +9,23 @@ import Model exposing (Model)
 
 import Battlemap exposing (Battlemap, random)
 import Battlemap.Tile exposing (Tile)
+import Battlemap.Direction exposing (..)
 
 view_battlemap_cell : Tile -> (Html Msg)
 view_battlemap_cell t =
    (td
       []
-      [ (text (toString t.floor_level)) ]
+      [
+         (text
+            (case t.nav_level of
+               Right -> "R"
+               Left -> "L"
+               Up -> "U"
+               Down -> "D"
+               None -> (toString t.floor_level)
+            )
+         )
+      ]
    )
 
 type alias GridBuilder =
@@ -81,4 +92,4 @@ view_battlemap battlemap =
 
 view : Model -> (Html Msg)
 view m =
-   (view_battlemap random)
+   (view_battlemap m.battlemap)
-- 
cgit v1.2.3-70-g09d2