1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
-module(battlemap).
-export
(
[
cross/4
]
).
-include("timed_cache_data.hrl").
calc_new_loc (X, Y, [], _Points, _Map, _OtherChars) ->
{X, Y};
calc_new_loc (X, Y, [Step|Path], Points, Map, OtherChars) ->
case Step of
<<"U">> -> calc_new_loc(X, (Y - 1), Path, Points, Map, OtherChars);
<<"D">> -> calc_new_loc(X, (Y + 1), Path, Points, Map, OtherChars);
<<"L">> -> calc_new_loc((X - 1), Y, Path, Points, Map, OtherChars);
<<"R">> -> calc_new_loc((X + 1), Y, Path, Points, Map, OtherChars);
_ -> calc_new_loc(X, Y, Path, Points, Map, OtherChars)
end.
cross (Battlemap, CharInst, Path, OtherChars) ->
{X, Y} = character_instance:get_location(CharInst),
{ok, calc_new_loc(X, Y, Path, 99, Battlemap, OtherChars)}.
|
