Trying to get character turns to register.

1 files changed, 20 insertions, 0 deletions

diff --git a/src/character_instance.erl b/src/character_instance.erl
new file mode 100644
index 0000000..d8d7455
--- /dev/null
+++ b/src/character_instance.erl
@@ -0,0 +1,20 @@
+-module(character_instance).
+-export
+(
+   [
+      set_location/3,
+      get_location/1
+   ]
+).
+
+-include("timed_cache_data.hrl").
+
+set_location (CharInst, X, Y) ->
+   CharInst#character_instance
+   {
+      x = X,
+      y = Y
+   }.
+
+get_location (CharInst) ->
+   {CharInst#character_instance.x, CharInst#character_instance.y}.