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/battlemap_shim.erl | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 src/battlemap_shim.erl

(limited to 'src/battlemap_shim.erl')

diff --git a/src/battlemap_shim.erl b/src/battlemap_shim.erl
new file mode 100644
index 0000000..37a953b
--- /dev/null
+++ b/src/battlemap_shim.erl
@@ -0,0 +1,37 @@
+-module(battlemap_shim).
+
+-export(
+   [
+      generate/2
+   ]
+).
+
+generate_tile (0) ->
+   {0, 1};
+generate_tile (1) ->
+   {1, 2};
+generate_tile (2) ->
+   {2, 99}.
+
+generate(_Prev, Result, _X, 0, _BaseWidth) ->
+   Result;
+generate(Prev, Result, 0, Y, BaseWidth) ->
+   generate(Prev, Result, BaseWidth, (Y - 1), BaseWidth);
+generate(Prev, Result, X, Y, BaseWidth) ->
+   case rand:uniform(6) of
+      N when (N > 3) ->
+         generate(Prev, [generate_tile(Prev)|Result], (X - 1), Y, BaseWidth);
+
+      N ->
+         NewTileType = (N - 1),
+         generate(
+            NewTileType,
+            [generate_tile(NewTileType)|Result],
+            (X - 1),
+            Y,
+            BaseWidth
+         )
+   end.
+
+generate (Width, Height) ->
+   {Width, Height, generate(0, [], Width, Height, Width)}.
-- 
cgit v1.2.3-70-g09d2