Starting to work on the addition of inventories.

4 files changed, 45 insertions, 3 deletions

diff --git a/src/battlemap/src/ElmModule/Update.elm b/src/battlemap/src/ElmModule/Update.elm
index b8ae924..188b2fc 100644
--- a/src/battlemap/src/ElmModule/Update.elm
+++ b/src/battlemap/src/ElmModule/Update.elm
@@ -11,6 +11,7 @@ import Struct.Model
 import Update.ChangeScale
 import Update.EndTurn
 import Update.HandleServerReply
+import Update.OpenInventory
 import Update.RequestDirection
 import Update.SelectCharacter
 import Update.SelectTab
@@ -57,3 +58,5 @@ update event model =
       (Struct.Event.ServerReplied result) ->
          (Update.HandleServerReply.apply_to model result)
 
+      Struct.Event.InventoryRequested ->
+         (Update.OpenInventory.apply_to model)
diff --git a/src/battlemap/src/Struct/Event.elm b/src/battlemap/src/Struct/Event.elm
index dadc11d..ff6b62f 100644
--- a/src/battlemap/src/Struct/Event.elm
+++ b/src/battlemap/src/Struct/Event.elm
@@ -20,5 +20,6 @@ type Type =
    | ScaleChangeRequested Float
    | TabSelected Struct.UI.Tab
    | ServerReplied (Result Http.Error (List (List String)))
+   | InventoryRequested
    | DebugTeamSwitchRequest
    | DebugLoadBattlemapRequest
diff --git a/src/battlemap/src/Update/OpenInventory.elm b/src/battlemap/src/Update/OpenInventory.elm
new file mode 100644
index 0000000..ff26f92
--- /dev/null
+++ b/src/battlemap/src/Update/OpenInventory.elm
@@ -0,0 +1,30 @@
+module Update.OpenInventory exposing (apply_to)
+-- Elm -------------------------------------------------------------------------
+
+-- Battlemap -------------------------------------------------------------------
+import Struct.Model
+import Struct.Event
+import Struct.Error
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+apply_to : (
+      Struct.Model.Type ->
+      (Struct.Model.Type, (Cmd Struct.Event.Type))
+   )
+apply_to model =
+   (
+      (Struct.Model.invalidate
+         model
+         (Struct.Error.new
+            Struct.Error.Unimplemented
+            "Display Character Inventory"
+         )
+      ),
+      Cmd.none
+   )
diff --git a/src/battlemap/src/View/Footer.elm b/src/battlemap/src/View/Footer.elm
index a607b14..fd2e4a5 100644
--- a/src/battlemap/src/View/Footer.elm
+++ b/src/battlemap/src/View/Footer.elm
@@ -28,6 +28,13 @@ end_turn_button =
       [ (Html.text "End Turn") ]
    )
 
+inventory_button : (Html.Html Struct.Event.Type)
+inventory_button =
+   (Html.button
+      [ (Html.Events.onClick Struct.Event.InventoryRequested) ]
+      [ (Html.text "Switch Weapon") ]
+   )
+
 get_navigator_info : (
       Struct.Model.Type ->
       Struct.Character.Type->
@@ -66,11 +73,12 @@ get_curr_char_info_htmls model char_ref =
                (
                   "Controlling "
                   ++ char.name
-                  ++ ". Moving ("
+                  ++ ". Move ("
                   ++ (get_navigator_info model char)
-                  ++ ")."
+                  ++ ") or "
                )
-            )
+            ),
+            (inventory_button)
          ]
 
       (Struct.CharacterTurn.MovedCharacter, (Just char)) ->