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
|
--[[
Basic stroll ai
--]]
local STROLL_TIMEOUT = 20
local STROLL_TIMEOUT_RANDOMNESS = 10
local TARGET_SEARCH_DELAY = 10
-- Wrapping the monster update callback in order to do the stroll ai here
local old_on_update = MonsterClass.on_update
local update_functions = {}
function MonsterClass:on_update(callback)
update_functions[self] = callback
end
local mob_stati = {}
local angerlist = {}
local mob_config = require "scripts/monster/settings"
local function calculate_position_priority(x1, y1, x2, y2, anger, range)
if math.floor(x1 / TILESIZE) == math.floor(x2 / TILESIZE) and
math.floor(y1 / TILESIZE) == math.floor(y2 / TILESIZE)
then
-- Both on the same tile
return anger * range
end
local path_length = get_path_length(x1, y1, x2, y2, range, "w")
return (range - path_length) * anger
end
local function update_attack_ai(mob, tick)
local config = mob_config[mob:name()]
local target
local target_priority
local attack_x, attack_y
local mob_status = mob_stati[mob]
local timer = mob_status.update_target_timer
if timer and timer > tick then
return false
end
for _, being in ipairs(get_beings_in_circle(mob, config.trackrange)) do
if being:type() == TYPE_CHARACTER
and being:action() ~= ACTION_DEAD
then
local anger = angerlist[being] or 0
if anger == 0 and config.aggressive then
anger = 1
end
local possible_attack_positions = {
{
x = being:x() - config.attack_distance,
y = being:y(),
},
{
x = being:x(),
y = being:y() - config.attack_distance,
},
{
x = being:x() + config.attack_distance,
y = being:y(),
},
{
x = being:x(),
y = being:y() + config.attack_distance,
},
}
for _, point in ipairs(possible_attack_positions) do
local priority = calculate_position_priority(mob:x(),
mob:y(),
point.x,
point.y,
anger,
config.trackrange)
if not target or priority > target_priority then
target = being
target_priority = priority
attack_x, attack_y = point.x, point.y
end
end
end
end
mob_status.update_target_timer = tick + TARGET_SEARCH_DELAY
if not target then
return false
end
local x, y = mob:position()
if x == attack_x and y == attack_y then
mob:use_ability(config.ability_id, target)
else
mob:walk(attack_x, attack_y)
end
return true
end
local function update_stroll_timer(mob_status, tick)
mob_status.stroll_timer = tick + STROLL_TIMEOUT
+ math.random(STROLL_TIMEOUT_RANDOMNESS)
end
local function update_stroll(mob, tick)
local mobconfig = mob_config[mob:name()]
local mob_status = mob_stati[mob]
local strollrange = mobconfig and mobconfig.strollrange or nil
if (not mob_status.stroll_timer or mob_status.stroll_timer <= tick) and
strollrange
then
local x, y = mob:position()
local destination_x = math.random(x - strollrange, x + strollrange)
local destination_y = math.random(y - strollrange, y + strollrange)
if is_walkable(destination_x, destination_y) then
mob:walk(destination_x, destination_y)
end
update_stroll_timer(mob_status, tick)
end
end
local function remove_mob(mob)
mob_stati[mob] = nil
end
local function update(mob, tick)
local mob_status = mob_stati[mob]
if not mob_status then
mob_status = {}
mob_stati[mob] = mob_status
on_remove(mob, remove_mob)
end
local stop_stroll = update_attack_ai(mob, tick)
if stop_stroll then
update_stroll_timer(mob_status, tick)
else
update_stroll(mob, tick)
end
-- Call other update functions
local monsterclass = get_monster_class(mob:monster_id())
local update_function = update_functions[monsterclass]
if update_function then
return update_function(mob, tick)
end
end
local function mob_attack(mob, target, ability_id)
local hp = target:base_attribute(ATTR_HP)
local config = mob_config[mob:name()]
local dealt_damage = math.min(hp, config.damage)
if dealt_damage > 0 then
local v = hp - dealt_damage
target:set_base_attribute(ATTR_HP, hp - dealt_damage)
target:add_hit_taken(dealt_damage)
end
end
local function mob_recharged(mob, ability_id)
mob_stati[mob].update_target_timer = 0 -- Enforce looking for new target
end
local mob_attack_ability =
get_ability_info("Monster attack_Basic Monster strike")
mob_attack_ability:on_use(mob_attack)
mob_attack_ability:on_recharged(mob_recharged)
-- Register all update functions for the ai
for _, monsterclass in pairs(get_monster_classes()) do
old_on_update(monsterclass, update)
end
|
