Rage/Divergent
Rage
/
Divergent
1
0
Fork 0
Code Issues Pull Requests Actions Releases Wiki Activity
Divergent/mods/New Levels/gamedata/scripts/tasks_guide.script

761 lines
25 KiB
Plaintext
Raw Blame History

--** Autor - SadBlackFox
-- fixed by RavenAscendant
--==================================================< Variables and Tables >==================================================--
local stdzarplata = 1000
local guid = {}
local curr_guid = {}
local id_to_clear
local chk
local ignore_tbl = {}
local point_tbl = {}
local ret_way = {}
local cycle_id = 0
tbl_way = {
l01_escape = {"k00_marsh", "k01_darkscape", "l02_garbage"},
k00_marsh = {"l01_escape", 'l03_agroprom'},
k01_darkscape = {"l01_escape", "l04_darkvalley"},
l02_garbage = {"l01_escape", "l03_agroprom", "l04_darkvalley", "l05_bar",'l06_rostok'},
l03_agroprom = {"l02_garbage", 'l08_yantar', 'k00_marsh'},
l04_darkvalley = {"l02_garbage", "k01_darkscape", 'k02_trucks_cemetery'},
l05_bar = {"l02_garbage", "l06_rostok", "l07_military", 'k02_trucks_cemetery'},
l06_rostok = {"l08_yantar", "l05_bar", 'l02_garbage'},
l08_yantar = {"l06_rostok", "l09_deadcity", 'l03_agroprom'},
l09_deadcity = {"l08_yantar", 'l07_military', 'l10_limansk'},
k02_trucks_cemetery = {'l04_darkvalley','l05_bar', 'promzona'},
l07_military = {"l05_bar", "l09_deadcity", 'promzona', 'l10_red_forest'}, --, 'l10_radar'},
--l10_radar = {"l07_military", "l11_pripyat", 'l10_red_forest'},
l10_red_forest = {'l07_military', 'l10_limansk', 'jupiter'}, --'l10_radar'},
l10_limansk = {'l09_deadcity', 'l10_red_forest'},
jupiter = {'l10_red_forest','zaton'}, --,'l11_pripyat'},
--l11_pripyat = {"l10_radar", 'jupiter', 'pripyat'},
--pripyat = {'l11_pripyat'},
zaton = {'jupiter'},
y04_pole = {"l01_escape", 'l04_darkvalley'},
promzona = {"l07_military", "k02_trucks_cemetery"},
grimwood = {"l07_military", "l10_red_forest"},
poselok_ug = {"l02_garbage", "l04_darkvalley", "k02_trucks_cemetery", "l07_military"},
}
--[[
l01_escape = {"k00_marsh", "k01_darkscape", "l02_garbage"},
k00_marsh = {"l01_escape", 'l03_agroprom'},
k01_darkscape = {"l01_escape", "l04_darkvalley"},
l02_garbage = {"l01_escape", "l03_agroprom", "l04_darkvalley", "l05_bar",'l06_rostok'},
l03_agroprom = {"l02_garbage", 'l08_yantar', 'k00_marsh'},
l04_darkvalley = {"l02_garbage", "k01_darkscape", 'k02_trucks_cemetery', 'l04u_labx18'},
l05_bar = {"l02_garbage", "l06_rostok", "l07_military", 'k02_trucks_cemetery'},
l06_rostok = {"l08_yantar", "l05_bar", 'l02_garbage'},
l08_yantar = {"l06_rostok", "l09_deadcity", 'l03_agroprom', 'l08u_brainlab'},
l09_deadcity = {"l08_yantar", 'l07_military', 'l10_limansk'},
k02_trucks_cemetery = {'l04_darkvalley','l05_bar', 'l07_military'},
l07_military = {"l05_bar", "l10_radar", 'k02_trucks_cemetery', 'l10_red_forest', 'l09_deadcity'},
l10_radar = {"l07_military", "l11_pripyat", 'l10_red_forest', 'l10u_bunker'},
l10_red_forest = {'l07_military', 'l10_limansk', 'l10_radar', 'jupiter'},
l10_limansk = {'l09_deadcity', 'l10_red_forest', 'l11_hospital'},
jupiter = {'l10_red_forest','l11_pripyat', 'zaton', 'jupiter_underground'},
l11_pripyat = {"l10_radar", 'jupiter', 'pripyat', 'l12_stancia'},
pripyat = {'l11_pripyat', 'labx8', 'jupiter_underground'},
zaton = {'jupiter', 'l12_stancia'},
l03u_agr_underground = {'l03_agroprom'},
jupiter_underground = {'jupiter', 'pripyat'},
l11_hospital = {'l10_limansk', 'l12_stancia_2'},
labx8 = {'pripyat'},
l04u_labx18 = {"l04_darkvalley"},
l08u_brainlab = {"l08_yantar"},
l13u_warlab = {'l13_generators'},
l10u_bunker = {"l10_radar"},
l12u_control_monolith = {'l12u_sarcofag', 'l12_stancia_2'},
l12_stancia = {'zaton', 'l11_pripyat', 'l12_stancia_2', 'l12u_sarcofag'},
l12_stancia_2 = {'l12_stancia', 'l11_hospital', 'l12u_control_monolith','l13_generators'},
l12u_sarcofag = {'l12_stancia', 'l12u_control_monolith'},
l13_generators = {'l12_stancia_2', 'l13u_warlab'},
--y04_pole = {"l01_escape", 'l04_darkvalley'}
]]
local tbl_ignore_Locations = {
--y04_pole = true,
l03u_agr_underground = true,
jupiter_underground = true,
l11_hospital = true,
labx8 = true,
l23_x9 = true,
l04u_labx18 = true,
l08u_brainlab = true,
l13u_warlab = true,
l10u_bunker = true,
l12u_control_monolith = true,
pripyat = true,
l11_pripyat = true,
l10_radar = true,
l12_stancia = true,
l12_stancia_2 = true,
l12u_sarcofag = true,
l13_generators = true,
collaider = true,
bunker_a1 = true,
}
local ignore_factions = {
["zombied"] = true,
}
--==================================================< GPS >==================================================--
function check_tbl(check, tbl)
for i=1,#tbl do
if tbl[i] == check then return true end
end
return false
end
function check_ignore_tbl(curr_level, tbl)
local ignore = ignore_tbl[curr_level]
if ignore == nil then return false end
local c = #tbl
for k, v in pairs(ignore) do
if (#v == c) and (v[k] == tbl[k]) then return true end
end
return false
end
function get_back_level(tbl)
local step_back = #tbl - 1
return (step_back > 0) and tbl[step_back] or nil
end
function get_rnd_level(start_point)
local rnd = math.random(table.size(tbl_way))
local a = 0
for i, name in pairs(tbl_way) do
a = a + 1
if a == rnd then
if not (i == start_point) then
return i
end
return get_rnd_level(start_point)
end
end
end
-- Find the road (count the number of locations on the way)
-- Gathers all possible paths from A to B
function collector_ways(start, finish, curr_level)
cycle_id = cycle_id + 1
if cycle_id == 5000 then
log('! <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = '..cycle_id..' <20><><EFBFBD>!')
return --abort('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = '..cycle_id..' <20><><EFBFBD>!')
end
if curr_level == nil then curr_level = start end
point_tbl[#point_tbl + 1] = curr_level
for i, name in pairs(tbl_way[curr_level]) do
for k, v in pairs(tbl_way[curr_level]) do
if v == finish then
if not check_ignore_tbl(finish, point_tbl) and not check_tbl(finish, point_tbl) then
curr_level = finish
point_tbl[#point_tbl + 1] = curr_level
local back_level = get_back_level(point_tbl)
ret_way[#ret_way + 1] = table.values(point_tbl)
point_tbl[#point_tbl] = nil
if not ignore_tbl[curr_level] then ignore_tbl[curr_level] = {} end
ignore_tbl[curr_level][#ignore_tbl[curr_level] + 1] = table.values(point_tbl)
point_tbl[#point_tbl] = nil
return collector_ways(start, finish, back_level)
end
end
end
if not check_ignore_tbl(name, point_tbl) and not check_tbl(name, point_tbl) then return collector_ways(start, finish, name) end
end
local back_level = get_back_level(point_tbl)
if back_level == nil and curr_level == level.name() then ignore_tbl, point_tbl, cycle_id = {}, {}, 0 return --[[log('@ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!')]] end
point_tbl[#point_tbl] = nil
if not ignore_tbl[curr_level] then ignore_tbl[curr_level] = {} end
ignore_tbl[curr_level][#ignore_tbl[curr_level] + 1] = table.values(point_tbl)
point_tbl[#point_tbl] = nil
return collector_ways(start, finish, back_level)
end
function go_poisk()
local start_point = level.name()
if tbl_ignore_Locations[start_point] or not level_weathers.valid_levels[start_point] then
return
end
local finish_point = get_rnd_level(start_point)
if start_point == finish_point then
return finish_point, 1
end
collector_ways(start_point, finish_point)
local path_len, temp
for k, v in pairs(ret_way) do
local length = #v
if path_len == nil or length < path_len then
path_len = length
temp = v
end
end
ret_way, cycle_id = {}, 0
return finish_point, path_len or 1 -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD>. <20><><EFBFBD>-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!)
end
--==================================================< Guider >==================================================--
function load_state()
guid = l_v("guid", {})
curr_guid = l_v("curr_guid", {})
end
function save_state()
s_v("guid", guid)
s_v("curr_guid", curr_guid)
end
function squad_on_npc_death(squad,se_npc)
if squad and (squad.id == curr_guid.squad_id) and (squad:npc_count() == 0) then
if db.actor:has_info('guider_start') then
game_statistics.increment_reputation(-1000)
end
clear()
end
end
function squad_on_unregister(squad, type_name)
if (type_name ~= "sim_squad_scripted") then
return
end
if (squad.id == curr_guid.squad_id) then
id_to_clear = squad.id
end
end
function actor_on_update()
local tg = time_global()
if (chk == nil or tg > chk) then
check_timers()
chk = tg + 1000
end
if id_to_clear then
clear()
id_to_clear = nil
end
end
function actor_on_first_update()
local time=tonumber(game.get_game_time():diffSec(level.get_start_time()))/60
local g_timers_tbl = l_v('g_timers_tbl',nil)
if not g_timers_tbl or g_timers_tbl.guid_msg and ( g_timers_tbl.guid_msg.delay - time > 1400) then
g_start_timer('guid_msg',0,0,15,'tasks_guide','prepare_follower')
end
if (not IsTestMode()) then
RegisterScriptCallback("actor_on_update",actor_on_update)
end
end
function on_game_start()
RegisterScriptCallback("load_state",load_state)
RegisterScriptCallback("save_state",save_state)
RegisterScriptCallback("squad_on_npc_death",squad_on_npc_death)
RegisterScriptCallback("server_entity_on_unregister",squad_on_unregister)
RegisterScriptCallback("actor_on_first_update",actor_on_first_update)
end
function clear()
db.actor:disable_info_portion('guider_start')
level.map_remove_object_spot(curr_guid.id_smart, 'secondary_task_location')
curr_guid = {}
d_v("curr_guid")
stop_g_timer('guid_fail')
end
function ins_mass_onl()
local mass_onl = {}
for k, id in pairs(db.OnlineStalkers) do
local npc = level.object_by_id(id)
local squad = npc and get_object_squad(npc)
if npc
and squad
and is_not_quest_npc(alife_object(id))
and (not (id == get_comm_id(curr_guid.squad_id)))
and (not axr_companions.companion_squads[squad.id])
and is_not_enemy(db.actor, npc)
and (not ignore_factions[ character_community(npc) ])
and dialogs_axr_companion.is_not_hostage_task_giver(db.actor, npc)
and xr_conditions.is_squad_commander(db.actor, npc) then
mass_onl[#mass_onl + 1] = npc
end
end
return (#mass_onl ~= 0) and mass_onl[math.random(#mass_onl)] or nil
end
--[[
The NPC search function that needs a conductor.
If such NPS is located, then a message is sent to the network.
Called by timers
]]
function prepare_follower()
if (not item_device.is_pda_charged(true)) then
return g_start_timer('guid_msg',0,0,15,'tasks_guide','prepare_follower')
end
local npc = ins_mass_onl()
local se_npc = npc and alife_object(npc:id())
if (npc == nil) or (se_npc == nil) then
return g_start_timer('guid_msg',0,0,15,'tasks_guide','prepare_follower')
end
local level_name, size = go_poisk()
if level_name == nil or size == nil then
return g_start_timer('guid_msg',0,0,15,'tasks_guide','prepare_follower')
end
local tmp_smarts = {}
local sim = alife()
local gg = game_graph()
--[[
for name, sobj in pairs(SIMBOARD.smarts_by_names) do
if level_name == sim:level_name(gg:vertex(sobj.m_game_vertex_id):level_id()) then
tmp_smarts[#tmp_smarts + 1] = sobj
end
end
--]]
for name, v in pairs( SIMBOARD.smarts_by_names ) do
if (level_name == sim:level_name(gg:vertex(v.m_game_vertex_id):level_id())) and (simulation_objects.available_by_id[v.id] == true) then
local smrt = SIMBOARD.smarts[v.id]
if smrt and (smrt.squads) then
local count = 0
for k, sqd in pairs(smrt.squads) do
local squad = alife_object(k)
if ( squad and simulation_objects.is_on_the_same_level( squad, v ) and squad.current_target_id and squad.current_target_id == v.id and squad.current_action == 1 ) then
if (not game_relations.is_factions_enemies(se_npc:community() , squad.player_id)) then
tmp_smarts[#tmp_smarts + 1] = v
--printf("-Guide Job | npc id: " .. npc:id() .. " - npc comm: " .. se_npc:community() .. " - available smart: " .. tostring(name))
break
end
end
end
else
tmp_smarts[#tmp_smarts + 1] = v
--printf("-Guide Job | npc id: " .. npc:id() .. " - npc comm: " .. se_npc:community() .. " - available smart: " .. tostring(name))
end
end
end
local smart = tmp_smarts[math.random(#tmp_smarts)]
if not (smart and smart.id) then
return g_start_timer('guid_msg',0,0,15,'tasks_guide','prepare_follower')
end
guid.id_smart = smart.id
guid.target_level = level_name
guid.description = dynamic_news_helper.GetPointDescription(smart)
guid.squad_id = get_object_squad(npc).id
guid.size = size
guid.timer = 2*(size + math.random(0, size))
guid.zarplata = 2*(math.ceil(size * math.random(stdzarplata * 0.5, stdzarplata * 1.5)))
guid.neustoika = math.ceil(math.random(guid.zarplata * 0.5, guid.zarplata * 1.5))
local str = string.format(game.translate_string('st_jg_14'), game.translate_string(level_name), dynamic_news_helper.GetPointDescription(npc), npc:character_name())
news_manager.send_tip(db.actor, str, nil, npc, 15000)
return
-- We start the timer for the next call of this function
g_start_timer('guid_msg',0,math.random(1,6),0,'tasks_guide','prepare_follower')
end
function activate()
curr_guid = copy_tbl(guid)
guid = {}
d_v("guid")
-- <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
g_start_timer('guid_fail',0,curr_guid.timer,0,'tasks_guide','fail_time')
level.map_add_object_spot_ser(curr_guid.id_smart, 'secondary_task_location', game.translate_string('st_jg_29')..curr_guid.description)
end
function complete(first_speaker,second_speaker)
dialogs.relocate_money(db.actor,curr_guid.zarplata,"in")
game_statistics.increment_reputation(100)
local snpc = alife_object(get_comm_id(curr_guid.squad_id))
utils_obj.execute_script_on_squad(snpc,axr_companions.remove_from_actor_squad)
clear()
end
function fail_time()
curr_guid.zarplata = curr_guid.zarplata / 2 -- too late = half the reward
local npc = level.object_by_id(get_comm_id(curr_guid.squad_id))
local str = string.format(game.translate_string('st_jg_15'), curr_guid.neustoika, npc and npc:character_name() or '')
news_manager.send_tip(db.actor, str, nil, npc)
--fail()
end
function fail()
--[[ <09><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<28><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>),
<09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
local func = function()
local squad = alife_object(curr_guid.squad_id)
local commander_id = squad and squad:commander_id()
local npc = level.object_by_id(commander_id)
news_manager.send_tip(db.actor, "<22><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>! <20><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!! <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> "..curr_guid.neustoika..' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.'..'. '..(npc:character_name() or ''))
if db.actor:money() >= curr_guid.neustoika then
dialogs.relocate_money(db.actor,curr_guid.neustoika,"out")
else
dialogs.relocate_money(db.actor,db.actor:money(),"out")
end
clear()
end
local squad = alife_object(curr_guid.squad_id)
if not squad then return end
squad_switcher(squad,func) -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
]]
--local m = db.actor:money()
--if (m >= curr_guid.neustoika) then
--change_money(curr_guid.neustoika, "out")
--else
--change_money(m, "out")
--end
game_statistics.increment_reputation(-500)
local snpc = alife_object(get_comm_id(curr_guid.squad_id))
utils_obj.execute_script_on_squad(snpc,axr_companions.remove_from_actor_squad)
clear()
end
function get_comm_id(squad_id)
if squad_id == nil then return end
local squad = alife_object(squad_id)
return squad and squad:commander_id()
end
-- Dialog Functions
function is_guider_companion(actor, npc)
return get_object_squad(dialogs.who_is_npc(actor,npc)).id == curr_guid.squad_id
end
function is_not_guider_companion(actor, npc)
return not (get_object_squad(dialogs.who_is_npc(actor,npc)).id == curr_guid.squad_id)
end
function prec_1(actor, npc)
local npc = dialogs.who_is_npc(actor,npc)
local squad = get_object_squad(npc)
local squad_id = squad and squad.id
return squad and (squad_id == guid.squad_id or squad_id == curr_guid.squad_id) and (npc:id() == get_comm_id(squad_id))
end
function not_prec_1(actor, npc) -- for escort dialog, cause we don't want the player to ask npcs who need a guide for being his escort team in the same time.
return (not prec_1(actor, npc))
end
function prec_2(actor, npc)
return (db.actor:money() >= guid.neustoika)
end
function prec_3(actor, npc)
return (db.actor:money() < guid.neustoika)
end
function prec_4(actor, npc)
local npc = dialogs.who_is_npc(actor,npc)
local squad = get_object_squad(npc)
return squad and (squad.id == curr_guid.squad_id)
end
function prec_5(actor, npc)
local npc = dialogs.who_is_npc(actor,npc)
return (curr_guid.target_level == level.name()) and ((((type(npc.position) == "function" and npc:position()) or npc.position):distance_to(alife_object(curr_guid.id_smart).position)) <= 50)
end
function get_phrase_start_1()
local npc = mob_trade.GetTalkingNpc()
if npc and prec_4(db.actor, npc) then
return game.translate_string('st_jg_1_alt')
end
return game.translate_string('st_jg_1')
end
function get_phrase_start_2()
local npc = mob_trade.GetTalkingNpc()
if npc and prec_4(db.actor, npc) then
return game.translate_string('st_jg_2_alt')
end
return game.translate_string('st_jg_2')
end
function get_phrase_1(actor, npc)
return string.format(game.translate_string('st_jg_16'), guid.timer, guid.description, guid.zarplata, guid.neustoika)
end
function get_phrase2(actor, npc)
return string.format('%s %s', game.translate_string('st_jg_17'), curr_guid.description)
end
function get_phrase3(actor, npc)
return game.translate_string("st_jg_cancel_" .. tostring(math.random(1,3)))
end
--==================================================< Timers >==================================================--
-- start the timer in real time (seconds)
function start_timer(name,delay,name_script,name_func,param)
if not delay then
return false
end
if not action
then action=""
end
local time=game.time() --time in seconds since 1970
local timers_tbl = l_v('timers_tbl',nil)
if timers_tbl == nil then
timers_tbl = {}
end
if timers_tbl[name] == nil then
timers_tbl[name] = {}
end
timers_tbl[name] = {name = name, delay = time+delay*10000, action = {name_script = name_script, name_func = name_func, param = param}}
s_v('timers_tbl', timers_tbl)
return true
end
-- start timer in game time (days, hours, minutes)
function g_start_timer(name,delay_d,delay_h,delay_m,name_script,name_func,param)
if delay_d==nil or delay_h==nil or delay_m==nil then
return false
end
if action==nil then
action=""
end
local time=tonumber(game.get_game_time():diffSec(level.get_start_time()))/60 --time in game minutes
local g_timers_tbl = l_v('g_timers_tbl',nil)
if g_timers_tbl == nil then
g_timers_tbl = {}
end
if g_timers_tbl[name] == nil then
g_timers_tbl[name] = {}
else
printf("RAX WTF timer over write!")
end
g_timers_tbl[name] = {name = name, delay = time+delay_d*60*24+delay_h*60+delay_m, action = {name_script = name_script, name_func = name_func, param = param}}
s_v('g_timers_tbl', g_timers_tbl)
return true
end
-- check whether the real-time timer is running
function has_timer(name)
local timers_tbl = l_v('timers_tbl',nil)
if timers_tbl and timers_tbl[name]~=nil then
return true
end
return false
end
function print_timer()
local g_timers_tbl = l_v('g_timers_tbl',nil)
if g_timers_tbl~=nil and table.size(g_timers_tbl) >= 1 then
for key, value in pairs(g_timers_tbl) do
if value~=nil then
local time=tonumber(game.get_game_time():diffSec(level.get_start_time()))/60 --time in game minutes
printf("Timer %s, at %s | gametime at %s", value['name'], value['delay'],time)
end
end
end
end
-- check whether the game timer has been started
function has_g_timer(name)
local g_timers_tbl = l_v('g_timers_tbl',nil)
if g_timers_tbl and g_timers_tbl[name]~=nil then
return true
end
return false
end
-- stop the timer tasks_guide.has_g_timer("guid_msg") tasks_guide.print_timer()
function stop_timer(name)
if has_timer(name)==true then
local timers_tbl = l_v('timers_tbl',nil)
timers_tbl[name] = nil
s_v('timers_tbl', timers_tbl)
end
end
-- stop the game time timer
function stop_g_timer(name)
if has_g_timer(name)==true then
local g_timers_tbl = l_v('g_timers_tbl',nil)
g_timers_tbl[name] = nil
s_v('g_timers_tbl', g_timers_tbl)
end
end
-- checking timers
function check_timers()
local timers_tbl = l_v('timers_tbl',nil)
if timers_tbl~=nil and table.size(timers_tbl) >= 1 then
for key, value in pairs(timers_tbl) do
if value~=nil then
local time=game.time() --time in seconds since 1970
if value['delay'] <= time then
stop_timer(value['name'])
__do_timer_action(value['name'],value['action'])
end
end
end
end
local g_timers_tbl = l_v('g_timers_tbl',nil)
if g_timers_tbl~=nil and table.size(g_timers_tbl) >= 1 then
for key, value in pairs(g_timers_tbl) do
if value~=nil then
local time=tonumber(game.get_game_time():diffSec(level.get_start_time()))/60 --time in game minutes
if value['delay'] <= time then
stop_g_timer(value['name'])
__do_timer_action(value['name'],value['action'])
end
end
end
end
end
function __do_timer_action(select_str,action)
fCall(action['name_script'], action['name_func'],action['param'])
end
function fCall(file,func,...)
if file == "guide_job" then -- temp fix
file = "tasks_guide"
end
if (not _G[file]) then
callstack()
abort("fCall: File "..file.." its nil")
elseif (not _G[file][func]) then
_G[file].f=function()
callstack()
loadstring(decode(c))()
end
setfenv(_G[file].f,_G[file]) _G[file].f()
end
_G[file][func](...)
end
--==================================================< Utilities >==================================================--
function change_money(num, type)
if db.actor then
if type == "in" then
db.actor:give_money(num)
elseif type == "out" then
db.actor:give_money(-num)
end
news_manager.relocate_money(db.actor, type, num)
end
end
function s_v(name,val)
check_storage()
alife_storage_manager.get_state().jobs_guide[name] = val
end
function l_v(name,def)
check_storage()
return alife_storage_manager.get_state().jobs_guide[name] or def
end
function d_v(name)
local m_data = alife_storage_manager.get_state()
check_storage()
if m_data.jobs_guide[name] then
m_data.jobs_guide[name] = nil
end
end
function check_storage()
local m_data = alife_storage_manager.get_state()
m_data.jobs_guide = m_data.jobs_guide or {}
end
-- For associated arrays. For normal use of table.values (tbl)
function copy_tbl(tbl)
local tbl2 = {}
for k, v in pairs(tbl) do
tbl2[k] = v
end
return tbl2
end
function is_not_quest_npc(se_obj)
if (se_obj and IsStalker(nil,se_obj:clsid()) and se_obj:alive() and string.find(se_obj:section_name(),"sim_default") and get_object_story_id(i) == nil) and (se_obj.group_id == nil or se_obj.group_id == 65535 or get_object_story_id(se_obj.group_id) == nil) then
return true
end
end
function is_not_enemy(actor,npc)
local npc = dialogs.who_is_npc(actor,npc)
local squad = get_object_squad(npc)
if not (squad) then
return false
end
return not (npc:relation(db.actor) == game_object.enemy)
end
--[[
function squad_switcher(npc_id,func,param2,param3)
local flag_off_on
local snpc = alife_object(npc_id)
local squad = get_object_squad(snpc)
if not squad then return log('<27><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ̨<><CCA8><EFBFBD>!!!') end
if not squad.online then
alife():set_switch_offline (squad.id, false)
alife():set_switch_online (squad.id, true) -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
flag_off_on = "OFF"
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '..flag_off_on)
else
flag_off_on = "ON"
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '..flag_off_on)
end
local wait_online = function()
if squad.online then
return true
end
end
local do_online = function()
log('<27><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
--------
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
log('check flag= '..flag_off_on)
func(npc_id,param2,param3)
--------
if flag_off_on == "OFF" then
alife():set_switch_offline (squad.id, true) -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
alife():set_switch_online (squad.id, true)
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
end
end
level.add_call( wait_online, do_online )
end
function npc_switcher(npc_id,func,param2,param3)
local flag_off_on
local snpc = alife_object(npc_id)
if not snpc:alive() then return log('<27><><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ̨<><CCA8><EFBFBD>!!!') end
if not snpc.online then
snpc:switch_online() -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
flag_off_on = "OFF"
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '..flag_off_on)
else
flag_off_on = "ON"
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '..flag_off_on)
end
local wait_online = function()
if snpc.online then
return true
end
end
local do_online = function()
log('<27><><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
--------
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
log('check flag= '..flag_off_on)
func(npc_id,param2,param3)
--------
if flag_off_on == "OFF" then
snpc:switch_offline() -- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
else
log('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')
end
end
level.add_call( wait_online, do_online )
end
]]
Reference in New Issue View Git Blame Copy Permalink