summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/shim_battlemap_character.erl')
-rw-r--r--src/shim_battlemap_character.erl30
1 files changed, 28 insertions, 2 deletions
diff --git a/src/shim_battlemap_character.erl b/src/shim_battlemap_character.erl
index f347f08..f60566a 100644
--- a/src/shim_battlemap_character.erl
+++ b/src/shim_battlemap_character.erl
@@ -6,6 +6,32 @@
]
).
-generate_char (N, X, Y, Team, Mov, Atk) ->
+generate_char (N, X, Y, Team) ->
IDAsString = integer_to_list(N),
- {IDAsString, IDAsString, IDAsString, IDAsString, {X, Y}, Team, Mov, Atk}.
+ {
+ 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_char
+ (
+ N,
+ (rand:uniform(MaxX) - 1),
+ (rand:uniform(MaxY) - 1),
+ (N rem 2)
+ )
+ | Prev
+ ].
+
+generate (MaxX, MaxY) ->
+ generate(rand:uniform(14) + 2, [], MaxX, MaxY).