...

8 files changed, 710 insertions, 181 deletions

diff --git a/src/map-editor/src/View/SelectableTile.elm b/src/map-editor/src/View/SelectableTile.elm
new file mode 100644
index 0000000..79acef5
--- /dev/null
+++ b/src/map-editor/src/View/SelectableTile.elm
@@ -0,0 +1,54 @@
+module View.SelectableTile exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+import Html.Events
+
+-- Battle Map ------------------------------------------------------------------
+import BattleMap.Struct.TileInstance
+import BattleMap.Struct.Location
+
+import BattleMap.View.Tile
+
+-- Local Module ----------------------------------------------------------------
+import Constants.UI
+import Constants.IO
+
+import Struct.Event
+import Struct.Toolbox
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+get_html : (
+      Bool ->
+      Struct.Toolbox.Type ->
+      BattleMap.Struct.TileInstance.Type ->
+      (Html.Html Struct.Event.Type)
+   )
+get_html display_cost tb tile =
+   let
+      tile_loc = (BattleMap.Struct.TileInstance.get_location tile)
+   in
+      (BattleMap.View.Tile.get_html_with_extra
+         display_cost
+         [
+            (
+               if (Struct.Toolbox.is_selected tile_loc tb)
+               then (Html.Attributes.class "tile-selected")
+               else (Html.Attributes.class "")
+            ),
+            (
+               if (Struct.Toolbox.is_square_corner tile_loc tb)
+               then (Html.Attributes.class "tile-square-corner")
+               else (Html.Attributes.class "")
+            )
+         ]
+         tile
+      )
diff --git a/src/roster-editor/src/View/Omnimods.elm b/src/roster-editor/src/View/Omnimods.elm
deleted file mode 100644
index d1ae7b7..0000000
--- a/src/roster-editor/src/View/Omnimods.elm
+++ /dev/null
@@ -1,181 +0,0 @@
-module View.Omnimods exposing
-   (
-      get_html_with_modifier,
-      get_html
-   )
-
--- Elm -------------------------------------------------------------------------
-import List
-
-import Html
-import Html.Attributes
-import Html.Events
-
--- Battle ----------------------------------------------------------------------
-import Battle.Struct.Omnimods
-
--- Local Module ----------------------------------------------------------------
-import Struct.Event
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_mod_html : (String, Int) -> (Html.Html Struct.Event.Type)
-get_mod_html mod =
-   let
-      (category, value) = mod
-   in
-      (Html.div
-         [
-            (Html.Attributes.class "info-card-mod")
-         ]
-         [
-            (Html.div
-               [
-                  (Html.Attributes.class "omnimod-icon"),
-                  (Html.Attributes.class ("omnimod-icon-" ++ category)),
-                  (
-                     if (value < 0)
-                     then (Html.Attributes.class "omnimod-icon-negative")
-                     else (Html.Attributes.class "omnimod-icon-positive")
-                  )
-               ]
-               [
-               ]
-            ),
-            (Html.text (String.fromInt value))
-         ]
-      )
-
-get_multiplied_mod_html : Float -> (String, Int) -> (Html.Html Struct.Event.Type)
-get_multiplied_mod_html multiplier mod =
-   let
-      (category, value) = mod
-   in
-      (Html.div
-         [
-            (Html.Attributes.class "character-card-mod")
-         ]
-         [
-            (Html.div
-               [
-                  (Html.Attributes.class "omnimod-icon"),
-                  (Html.Attributes.class ("omnimod-icon-" ++ category)),
-                  (
-                     if (value < 0)
-                     then (Html.Attributes.class "omnimod-icon-negative")
-                     else (Html.Attributes.class "omnimod-icon-positive")
-                  )
-               ]
-               [
-               ]
-            ),
-            (Html.text
-               (
-                  (String.fromInt value)
-                  ++ " ("
-                  ++(String.fromInt (ceiling ((toFloat value) * multiplier)))
-                  ++ ")"
-               )
-            )
-         ]
-      )
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_html_with_modifier : (
-      Float ->
-      Battle.Struct.Omnimods.Type ->
-      (Html.Html Struct.Event.Type)
-   )
-get_html_with_modifier attack_multiplier omnimods =
-   (Html.div
-      [
-         (Html.Attributes.class "omnimod-listing")
-      ]
-      [
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-attack-mods")
-            ]
-            (List.map
-               (get_multiplied_mod_html attack_multiplier)
-               (Battle.Struct.Omnimods.get_attack_mods omnimods)
-            )
-         ),
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-defense-mods")
-            ]
-            (List.map
-               (get_mod_html)
-               (Battle.Struct.Omnimods.get_defense_mods omnimods)
-            )
-         ),
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-attribute-mods")
-            ]
-            (List.map
-               (get_mod_html)
-               (Battle.Struct.Omnimods.get_attributes_mods omnimods)
-            )
-         ),
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-statistics-mods")
-            ]
-            (List.map
-               (get_mod_html)
-               (Battle.Struct.Omnimods.get_statistics_mods omnimods)
-            )
-         )
-      ]
-   )
-
-get_html : Battle.Struct.Omnimods.Type -> (Html.Html Struct.Event.Type)
-get_html omnimods =
-   (Html.div
-      [
-         (Html.Attributes.class "omnimod-listing")
-      ]
-      [
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-attack-mods")
-            ]
-            (List.map
-               (get_mod_html)
-               (Battle.Struct.Omnimods.get_attack_mods omnimods)
-            )
-         ),
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-defense-mods")
-            ]
-            (List.map
-               (get_mod_html)
-               (Battle.Struct.Omnimods.get_defense_mods omnimods)
-            )
-         ),
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-attribute-mods")
-            ]
-            (List.map
-               (get_mod_html)
-               (Battle.Struct.Omnimods.get_attributes_mods omnimods)
-            )
-         ),
-         (Html.div
-            [
-               (Html.Attributes.class "omnimod-statistics-mods")
-            ]
-            (List.map
-               (get_mod_html)
-               (Battle.Struct.Omnimods.get_statistics_mods omnimods)
-            )
-         )
-      ]
-   )
diff --git a/src/shared/battle/Battle/Struct/Attributes.elm b/src/shared/battle/Battle/Struct/Attributes.elm
index ee12dbd..6f6fe10 100644
--- a/src/shared/battle/Battle/Struct/Attributes.elm
+++ b/src/shared/battle/Battle/Struct/Attributes.elm
@@ -18,6 +18,7 @@ module Battle.Struct.Attributes exposing
       get,
       new,
       decode_category,
+      encode_category,
       default
    )
 
@@ -167,3 +168,13 @@ decode_category str =
       "min" -> Mind
       "spe" -> Speed
       _ -> Strength
+
+encode_category : Category -> string
+encode_category cat =
+   case cat of
+      Constitution -> "con"
+      Dexterity -> "dex"
+      Intelligence -> "int"
+      Mind -> "min"
+      Speed -> "spe"
+      Strength -> "str"
diff --git a/src/shared/battle/Battle/Struct/Statistics.elm b/src/shared/battle/Battle/Struct/Statistics.elm
index e21b4f6..43bd27d 100644
--- a/src/shared/battle/Battle/Struct/Statistics.elm
+++ b/src/shared/battle/Battle/Struct/Statistics.elm
@@ -11,6 +11,7 @@ module Battle.Struct.Statistics exposing
       get_critical_hits,
       get_damage_modifier,
       decode_category,
+      encode_category,
       mod,
       new_raw
    )
@@ -208,3 +209,14 @@ decode_category str =
       "accu" -> Accuracy
       "dhit" -> DoubleHits
       _  -> CriticalHits
+
+encode_category : Category -> String
+encode_category cat =
+   case cat of
+      MaxHealth -> "mheal"
+      MovementPoints -> "mpts"
+      Dodges -> "dodg"
+      Parries -> "pary"
+      Accuracy -> "accu"
+      DoubleHits -> "dhit"
+      CriticalHits -> "crit"
diff --git a/src/shared/battle/Battle/View/Attribute.elm b/src/shared/battle/Battle/View/Attribute.elm
new file mode 100644
index 0000000..abf71c3
--- /dev/null
+++ b/src/shared/battle/Battle/View/Attribute.elm
@@ -0,0 +1,181 @@
+module Battle.View.Attribute exposing
+   (
+      get_html,
+      get_all_html,
+      get_signed_html,
+      get_all_signed_html
+   )
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+
+-- Battle ----------------------------------------------------------------------
+import Battle.Struct.Attribute
+
+-- Local Module ----------------------------------------------------------------
+import Struct.Event
+import Struct.HelpRequest
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      Battle.Struct.Attribute.Category ->
+      Int ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_html attribute value =
+   (Html.div
+      [
+         (Html.Events.onClick
+            (Struct.Event.RequestedHelp
+               (Struct.HelpRequest.Attribute attribute)
+            )
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.Attributes.class "omnimod-icon"),
+               (Html.Attributes.class
+                  (
+                     "omnimod-icon-"
+                     ++ (Battle.Struct.Attribute.encode_category attribute)
+                  )
+               ),
+            ]
+            [
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Attributes.class "omnimod-value")
+            ]
+            [
+               (Html.text (String.FromInt value))
+            ]
+         )
+      ]
+   )
+
+get_signed_html : (
+      Battle.Struct.Attribute.Category ->
+      Int ->
+      (Html.Html Struct.Event.Type)
+   )
+get_signed_html attribute value =
+   (Html.div
+      [
+         (
+            if (value < 0)
+            then (Html.Attributes.class "omnimod-negative")
+            else (Html.Attributes.class "omnimod-positive")
+         ),
+         (Html.Events.onClick
+            (Struct.Event.RequestedHelp
+               (Struct.HelpRequest.Attribute attribute)
+            )
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.Attributes.class "omnimod-icon"),
+               (Html.Attributes.class
+                  (
+                     "omnimod-icon-"
+                     ++ (Battle.Struct.Attribute.encode_category attribute)
+                  )
+               ),
+            ]
+            [
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Attributes.class "omnimod-value")
+            ]
+            [
+               (Html.text
+                  (
+                     (
+                        if (value < 0)
+                        then "-"
+                        else "+"
+                     )
+                     ++ (String.FromInt value)
+                  )
+               )
+            ]
+         )
+      ]
+   )
+
+get_all_html : (
+      Battle.Struct.Attributes.Type ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_html atts =
+   [
+      (get_html
+         Battle.Struct.Attributes.Constitution
+         (Battle.Struct.Attributes.get_constitution atts)
+      ),
+      (get_html
+         Battle.Struct.Attributes.Strength
+         (Battle.Struct.Attributes.get_strength atts)
+      ),
+      (get_html
+         Battle.Struct.Attributes.Dexterity
+         (Battle.Struct.Attributes.get_dexterity atts)
+      ),
+      (get_html
+         Battle.Struct.Attributes.Speed
+         (Battle.Struct.Attributes.get_speed atts)
+      ),
+      (get_html
+         Battle.Struct.Attributes.Intelligence
+         (Battle.Struct.Attributes.get_intelligence atts)
+      ),
+      (get_html
+         Battle.Struct.Attributes.Mind
+         (Battle.Struct.Attributes.get_mind atts)
+      )
+   ]
+
+get_all_signed_html : (
+      Battle.Struct.Attributes.Type ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_signed_html atts =
+   [
+      (get_signed_html
+         Battle.Struct.Attributes.Constitution
+         (Battle.Struct.Attributes.get_constitution atts)
+      ),
+      (get_signed_html
+         Battle.Struct.Attributes.Strength
+         (Battle.Struct.Attributes.get_strength atts)
+      ),
+      (get_signed_html
+         Battle.Struct.Attributes.Dexterity
+         (Battle.Struct.Attributes.get_dexterity atts)
+      ),
+      (get_signed_html
+         Battle.Struct.Attributes.Speed
+         (Battle.Struct.Attributes.get_speed atts)
+      ),
+      (get_signed_html
+         Battle.Struct.Attributes.Intelligence
+         (Battle.Struct.Attributes.get_intelligence atts)
+      ),
+      (get_signed_html
+         Battle.Struct.Attributes.Mind
+         (Battle.Struct.Attributes.get_mind atts)
+      )
+   ]
diff --git a/src/shared/battle/Battle/View/DamageType.elm b/src/shared/battle/Battle/View/DamageType.elm
new file mode 100644
index 0000000..0a76092
--- /dev/null
+++ b/src/shared/battle/Battle/View/DamageType.elm
@@ -0,0 +1,131 @@
+module Battle.View.DamageType exposing
+   (
+      get_html,
+      get_signed_html
+   )
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.DamageTypes
+
+import List
+
+-- Battle ----------------------------------------------------------------------
+import Battle.Struct.DamageType
+
+-- Local Module ----------------------------------------------------------------
+import Struct.Event
+import Struct.HelpRequest
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      Battle.Struct.DamageType.Type ->
+      Int ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_html damage_type value =
+   (Html.div
+      [
+         (Html.Events.onClick
+            (Struct.Event.RequestedHelp
+               (Struct.HelpRequest.DamageType damage_type)
+            )
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.DamageTypes.class "omnimod-icon"),
+               (Html.DamageTypes.class
+                  (
+                     "omnimod-icon-"
+                     ++ (Battle.Struct.DamageType.encode damage_type)
+                  )
+               ),
+            ]
+            [
+            ]
+         ),
+         (Html.div
+            [
+               (Html.DamageTypes.class "omnimod-value")
+            ]
+            [
+               (Html.text (String.FromInt value))
+            ]
+         )
+      ]
+   )
+
+get_signed_html : (
+      Battle.Struct.DamageType.Type ->
+      Int ->
+      (Html.Html Struct.Event.Type)
+   )
+get_signed_html damage_type value =
+   (Html.div
+      [
+         (
+            if (value < 0)
+            then (Html.DamageTypes.class "omnimod-negative")
+            else (Html.DamageTypes.class "omnimod-positive")
+         ),
+         (Html.Events.onClick
+            (Struct.Event.RequestedHelp
+               (Struct.HelpRequest.DamageType damage_type)
+            )
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.DamageTypes.class "omnimod-icon"),
+               (Html.DamageTypes.class
+                  (
+                     "omnimod-icon-"
+                     ++ (Battle.Struct.DamageType.encode damage_type)
+                  )
+               ),
+            ]
+            [
+            ]
+         ),
+         (Html.div
+            [
+               (Html.DamageTypes.class "omnimod-value")
+            ]
+            [
+               (Html.text
+                  (
+                     (
+                        if (value < 0)
+                        then "-"
+                        else "+"
+                     )
+                     ++ (String.FromInt value)
+                  )
+               )
+            ]
+         )
+      ]
+   )
+
+get_all_html : (
+      (List Battle.Struct.DamageTypes.Type) ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_html damage_types =
+   (List.map (get_html) damage_types)
+
+get_all_signed_html : (
+      (List Battle.Struct.DamageTypes.Type) ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_signed_html damage_types =
+   (List.map (get_signed_html) damage_types)
diff --git a/src/shared/battle/Battle/View/Gauge.elm b/src/shared/battle/Battle/View/Gauge.elm
new file mode 100644
index 0000000..29a97a0
--- /dev/null
+++ b/src/shared/battle/Battle/View/Gauge.elm
@@ -0,0 +1,75 @@
+module Battle.View.Gauge exposing (get_html)
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Attributes
+
+-- Local Module ----------------------------------------------------------------
+import Struct.Event
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_text_div : (
+      String ->
+      List (Html.Attribute Struct.Event.Type) ->
+      (Html.Html Struct.Event.Type)
+   )
+get_text_div text extra_txt_attr =
+   (Html.div
+      (
+         [(Html.Attributes.class "gauge-text")]
+         ++ extra_txt_attr
+      )
+      [
+         (Html.text text)
+      ]
+   )
+
+get_bar_div : (
+      Float ->
+      List (Html.Attribute Struct.Event.Type) ->
+      (Html.Html Struct.Event.Type)
+   )
+get_bar_div percent extra_bar_attr =
+   (Html.div
+      (
+         [
+            (Html.Attributes.style
+               "width"
+               ((String.fromFloat percent) ++ "%")
+            ),
+            (Html.Attributes.class
+               "gauge-bar"
+            )
+         ]
+         ++
+         extra_bar_attr
+      )
+      [
+      ]
+   )
+
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      String ->
+      Float ->
+      List (Html.Attribute Struct.Event.Type) ->
+      List (Html.Attribute Struct.Event.Type) ->
+      List (Html.Attribute Struct.Event.Type) ->
+      (Html.Html Struct.Event.Type)
+   )
+get_html text percent extra_div_attr extra_bar_attr extra_txt_attr =
+   (Html.div
+      (
+         [(Html.Attributes.class "gauge")]
+         ++ extra_div_attr
+      )
+      [
+         (get_text_div text extra_txt_attr),
+         (get_bar_div percent extra_bar_attr)
+      ]
+   )
diff --git a/src/shared/battle/Battle/View/Statistic.elm b/src/shared/battle/Battle/View/Statistic.elm
new file mode 100644
index 0000000..4e2e91a
--- /dev/null
+++ b/src/shared/battle/Battle/View/Statistic.elm
@@ -0,0 +1,246 @@
+module Battle.View.Statistic exposing
+   (
+      get_html,
+      get_all_html,
+      get_signed_html,
+      get_all_signed_html
+   )
+
+-- Elm -------------------------------------------------------------------------
+import Html
+import Html.Statistics
+
+-- Battle ----------------------------------------------------------------------
+import Battle.Struct.Statistic
+
+-- Local Module ----------------------------------------------------------------
+import Struct.Event
+import Struct.HelpRequest
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+get_html : (
+      Battle.Struct.Statistic.Category ->
+      Int ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_html statistic value =
+   (Html.div
+      [
+         (Html.Events.onClick
+            (Struct.Event.RequestedHelp
+               (Struct.HelpRequest.Statistic statistic)
+            )
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.Statistics.class "omnimod-icon"),
+               (Html.Statistics.class
+                  (
+                     "omnimod-icon-"
+                     ++ (Battle.Struct.Statistic.encode_category statistic)
+                  )
+               ),
+            ]
+            [
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Statistics.class "omnimod-value")
+            ]
+            [
+               (Html.text ((String.FromInt value) ++ "%"))
+            ]
+         )
+      ]
+   )
+
+get_signed_html : (
+      Battle.Struct.Statistic.Category ->
+      Int ->
+      (Html.Html Struct.Event.Type)
+   )
+get_signed_html statistic value =
+   (Html.div
+      [
+         (
+            if (value < 0)
+            then (Html.Statistics.class "omnimod-negative")
+            else (Html.Statistics.class "omnimod-positive")
+         ),
+         (Html.Events.onClick
+            (Struct.Event.RequestedHelp
+               (Struct.HelpRequest.Statistic statistic)
+            )
+         )
+      ]
+      [
+         (Html.div
+            [
+               (Html.Statistics.class "omnimod-icon"),
+               (Html.Statistics.class
+                  (
+                     "omnimod-icon-"
+                     ++ (Battle.Struct.Statistic.encode_category statistic)
+                  )
+               ),
+            ]
+            [
+            ]
+         ),
+         (Html.div
+            [
+               (Html.Statistics.class "omnimod-value")
+            ]
+            [
+               (Html.text
+                  (
+                     (
+                        if (value < 0)
+                        then "-"
+                        else "+"
+                     )
+                     ++ (String.FromInt value)
+                     ++ "%"
+                  )
+               )
+            ]
+         )
+      ]
+   )
+
+get_all_html : (
+      Battle.Struct.Statistics.Type ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_html stats =
+   [
+      (get_html
+         Battle.Struct.Statistics.Dodges
+         (Battle.Struct.Statistics.get_dodges stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.Parries
+         (Battle.Struct.Statistics.get_parries stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.Accuracy
+         (Battle.Struct.Statistics.get_accuracy stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.DoubleHits
+         (Battle.Struct.Statistics.get_double_hits stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.CriticalHits
+         (Battle.Struct.Statistics.get_critical_hits stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.MaxHealth
+         (Battle.Struct.Statistics.get_max_health stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.MovementPoints
+         (Battle.Struct.Statistics.get_movement_points stats)
+      )
+   ]
+
+get_all_signed_html : (
+      Battle.Struct.Statistics.Type ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_signed_html stats =
+   [
+      (get_signed_html
+         Battle.Struct.Statistics.Dodges
+         (Battle.Struct.Statistics.get_dodges stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.Parries
+         (Battle.Struct.Statistics.get_parries stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.Accuracy
+         (Battle.Struct.Statistics.get_accuracy stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.DoubleHits
+         (Battle.Struct.Statistics.get_double_hits stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.CriticalHits
+         (Battle.Struct.Statistics.get_critical_hits stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.MaxHealth
+         (Battle.Struct.Statistics.get_max_health stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.MovementPoints
+         (Battle.Struct.Statistics.get_movement_points stats)
+      )
+   ]
+
+get_all_but_gauges_html : (
+      Battle.Struct.Statistics.Type ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_but_gauges_html stats =
+   [
+      (get_html
+         Battle.Struct.Statistics.Dodges
+         (Battle.Struct.Statistics.get_dodges stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.Parries
+         (Battle.Struct.Statistics.get_parries stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.Accuracy
+         (Battle.Struct.Statistics.get_accuracy stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.DoubleHits
+         (Battle.Struct.Statistics.get_double_hits stats)
+      ),
+      (get_html
+         Battle.Struct.Statistics.CriticalHits
+         (Battle.Struct.Statistics.get_critical_hits stats)
+      )
+   ]
+
+get_all_but_gauges_signed_html : (
+      Battle.Struct.Statistics.Type ->
+      (List (Html.Html Struct.Event.Type))
+   )
+get_all_but_gauges_signed_html stats =
+   [
+      (get_signed_html
+         Battle.Struct.Statistics.Dodges
+         (Battle.Struct.Statistics.get_dodges stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.Parries
+         (Battle.Struct.Statistics.get_parries stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.Accuracy
+         (Battle.Struct.Statistics.get_accuracy stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.DoubleHits
+         (Battle.Struct.Statistics.get_double_hits stats)
+      ),
+      (get_signed_html
+         Battle.Struct.Statistics.CriticalHits
+         (Battle.Struct.Statistics.get_critical_hits stats)
+      )
+   ]