-- файл из мода "Народной солянки 2009" от 14.06.
-- Адаптирован для Менеджера оружия. Rulix aka Bak от 2.07.09
-- Адатировал: Idler.

local upd_time
local upd_time1
local upd_time2
local upd_time3
local upd_time4
local upd_time5

local table_sort = table.sort
local math_ceil = math.ceil

function init(obj)
  xr_motivator.AddToMotivator(obj)
end

function actor_init(npc)
  npc:bind_object(actor_binder(npc))
  -- level_tasks.add_location(707,"blue_location","Лукаш")
  -- level_tasks.add_location(702,"blue_location","Макс")
  -- level_tasks.add_location(728,"blue_location","Повар")
end

local det_suit_id = nil
local game_difficulty_by_num = {
  [0] = "gd_novice",
  [1] = "gd_stalker",
  [2] = "gd_veteran",
  [3] = "gd_master"
  }

lasthealth  = 0
lasttime  = 0
post_process = 0
local weapon_hide = false
-- local arts = false
----------------------------------------------------------------------------------------------------------------------
class "actor_binder" (object_binder)
----------------------------------------------------------------------------------------------------------------------
function actor_binder:__init (obj) super(obj)
  self.bCheckStart = false
  self.weather_manager = level_weathers.WeatherManager()
  self.actor_detector = xr_detector.actor_detector()
  self.is_saved = false
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:net_spawn(data)
  --amk.updateGameTime()
  printf("actor net spawn")
--  skunk.dbglog("actor net spawn")
  db.add_actor(self.object)
  zamok.restore()
  babah.collectBombs()
  level.show_indicators()

  self.bCheckStart = true
  self.weapon_hide = false -- спрятано или нет оружие при разговоре.
  weapon_hide = false -- устанавливаем глобальный дефолтовый флаг.

  if object_binder.net_spawn(self,data) == false then
--    skunk.dbglog("actor net spawn 1")   
    return false
  end

--  skunk.dbglog("actor net spawn 2")  
  if self.st.disable_input_time == nil then
    level.enable_input()
  end

  fly.stop()
  self.weather_manager:reset()
--  game_stats.initialize ()

  if(actor_stats.add_to_ranking~=nil)then
    actor_stats.add_to_ranking(self.object:id())
  end

  --' Загружаем настройки дропа
  death_manager.init_drop_settings()
  
-- added by xStream for AMK miniSDK
  if xrs_ai then
  xrs_ai.actor_net_spawn(self)
  end

  if rx_ai then
   rx_ai.actor_net_spawn()
  end
  
  amk.on_game_load(obj)  
  ui_mm_opt_add.del_bad_objects()
--===============================

--[[local bad_object_names = {"wpn_lr30053522", "wpn_lr30058409" } --"wpn_lr30025601", "wpn_lr30028817","wpn_lr30033589"
local i, se_name, se_obj

for i, se_name in ipairs(bad_object_names) do
  se_obj = alife():object(se_name)
  if se_obj then
    news_manager.send_tip(db.actor,"Удалили глючный ствол:"..se_name,nil,nil,1000)
    alife():release(se_obj, true)
  end
end]]

--===============================
  sak.add_tail()
  braad_test.false_info()
  -- end of addition
  meceniy_work.main()
  spawn_level_changer.remove_old_teleport()  
  meceniy_utils.net_spawn_callback()
  -- kostya_level --
   spawn_teleport.spawn_teleport_exit()
   spawn_teleport.spawn_teleport_hospital()
    bind_det_arts.start_update()
    netpacket_pda_id = netpacket_pda_create.create_pda()
-- Akill begin
   akill.akill_start_sound()
-- Akill end
   snp.net_spawn() -- snp
   fly_island.release_completed_fly_islands() -- острова
   nightvision.pnv_switch(nil, false, false) -- ПНВ
   hotkeys.init()

   self.lastY = self.object:position().y
   self.currY = self.lastY
   self.update_cnt = 1
   self.delta = 0
   return true
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:net_destroy()

  -- added by xStream for AMK miniSDK
  amk.on_game_save(obj)
  -- end of addition

  if(actor_stats.remove_from_ranking~=nil)then
    actor_stats.remove_from_ranking(self.object:id())
  end
--  game_stats.shutdown ()
  db.del_actor(self.object)

    sr_light.clean_up ()

  self.object:set_callback(callback.inventory_info, nil)
  self.object:set_callback(callback.article_info, nil)
  self.object:set_callback(callback.on_item_take, nil)
  self.object:set_callback(callback.on_item_drop, nil)
  self.object:set_callback(callback.trade_sell_buy_item, nil)
  --self.object:set_callback(callback.actor_sleep, nil)
  self.object:set_callback(callback.task_state, nil)
  --self.object:set_callback(callback.map_location_added, nil)
  self.object:set_callback(callback.level_border_enter, nil)
  self.object:set_callback(callback.level_border_exit, nil)
  self.object:set_callback(callback.take_item_from_box, nil)
  self.object:set_callback(callback.use_object, nil)
  self.object:set_callback(callback.death, nil)

  if sr_psy_antenna.psy_antenna then
    sr_psy_antenna.psy_antenna:destroy()
    sr_psy_antenna.psy_antenna = false
  end

  knife_hud.net_destroy()
  xr_sound.stop_all_sound_object()

  if iniStatistic then
    get_console():execute("load ~~~ amk.dump_table(iniLines):")
    amk.dump_table(iniLines)
    get_console():execute("load ~~~ amk.dump_table(iniOtherLines):")
    amk.dump_table(iniOtherLines)
      get_console():execute("load ~~~ amk.dump_table(iniStat):")
      local t = {}
      for sect, count in pairs(iniStat) do
          table.insert(t, {sect, count})
      end
      table_sort(t, sortStat)
    amk.dump_table(t)
  end
  
  object_binder.net_destroy(self)
end

function sortStat(t1, t2)
   return t1[2] > t2[2]
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:reinit()
  object_binder.reinit(self)
  
  local npc_id = self.object:id()

  db.storage[npc_id] = { }

  self.st = db.storage[npc_id]
  self.st.pstor = nil

  self.next_restrictors_update_time = -10000

  self.object:set_callback(callback.inventory_info, self.info_callback, self)
  self.object:set_callback(callback.article_info, self.article_callback, self)
  self.object:set_callback(callback.on_item_take, self.on_item_take, self)
  self.object:set_callback(callback.on_item_drop, self.on_item_drop, self)
  self.object:set_callback(callback.trade_sell_buy_item, self.on_trade, self) -- for game stats
  --self.object:set_callback(callback.actor_sleep, self.sleep_callback, self)
  self.object:set_callback(callback.task_state, self.task_callback, self)
  --self.object:set_callback(callback.map_location_added, self.map_location_added_callback, self)
  self.object:set_callback(callback.level_border_enter, self.level_border_enter, self)
  self.object:set_callback(callback.level_border_exit, self.level_border_exit, self)
  self.object:set_callback(callback.take_item_from_box, self.take_item_from_box, self)
  self.object:set_callback(callback.use_object, self.on_use_object, self)
  self.object:set_callback(callback.death, self.death_callback, self)
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:death_callback(victim, who)
   if victim:id() == db.actor:id() then
      difficulty_manager.deathStatCollect()
      archievements.on_actor_death(who)
   end
   
   -- Правка неотключения пения контролера после смерти гг
   if kostya_dialog.kill_online_kontroller() then
      news_manager.send_tip(db.actor, "Если во время смерти ГГ звучало \"пение\" контролера, то дождитесь его завершения прежде, чем загрузить сохранение, иначе придется полностью перезапускать игру.", nil, "nano", 30000)
   end
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:take_item_from_box(box, item)
   if string.sub(item:section(),1,10)=="val_zapis_" then
      valerich_treasures.spawn_next( tonumber(string.sub(item:section(),11,-1)) )
   end

   -- если калбек на взятие предмета из тайника поставить сюда, а не в on_item_take, то калбек сработает только один раз
   -- и не будет вызываться каждый раз при лоаде, поэтому поршнем его отсекать не нужно
   hotkeys.on_item_take(item)
   fly.returner_clear_pos(item)
   snp.check_treasure_item(item)
   spawn_level_changer.on_take_teleportator(item)
   braad_test.mina_band2(item)
   
   -- подъем рюкзаков
   if box:is_inv_box_empty() then
   if transparent_treasure.IsTaken(box:section()) then
      level.start_stop_menu(level.main_input_receiver(), true)

      -- здесь можно прописывать калбеки взятия на проверку по секции тайника, чтобы не придумывать уникальные предметы
      snp.check_treasure(box)
      archievements.check_treasure(box)
      kostya_dialog.stealth_on_take(box)
      
      alife():create("treasure_item",box:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id(),0)
      alife():release(alife():object(box:id()))
   end
   
   if box:section() ~= "m_inventory_box" then
      archievements.acv_count_event("acv_sled", 300, "Следопыт")
   end
   end

  local story_id = box:story_id()
  if story_id == nil then
    return
  end

  treasure_manager.take_item_from_box(box, story_id)
zamok.remove(box, item)

   --AMK UTILS--
   amk.on_item_take_from_box(box,item)
   amk_utils.actor_item_from_box(box, item)
   --AMK UTILS--

end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:level_border_enter(npc, info_id)
  self.actor_detector:actor_enter()
  
  --AMK UTILS--
  amk_utils.actor_level_border_enter(npc, info_id)
  --AMK UTILS--
  
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:level_border_exit(npc, info_id)
  self.actor_detector:actor_exit()
  
   --AMK UTILS--
   amk_utils.actor_level_border_exit(npc, info_id)
   --AMK UTILS--
   
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:info_callback(npc, info_id)
--  printf("*INFO*: npc='%s' id='%s'", npc:name(), info_id)
  --' Сюжет
  level_tasks.proceed(self.object)
  -- Отметки на карте
  hidden_slots.on_info(info_id)
  archievements.on_info(info_id)
  level_tasks.process_info_portion(info_id)

  if string.sub(info_id,1,3)~="ui_" then
   db.vbr = drrr.next_vbr()
  end
  
              --AMK UTILS--
            amk.on_info(npc,info_id)
            amk_utils.actor_info(npc, info_id)
            inventory.on_inventory_info(info_id)
            hotkeys.on_info(info_id)
               --AMK UTILS--
   if npc:id() == db.actor:id() then
      meceniy_spawn.respawn(info_id)
    end
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:on_trade (item, sell_bye, money)
    if sell_bye == true then
      game_stats.money_trade_update(money)
    else       
      if isMagazinedWeapon(item) then
         item:unload_magazine()
      end
      archievements.on_receive_count_item(item)
      game_stats.money_trade_update(-money)
    end
   
   db.traded = true
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:article_callback(npc, group, name)
  --printf("article_callback [%s][%s]", group, name)
  if device().precache_frame >1 then return end
  
  if group == "Diary" then
    news_manager.send_encyclopedy("diary", group)
  else
    news_manager.send_encyclopedy("encyclopedy", group)
  end
  
  --AMK UTILS--
  amk.on_info(npc,info_id)
  amk_utils.actor_article(npc, group, name)
  --AMK UTILS--
  
end
--------------------------------------------------------------------------------------------------
function actor_binder:on_item_take (obj)
    level_tasks.proceed(self.object)
    --game_stats.update_take_item (obj, self.object)
          local item = obj
          --AMK UTILS--
          amk.on_item_take(obj)
          amk_utils.actor_item_take(obj)
          
          if obj:clsid() == clsid.wpn_ammo then
   dunin_ammo.on_take(obj)
   end
   sak.check_used_item(obj)
   braad_test.checking_use_item(obj)
   if xrs_ai then xrs_ai.actor_item_take(obj)
   end

   art_hit.hit_by_art(obj)
  --AMK UTILS--
    babah.on_item_take(obj)
  inventory.on_item_take(item)
spawn_zombi.checking_taken_item(obj)
spawn_zombi.checking_taken_item2(obj)
spawn_zombi.checking_taken_item3(obj)
spawn_zombi.checking_taken_item4(obj)
spawn_zombi.checking_taken_item5(obj)
spawn_zombi.checking_taken_item6(obj)
spawn_zombi.checking_taken_item7(obj)
spawn_zombi.checking_taken_item8(obj)
spawn_zombi.checking_taken_item9(obj)
spawn_zombi.checking_taken_item10(obj)
spawn_zombi.checking_taken_item11(obj)
spawn_zombi.checking_taken_item12(obj)
spawn_zombi.checking_taken_item13(obj)
spawn_zombi.checking_taken_item14(obj)
spawn_zombi.checking_taken_item15(obj)
spawn_zombi.checking_taken_item16(obj)
spawn_zombi.checking_taken_item17(obj)
spawn_zombi.checking_taken_item18(obj)
spawn_teleport.checking_taken_item19(obj)
spawn_teleport.checking_taken_item20(obj)
spawn_teleport.checking_taken_item21(obj)
spawn_teleport.checking_taken_item22(obj)
new_spawn.checking_taken_item23(obj)
spawn_teleport.checking_taken_item24(obj)
spawn_teleport.checking_taken_item25(obj)
spawn_teleport.checking_taken_item26(obj)
spawn_teleport.checking_taken_item27(obj)
spawn_teleport.checking_taken_item28(obj)
spawn_restrictor.checking_taken_item29(obj)
spawn_restrictor.checking_taken_item30(obj)
spawn_teleport.checking_taken_item31(obj)
spawn_restrictor.checking_taken_item32(obj)
spawn_teleport.checking_taken_item33(obj)
spawn_teleport.checking_taken_item34(obj)
spawn_teleport.checking_taken_item35(obj)
spawn_teleport.checking_taken_item36(obj)
new_spawn.checking_taken_item37(obj)
arhara_dialog.checking_taken_item38(obj)
spawn_zombi.checking_taken_item39(obj)
spawn_zombi.checking_taken_item40(obj)
meceniy_utils.on_item_take_callback(obj)
spawn_zombi.checking_taken_item41(obj)
spawn_zombi.checking_taken_item42(obj)
spawn_zombi.checking_taken_item43(obj)
arhara_dialog.checking_taken_item44(obj)
arhara_dialog.checking_taken_item45(obj)
arhara_dialog.checking_taken_item46(obj)
arhara_dialog.checking_taken_item47(obj)
arhara_dialog.checking_taken_item48(obj)
arhara_dialog.checking_taken_item49(obj)
arhara_dialog.checking_taken_item50(obj)
arhara_dialog.checking_taken_item51(obj)
arhara_dialog.checking_taken_item52(obj)
arhara_dialog.checking_taken_item53(obj)
arhara_dialog.checking_taken_item54(obj)
arhara_dialog.checking_taken_item55(obj)
arhara_dialog.checking_taken_item56(obj)
arhara_dialog.checking_taken_item57(obj)
arhara_dialog.checking_taken_item58(obj)
valerich_treasures.on_item_take(obj)
kostya_dialog.checking_taken_item59(obj)
braad_test.checking_taken_item60(obj)
kostya_dialog.checking_taken_item61(obj)
kostya_dialog.checking_taken_item62(obj)
kostya_dialog.checking_taken_item63(obj)
kostya_dialog.checking_taken_item64(obj)
kostya_dialog.checking_taken_item_vzn(obj)
kostya_dialog.peshera_go(obj)
snp.checking_taken_item_snp(obj)
spawn_level_changer.on_take_teleporter(obj)
archievements.on_receive_count_item(obj)
archievements.on_item_take(obj)
volazar_dialog.check_upd(obj)
-- Akill begin
akill.checking_taken_item68(obj)
akill.checking_taken_item69(obj)
akill.checking_taken_item70(obj)
akill.checking_taken_item71(obj)
akill.checking_taken_item74(obj)
akill.checking_taken_item75(obj)
akill.checking_taken_item76(obj)
akill.checking_taken_item77(obj)
akill.checking_taken_item78(obj)
akill.checking_taken_item79(obj)
akill.checking_taken_item80(obj)
akill.checking_taken_item81(obj)
akill.checking_taken_item82(obj)
akill.checking_taken_item83(obj)
akill.checking_taken_item84(obj)
akill.checking_taken_item85(obj)
akill.checking_taken_item86(obj)
akill.checking_taken_item87(obj)
-- Akill end
chess.item_take(obj)
monster_parts.on_part_take(obj)
hotkeys.on_item_take(item)
fly.returner_clear_pos(obj)

   if rx_ai then
      rx_ai.actor_item_take(obj)
   end

   if isMagazinedWeapon(obj) and self.object:is_talking() and not protected_items.not_unloaded_weapon(obj:section()) then
      obj:unload_magazine()
   end
   
   -- должен в итоге быть монолитовцем при определенных условиях
   snp.join_monolith()

   -- фикс переодевания гг при взятии броника
   if obj:clsid() == clsid.equ_stalker_s then
      local outfit = db.actor:get_current_outfit()
      if outfit and outfit:id() ~= obj:id() then
         db.actor:transfer_item(outfit, db.actor)
      end
   end
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:on_item_drop (obj)
   anom_remover.on_item_drop(obj)
   babah.li(obj)
   

     -- Vergas ogg-player
   player_ogg.lose_item(obj)
      
  level_tasks.proceed(self.object)
    --game_stats.update_drop_item (obj, self.object)
    -- if level.vertex_position(db.actor:level_vertex_id()):distance_to(db.actor:position())>1 then
      -- amk.mylog("Здесь нет вертексов")
    -- else
      -- amk.mylog("Вертекс "..db.actor:level_vertex_id().." "..db.actor:game_vertex_id())
    -- end
    
  --AMK UTILS--
  amk.on_item_drop(obj)
  amk_utils.actor_item_drop(obj)
  --AMK UTILS--
  hotkeys.on_item_drop(obj)
  inventory.on_item_drop(obj)
  sak.check_droped_item(obj)
  braad_test.drop_actor(obj)
  braad_test.drop_lim(obj)
  --Избавляемся от Зомбирования--
  meceniy_work.on_item_use(obj)
  meceniy_utils.on_item_drop_callback(obj)
  -------------------------------
  kostya_dialog.peshera_drink(obj)
spawn_level_changer.checking_droped_obj(obj)
--[[spawn_level_changer.checking_droped_item(obj)
spawn_level_changer.checking_droped_item2(obj)
spawn_level_changer.checking_droped_item3(obj)
spawn_level_changer.checking_droped_item4(obj)
spawn_level_changer.checking_droped_item5(obj)
spawn_level_changer.checking_droped_item6(obj)
spawn_level_changer.checking_droped_item7(obj)
spawn_level_changer.checking_droped_item8(obj)
spawn_level_changer.checking_droped_item11(obj)
spawn_level_changer.checking_droped_item12(obj)
spawn_level_changer.checking_droped_item13(obj)
spawn_level_changer.checking_droped_item14(obj)]]
--spawn_level_changer.checking_droped_item10(obj)
zamok.add(obj)
snp.checking_dropped_item_snp(obj)   -- snp
nightvision.checking_droped_obj(obj) -- ПНВ

end
----------------------------------------------------------------------------------------------------------------------

function actor_binder:task_callback(_task, _objective, _state)
  task_manager.task_callback(_task:get_id(), _objective:get_idx(), _state)
  if _objective:get_idx() == 0 then
    if _state == task.fail then
   if db.actor then
        db.actor:give_info_portion("acv_task_fail")
   end
      news_manager.send_task(db.actor, "fail", _task, _objective)
    elseif _state == task.completed then
      task_manager.reward_by_task(_task)
      news_manager.send_task(db.actor, "complete", _task, _objective)
    else
      news_manager.send_task(db.actor, "new", _task, _objective)
    end
  else
    if _task:get_objective(0):get_state() == task.in_progress then
      news_manager.send_task(db.actor, "update", _task, _objective)
    end
  end
  
  --AMK UTILS--
  amk_utils.actor_task(_task, _objective, _state)
  --AMK UTILS--
  
end

----------------------------------------------------------------------------------------------------------------------
function actor_binder:map_location_added_callback(spot_type_str, object_id)
  if (false==app_ready()) or (device().precache_frame>1) then return end
  --'news_manager.send_task(db.actor, "new")
end
----------------------------------------------------------------------------------------------------------------------
-- malandrinus
--watch_value = 0
-- malandrinus
scopeUsed = false
function actor_binder:update(delta)
-- malandrinus
--    watch_value = game.time()
-- /malandrinus
  local time = time_global()
  amk.oau_watchdog=200
  amk.oau_reason="actor_binder:update"
  --amk.updateGameTime()
  amk.oau_watchdog=2001
  object_binder.update(self, delta)

  amk.oau_watchdog=188
  if self.bCheckStart then
    printf("SET DEFAULT INFOS")   
   
   db.money = self.object:money()
   db.vbr = drrr.next_vbr()

    if not has_alife_info("storyline_actor_start") and
       (level.name() == "l01_escape")
    then
      self.object:give_info_portion("storyline_actor_start")
      _G.g_start_avi = true
      printf("*AVI* RUN START AVI")     
    end

    if not has_alife_info("encyclopedy") and has_alife_info("arhara_shaxter_start") then
      self.object:give_info_portion("encyclopedy")
    end

    if not has_alife_info("global_dialogs") then
      self.object:give_info_portion("global_dialogs")
    end

    if not has_alife_info("level_changer_icons") then
      self.object:give_info_portion("level_changer_icons")
    end

    level_tasks.add_lchanger_location()
   all_spawn_fix.respawn_allspawn()
   ui_mm_opt_add.send_bad_objects_info()
   ui_load_dialog.saved_games_limit_show_error()
   archievements.acv_death()

   if has_alife_info("fli_chaes_start") and not has_alife_info("fli_chaes_have") and not has_alife_info("fli_chaes_fail") then
      fly_island.fli_chaes_set_range()
   end

   if has_alife_info("snp_kamen_udachy_have") and not has_alife_info("runner_tele_have") then
      alife():create("runner_tele", vector():set(0,0,0), 0, 0, self.object:id())
      db.actor:give_info_portion("runner_tele_have")
   end

   if has_alife_info("sar_monolith_destroy") and not has_alife_info("sar2_monolith_miracle") then
      db.actor:give_info_portion("sar2_monolith_miracle")
   end