From efaf3ee3f4b2478079c7b9dde8f9e879956a460f Mon Sep 17 00:00:00 2001 From: nsensfel Date: Thu, 16 Nov 2017 17:06:17 +0100 Subject: Starting changes in the structure. --- src/shim_battlemap_battlemap.erl | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 src/shim_battlemap_battlemap.erl (limited to 'src/shim_battlemap_battlemap.erl') 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)}. -- cgit v1.2.3-70-g09d2