Divergent/mods/NPC Fleeing/gamedata/scripts/npc_fleeing.script

560 lines
19 KiB
Plaintext

local squads_t = {}
local flee_smarts = {}
local smoke_parts = {}
------------------------------------ things to change ---------------------------------
-- power mults for stalker its (rank*comm); for mutant only last table
local rank_to_val = {
["novice"] = 0.6, ["trainee"] = 0.6, ["experienced"] = 0.9, ["professional"] = 0.9,
["veteran"] = 1.15, ["expert"] = 1.15, ["master"] = 1.4, ["legend"] = 1.4,
}
local comm_to_val = {
["zombied"] = 0.7, ["bandit"] = 0.8, ["renegade"] = 0.8, ["stalker"] = 0.9, ["csky"] = 0.9, ["ecolog"] = 0.9,
["dolg"] = 1, ["freedom"] = 1, ["army"] = 1.1, ["killer"] = 1.2, ["greh"] = 1.2, ["isg"] = 1.3, ["monolith"] = 1.3,
}
local mutant_to_val = {
[clsid["tushkano_s"]] = 0.1, [clsid["zombie_s"]] = 0.3, [clsid["dog_s"]] = 0.3, [clsid["flesh_s"]] = 0.5, [clsid["fracture_s"]] = 0.5, [clsid["boar_s"]] = 0.75, [clsid["pseudodog_s"]] = 0.75,
[clsid["cat_s"]] = 0.75, [clsid["snork_s"]] = 0.75, ["SM_KARLIK"] = 0.75, [clsid["poltergeist_s"]] = 1, ["SM_LURKER"] = 1.5, [clsid["psy_dog_s"]] = 2,
["SM_PSYSUCKER"] = 2.5, [clsid["bloodsucker_s"]] = 2.5, [clsid["burer_s"]] = 2.5, [clsid["chimera_s"]] = 3.5, [clsid["controller_s"]] = 4, [clsid["gigant_s"]] = 5,
}
-- ignore list for comms that do not flee
local ignore_flee = {
["zombied"] = true, ["monolith"] = true,
}
-- chance to use smoke grenade (every npc in squad is checked, 1 is 100%)
local smoke_ranks = {
["novice"] = 0.01, ["trainee"] = 0.03, ["experienced"] = 0.1, ["professional"] = 0.15,
["veteran"] = 0.25, ["expert"] = 0.3, ["master"] = 0.4, ["legend"] = 0.4,
}
---------------------------------------------------------------------------------------
-- start flee if (friends_power * threshold_mult < enemies_power)
local threshold_mult = npc_fleeing_mcm.get_config("threshold_mult")
-- powers multipliers (goes to friends_power and enemies_power)
local enemies_pwr_mult = 1 --npc_fleeing_mcm.get_config("enemies_pwr_mult")
local friends_pwr_mult = 1 --npc_fleeing_mcm.get_config("friends_pwr_mult")
local companion_pwr_mult = npc_fleeing_mcm.get_config("companion_pwr")
-- iterate through enemies/friends radius when NOT fleeing, then if enemy power is greater - start flee
local enemies_radius = npc_fleeing_mcm.get_config("enemies_radius")
local friends_radius = npc_fleeing_mcm.get_config("friends_radius")
-- iterate through enemies/friends radius when fleeing, then if enemy power is less - cancel flee
local enemies_upd_radius = npc_fleeing_mcm.get_config("enemies_upd_radius")
local friends_upd_radius = npc_fleeing_mcm.get_config("friends_upd_radius")
-- some other stuff
local start_flee_time = npc_fleeing_mcm.get_config("start_flee_time") -- guaranteed flee time after it starts (cant be cancelled)
local flee_protection_time = npc_fleeing_mcm.get_config("flee_protection_time") -- seconds between new flee (set 0 for instant flees one after another when possible)
local cancel_on_hit = npc_fleeing_mcm.get_config("cancel_on_hit") -- cancel flee on hit (only after "start_flee_time")
local hits_to_cancel = npc_fleeing_mcm.get_config("hits_to_cancel") -- amount of hits needed to cancel flee
local flee_smart_min_dist = npc_fleeing_mcm.get_config("flee_smart_min_dist") -- pick smart to flee that at least further than this value
local cover_time = npc_fleeing_mcm.get_config("cover_time")
local smoke_enabled = npc_fleeing_mcm.get_config("smoke_enabled")
-- do not touch for now
local flee_time = 600
local start_flee_check = false -- delay for first update, because somehow they dont see friends for a few first seconds
local flee_dbg = npc_fleeing_mcm.get_config("flee_dbg")
local print_lists_dbg = false
local immortal_npcs = false
function squad_on_update(squad)
-- small delay for loading
if not start_flee_check then
return
end
-- do only for online squads
if not (squad.online) then
squads_t[squad.id] = nil
return
end
-- do only for simulation stalkers
if (ignore_flee[squad.player_id]) or (string.find(squad.player_id, "monster")) or (not string.find(squad:section_name(), "sim_squad")) then
return
end
-- do only if not surge (and cancel flee)
if xr_conditions.surge_started() then
cancel_flee(squad, squads_t[squad.id] and squads_t[squad.id].fleeing, "surge started")
return
end
-- check update timer (2 sec per squad)
if squads_t[squad.id] and squads_t[squad.id].tmr and ( time_global() - squads_t[squad.id].tmr < 2000 ) then
return
end
-- store/update the squad properties (timer, powers and enemy)
squads_t[squad.id] = squads_t[squad.id] or {}
squads_t[squad.id].tmr = time_global()
-- if fleeing - update flee state and return
if squads_t[squad.id].fleeing then
update_flee(squad)
pr2("~----------------------------------upd")
return
end
-- flee to another smart
start_flee(squad)
pr2("~-------------------------------end")
end
function update_flee(squad)
-- start updates only after flee started + start_flee_time
if squads_t[squad.id].start_updates_tmr and ( time_global() - squads_t[squad.id].start_updates_tmr < 1000 * start_flee_time ) then
return
end
squads_t[squad.id].start_updates_tmr = nil
-- cancel flee if at least one squad member is close to smart target
local smart = squads_t[squad.id].smart_id and alife_object(squads_t[squad.id].smart_id)
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
if valid_obj(npc) and smart and npc:position():distance_to(smart.position) < 15 then
cancel_flee(squad, true, "smart reached")
return
end
end
-- cancel flee if power is greater than enemies (to fight weak enemies on the way)
local enemy_pwr, friend_pwr, be_squad_id = get_powers(squad, enemies_upd_radius, friends_upd_radius)
if be_squad_id and friend_pwr * threshold_mult >= enemy_pwr then
cancel_flee(squad, true, "weak enemies met", enemy_pwr, friend_pwr)
return
end
-- make nearest npc in squad to cover the rest
local function stop_covering(obj_id, squad_id)
local cvr_npc = level.object_by_id(obj_id)
if valid_obj(cvr_npc, true) and squads_t[squad_id] then
squads_t[squad_id].npc_cover_id = nil
end
return true
end
local cover_id = squads_t[squad.id].npc_cover_id
local cover_npc = cover_id and level.object_by_id(cover_id)
if valid_obj(cover_npc, true) then
CreateTimeEvent("flee_cover_e" .. cover_id, "flee_cover_a" .. cover_id, cover_time, stop_covering, cover_id, squad.id)
demonized_stalker_aoe_panic.npc_remove_aoe_panic(cover_id, "npc_flee" .. cover_id, true)
end
-- change flee state between panic and assault based on distance to best enemy
local enemy = be_squad_id and alife_object(be_squad_id)
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
if valid_obj(npc) and (not cover_id or cover_id ~= m.id) then
local state = enemy and npc:position():distance_to(enemy.position) < 40 and "panic" or "assault"
demonized_stalker_aoe_panic.npc_add_aoe_panic(npc:id(), "npc_flee" .. npc:id(), flee_time, nil, enemy and enemy.position, false, smart and smart.position, state)
end
end
end
function start_flee(squad)
-- protection from another instant flee
if squads_t[squad.id].no_flee_time and (time_global() - squads_t[squad.id].no_flee_time < 1000 * flee_protection_time) then
return
end
squads_t[squad.id].no_flee_time = nil
-- get powers and calculate if enemies are greater
local enemy_pwr, friend_pwr, be_squad_id = get_powers(squad, enemies_radius, friends_radius)
if (not be_squad_id) or (friend_pwr * threshold_mult >= enemy_pwr) then return end
-- get smart to flee
local smart_name = get_smart_to_flee(squad, be_squad_id)
local smart = smart_name and SIMBOARD.smarts_by_names[smart_name]
if not smart then return end
-- set this smart as assigned target and store
squad:specific_update(smart.id)
squads_t[squad.id].smart_id = smart.id
-- start panic
local enemy = alife_object(be_squad_id)
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
if valid_obj(npc) then
pr2("~ -------------- start panic")
local state = enemy and npc:position():distance_to(enemy.position) < 80 and "panic" or "assault"
demonized_stalker_aoe_panic.npc_add_aoe_panic(npc:id(), "npc_flee" .. npc:id(), flee_time, nil, nil, false, smart.position, state)
end
end
pr("- id: %s || sec: %s", squad.id, squad:section_name())
pr("$ flee to %s || en_pwr: %s || fr_pwr: %s", smart_name, enemy_pwr, friend_pwr)
pr("~-------------------------------------------")
squads_t[squad.id].fleeing = true
squads_t[squad.id].start_updates_tmr = time_global()
squads_t[squad.id].hits = 0
-- get last npc that will cover squad
local nearest_id = get_nearest_squad_member_id(squad, smart)
if nearest_id and cover_time > 0 and squad:npc_count() > 1 then
squads_t[squad.id].npc_cover_id = nearest_id
end
-- create smoke on farthest npc position
local farthest_id = get_farthest_squad_member_id(squad, smart)
local far_npc = farthest_id and level.object_by_id(farthest_id)
if smoke_enabled and far_npc then
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
local npc_rank = valid_obj(npc) and ranks.get_obj_rank_name(npc)
if npc_rank and smoke_ranks[npc_rank] and smoke_ranks[npc_rank] >= math.random() then
smoke_parts[npc:id()] = particles_object("explosions\\explosion_dym")
smoke_parts[npc:id()]:play_at_pos(far_npc:position())
break
end
end
end
end
function cancel_flee(squad, is_fleeing, print_msg, pwr1, pwr2)
if not (squads_t[squad.id] and is_fleeing) then return end
local squad_npcs = {}
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
if valid_obj(npc) then
squad_npcs[npc:id()] = true
demonized_stalker_aoe_panic.npc_remove_aoe_panic(npc:id(), "npc_flee" .. npc:id(), true)
end
end
pr("- id: %s || sec: %s", squad.id, squad:section_name())
pr("$ stopped fleeing, %s %s %s", print_msg, pwr1 and ("|| en_pwr: " .. pwr1) or "", pwr2 and (" || fr_pwr: " .. pwr2) or "")
pr("~-------------------------------------------")
squads_t[squad.id].fleeing = nil
squads_t[squad.id].no_flee_time = time_global()
squads_t[squad.id].hits = nil
squads_t[squad.id].npc_cover_id = nil
-- test (delete npc from body)
--[[
for id, t in pairs(db.storage) do
if t.corpse_already_selected and squad_npcs[t.corpse_already_selected] then
db.storage[id].corpse_already_selected = nil
end
end
--]]
-- test (delete body from npc)
for id, _ in pairs(squad_npcs) do
if db.storage[id] and db.storage[id].corpse_detection then
db.storage[id].corpse_detection.selected_corpse_id = nil
end
end
end
function get_powers(squad, enemy_radius, friend_radius)
local enemies_t = {}
local friends_t = {}
local highest_enemy_id
local highest_enemy_power = 0
-- iterate through memory of each npc in squad
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
if valid_obj(npc) and npc.memory_visible_objects and npc:memory_visible_objects() then
-- add self
if npc:has_info("npcx_is_companion") then
friends_t[npc:id()] = friends_t[npc:id()] or get_obj_power(npc, true) or 0
else
friends_t[npc:id()] = friends_t[npc:id()] or get_obj_power(npc) or 0
end
pr2("~ ------------1")
for o in npc:memory_visible_objects() do
local obj = o and o:object()
if valid_obj(obj, true) and obj:position():distance_to(npc:position()) < enemy_radius then
local obj_power = get_obj_power(obj) or 0
-- get all enemy powers
if npc:relation(obj) >= game_object.enemy then
enemies_t[obj:id()] = enemies_t[obj:id()] or obj_power
-- save best enemy
if obj:id() ~= 0 and obj_power > highest_enemy_power then
highest_enemy_power = obj_power
local enemy_squad = get_object_squad(obj)
highest_enemy_id = enemy_squad and enemy_squad.id or highest_enemy_id
end
-- get all friend powers (with reduced range)
elseif obj:position():distance_to(npc:position()) < friend_radius then
friends_t[obj:id()] = friends_t[obj:id()] or obj_power
end
end
end
end
end
pr2("~ ------------2")
if not highest_enemy_id then return end
pr2("~ ------------3")
-- calc total powers
local enemies_power = 0
pr2(" enemies list:")
for obj_id, pwr in pairs(enemies_t) do
pr2(" enemy: %s || pwr: %s", level.object_by_id(obj_id):name(), pwr)
enemies_power = enemies_power + pwr
end
pr2("~ ------------4")
local friends_power = 0
pr2(" friends list:")
for obj_id, pwr in pairs(friends_t) do
pr2(" friend: %s || pwr: %s", level.object_by_id(obj_id):name(), pwr)
friends_power = friends_power + pwr
end
pr2("~ ------------5")
return enemies_power * enemies_pwr_mult, friends_power * friends_pwr_mult, highest_enemy_id
end
function get_obj_power(npc, is_comp)
local power = 1
-- if stalker
if IsStalker(npc) then
-- rank and community power
local rank = ranks.get_obj_rank_name(npc)
local comm = npc:character_community()
power = power * (rank and rank_to_val[rank] or 0.5) * (comm and comm_to_val[comm] or 0.7)
-- if companion
if is_comp then
power = power * companion_pwr_mult
end
-- if mutant
elseif IsMonster(npc) then
local kind = ini_sys:r_string_ex(npc:section(), "kind")
if kind and mutant_to_val[kind] then
power = power * mutant_to_val[kind]
elseif mutant_to_val[npc:clsid()] then
power = power * mutant_to_val[npc:clsid()]
else
power = power * 0.3
end
end
return power
end
function get_smart_to_flee(squad, be_squad_id)
local enemy_squad = alife_object(be_squad_id)
if not (enemy_squad and flee_smarts[squad.player_id]) then return end
local nearest_dist = 9999
local nearest_smart_name
for smart_name, _ in pairs(flee_smarts[squad.player_id]) do
local smart = SIMBOARD.smarts_by_names[smart_name]
if smart then
-- get dist from squad to this smart
local squad_dist = squad.position:distance_to(smart.position)
-- get dist from enemy to this smart
local enemy_dist = enemy_squad.position:distance_to(smart.position)
-- check if squad is closer to smart than enemy, pick smart that is "flee_smart_min_dist" meters away but nearest of those
if squad_dist and enemy_dist and (enemy_dist - squad_dist) > 0 and (squad_dist > flee_smart_min_dist) and (squad_dist < nearest_dist) then
nearest_dist = squad_dist
nearest_smart_name = smart_name
end
end
end
return nearest_smart_name
end
function get_nearest_squad_member_id(squad, smart)
local dist = 999
local nearest_id
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
if valid_obj(npc) and (npc:position():distance_to(smart.position) < dist) then
dist = npc:position():distance_to(smart.position)
nearest_id = npc:id()
end
end
return nearest_id
end
function get_farthest_squad_member_id(squad, smart)
local dist = 0
local farthest_id
for m in squad:squad_members() do
local npc = level.object_by_id(m.id)
if valid_obj(npc) and (npc:position():distance_to(smart.position) > dist) then
dist = npc:position():distance_to(smart.position)
farthest_id = npc:id()
end
end
return farthest_id
end
function get_obj_level_name(se_obj)
local lid = se_obj and game_graph():vertex(se_obj.m_game_vertex_id):level_id()
return lid and alife():level_name(lid)
end
function actor_on_first_update()
local comms = { "bandit", "renegade", "stalker", "csky", "ecolog", "dolg", "freedom", "army", "killer", "greh", "isg", "monolith" }
local def_props_t = { ["all"] = true, ["base"] = true, ["surge"] = true, ["territory"] = true }
for name, smart in pairs(SIMBOARD.smarts_by_names) do
local smart_level_name = get_obj_level_name(smart)
-- smart on current level
if smart_level_name == level.name() then
for i = 1, #comms do
local comm = comms[i]
-- validate if smart can receive squads
if (not smart.disabled) and (smart.max_population and smart.max_population > 0) then
-- check if smart can receive this community
local comm_prop = smart.props and smart.props[comm] and smart.props[comm] > 0
local def_prop = false
for k, v in pairs(def_props_t) do
if smart.props and smart.props[k] and smart.props[k] > 0 then
def_prop = true
break
end
end
-- store this smart name for this community
if comm_prop or def_prop then
flee_smarts[comm] = flee_smarts[comm] or {}
flee_smarts[comm][name] = true
end
end
end
end
end
-- small delay for loading
CreateTimeEvent("dly_sq_upd_e", "dly_sq_upd_a", 5, function()
start_flee_check = true
return true
end)
end
function valid_obj(obj, cls)
if not obj then return end
local class_check = (not cls) or IsStalker(obj) or IsMonster(obj)
return class_check and obj.alive and obj:alive() and (not IsWounded(obj))
end
function server_entity_on_unregister(se_obj, typ)
-- remove squad
if squads_t[se_obj.id] then
squads_t[se_obj.id] = nil
end
end
function pr(...)
if not flee_dbg then return end
printf(...)
end
function pr2(...)
if not print_lists_dbg then return end
printf(...)
end
function npc_on_before_hit(npc, s_hit, bone_id, flags)
local squad = get_object_squad(npc)
if cancel_on_hit and squad and squad.commander_id and squads_t[squad.id] and squads_t[squad.id].fleeing and (not squads_t[squad.id].start_updates_tmr) and squads_t[squad.id].hits then
squads_t[squad.id].hits = squads_t[squad.id].hits + 1
if squads_t[squad.id].hits >= hits_to_cancel then
cancel_flee(squad, true, "got hitted")
end
end
if not immortal_npcs then return end
if not (s_hit.draftsman and s_hit.draftsman:id() == 0) then
flags.ret_value = false
return
end
s_hit.power = 1000
end
function on_option_change()
threshold_mult = npc_fleeing_mcm.get_config("threshold_mult")
-- enemies_pwr_mult = npc_fleeing_mcm.get_config("enemies_pwr_mult")
-- friends_pwr_mult = npc_fleeing_mcm.get_config("friends_pwr_mult")
enemies_radius = npc_fleeing_mcm.get_config("enemies_radius")
friends_radius = npc_fleeing_mcm.get_config("friends_radius")
enemies_upd_radius = npc_fleeing_mcm.get_config("enemies_upd_radius")
friends_upd_radius = npc_fleeing_mcm.get_config("friends_upd_radius")
start_flee_time = npc_fleeing_mcm.get_config("start_flee_time")
flee_protection_time = npc_fleeing_mcm.get_config("flee_protection_time")
cancel_on_hit = npc_fleeing_mcm.get_config("cancel_on_hit")
hits_to_cancel = npc_fleeing_mcm.get_config("hits_to_cancel")
flee_smart_min_dist = npc_fleeing_mcm.get_config("flee_smart_min_dist")
cover_time = npc_fleeing_mcm.get_config("cover_time")
smoke_enabled = npc_fleeing_mcm.get_config("smoke_enabled")
flee_dbg = npc_fleeing_mcm.get_config("flee_dbg")
end
function on_game_start()
RegisterScriptCallback("squad_on_update", squad_on_update)
RegisterScriptCallback("actor_on_first_update", actor_on_first_update)
RegisterScriptCallback("server_entity_on_unregister", server_entity_on_unregister)
RegisterScriptCallback("npc_on_before_hit", npc_on_before_hit)
RegisterScriptCallback("monster_on_before_hit", npc_on_before_hit)
RegisterScriptCallback("on_option_change", on_option_change)
end