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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
|
module BattleMap.Struct.Map exposing
(
Type,
decoder,
empty,
get_height,
get_markers,
get_movement_cost_function,
get_omnimods_at,
get_tiles,
get_width,
new,
set_tile_to,
solve_tiles,
try_getting_tile_at
)
-- Elm -------------------------------------------------------------------------
import Array
import Dict
import Json.Decode
-- Battle ----------------------------------------------------------------------
import Battle.Struct.Omnimods
-- Battle Map ------------------------------------------------------------------
import BattleMap.Struct.Location
import BattleMap.Struct.MapMarker
import BattleMap.Struct.Tile
import BattleMap.Struct.TileInstance
--------------------------------------------------------------------------------
-- TYPES -----------------------------------------------------------------------
--------------------------------------------------------------------------------
type alias Type =
{
width : Int,
height : Int,
content : (Array.Array BattleMap.Struct.TileInstance.Type),
markers : (Dict.Dict String BattleMap.Struct.MapMarker.Type)
}
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
location_to_index : BattleMap.Struct.Location.Type -> Type -> Int
location_to_index loc map =
((loc.y * map.width) + loc.x)
has_location : BattleMap.Struct.Location.Type -> Type -> Bool
has_location loc map =
(
(loc.x >= 0)
&& (loc.y >= 0)
&& (loc.x < map.width)
&& (loc.y < map.height)
)
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
get_width : Type -> Int
get_width map = map.width
get_height : Type -> Int
get_height map = map.height
get_tiles : Type -> (Array.Array BattleMap.Struct.TileInstance.Type)
get_tiles map = map.content
get_markers : Type -> (Dict.Dict String BattleMap.Struct.MapMarker.Type)
get_markers map = map.markers
set_tile_to : BattleMap.Struct.Location.Type -> BattleMap.Struct.TileInstance.Type -> Type -> Type
set_tile_to loc tile_inst map =
{map |
content = (Array.set (location_to_index loc map) tile_inst map.content)
}
empty : Type
empty =
{
width = 0,
height = 0,
content = (Array.empty),
markers = (Dict.empty)
}
new : Int -> Int -> (List BattleMap.Struct.TileInstance.Type) -> Type
new width height tiles =
{
width = width,
height = height,
content = (Array.fromList tiles),
markers = (Dict.empty)
}
try_getting_tile_at : (
BattleMap.Struct.Location.Type ->
Type ->
(Maybe BattleMap.Struct.TileInstance.Type)
)
try_getting_tile_at loc map =
if (has_location loc map)
then (Array.get (location_to_index loc map) map.content)
else Nothing
solve_tiles : (
(Dict.Dict BattleMap.Struct.Tile.Ref BattleMap.Struct.Tile.Type) ->
Type ->
Type
)
solve_tiles tiles map =
{map |
content =
(Array.map
(BattleMap.Struct.TileInstance.solve tiles) map.content
)
}
get_omnimods_at : (
BattleMap.Struct.Location.Type ->
(Dict.Dict BattleMap.Struct.Tile.Ref BattleMap.Struct.Tile.Type) ->
Type ->
Battle.Struct.Omnimods.Type
)
get_omnimods_at loc tiles_solver map =
case (try_getting_tile_at loc map) of
Nothing -> (Battle.Struct.Omnimods.none)
(Just tile_inst) ->
case
(Dict.get
(BattleMap.Struct.TileInstance.get_class_id tile_inst)
tiles_solver
)
of
Nothing -> (Battle.Struct.Omnimods.none)
(Just tile) -> (BattleMap.Struct.Tile.get_omnimods tile)
decoder : (Json.Decode.Decoder Type)
decoder =
(Json.Decode.andThen
(\width ->
(Json.Decode.map4
Type
(Json.Decode.field "w" Json.Decode.int)
(Json.Decode.field "h" Json.Decode.int)
(Json.Decode.field
"t"
(Json.Decode.map
(Array.indexedMap
(BattleMap.Struct.TileInstance.set_location_from_index
width
)
)
(Json.Decode.array (BattleMap.Struct.TileInstance.decoder))
)
)
(Json.Decode.field
"m"
(Json.Decode.map
(Dict.fromList)
(Json.Decode.keyValuePairs
(BattleMap.Struct.MapMarker.decoder)
)
)
)
)
)
(Json.Decode.field "w" Json.Decode.int)
)
get_movement_cost_function : (
Type ->
BattleMap.Struct.Location.Type ->
(List BattleMap.Struct.Character.Type) ->
BattleMap.Struct.Location.Type ->
Int
)
get_movement_cost_function bmap start_loc char_list loc =
if (has_location loc bmap)
then
case (Array.get (location_to_index loc bmap) bmap.content) of
(Just tile) ->
if
(List.any
(
\c ->
(
((BattleMap.Struct.Character.get_location c) == loc)
&& (loc /= start_loc)
&& (BattleMap.Struct.Character.is_alive c)
)
)
char_list
)
then
Constants.Movement.cost_when_occupied_tile
else
(BattleMap.Struct.TileInstance.get_cost tile)
Nothing -> Constants.Movement.cost_when_out_of_bounds
else
Constants.Movement.cost_when_out_of_bounds
|
