From d0dc7f665ba90d126e41048b2d7b992c3e804163 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Tue, 17 Oct 2017 11:04:55 +0200 Subject: Separates Navigator from Tiles. --- elm/battlemap/src/Battlemap/Tile.elm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'elm/battlemap/src/Battlemap/Tile.elm') diff --git a/elm/battlemap/src/Battlemap/Tile.elm b/elm/battlemap/src/Battlemap/Tile.elm index d761225..e90e9bc 100644 --- a/elm/battlemap/src/Battlemap/Tile.elm +++ b/elm/battlemap/src/Battlemap/Tile.elm @@ -2,11 +2,10 @@ module Battlemap.Tile exposing ( Type, set_character, - get_character + get_character, + get_cost ) -import Battlemap.Direction -import Battlemap.Marker import Battlemap.Location import Character @@ -15,7 +14,7 @@ type alias Type = { location : Battlemap.Location.Ref, floor_level : Int, - char_level : (Maybe Character.Ref), + char_level : (Maybe Character.Ref) } set_character : (Maybe Character.Ref) -> Type -> Type @@ -23,3 +22,6 @@ set_character char_ref tile = {tile | char_level = char_ref} get_character : Type -> (Maybe Character.Ref) get_character tile = tile.char_level + +get_cost : Type -> Int +get_cost tile = tile.floor_level -- cgit v1.2.3-70-g09d2