--'Торговец
class "se_trader" (cse_alife_trader)
function se_trader:__init (section) super (section)
end
function se_trader:keep_saved_data_anyway()
  return true
end

trader = nil

cs_register    (object_factory, "CAI_Trader",  "se_stalker.se_trader", "AI_TRD_S",  "script_trader")

-- У торговца нет поддержки перемещения
  if self.object:clsid() ~= clsid.script_trader then
   self.object:set_patrol_extrapolate_callback(generic_object_binder.extrapolate_callback, self)
  end

-- Апдейт торговли
  if self.object:clsid() == clsid.script_trader then
   trade_manager.update(self.object)
  end

if self.object:clsid() == clsid.script_trader then
   smart_terrain.setup_gulag_and_logic_on_spawn( self.object, self.st, sobject, modules.stype_trader, self.loaded)
  else
   smart_terrain.setup_gulag_and_logic_on_spawn( self.object, self.st, sobject, modules.stype_mobile, self.loaded)
  end

if self.object:clsid() == clsid.script_trader then
   trade_manager.save(self.object, packet)
  end

if self.object:clsid() == clsid.script_trader then
   trade_manager.load(self.object, reader)
  end

<specific_character id="escape_trader" no_random = "1">
     <name>escape_trader_name</name>
     <icon>ui_npc_u_trader_1</icon>
     <bio>escape_trader_bio</bio>

     <class>trader</class>
     <community>stalker</community>
     <visual>actors\stalker_trader\stalker_trader_1</visual>

     <rank>330</rank>
     <reputation>23</reputation>
     <money min="100000" max="100000" infinitive="1"/>
     <supplies>
       [spawn] \n
     </supplies>
  #include "gameplay\character_criticals_4.xml"
     <start_dialog>esc_trader_meet</start_dialog>
#include "gameplay\character_dialogs.xml"
   </specific_character>

<!-- escape -->
    <character id="escape_trader">
  <class>Trader</class>
  <specific_character>escape_trader</specific_character>
   </character>

if obj_around ~= nil and (IsStalker(obj_around) or IsMonster(obj_around)) then --если есть такой и это сталкер или монстр

[logic]
active =  mob_trader@new_idle1
; on_trade = mob_trade@new
; trade = misc\trade\trade_trader_esc.ltx
level_spot = trader

;--------------------------
;---First Meet-------------
;--------------------------
[mob_trader@hello_first]
anim_global = hello
anim_head = normal
sound_phrase = trader_greet_first
on_signal = animation_end | mob_trader@new_idle2  

;------------------------------
;---------Wait player----------
;------------------------------

[mob_trader@new_idle1]
anim_global = idle
anim_head = normal
sound_phrase = trader_greet_first

force_min    = 10
force_const    = 25
force_max    = 30
force_grow_speed  = 20

Expression    : !m_error_code
Function      : raii_guard::~raii_guard
File          : D:\prog_repository\sources\trunk\xrServerEntities\script_storage.cpp
Line          : 748
Description   : ... - Зов Припяти\gamedata\scripts\trade_manager.script:208: attempt to index field '?' (a nil value)

[logic]
active =  mob_trader@wait
on_trade = mob_trade@new
; trade = misc\trade\trade_e2_sidor.ltx
trade = misc\trade\trade_zat_a2_barmen.ltx
; level_spot = trader

local wpn_table = {
      "wpn_svd",
      "wpn_svu",
      "wpn_vintorez"
      }

  function is_sharpshooter(actor, npc)
  local wpn_kemp = npc:item_in_slot(2)
   if wpn_kemp == wpn_table then
   return true
  else
    return false
   end
  end

Expression    : !m_error_code
Function      : raii_guard::~raii_guard
File          : D:\prog_repository\sources\trunk\xrServerEntities\script_storage.cpp
Line          : 748
Description   : ... - Зов Припяти\gamedata\scripts\xr_conditions.script:1757: attempt to call method 'item_in_slot' (a nil value)