From 36344e727e45b6a1d39f372a6a39ab973e023bdf Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Mon, 18 Sep 2017 19:12:54 +0200
Subject: Characters can actually move.

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

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

diff --git a/client/elm/battlemap/src/Battlemap.elm b/client/elm/battlemap/src/Battlemap.elm
index d6c0017..ef24c80 100644
--- a/client/elm/battlemap/src/Battlemap.elm
+++ b/client/elm/battlemap/src/Battlemap.elm
@@ -3,6 +3,7 @@ module Battlemap exposing
       Battlemap,
       random,
       apply_to_tile,
+      apply_to_tile_unsafe,
       has_location,
       apply_to_all_tiles
    )
@@ -67,3 +68,21 @@ apply_to_tile bmap loc fun =
                      )
                }
             )
+
+apply_to_tile_unsafe : Battlemap -> Location -> (Tile -> Tile) -> Battlemap
+apply_to_tile_unsafe bmap loc fun =
+   let
+      index = (location_to_index bmap loc)
+      at_index = (get index bmap.content)
+   in
+      case at_index of
+         Nothing -> bmap
+         (Just tile) ->
+            {bmap |
+               content =
+                  (set
+                     index
+                     (fun tile)
+                     bmap.content
+                  )
+            }
-- 
cgit v1.2.3-70-g09d2