elm/battlemap/src/Model/SelectCharacter.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

module Model.SelectCharacter exposing (apply_to)

import Dict

import Character

import Battlemap

import Model
import Event
import Error

make_it_so : Model.Type -> Character.Ref -> Model.Type
make_it_so model char_id =
   case (Dict.get char_id model.characters) of
      (Just char) ->
            {model |
               state = Model.MovingCharacterWithClick,
               selection = (Model.SelectedCharacter char_id),
               battlemap =
                  (Battlemap.set_navigator
                     (Character.get_location char)
                     (Character.get_movement_points char)
                     (Character.get_attack_range char)
                     (\e -> True) -- TODO: check for characters.
                     model.battlemap
                  )
            }

      Nothing ->
         (Model.invalidate
            model
            (Error.new
               Error.Programming
               "SelectCharacter: Unknown char selected."
            )
         )

apply_to : Model.Type -> Character.Ref -> Model.Type
apply_to model char_id =
   case (Model.get_state model) of
      _ -> (make_it_so model char_id)