| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-27 10:48:49 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-27 10:48:49 +0200 |
| commit | d2b5c94b717e2d1b7b73a74a1f1ec6af70890a96 (patch) | |
| tree | 2f9d949f74b8affcd8f0fb8073f0144edf3c2a2c /elm/battlemap/src/Battlemap/Navigator | |
| parent | af039b0e32b21bd9ac5db4aabdfc04107f4a0a74 (diff) | |
Small cleanups.
Diffstat (limited to 'elm/battlemap/src/Battlemap/Navigator')
| -rw-r--r-- | elm/battlemap/src/Battlemap/Navigator/Move.elm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/elm/battlemap/src/Battlemap/Navigator/Move.elm b/elm/battlemap/src/Battlemap/Navigator/Move.elm index 924f715..9d7a17b 100644 --- a/elm/battlemap/src/Battlemap/Navigator/Move.elm +++ b/elm/battlemap/src/Battlemap/Navigator/Move.elm @@ -111,7 +111,11 @@ to : ( to battlemap nav dir char_list = let next_location = (Battlemap.Location.neighbor nav.current_location dir) - is_occupied = (List.any (\c -> (c.location == next_location)) char_list) + is_occupied = + (List.any + (\c -> ((Character.get_location c) == next_location)) + char_list + ) in if (not is_occupied) then |