From 96d7905f7faef941f5454fd2c8b0b50a294fd26c Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 18 Oct 2017 20:59:41 +0200
Subject: Borked mouse controls for the navigator, it seems.

---
 elm/battlemap/src/Battlemap.elm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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

diff --git a/elm/battlemap/src/Battlemap.elm b/elm/battlemap/src/Battlemap.elm
index c4aaf06..d2e4523 100644
--- a/elm/battlemap/src/Battlemap.elm
+++ b/elm/battlemap/src/Battlemap.elm
@@ -3,9 +3,11 @@ module Battlemap exposing
       Type,
       reset,
       get_navigator_remaining_points,
+      get_tiles,
       set_navigator,
       try_getting_navigator_location,
       try_getting_navigator_path_to,
+      try_getting_navigator_summary,
       try_adding_step_to_navigator
    )
 
@@ -46,6 +48,9 @@ has_location bmap loc =
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
+get_tiles : Type -> (Array.Array Battlemap.Tile.Type)
+get_tiles bmap = bmap.content
+
 reset : Type -> Type
 reset bmap =
    {bmap |
@@ -117,6 +122,12 @@ try_adding_step_to_navigator bmap can_cross dir =
 
       _ -> Nothing
 
+try_getting_navigator_summary : Type -> (Maybe Battlemap.Navigator.Summary)
+try_getting_navigator_summary bmap =
+   case bmap.navigator of
+      (Just navigator) -> (Just (Battlemap.Navigator.get_summary navigator))
+      Nothing -> Nothing
+
 try_getting_navigator_path_to : (
       Type ->
       Battlemap.Location.Ref ->
@@ -128,3 +139,4 @@ try_getting_navigator_path_to bmap loc_ref =
          (Battlemap.Navigator.try_getting_path_to navigator loc_ref)
 
       Nothing -> Nothing
+
-- 
cgit v1.2.3-70-g09d2