class "need" (property_evaluator)

function need:__init(storage, name, npc) super(nil, name)
    self.object = npc
end

function need:evaluate()
    return self.object:alive()
end

class "on_need_point" (property_evaluator)

function on_need_point:__init(storage, name, npc) super(nil, name)
    self.st = storage
    self.object = npc
end

function on_need_point:evaluate()
    return self.st.purpose.position:distance_to_sqr(self.object:position()) < 6
end

class "go_target" (action_base)

function go_target:__init (npc, action_name, storage) super(nil, action_name)
    self.st = storage
    self.object = npc
end

function go_target:initialize()
    action_base.initialize(self)
    
    self.st.dqAnim = false
    self.object:set_desired_position()
    self.object:set_desired_direction()
    
    self.object:inactualize_patrol_path  ()
    
    self.object:set_desired_direction    ()
    self.object:set_movement_selection_type    (game_object.alifeMovementTypeMask)
    --self.object:set_item     (object.idle, self.object:best_weapon())
    self.object:set_body_state    (move.standing)
    self.object:set_detail_path_type     ( move.line )
    self.object:set_mental_state   (anim.free) --free
    self.object:set_movement_type   (move.run)
    
    --self.object:set_path_type            ( game_object.game_path )
    if game_graph():vertex(self.st.purpose.m_game_vertex_id):level_id() == game_graph():vertex(self.object:game_vertex_id()):level_id() then
  self.object:set_path_type(game_object.level_path)
  utils.send_to_nearest_accessible_vertex(self.object, self.st.purpose.m_level_vertex_id, "xr_mytest:1")
  self.object:set_desired_position(self.st.purpose.position)
  get_console():execute(1)
    else
  self.object:set_dest_game_vertex_id  ( self.st.purpose.m_game_vertex_id)
  self.object:set_path_type ( game_object.game_path )
  get_console():execute(2)
    end
    self.object:set_sight     (look.path_dir,nil,0)
end

function go_target:execute()
    action_base.execute(self)
    
end

function go_target:finalize()
    action_base.finalize(self)
end

function go_target:activate_scheme()
    action_base.initialize(self)
end

class "wait_action"  (action_base)

function wait_action:__init (npc, action_name, storage) super(nil, action_name)
    self.st = storage
    self.object = npc
    self.st.dqAnim = false
end

local anm, cb
function wait_action:initialize()
    action_base.initialize(self)
    get_console():execute("wait_action")
    
    self.object:set_desired_position()
    self.object:set_desired_direction()
    
    cb = { obj = self, func = self.time_callback }
    anm = 'sit_knee'--xr_logic.pick_section_from_condlist(db.actor, self.object, self.st.anm)
    state_mgr.set_state(self.object, anm, cb, 0, {look_position = self.st.purpose.position})
end

function wait_action:time_callback()
    self.st.dqAnim = true
end

function wait_action:execute ()
    action_base.execute(self)
    
    
end

class "end_anim" (property_evaluator)

function end_anim:__init(storage, name) super(nil, name)
    self.st = storage
    self.st.dqAnim = false
end

function end_anim:evaluate()
    return --self.st.dqAnim
end

function add_to_binder(npc, ini, scheme, section, storage)
    local operators    = {}
    local properties  = {}

    local manager = npc:motivation_action_manager()
    
    operators["act2point"] = xr_evaluators_id.zmey_remark_base + 2
    operators["anims"] = xr_evaluators_id.zmey_remark_base + 3
    
    properties["has"] = xr_actions_id.zmey_remark_base + 4
    properties["at_point"]  = xr_actions_id.zmey_remark_base + 5
    properties["anim_end"] = xr_actions_id.zmey_remark_base + 6
   -- evaluators
    manager:add_evaluator(properties["has"], this.need(storage, "has_uniq", npc))
    manager:add_evaluator(properties["at_point"], this.on_need_point(storage, "on_need_point_uniq", npc))
    manager:add_evaluator(properties["anim_end"], this.end_anim(storage, "anim_end"))

    local new_action2 = this.wait_action(npc, "wait_action", storage)
    new_action2:add_precondition(world_property(stalker_ids.property_alive, true))
    new_action2:add_precondition(world_property(stalker_ids.property_danger,false))
    new_action2:add_precondition(world_property(stalker_ids.property_enemy, false))
    new_action2:add_precondition(world_property(stalker_ids.property_anomaly,false))
    modules.add_common_precondition(scheme, new_action2)
    
    new_action2:add_precondition(world_property(properties["has"], true))
    new_action2:add_precondition(world_property(properties["at_point"], true))
    new_action2:add_precondition(world_property(properties["anim_end"], false))
    new_action2:add_effect (world_property(properties["anim_end"], true))
    manager:add_action(operators["anims"], new_action2)
    
    local new_action = this.go_target(npc, "go_target", storage)
    new_action:add_precondition(world_property(stalker_ids.property_alive, true))
    new_action:add_precondition(world_property(stalker_ids.property_danger,false))
    new_action:add_precondition(world_property(stalker_ids.property_enemy, false))
    new_action:add_precondition(world_property(stalker_ids.property_anomaly,false))
    modules.add_common_precondition(scheme, new_action)
    
    new_action:add_precondition(world_property(properties["has"], true))
    new_action:add_precondition(world_property(properties["at_point"], false))
    new_action:add_effect (world_property(properties["at_point"], true))
    manager:add_action(operators["act2point"], new_action)
    
    xr_logic.subscribe_action_for_events(npc, storage, new_action2)
    
    local action = manager:action(stalker_ids.action_alife_planner)
    action:add_precondition(world_property(properties["anim_end"], true))
end

function set_scheme(npc, sobj)
    local st = xr_logic.assign_storage_and_bind(npc, false, "pointer", 'pointer')
    
    st.logic     = {}

    st.purpose = sobj

    --[[
    st.snd   = ini:r_string_ex(section,"snd")
    st.anm   = xr_logic.parse_condlist(npc, "anim", "anim", ini:r_string_ex(section,"anim") or "wait")
    st.tips_id  = ini:r_string_ex(section,"tips")
    if st.tips_id then
  st.sender    = ini:r_string_ex(section,"tips_sender")
    end
    st.target = ini:r_string_ex(section,"target") or "nil"
    st.target_id = nil
    st.target_position = nil
    ]]
end