summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authornsensfel <SpamShield0@noot-noot.org>2017-11-16 17:06:17 +0100
committernsensfel <SpamShield0@noot-noot.org>2017-11-16 17:06:17 +0100
commitefaf3ee3f4b2478079c7b9dde8f9e879956a460f (patch)
tree809dba1496ddd1c3058df0722a9fd962fd11f34b /src/shim_battlemap_battlemap.erl
parent3cc9f85a8b84f6cb69b828a6510ece7f716a6b28 (diff)
Starting changes in the structure.
Diffstat (limited to 'src/shim_battlemap_battlemap.erl')
-rw-r--r--src/shim_battlemap_battlemap.erl37
1 files changed, 0 insertions, 37 deletions
diff --git a/src/shim_battlemap_battlemap.erl b/src/shim_battlemap_battlemap.erl
deleted file mode 100644
index a6adc83..0000000
--- a/src/shim_battlemap_battlemap.erl
+++ /dev/null
@@ -1,37 +0,0 @@
--module(shim_battlemap_battlemap).
-
--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)}.