local scheme_status={}
local property_need_to_trade = 1821327

class "evaluator_need_to_trade" (property_evaluator)
function evaluator_need_to_trade:__init(name, storage) super (nil, name)
self.st = storage
end

function evaluator_need_to_trade:evaluate()
amk.ls_send_tip(self.object:character_name().." evaluate()")
if self.st==nil or self.st.enabled~=true then
-- модель поведения запрещена
return false
end

if not db.actor then
-- ГГ ещё не заспаунился
return false
end
if self.object:best_enemy() then
return false -- Блокирование во время боя
end
local npc = self.object
--нет ни одной аптечки, нет всего набора хавчика, при том, что деньги ещё остались
if npc:money() < 100 then return false end -- денег нет - и суда нет
local vertex = get_nearest_trader_vertex()
if npc:level_vertex_id() == vertex then disable_scheme(npc,"npc_want_trade") end --дошёл до торговца
if (npc:object("medkit")==nil
and npc:object("medkit_army")== nil
and npc:object("medkit_scientic")==nil) then return true
end

if npc:object("bread") == nil or
npc:object("kolbasa") == nil or
npc:object("conserva") == nil then return true
end

return false
end

class "action_go_to_trader" (action_base)
function action_go_to_trader:__init(name, storage) super (nil, name)
self.st=storage
end
function action_go_to_trader:initialize()
action_base.initialize(self)
local npc=self.object
npc:set_desired_position()
npc:set_desired_direction()
npc:clear_animations()
npc:set_detail_path_type(move.line)
npc:set_body_state(move.standing)
npc:set_movement_type(move.run)
npc:set_path_type(game_object.level_path)
npc:set_mental_state(anim.danger)
npc:set_sight(look.danger, nil, 0)
npc:remove_all_restrictions()
self.offset=vector():set(math.random()*6-3,0,math.random()*6-3)
self.offset:normalize()
end

function action_go_to_trader:execute()
action_base.execute(self)
amk.ls_send_tip(self.object:character_name().." execute()")
if not actor then
-- Хм, что-то не так. Может быть ГГ перешёл на другой уровень? Запрещаем схему поведения
self.st.enabled=false
end
if self.delay and self.delay>time_global() then
return
end
self.delay=time_global()+1000
local npc=self.object
local actor=db.actor
local vertex_id = get_nearest_trader_vertex()
if vertex_id then
npc:set_dest_level_vertex_id(vertex_id)
end
end

function action_go_to_trader:finalize()
action_base.finalize (self)

end

function add_to_binder(object, char_ini, scheme, section, st)
local manager = object:motivation_action_manager()
local property_wounded = xr_evaluators_id.sidor_wounded_base

manager:remove_evaluator(property_need_to_trade)
manager:add_evaluator(property_need_to_trade, evaluator_need_to_trade("npc_want_trade",st))
local action = this.action_go_to_trader("action_go_to_trader",st)
action:add_precondition(world_property(stalker_ids.property_alive, true))
action:add_precondition(world_property(property_wounded, false))
if anomaly_evader then
action:add_precondition (world_property(1099,false))
end
action:add_precondition(world_property(property_need_to_trade, true))
action:add_effect (world_property(property_need_to_trade, false))
xr_motivator.addCommonPrecondition(action)
manager:add_action (action_go_to_trader, action)
-- Теперь подкорректируем стандартные операторы, чтобы помощник не отвлекался на всякую ерунду.
action=manager:action(stalker_ids.action_alife_planner)
action:add_precondition(world_property(property_need_to_trade, false))
action=manager:action(stalker_ids.action_combat_planner)
action:add_precondition(world_property(property_need_to_trade, false))
action=manager:action(stalker_ids.action_danger_planner)
action:add_precondition(world_property(property_need_to_trade, false))
end

function set_need_trade(npc,ini)
local st = xr_logic.assign_storage_and_bind(npc, ini, "npc_want_trade","npc_want_trade")
st.enabled=true
scheme_status[npc:id()]=true
end

function disable_scheme(npc,scheme)
local st = db.storage[npc:id()][scheme]
if st then
st.enabled = false
end
scheme_status[npc:id()]=nil
end

function get_nearest_trader_vertex()
return 64955--заглушка временная, для кордона
end