elm/battlemap/src/Battlemap/Tile.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

module Battlemap.Tile exposing
   (
      Type,
      set_character,
      get_character
   )

import Battlemap.Direction
import Battlemap.Marker
import Battlemap.Location

import Character

type alias Type =
   {
      location : Battlemap.Location.Ref,
      floor_level : Int,
      char_level : (Maybe Character.Ref),
   }

set_character : (Maybe Character.Ref) -> Type -> Type
set_character char_ref tile = {tile | char_level = char_ref}

get_character : Type -> (Maybe Character.Ref)
get_character tile = tile.char_level