From efaf3ee3f4b2478079c7b9dde8f9e879956a460f Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Thu, 16 Nov 2017 17:06:17 +0100
Subject: Starting changes in the structure.

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

(limited to 'src/character_shim.erl')

diff --git a/src/character_shim.erl b/src/character_shim.erl
new file mode 100644
index 0000000..7390cc4
--- /dev/null
+++ b/src/character_shim.erl
@@ -0,0 +1,43 @@
+-module(character_shim).
+
+-export(
+   [
+      generate/2
+   ]
+).
+
+generate_char (N, X, Y, Team) ->
+   IDAsString = list_to_binary(integer_to_list(N)),
+   {
+      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
+   (
+      (N - 1),
+      [
+         generate_char
+         (
+            N,
+            (rand:uniform(MaxX) - 1),
+            (rand:uniform(MaxY) - 1),
+            (N rem 2)
+         )
+         | Prev
+      ],
+      MaxX,
+      MaxY
+   ).
+
+generate (MaxX, MaxY) ->
+   generate(rand:uniform(14) + 2, [], MaxX, MaxY).
-- 
cgit v1.2.3-70-g09d2