Divergent/mods/Anomaly Ballistics Overhaul/gamedata/scripts/bomb_handlers.script

ini_ammo            = ballistics_utils.ini_ammo
math_random = math.random
--grenade handlers

-- m209 cluster

local bomb_min_force = 2000
local bomb_force = 3000
function detonate(item_id)
    local bomb = get_object_by_id(item_id)
    if bomb then
        bomb:explode(0)
    end
    return true
end
function bomb_scatter(item_id)
    local bomb = level.object_by_id(item_id)
    if bomb then
        bomb:get_physics_shell():apply_force(
            bomb_min_force + (random_float(-1, 1) * bomb_force * 5),
            (bomb_min_force + (math_random() * bomb_force * 5)),
            bomb_min_force + (random_float(-1, 1) * bomb_force * 5))
        CreateTimeEvent(item_id, math_random(10), 0.2 + 1.5 * math_random(), detonate, item_id)
        return true
    end
    return false
end
local cluster_particle
function cluster_bomb(position, direction, ammo)
    local bomb_type = ini_ammo:r_string_ex(ammo, "bomb_type")
    if not bomb_type then return end
    local bomb_count = ini_ammo:r_float_ex(ammo, "bomb_count") or 1

    local lvid = db.actor:level_vertex_id()
    local gvid = db.actor:game_vertex_id()
    if not cluster_particle then cluster_particle = particles_object("explosions\\explosion_03") end
    cluster_particle:play_at_pos(position)
    for i = 1, bomb_count do
        local pos = vector():set(position.x, position.y, position.z)
        local dir = vector():set(random_float(-1, 1), math_random(), random_float(-1, 1))
        pos.x = pos.x + dir.x
        pos.y = pos.y + dir.y + 1
        pos.z = pos.z + dir.z
        local bomb = alife_create_item(bomb_type, {pos, lvid, gvid})
        CreateTimeEvent(bomb.id, bomb.id, 0, bomb_scatter, bomb.id)
    end
end

local fire_particle, fire_particle2
function ignite(pos, dir, ammo)

    if not fire_particle then fire_particle = particles_object("explosions\\effects\\expl_smoke_big_veh") end
    fire_particle:play_at_pos(pos)
    if not fire_particle2 then fire_particle2 = particles_object("explosions\\effects\\expl_distortion") end
    ballistics_utils.play_sound_distance("incendiary", db.actor:position():distance_to(pos))
    fire_particle:play_at_pos(pos)
    fire_particle2:play_at_pos(pos)
    level.iterate_nearest(pos, 10, function(obj)
        if obj and obj:id() ~= AC_ID and obj:alive()  then
            arti_handlers.ignite_npc(obj, 11, {20, 40}, 1, 10)
        end
    end)
end

-- local berserked = {}
-- function on_enemy_eval(obj, enemy, flags)
--     if berserked[obj:id()] then
--         flags.override = true
--         flags.ret_value = true
--     end
-- end

-- function berserk(pos, dir, ammo)
--     printf("Berserk impact")
--     level.iterate_nearest(pos, 5, function(obj)
--         if obj and obj:id() ~= AC_ID and not berserked[obj:id()] and obj:alive()  then
--             local st = db.storage[obj:id()]
--             st.enemy_id = nil
--             berserked[obj:id()] = true

--             printf("Making %s berserk", obj:id())
--             CreateTimeEvent(obj:id(), "berserk_wearoff", 20, function()
--                 st.enemy_id = nil
--                 berserked[obj:id()] = nil
--                 return true
--             end)
--         end
--     end)
-- end

-- function on_death_callback(obj)
--     if berserked[obj:id()] then berserked[obj:id()] = nil end
-- end


-- function se_on_unregister(se)
--     berserked[se.id] = nil
-- end

-- get_nades = item_weapon.get_grenades
-- function item_weapon.get_grenades(section)
--     printf("Get grenades")
--     get_nades(section)
--     item_weapon.GUI.show_verybad = true
-- end

-- Close = item_weapon.UIWheelAmmo.Close
-- function item_weapon.UIWheelAmmo:Close()
--     self.show_verybad = not _NO_DAMAGED_AMMO
--     Close(self)
-- end

function on_game_start()
    -- RegisterScriptCallback("on_enemy_eval", on_enemy_eval)
    -- RegisterScriptCallback("npc_on_before_hit", on_before_hit)
    -- RegisterScriptCallback("monster_on_before_hit", on_before_hit)
    -- RegisterScriptCallback("server_entity_on_unregister", se_on_unregister)
end