Implementing a shim for battlemap state loading...

1 files changed, 28 insertions, 2 deletions

diff --git a/src/shim_battlemap_character.erl b/src/shim_battlemap_character.erl
index f347f08..f60566a 100644
--- a/src/shim_battlemap_character.erl
+++ b/src/shim_battlemap_character.erl
@@ -6,6 +6,32 @@
    ]
 ).
 
-generate_char (N, X, Y, Team, Mov, Atk) ->
+generate_char (N, X, Y, Team) ->
    IDAsString = integer_to_list(N),
-   {IDAsString, IDAsString, IDAsString, IDAsString, {X, Y}, Team, Mov, Atk}.
+   {
+      IDAsString, % ID
+      IDAsString, % Name
+      IDAsString, % Icon
+      IDAsString, % Portrait
+      {X, Y},
+      Team,
+      rand:uniform(10), % Movement Points
+      (rand:uniform(5) - 1) % Attack Range
+   }.
+
+generate (0, Result, _MaxX, _MaxY) ->
+   Result;
+generate (N, Prev, MaxX, MaxY) ->
+   [
+      generate_char
+      (
+         N,
+         (rand:uniform(MaxX) - 1),
+         (rand:uniform(MaxY) - 1),
+         (N rem 2)
+      )
+      | Prev
+   ].
+
+generate (MaxX, MaxY) ->
+   generate(rand:uniform(14) + 2, [], MaxX, MaxY).