Trying to get character turns to register.

1 files changed, 33 insertions, 0 deletions

diff --git a/src/battlemap_instance.erl b/src/battlemap_instance.erl
new file mode 100644
index 0000000..ef573eb
--- /dev/null
+++ b/src/battlemap_instance.erl
@@ -0,0 +1,33 @@
+-module(battlemap_instance).
+-export
+(
+   [
+      get_char_instances/1,
+      get_char_instance/2,
+      set_char_instance/3
+   ]
+).
+
+-include("timed_cache_data.hrl").
+
+get_char_instances (BattlemapInstance) ->
+   lists:map
+   (
+      fun ({_K, V}) -> V end,
+      dict:to_list(BattlemapInstance#battlemap_instance.chars)
+   ).
+
+get_char_instance (BattlemapInstance, CharInstID) ->
+   {ok, dict:fetch(CharInstID, BattlemapInstance#battlemap_instance.chars)}.
+
+set_char_instance (BattlemapInstance, CharInstID, CharInst) ->
+   BattlemapInstance#battlemap_instance
+   {
+      chars =
+         dict:store
+         (
+            CharInstID,
+            CharInst,
+            BattlemapInstance#battlemap_instance.chars
+         )
+   }.