Форумы Архив » Свалка Вопросы и ответы (по 04.12.09)

Допустим, подходишь к НПС и там есть ветка диалога Есть ЧО? дальше два варианта ответа НПС: Вот, вот возьми, только не бей или Неа, ничего нет.
Если первый вариант то потставить скрипт выдачи инвентаря НПС. Если второй то идёт фраза: А если по *ВЫРЕЗАНО*(морде). После этой фразы идут два хода развития.
1.НПС становится врагом и палит в ГГ.
2.Отдаёт содержимое Рюкзака.
+ всё это сделать радомно
Назвать всё это: Гоп-Стоп MOD(Gop-Stop mod)

function clear_actor_inventory(actor)
actor:iterate_inventory(__del_item, actor)
end

function __del_item(actor, item)
local section = item:section()
if section == "bolt" or section == "device_torch" then
return false
end
alife():release(alife():object(item:id()), true)
end

вызывать надо clear_actor_inventory(actor)
если через диалог то
имя_файла.clear_actor_inventory

local in_object, in_object = 0, 0
local function drop_object_item(item)
out_object:drop_item_and_teleport(item, in_object)
end
local npc = level_object_by_sid (айди)
out_object = db.actor
in_object = npc
db.actor:inventory_for_each(drop_object_item)
end

...
! Cannot build GAME path! (object dog_normal17155)
! CURRENT LEVEL : l02_garbage
! CURRENT game point position : [271.390381][-7.346767][-107.826294]
! TARGET LEVEL : l07_military
! TARGET game point position : [-197.972778][-3.860565][421.732391]
! Target point mask [12][0][0][0]
! Object masks (1) :
! [255][0][255][255]
...

FATAL ERROR

[error]Expression : fatal error
[error]Function : CScriptEngine::lua_error
[error]File : E:\stalker\patch_1_0004\xr_3da\xrGame\script_engine.cpp
[error]Line : 73
[error]Description :
[error]Arguments : LUA error: ....a.l.k.e.r. - Тень\gamedata\scripts\state_mgr.script:145: C stack overflow

----------------------------------------------------------------------------------------------------------------------
-- Менеджер изменения состояния тела
-- автор: Диденко Руслан (Stohe)
-- TODO:
----------------------------------------------------------------------------------------------------------------------
function printf()
end

aim_ratio = 1000/50
min_ratio = 1500

--' Эвалуатор, который синхронизирует менеджер.
--' Мы уже в безраличном состоянии idle или нет
class "evaluator_state_mgr_idle" (property_evaluator)
function evaluator_state_mgr_idle:__init(name, state_manager) super (nil, name)
self.st = state_manager
self.mgr = nil
end
function evaluator_state_mgr_idle:evaluate()
local t = self.st.target_state == "idle" and
--not self.st.planner:evaluator(self.st.properties["locked"]):evaluate() and
self.st.planner:evaluator(self.st.properties["movement"]):evaluate() and
self.st.planner:evaluator(self.st.properties["animstate"]):evaluate() and
self.st.planner:evaluator(self.st.properties["animation"]):evaluate()

if t == true then

if self.mgr == nil then
self.mgr = self.object:motivation_action_manager()
end
if self.mgr:initialized() and self.mgr:current_action_id() == xr_actions_id.state_mgr + 1 then
self.st.combat = true
end
end

if self.st.combat == true then return true end

return false
end
--' Мы уже в безраличном состоянии idle или нет ()учет с проверкой alife
class "evaluator_state_mgr_idle_alife" (property_evaluator)
function evaluator_state_mgr_idle_alife:__init(name, state_manager) super (nil, name)
self.st = state_manager
self.t = nil
end
function evaluator_state_mgr_idle_alife:evaluate()
if not self.object:alive() then
return true
end
-- апдейт менеджера анимаций
-- раньше он был тут, сейчас он вынесен из эвалуатора

-- printf("SECTION %s", utils.to_str(db.storage[self.st.npc:id()].active_section))
mgr = self.object:motivation_action_manager()
self.t = nil
if mgr:initialized() then
self.t = mgr:current_action_id()
--printf("ACTION %s", utils.to_str(self.t))
if self.t ~= xr_actions_id.alife then
self.st.alife = false
end
end

if db.storage[self.st.npc:id()].active_section == nil then
if xr_meet.is_meet(self.object) == false then
local t = self.st.target_state == "idle" and
not self.st.planner:evaluator(self.st.properties["locked"]):evaluate() and
self.st.planner:evaluator(self.st.properties["movement"]):evaluate() and
self.st.planner:evaluator(self.st.properties["animstate"]):evaluate() and
self.st.planner:evaluator(self.st.properties["animation"]):evaluate()

-- printf("%s", utils.to_str(self.st.target_state))
-- printf("%s", utils.to_str(self.st.planner:evaluator(self.st.properties["locked"]):evaluate()))
-- printf("%s", utils.to_str(self.st.planner:evaluator(self.st.properties["movement"]):evaluate()))
-- printf("%s", utils.to_str(self.st.planner:evaluator(self.st.properties["animstate"]):evaluate()))
-- printf("%s", utils.to_str(self.st.planner:evaluator(self.st.properties["animation"]):evaluate()))

if t == true then self.st.alife = true end
if self.st.alife == true then
return true
end
return t
else
return false
end
end
return true
end


--' Переход в idle
class "act_state_mgr_to_idle" (action_base)
function act_state_mgr_to_idle:__init(name,state_manager) super (nil, name)
self.st = state_manager
end
function act_state_mgr_to_idle:initialize()
action_base.initialize(self)
self.object:movement_enabled(true)
if self.object:best_enemy() then
self.st:set_state("idle", nil, nil, nil, {animation = true})
xr_sound.set_sound(self.object, nil)
stop_play_sound(self.object)
return
end
if self.object:best_danger() then
self.st:set_state("idle", nil, nil, nil, {animation = true})
xr_sound.set_sound(self.object, nil)
stop_play_sound(self.object)
return
end
self.st:set_state("idle")
end
function act_state_mgr_to_idle:execute()
action_base.execute(self)
if self.object:best_enemy() then
self.st:set_state("idle", nil, nil, nil, {animation = true})
return
end
if self.object:best_danger() then
self.st:set_state("idle", nil, nil, nil, {animation = true})
return
end
self.st:set_state("idle")
end
function act_state_mgr_to_idle:finalize()
-- По завершению перехода нужно записать -1 в указатель "на кого смотреть",
-- чтобы при возврате было понятно что его нужно переинициализировать.

self.st.current_object = -1

action_base.finalize(self)
end


--'-------------------------------------------------------------------------------------
--' Эвалуаторы и экшены менеджера
--'-------------------------------------------------------------------------------------
--' Закончил ли менеджер свою работу
class "eva_state_mgr_end" (property_evaluator)
function eva_state_mgr_end:__init(name, st) super (nil, name)
self.st = st
self.mgr = nil
end
function eva_state_mgr_end:evaluate()
if self.mgr == nil then
self.mgr = self.object:motivation_action_manager()
end

if not self.mgr:initialized() then
return false
end

local current_action_id = self.mgr:current_action_id()
if current_action_id ~= stalker_ids.action_combat_planner and
current_action_id ~= stalker_ids.action_danger_planner and
current_action_id ~= stalker_ids.action_anomaly_planner
then
self.st.combat = false
end

return false
end

--' Залочен ли менеджер
class "eva_state_mgr_locked" (property_evaluator)
function eva_state_mgr_locked:__init(name, st) super (nil, name)
self.st = st
end
function eva_state_mgr_locked:evaluate()
--printf("npc %s", self.object:name())
--printf("weapon locked: %s", utils.to_str(self.st.planner:evaluator(self.st.properties["weapon_locked"]):evaluate()))
--printf("direction locked: %s", utils.to_str(self.st.planner:evaluator(self.st.properties["direction_turning"]):evaluate()))
--printf("animstate locked: %s", utils.to_str(self.st.planner:evaluator(self.st.properties["animstate_locked"]):evaluate()))
--printf("animation locked: %s", utils.to_str(self.st.planner:evaluator(self.st.properties["animation_locked"]):evaluate()))

--printf("combat[%s] alife[%s]", tostring(self.st.combat), tostring(self.st.alife))
if self.st.combat or self.st.alife then
return true
end

return self.st.planner:initialized() and (
self.st.planner:evaluator(self.st.properties["weapon_locked"]):evaluate() or
self.st.planner:evaluator(self.st.properties["animstate_locked"]):evaluate() or
self.st.planner:evaluator(self.st.properties["animation_locked"]):evaluate() or
self.st.planner:evaluator(self.st.properties["direction_turning"]):evaluate())
end

--' Идловый экшн менеджера
class "act_state_mgr_end" (action_base)
function act_state_mgr_end:__init(name, st) super (nil, name)
self.st = st
end
function act_state_mgr_end:initialize()
action_base.initialize(self)
end
function act_state_mgr_end:execute()
action_base.execute(self)

-- if not self.st.planner:evaluator(self.st.properties["movement_stand_now"]):evaluate() then
-- state_mgr_direction.update_movement_direction(self.object, self.st)
-- end
local t = state_lib.states[self.st.target_state].weapon
local w = isWeapon(self.object:best_weapon())

if not w then
return
end
if t == "fire" or t == "sniper_fire" then
--printf("[%s] shooting", self.object:name())
local sniper_aim = 3000
if self.st.look_object ~= nil then
local look_object = level.object_by_id(self.st.look_object)
if look_object == nil then
self.st.look_object = nil
return
end
if self.object:see(look_object) and
(not IsStalker(look_object) or
self.object:relation(look_object) == game_object.enemy) and
look_object:alive() == true
then
if t == "sniper_fire" then
sniper_aim = self.object:position():distance_to(look_object:position())*aim_ratio
if sniper_aim <= min_ratio then
self.object:set_item(object.fire1, self.object:best_weapon(), 1, min_ratio)
return
end
self.object:set_item(object.fire1, self.object:best_weapon(), 1, sniper_aim)
else
self.object:set_item(object.fire1, self.object:best_weapon(), state_mgr_weapon.get_queue_params(self.object, look_object))
end
return
else
self.object:set_item(object.idle, self.object:best_weapon())
return
end
end

if self.st.look_position ~= nil and
self.st.look_object == nil
then
if t == "sniper_fire" then
self.object:set_item(object.fire1, self.object:best_weapon(), 1, sniper_aim)
else
self.object:set_item(object.fire1, self.object:best_weapon(), state_mgr_weapon.get_queue_params(self.object, nil))
end
return
else
if self.st.target_state == "psy_shoot" then
self.object:set_item(object.fire1, self.object:best_weapon())
return
end
self.object:set_item(object.idle, self.object:best_weapon())
return
end
return
elseif t == "unstrapped" then
--printf("[%s] not shooting", self.object:name())
self.object:set_item(state_mgr_weapon.get_idle_state(self.st.target_state), self.object:best_weapon())
end
end
function act_state_mgr_end:finalize()
action_base.finalize(self)
end

--' Лок менеджера
class "act_state_mgr_locked" (action_base)
function act_state_mgr_locked:__init(name, st) super (nil, name)
self.st = st
end
function act_state_mgr_locked:initialize()
action_base.initialize(self)
end
function act_state_mgr_locked:execute()
action_base.execute(self)
end
function act_state_mgr_locked:finalize()
action_base.finalize(self)
end


animation_reset_denied = {
wounded = true,
wounded_heavy = true,
wounded_heavy_2 = true,
wounded_heavy_3 = true,
wounded_zombie = true
}

--' Сам менеджер
class "state_manager"
function state_manager:__init(npc)
state_mgr_goap.goap_graph(self, npc)

self.target_state = "idle"
self.current_direction = nil
self.target_position = nil
self.current_object = nil
self.combat = false
self.alife = true
self.emerg = {}
self.synsound = nil
self.yaw_delta = nil
self.subanim = 0
self.need_reweapon = false
end
function state_manager:set_state(state_name, callback, timeout, target, emerg, synsound, extrakeys)
printf("Set State called: for %s State: %s", self.npc:name(), state_name)

if state_lib.states[state_name] == nil then
mylog("ERROR: ILLEGAL SET STATE CALLED!!! " ..tostring(state_name).. " for "..self.npc:name())
return
end
if target then
if target.look_position then
printf("look position: %s %s %s", target.look_position.x,
target.look_position.y,
target.look_position.z)
else
printf("look position: NIL")
end
if target.look_object then
printf("look object: %s", target.look_object:name())
else
printf("look object: NIL")
end
else
printf("look target NIL")
end

--сперва устанавливаем цели
if target ~= nil then
self.look_position = target.look_position
if target.look_object ~= nil then
self.look_object = target.look_object:id()
else
self.look_object = nil
end
else
self.look_position = nil
self.look_object = nil
end
-- меняем угол точности.
if extrakeys and extrakeys.yaw_delta ~= nil then
self.yaw_delta = extrakeys.yaw_delta
else
self.yaw_delta = 5
end
-- меняем глубину рекурсивности анимации.
if extrakeys and extrakeys.subanim ~= nil then
self.subanim = extrakeys.subanim
else
self.subanim = 0
end

local switched = false
local last_state = self.target_state
if self.target_state ~= state_name then

--' Если мы переключаемся из стреляющего состояния в нестреляющее - необходимо сразу же прекратить стрельбу
if (state_lib.states[self.target_state].weapon == "fire" or
state_lib.states[self.target_state].weapon == "sniper_fire") and
(state_lib.states[state_name].weapon ~= "fire" and
state_lib.states[state_name].weapon ~= "sniper_fire")
then
self.npc:set_item(state_mgr_weapon.get_idle_state(state_name), state_mgr_weapon.get_weapon(self.npc, state_name))
--printf("[%s] stop shooting", self.npc:name())
end


--' Если мы переключаемся из идущего положения в стоящее - надо задизаблить перемещение
if state_lib.states[self.target_state].movement ~= move.stand and
state_lib.states[state_name].movement == move.stand
then
self.npc:movement_enabled(false)
end


self.target_state = state_name
self.current_object = nil
switched = true
end

-- mylog("set state " .. state_name)
if state_lib.states[state_name].reset == true then
self.reset_state = true
else
self.reset_state = false
end


if switched and emerg ~= nil then
if animation_reset_denied[last_state] ~= true then
self.emerg.animation = emerg.animation
self.emerg.animation_nout = emerg.animation_nout
end
end

self.synsound = synsound


self.callback = callback
if timeout ~= nil and
timeout >= 0
then
self.callback.timeout = timeout
self.callback.begin = nil
else
if self.callback then
self.callback.func = nil
self.callback.timeout = nil
end
end

-- if switched == true then
-- self:update()
-- end
end
function state_manager:get_state()
return self.target_state
end
function state_manager:update()
--printf("Update called")
self.animstate:update()
self.animation:update()
self.planner:update()
--self.planner:show("")
end





function set_state(npc, state_name, callback, timeout, target, emerg, synsound, extrakeys)
if db.storage[npc:id()].state_mgr then
db.storage[npc:id()].state_mgr:set_state(state_name, callback, timeout, target, emerg, synsound, extrakeys)
end
end
function get_state(npc)
if db.storage[npc:id()].state_mgr then
return db.storage[npc:id()].state_mgr:get_state()
end
return nil
end









function bind_manager(object)
local manager = object:motivation_action_manager()


local properties = {}
properties["state_mgr_idle_combat"] = xr_evaluators_id.state_mgr + 1
properties["state_mgr_idle_alife"] = xr_evaluators_id.state_mgr + 2

local operators = {}
operators["state_mgr_to_idle_combat"] = xr_actions_id.state_mgr + 1
operators["state_mgr_to_idle_alife"] = xr_actions_id.state_mgr + 2

local state_manager = state_mgr.state_manager(object)

manager:add_evaluator(properties["state_mgr_idle_combat"], evaluator_state_mgr_idle("state_mgr_idle_combat", state_manager))
manager:add_evaluator(properties["state_mgr_idle_alife"], evaluator_state_mgr_idle_alife("state_mgr_idle_alife", state_manager))

local action = this.act_state_mgr_to_idle("state_mgr_to_idle_combat", state_manager)
action:add_precondition (world_property(properties["state_mgr_idle_combat"], false))
action:add_effect (world_property(properties["state_mgr_idle_combat"], true))
manager:add_action(operators["state_mgr_to_idle_combat"], action)

action = this.act_state_mgr_to_idle("state_mgr_to_idle_alife", state_manager)
action:add_precondition (world_property(stalker_ids.property_enemy, false))
action:add_precondition (world_property(stalker_ids.property_danger,false))
action:add_precondition (world_property(properties["state_mgr_idle_alife"], false))
action:add_effect (world_property(properties["state_mgr_idle_alife"], true))
manager:add_action(operators["state_mgr_to_idle_alife"], action)

action = manager:action(xr_actions_id.alife)
action:add_precondition(world_property(properties["state_mgr_idle_alife"],true))

action = manager:action(stalker_ids.action_combat_planner)
action:add_precondition(world_property(properties["state_mgr_idle_combat"],true))

action = manager:action(stalker_ids.action_anomaly_planner)
action:add_precondition(world_property(properties["state_mgr_idle_combat"],true))

action = manager:action(stalker_ids.action_danger_planner)
action:add_precondition(world_property(properties["state_mgr_idle_combat"],true))

action = manager:action(stalker_ids.action_gather_items)
action:add_precondition(world_property(properties["state_mgr_idle_alife"],true))

return state_manager
end

local tab = {
"wpn_l85",
"wpn_lr300",
"wpn_sig550",
"wpn_fn2000",
"wpn_g36",
"wpn_bm16",
"wpn_toz34",
"wpn_wincheaster1300",
"wpn_spas12",
"wpn_ak74",
"wpn_ak74u",
"wpn_abakan",
"wpn_groza",
"wpn_val",
"wpn_vintorez",
"wpn_groza_coll",
"wpn_groza_m1",
"wpn_vintorez_coll",
"wpn_val_m1",
"wpn_svu",
"wpn_svd",
'wpn_desert_eagle',
'wpn_usp',
'wpn_colt1911',
'wpn_sig220',
'wpn_walther',
'wpn_beretta',
'wpn_hpsa',
'wpn_fort',
'wpn_pb',
'wpn_pm'
}

function collector(actor, npc)
for k,v in pairs(tab) do
if npc:object(v) then
obj = npc:object(v)
if obj then
local obj_name = obj:section()
local sobj = alife():object(obj:id())
if sobj then
alife():release(sobj, true)
this.spawn(obj_name)
end
end
end
end
end



function spawn(obj_name)
alife():create(obj_name, db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id(), db.actor:id())
end