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

module Battlemap.Tile exposing
   (
      Type,
      get_class,
      get_cost
   )

import Battlemap.Location

type alias Type =
   {
      location : Battlemap.Location.Ref,
      class : Int,
      crossing_cost : Int
   }

get_class : Type -> Int
get_class tile = tile.class

get_cost : Type -> Int
get_cost tile = tile.crossing_cost