1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
-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)}.
|
