Уроки по модостроению

[amik 253]

Полезная информация по работе с картами локаций в ПДА

Авторы: Shadows и XMK

Мини дополнение: http://xfiles.xianionline.com/tools/map_dragger/
Там залита чужая карта но принцип тот-же. Спасибо XiaNi за ссылку.

Изменено 19 Сентября 2014 пользователем World_Stalker

[amik 253]

Вот кое что от Stalk15. Авторы функций не указаны (Для ТЧ).

---

---

function spawn_x14 ()
    alife():create("Секция",vector():set(-7.32,-34.48,13.18),1542,2799)
end

---

Функции типа "Проверка на взятие предмета..." я лично использую в квестах тегами

<function_complete>файл.функция</function_complete>

function search_weapon_complete1(actor, npc)
    if db.actor ~= nil then
        if db.actor:object("ПРЕДМЕТ") then
            db.actor:give_info_portion("ПОРШЕНЬ")
            return true
        end
    end
return false
end

---

local t_wpn = {"ПРЕДМЕТ1", "ПРЕДМЕТ1", "ПРЕДМЕТ1"}
function search_ALL_weapons_complete()
    local gg = db.actor
    if gg then
        for i=1,#t_wpn  do
            if not gg:object(t_wpn[i]) then
                return false
            end
        end
        gg:give_info_portion("ПОРШЕНЬ")
        return true
    end
return false
end

---

Основная функция:

function Actor_Has_ListItems(sSection,iNum)
    if not iNum then iNum = 1 end
    local oActor = db.actor
    local iCnt = 0
    if oActor and sSection then
        oActor:iterate_inventory(
            function (dummy, oItem)
                if oItem:section() == sSection then
                    iCnt = iCnt + 1
                    if iCnt >= iNum then
                        return true --/> актор имеет N предметов
                    end
                end
            end
        ,nil)
    end
    return iCnt >= iNum --/> имеет ли актор N предметов
end

Вызов:

function search_2_bumazhki_sidr_complete()
    return this.Actor_Has_ListItems("medkit", 10)
end

---

function search_weapon_complete(actor, npc)
    if db.actor ~= nil then
        return db.actor:object("wpn_vintorez")~=nil
    end
    return false
end

---

function have_docs_from_x14(first_speaker, second_speaker)
    return first_speaker:object("ПРЕДМЕТ") ~= nil
end

---

function give_sidor_docs(first_speaker, second_speaker)
    dialogs.relocate_item_section(second_speaker, "ПРЕДМЕТ", "out")
end

---

function give_nagrada_x14 (trader, actor)
    dialogs.relocate_item_section(trader, "ПРЕДМЕТ", "in")
end

---

function have_n_m1()
    return ИМЯ_СКРИПТА.have_n_m("bread",2,"kolbasa",2,"conserva")
end

function have_n_m(section,number)
    local actor = db.actor
    if actor then
        local cnt = 0
        actor:iterate_inventory(
            function (dummy, item)
            if item:section() == section then cnt = cnt + 1 end
            end
        ,nil)
        return cnt >= number
    end
    return false
end

---

function punch()
    --     set_inactivate_input_time(30)  
    local snd_obj = xr_sound.get_safe_sound_object([[affects\hit_fist]])
    snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
    level.add_cam_effector("camera_effects\fusker.anm", 999, false, "")
end

---

Отнимаем:

function reputation_down_10(stalker, player)
    db.actor:change_character_reputation(db.actor:character_reputation() - 10)
end

Плюсуем:

function reputation_up_10(stalker, player)
    db.actor:change_character_reputation(db.actor:character_reputation() + 10)
end

---

function malo_hp()
    db.actor.health = -0.3 --Минус 30% дезек
end

---

function Delete_ak74u_from_Actor()
    local oItem = db.actor:object("medkit") --/ определяем предмет у ГГ
    if oItem then --/ у ГГ есть предмет
        db.actor:drop_item(oItem) --/ выбрасываем предмет (опционально)
        alife():release(alife():object(oItem:id()), true) --/ удаляем из игры
    end
end

---

function dell()
    for a = 1,65534 do  
        local se_obj = alife():object(a)
        if se_obj and se_obj:section_name() == "СЕКЦИЯ ПРЕДМЕТА" then
            alife():release(se_obj, true)
        end
    end
end

---

function Delete_2_bumazhki_sidora_from_Actor()
    local cnt = db.actor:object_count()
    local ch=0
    for i=0, cnt-1 do
        local item = db.actor:object(i)
        if item:section() == "medkit" then
            local sobj = alife():object(item:id())
            if sobj then
                alife():release(sobj,true)
                ch = ch+1
                if ch == 7 then --7 - кол-во удаляемых аптечек
                break end
            end
        end
    end
end

---

function teleportate_to_()
    local a = vector()
    a.x = -241.71509460448
    a.y = -26.742816052856
    a.z = -304.54711914063
    db.actor:set_actor_position(a)
end

---

function  ReleaseRandomItem(num)
    local actor = db.actor
    local cnt = actor:object_count()
    if cnt<num then return end
    for i=1,num do
        local item = actor:object(math.random(0, cnt-1))
        local sobj = alife():object(item:id())
        if sobj then alife():release(sobj,true)
            cnt = actor:object_count()
        end
    end
end

вызывать так:

ReleaseRandomItem(5)  -- 5 - число удаляемых предметов

Вызов через диалог:

function RRI()
    имя_файла.ReleaseRandomItem(5)
end

Пример:

<action>имя_файла.RRI</action>

---

function join_monolith (actor, npc)  -- ставить на дельта апдейт
    printf ("ACTOR NOW IN имя группировки COMMUNITY")
    if db.actor and level_id.имя уровня then -- пример l01_escape и т.п
        db.actor:set_character_community ("имя группировки", 0, 0)
    end
end

---

function habar_davay(actor, npc)
    treasure_manager.get_treasure_manager():give_treasure("имя тайника")
end

---

function test_index()
    local cnt = db.actor:object_count()
    for i=0, cnt-1 do
        local item = db.actor:object(i)
        local sobj = alife():object(item:id())
        if sobj then
            alife():release(sobj,true)
        end
    end
end

---

local iTimer
function Start_Timer_5_minutes() --/ (пере)запуск таймера (из диалога)
    iTimer = time_global() + 5*1000 --/ взводим таймер на 5cek
end

function Timer_N_minutes() --/ вызывается из ':update' сталкер-биндера
    if iTimer and iTimer < time_global() then --/ проверка текущего значения
        iTimer = nil --/ выключаем таймер
        скрипт.функция() --/ выполняем действие
    end
end

---

local iTimer
local last
function start_timer_minutes_test(seconds)
    if last~= nil  then
        iTimer = time_global()+last  --/ взводим таймер на остаток времени last
    else
        iTimer = time_global() + 7*1000 --/ взводим таймер например 7 сек.
    end
end

function timer_n_minutes_test() --/ вызывается из ':update' сталкер-биндера
    if iTimer then
        last=iTimer-time_global() -- присваиваем переменной остаток времени до конца работы таймера
        if iTimer < time_global() then
            iTimer = nil --/ выключаем таймер
            last=nil
            СКРИПТ.ФУНКЦИЯ--/ выполняем действие
        end
    end
end

-- выводим  значение таймера в обратном отсчете  на худ
function hud_static()  --/ вызывается из ':update' сталкер-биндера
local hud = get_hud()
local st
    if iTimer then
    st = hud:GetCustomStatic("hud_timer")
        if st==nil then
            hud:AddCustomStatic("hud_timer", true)
            st = hud:GetCustomStatic("hud_timer")
        end
        if last~=nil then
            local hours = math.floor(last/3600000)
            local minutes = math.floor(last/60000 - hours*60)
            local seconds = math.floor(last/1000 - hours*3600 - minutes*60)
            local text = string.format("%02d:%02d:%02d",hours,minutes,seconds) -- выводим время в формате 00:00:00
            --local text=string.format("%.f",last/1000)
            st:wnd():SetTextST(text)  
        end
    else
        if hud:GetCustomStatic("hud_timer")~=nil then
            hud:RemoveCustomStatic("hud_timer")
        end
    end
end

---

Автор:Николай ФеНиКс(ФеНиКс)

if bone_index > 0 and who then
    if who:id() == db.actor:id() then --/ для актора
        local oActiveItem = db.actor:object("wpn_svd")
        if oActiveItem then --/ у актера проверяемое оружие
            local kuda = ""
            if bone_index == 14 or bone_index == 15 then
                kuda = "Ранен в глаз"
            elseif  bone_index == 13 then
                kuda = "Ранен в голову"
            elseif bone_index == 16 then
                kuda = "Ранен в челюсть"
            elseif bone_index == 17 then
                kuda = "Ранен в шею"
            elseif bone_index == 9 or bone_index == 10 or bone_index == 11 or bone_index == 18 then
                kuda = "Ранен в грудь"  
            elseif bone_index >= 1 and bone_index <= 8 then
                kuda = "Ранен в ногу"  
            elseif bone_index >= 19 and bone_index <= 42 then
                kuda = "Ранен в руку"
            end
            news_manager.send_tip(db.actor, kuda, nil, nil, 2000)
        end
    end
end

Вставлять функцию в мотиватор в функцию hit_callbak.

Например, после этого:

if self.st.hit then
    xr_logic.issue_event(self.object, self.st.hit, "hit_callback", obj, amount, local_direction, who, bone_index)
end

---

function mochim_five_nps()
    if has_alife_info("первый_грохнут") and
        has_alife_info("второй_грохнут") and
        has_alife_info("третий_грохнут") and
        has_alife_info("четвертый_грохнут") and
        has_alife_info("и_пятый_наконец") then
        return true
    else
        return false
    end
end

Использование:

В теле квеста пишем complete'ы:

<infoportion_complete>esc_kvest_secret_merc_kill_poslannick</infoportion_complete>
<function_complete>имя_файла.mochim_five_nps</function_complete>

После выполнения условий функции mochim_five_nps выдается поршень esc_kvest_secret_merc_kill_poslannick и задание обновляется.

---

local ObjId=0
function pda_killer_spawn()
    local obj= alife():create("pda_merc_killer_glav",vector():set(-223.700,-7.678,-129.688),17000,281)
    local text = "Текст метки"
    level.map_add_object_spot_ser(obj.id, "blue_location", text) --/blue_location - тип метки
    ObjId=obj.id
end

Эту метку можно удалить так:

function delete_spot()
    for a=1,65534 do --Перебор айди
        local obj = alife():object(a)
        if obj and obj:section_name() == "pda_merc_killer_glav" then --/pda_merc_killer_glav -- Секция предмета или НПС
            level.map_remove_object_spot(obj.id,"blue_location")
            break
        end
    end
end

---

local obj = alife():story_object( 6 ) -- 6 - сид Волка
local obj_id = obj.id
function add_spot_on_map(obj_id,type,text)
    if obj_id then
        if not text then text = "no_text" end
        level.map_add_object_spot_ser(obj_id, type, text)
    end
end

Вызываем:

function add_spot_on_map2(obj_id,type,text)
    имя_файла.add_spot_on_map(obj.id,"green_location","Текст")
end

Метку можно убрать вот так:

local obj = alife():story_object( 6 )
local obj_id = obj.id
function remove_spot_from_map(obj_id,type)
    if obj_id and level.map_has_object_spot(obj_id, type) ~= 0 then
        level.map_remove_object_spot(obj_id, type)
    end
end

эту вызывать:

function remove_spot()
    this.remove_spot_from_map(obj.id,"green_location")
end

---

function kvest_search_2_bumazhki_sidr_complete()
    news_manager.send_tip(db.actor, "%c[255,255,128,128]Автор сообщения\n%c[default]Текст сообщения", 0, "wolf", 17000)
end

---

local text = "Здесь текст"
function test()
    news_manager.send_tip(db.actor, text, 0, "trader", 20000)
end

---

Спавним рестриктор на координатах Волка с радиусом метра 2.Делаем логику рестриктору:

[logic]
active = sr_idle

[sr_idle]
on_actor_inside = %+esc_on_talk%  ;Выдача поршня
;Или так(Выбрать одно):
on_actor_inside = %=on_talk%"       ;Функция

Если выбрали поршень, то создаем его:

<info_portion id="esc_on_talk">
<action>СКРИПТ.on_talk</action>
</info_portion>

Вызываем функцию и видим диалог:

function on_talk()
    local npc = level_object_by_sid(006)
    db.actor:run_talk_dialog(npc)
end

---

function immotral()
    local npc1 = level_object_by_sid(006) --волк
    local npc2 = level_object_by_sid(092) --проводник
    local npc3 = level_object_by_sid(032)-- кузнецов
    local npc4= level_object_by_sid(100) --Серый
    if npc1 then npc1.health = 1 end
    if npc2 then npc2.health = 1 end
    if npc3 then npc3.health = 1 end
    if npc4 then npc4.health = 1 end
end

В голову дохнут.

---

function name()
    local npc = level_object_by_sid(006)
    npc:set_character_community("имя группировки", 0, 0)
end

Если разговариваем с самим Волком, то вызываем эту функцию:

function name(actor, npc)
    npc:set_character_community("имя группировки", 0, 0)
end

---

function dell_kluk_final()
    local se_obj = alife():object("esc_wolf")
    if se_obj then
        alife():release(se_obj, true)
    end
end

---

function do_something()
    local item = db.actor:object("antirad")
    if antirad then
        db.actor:eat(item)
    end
end

Должно быть так:

function do_something()
    local item = db.actor:object("antirad")
    if item then
        db.actor:eat(item)
    end
end

---

Надет ли костюм

function check_outfit()
    local outfit = db.actor:item_in_slot(6)
    if outfit:section() == "exo_outfit" then --/Если в 6 слоте присутствует "exo_outfit" тогда
        return true  --/"exo_outfit" одет
    else
        return false --/"exo_outfit" не одет
    end
end

Не надет ли костюм

function check_outfit()
    local outfit = db.actor:item_in_slot(6)
    if outfit:section() == "exo_outfit" then --/Если в 6 слоте присутствует "exo_outfit" тогда
        return true --/"exo_outfit" не одет
    else
        return false  --/"exo_outfit" одет
    end
end

---

function hit_nanesti()
    for a=1,65635,1 do
        local obj=level.object_by_id(a)
        if obj and string.find(obj:name(),"ПРЕДМЕТ") then
            local h = hit ();
            h.power = 10000;
            h.direction = vector():set (0, 0, 0);
            h.impulse = 0;
            h.draftsman = obj;
            h.type = hit.explosion;
            obj:hit (h);
        end
    end
end

---

function rest()
    local npc = level_object_by_sid(006) --волк
    if npc and level.name() == "l01_escape" then
        return true
    else
        return false
    end
end

---

function go_to_marsh_complete()
    if level_name == "l01escape" then
        return true
    else
        return false
    end
end

---

---

Изменено 15 Декабря 2017 пользователем Murarius