Модуль:Chemistry Lookup: различия между версиями

Материал из FIRE STATION WIKI
Нет описания правки
Метка: отменено
Нет описания правки
Метка: ручная отмена
Строка 1: Строка 1:
local prototypes = mw.loadData("Module:Chemistry Lookup/data")
local p = {}
local p = {}
p.chem = prototypes.chem or {}
p.react = prototypes.react or {}
p.groupDirection = prototypes.groupDirection or {}


-- Безопасная загрузка данных с обработкой ошибок
-- ===== Хелперы =====
local function safeLoad()
local function tablelength(T)
    local success, loader = pcall(require, "Module:JsonPageLoader")
local count = 0
    if not success then
for _ in pairs(T or {}) do count = count + 1 end
        return {}, {}, {}
return count
    end
   
    local chem_data = {}
    local react_data = {}
    local status_data = {}
   
    -- Загружаем данные с обработкой ошибок
    pcall(function()
        chem_data = loader.load("User:FireBot/chem_prototypes.json") or {}
    end)
   
    pcall(function()
        react_data = loader.load("User:FireBot/react_prototypes.json") or {}
    end)
   
    pcall(function()
        status_data = loader.load("User:FireBot/chem_status.json") or {}
    end)
   
    return chem_data, react_data, status_data
end
end


-- Загружаем данные
local function hchangelist(l, frame)
local chem_data, react_data, status_data = safeLoad()
local out = ""
local len = tablelength(l)
local i = 0
for k, v in pairs(l) do
i = i + 1
if len == i and i ~= 1 then
out = out .. ", and "
elseif i ~= 1 then
out = out .. ", "
end
out = out .. frame:expandTemplate{ title = "HealthModifier", args = { adj = v, kind = k } }
end
return out
end


-- Основные данные
p.chem = chem_data
p.react = react_data
p.status = status_data
-- Направления групп для навигации
p.groupDirection = {
    Drinks = "Drinks",
    Foods = "Cooking",
}
-- Функция для чтения скалярного значения из химических данных
function p.readscalar(frame)
function p.readscalar(frame)
    if not frame or not frame.args then
local a, b = frame.args[1], frame.args[2]
        return ""
if not (a and b) or not p.chem[a] then return "" end
    end
local v = p.chem[a][b]
   
if v == nil then return "" end
    local chem_id = frame.args[1]
return mw.text.nowiki(tostring(v))
    local property = frame.args[2]
   
    if not chem_id or not property then
        return ""
    end
   
    if p.chem and p.chem[chem_id] and p.chem[chem_id][property] then
        return mw.text.nowiki(tostring(p.chem[chem_id][property]))
    end
    return ""
end
end


-- Функция для чтения скалярного значения из данных реакций
function p.readscalarreact(frame)
function p.readscalarreact(frame)
    local react_id = frame.args[1]
local a, b = frame.args[1], frame.args[2]
    local property = frame.args[2]
if not (a and b) or not p.react[a] then return "" end
   
local v = p.react[a][b]
    if p.react[react_id] and p.react[react_id][property] then
if v == nil then return "" end
        return mw.text.nowiki(tostring(p.react[react_id][property]))
return mw.text.nowiki(tostring(v))
    end
    return ""
end
end


-- Получение цвета химического вещества
function p.getcolor(frame)
function p.getcolor(frame)
    local chem_id = frame.args[1]
local a = frame.args[1]
   
if not a or not p.chem[a] or not p.chem[a].color then return "" end
    if p.chem[chem_id] and p.chem[chem_id].color then
return mw.text.nowiki(p.chem[a].color:sub(1, 7))
        local color = p.chem[chem_id].color
        -- Обрезаем до 7 символов (#RRGGBB)
        return mw.text.nowiki(color:sub(1, 7))
    end
    return "#FFFFFF"
end
end


-- Получение цвета текста на основе яркости фона
function p.gettextcolor(frame)
function p.gettextcolor(frame)
    local chem_id = frame.args[1]
local a = frame.args[1]
   
if not a or not p.chem[a] or not p.chem[a].color then return mw.text.nowiki("#000") end
    if not (p.chem[chem_id] and p.chem[chem_id].color) then
local basecol = p.chem[a].color
        return "#000"
local red = tonumber(basecol:sub(2, 3), 16) or 0
    end
local grn = tonumber(basecol:sub(4, 5), 16) or 0
   
local blu = tonumber(basecol:sub(6, 7), 16) or 0
    local basecol = p.chem[chem_id].color
local luminance = math.sqrt(0.241*red*red + 0.691*grn*grn + 0.068*blu*blu)
    local red = tonumber(basecol:sub(2, 3), 16) or 0
if luminance > 100 then
    local grn = tonumber(basecol:sub(4, 5), 16) or 0
return mw.text.nowiki("#000")
    local blu = tonumber(basecol:sub(6, 7), 16) or 0
else
   
return mw.text.nowiki("#FFF")
    -- Вычисляем яркость
end
    local luminance = math.sqrt(0.241*red*red + 0.691*grn*grn + 0.068*blu*blu)
   
    if luminance > 100 then
        return mw.text.nowiki("#000")
    else
        return mw.text.nowiki("#FFF")
    end
end
end


-- Проверка наличия рецепта у химического вещества
function p.hasrecipe(frame)
function p.hasrecipe(frame)
    local chem_id = frame.args[1]
local chem = frame.args[1]
   
if not chem or not p.chem[chem] then return "" end
    if p.chem[chem_id] and p.chem[chem_id].recipes then
return (p.chem[chem].recipes and p.chem[chem].recipes[1]) and "1" or ""
        return #p.chem[chem_id].recipes > 0
    end
    return false
end
end


-- Построение блоков для химических веществ
function p.buildboxes(frame)
function p.buildboxes(frame)
    local group = frame.args[1]
local out = ""
    local limit = tonumber(frame.args.limit) or 100 -- Лимит по умолчанию
local group = frame.args[1]
    local out = ""
for k, v in pairs(p.chem) do
    local count = 0
if type(v) == "table" then
   
if (group == nil) or (v.group == group) then
    for k, v in pairs(p.chem or {}) do
out = out .. frame:expandTemplate{ title = "Chembox", args = { prototype = k }}
        if count >= limit then
end
            break
end
        end
end
       
return out
        if group == nil or (v and v.group and v.group == group) then
            out = out .. frame:expandTemplate{  
                title = "Chembox",  
                args = { prototype = k }
            }
            count = count + 1
        end
    end
   
    return out
end
end


-- Построение блоков реакций
function p.buildreactboxes(frame)
function p.buildreactboxes(frame)
    local limit = tonumber(frame.args.limit) or 50 -- Лимит по умолчанию
local out = ""
    local out = ""
for k, v in pairs(p.react) do
    local count = 0
if type(v) == "table" and v.effects and tablelength(v.effects) ~= 0 then
   
out = out .. frame:expandTemplate{ title = "Reactionbox", args = { reaction = k }}
    for k, v in pairs(p.react or {}) do
end
        if count >= limit then
end
            break
return out
        end
       
        if v then
            -- Показываем реакции, которые имеют либо эффекты, либо продукты
            local hasEffects = v.effects and p.tablelength(v.effects) > 0
            local hasProducts = v.products and p.tablelength(v.products) > 0
           
            if hasEffects or hasProducts then
                out = out .. frame:expandTemplate{  
                    title = "Reactionbox",  
                    args = { reaction = k }
                }
                count = count + 1
            end
        end
    end
   
    return out
end
end


-- Построение рецептов для химического вещества
function p.buildrecipes(frame)
function p.buildrecipes(frame)
    local chem_id = frame.args[1]
local chem = frame.args[1]
    local out = ""
if not chem or not p.chem[chem] then return "" end
   
local out = ""
    if p.chem[chem_id] and p.chem[chem_id].recipes then
for _, recipe in pairs(p.chem[chem].recipes or {}) do
        for _, recipe_id in pairs(p.chem[chem_id].recipes) do
out = out .. p.buildreaction(frame, recipe)
            out = out .. p.buildreaction(frame, recipe_id)
end
        end
return out
    end
   
    return out
end
end


-- Построение конкретной реакции
function p.buildreactionext(frame)
function p.buildreactionext(frame)
    local react_id = frame.args[1]
local react = frame.args[1]
    return p.buildreaction(frame, react_id)
return p.buildreaction(frame, react)
end
 
-- Основная функция построения реакции
function p.buildreaction(frame, react_id)
    if not p.react[react_id] then
        return ""
    end
   
    local data = p.react[react_id]
    local args = {}
   
    -- Обрабатываем реагенты
    local i = 0
    if data.reactants then
        for reagent_id, reagent_data in pairs(data.reactants) do
            i = i + 1
            local dest = "Chemistry"
           
            if p.chem[reagent_id] and p.chem[reagent_id].group and p.groupDirection[p.chem[reagent_id].group] then
                dest = p.groupDirection[p.chem[reagent_id].group]
            end
           
            args["component-" .. i] = frame:expandTemplate{
                title = "Chem Recipe Component",
                args = {
                    reagent = reagent_id,
                    amount = reagent_data.amount or reagent_data,
                    dest = dest
                }
            }
        end
    end
   
    -- Обрабатываем продукты
    i = 0
    if data.products then
        for product_id, amount in pairs(data.products) do
            i = i + 1
            local dest = "Chemistry"
           
            if p.chem[product_id] and p.chem[product_id].group and p.groupDirection[p.chem[product_id].group] then
                dest = p.groupDirection[p.chem[product_id].group]
            end
           
            args["result-" .. i] = frame:expandTemplate{
                title = "Chem Recipe Component",
                args = {
                    reagent = product_id,
                    amount = amount,
                    dest = dest
                }
            }
        end
    end
   
    -- Обрабатываем эффекты
    if data.effects then
        args.effects = p.geneffectlist(data.effects, frame, 1)
    end
   
    return frame:expandTemplate{ title = "Chem Box Recipe", args = args }
end
end


-- Проверка на утоление жажды
function p.buildreaction(frame, react)
function p.checksatiatesthirst(frame)
if not react or not p.react[react] then return "" end
    local chem_id = frame.args[1]
local data = p.react[react]
   
local args = {}
    if not (p.chem[chem_id] and p.chem[chem_id].metabolisms) then
        return ""
    end
   
    for _, metabolism in pairs(p.chem[chem_id].metabolisms) do
        if metabolism.effects then
            for _, effect in pairs(metabolism.effects) do
                if effect.id == "SatiateThirst" then
                    return "1"
                end
            end
        end
    end
   
    return ""
end


-- Проверка на утоление голода
-- Реактанты
function p.checksatiateshunger(frame)
local i = 0
    local chem_id = frame.args[1]
for k, v in pairs(data.reactants or {}) do
   
i = i + 1
    if not (p.chem[chem_id] and p.chem[chem_id].metabolisms) then
local dest = p.groupDirection[(p.chem[k] or {}).group] or "Chemistry"
        return ""
args["component-" .. i] = frame:expandTemplate{
    end
title = "Chem Recipe Component",
   
args = { reagent = k, amount = v.amount, dest = dest }
    for _, metabolism in pairs(p.chem[chem_id].metabolisms) do
}
        if metabolism.effects then
end
            for _, effect in pairs(metabolism.effects) do
                if effect.id == "SatiateHunger" then
                    return "1"
                end
            end
        end
    end
   
    return ""
end


-- Проверка наличия эффектов (кроме голода/жажды)
-- Продукты
function p.haseffects(frame)
i = 0
    local chem_id = frame.args[1]
for k, v in pairs(data.products or {}) do
   
i = i + 1
    if not (p.chem[chem_id] and p.chem[chem_id].metabolisms) then
local dest = p.groupDirection[(p.chem[k] or {}).group] or "Chemistry"
        return ""
args["result-" .. i] = frame:expandTemplate{
    end
title = "Chem Recipe Component",
   
args = { reagent = k, amount = v, dest = dest }
    for _, metabolism in pairs(p.chem[chem_id].metabolisms) do
}
        if metabolism.effects then
end
            for _, effect in pairs(metabolism.effects) do
                if effect.id ~= "SatiateHunger" and effect.id ~= "SatiateThirst" then
                    return "1"
                end
            end
        end
    end
   
    return ""
end


-- Генерация эффектов
-- Эффекты реакции (не метаболизм)
function p.geneffects(frame, chem_id)
if data.effects ~= nil then
    if chem_id == nil then
args.effects = p.geneffectlist(data.effects, frame, 1)
        chem_id = frame.args[1]
end
    end
   
    if not (p.chem[chem_id] and p.chem[chem_id].metabolisms) then
        return ""
    end
   
    local out = ""
    for metabolism_type, metabolism_data in pairs(p.chem[chem_id].metabolisms) do
        local rate = metabolism_data.rate or 0.5
        out = out .. "<b>" .. metabolism_type .. "</b> (" .. rate .. " единиц в секунду)\n"
       
        if metabolism_data.effects then
            out = out .. p.geneffectlist(metabolism_data.effects, frame, rate)
        end
    end
   
    return out
end


-- Генерация списка эффектов
return frame:expandTemplate{ title = "Chem Box Recipe", args = args }
function p.geneffectlist(effects, frame, rate)
    local out = ""
   
    for _, effect in pairs(effects) do
        if effect.id == "HealthChange" then
            out = out .. ":" .. p.genhealthchange(effect, rate, frame) .. "\n"
        elseif effect.id == "AdjustReagent" then
            out = out .. ":" .. p.genadjustreagent(effect, rate, frame) .. "\n"
        elseif effect.id == "FlammableReaction" then
            out = out .. ":" .. p.genflammablereaction(effect, frame) .. "\n"
        elseif effect.id == "AdjustTemperature" then
            out = out .. ":" .. p.genadjusttemperature(effect, frame) .. "\n"
        elseif effect.id == "GenericStatusEffect" then
            out = out .. ":" .. p.gengenericstatuseffect(effect, frame) .. "\n"
        elseif effect.id == "ExplosionReactionEffect" then
            out = out .. ":" .. p.genexplosionreactioneffect(effect, frame) .. "\n"
        elseif effect.id == "FoamAreaReactionEffect" then
            out = out .. ":" .. p.genfoamareareactioneffect(effect, frame) .. "\n"
        elseif effect.id == "SmokeAreaReactionEffect" then
            out = out .. ":" .. p.gensmokeareareactioneffect(effect, frame) .. "\n"
        elseif effect.id == "ModifyBleedAmount" then
            out = out .. ":" .. p.genmodifybleedamount(effect, frame) .. "\n"
        end
    end
   
    return out
end
end


-- Генераторы для различных типов эффектов
local function scan_metab(chem)
function p.gensmokeareareactioneffect(effect, frame)
local met = (p.chem[chem] or {}).metabolisms
    local conds = ""
if not met then return nil end
    if effect.conditions then
return met
        conds = p.genconds(effect.conditions, frame)
    end
   
    return frame:expandTemplate{
        title = "SmokeAreaReactionEffect",
        args = {
            when = conds,
            prob = effect.probability
        }
    }
end
end


function p.genfoamareareactioneffect(effect, frame)
function p.checksatiatesthirst(frame)
    local conds = ""
local chem = frame.args[1]
    if effect.conditions then
local met = scan_metab(chem)
        conds = p.genconds(effect.conditions, frame)
if not met then return "" end
    end
for _, v in pairs(met) do
   
for _, w in pairs(v.effects or {}) do
    return frame:expandTemplate{  
if w.id == "SatiateThirst" then return "1" end
        title = "FoamAreaReactionEffect",
end
        args = {
end
            when = conds,
return ""
            prob = effect.probability
        }
    }
end
end


function p.genexplosionreactioneffect(effect, frame)
function p.checksatiateshunger(frame)
    local conds = ""
local chem = frame.args[1]
    if effect.conditions then
local met = scan_metab(chem)
        conds = p.genconds(effect.conditions, frame)
if not met then return "" end
    end
for _, v in pairs(met) do
   
for _, w in pairs(v.effects or {}) do
    return frame:expandTemplate{  
if w.id == "SatiateHunger" then return "1" end
        title = "ExplosionReactionEffect",
end
        args = {
end
            when = conds,
return ""
            prob = effect.probability
        }
    }
end
end


function p.gengenericstatuseffect(effect, frame)
function p.haseffects(frame)
    local conds = ""
local chem = frame.args[1]
    if effect.conditions then
local met = scan_metab(chem)
        conds = p.genconds(effect.conditions, frame)
if not met then return "" end
    end
for _, v in pairs(met) do
   
for _, w in pairs(v.effects or {}) do
    return frame:expandTemplate{
if w.id ~= "SatiateHunger" and w.id ~= "SatiateThirst" then
        title = "GenericStatusEffect",  
return "1"
        args = {  
end
            key = effect.Key,
end
            type = effect.Type,
end
            time = effect.Time,
return ""
            refresh = effect.Refresh,
            when = conds,
            prob = effect.probability
        }
    }
end
end


function p.genadjusttemperature(effect, frame)
function p.geneffects(frame, chem)
    local conds = ""
if chem == nil then chem = frame.args[1] end
    if effect.conditions then
local met = scan_metab(chem)
        conds = p.genconds(effect.conditions, frame)
if not met then return "" end
    end
local out = ""
   
for k, v in pairs(met) do
    return frame:expandTemplate{
out = out .. "<b>" .. k .. "</b> (" .. tostring(v.rate) .. " единиц в секунду)\n" ..
        title = "AdjustTemperature",  
      p.geneffectlist(v.effects or {}, frame, v.rate or 1)
        args = {
end
            amount = effect.Amount,  
return out
            when = conds,  
            prob = effect.probability
        }
    }
end
end


function p.genflammablereaction(effect, frame)
function p.geneffectlist(effects, frame, rate)
    local conds = ""
local out = ""
    if effect.conditions then  
for _, w in pairs(effects or {}) do
        conds = p.genconds(effect.conditions, frame)
if w.id == "HealthChange" then
    end
out = out .. ":" .. p.genhealthchange(w, rate, frame) .. "\n"
   
elseif w.id == "AdjustReagent" then
    return frame:expandTemplate{
out = out .. ":" .. p.genadjustreagent(w, rate, frame) .. "\n"
        title = "FlammableReaction",  
elseif w.id == "FlammableReaction" then
        args = {
out = out .. ":" .. p.genflammablereaction(w, frame) .. "\n"
            multiplier = effect.Multiplier,  
elseif w.id == "AdjustTemperature" then
            when = conds,  
out = out .. ":" .. p.genadjusttemperature(w, frame) .. "\n"
            prob = effect.probability
elseif w.id == "GenericStatusEffect" then
        }
out = out .. ":" .. p.gengenericstatuseffect(w, frame) .. "\n"
    }
elseif w.id == "ExplosionReactionEffect" then
out = out .. ":" .. p.genexplosionreactioneffect(w, frame) .. "\n"
elseif w.id == "FoamAreaReactionEffect" then
out = out .. ":" .. p.genfoamareareactioneffect(w, frame) .. "\n"
elseif w.id == "SmokeAreaReactionEffect" then
out = out .. ":" .. p.gensmokeareareactioneffect(w, frame) .. "\n"
elseif w.id == "ModifyBleedAmount" then
out = out .. ":" .. p.genmodifybleedamount(w, frame) .. "\n"
end
end
return out
end
end


function p.genadjustreagent(effect, rate, frame)
function p.gensmokeareareactioneffect(r, frame)
    local conds = ""
local conds = nil
    if effect.conditions then  
if r.conditions ~= nil then  
        conds = p.genconds(effect.conditions, frame)
conds = p.genconds(r.conditions, frame)
    end
end
   
return frame:expandTemplate{ title = "SmokeAreaReactionEffect", args = { when = conds, prob = r.probability }}
    return frame:expandTemplate{  
        title = "AdjustReagent",  
        args = {  
            amount = effect.Amount,
            reagent = effect.Reagent,
            when = conds,  
            prob = effect.probability  
        }
    }
end
end


function p.genmodifybleedamount(effect, frame)
function p.genfoamareareactioneffect(r, frame)
    local conds = ""
local conds = nil
    if effect.conditions then  
if r.conditions ~= nil then  
        conds = p.genconds(effect.conditions, frame)
conds = p.genconds(r.conditions, frame)
    end
end
   
return frame:expandTemplate{ title = "FoamAreaReactionEffect", args = { when = conds, prob = r.probability }}
    return frame:expandTemplate{  
        title = "ModifyBleedAmount",  
        args = {  
            amount = effect.Amount,
            when = conds,  
            prob = effect.probability  
        }
    }
end
end


function p.genhealthchange(effect, rate, frame)
function p.genexplosionreactioneffect(r, frame)
    local healst = {}
local conds = nil
    local dealst = {}
if r.conditions ~= nil then  
    local r = 1.0 / rate
conds = p.genconds(r.conditions, frame)
   
end
    if effect.damage and effect.damage.types then
return frame:expandTemplate{ title = "ExplosionReactionEffect", args = { when = conds, prob = r.probability }}
        for damage_type, amount in pairs(effect.damage.types) do
            if amount < 0 then
                healst[damage_type] = amount * r
            else
                dealst[damage_type] = amount * r
            end
        end
    end
   
    if effect.damage and effect.damage.groups then
        for damage_group, amount in pairs(effect.damage.groups) do
            if amount < 0 then
                healst[damage_group] = amount * r
            else
                dealst[damage_group] = amount * r
            end
        end
    end
   
    local heals = p.hchangelist(healst, frame)
    local deals = p.hchangelist(dealst, frame)
    local conds = ""
   
    if effect.conditions then  
        conds = p.genconds(effect.conditions, frame)
    end
   
    return frame:expandTemplate{  
        title = "HealthChange",  
        args = {  
            heals = heals,
            deals = deals,
            when = conds,  
            prob = effect.probability  
        }
    }
end
end


function p.hchangelist(changes, frame)
function p.gengenericstatuseffect(r, frame)
    local out = ""
local conds = nil
    local len = p.tablelength(changes)
if r.conditions ~= nil then
    local i = 0
conds = p.genconds(r.conditions, frame)
   
end
    for damage_type, amount in pairs(changes) do
return frame:expandTemplate{
        i = i + 1
title = "GenericStatusEffect",
        if len == i and i ~= 1 then
args = { key = r.Key, type = r.Type, time = r.Time, refresh = r.Refresh, when = conds, prob = r.probability }
            out = out .. ", and "
}
        elseif i ~= 1 then
            out = out .. ", "
        end
        out = out .. p.hchange(damage_type, amount, frame)
    end
   
    return out
end
end


function p.hchange(damage_type, amount, frame)
function p.genadjusttemperature(r, frame)
    return frame:expandTemplate{  
local conds = nil
        title = "HealthModifier",  
if r.conditions ~= nil then
        args = {  
conds = p.genconds(r.conditions, frame)
            adj = amount,  
end
            kind = damage_type
return frame:expandTemplate{ title = "AdjustTemperature", args = { amount = r.Amount, when = conds, prob = r.probability }}
        }
    }
end
end


function p.genconds(conditions, frame)
function p.genflammablereaction(r, frame)
    local out = ""
local conds = nil
    local len = p.tablelength(conditions)
if r.conditions ~= nil then
    local i = 0
conds = p.genconds(r.conditions, frame)
   
end
    for _, condition in pairs(conditions) do
return frame:expandTemplate{ title = "FlammableReaction", args = { multiplier = r.Multiplier, when = conds, prob = r.probability }}
        i = i + 1
        if len == i and i ~= 1 then
            out = out .. ", and "
        elseif i ~= 1 then
            out = out .. ", "
        end
        out = out .. p.gencond(condition, frame)
    end
   
    return out
end
end


function p.gencond(condition, frame)
function p.genadjustreagent(r, rate, frame)
    if condition.id == "TotalDamage" then
local conds = nil
        return frame:expandTemplate{
if r.conditions ~= nil then  
            title = "TotalDamage",
conds = p.genconds(r.conditions, frame)
            args = {
end
                min = condition.Min,  
return frame:expandTemplate{ title = "AdjustReagent", args = { amount = r.Amount, reagent = r.Reagent, when = conds, prob = r.probability }}
                max = condition.Max
            }
        }
    elseif condition.id == "ReagentThreshold" then
        return frame:expandTemplate{  
            title = "ReagentThreshold",  
            args = {  
                min = condition.Min,
                max = condition.Max,  
                reagent = condition.Reagent  
            }
        }
    elseif condition.id == "OrganType" then
        return frame:expandTemplate{
            title = "OrganType",
            args = {
                shouldhave = condition.ShouldHave,
                type = condition.Type
            }
        }
    elseif condition.id == "Temperature" then
        return frame:expandTemplate{
            title = "Temperature",  
            args = {
                min = condition.Min,  
                max = condition.Max
            }
        }
    end
   
    return ""
end
end


-- Вспомогательные функции
function p.genmodifybleedamount(r, frame)
function p.tablelength(table)
local conds = nil
    local count = 0
if r.conditions ~= nil then
    for _ in pairs(table) do
conds = p.genconds(r.conditions, frame)
        count = count + 1
end
    end
return frame:expandTemplate{ title = "ModifyBleedAmount", args = { amount = r.Amount, when = conds, prob = r.probability }}
    return count
end
end


function p.has_value(tab, val)
function p.genhealthchange(h, rate, frame)
    for _, value in ipairs(tab) do
local healst = {}
        if value[1] == val then
local dealst = {}
            return true
local r = 1.0 / (rate or 1)
        end
    end
    return false
end


function p.strsplit(inputstr, separator)
if h.damage and h.damage.types then
    if separator == nil then
for k, v in pairs(h.damage.types) do
        separator = ","
if v < 0 then healst[k] = v * r else dealst[k] = v * r end
    end
end
   
end
    local t = {}
if h.damage and h.damage.groups then
    for str in string.gmatch(inputstr, "([^"..separator.."]+)") do
for k, v in pairs(h.damage.groups) do
        table.insert(t, str)
if v < 0 then healst[k] = v * r else dealst[k] = v * r end
    end
end
   
end
    return t
end
 
-- Функции для работы со статусами химических веществ
function p.getmetabolizertype(frame)
    local type_id = frame.args[1]
   
    if p.status[type_id] and p.status[type_id].type == "metabolizerType" then
        return p.status[type_id].name or type_id
    end
   
    return ""
end
 
function p.getmetabolismgroup(frame)
    local group_id = frame.args[1]
   
    if p.status[group_id] and p.status[group_id].type == "metabolismGroup" then
        return p.status[group_id].name or group_id
    end
   
    return ""
end
 
function p.getmixingcategory(frame)
    local category_id = frame.args[1]
   
    if p.status[category_id] and p.status[category_id].type == "mixingCategory" then
        return p.status[category_id].verbText or category_id
    end
   
    return ""
end
 
function p.getreactivegroup(frame)
    local group_id = frame.args[1]
   
    if p.status[group_id] and p.status[group_id].type == "reactiveGroup" then
        return group_id
    end
   
    return ""
end
 
-- Дополнительные функции для ваших шаблонов
 
-- Проверка наличия особых эффектов
function p.hasspecialeffects(frame)
    local chem_id = frame.args[1]
   
    if not (p.chem[chem_id] and p.chem[chem_id].tileReactions) then
        return ""
    end
   
    -- Проверяем наличие особых эффектов в tileReactions
    for _, reaction in pairs(p.chem[chem_id].tileReactions) do
        if reaction.effects and #reaction.effects > 0 then
            return "true"
        end
    end
   
    return ""
end
 
-- Генерация особых эффектов
function p.genspecialeffects(frame)
    local chem_id = frame.args[1]
   
    if not (p.chem[chem_id] and p.chem[chem_id].tileReactions) then
        return ""
    end
   
    local out = ""
    for _, reaction in pairs(p.chem[chem_id].tileReactions) do
        if reaction.effects then
            out = out .. p.geneffectlist(reaction.effects, frame, 1)
        end
    end
   
    return out
end
 
-- Проверка наличия эффектов плитки
function p.hastileeffects(frame)
    local chem_id = frame.args[1]
   
    if not (p.chem[chem_id] and p.chem[chem_id].plantMetabolism) then
        return ""
    end
   
    -- Проверяем наличие эффектов в plantMetabolism
    for _, metabolism in pairs(p.chem[chem_id].plantMetabolism) do
        if metabolism.effects and #metabolism.effects > 0 then
            return "true"
        end
    end
   
    return ""
end
 
-- Генерация эффектов плитки
function p.gentileeffects(frame)
    local chem_id = frame.args[1]
   
    if not (p.chem[chem_id] and p.chem[chem_id].plantMetabolism) then
        return ""
    end
   
    local out = ""
    for metabolism_type, metabolism_data in pairs(p.chem[chem_id].plantMetabolism) do
        local rate = metabolism_data.rate or 0.5
        out = out .. "<b>" .. metabolism_type .. "</b> (" .. rate .. " единиц в секунду)\n"
       
        if metabolism_data.effects then
            out = out .. p.geneffectlist(metabolism_data.effects, frame, rate)
        end
    end
   
    return out
end
 
-- Улучшенная функция readscalar с поддержкой fallback
function p.readscalar_with_fallback(frame)
    local chem_id = frame.args[1]
    local property = frame.args[2]
    local fallback = frame.args.fallback or frame.args[3] or ""
   
    if p.chem[chem_id] and p.chem[chem_id][property] then
        return mw.text.nowiki(tostring(p.chem[chem_id][property]))
    end
    return fallback
end


-- Функция для получения описания химического вещества
local heals = hchangelist(healst, frame)
function p.getdesc(frame)
local deals = hchangelist(dealst, frame)
    local chem_id = frame.args[1]
local conds = nil
   
if h.conditions ~= nil then  
    if p.chem[chem_id] and p.chem[chem_id].desc then
conds = p.genconds(h.conditions, frame)
        return p.chem[chem_id].desc
end
    end
return frame:expandTemplate{ title = "HealthChange", args = { heals = heals, deals = deals, when = conds, prob = h.probability }}
    return ""
end
end


-- Функция для получения физического описания
function p.genconds(conds, frame)
function p.getphysicaldesc(frame)
local out = ""
    local chem_id = frame.args[1]
local len = tablelength(conds or {})
   
local i = 0
    if p.chem[chem_id] and p.chem[chem_id].physicalDesc then
for _, c in pairs(conds or {}) do
        return p.chem[chem_id].physicalDesc
i = i + 1
    end
if len == i and i ~= 1 then
    return "бесцветная жидкость"
out = out .. ", and "
elseif i ~= 1 then
out = out .. ", "
end
out = out .. p.gencond(c, frame)
end
return out
end
end


-- Функция для построения кнопок химических веществ
function p.gencond(c, frame)
function p.buildchembuttons(frame)
if not c or not c.id then return "" end
    local group = frame.args[1]
if c.id == "TotalDamage" then
    local out = ""
return frame:expandTemplate{ title = "TotalDamage", args = { min = c.Min, max = c.Max } }
   
elseif c.id == "ReagentThreshold" then
    for k, v in pairs(p.chem) do
return frame:expandTemplate{ title = "ReagentThreshold", args = { min = c.Min, max = c.Max, reagent = c.Reagent } }
        if group == nil or (v.group and v.group == group) then
elseif c.id == "OrganType" then
            out = out .. frame:expandTemplate{  
return frame:expandTemplate{ title = "OrganType", args = { shouldhave = c.ShouldHave, type = c.Type } }
                title = "Chemical button",  
elseif c.id == "Temperature" then
                args = { k, "1" }
return frame:expandTemplate{ title = "Temperature", args = { min = c.Min, max = c.Max } }
            }
end
        end
return ""
    end
   
    return out
end
end


return p
return p

Версия от 23:07, 6 сентября 2025

Для документации этого модуля может быть создана страница Модуль:Chemistry Lookup/doc 

local prototypes = mw.loadData("Module:Chemistry Lookup/data")

local p = {}
p.chem = prototypes.chem or {}
p.react = prototypes.react or {}
p.groupDirection = prototypes.groupDirection or {}

-- ===== Хелперы =====
local function tablelength(T)
	local count = 0
	for _ in pairs(T or {}) do count = count + 1 end
	return count
end

local function hchangelist(l, frame)
	local out = ""
	local len = tablelength(l)
	local i = 0
	for k, v in pairs(l) do
		i = i + 1
		if len == i and i ~= 1 then
			out = out .. ", and "
		elseif i ~= 1 then
			out = out .. ", "
		end
		out = out .. frame:expandTemplate{ title = "HealthModifier", args = { adj = v, kind = k } }
	end
	return out
end

function p.readscalar(frame)
	local a, b = frame.args[1], frame.args[2]
	if not (a and b) or not p.chem[a] then return "" end
	local v = p.chem[a][b]
	if v == nil then return "" end
	return mw.text.nowiki(tostring(v))
end

function p.readscalarreact(frame)
	local a, b = frame.args[1], frame.args[2]
	if not (a and b) or not p.react[a] then return "" end
	local v = p.react[a][b]
	if v == nil then return "" end
	return mw.text.nowiki(tostring(v))
end

function p.getcolor(frame)
	local a = frame.args[1]
	if not a or not p.chem[a] or not p.chem[a].color then return "" end
	return mw.text.nowiki(p.chem[a].color:sub(1, 7))
end

function p.gettextcolor(frame)
	local a = frame.args[1]
	if not a or not p.chem[a] or not p.chem[a].color then return mw.text.nowiki("#000") end
	local basecol = p.chem[a].color
	local red = tonumber(basecol:sub(2, 3), 16) or 0
	local grn = tonumber(basecol:sub(4, 5), 16) or 0
	local blu = tonumber(basecol:sub(6, 7), 16) or 0
	local luminance = math.sqrt(0.241*red*red + 0.691*grn*grn + 0.068*blu*blu)
	if luminance > 100 then
		return mw.text.nowiki("#000")
	else
		return mw.text.nowiki("#FFF")
	end
end

function p.hasrecipe(frame)
	local chem = frame.args[1]
	if not chem or not p.chem[chem] then return "" end
	return (p.chem[chem].recipes and p.chem[chem].recipes[1]) and "1" or ""
end

function p.buildboxes(frame)
	local out = ""
	local group = frame.args[1]
	for k, v in pairs(p.chem) do
		if type(v) == "table" then
			if (group == nil) or (v.group == group) then
				out = out .. frame:expandTemplate{ title = "Chembox", args = { prototype = k }}
			end
		end
	end
	return out
end

function p.buildreactboxes(frame)
	local out = ""
	for k, v in pairs(p.react) do
		if type(v) == "table" and v.effects and tablelength(v.effects) ~= 0 then
			out = out .. frame:expandTemplate{ title = "Reactionbox", args = { reaction = k }}
		end
	end
	return out
end

function p.buildrecipes(frame)
	local chem = frame.args[1]
	if not chem or not p.chem[chem] then return "" end
	local out = ""
	for _, recipe in pairs(p.chem[chem].recipes or {}) do
		out = out .. p.buildreaction(frame, recipe)
	end
	return out
end

function p.buildreactionext(frame)
	local react = frame.args[1]
	return p.buildreaction(frame, react)
end

function p.buildreaction(frame, react)
	if not react or not p.react[react] then return "" end
	local data = p.react[react]
	local args = {}

	-- Реактанты
	local i = 0
	for k, v in pairs(data.reactants or {}) do
		i = i + 1
		local dest = p.groupDirection[(p.chem[k] or {}).group] or "Chemistry"
		args["component-" .. i] = frame:expandTemplate{
			title = "Chem Recipe Component",
			args = { reagent = k, amount = v.amount, dest = dest }
		}
	end

	-- Продукты
	i = 0
	for k, v in pairs(data.products or {}) do
		i = i + 1
		local dest = p.groupDirection[(p.chem[k] or {}).group] or "Chemistry"
		args["result-" .. i] = frame:expandTemplate{
			title = "Chem Recipe Component",
			args = { reagent = k, amount = v, dest = dest }
		}
	end

	-- Эффекты реакции (не метаболизм)
	if data.effects ~= nil then
		args.effects = p.geneffectlist(data.effects, frame, 1)
	end

	return frame:expandTemplate{ title = "Chem Box Recipe", args = args }
end

local function scan_metab(chem)
	local met = (p.chem[chem] or {}).metabolisms
	if not met then return nil end
	return met
end

function p.checksatiatesthirst(frame)
	local chem = frame.args[1]
	local met = scan_metab(chem)
	if not met then return "" end
	for _, v in pairs(met) do
		for _, w in pairs(v.effects or {}) do
			if w.id == "SatiateThirst" then return "1" end
		end
	end
	return ""
end

function p.checksatiateshunger(frame)
	local chem = frame.args[1]
	local met = scan_metab(chem)
	if not met then return "" end
	for _, v in pairs(met) do
		for _, w in pairs(v.effects or {}) do
			if w.id == "SatiateHunger" then return "1" end
		end
	end
	return ""
end

function p.haseffects(frame)
	local chem = frame.args[1]
	local met = scan_metab(chem)
	if not met then return "" end
	for _, v in pairs(met) do
		for _, w in pairs(v.effects or {}) do
			if w.id ~= "SatiateHunger" and w.id ~= "SatiateThirst" then
				return "1"
			end
		end
	end
	return ""
end

function p.geneffects(frame, chem)
	if chem == nil then chem = frame.args[1] end
	local met = scan_metab(chem)
	if not met then return "" end
	local out = ""
	for k, v in pairs(met) do
		out = out .. "<b>" .. k .. "</b> (" .. tostring(v.rate) .. " единиц в секунду)\n" ..
		      p.geneffectlist(v.effects or {}, frame, v.rate or 1)
	end
	return out
end

function p.geneffectlist(effects, frame, rate)
	local out = ""
	for _, w in pairs(effects or {}) do
		if w.id == "HealthChange" then
			out = out .. ":" .. p.genhealthchange(w, rate, frame) .. "\n"
		elseif w.id == "AdjustReagent" then
			out = out .. ":" .. p.genadjustreagent(w, rate, frame) .. "\n"
		elseif w.id == "FlammableReaction" then
			out = out .. ":" .. p.genflammablereaction(w, frame) .. "\n"
		elseif w.id == "AdjustTemperature" then
			out = out .. ":" .. p.genadjusttemperature(w, frame) .. "\n"
		elseif w.id == "GenericStatusEffect" then
			out = out .. ":" .. p.gengenericstatuseffect(w, frame) .. "\n"
		elseif w.id == "ExplosionReactionEffect" then
			out = out .. ":" .. p.genexplosionreactioneffect(w, frame) .. "\n"
		elseif w.id == "FoamAreaReactionEffect" then
			out = out .. ":" .. p.genfoamareareactioneffect(w, frame) .. "\n"
		elseif w.id == "SmokeAreaReactionEffect" then
			out = out .. ":" .. p.gensmokeareareactioneffect(w, frame) .. "\n"
		elseif w.id == "ModifyBleedAmount" then
			out = out .. ":" .. p.genmodifybleedamount(w, frame) .. "\n"
		end
	end
	return out
end

function p.gensmokeareareactioneffect(r, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{ title = "SmokeAreaReactionEffect", args = { when = conds, prob = r.probability }}
end

function p.genfoamareareactioneffect(r, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{ title = "FoamAreaReactionEffect", args = { when = conds, prob = r.probability }}
end

function p.genexplosionreactioneffect(r, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{ title = "ExplosionReactionEffect", args = { when = conds, prob = r.probability }}
end

function p.gengenericstatuseffect(r, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{
		title = "GenericStatusEffect",
		args = { key = r.Key, type = r.Type, time = r.Time, refresh = r.Refresh, when = conds, prob = r.probability }
	}
end

function p.genadjusttemperature(r, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{ title = "AdjustTemperature", args = { amount = r.Amount, when = conds, prob = r.probability }}
end

function p.genflammablereaction(r, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{ title = "FlammableReaction", args = { multiplier = r.Multiplier, when = conds, prob = r.probability }}
end

function p.genadjustreagent(r, rate, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{ title = "AdjustReagent", args = { amount = r.Amount, reagent = r.Reagent, when = conds, prob = r.probability }}
end

function p.genmodifybleedamount(r, frame)
	local conds = nil
	if r.conditions ~= nil then 
		conds = p.genconds(r.conditions, frame)
	end
	return frame:expandTemplate{ title = "ModifyBleedAmount", args = { amount = r.Amount, when = conds, prob = r.probability }}
end

function p.genhealthchange(h, rate, frame)
	local healst = {}
	local dealst = {}
	local r = 1.0 / (rate or 1)

	if h.damage and h.damage.types then
		for k, v in pairs(h.damage.types) do
			if v < 0 then healst[k] = v * r else dealst[k] = v * r end
		end
	end
	if h.damage and h.damage.groups then
		for k, v in pairs(h.damage.groups) do
			if v < 0 then healst[k] = v * r else dealst[k] = v * r end
		end
	end

	local heals = hchangelist(healst, frame)
	local deals = hchangelist(dealst, frame)
	local conds = nil
	if h.conditions ~= nil then 
		conds = p.genconds(h.conditions, frame)
	end
	return frame:expandTemplate{ title = "HealthChange", args = { heals = heals, deals = deals, when = conds, prob = h.probability }}
end

function p.genconds(conds, frame)
	local out = ""
	local len = tablelength(conds or {})
	local i = 0
	for _, c in pairs(conds or {}) do
		i = i + 1
		if len == i and i ~= 1 then
			out = out .. ", and "
		elseif i ~= 1 then
			out = out .. ", "
		end
		out = out .. p.gencond(c, frame)
	end
	return out
end

function p.gencond(c, frame)
	if not c or not c.id then return "" end
	if c.id == "TotalDamage" then
		return frame:expandTemplate{ title = "TotalDamage", args = { min = c.Min, max = c.Max } }
	elseif c.id == "ReagentThreshold" then
		return frame:expandTemplate{ title = "ReagentThreshold", args = { min = c.Min, max = c.Max, reagent = c.Reagent } }
	elseif c.id == "OrganType" then
		return frame:expandTemplate{ title = "OrganType", args = { shouldhave = c.ShouldHave, type = c.Type } }
	elseif c.id == "Temperature" then
		return frame:expandTemplate{ title = "Temperature", args = { min = c.Min, max = c.Max } }
	end
	return ""
end

return p
Источник — https://fire.station.wiki.shizainc.com/w/index.php?title=Модуль:Chemistry_Lookup&oldid=14698
Последнее изменение
Эта страница в последний раз была отредактирована 6 сентября 2025 в 23:07.
Авторские права
Содержание доступно по лицензии Creative Commons Attribution (если не указано иное).