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
|
-module(btl_turn_actions_move).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% TYPES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% EXPORTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-export
(
[
handle/2
]
).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% LOCAL FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-spec cross
(
shr_map:type(),
list(shr_location:type()),
list(shr_direction:enum()),
non_neg_integer(),
shr_location:type()
)
-> {shr_location:type(), non_neg_integer()}.
cross (_Map, _ForbiddenLocations, [], Cost, Location) ->
{Location, Cost};
cross (Map, ForbiddenLocations, [Step|NextSteps], Cost, Location) ->
NextLocation = shr_location:apply_direction(Step, Location),
NextTileInstance = shr_map:get_tile_instance(NextLocation, Map),
NextTileClassID = shr_tile_instance:get_tile_id(NextTileInstance),
NextTile = shr_tile:from_id(NextTileClassID),
NextCost = (Cost + shr_tile:get_cost(NextTile)),
IsForbidden =
lists:foldl
(
fun (ForbiddenLocation, Prev) ->
(Prev or (NextLocation == ForbiddenLocation))
end,
false,
ForbiddenLocations
),
IsForbidden = false,
cross(Map, ForbiddenLocations, NextSteps, NextCost, NextLocation).
-spec cross
(
shr_map:type(),
list(shr_location:type()),
list(shr_direction:enum()),
shr_location:type()
)
-> {shr_location:type(), non_neg_integer()}.
cross (Map, ForbiddenLocations, Path, Location) ->
cross(Map, ForbiddenLocations, Path, 0, Location).
-spec get_path_cost_and_destination
(
btl_character_turn_data:type(),
list(shr_direction:type())
)
-> {non_neg_integer(), shr_location:type()}.
get_path_cost_and_destination (Data, Path) ->
Character = btl_character_turn_data:get_character(Data),
CharacterIX = btl_character_turn_data:get_character_ix(Data),
Battle = btl_character_turn_data:get_battle(Data),
Map = btl_battle:get_map(Battle),
ForbiddenLocations =
orddict:fold
(
fun (IX, Char, Prev) ->
IsAlive = btl_character:get_is_alive(Char),
if
(IX == CharacterIX) -> Prev;
(not IsAlive) -> Prev;
true ->
ordsets:add_element(btl_character:get_location(Char), Prev)
end
end,
ordsets:new(),
btl_battle:get_characters(Battle)
),
{NewLocation, Cost} =
cross
(
Map,
ForbiddenLocations,
Path,
btl_character:get_location(Character)
),
{Cost, NewLocation}.
-spec assert_character_can_move
(
btl_character_turn_data:type(),
non_neg_integer()
)
-> 'ok'.
assert_character_can_move (Data, Cost) ->
CharacterData = btl_character_turn_data:get_character_current_data(Data),
CharacterStats= btl_character_current_data:get_statistics(CharacterData),
CharacterMovementPoints = shr_statistics:get_movement_points(CharacterStats),
true = (Cost =< CharacterMovementPoints),
ok.
-spec commit_move
(
btl_character_current_data:type(),
btl_character_turn_update:type(),
list(shr_direction:type()),
shr_location:type()
)
-> btl_character_turn_update:type().
commit_move (PreviousCurrentData, Update, Path, NewLocation) ->
Data = btl_character_turn_update:get_data(Update),
Character = btl_character_turn_data:get_character(Data),
CharacterIX = btl_character_turn_data:get_character_ix(Data),
UpdatedCharacter = btl_character:set_location(NewLocation, Character),
S0Data = btl_character_turn_data:set_character(UpdatedCharacter, Data),
S1Data = btl_character_turn_data:refresh_character_current_data(S0Data),
S0Update = btl_character_turn_update:set_data(S1Data, Update),
S1Update =
btl_turn_actions_stats_change:handle_max_health_changes
(
PreviousCurrentData,
S0Update
),
TimelineItem =
btl_turn_result:new_character_moved(CharacterIX, Path, NewLocation),
DBQuery =
ataxic:update_field
(
btl_battle:get_characters_field(),
ataxic_sugar:update_orddict_element
(
CharacterIX,
ataxic:update_field
(
btl_character:get_location_field(),
ataxic:constant(NewLocation)
)
)
),
S2Update =
btl_character_turn_update:add_to_timeline
(
TimelineItem,
DBQuery,
S1Update
),
S2Update.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% EXPORTED FUNCTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-spec handle
(
btl_battle_action:type(),
btl_character_turn_update:type()
)
-> btl_character_turn_update:type().
handle (BattleAction, Update) ->
Data = btl_character_turn_update:get_data(Update),
CharacterCurrentData =
btl_character_turn_data:get_character_current_data(Data),
Path = btl_battle_action:get_path(BattleAction),
{PathCost, NewLocation} = get_path_cost_and_destination(Data, Path),
assert_character_can_move(Data, PathCost),
commit_move(CharacterCurrentData, Update, Path, NewLocation).
|
