From 5a75000ec7b961ad5fe93814e5b7905cacbdba49 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Thu, 12 Oct 2017 19:46:36 +0200 Subject: Started a rather large reorganization. --- elm/battlemap/src/Character.elm | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) (limited to 'elm/battlemap/src/Character.elm') 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 -- cgit v1.2.3-70-g09d2