Module:Sandbox/Arcangelus
Welcome to the RimWorld Wiki sandbox!
This sandbox is where you can experiment and practice working on a wiki page. This page will usually have little or no content. Feel free to add content or to make changes and save them to see the results.
To learn about editing and formatting start here: Help:Contents. Just start with the basics... enter some text, and learn the other pieces as you go.
Your content contributions are welcome and important. The wiki is a collaborative effort and others can help with formatting and other improvements.]
Best wishes!
Description
This is a doc attached to my sandbox. I'll use it to see the effects of my changes W/o messing something important
NOTE: LUA is usually slower than ParserFunctions for short statements. The factor varies from 7-1 to 2-1.
Lua only is an advantage to long statements, nested logic, loops (maybe others case i don't see right now).
expr only uses 1 Preprocessor visited node count, in general. Variables may change that.
function p._TableRow(skillBase, skillBonus, statMin, statMax, capImportance, capLimit, resultCols, LV, Ln)
--[[
This module implements the functions of Template:Thought
]]
local p = {}
local getArgs = require('Module:Arguments').getArgs
--[[ The template argument goes to "main"
Only this funcion will work when invoked. This is case sensitive.
What it does is obtain the data from the wiki to a fomrat readable by other functions]]
function p.main(frame)
local args = getArgs(frame)
local desc = tostring(args["desc"])
local label = tostring(args["label"])
local duration = tonumber(args["duration"])
local stack = tonumber(args["stack"])
local multi = tonumber(args["multi"]) or 1
--[[ The advantage of adding values to an empty list rather than defining a list
with the correct values is that no nil values will get into the list this way.
This means that values don't have to be consecutive.
EX: value9 is valid w/o defining value2 to value8.
]]
local valores = {}
valores[#valores+1]=args["value"]
valores[#valores+1]=args["value2"]
valores[#valores+1]=args["value3"]
valores[#valores+1]=args["value4"]
valores[#valores+1]=args["value5"]
valores[#valores+1]=args["value6"]
valores[#valores+1]=args["value7"]
valores[#valores+1]=args["value8"]
valores[#valores+1]=args["value9"]
if tonumber(args["value"]) then
return p._main(desc, label, duration, stack, multi, valores)
else
return "<big><b>Missing value. Please, define a numerical value to use.</b></big>"
end
end
--[[
_main function decides the kind of thought this will be and returns the final output
If the are several defines values, then it uses the Thought function
If only value is defined, then:
- If both stack and the multiplier "multi" are 1, it gives a result early.
multi defaults to 1 when not defined (or invalid)
- Otherwise, it calls the stacks function.
]]
function p._main(desc, label, duration, stack, multi, valores)
local final_string = duration and {duration, " [[mood]] for ", duration, " [[Time|days]]" } or {" [[mood]]"}
local middle_string = {'<abbr title="', desc, '"><i>', (label:gsub("^%l", string.upper)), '</i></abbr>' }
-- "valores" is a list of all values given to the function.
-- This checks if a second value exist
if valores[2] then
return p.Thought(valores) --..middle_string..final_string
else --Only initial value defined
if stack==1 and multi==1 then
local value = valores[1]
if tonumber(value)>0 then
return '<b><font color="forestgreen">'..value..'</font></b> '..middle_string..final_string
elseif tonumber(value) == 0 then
return '<b>'..value..'</b> '..middle_string..final_string
else
return '<b><font color="firebrick">'..value..'</font></b> '..middle_string..final_string
end
end
return p.stacks(stack, multi, valores[1])..middle_string..final_string
end
end
--[[
The "Thought" function returns a string if more than 1 value was defined.
It iterates through all the values defined (contained on the list "valores")
For each element:
1.- If it is a valid number, then it valuates what kind of number it is.
1.2.- If it is, it then decides what color it need. Currently, it returns:
Green for positive, Red for negative, None for 0.
2.- It it is not a valid number, it returns the value bolded and large. The idea is to make the mistake obvious.
3.- Once all values are checked, it concatenates all results, with some extras to make sense.
This last part is what it returns.
]]
function p.Thought(valores)
local valores_buscados={}
for i, j in ipairs(valores) do
local vx = valores[i]
local vy = ""
if tonumber(vx) then -- A number.
vy = tonumber(vx)<0 and '<b><font color="firebrick">'..vx.."</font></b>" or tonumber(vx)>0 and '<b><font color="forestgreen">'..vx.."</font></b>" or '<b>0</b>'
else
vy='<big><b>'..vx.."</b></big>" --The idea is to prevent a hard to track error
end
valores_buscados[#valores_buscados+1]=vy
end
return "<b>"..table.concat(valores_buscados,"<b>/</b>").."</b> "..table.concat(middle_string,"")..table.concat(final_string,"")
end
--[[
The "stacks" function return a string for the case that only 1 value was defined.
1. If a stack value was defined:
1.1 Is stack equal to 1
1.2 Any other case.
2. If a stack was not defined, then check the multiplier
2.1 If the multiplier is equal or above one
2.2 If the multiplier is below 1.
Finally, some final code to decide what color to use.
1. Green (forestgreen) for positive.
2. None for 0.
3. Red (firebrick) for negatives.
The retuned value is rounded half-down. (Meaning 0.5 -> 0 )
string.format("%.2f", number))
To combat that, I add 0.001 to the number calculated. It should be enough.
]]
function p.stacks(stack, multi, value)
local text=""
if stack then
if multi == 1 then
if stack ~= 1 then
text = "Stacking "..stack.." times for a maximum of "..tostring(value*stack)
end
else
text = "Stacking "..stack.." times with a "..multi.." multiplier for maximum of "..string.format("%.2f", value*( 1 - multi^stack)/(1 - multi) + 0.001)
end
else
if multi >= 1 then --I want to avoid the case of really large numbers.
text = "Stacking infinitely"
else
text = "Stacking with a "..multi.." multiplier for maximum of "..string.format("%.2f", value*( 1 - multi^100)/(1 - multi) + 0.001)
end
end
if tonumber(value)>0 then
return '<abbr title="'..text..'"><b><font color="forestgreen">'..value..'</font></b></abbr> '
elseif tonumber(value) == 0 then
return '<abbr title="'..text..'"><b>'..value..'</b></abbr> '
else
return '<abbr title="'..text..'"><b><font color="firebrick">'..value..'</font></b></abbr> '
end
end
--This last part outputs the actual result. W/O it, it gives an error.
return p