1 files changed, 28 insertions, 0 deletions
diff --git a/src/character/src/ElmModule/Init.elm b/src/character/src/ElmModule/Init.elm
new file mode 100644
index 0000000..4fccd82
--- /dev/null
+++ b/src/character/src/ElmModule/Init.elm
@@ -0,0 +1,28 @@
+module ElmModule.Init exposing (init)
+
+-- Elm -------------------------------------------------------------------------
+
+-- Map -------------------------------------------------------------------
+import Comm.LoadBattle
+
+import Struct.Event
+import Struct.Flags
+import Struct.Model
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
+init flags =
+   let model = (Struct.Model.new flags) in
+      (
+         model,
+         (case (Comm.LoadBattle.try model) of
+            (Just cmd) -> cmd
+            Nothing -> Cmd.none
+         )
+      )