Rage/Divergent
1
0
Fork 0
Code Issues Pull Requests Actions Releases 1 Wiki Activity

Added, Updated and Removed Mods; Removed Backups

Browse Source
This commit is contained in:
Rage
2024-04-05 05:57:24 -04:00
parent 5caee9fba5
commit 6f19f2c70f
1209 changed files with 27057 additions and 41484 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mods/Placeable Campfires/gamedata/scripts/campfire_placeable.script
+427
View File
@@ -0,0 +1,427 @@
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
mods/Placeable Campfires/gamedata/scripts/campfire_placeable_mcm.script
+27
View File
@@ -0,0 +1,27 @@
-- If you don't use MCM, change your defaults from here.
local defaults = {
["place_radius"] = 3,
["dot_dist_diff"] = 0.4,
["transition_delete_items"] = true,
["delete_items"] = false,
}
function get_config(key)
if ui_mcm then return ui_mcm.get("campfire_placeable/"..key) else return defaults[key] end
end
function on_mcm_load()
op = { id= "campfire_placeable",sh=true ,gr={
{ id= "title",type= "slide",link= "ui_options_slider_player",text="ui_mcm_campfire_placeable_title",size= {512,50},spacing= 20 },
{id= "divider", type = "line" },
{id = "place_radius", type = "track", val = 2, min=0.5,max=5,step=0.25, def = 3},
{id = "dot_dist_diff", type = "track", val = 2, min=0.1,max=5,step=0.05, def = 0.4},
{id = "transition_delete_items", type = "check", val = 1, def = true},
{id= "divider", type = "line" },
{id= "divider", type = "line" },
{id = "delete_items", type = "check", val = 1, def = false},
}
}
return op
end
mods/Placeable Campfires/gamedata/scripts/trader_autoinject.script
+197
View File
@@ -0,0 +1,197 @@
--[[
Wrapper class to let you autoinject things via monkey patch to all traders, respecting the restock time.
How to use: Monkey patch the update function here in your script.
ex:
TraderAuto = trader_autoinject.update
function trader_autoinject.update(npc)
TraderAuto(npc)
add_custom_crap(npc) -- you define this function ok
end
Some functions provided below for convenience.
Note: If you want to iterate NPC inventory to check for items, fire a time event to allow the items to register on new game.
--]] --
find = string.find
local function t2c(t)
if not t then return nil end
local ct = game.CTime()
ct:set(t.Y,t.M,t.D,t.h,t.m,t.s,t.ms)
return ct
end
local function c2t(ct)
if not ct then return nil end
-- printf('%s, %s',ct,type(ct))
local Y, M, D, h, m, s, ms = 0, 0, 0, 0, 0, 0, 0
Y, M, D, h, m, s, ms = ct:get(Y, M, D, h, m, s, ms)
return { Y=Y, M=M, D=D, h=h, m=m, s=s, ms=ms }
end
TraderUpdate = trade_manager.update
function trade_manager.update(npc, force_refresh)
local id = npc:id()
if not npc:alive() then
return default
end
local reup_time = trade_manager.get_trade_profile(id, "resupply_time")
TraderUpdate(npc, force_refresh)
local restock_time = game_difficulties.get_eco_factor("restock") or 24
if force_refresh then restock_time = 0 end
if reup_time and game.get_game_time():diffSec(t2c(reup_time)) < (restock_time * 3600) then
-- print_dbg("Not time to resupply yet!")
return
end
disable_info("sleep_active")
CreateTimeEvent("custom_update"..npc:id(), "custom_resupply"..npc:id(), 0.1, timed_update, npc)
end
function timed_update(npc)
update(npc)
return true
end
-- monkeypatch me
function update(npc)
end
-- util functions to help with monkey patching
function get_faction_goodwill(faction)
end
COMPANION = 0 -- companions got special trade logic, this is just to catch errors
MECHANIC = 1 -- mechanics/techs
BARMAN = 2 -- exclusive food suppliers like Spirit
MEDIC = 3 -- medics
SUPPLIER = 4 -- everyone else that sells crap
-- return trader type as int, or nil if error
function get_trader_type(npc)
local st = db.storage[npc:id()]
if not st then return -1 end
local trader = false
if npc:character_community() == "trader" or npc:clsid() == clsid.script_trader or npc:clsid() == clsid.trader then
trader = true
end
if find(npc:section(),"trader") then
trader = true
end
local cini = st.ini
local logic = st.section_logic
if not logic and not trader then return -1 end
local trade_logic = cini and cini:r_string_ex(logic, "trade")
if not trade_logic then return -1 end
if find(trade_logic, "companion") then
return COMPANION
elseif find(trade_logic, "trade_generic_mechanic") then
return MECHANIC
elseif find(trade_logic, "trade_generic_barman") then
return BARMAN
elseif find(trade_logic, "trade_generic_medic") then
return MEDIC
else
return SUPPLIER
end
end
-- return supply level of npc, like suppy_1, supply_2, etc
-- as_number removes the supply_ prefix and only returns as int
function supply_level(npc, as_number)
local profile = trade_manager.get_trade_profile(npc:id(), "cfg_ltx")
-- printf("Profile is %s", profile)
local config = trade_manager.get_trade_cfg(profile)
if not config then return end
local str = config:r_string_ex("trader", "buy_supplies")
if not (str) then
return -- no buy_supplies this is normal
end
local condlist = xr_logic.parse_condlist(npc, "trader", "buy_supplies", str)
str = condlist and xr_logic.pick_section_from_condlist(db.actor, npc, condlist)
if as_number then
local num = str_explode(str, "_")
return tonumber(num[2])
else
return str
end
end
-- collapse several tables into one table, the way sections work in ltx files
-- tables should be in section -> amount format
-- precedence goes up to last table, meaning whatever is in the last table will be the last changes applied
function merge_tables(tables)
local final_table = {}
if #tables > 0 then
copy_table(final_table, tables[1])
if #tables > 1 then
for i=2, #tables do
for k,v in pairs(tables[i]) do
final_table[k] = v
end
end
end
end
return final_table
end
local furniture = {
["esc_m_trader"] = true,
["red_m_lesnik"] = true
}
local blacklisted_comms = {
["trader"] = true,
["monster"] = true
}
-- used to get the real community of the NPC by checking spawn id
-- author: HarukaSai
function get_real_community(npc, default)
if furniture[npc:name()] then
return "stalker"
end
local community = character_community(npc)
if not blacklisted_comms[community] then
return community
end
local squad_community = get_object_squad(npc):get_squad_community()
if not blacklisted_comms[squad_community] then
return squad_community
else
return default
end
end
-- to_spawn should be table of sections to amount
-- if check_existing is true, only spawns up to that amount in trader inventory. else arbitrarily spawns
function spawn_items(npc, to_spawn, check_existing)
local npc_name = npc:name()
local alive_or_furniture = xr_conditions.is_alive(db.actor, npc) or furniture[npc_name]
if not alive_or_furniture then return end
local supply_table = {}
copy_table(supply_table, to_spawn)
if check_existing then
local function itr_inv(temp, item)
if supply_table[item:section()] and supply_table[item:section()] > 0 then
-- printf("Found 1 of %s", item:section())
supply_table[item:section()] = supply_table[item:section()] - 1
end
end
npc:iterate_inventory(itr_inv)
end
for k,v in pairs(supply_table) do
-- printf("Creating %s of %s", v, k)
for i=1, v do
-- printf("Created %s", k)
alife_create_item(k, npc)
end
end
end