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/Model.elm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'client/elm/battlemap/src/Model.elm')

diff --git a/client/elm/battlemap/src/Model.elm b/client/elm/battlemap/src/Model.elm
index 024fc4d..3d69c7d 100644
--- a/client/elm/battlemap/src/Model.elm
+++ b/client/elm/battlemap/src/Model.elm
@@ -1,7 +1,19 @@
 module Model exposing (Model, model)
 
+import Battlemap as Bp exposing (Battlemap, random)
+import Battlemap.Location exposing (..)
+import Battlemap.Navigator as Nr exposing (Navigator, new_navigator)
+
 -- MODEL
-type alias Model = Int
+type alias Model =
+   {
+      battlemap: Bp.Battlemap,
+      navigator: (Maybe Nr.Navigator)
+   }
 
 model : Model
-model = 0
+model =
+   {
+      battlemap = (Bp.random),
+      navigator = (Just (Nr.new_navigator {x=2, y=4}))
+   }
-- 
cgit v1.2.3-70-g09d2