summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/map-editor')
-rw-r--r--src/map-editor/src/Struct/HelpRequest.elm8
-rw-r--r--src/map-editor/src/View/MessageBoard/Help.elm14
2 files changed, 22 insertions, 0 deletions
diff --git a/src/map-editor/src/Struct/HelpRequest.elm b/src/map-editor/src/Struct/HelpRequest.elm
index 50d2ee6..6fa0af2 100644
--- a/src/map-editor/src/Struct/HelpRequest.elm
+++ b/src/map-editor/src/Struct/HelpRequest.elm
@@ -1,7 +1,15 @@
module Struct.HelpRequest exposing (Type(..))
+-- Battle ----------------------------------------------------------------------
+import Battle.Struct.Attributes
+import Battle.Struct.Statistics
+import Battle.Struct.DamageType
+
--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
type Type =
None
+ | Attribute Battle.Struct.Attributes.Category
+ | Statistic Battle.Struct.Statistics.Category
+ | DamageType Battle.Struct.DamageType.Type
diff --git a/src/map-editor/src/View/MessageBoard/Help.elm b/src/map-editor/src/View/MessageBoard/Help.elm
index eea0c8a..c663e08 100644
--- a/src/map-editor/src/View/MessageBoard/Help.elm
+++ b/src/map-editor/src/View/MessageBoard/Help.elm
@@ -4,6 +4,11 @@ module View.MessageBoard.Help exposing (get_html)
import Html
import Html.Attributes
+-- Battle ----------------------------------------------------------------------
+import Battle.View.Help.Attribute
+import Battle.View.Help.DamageType
+import Battle.View.Help.Statistic
+
-- Local Module ----------------------------------------------------------------
import Struct.Event
import Struct.HelpRequest
@@ -27,6 +32,15 @@ get_html model =
]
(
case model.help_request of
+ (Struct.HelpRequest.Attribute att_cat) ->
+ (Battle.View.Help.Attribute.get_html_contents att_cat)
+
+ (Struct.HelpRequest.Statistic stat_cat) ->
+ (Battle.View.Help.Statistic.get_html_contents stat_cat)
+
+ (Struct.HelpRequest.DamageType dmg_cat) ->
+ (Battle.View.Help.DamageType.get_html_contents dmg_cat)
+
Struct.HelpRequest.None ->
(View.MessageBoard.Help.Guide.get_html_contents model)
)