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

мНет описания правки
м Серная кислота не существует в раздатчике химикатов. Это миф
Метки: с мобильного устройства из мобильной версии
 
(не показаны 53 промежуточные версии 1 участника)
Строка 1: Строка 1:
p = {}
p = {}
p.chem = mw.text.jsonDecode(mw.title.new("User:IanComradeBot/chem_prototypes.json"):getContent())
p.react = mw.text.jsonDecode(mw.title.new("User:IanComradeBot/react_prototypes.json"):getContent())


local prototypes = mw.loadData("Module:Chemistry Lookup/data")
p.fillReactTable = function(frame)
p.chem = prototypes.chem
p.react = prototypes.react
 
p.fillTable = function(frame)
local out = ""
local out = ""
local group = frame.args.group
local templateArgs = {}
for _, reactPrototype in pairs(p.react) do
for _, chemPrototype in pairs(p.chem) do
if tablelength(reactPrototype.effects) ~= 0 then
local reactants = {}
if group == nil or group == "all" or chemPrototype.group == group then
local reactantTemplate = "%s [[#chem_%s|%s]]"
templateArgs.id = chemPrototype.id
templateArgs.name = chemPrototype.name
templateArgs.description = chemPrototype.desc .. " На вид " .. chemPrototype.physicalDesc .. "."
templateArgs.color = getColor(chemPrototype.id)
templateArgs.textColor = getTextColor(chemPrototype.id)
templateArgs.recipes_count = tablelength(chemPrototype.recipes)
for reactantId, reactantValue in pairs(reactPrototype.reactants) do
local reactantChemData = p.chem[reactantId]
local reactantText = string.format(reactantTemplate, reactantValue.amount, reactantChemData.id,  reactantChemData.name)
if reactantValue.catalyst then
reactantText = reactantText .. " (катализатор)"
end
table.insert(reactants, reactantText)
end
local templateArgs = {}
templateArgs.reactants = table.concat(reactants, "<br>")
templateArgs.reactants = ""
local products = {}
templateArgs.products = ""
local productTemplate = "%s [[#chem_%s|%s]]"
templateArgs.action = ""
if templateArgs.recipes_count == 0 then
for productId, productAmount in pairs(reactPrototype.products) do
templateArgs.recipes_count = 1 -- Для заполнения параметра rowspan строки
out = out .. frame:expandTemplate{ title = "Первая_строка_химического_вещества", args = templateArgs}
local productChemData = p.chem[productId]
else
local productText = string.format(productTemplate, productAmount, productChemData.id,  productChemData.name)
local firstReact = true
table.insert(products, productText)
for _, reactId in pairs(chemPrototype.recipes) do
end
-- Эффекты реакции
local reactPrototype = p.react[reactId]
if tablelength(reactPrototype.effects) then
local reactants = {}
for _, effect in pairs(reactPrototype.effects) do
local reactantTemplate = "%s [[#%s|%s]]"
if effect.description ~= "" then
table.insert(products, effect.description)
for reactantId, reactantValue in pairs(reactPrototype.reactants) do
local reactantChemData = p.chem[reactantId]
local reactantText = string.format(reactantTemplate, reactantValue.amount, reactantChemData.id,  reactantChemData.name)
table.insert(reactants, reactantText)
end
templateArgs.reactants = table.concat(reactants, "<br>")
local products = {}
local productTemplate = "%s [[#%s|%s]]"
for productId, productAmount in pairs(reactPrototype.products) do
local productChemData = p.chem[productId]
local productText = string.format(productTemplate, productAmount, productChemData.id,  productChemData.name)
table.insert(products, productText)
end
templateArgs.products = table.concat(products, "<br>")
templateArgs.action = "[[File:Beaker.png|32px]]<br>Смешать"
local template = "Строка_химического_вещества"
if firstReact then
template = "Первая_строка_химического_вещества"
firstReact = false
end
end
out = out .. frame:expandTemplate{ title = template, args = templateArgs}
end
end
end
end
templateArgs.products = table.concat(products, "<br>")
templateArgs.actions = getActions(reactPrototype)
local template = "Строка_реакции"
out = out .. frame:expandTemplate{ title = template, args = templateArgs}
end
end
end
end
return out
return out
end
end


p.fillEffectsTable = function(frame)
p.fillChemTable = function(frame)
--Временно заполняем старым описанием эфектов
local out = ""
local chemPrototypeId = frame.args.id
local group = frame.args.group
return p.geneffects(chemPrototypeId)
local groups
end
if group ~= nil and group ~= "" then
 
groups = mw.text.split(group, ",")
function getEffects(chemPrototypeId)
end
local chemPrototype = p.chem[chemPrototypeId]
local additional = frame.args.additional
if additional ~= nil and additional ~= "" then
local additionalChemPrototypeIds = mw.text.split(additional, ",")
for _, chemPrototypeId in pairs(additionalChemPrototypeIds) do
out = out .. fillChemistryRow(chemPrototypeId, frame)
end
end
local effects = {}
for _, chemPrototype in pairs(p.chem) do
local effect = {}
effect.condition = ""
if group == nil or group == "" or contains(groups, chemPrototype.group) then
effect.effect = p.geneffects(chemPrototypeId)
out = out .. fillChemistryRow(chemPrototype.id, frame)  
table.insert(effects, effect)
end
end
return effects
 
end
function tablelength(T)
  local count = 0
  for _ in pairs(T) do count = count + 1 end
  return count
end
function attachAsNewLine(originalStr, joinStr)
return originalStr .. "\n" .. joinStr
end
-- НЕ МОЕ
function p.geneffects(chemPrototypeId)
local frame = mw.getCurrentFrame()
local met = p.chem[chemPrototypeId].metabolisms
if met == nil then
return ""
end
local out = ""
for k, v in pairs(met) do
out = out .. "<b>" .. k .. "</b> (" .. v.rate .. " единиц в секунду)\n" .. p.geneffectlist(v.effects, frame, v.rate)
end
return out
return out
end
end


function p.geneffectlist(effects, frame, rate)
p.fillContentOfDispencer = function(frame)
local dispencer = frame.args.dispencer
local out = ""
local out = ""
for l, w in pairs(effects) do
for _, chemId in pairs(dispencersContent()[dispencer]) do
-- Popup Message is ignored on purpose
out = out .. frame:expandTemplate{ title = "Кнопка_реагента", args = {chemId, "y"}}
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
end
return out
return out
end
end


function p.gensmokeareareactioneffect(r, frame)
function dispencersContent()
if r.conditions ~= nil then
local content = {
conds = p.genconds(r.conditions, frame)
["Химикатов"]={
end
"Aluminium","Carbon","Chlorine","Copper","Ethanol","Fluorine","Hydrogen","Iodine",
return frame:expandTemplate{ title = "SmokeAreaReactionEffect", args = { when = conds, prob = r.probability }}
"Iron","Lithium","Mercury","Nitrogen","Oxygen","Phosphorus","Potassium","Radium",
"Silicon","Sodium","Sugar","Sulfur"
},
["Соды"]={
"Water","Ice","Coffee","Cream","Tea","GreenTea","IcedTea","IcedGreenTea",
"Cola","SpaceMountainWind","DrGibb","SpaceUp","TonicWater","SodaWater","LemonLime","Sugar",
"JuiceOrange","JuiceLime","JuiceWatermelon"
},
["Алкоголя"]={
"LemonLime","Sugar","JuiceOrange","JuiceLime","SodaWater","TonicWater","Beer","CoffeeLiqueur",
"Whiskey","Wine","Vodka","Gin","Rum","Tequila","Vermouth","Cognac",
"Ale","Mead"
}
}
return content
end
end


function p.genfoamareareactioneffect(r, frame)
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)
p.readArg = function(frame)
if r.conditions ~= nil then
return mw.text.nowiki(p.chem[frame.args[1]][frame.args[2]])
conds = p.genconds(r.conditions, frame)
end
return frame:expandTemplate{ title = "ExplosionReactionEffect", args = { when = conds, prob = r.probability }}
end
end


function p.gengenericstatuseffect(r, frame)
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)
function contains(list, x)
if r.conditions ~= nil then  
for _, v in ipairs(list) do
conds = p.genconds(r.conditions, frame)
if v == x then return true end
end
end
return frame:expandTemplate{ title = "AdjustTemperature", args = { amount = r.Amount, when = conds, prob = r.probability }}
return false
end
end


function p.genflammablereaction(r, frame)
fillChemistryRow = function(chemPrototypeId, frame)
if r.conditions ~= nil then  
conds = p.genconds(r.conditions, frame)
local out = ""
local chemPrototype = p.chem[chemPrototypeId]
local templateArgs = {}
templateArgs.id = chemPrototype.id
templateArgs.name = chemPrototype.name
templateArgs.description = chemPrototype.desc .. " На вид " .. chemPrototype.physicalDesc .. "."
templateArgs.color = chemPrototype.color
templateArgs.textColor = chemPrototype.textColor
templateArgs.effects = getEffects(chemPrototype.id)
templateArgs.recipes_count = tablelength(chemPrototype.recipes)
templateArgs.reactants = ""
templateArgs.products = ""
templateArgs.action = ""
if templateArgs.recipes_count == 0 then
templateArgs.recipes_count = 1 -- Для заполнения параметра rowspan строки
out = out .. frame:expandTemplate{ title = "Первая_строка_химического_вещества", args = templateArgs}
else
local firstReact = true
for _, reactId in pairs(chemPrototype.recipes) do
local reactPrototype = p.react[reactId]
local reactants = {}
local reactantTemplate = "%s [[#chem_%s|%s]]"
for reactantId, reactantValue in pairs(reactPrototype.reactants) do
local reactantChemData = p.chem[reactantId]
local reactantText = string.format(reactantTemplate, reactantValue.amount, reactantChemData.id,  reactantChemData.name)
if reactantValue.catalyst then
reactantText = reactantText .. " (катализатор)"
end
table.insert(reactants, reactantText)
end
templateArgs.reactants = table.concat(reactants, "<br>")
local products = {}
local productTemplate = "%s [[#chem_%s|%s]]"
for productId, productAmount in pairs(reactPrototype.products) do
local productChemData = p.chem[productId]
local productText = string.format(productTemplate, productAmount, productChemData.id, productChemData.name)
table.insert(products, productText)
end
-- Эффекты реакции
if tablelength(reactPrototype.effects) then
for _, effect in pairs(reactPrototype.effects) do
if effect.description ~= "" then
table.insert(products, effect.description)
end
end
end
templateArgs.products = table.concat(products, "<br>")
templateArgs.actions = getActions(reactPrototype)
local template = "Строка_химического_вещества"
if firstReact then
template = "Первая_строка_химического_вещества"
firstReact = false
end
out = out .. frame:expandTemplate{ title = template, args = templateArgs}
end
end
end
return frame:expandTemplate{ title = "FlammableReaction", args = { multiplier = r.Multiplier, when = conds, prob = r.probability }}
return out
end
end


function p.genflammablereaction(r, frame)
getActions = function(reactPrototype)
if r.conditions ~= nil then  
conds = p.genconds(r.conditions, frame)
local actions = {}
-- Температура
local minMaxTemplate = "выше %sК и ниже %sК"
local minTemplate = "выше %sК"
local maxTemplate = "ниже %sК"
local hasMin = reactPrototype.minTemp ~= 0
local hasMax = reactPrototype.hasMax
local tempString = ""
if hasMax and hasMin then
tempString = string.format(minMaxTemplate, reactPrototype.minTemp, reactPrototype.maxTemp)
elseif hasMin then
tempString = string.format(minTemplate, reactPrototype.minTemp)
elseif hasMax then
tempString = string.format(maxTemplate, reactPrototype.maxTemp)
end
end
return frame:expandTemplate{ title = "FlammableReaction", args = { multiplier = r.Multiplier, when = conds, prob = r.probability }}
end
for _, mixingCategory in pairs(reactPrototype.mixingCategories) do
 
local image = getMixingImage(mixingCategory.id)
function p.genadjustreagent(r, rate, frame)
if image ~= nil then
if r.conditions ~= nil then
table.insert(actions, string.format("[[File:%s|32px|link=]]", image)) -- Картинка
conds = p.genconds(r.conditions, frame)
end
table.insert(actions, mixingCategory.name .. " " .. tempString) -- Название
end
end
return frame:expandTemplate{ title = "AdjustReagent", args = { amount = r.Amount, reagent = r.Reagent, when = conds, prob = r.probability }}
return table.concat(actions, "<br>")
end
end


function p.genmodifybleedamount(r, frame)
getMixingImage = function(mixingId)
if r.conditions ~= nil then
conds = p.genconds(r.conditions, frame)
local images = {
end
["DummyMix"] = "Beaker.png", -- Смешивание
return frame:expandTemplate{ title = "ModifyBleedAmount", args = { amount = r.Amount, when = conds, prob = r.probability }}
["DummyGrind"] = "Blender.png", -- Измельчение
["DummyJuice"] = "Blender.png", -- Выжимка
["DummyCondense"] = "Конденсатор газа.png",  
["Centrifuge"] = "Центрифуга.png",
["Electrolysis"] = "Электролизер.png",
["Holy"] = "Библия.png"
}
return images[mixingId]
end
end


function p.genhealthchange(h, rate, frame)
function getEffects(chemPrototypeId)
local healst = {}
local dealst = {}
local effects = ""
local r = 1.0 / rate
if h.damage.types ~= nil then
local chemPrototype = p.chem[chemPrototypeId]
for k, v in pairs(h.damage.types) do
if chemPrototype.metabolisms == nil then
if v < 0 then
return effects
healst[k] = v * r
else
dealst[k] = v * r
end
end
end
end
if h.damage.groups ~= nil then
for metabolismGroupKey, metabolismGroup in pairs(chemPrototype.metabolisms) do
for k, v in pairs(h.damage.groups) do
effects = attachAsNewLine(effects, string.format("* %s (%s единиц в секунду)", metabolismGroupKey, metabolismGroup.rate))
if v < 0 then
for _, effect in pairs(metabolismGroup.effects) do
healst[k] = v * r
if effect.description ~= "" then
else
effects = attachAsNewLine(effects, "** "..effect.description)
dealst[k] = v * r
end
end
end
end
end
end
local heals = hchangelist(healst, frame)
local deals = hchangelist(dealst, frame)
return effects
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
end


function hchangelist(l, frame)
function tablelength(T)
out = ""
  local count = 0
local len = tablelength(l)
  for _ in pairs(T) do count = count + 1 end
local i = 0
  return count
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 .. hchange(k, v, frame)
end
return out
end
end


-- So we can make it fancy later
function attachAsNewLine(originalStr, joinStr)
function hchange(ty, amnt, frame)
return originalStr .. "\n" .. joinStr
return frame:expandTemplate{ title = "HealthModifier", args = { adj = amnt, kind = ty } }
end
 
function p.genconds(conds, frame)
out = ""
local len = tablelength(conds)
local i = 0
for k, v in pairs(conds) 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(v, frame)
end
return out
end
 
function p.gencond(c, frame)
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
 
function getColor(chemPrototypeId)
return mw.text.nowiki(p.chem[chemPrototypeId].color:sub(1, 7))
end
 
function getTextColor(chemPrototypeId)
local basecol = p.chem[chemPrototypeId].color
local red = tonumber(basecol:sub(2, 3), 16)
local grn = tonumber(basecol:sub(4, 5), 16)
local blu = tonumber(basecol:sub(6, 7), 16)
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
-- НЕ МОЕ


return p
return p