| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/shared/battle/Battle/View/Statistic.elm')
| -rw-r--r-- | src/shared/battle/Battle/View/Statistic.elm | 246 |
1 files changed, 246 insertions, 0 deletions
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) + ) + ] |