From b984be19b36226b02cb2d58d8597d2cff4be1eaf Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Mon, 20 Nov 2017 17:25:37 +0100
Subject: Trying to get character turns to register.

---
 src/battlemap.erl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/battlemap.erl

(limited to 'src/battlemap.erl')

diff --git a/src/battlemap.erl b/src/battlemap.erl
new file mode 100644
index 0000000..209a4ab
--- /dev/null
+++ b/src/battlemap.erl
@@ -0,0 +1,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)}.
-- 
cgit v1.2.3-70-g09d2