Started a rather large reorganization.messy-exchanges

1 files changed, 19 insertions, 1 deletions

diff --git a/elm/battlemap/src/Character.elm b/elm/battlemap/src/Character.elm
index f98dfd9..b0be220 100644
--- a/elm/battlemap/src/Character.elm
+++ b/elm/battlemap/src/Character.elm
@@ -1,4 +1,13 @@
-module Character exposing (Type, Ref, get_ref, get_location)
+module Character exposing
+   (
+      Type,
+      Ref,
+      get_ref,
+      get_location,
+      set_location,
+      get_movement_points,
+      get_attack_range
+   )
 
 import Battlemap.Location
 
@@ -21,3 +30,12 @@ get_ref c =
 
 get_location : Type -> Battlemap.Location.Type
 get_location t = t.location
+
+set_location : Battlemap.Location.Type -> Type -> Type
+set_location location char = {char | location = location}
+
+get_movement_points : Type -> Int
+get_movement_points char = char.movement_points
+
+get_attack_range : Type -> Int
+get_attack_range char = char.atk_dist