427 lines
10 KiB
Plaintext
427 lines
10 KiB
Plaintext
|
local ray_pos = {}
|
||
|
|
--local se_campfires = {}
|
||
|
|
local se_anoms = {}
|
||
|
|
local prev_level = {}
|
||
|
|
local chop_allowed = true
|
||
|
|
|
||
|
|
--[[
|
||
|
|
local axes = {
|
||
|
|
["wpn_axe"] = { degr = 0.15, item_to_use = "itm_xcvb_1", hours = 1, minutes = 30},
|
||
|
|
["wpn_axe2"] = { degr = 0.1, item_to_use = "itm_xcvb_2", hours = 1, minutes = 0},
|
||
|
|
["wpn_axe3"] = { degr = 0.05, item_to_use = "itm_xcvb_3", hours = 0, minutes = 45},
|
||
|
|
}
|
||
|
|
--]]
|
||
|
|
|
||
|
|
local axes = {
|
||
|
|
["wpn_axe"] = { degr = 13, item_to_use = "itm_xcvb_1", minutes = 90},
|
||
|
|
["wpn_axe2"] = { degr = 9, item_to_use = "itm_xcvb_2", minutes = 61},
|
||
|
|
["wpn_axe3"] = { degr = 5, item_to_use = "itm_xcvb_3", minutes = 45},
|
||
|
|
}
|
||
|
|
|
||
|
|
function save_state(m_data)
|
||
|
|
-- m_data.se_campfires = se_campfires
|
||
|
|
m_data.se_anoms = se_anoms
|
||
|
|
m_data.prev_level = prev_level
|
||
|
|
end
|
||
|
|
|
||
|
|
function load_state(m_data)
|
||
|
|
-- se_campfires = m_data.se_campfires or {}
|
||
|
|
se_anoms = m_data.se_anoms or {}
|
||
|
|
prev_level = m_data.prev_level or {}
|
||
|
|
end
|
||
|
|
|
||
|
|
function actor_on_first_update()
|
||
|
|
if campfire_placeable_mcm.get_config("delete_items") then
|
||
|
|
for i = 1, 65534 do
|
||
|
|
local se_obj = alife_object(i)
|
||
|
|
if se_obj and (se_obj:section_name() == "itm_campfire" or se_obj:section_name() == "ph_campfiremod" or se_anoms[se_obj.id]) then
|
||
|
|
alife_release(se_obj)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
-- se_campfires = {}
|
||
|
|
se_anoms = {}
|
||
|
|
end
|
||
|
|
|
||
|
|
-- del obj on level change
|
||
|
|
local curr_level = level.name()
|
||
|
|
if (is_empty(prev_level)) then
|
||
|
|
prev_level.level_name = curr_level
|
||
|
|
printf("tbl is empty || .level_name is now: %s", prev_level.level_name)
|
||
|
|
elseif (prev_level.level_name) then
|
||
|
|
printf("tbl is not empty")
|
||
|
|
if (prev_level.level_name ~= curr_level) and (campfire_placeable_mcm.get_config("transition_delete_items")) then
|
||
|
|
printf(".level_name is not equal curr_level")
|
||
|
|
-- del
|
||
|
|
for i = 1, 65534 do
|
||
|
|
local se_obj = alife_object(i)
|
||
|
|
if se_obj and (se_obj:section_name() == "ph_campfiremod" or se_anoms[se_obj.id]) then
|
||
|
|
alife_release(se_obj)
|
||
|
|
printf("- Object deleted (id): %s", se_obj.id)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
se_anoms = {}
|
||
|
|
prev_level.level_name = curr_level
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
function ray_main(add_pos_x, add_pos_y, add_pos_z, dir)
|
||
|
|
local pick = ray_pick()
|
||
|
|
local pos = device().cam_pos
|
||
|
|
pos.x = pos.x + add_pos_x
|
||
|
|
pos.y = pos.y + add_pos_y
|
||
|
|
pos.z = pos.z + add_pos_z
|
||
|
|
|
||
|
|
pick:set_position(pos)
|
||
|
|
pick:set_direction(dir)
|
||
|
|
pick:set_flags(2)
|
||
|
|
pick:set_range(200)
|
||
|
|
pick:query()
|
||
|
|
local distance = pick:get_distance()
|
||
|
|
|
||
|
|
return distance
|
||
|
|
end
|
||
|
|
|
||
|
|
function is_flat_surface()
|
||
|
|
local radius = campfire_placeable_mcm.get_config("place_radius")
|
||
|
|
local diff = campfire_placeable_mcm.get_config("dot_dist_diff")
|
||
|
|
local dir = vector():set(0, -0.5, 0)
|
||
|
|
ray_pos[1] = ray_main(0, 0, 0, dir)
|
||
|
|
ray_pos[2] = ray_main(radius, 0, 0, dir)
|
||
|
|
ray_pos[3] = ray_main(-radius, 0, 0, dir)
|
||
|
|
ray_pos[4] = ray_main(0, 0, radius, dir)
|
||
|
|
ray_pos[5] = ray_main(0, 0, -radius, dir)
|
||
|
|
|
||
|
|
-- printf("-----------------------------------")
|
||
|
|
local cnt = 0
|
||
|
|
for k, v in pairs(ray_pos) do
|
||
|
|
-- printf("[%s] = %s", k, v)
|
||
|
|
for i = 1, #ray_pos do
|
||
|
|
if ray_pos[i] + diff < v or ray_pos[i] - diff > v then
|
||
|
|
cnt = cnt + 1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
-- news_manager.send_tip(db.actor, string.format("surface comparison count: [ %s ]", (cnt)), 0, nil, 1500)
|
||
|
|
|
||
|
|
local front = ray_main(0, 0, 0, device().cam_dir) -- dist to obstacle infront
|
||
|
|
if cnt < 3 and front > 3 then
|
||
|
|
-- actor_menu.set_msg(1, strformat("Surface around is FLAT"))
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
-- actor_menu.set_msg(1, strformat("Surface is meh"))
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
|
||
|
|
function prepare_campfire()
|
||
|
|
local game_minutes = math.random(5, 10)
|
||
|
|
level.add_pp_effector("fade_nine_sec.ppe", 855121, false)
|
||
|
|
level.change_game_time(0, 0, game_minutes)
|
||
|
|
CreateTimeEvent("placing_cf", "placing_cf", 2, place_campfire)
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
function place_campfire()
|
||
|
|
-- local snd = sound_object("no_sound_yet\\feels_bad")
|
||
|
|
-- snd:play_no_feedback(db.actor, sound_object.s2d, 0, VEC_ZERO, 1.0, 1.0)
|
||
|
|
|
||
|
|
local function apply_force_to_campfire(obj_id)
|
||
|
|
local game_obj = get_object_by_id(obj_id)
|
||
|
|
if game_obj then
|
||
|
|
game_obj:get_physics_shell():apply_force(0, 1, 0)
|
||
|
|
CreateTimeEvent("spawn_anomaly_cf", "spawn_anomaly_cf", 1, spawn_anomaly_campfire, game_obj)
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
return false
|
||
|
|
end
|
||
|
|
|
||
|
|
local pos = db.actor:position()
|
||
|
|
local dir = db.actor:direction()
|
||
|
|
pos = pos:add(dir:mul(2))
|
||
|
|
local ph_sec = ini_sys:r_string_ex("itm_campfire", "placeable_section")
|
||
|
|
local se_obj = alife_create(ph_sec or "ph_campfiremod", pos, db.actor:level_vertex_id(), db.actor:game_vertex_id())
|
||
|
|
-- se_campfires[se_obj.id] = true
|
||
|
|
|
||
|
|
CreateTimeEvent("apply_force_to_cf", "apply_force_to_cf", 0.5, apply_force_to_campfire, se_obj.id)
|
||
|
|
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
|
||
|
|
function spawn_anomaly_campfire(obj)
|
||
|
|
local pos = obj:position()
|
||
|
|
local new_pos = vector():set(pos.x - 0.05, pos.y + 0.15, pos.z + 0.05)
|
||
|
|
local se_obj = alife_create("campfire", new_pos, obj:level_vertex_id(), obj:game_vertex_id())
|
||
|
|
se_anoms[se_obj.id] = true
|
||
|
|
|
||
|
|
local data = utils_stpk.get_anom_zone_data(se_obj)
|
||
|
|
if not (data) then return end
|
||
|
|
data.shapes[1] = {}
|
||
|
|
data.shapes[1].shtype = 0
|
||
|
|
data.shapes[1].offset = vector():set(0, 0, 0)
|
||
|
|
data.shapes[1].center = vector():set(0, 0, 0)
|
||
|
|
data.shapes[1].radius = 0.85
|
||
|
|
utils_stpk.set_anom_zone_data(data, se_obj)
|
||
|
|
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
|
||
|
|
function actor_on_item_use(obj)
|
||
|
|
local sec = obj:section()
|
||
|
|
if (sec == "itm_campfire") then
|
||
|
|
if not (is_flat_surface()) then
|
||
|
|
news_manager.send_tip(db.actor, game.translate_string("st_bad_surface"), 0, nil, 1500)
|
||
|
|
else
|
||
|
|
alife_release(obj)
|
||
|
|
prepare_campfire()
|
||
|
|
hide_hud_inventory()
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
-------------------------- gather wood xd -------------------------
|
||
|
|
function allowing_chop()
|
||
|
|
chop_allowed = true
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
|
||
|
|
function gather_wood(obj)
|
||
|
|
chop_allowed = false
|
||
|
|
CreateTimeEvent("allowing_chop_again", "allowing_chop_again", 7, allowing_chop)
|
||
|
|
|
||
|
|
local sec = obj:section()
|
||
|
|
|
||
|
|
-- spawn fake item in inv and eat it
|
||
|
|
local itm_to_spawn = axes[sec].item_to_use
|
||
|
|
alife_create_item(itm_to_spawn, db.actor)
|
||
|
|
|
||
|
|
local function delay_item_use()
|
||
|
|
local itm_obj
|
||
|
|
db.actor:iterate_inventory( function(owner, item)
|
||
|
|
if item:section() == itm_to_spawn then
|
||
|
|
itm_obj = item
|
||
|
|
end
|
||
|
|
end)
|
||
|
|
|
||
|
|
db.actor:eat(itm_obj)
|
||
|
|
return true
|
||
|
|
end
|
||
|
|
|
||
|
|
CreateTimeEvent("eat_xcvb", "eat_xcvb", 0.25, delay_item_use) -- item spawn has small delay apparently ;[
|
||
|
|
|
||
|
|
-- degradate axe
|
||
|
|
local cond = obj:condition()
|
||
|
|
local degr_for = axes[sec].degr
|
||
|
|
degr_for = (math.random(degr_for - 2, degr_for + 3)) / 100
|
||
|
|
printf("%s degraded for: %s %", sec, degr_for * 100)
|
||
|
|
if cond > degr_for then
|
||
|
|
obj:set_condition(cond - degr_for)
|
||
|
|
else
|
||
|
|
obj:set_condition(0.01)
|
||
|
|
end
|
||
|
|
|
||
|
|
-- change time + fade out + play sound
|
||
|
|
local minutes = axes[sec].minutes
|
||
|
|
minutes = math.random(minutes - 15, minutes + 15)
|
||
|
|
hide_hud_inventory()
|
||
|
|
level.change_game_time(0, 0, minutes)
|
||
|
|
printf("Time spent on chopping wood: %s Minutes", minutes)
|
||
|
|
level.add_pp_effector("fade_nine_sec.ppe", 8551213, false)
|
||
|
|
|
||
|
|
-- spawn campfire in inv
|
||
|
|
alife_create_item("itm_campfire", db.actor)
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
function menu_gather_wood(obj)
|
||
|
|
local p = obj:parent()
|
||
|
|
if not (p and p:id() == AC_ID) then return end
|
||
|
|
|
||
|
|
return game.translate_string("st_gather_wood")
|
||
|
|
end
|
||
|
|
|
||
|
|
function func_gather_wood(obj)
|
||
|
|
local p = obj:parent()
|
||
|
|
if not (p and p:id() == AC_ID) then return end
|
||
|
|
|
||
|
|
gather_wood(obj)
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
NameCustom = ui_inventory.UIInventory.Name_Custom
|
||
|
|
|
||
|
|
function ui_inventory.UIInventory:Name_Custom(obj, bag, temp, i)
|
||
|
|
local active_item = db.actor:active_item()
|
||
|
|
local active_id = active_item and active_item:id()
|
||
|
|
obj = self:CheckItem(obj,"Name_Custom " .. i)
|
||
|
|
if i == 9 and axes[obj:section()] and chop_allowed and (not (level_weathers.bLevelUnderground)) then
|
||
|
|
if obj:condition() >= 0.05 then
|
||
|
|
return menu_gather_wood(obj)
|
||
|
|
else
|
||
|
|
return NameCustom(self, obj, bag, temp, i)
|
||
|
|
end
|
||
|
|
else
|
||
|
|
return NameCustom(self, obj, bag, temp, i)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
ActionCustom = ui_inventory.UIInventory.Action_Custom
|
||
|
|
function ui_inventory.UIInventory:Action_Custom(obj, bag, temp, i)
|
||
|
|
local active_item = db.actor:active_item()
|
||
|
|
local active_id = active_item and active_item:id()
|
||
|
|
obj = self:CheckItem(obj,"Action_Custom " .. i)
|
||
|
|
if i == 9 and axes[obj:section()] and chop_allowed and (not (level_weathers.bLevelUnderground)) then
|
||
|
|
if obj:condition() >= 0.05 then
|
||
|
|
func_gather_wood(obj)
|
||
|
|
else
|
||
|
|
ActionCustom(self, obj, bag, temp, i)
|
||
|
|
end
|
||
|
|
else
|
||
|
|
ActionCustom(self, obj, bag, temp, i)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
-------------------------- trader artiinject -------------------------
|
||
|
|
local trade_table = {
|
||
|
|
|
||
|
|
["bandit"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["dolg"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["ecolog"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["freedom"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["killer"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["army"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["monolith"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["greh"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["stalker"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["csky"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["isg"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
["renegade"] = {
|
||
|
|
[1] = {
|
||
|
|
["itm_campfire"] = 3,
|
||
|
|
},
|
||
|
|
[2] = {
|
||
|
|
["itm_campfire"] = 4,
|
||
|
|
},
|
||
|
|
},
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
function campfires_stock(npc)
|
||
|
|
|
||
|
|
local is_trader = trader_autoinject.get_trader_type(npc) == trader_autoinject.SUPPLIER
|
||
|
|
if not is_trader then return end
|
||
|
|
|
||
|
|
local community = npc:character_community() or "stalker"
|
||
|
|
local trader_table = trade_table[community] or trade_table["stalker"]
|
||
|
|
local supply_level = clamp(trader_autoinject.supply_level(npc, true) or 1, 1, 2)
|
||
|
|
|
||
|
|
if trader_table[supply_level] then
|
||
|
|
trader_autoinject.spawn_items(npc, trader_table[supply_level], true)
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
TraderAuto = trader_autoinject.update
|
||
|
|
|
||
|
|
function trader_autoinject.update(npc)
|
||
|
|
TraderAuto(npc)
|
||
|
|
campfires_stock(npc)
|
||
|
|
end
|
||
|
|
|
||
|
|
------------------------------------------------------------
|
||
|
|
|
||
|
|
function on_game_start()
|
||
|
|
RegisterScriptCallback("save_state", save_state)
|
||
|
|
RegisterScriptCallback("load_state", load_state)
|
||
|
|
RegisterScriptCallback("actor_on_first_update", actor_on_first_update)
|
||
|
|
RegisterScriptCallback("actor_on_item_use", actor_on_item_use)
|
||
|
|
end
|