From 2c9b2af9ac011a871c5c02d3e2258fca73a98880 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 27 Sep 2017 10:31:16 +0200 Subject: Splits client and server into two repositories. --- elm/battlemap/src/Model.elm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 elm/battlemap/src/Model.elm (limited to 'elm/battlemap/src/Model.elm') diff --git a/elm/battlemap/src/Model.elm b/elm/battlemap/src/Model.elm new file mode 100644 index 0000000..4303b6f --- /dev/null +++ b/elm/battlemap/src/Model.elm @@ -0,0 +1,38 @@ +module Model exposing (Type, CharacterSelection, State(..)) + +import Dict + +import Battlemap +import Battlemap.Navigator +import Battlemap.Location +import Battlemap.RangeIndicator + +import Error + +import Character + +type alias CharacterSelection = + { + character: Character.Ref, + navigator: Battlemap.Navigator.Type, + range_indicator: + (Dict.Dict + Battlemap.Location.Ref + Battlemap.RangeIndicator.Type + ) + } + +type State = + Default + | Error Error.Type + | MovingCharacterWithButtons + | MovingCharacterWithClick + | FocusingTile + +type alias Type = + { + state: State, + battlemap: Battlemap.Type, + characters: (Dict.Dict Character.Ref Character.Type), + selection: (Maybe CharacterSelection) + } -- cgit v1.2.3-70-g09d2