class "ui_medkit_ai2" (CUIScriptWnd)     --Регистрация нового класса гуи-элемента от существующего класса CUIScriptWnd  

function ui_medkit_ai2:__init(owner) super()      --Иницилизируем класс, добавляем отсылки к функциям          
          self.owner = owner  
          self:InitControls()          --Отсылка к функции регистрации элементов окна  
          self:InitCallBacks()         --Отсылка к функции регистрации коллбеков (условий)  
end  

function ui_medkit_ai2:__finalize()    --Функция завершения работы нового класса  
end  

function ui_medkit_ai2:InitControls()   --Функция иницилизации элементов окна  
self:SetWndRect   (Frect():set(0,0,1024,768))   --Установка стандартных размеров файла          
local xml, ctrl   = CScriptXmlInit(), CUIWindow()    --Задаем локальные переменные на классы          
xml:ParseFile   ("ui_gui_elements.xml")         --Инициализация XML-файла Gui-элемента  
self.medkit    = xml:InitStatic("medkit",self)   --Регистрируем само окно  
xml:InitStatic ("medkit:caption_cystamine",self.medkit)      --Регистрация текста: цистамин  
xml:InitStatic ("medkit:caption_kalium",self.medkit)         --Регистрация текста: калиум  
xml:InitStatic ("medkit:caption_chlor",self.medkit)          --Регистрация текста: хлор  
xml:InitStatic ("medkit:caption_sulfad",self.medkit)         --Регистрация текста: сульфад  
xml:InitStatic ("medkit:caption_antiemetic",self.medkit)     --Регистрация текста: противорвотная штука  
xml:InitStatic ("medkit:caption_medkit",self.medkit)         --Регистрация текста: аптечка  
self.button_cystamine = xml:Init3tButton ("medkit:btn_cystamine",self.medkit)          --Регистрация кнопки: цистамин  
self:Register (self.button_cystamine, "button_cystamine")  
self.button_kalium = xml:Init3tButton ("medkit:btn_kalium",self.medkit)                --Регистрация кнопки: калиум  
self:Register (self.button_kalium, "button_kalium")  
self.button_chlor = xml:Init3tButton ("medkit:btn_chlor",self.medkit)                  --Регистрация кнопки: хлор  
self:Register (self.button_chlor, "button_chlor")  
self.button_sulfad = xml:Init3tButton ("medkit:btn_sulfad",self.medkit)                --Регистрация кнопки: сульфад  
self:Register (self.button_sulfad, "button_sulfad")  
self.button_antiemetic = xml:Init3tButton ("medkit:btn_antiemetic",self.medkit)        --Регистрация кнопки: противорвотная штука  
self:Register (self.button_antiemetic, "button_antiemetic")  
self.button_close = xml:Init3tButton ("medkit:btn_close",self.medkit)                  --Регистрация кнопки: кнопка закрытия окна  
self:Register (self.button_close, "button_close")  
end  

function ui_medkit_ai2:InitCallBacks()         --Функци коллбеков  
          self:AddCallback("button_cystamine", ui_events.BUTTON_CLICKED, self.OnButton_cystamine_clicked, self)  --Коллбек кнопки взятия цистамина  
          self:AddCallback("button_kalium", ui_events.BUTTON_CLICKED, self.OnButton_kalium_clicked, self)        --Коллбек кнопки взятия калиума  
          self:AddCallback("button_chlor", ui_events.BUTTON_CLICKED, self.OnButton_chlor_clicked, self)          --Коллбек кнопки взятия хлора  
          self:AddCallback("button_sulfad", ui_events.BUTTON_CLICKED, self.OnButton_sulfad_clicked, self)        --Коллбек кнопки взятия сульфада  
          self:AddCallback("button_antiemetic", ui_events.BUTTON_CLICKED, self.OnButton_antiemetic_clicked, self)  --Коллбек кнопки взятия противорвотной штуки  
          self:AddCallback("button_close", ui_events.BUTTON_CLICKED, self.OnButton_close_clicked, self)          --Коллбек кнопки закрытия  
end  

function ui_medkit_ai2:OnKeyboard(dik,keyboard_action)    --Функция закрытия окна по нажатию на клавиатуре "Escape"  
            CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)      --Инициализируем нажатие кнопки на клаве  
            if keyboard_action == ui_events.WINDOW_KEY_PRESSED then  --Условие: если нажата кнопка на клаве  
               if dik == DIK_keys.DIK_ESCAPE then                    --Условие: если нажата конкретно кнопка "Escape"  
                 if has_alife_info("gui_medkit_got_cystamine") and has_alife_info("gui_medkit_got_kalium") and has_alife_info("gui_medkit_got_chlor") and has_alife_info("gui_medkit_got_antiemetic") and has_alife_info("gui_medkit_got_sulfad") then          
                  self:HideDialog()                    --То при нажатии на кнопку - закрываем окошко          
               disable_info("gui_medkit_got_cystamine")   --И деактивируем обратно инфы, чтобы потом не было глюков  
               disable_info("gui_medkit_got_kalium")  
               disable_info("gui_medkit_got_chlor")  
               disable_info("gui_medkit_got_antiemetic")  
               disable_info("gui_medkit_got_sulfad")  
              else               --В любом другом случае  
                  self:HideDialog()                        --При нажатии на кнопку закрытия, закрываем окошко  
                  give_object_to_actor("medkit_ai2")    --Выдаем обратно аптечку  
              end          
               end  
            end  
            return true  
end  

function ui_medkit_ai2:OnButton_cystamine_clicked()    --Функция коллбека кнопки взятия цистамина  
          db.actor:give_info_portion("gui_medkit_got_cystamine") --Инфопорция          
             give_object_to_actor("antirad_cystamine", 6)    --Выдаем цистамин  
             self.button_cystamine:Enable(false)    --После этих действий кнопка больше не работает          
end  

function ui_medkit_ai2:OnButton_kalium_clicked()    --Функция коллбека кнопки взятия калиума  
          db.actor:give_info_portion("gui_medkit_got_kalium") --Инфопорция          
             give_object_to_actor("antirad_kalium")    --Выдаем калиум  
             self.button_kalium:Enable(false)    --После этих действий кнопка больше не работает  
end  

function ui_medkit_ai2:OnButton_chlor_clicked()    --Функция коллбека кнопки взятия хлора  
          db.actor:give_info_portion("gui_medkit_got_chlor") --Инфопорция          
             give_object_to_actor("antibio_chlor", 5)    --Выдаем хлор  
             self.button_chlor:Enable(false)    --После этих действий кнопка больше не работает          
end  

function ui_medkit_ai2:OnButton_antiemetic_clicked()    --Функция коллбека кнопки взятия ПШ  
          db.actor:give_info_portion("gui_medkit_got_antiemetic") --Инфопорция          
             give_object_to_actor("antiemetic", 3)    --Выдаем ПШ  
             self.button_antiemetic:Enable(false)    --После этих действий кнопка больше не работает          
end  

function ui_medkit_ai2:OnButton_sulfad_clicked()    --Функция коллбека кнопки взятия сульфада  
          db.actor:give_info_portion("gui_medkit_got_sulfad") --Инфопорция          
             give_object_to_actor("antibio_sulfad", 5)    --Выдаем сульфад  
             self.button_sulfad:Enable(false)    --После этих действий кнопка больше не работает          
end  

function ui_medkit_ai2:OnButton_close_clicked()    --Функция коллбека кнопки закрытия  
--Если все медикаменты распакованы:  
             if has_alife_info("gui_medkit_got_cystamine") and has_alife_info("gui_medkit_got_kalium") and has_alife_info("gui_medkit_got_chlor") and has_alife_info("gui_medkit_got_antiemetic") and has_alife_info("gui_medkit_got_sulfad") then          
              self:HideDialog()                    --То при нажатии на кнопку - закрываем окошко          
           disable_info("gui_medkit_got_cystamine")   --И деактивируем обратно инфы, чтобы потом не было глюков  
           disable_info("gui_medkit_got_kalium")  
           disable_info("gui_medkit_got_chlor")  
           disable_info("gui_medkit_got_antiemetic")  
           disable_info("gui_medkit_got_sulfad")  
          else               --В любом другом случае  
              self:HideDialog()                        --При нажатии на кнопку закрытия (в окошке), закрываем окошко  
              give_object_to_actor("medkit_ai2")    --Выдаем обратно аптечку  
          end          
end  

function run_ui_medkit_ai2(folder)  
          folder:ShowDialog(true)  
end

xml:InitStatic ("medkit:caption_chlor",self.medkit)

self.button_sulfad = xml:Init3tButton ("medkit:btn_sulfad",self.medkit)

self:Register (self.button_sulfad, "button_sulfad")

--Запуск Gui  
function run_gui(gui, close_inv)  
if close_inv == true then  
gui:ShowDialog(true)  
game_hide_menu()  
level.show_weapon(false)  
else gui:ShowDialog(true)  
end  
end  

-- 'Создание предмета в рюкзаке ГГ.        
function give_object_to_actor(obj,count)        
           if count==nil then count=1 end        
           for i=1, count do        
               alife():create(obj,db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id(),db.actor:id())        
           end        
end

function on_use_item(sect)       
--Переменные  (пусть будут на будущее, но можно и удалить)       
local actor=db.actor       
local item_name=sect:section()       
local actor_pos=db.actor:position()       
local active_slot=db.actor:active_slot()       
local active_item=db.actor:active_item()       
local pistol_in_slot=db.actor:item_in_slot(2)       
local rifle_in_slot=db.actor:item_in_slot(3)       
local outfit_in_slot=db.actor:item_in_slot(7)       
local helm_in_slot=db.actor:item_in_slot(12)       
--Коллбеки       
       if item_name=="medkit_ai2" then        --При использовании аптечки  
              run_gui(ui_gui_elements.ui_medkit_ai2())    --Запускаем Gui  
          end       
end

if obj~=nil then       
          mod_callbacks.on_use_item(obj)       
          end

function actor_binder:use_inventory_item(obj)  
       if(obj) then  
        local s_obj = alife():object(obj:id())  
        if(s_obj) and (s_obj:section_name()=="drug_anabiotic") then  
         xr_effects.disable_ui_only(db.actor, nil)  
         level.add_cam_effector("camera_effects\\surge_02.anm", 10, false, "bind_stalker.anabiotic_callback")  
         level.add_pp_effector("surge_fade.ppe", 11, false)  
         give_info("anabiotic_in_process")  
         _G.mus_vol = get_console():get_float("snd_volume_music")  
         _G.amb_vol = get_console():get_float("snd_volume_eff")  
         get_console():execute("snd_volume_music 0")  
         get_console():execute("snd_volume_eff 0")  
        end  
       end  
       if obj~=nil then       
          mod_callbacks.on_use_item(obj)       
          end  
end

<file name="ui\ui_actor_hint_wnd">  

                  <texture id="ui_inGame2_PDA_icon_Stalker_machanik" x="6" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_VIP" x="26" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Trader" x="46" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Medic" x="66" y="543" width="19" height="19" />  
              <texture id="ui_inGame2_PDA_icon_Stalker_guide" x="26" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Actor_Box" x="6" y="522" width="19" height="19" />  
              <texture id="ui_inGame2_PDA_icon_Place_to_rest" x="6" y="501" width="19" height="19" />  
                          

              <texture id="ui_inGame2_PDA_icon_Stalker_machanik_small" x="22" y="630" width="15" height="14" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Trader_small" x="54" y="630" width="15" height="14" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Medic_small" x="70" y="630" width="15" height="14" />  
              <texture id="ui_inGame2_PDA_icon_Stalker_guide_small" x="38" y="630" width="15" height="14" />  
                  <texture id="ui_inGame2_PDA_icon_Actor_Box_small" x="6" y="630" width="15" height="14" />  
              <texture id="ui_inGame2_PDA_icon_Place_to_rest_small" x="70" y="610" width="15" height="15" />  

                  <texture id="ui_inGame2_PDA_icon_Primary_mission" x="4" y="563" width="23" height="23" />  
                  <texture id="ui_inGame2_PDA_icon_Secondary_mission" x="28" y="563" width="23" height="23" />  

                  <texture id="ui_inGame2_PDA_icon_secret" x="52" y="563" width="25" height="25" />  
                  <texture id="ui_inGame2_PDA_icon_location_legend" x="4" y="587" width="41" height="41" />  
                           
              <texture id="ui_inGame2_PDA_icon_Stalker_Leader" x="38" y="649" width="19" height="19" />  
                    <texture id="ui_inGame2_PDA_icon_Stalker_Leader_small" x="60" y="652" width="15" height="14" />              

             </file>

<texture id="ui_inGame2_PDA_icon_Stalker_Leader" x="38" y="649" width="19" height="19" />  
                    <texture id="ui_inGame2_PDA_icon_Stalker_Leader_small" x="60" y="652" width="15" height="14" />

<w>  
                <file name="ui\ui_actor_hint_wnd">  

                  <texture id="ui_inGame2_PDA_icon_Stalker_machanik" x="6" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_VIP" x="26" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Trader" x="46" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Medic" x="66" y="543" width="19" height="19" />  
              <texture id="ui_inGame2_PDA_icon_Stalker_guide" x="26" y="543" width="19" height="19" />  
                  <texture id="ui_inGame2_PDA_icon_Actor_Box" x="6" y="522" width="19" height="19" />  
              <texture id="ui_inGame2_PDA_icon_Place_to_rest" x="6" y="501" width="19" height="19" />  
                          

              <texture id="ui_inGame2_PDA_icon_Stalker_machanik_small" x="22" y="630" width="15" height="14" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Trader_small" x="54" y="630" width="15" height="14" />  
                  <texture id="ui_inGame2_PDA_icon_Stalker_Medic_small" x="70" y="630" width="15" height="14" />  
              <texture id="ui_inGame2_PDA_icon_Stalker_guide_small" x="38" y="630" width="15" height="14" />  
                  <texture id="ui_inGame2_PDA_icon_Actor_Box_small" x="6" y="630" width="15" height="14" />  
              <texture id="ui_inGame2_PDA_icon_Place_to_rest_small" x="70" y="610" width="15" height="15" />  

                  <texture id="ui_inGame2_PDA_icon_Primary_mission" x="4" y="563" width="23" height="23" />  
                  <texture id="ui_inGame2_PDA_icon_Secondary_mission" x="28" y="563" width="23" height="23" />  

                  <texture id="ui_inGame2_PDA_icon_secret" x="52" y="563" width="25" height="25" />  
                  <texture id="ui_inGame2_PDA_icon_location_legend" x="4" y="587" width="41" height="41" />  
                           
              <texture id="ui_inGame2_PDA_icon_Stalker_Leader" x="38" y="649" width="19" height="19" />  
                    <texture id="ui_inGame2_PDA_icon_Stalker_Leader_small" x="60" y="652" width="15" height="14" />              

             </file>

<!-- level_spot -->  
                   <ui_pda2_mechanic_location hint="st_ui_pda_legend_mechanic">  
                           <level_map spot="ui_pda2_mechanic_location_spot"/>  
                           <mini_map spot="ui_pda2_mechanic_location_mini_spot"/>  
                   </ui_pda2_mechanic_location>  
                   <ui_pda2_mechanic_location_spot width="19" height="19" stretch="1" alignment="c" location_level="-1" scale_min="3">  
                           <texture>ui_inGame2_PDA_icon_Stalker_machanik</texture>  
                   </ui_pda2_mechanic_location_spot>  
                   <ui_pda2_mechanic_location_mini_spot width="14" height="14" stretch="1" alignment="c" location_level="-1">  
                           <texture>ui_inGame2_PDA_icon_Stalker_machanik_small</texture>  
                   </ui_pda2_mechanic_location_mini_spot>

<ui_pda2_leader_location hint="st_ui_pda_legend_leader">  
                           <level_map spot="ui_pda2_leader_location_spot"/>  
                           <mini_map spot="ui_pda2_leader_location_mini_spot"/>  
                   </ui_pda2_leader_location>  
                   <ui_pda2_leader_location_spot width="19" height="19" stretch="1" alignment="c" location_level="-1" scale_min="3">  
                           <texture>ui_inGame2_PDA_icon_Stalker_Leader</texture>  
                   </ui_pda2_leader_location_spot>  
                   <ui_pda2_leader_location_mini_spot width="14" height="14" stretch="1" alignment="c" location_level="-1">  
                           <texture>ui_inGame2_PDA_icon_Stalker_Leader_small</texture>  
                   </ui_pda2_leader_location_mini_spot>

hint="st_ui_pda_legend_leader"

<ui_pda2_leader_location_spot width="19" height="19" stretch="1" alignment="c" location_level="-1" scale_min="3">  
                           <texture>ui_inGame2_PDA_icon_Stalker_Leader</texture>  
                   </ui_pda2_leader_location_spot>  
                   <ui_pda2_leader_location_mini_spot width="14" height="14" stretch="1" alignment="c" location_level="-1">  
                           <texture>ui_inGame2_PDA_icon_Stalker_Leader_small</texture>  
                   </ui_pda2_leader_location_mini_spot>

<string id="st_ui_pda_legend_leader">  
             <text>Лидер</text>  
            </string>

elseif map_spot == "medic" then  
                   map_location = "ui_pda2_medic_location"  
                   hint = "st_ui_pda_legend_medic"

elseif level.map_has_object_spot(npc_id, "ui_pda2_medic_location") ~= 0 then  
                   level.map_remove_object_spot(npc_id, "ui_pda2_medic_location")

elseif map_spot == "medic" then  
                  map_location = "ui_pda2_medic_location"

function reset_show_spot(npc, scheme, st, section)  
           local spot_section  
           if scheme == nil or scheme == "nil" then --Проверка на работоспособность схемы  
            spot_section = utils.cfg_get_string(st.ini, st.section_logic, "show_spot", npc, false, "")  
           else  
            spot_section = utils.cfg_get_string(st.ini, section, "show_spot", npc, false, "")  
           end  
           local map_spot = utils.cfg_get_string(st.ini, st.section_logic, "level_spot", npc, false, "")  --Проверка наличия оверрайда в логике  
           if map_spot == nil then  --Если нету, то  
            map_spot = utils.cfg_get_string(st.ini, section, "level_spot", npc, false, "")  --то оставляем как есть           
           end  
           if map_spot ~= nil then  --Если есть, то           
             map_spot = xr_logic.parse_condlist(npc, section, "level_spot", map_spot)  --Берем значение из логики НПС  
             map_spot = xr_logic.pick_section_from_condlist(db.actor, npc, map_spot)  --Или определяем, что это ГГ (выставляем метку ГГ)  
           end  
           --' printf("STALKER SPOT SECTION [%s]", utils.to_str(spot_section))  

           if spot_section == nil then  --Если наличие метки стоит на "false", то  
            spot_section = "true" --возвращаем наличие метки на "true"  
           end  

            local spot = "false"  
--    if character_community(npc) ~= "zombied" then  
             local spot_condlist = xr_logic.parse_condlist(npc, section, "show_spot", spot_section)  
             spot = xr_logic.pick_section_from_condlist(db.actor, npc, spot_condlist)  
--    end  

           local sim  = alife()  
           if not sim then  
            return  
           end  

           local obj  = sim:object(npc:id())  
           if obj and obj.online then  
            local npc_id = npc:id()  
            if spot == "false" then  
             -- прячем  
             obj:visible_for_map(false)  
            else  
             -- ставим  
             obj:visible_for_map(true)  
            end  
            if map_spot ~= nil then  --Если есть значение, то  
                local map_location = ""  
                local hint = ""  
                if map_spot == "trader" then  --Если значение "trader", то  
                  map_location = "ui_pda2_trader_location"  --Работает секция "ui_pda2_trader_location"  
                  hint = "st_ui_pda_legend_trader"  --И всплывает при наведении курсора текст "st_ui_pda_legend_trader"  
                elseif map_spot == "mechanic" then  --Дальше тому подобное  
                  map_location = "ui_pda2_mechanic_location"  
                  hint = "st_ui_pda_legend_mechanic"  
                elseif map_spot == "guider" then  
                  map_location = "ui_pda2_scout_location"  
                  hint = "st_ui_pda_legend_scout"  
--[[  
                  local smarts_tbl = sim_board.get_sim_board().smarts  
                  local npc_smrt_id = obj.m_smart_terrain_id  
                  if npc_smrt_id ~= 65535 and npc_smrt_id ~= nil then  
                            local npc_smart = smarts_tbl[npc_smrt_id].smrt  
                            if npc_smart then  
                            local smart_name = smart_names.get_smart_terrain_name(npc_smart)  
                            hint = game.translate_string(hint).."\\n"..game.translate_string("st_location").." "..smart_name  
                            end  
                  end  
]]  
                elseif map_spot == "quest_npc" then  
                  map_location = "ui_pda2_quest_npc_location"  
                  hint = "st_ui_pda_legend_vip"  
                elseif map_spot == "medic" then  
                  map_location = "ui_pda2_medic_location"  
                  hint = "st_ui_pda_legend_medic"  
                elseif map_spot == "leader" then  
                  map_location = "ui_pda2_leader_location"  
                  hint = "st_ui_pda_legend_leader"            
                end  
             if level.map_has_object_spot(npc_id, map_location) ~= 0 then  
                  level.map_remove_object_spot(npc_id, map_location)  
             end  
                if db.actor and npc and npc:general_goodwill(db.actor) > -1000 then  
              level.map_add_object_spot(npc_id, map_location, hint)  
             end  
            else  
                if level.map_has_object_spot(npc_id, "ui_pda2_trader_location") ~= 0 then  --Похожая система, только для убора метки  
                  level.map_remove_object_spot(npc_id, "ui_pda2_trader_location")  
                elseif level.map_has_object_spot(npc_id, "ui_pda2_mechanic_location") ~= 0 then  
                  level.map_remove_object_spot(npc_id, "ui_pda2_mechanic_location")  
                elseif level.map_has_object_spot(npc_id, "ui_pda2_scout_location") ~= 0 then  
                  level.map_remove_object_spot(npc_id, "ui_pda2_scout_location")  
                elseif level.map_has_object_spot(npc_id, "ui_pda2_quest_npc_location") ~= 0 then  
                  level.map_remove_object_spot(npc_id, "ui_pda2_quest_npc_location")  
                elseif level.map_has_object_spot(npc_id, "ui_pda2_medic_location") ~= 0 then  
                  level.map_remove_object_spot(npc_id, "ui_pda2_medic_location")  
                elseif level.map_has_object_spot(npc_id, "ui_pda2_leader_location") ~= 0 then  
                  level.map_remove_object_spot(npc_id, "ui_pda2_leader_location")            
                end  
            end  
           end  
end  

function remove_level_spot(npc, st)  
           local map_spot = utils.cfg_get_string(st.ini, st.section_logic, "level_spot", npc, false, "") --Проверка наличия оверрайда в логике  
           if map_spot == nil then  --Если нету, то  
            map_spot = utils.cfg_get_string(st.ini, st.active_section, "level_spot", npc, false, "")    --то оставляем как есть           
           end  
           if map_spot ~= nil then   --Если есть, то           
             map_spot = xr_logic.parse_condlist(npc, st.active_section, "level_spot", map_spot)  --Берем значение из логики НПС  
             map_spot = xr_logic.pick_section_from_condlist(db.actor, npc, map_spot)    --Или определяем, что это ГГ (выставляем метку ГГ)  
           end  
           local sim  = alife()  
           if not sim then  
            return  
           end  

           local obj  = sim:object(npc:id())  
           if obj then   --Если объект существует  
            local npc_id = npc:id()  --Локальная переменная "obj"  
            if map_spot ~= "" and map_spot ~= nil then  --Начинаем перечислять "Если значение...", если в значении вообще что-то есть  
               local map_location = ""  --Локальная переменная "map_location" = "выставляемое значение"  
               if map_spot == "trader" then   --Если значение оверрайда - "trader", то  
                 map_location = "ui_pda2_trader_location"  --то убирается секция "ui_pda2_trader_location"  
               elseif map_spot == "mechanic" then  --Если "mechanik", то  
                 map_location = "ui_pda2_mechanic_location"  --то секция "ui_pda2_mechanic_location"  
               elseif map_spot == "guider" then --И так далее...  
                 map_location = "ui_pda2_scout_location"  
               elseif map_spot == "quest_npc" then  
                 map_location = "ui_pda2_quest_npc_location"  
               elseif map_spot == "medic" then  
                 map_location = "ui_pda2_medic_location"  
               elseif map_spot == "leader" then  
                 map_location = "ui_pda2_leader_location"            
               end  
             if level.map_has_object_spot(npc_id, map_location) ~= 0 then            
                level.map_remove_object_spot(npc_id, map_location)  --Убираем метку  
             end  
            end  
           end  
end

show_spot = leader    ;Значение "leader" мы зарегистрировали в скрипте

function create_helicopter( actor, obj, p )  
if p and p[ 1 ] then --проверяем, что секция пути в функцию передана  
--проверяем, есть ли такая секция в all.spawn  
if not level.patrol_path_exists( p[ 1 ] ) then  
--если нет, то вылетаем на рабочий стол  
abort("Path %s doesnt exist. Function 'create_helicopter'", tostring( p[ 1 ] ) )  
end  
local ptr = patrol( p[ 1 ] )  
local position = ptr:point( 0 ) -- получаем позицию ( вектор ) точки спавна  
local lv_id = ptr:level_vertex_id( 0 ) -- получаем левел вертекс точки спавна  
local gv_id = ptr:game_vertex_id( 0 ) -- получаем гейм вертекс точки спавна  
local section = "helicopter" -- секцию берём из gamedata\configs\creatures\helicopter.ltx  
--создаём серверный объект вертолёта  
local s_obj = alife():create( section, position, lv_id, gv_id )  
end  
end

local logic_helicopter = "[logic]\n"..  
"active = heli_move@idle\n"..  
"[heli_move@idle]\n"..  
"path_move = "..tostring( p[ 1 ] ).."\n"..  
"path_look = actor\n"..  
"invulnerable = true\n"..  
"max_velocity = 50\n"..  
"enemy = nil\n"..  
"immortal = true\n"..  
"use_rocket = false\n"..  
"use_mgun = false\n"..  
"upd_vis = 3\n"..  
"engine_sound = true\n"

function create_helicopter( actor, obj, p )  
if p and p[ 1 ] then --проверяем, что секция пути в функцию передана  
if not level.patrol_path_exists( p[ 1 ] ) then --проверяем есть ли такая секция в all.spawn  
--если нет, то вылетаем на рабочий стол  
abort("Path %s doesnt exist. Function 'create_helicopter'", tostring( p[ 1 ] ) )  
end  
local logic_helicopter = "[logic]\n"..  
"active = heli_move@idle\n"..  
"[heli_move@idle]\n"..  
"path_move = "..tostring( p[ 1 ] ).."\n"..  
"path_look = actor\n"..  
"invulnerable = true\n"..  
"max_velocity = 50\n"..  
"enemy = nil\n"..  
"immortal = true\n"..  
"use_rocket = false\n"..  
"use_mgun = false\n"..  
"upd_vis = 3\n"..  
"engine_sound = true\n"  
local ptr = patrol( p[ 1 ] )  
local position = ptr:point( 0 ) -- получаем позицию ( вектор ) точки спавна  
local lv_id = ptr:level_vertex_id( 0 ) -- получаем левел вертекс точки спавна  
local gv_id = ptr:game_vertex_id( 0 ) -- получаем гейм вертекс точки спавна  
local section = "helicopter" -- секцию берём из gamedata\configs\creatures\helicopter.ltx  
local s_obj = alife():create( section, position, lv_id, gv_id ) --создаём серверный объект вертолёта  
end  
end

local packet = net_packet() --берём пустой нет-пакет  
packet:w_begin( 0 ) -- указатель на начало записи  
s_obj:STATE_Write( packet ) -- пишем STATE часть нет-пакета вертолёта в наш пустой нет-пакет  
packet:r_seek( 2 ) -- начинаем читать наш пакет  
local game_vertex_id    = packet:r_u16()  
local distance = packet:r_float()  
local direct_control = packet:r_s32()  
local level_vertex_id = packet:r_s32()  
local object_flags    = packet:r_s32()  
local custom_data = packet:r_stringZ()  
local story_id = packet:r_s32()  
local spawn_story_id    = packet:r_s32()  
local visual_name = packet:r_stringZ()  
local visual_flags    = packet:r_u8()  
local motion_name    = packet:r_stringZ()  
local skeleton_name = packet:r_stringZ()  
local skeleton_flags = packet:r_u8()  
local source_id = packet:r_u16()  
local startup_animation = packet:r_stringZ()  
local engine_sound = packet:r_stringZ()

function create_helicopter( actor, obj, p )  
if p and p[ 1 ] then --проверяем, что секция пути в функцию передана  
if not level.patrol_path_exists( p[ 1 ] ) then --проверяем есть ли такая секция в all.spawn  
--если нет, то вылетаем на рабочий стол  
abort("Path %s doesnt exist. Function 'create_helicopter'", tostring( p[ 1 ] ) )  
end  
local logic_helicopter = "[logic]\n"..  
"active = heli_move@idle\n"..  
"[heli_move@idle]\n"..  
"path_move = "..tostring( p[ 1 ] ).."\n"..  
"path_look = actor\n"..  
"invulnerable = true\n"..  
"max_velocity = 50\n"..  
"enemy = nil\n"..  
"immortal = true\n"..  
"use_rocket = false\n"..  
"use_mgun = false\n"..  
"upd_vis = 3\n"..  
"engine_sound = true\n"  
local ptr = patrol( p[ 1 ] )  
local position = ptr:point( 0 ) -- получаем позицию ( вектор ) точки спавна  
local lv_id = ptr:level_vertex_id( 0 ) -- получаем левел вертекс точки спавна  
local gv_id = ptr:game_vertex_id( 0 ) -- получаем гейм вертекс точки спавна  
local section = "helicopter" -- секцию берём из gamedata\configs\creatures\helicopter.ltx  
local s_obj = alife():create( section, position, lv_id, gv_id ) --создаём серверный объект вертолёта  
local packet = net_packet() --берём пустой нет-пакет  
packet:w_begin( 0 ) -- начинаем запись с нулевого байта  
s_obj:STATE_Write( packet ) -- пишем STATE часть нет-пакета вертолёта в наш пустой нет-пакет  
packet:r_seek( 2 ) -- начинаем читать наш пакет  
local game_vertex_id    = packet:r_u16()  
local distance = packet:r_float()  
local direct_control = packet:r_s32()  
local level_vertex_id = packet:r_s32()  
local object_flags    = packet:r_s32()  
local custom_data = packet:r_stringZ()  
local story_id = packet:r_s32()  
local spawn_story_id    = packet:r_s32()  
local visual_name = packet:r_stringZ()  
local visual_flags    = packet:r_u8()  
local motion_name    = packet:r_stringZ()  
local skeleton_name = packet:r_stringZ()  
local skeleton_flags = packet:r_u8()  
local source_id = packet:r_u16()  
local startup_animation = packet:r_stringZ()  
local engine_sound = packet:r_stringZ()  
end  
end

custom_data = logic_helicopter  
motion_name    = "idle"  
skeleton_name = "idle"  
startup_animation = "idle"  
visual_name = "dynamics\\vehicles\\mi24\\veh_mi24_u_01"  
engine_sound = "vehicles\\helicopter\\helicopter"

local logic_helicopter = "[logic]\ncfg = scripts\\zaton\\logic_helicopter.ltx"

function create_helicopter( actor, obj, p )  
if p and p[ 1 ] then --проверяем, что секция пути в функцию передана  
if not level.patrol_path_exists( p[ 1 ] ) then --проверяем есть ли такая секция в all.spawn  
--если нет, то вылетаем на рабочий стол  
abort("Path %s doesnt exist. Function 'create_helicopter'", tostring( p[ 1 ] ) )  
end  
local logic_helicopter = "[logic]\n"..  
"active = heli_move@idle\n"..  
"[heli_move@idle]\n"..  
"path_move = "..tostring( p[ 1 ] ).."\n"..  
"path_look = actor\n"..  
"invulnerable = true\n"..  
"max_velocity = 50\n"..  
"enemy = nil\n"..  
"immortal = true\n"..  
"use_rocket = false\n"..  
"use_mgun = false\n"..  
"upd_vis = 3\n"..  
"engine_sound = true\n"  
local ptr = patrol( p[ 1 ] )  
local position = ptr:point( 0 ) -- получаем позицию ( вектор ) точки спавна  
local lv_id = ptr:level_vertex_id( 0 ) -- получаем левел вертекс точки спавна  
local gv_id = ptr:game_vertex_id( 0 ) -- получаем гейм вертекс точки спавна  
local section = "helicopter" -- секцию берём из gamedata\configs\creatures\helicopter.ltx  
local s_obj = alife():create( section, position, lv_id, gv_id ) --создаём серверный объект вертолёта  
local packet = net_packet() --берём пустой нет-пакет  
packet:w_begin( 0 ) -- указатель записи  
-- пишем STATE часть нет-пакета вертолёта в наш пустой нет-пакет  
s_obj:STATE_Write( packet )  
packet:r_seek( 2 )  
-- начинаем читать наш пакет  
local game_vertex_id    = packet:r_u16()  
local distance = packet:r_float()  
local direct_control = packet:r_s32()  
local level_vertex_id = packet:r_s32()  
local object_flags    = packet:r_s32()  
local custom_data = packet:r_stringZ()  
local story_id = packet:r_s32()  
local spawn_story_id    = packet:r_s32()  
local visual_name = packet:r_stringZ()  
local visual_flags    = packet:r_u8()  
local motion_name    = packet:r_stringZ()  
local skeleton_name = packet:r_stringZ()  
local skeleton_flags = packet:r_u8()  
local source_id = packet:r_u16()  
local startup_animation = packet:r_stringZ()  
local engine_sound = packet:r_stringZ()  
-- меняем параметры, прочитанные из нет-пакета  
custom_data = logic_helicopter  
motion_name    = "idle"  
skeleton_name = "idle"  
startup_animation = "idle"  
visual_name = "dynamics\\vehicles\\mi24\\veh_mi24_u_01"  
engine_sound = "vehicles\\helicopter\\helicopter"  
-- начинаем писать в наш пакет изменённые параметры  
packet:w_begin( 0 )  
packet:w_u16( game_vertex_id )  
packet:w_float( distance )  
packet:w_s32( direct_control )  
packet:w_s32( level_vertex_id )  
packet:w_s32( object_flags )  
packet:w_stringZ( custom_data )  
packet:w_s32( story_id )  
packet:w_s32( spawn_story_id )  
packet:w_stringZ( visual_name )  
packet:w_u8( visual_flags )  
packet:w_stringZ( motion_name )  
packet:w_stringZ( skeleton_name )  
packet:w_u8( skeleton_flags )  
packet:w_u16( source_id )  
packet:w_stringZ( startup_animation )  
packet:w_stringZ( engine_sound )  
packet:r_seek( 2 )  
-- пишем STATE часть из нашего нет-пакета в нет-пакет вертолёта  
s_obj:STATE_Read( packet, packet:w_tell() )  
end  
end

local callbacks={   
update={},   
game_load={},   
death={},   
npc_death={},   
monster_death={},   
offline_death={},   
net_spawn={},   
net_destroy={},   
info={},   
item_drop={},   
item_take={},   
item_take_from_box={},   
hit={},   
monster_hit={},   
npc_hit={},   
enemy_see_actor={},   
actor_see_enemy={},   
npc_shot_actor={},   
respawn={},   
use={},   
actor_destroy={},   
main_menu_on={},   
main_menu_off={},   
------------------makdm_start   
use_inventory_item = {   
medkit = {},   
medkit_army = {},   
medkit_scientic = {}   
}   
------------------makdm_end   
}

function reg_use_inv_item_callback( name, sect, func, userobj )   
callbacks[name][sect][func]={userobj=userobj}   
end   

function unreg_use_inv_item_callback( name, sect, func )   
callbacks[name][sect][func]=nil   
end

function use_inventory_item( section )   
if callbacks.use_inventory_item[section] == nil then return end   
for func,o in pairs( callbacks.use_inventory_item[section] ) do   
func( section, o.userobj )   
end   
end

function init()   
init_module_if_exists("use_item_callbacks")   
end

function init()
xr_s.reg_use_inv_item_callback( "use_inventory_item", "medkit", medkit, nil )
xr_s.reg_use_inv_item_callback( "use_inventory_item", "medkit_army", medkit_army, nil )
xr_s.reg_use_inv_item_callback( "use_inventory_item", "medkit_scientic", medkit_scientic, nil )
end[

function medkit( section )
-- здесь мы обрабатываем событие - использование аптечки
end
function medkit_army( section )
-- здесь мы обрабатываем событие - использование армейской аптечки
end
function medkit_scientic( section )
-- здесь мы обрабатываем событие - использование научной аптечки
end

#define ARIAL_FONT_NAME   "arial"

#define MEDIUM_FONT_NAME  "medium"
#define SMALL_FONT_NAME   "small"

#define GRAFFITI19_FONT_NAME    "graffiti19"
#define GRAFFITI22_FONT_NAME    "graffiti22"
#define GRAFFITI32_FONT_NAME    "graffiti32"
#define GRAFFITI50_FONT_NAME    "graffiti50"

#define LETTERICA16_FONT_NAME    "letterica16"
#define LETTERICA18_FONT_NAME    "letterica18"
#define LETTERICA25_FONT_NAME    "letterica25"

#define DI_FONT_NAME   "di"

#define ПЕРЕМЕННАЯ      "название"

bool CUIXmlInit::InitFont(CUIXml &xml_doc, LPCSTR path, int index, u32 &color, CGameFont *&pFnt)
{
         color = GetColor    (xml_doc, path, index, 0xff);

         LPCSTR font_name = xml_doc.ReadAttrib(path, index, "font", NULL);
         if(!font_name)
         {
          pFnt = NULL;
          return false;
         }else
         {
          if(!xr_strcmp(font_name, GRAFFITI19_FONT_NAME))
          {
           pFnt = UI().Font().pFontGraffiti19Russian;
          }
          else if(!xr_strcmp(font_name, GRAFFITI22_FONT_NAME))
          {
           pFnt = UI().Font().pFontGraffiti22Russian;
          }
          else if(!xr_strcmp(font_name, GRAFFITI32_FONT_NAME))
          {
           pFnt = UI().Font().pFontGraffiti32Russian;
          }
          else if(!xr_strcmp(font_name, GRAFFITI50_FONT_NAME))
          {
           pFnt = UI().Font().pFontGraffiti50Russian;
          }
          else if(!xr_strcmp(font_name, "arial_14"))
          {
           pFnt = UI().Font().pFontArial14;
          }
          else if(!xr_strcmp(font_name, MEDIUM_FONT_NAME))
          {
           pFnt = UI().Font().pFontMedium;
          }
          else if(!xr_strcmp(font_name, SMALL_FONT_NAME))
          {
           pFnt = UI().Font().pFontStat;
          }
          else if(!xr_strcmp(font_name, LETTERICA16_FONT_NAME))
          {
           pFnt = UI().Font().pFontLetterica16Russian;
          }
          else if(!xr_strcmp(font_name, LETTERICA18_FONT_NAME))
          {
           pFnt = UI().Font().pFontLetterica18Russian;
          }
          else if(!xr_strcmp(font_name, LETTERICA25_FONT_NAME))
          {
           pFnt = UI().Font().pFontLetterica25;
          }
          else if(!xr_strcmp(font_name, DI_FONT_NAME))
          {
           pFnt = UI().Font().pFontDI;
          }else
          {
           R_ASSERT3(0,"unknown font",font_name);
           pFnt    = NULL;
          }
         }
         return true;
}

R_ASSERT3(0,"unknown font",font_name);
           pFnt    = NULL;

"arial_17"

"medium"
"small"

"graffiti19"
"graffiti22"
"graffiti32"
"graffiti50"

"letterica16"
"letterica18"
"letterica25"

function test_position_spawn(actor, npc)
local spawn_place = npc:position()
alife():create("wpn_abakan", spawn_place)
end

function test_position_spawn(actor, npc)
local obj = get_story_object("story_id_предмета")
alife():create("wpn_abakan", obj:position())
end

<texture id="ui_inGame2_Osobiy_zakaz" x="332" y="799" width="83" height="47" />

</file>
</w>

<texture id="ui_inGame2_Metall_box" x="332" y="846" width="82" height="49" />

[zat_b100_heli_2_crash]    
icon = ui_inGame2_Metall_box - новая иконка    
prior = 104    
storyline = true    
title = zat_b100_heli_2_crash_name    
descr = zat_b100_heli_2_crash_text    
target = zat_b100_heli_2    
condlist_0 = {+zat_b100_heli_2_searched} complete, {+pri_b305_actor_wondered_done} complete

class "ui_test_gui" (CUIScriptWnd)

function ui_test_gui:__init(owner) super()
         self.owner = owner
         self:InitControls()
         self:InitCallBacks()
end

function ui_test_gui:__finalize()
end

function ui_test_gui:InitControls()
self:SetWndRect   (Frect():set(0,0,1024,768))
local xml, ctrl   = CScriptXmlInit(), CUIWindow()
xml:ParseFile   ("ui_gui_elements.xml")
self.main_panel    = xml:InitStatic("test_gui",self)
xml:InitStatic ("test_gui:test_gui_text",self.main_panel)

self.button_exit = xml:Init3tButton ("test_gui:btn_exit",self.main_panel)
self:Register (self.button_exit, "button_exit")

end

function ui_test_gui:InitCallBacks()
         self:AddCallback("button_exit", ui_events.BUTTON_CLICKED, self.OnButton_exit_clicked, self)
end

function ui_test_gui:OnButton_exit_clicked()
        self:HideDialog()
end

function ui_test_gui:OnKeyboard(dik,keyboard_action)
           CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)
           if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
              if dik == DIK_keys.DIK_ESCAPE then
               self:HideDialog()
              end
           end
           return true
end

function run_ui_test_gui(folder)
         folder:ShowDialog(true)
end

function run_gui(gui, close_inv)
    if close_inv == true then
  gui:ShowDialog(true)
  game_hide_menu()
  level.show_weapon(false)
    else gui:ShowDialog(true)
end
end

function run_gui_effects(actor, npc)
_g.run_gui(ui_gui_element.ui_test_gui())
end

<?xml version="1.0" encoding="windows-1251" ?>
<gui>
    <test_gui x="98" y="87" width="827" height="573">
           <texture x="0" y="0" width="827" height="573">ui\ui_name_texture</texture>
          <test_gui_text x="552" y="16" width="250" height="25">
                    <text font="letterica16" align="l">test_gui_text</text>
                  </test_gui_text>
            <btn_exit x="682" y="532" width="120" height="25">
               <texture>ui_inGame2_Mp_bigbuttone</texture>
                <text font="letterica18">button_exist_text</text>
           </btn_exit>
        </test_gui>

</gui>

[remote_explosive_box_1]:inventory_box
$spawn = "devices\remote_explosive_box_1"
visual    = dynamics\box\expl_dinamit.ogf
custom_data    = scripts\remote_explosive_box_1.ltx
story_id = remote_explosive_box_1

[remote_explosive_box_2]:remote_explosive_box_1
$spawn = "devices\remote_explosive_box_2"
custom_data    = scripts\remote_explosive_box_2.ltx
story_id = remote_explosive_box_2

[remote_explosive_box_3]:remote_explosive_box_1
$spawn = "devices\remote_explosive_box_3"
custom_data    = scripts\remote_explosive_box_3.ltx
story_id = remote_explosive_box_3

[remote_explosive_bomb_1]:explosive_grenade
$spawn = "devices\remote_explosive_bomb_1"
story_id = remote_explosive_bomb_1
visual    = dynamics\box\expl_dinamit.ogf
explode_particles    = explosions\explosion_barrel
blast    = 5.0 ; Сила ударной волны
blast_r    = 25.0 ; Радиус ударной волны
frags    = 30 ; Кол-во осколков
frags_r    = 30.0; Радиус разлёта осколков
frag_hit    = 1.5; Убойность осколка

[remote_explosive_bomb_2]:remote_explosive_bomb_1
$spawn = "devices\remote_explosive_bomb_2"
story_id = remote_explosive_bomb_2

[remote_explosive_bomb_3]:remote_explosive_bomb_1
$spawn = "devices\remote_explosive_bomb_3"
story_id = remote_explosive_bomb_3

; Заряд, покупаемый у торговца.
[remote_explosive_charge]:booster
$spawn = "devices\remote_explosive_charge"
visual    = dynamics\box\expl_dinamit.ogf
inv_name    = st_remote_explosive_charge
inv_name_short    = st_remote_explosive_charge
description    = st_remote_explosive_charge_descr
inv_weight    = 3.0
inv_grid_width    = 2
inv_grid_height    = 2
inv_grid_x    = 14
inv_grid_y    = 23
cost    = 20000

; Пульт для подрыва.
[remote_explosive_pda]:booster
$spawn = "devices\remote_explosive_pda"
visual    = dynamics\devices\dev_decoder\dev_decoder.ogf
inv_name    = st_remote_explosive_pda
inv_name_short    = st_remote_explosive_pda
description    = st_remote_explosive_pda_descr
inv_weight    = 0.3
inv_grid_width    = 1
inv_grid_height    = 1
inv_grid_x    = 15
inv_grid_y    = 8
cost    = 20
can_trade    = false
quest_item = true

<string id="st_remote_explosive_charge">
<text>Заряд РС-15 с блок-детонатором</text>
</string>
<string id="st_remote_explosive_charge_descr">
<text>Подрывной заряд. Идет в комплекте с пультом управления. Для установки заряда его необходимо использовать. После установки заряда необходимо установить таймер взрывателя. Задержку взрыва можно выставить в диапазоне от одной до десяти секунд.</text>
</string>
<string id="st_remote_explosive_pda">
<text>Пульт управления зарядом РС-15</text>
</string>
<string id="st_remote_explosive_pda_descr">
<text>Для детонации установленных зарядов РС-15 пульт необходимо использовать. Для надёжного срабатывания установленных зарядов они должны нахлдиться не далее 150 метров от игрока.</text>
</string>

<treasure hint="st_ui_pda_secret">
<level_map spot="treasure_spot" pointer="quest_pointer"/>
<mini_map spot="treasure_spot_mini"/>
</treasure>
<treasure_spot width="20" height="20" alignment="c" stretch="1">
<texture>ui_inGame2_PDA_icon_secret</texture>
</treasure_spot>
<treasure_spot_mini width="17" height="17" alignment="c" stretch="1">
<texture>ui_inGame2_PDA_icon_secret</texture>
</treasure_spot_mini>

<explosive hint="st_ui_pda_explosive">
<level_map spot="explosive_spot" pointer="quest_pointer"/>
<mini_map spot="explosive_spot_mini"/>
</explosive>
<explosive_spot width="20" height="20" alignment="c" stretch="1">
<texture>ui_inGame2_PDA_icon_explosive</texture>
</explosive_spot>
<explosive_spot_mini width="17" height="17" alignment="c" stretch="1">
<texture>ui_inGame2_PDA_icon_explosive</texture>
</explosive_spot_mini>

<texture id="ui_inGame2_PDA_icon_secret" x="52" y="563" width="25" height="25" />

<texture id="ui_inGame2_PDA_icon_explosive" x="52" y="563" width="25" height="25" />

<string id="st_ui_pda_explosive">
<text>Заряд РС-15</text>
</string>

<string id="st_remote_explosive_no_use">
<text>Один пульт поддерживает только три заряда.</text>
</string>
<string id="st_remote_explosive_install">
<text>Заряд РС-15 успешно установлен. Выставьте таймер взрывателя.</text>
</string>
<string id="st_remote_explosive_detonator">
<text>Таймер взрывателя РС-15 активирован.</text>
</string>
<string id="st_remote_explosive_pda_init">
<text>На заряды РС-15 отправлен сигнал подрыва.</text>
</string>
<string id="st_explosive_remote_code">
<text>Выставить таймер заряда ($ACTION_USE$)</text>
</string>

<remote_explosive_no_use>
<global_wnd/>

<item>
<length_sec>9</length_sec>
<pause_state>off</pause_state>
<guard_key/>
<sound>device\pda\pda_news</sound>
<cursor_pos/>
<pda_section/>
<grab_input>0</grab_input>
<main_wnd>
<auto_static start_time="0" length_sec="8000" x="10" y="275" width="400" height="150" alignment="l" stretch="1" light_anim="" la_cyclic="1" la_texture="1" la_alpha="1">
<window_name>w1</window_name>
<text font="graffiti22" r="225" g="225" b="250" a="255">st_remote_explosive_no_use</text>
</auto_static>
</main_wnd>
</item>
</remote_explosive_no_use>

[logic]
active = ph_code

[ph_idle]
nonscript_usable = false

[ph_code]
tips = st_explosive_remote_code
on_info = {+remote_explosive_pda_init} nil %=remote_explosive_box_1_activate%

on_check_code1 = 1 | %+remote_1_1_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info1 = {+remote_1_1_explosive} ph_idle@1

on_check_code2 = 2 | %+remote_1_2_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info2 = {+remote_1_2_explosive} ph_idle@2

on_check_code3 = 3 | %+remote_1_3_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info3 = {+remote_1_3_explosive} ph_idle@3

on_check_code4 = 4 | %+remote_1_4_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info4 = {+remote_1_4_explosive} ph_idle@4

on_check_code5 = 5 | %+remote_1_5_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info5 = {+remote_1_5_explosive} ph_idle@5

on_check_code6 = 6 | %+remote_1_6_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info6 = {+remote_1_6_explosive} ph_idle@6

on_check_code7 = 7 | %+remote_1_7_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info7 = {+remote_1_7_explosive} ph_idle@7

on_check_code8 = 8 | %+remote_1_8_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info8 = {+remote_1_8_explosive} ph_idle@8

on_check_code9 = 9 | %+remote_1_9_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info9 = {+remote_1_9_explosive} ph_idle@9

on_check_code10 = 10 | %+remote_1_10_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info10 = {+remote_1_10_explosive} ph_idle@10

[ph_idle@1]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@1t

[ph_idle@1t]:ph_idle
on_game_timer = 10 | nil %=remote_explosive_box_1_activate%

[ph_idle@2]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@2t

[ph_idle@2t]:ph_idle
on_game_timer = 20 | nil %=remote_explosive_box_1_activate%

[ph_idle@3]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@3t

[ph_idle@3t]:ph_idle
on_game_timer = 30 | nil %=remote_explosive_box_1_activate%

[ph_idle@4]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@4t

[ph_idle@4t]:ph_idle
on_game_timer = 40 | nil %=remote_explosive_box_1_activate%

[ph_idle@5]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@5t

[ph_idle@5t]:ph_idle
on_game_timer = 50 | nil %=remote_explosive_box_1_activate%

[ph_idle@6]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@6t

[ph_idle@6t]:ph_idle
on_game_timer = 60 | nil %=remote_explosive_box_1_activate%

[ph_idle@7]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@7t

[ph_idle@7t]:ph_idle
on_game_timer = 70 | nil %=remote_explosive_box_1_activate%

[ph_idle@8]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@8t

[ph_idle@8t]:ph_idle
on_game_timer = 80 | nil %=remote_explosive_box_1_activate%

[ph_idle@9]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@9t

[ph_idle@9t]:ph_idle
on_game_timer = 90 | nil %=remote_explosive_box_1_activate%

[ph_idle@10]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@10t

[ph_idle@10t]:ph_idle
on_game_timer = 100 | nil %=remote_explosive_box_1_activate%

on_check_code1 = 1 | %+remote_1_1_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info1 = {+remote_1_1_explosive} ph_idle@1

on_check_code2 = 2 | %+remote_1_2_explosive =send_tip(st_remote_explosive_detonator:got_ammo)%
on_info2 = {+remote_1_2_explosive} ph_idle@2

[ph_idle@1]:ph_idle
on_info = {+remote_explosive_pda_init} ph_idle@1t

[ph_idle@1t]:ph_idle
on_game_timer = 10 | nil %=remote_explosive_box_1_activate%

-- 'Удаление нескольких инфопортаций по возрастающим номерам.
function disable_several_info(l_part,r_part,count_a,count_b)
if count_b==nil then
count_b=count_a
count_a=1
end
for i=count_a,count_b do
disable_info(l_part..i..r_part)
end
end

-- 'Удалить все обьекты с указанной секцией.
function release_objects_by_section(find_string)
for a=1,65534 do
local obj = alife():object(a)
if obj then
if obj:section_name()~=nil and string.find(obj:section_name(),find_string) then
local sect=obj:section_name()
remove_object_by_id(obj.id)
end
end
end
end

-- 'Удалить все обьекты с указанным именем.
function release_objects_by_name(find_string)
for a=1,65534 do
local obj = alife():object(a)
if obj then
if obj:name()~=nil and string.find(obj:name(),find_string) then
local sect=obj:name()
remove_object_by_id(obj.id)
end
end
end
end

-- 'Удаление обьекта по его ID.
function remove_object_by_id(item_id)
if item_id~=nil and alife():object(item_id) then
alife():release(alife():object(item_id),true)
end
end

-- 'Закрыть инвентарь/КПК.
function game_hide_menu(type)
if type==1 then
get_hud():HideActorMenu()
elseif type==2 then
get_hud():HidePdaMenu()
else
get_hud():HideActorMenu()
get_hud():HidePdaMenu()
end
end

-- 'Создание предмета в рюкзаке ГГ.
function give_object_to_actor(section,count)
if count==nil then count=1 end
for i=1, count do
alife():create(section,db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id(),db.actor:id())
end
end

function actor_binder:use_inventory_item(obj)
if(obj) then
local s_obj = alife():object(obj:id())
if(s_obj) and (s_obj:section_name()=="drug_anabiotic") then
xr_effects.disable_ui_only(db.actor, nil)
level.add_cam_effector("camera_effects\\surge_02.anm", 10, false, "bind_stalker.anabiotic_callback")
level.add_pp_effector("surge_fade.ppe", 11, false)
give_info("anabiotic_in_process")
_G.mus_vol = get_console():get_float("snd_volume_music")
_G.amb_vol = get_console():get_float("snd_volume_eff")
get_console():execute("snd_volume_music 0")
get_console():execute("snd_volume_eff 0")
end
end
end

function actor_binder:use_inventory_item(obj)
if(obj) then
local s_obj = alife():object(obj:id())
if(s_obj) and (s_obj:section_name()=="drug_anabiotic") then
xr_effects.disable_ui_only(db.actor, nil)
level.add_cam_effector("camera_effects\\surge_02.anm", 10, false, "bind_stalker.anabiotic_callback")
level.add_pp_effector("surge_fade.ppe", 11, false)
give_info("anabiotic_in_process")
_G.mus_vol = get_console():get_float("snd_volume_music")
_G.amb_vol = get_console():get_float("snd_volume_eff")
get_console():execute("snd_volume_music 0")
get_console():execute("snd_volume_eff 0")
end
if(s_obj) and s_obj:section_name()=="remote_explosive_charge" then
addon_callbacks.remote_explosive_charge_init()
end
if(s_obj) and s_obj:section_name()=="remote_explosive_pda" then
addon_callbacks.remote_explosive_pda_init()
end
end
end

function remote_explosive_charge_init()
local actor = db.actor
if has_alife_info("remote_explosive_pda_init") then
release_objects_by_section("remote_explosive_box_")
release_objects_by_section("remote_explosive_bomb_")
if has_alife_info("remote_explosive_1_install") then disable_info("remote_explosive_1_install") end
if has_alife_info("remote_explosive_2_install") then disable_info("remote_explosive_2_install") end
if has_alife_info("remote_explosive_3_install") then disable_info("remote_explosive_3_install") end
disable_info("remote_explosive_pda_init")
end
if db.actor:object("remote_explosive_pda") == nil then
give_object_to_actor("remote_explosive_pda")
end
if not has_alife_info("remote_explosive_1_install") then
disable_several_info("remote_1_","_explosive",1,10)
local sobj=alife():create("remote_explosive_box_1",actor:position(),actor:level_vertex_id(),actor:game_vertex_id())
give_info("remote_explosive_1_install")
level.map_add_object_spot_ser(sobj.id,"explosive","")
xr_effects.send_tip(db.actor,nil,{"st_remote_explosive_install","got_ammo"})
elseif not has_alife_info("remote_explosive_2_install") and has_alife_info("remote_explosive_1_install") then
disable_several_info("remote_2_","_explosive",1,10)
local sobj=alife():create("remote_explosive_box_2",actor:position(),actor:level_vertex_id(),actor:game_vertex_id())
give_info("remote_explosive_2_install")
level.map_add_object_spot_ser(sobj.id,"explosive","")
xr_effects.send_tip(db.actor,nil,{"st_remote_explosive_install","got_ammo"})
elseif not has_alife_info("remote_explosive_3_install") and has_alife_info("remote_explosive_2_install") then
disable_several_info("remote_3_","_explosive",1,10)
local sobj=alife():create("remote_explosive_box_3",actor:position(),actor:level_vertex_id(),actor:game_vertex_id())
give_info("remote_explosive_3_install")
level.map_add_object_spot_ser(sobj.id,"explosive","")
xr_effects.send_tip(db.actor,nil,{"st_remote_explosive_install","got_ammo"})
else
game.start_tutorial("remote_explosive_no_use")
give_object_to_actor("remote_explosive_charge")
end
game_hide_menu()
end

function remote_explosive_pda_init()
give_info("remote_explosive_pda_init")
xr_effects.send_tip(db.actor,nil,{"st_remote_explosive_pda_init","got_ammo"})
game_hide_menu()
end

function codepad:update(delta)
end

function codepad:update(delta)
if xr_logic.try_switch_to_another_section(self.object, self.st, db.actor) then
return
end
end

function remote_explosive_box_1_activate(actor,obj)
alife():create("remote_explosive_bomb_1",vector():set(obj:position()),obj:level_vertex_id(),obj:game_vertex_id())
level.add_call(
function()
if get_story_object("remote_explosive_bomb_1") ~= nil then
return true
end
end,
function()
expl_obj = get_story_object("remote_explosive_bomb_1")
expl_obj:explode(0)
end
)
if xr_conditions.object_exist(nil,nil,{"remote_explosive_box_1"}) then
xr_effects.destroy_object(actor,npc,{"story","remote_explosive_box_1"})
end
if xr_conditions.object_exist(nil,nil,{"remote_explosive_bomb_1"}) then
xr_effects.destroy_object(actor,npc,{"story","remote_explosive_bomb_1"})
end
end

function remote_explosive_box_2_activate(actor,obj)
alife():create("remote_explosive_bomb_2",vector():set(obj:position()),obj:level_vertex_id(),obj:game_vertex_id())
level.add_call(
function()
if get_story_object("remote_explosive_bomb_2") ~= nil then
return true
end
end,
function()
expl_obj = get_story_object("remote_explosive_bomb_2")
expl_obj:explode(0)
end
)
if xr_conditions.object_exist(nil,nil,{"remote_explosive_box_2"}) then
xr_effects.destroy_object(actor,npc,{"story","remote_explosive_box_2"})
end
if xr_conditions.object_exist(nil,nil,{"remote_explosive_bomb_2"}) then
xr_effects.destroy_object(actor,npc,{"story","remote_explosive_bomb_2"})
end
end

function remote_explosive_box_3_activate(actor,obj)
alife():create("remote_explosive_bomb_3",vector():set(obj:position()),obj:level_vertex_id(),obj:game_vertex_id())
level.add_call(
function()
if get_story_object("remote_explosive_bomb_3") ~= nil then
return true
end
end,
function()
expl_obj = get_story_object("remote_explosive_bomb_3")
expl_obj:explode(0)
end
)
if xr_conditions.object_exist(nil,nil,{"remote_explosive_box_3"}) then
xr_effects.destroy_object(actor,npc,{"story","remote_explosive_box_3"})
end
if xr_conditions.object_exist(nil,nil,{"remote_explosive_bomb_3"}) then
xr_effects.destroy_object(actor,npc,{"story","remote_explosive_bomb_3"})
end
end

local group_id_by_levels = {zaton = 1,
    pripyat = 2,
    jupiter = 3,
    labx8 = 4,
    jupiter_underground = 5,
    имя_уровня = 6}

local sim_squads = {
    ["zaton"] = {},
    ["jupiter"] = {},
    ["pripyat"] = {},
    ["имя_уровня"] = {}
  }
    local sim_smarts = {
    ["zaton"] = {},
    ["jupiter"] = {},
    ["pripyat"] = {},
    ["имя_уровня"] = {}
  }
    print_smarts_and_squads_by_level("zaton")
    print_smarts_and_squads_by_level("jupiter")
    print_smarts_and_squads_by_level("pripyat")
        print_smarts_and_squads_by_level("имя_уровня")

Стр.38    self.levels_respawn = {zaton = false, jupiter = false, pripyat = false, имя_уровня = false }
Стр.323  self.levels_respawn  = {zaton = true, jupiter = true, pripyat = true, имя_уровня = true }
Стр.346  self.levels_respawn  = {zaton = true, jupiter = true, pripyat = true, имя_уровня = true }
Стр.632         packet:w_bool(self.levels_respawn.zaton)
  packet:w_bool(self.levels_respawn.jupiter)
  packet:w_bool(self.levels_respawn.pripyat)
                packet:w_bool(self.levels_respawn.имя_уровня)
Стр.658         self.levels_respawn.zaton = packet:r_bool()
  self.levels_respawn.jupiter = packet:r_bool()
  self.levels_respawn.pripyat = packet:r_bool()
                self.levels_respawn.имя_уровня= packet:r_bool()

local guiders_by_level = {
["zaton"]={["jupiter"]="zat_b215_stalker_guide_zaton", ["pripyat"]="zat_b215_stalker_guide_zaton"},
["jupiter"]={["zaton"]="zat_b215_stalker_guide_jupiter", ["pripyat"]="jup_b43_stalker_assistant"},
    ["pripyat"]={["zaton"]="jup_b43_stalker_assistant_pri", ["jupiter"]="jup_b43_stalker_assistant_pri"},
["имя_уровня"]=…}

function funct_name()
    news_manager.send_tip(db.actor, "ТЕКСТ", 0, "default", 10000)
end

function funct_name()
    news_manager.send_tip(db.actor, "Ну как хабар?", nil, "default", 6000)
    news_manager.send_tip(db.actor, "Норм, нашел арт.", 4, "default", 6000)
    news_manager.send_tip(db.actor, "Гуд.", 8, "default", 6000)
end