Прохождение Сталкер Народная Солянка 2016

-- Невидимость В Костюме
local idle_time, game_time, outfit_act, prev_outfit_act, time_to_set_range

-- local invisible = nil
-- local warning90 = nil
-- local gravisak = nil
-- три довольно бессмысленные строки. Записывается так:
local invisible, warning90, gravisak


function set_invisible()    -- включение невидимости
    outfit_act = db.actor:item_in_slot( 6 )
    -- проверяется наличие надетого костюма
    if outfit_act and outfit_act:section() == "meceniy_outfit_new" then
        if not invisible then    -- включается невидимость, если еще не включена
            invisible_on()
            invisible = true
            gravisak = nil
            time_to_set_range = time_global()

            

        -- вывод предупреждения, если кончается время невидимости
        -- elseif game.get_game_time():diffSec( game_time ) >= idle_time*0.9 and not warning90 then
        --    give_warning90()
        --    warning90 = true

        -- отключение невидимости
        -- elseif game.get_game_time():diffSec( game_time ) >= idle_time then
        --    invisible_off()
        --    make_meceniy_outfit_used( outfit_act )
        --    invisible = nil

        -- Нормальные люди делают это так:
        elseif warning90 then
            -- проверка для вывода предупреждения
            if game.get_game_time():diffSec( game_time ) >= idle_time * 0.9 then
                give_warning90()
            end
        -- проверка для выключения
        elseif game.get_game_time():diffSec( game_time ) >= idle_time then
            invisible_off()    -- отключение невидимости
            -- make_meceniy_outfit_used( outfit_act )    -- порча костюма
            invisible = nil
        end    -- ну или убрать все это, чтобы работал бесконечно
        
        -- ослепление неписей (поправлю сразу)
        if time_to_set_range <= time_global() then
            set_range( 2 )
            time_to_set_range = time_global() + 1000
        end
            
    elseif invisible then    -- костюм снят
        invisible_off()    -- отключение невидимости
        -- внимание, если кто-то уйдет в офлайн раньше - останется слепым !
        -- make_meceniy_outfit_used( prev_outfit_act )    -- порча чего попало, или просто вылет
        invisible, idle_time, time_to_set_range = false, false, false    -- поправил графоманию
    end

    -- if outfit_act and string.find( outfit_act:section(), "soldier_outfit" ) then
    --    if not gravisak then
    --        bind_stalker.hide_weapon()
    --        gravisak = true
    --    end
    -- elseif gravisak then
    --    bind_stalker.restore_weapon()
    --    gravisak = nil
    -- end    -- здесь был бред про убирание оружия

    -- prev_outfit_act = outfit_act    -- а это бред с порчей костюма
end


function invisible_on()    -- включение невидимости

    -- даже исправлять не буду, по тому что проще проверки выше отключить, и навсегда о них забыть
    idle_time = 1440 * 1440            -- время невидимости
    game_time = game.get_game_time()    -- текущее время
    warning90 = false    -- убрать информацию о том, что было выведено предупреждение

    -- bind_stalker.hide_weapon()    -- убрать оружие
    level.add_pp_effector ("teleport.ppe", 1111, false)    -- спецэффекты
    level.set_pp_effector_factor(1111, 1.0)
end


function invisible_off()    -- выключение невидимости
    if get_hud():GetCustomStatic( "cs_inviz" ) then    -- убирает сообщение о невидимости
        get_hud():RemoveCustomStatic( "cs_inviz" )
    end
    warning90 = false    -- убирает информацию о выводе предупреждения

    -- bind_stalker.restore_weapon()    -- включает оружие
    set_range( 80 )    -- выставляет неписям "видеть актора и врагов на расстоянии 80 метров"
        -- к воопросу о бешеных неписях. В солянке ставилось 60, и из этого рассчета
        -- расставлялись собственно неписи.
end


function give_warning90()
    get_hud():AddCustomStatic( "cs_inviz", true ):wnd():SetText( "Вас могут увидеть!" )
end


function set_range( range )    -- принудительное выставление всему живому расстояния,
    -- на котором они всех видят
    -- переписал это медленнное и печальное глюкало сразу

    local cls_id
    local lobj_by_id = level.object_by_id    -- чтобы тормозило хоть чуток меньше
    for k, v in pairs( db.creatures ) do    -- в creatures живое добавляется
        v = lobj_by_id( k )    -- есть ли еще такой ?
        if v and v.alive then    -- и имеет ли смысл для него что-либо проверять ?
            cls_id = v:clsid()    -- класс объекта
            -- проверка, что непись или монстр, и он живой
            if ( IAmAStalker[cls_id] or IAmAMonster[cls_id] ) and v:alive() then
                v:set_range( range )
    end    end    end
end


function make_meceniy_outfit_used( outfit )    -- замена одного костюма на другой
    local parent = outfit:parent()
    local obj = alife():object( outfit:id() )    -- отсюда и далее переписал глюкало
    if obj then
        alife():release( obj, true )
        if parent then
            alife():create( "meceniy_outfit_used", vector(), 0, 0, parent:id() )
        else alife():create( "meceniy_outfit_used", vector(), 0, 0, 0 )
    end    end
end


function have_meceniy_outfit()    -- для диалогов: возвращается экза, если есть
    return db.actor:object( "meceniy_outfit_used" ) or db.actor:object( "meceniy_outfit_new" )
end


function give_meceniy_outfit()    -- для диалогов: удаляется экза
    if db.actor:object( "meceniy_outfit_used" ) then
        amk.remove_item_from_inventory_by_name( "meceniy_outfit_used", db.actor )
    elseif db.actor:object( "meceniy_outfit_new" ) then
        amk.remove_item_from_inventory_by_name( "meceniy_outfit_new", db.actor )
    else return
    end
    news_manager.relocate_item( db.actor, "out", "meceniy_outfit_new" )    -- новости: "потерян предмет"
end