From fde7249bb3b185f2447585e9406775f351133632 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Thu, 9 Nov 2017 17:23:34 +0100
Subject: Implementing a shim for battlemap state loading...

---
 src/shim_battlemap_character.erl | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

(limited to 'src/shim_battlemap_character.erl')

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).
-- 
cgit v1.2.3-70-g09d2