2 files changed, 104 insertions, 72 deletions
diff --git a/src/battle/src/Struct/Attack.elm b/src/battle/src/Struct/Attack.elm
index a4937db..7ef8280 100644
--- a/src/battle/src/Struct/Attack.elm
+++ b/src/battle/src/Struct/Attack.elm
@@ -3,8 +3,6 @@ module Struct.Attack exposing
       Type,
       Order(..),
       Precision(..),
-      apply_to_characters,
-      apply_inverse_to_characters,
       decoder
    )
 
@@ -73,76 +71,6 @@ decoder =
       (Json.Decode.field "dmg" (Json.Decode.int))
    )
 
-apply_damage_to_character : (
-      Int ->
-      Struct.Character.Type ->
-      Struct.Character.Type
-   )
-apply_damage_to_character damage char =
-   (Struct.Character.set_current_health
-      ((Struct.Character.get_current_health char) - damage)
-      char
-   )
-
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
 --------------------------------------------------------------------------------
-apply_to_characters : (
-      Int ->
-      Int ->
-      Type ->
-      (Array.Array Struct.Character.Type) ->
-      (Array.Array Struct.Character.Type)
-   )
-apply_to_characters attacker_ix defender_ix attack characters =
-   if ((attack.order == Counter) == attack.parried)
-   then
-      case (Array.get defender_ix characters) of
-         (Just char) ->
-            (Array.set
-               defender_ix
-               (apply_damage_to_character attack.damage char)
-               characters
-            )
-
-         Nothing -> characters
-   else
-      case (Array.get attacker_ix characters) of
-         (Just char) ->
-            (Array.set
-               attacker_ix
-               (apply_damage_to_character attack.damage char)
-               characters
-            )
-
-         Nothing -> characters
-
-apply_inverse_to_characters : (
-      Int ->
-      Int ->
-      Type ->
-      (Array.Array Struct.Character.Type) ->
-      (Array.Array Struct.Character.Type)
-   )
-apply_inverse_to_characters attacker_ix defender_ix attack characters =
-   if ((attack.order == Counter) == attack.parried)
-   then
-      case (Array.get defender_ix characters) of
-         (Just char) ->
-            (Array.set
-               defender_ix
-               (apply_damage_to_character (-1 * attack.damage) char)
-               characters
-            )
-
-         Nothing -> characters
-   else
-      case (Array.get attacker_ix characters) of
-         (Just char) ->
-            (Array.set
-               attacker_ix
-               (apply_damage_to_character (-1 * attack.damage) char)
-               characters
-            )
-
-         Nothing -> characters
diff --git a/src/battle/src/Update/Puppeteer/Hit.elm b/src/battle/src/Update/Puppeteer/Hit.elm
new file mode 100644
index 0000000..3c0e409
--- /dev/null
+++ b/src/battle/src/Update/Puppeteer/Hit.elm
@@ -0,0 +1,104 @@
+module Update.Puppeteer.Hit exposing (forward, backward)
+
+-- Local Module ----------------------------------------------------------------
+import Action.Scroll
+
+import Struct.Battle
+import Struct.Character
+import Struct.Event
+import Struct.Model
+import Struct.UI
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+apply_damage_to_character : (
+      Int ->
+      Struct.Character.Type ->
+      Struct.Character.Type
+   )
+apply_damage_to_character damage char =
+   (Struct.Character.set_current_health
+      ((Struct.Character.get_current_health char) - damage)
+      char
+   )
+
+apply_to_characters : (
+      Int ->
+      Int ->
+      Type ->
+      (Array.Array Struct.Character.Type) ->
+      (Array.Array Struct.Character.Type)
+   )
+apply_to_characters attacker_ix defender_ix attack characters =
+   if ((attack.order == Counter) == attack.parried)
+   then
+      case (Array.get defender_ix characters) of
+         (Just char) ->
+            (Array.set
+               defender_ix
+               (apply_damage_to_character attack.damage char)
+               characters
+            )
+
+         Nothing -> characters
+   else
+      case (Array.get attacker_ix characters) of
+         (Just char) ->
+            (Array.set
+               attacker_ix
+               (apply_damage_to_character attack.damage char)
+               characters
+            )
+
+         Nothing -> characters
+
+apply_inverse_to_characters : (
+      Int ->
+      Int ->
+      Type ->
+      (Array.Array Struct.Character.Type) ->
+      (Array.Array Struct.Character.Type)
+   )
+apply_inverse_to_characters attacker_ix defender_ix attack characters =
+   if ((attack.order == Counter) == attack.parried)
+   then
+      case (Array.get defender_ix characters) of
+         (Just char) ->
+            (Array.set
+               defender_ix
+               (apply_damage_to_character (-1 * attack.damage) char)
+               characters
+            )
+
+         Nothing -> characters
+   else
+      case (Array.get attacker_ix characters) of
+         (Just char) ->
+            (Array.set
+               attacker_ix
+               (apply_damage_to_character (-1 * attack.damage) char)
+               characters
+            )
+
+         Nothing -> characters
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+forward : (
+      Int ->
+      Struct.Attack.Type ->
+      Struct.Model.Type ->
+      (Struct.Model.Type, (List (Cmd Struct.Event.Type)))
+   )
+forward actor_ix hit model = (model, [])
+
+
+backward : (
+      Int ->
+      Struct.Attack.Type ->
+      Struct.Model.Type ->
+      (Struct.Model.Type, (List (Cmd Struct.Event.Type)))
+   )
+backward actor_ix hit model = (model, [])