Module:Loops

From IdleOn MMO Wiki
Revision as of 06:57, 10 March 2024 by Kiokurashi (talk | contribs)

Documentation for this module may be created at Module:Loops/doc 

local loops = {}

local function explode(list, delimiter)
    if delimiter == nil then
		delimiter = "%s"
	end
	t = {}
	for str in string.gmatch(list, "([^" .. delimiter .. "]+)") do
		table.insert(t, str)
	end
	return t
end

function loops.slabOrderList(frame) 
	local orderItem = frame.args.Item
	local bigList = frame.args.OrderList
	local tableList = explode(bigList, ',')
	
	for i = 1, #tableList do
		if tableList[i] == orderItem then
			mw.ext.VariablesLua.vardefine('Slaborder', i - 1)
			return i - 1
		end
	end
	
	mw.ext.VariablesLua.vardefine('Slaborder', -1)
	return -1
end

local function numFormater(arg)
	if arg == "Lots" then
		return n
	end
	local n = tonumber(arg)
    if n >= 10^18 then
        return string.format("%.2fQQ", n / 10^18)
    elseif n >= 10^15 then
        return string.format("%.2fQ", n / 10^15)
    elseif n >= 10^12 then
        return string.format("%.2fT", n / 10^12)
    elseif n >= 10^9 then
        return string.format("%.2fB", n / 10^9)
    elseif n >= 10^6 then
        return string.format("%.2fM", n / 10^6)
    elseif n >= 10^4 then
        return string.format("%.1fK", n / 10^3)
    else
        return tostring(n)
    end
end
function loops.bitsFormater(frame)
	local bitTotal = tonumber(frame.args.Bits)
	local bitPart = 0
	local ret = ''
	-- {{#tip-text:{{formatnum:{{#expr:{{#expr:({{{1}}}) / 1E+15}} round 1}}}} Q| <span class="text-only">{{formatnum:{{{1}}}}}</span> }}
    if bitTotal > 1e72 then
    	bitPart = math.floor(bitTotal / 1e72)
    	ret = ret .. 'Total: ' .. bitTotal .. ', Part: ' .. bitPart .. ', Color: Blue.'
    elseif bitTotal > 1e54 then
    	bitPart = math.floor(bitTotal / 1e54)
    	ret = ret .. 'Total: ' .. bitTotal .. ', Part: ' .. bitPart .. ', Color: Purple.'
    elseif bitTotal > 1e36 then
    	bitPart = math.floor(bitTotal / 1e36)
    	ret = ret .. 'Total: ' .. bitTotal .. ', Part: ' .. bitPart .. ', Color: Red.'
    elseif bitTotal > 1e18 then
    	bitPart = math.floor(bitTotal / 1e18)
    	ret = ret .. 'Total: ' .. bitTotal .. ', Part: ' .. bitPart .. ', Color: Green.'
    else
    	bitPart = bitTotal
    	ret = ret .. 'Total: ' .. bitTotal .. ', Part: ' .. bitPart .. ', Color: White.'
    end
    return string.format("%d", frame.args.Bits)
end

function numGreaterThanStrings(numStr, compStr)
	
end

function loops.formatCDC(frame)
    local val = frame.args.value
    local n = 1/tonumber(val)
    local ret = "<span style='display: none;'>" .. 1/val .. "</span>" ..
          "{{#tip-text:1 in " .. string.format("3,3d", n) .. "|<span class='text-only'>" .. (tonumber(val) * 100) .. "%</span>}}"
    return ret
end

function loops.coinDisplay(frame)
	local n = 20000 --tonumber(frame.args.coins)
	local ret = {}
	local coins = {"Copper", "Silver", "Gold", "Platinum", "Dementia", "Void", "Lustre", "Starfire", "Dreadlo", "Godshard", "Sunder", "Tydal", "Marbiglass", "Orberal", "Eclipse"} 
	local coininc = 1
	local stringpiece = [=[[[File:%s Coin.png|link=]] %s]=]
	
	repeat
		-- Set denomVStr to remaining n if on last type, or get last 2 for current denom.
		local denomV = n
		if coininc < #coins then
			denomV = denomV % 100
		end
		if denomV > 0 then
			ret[#ret+1] = string.format(stringpiece, coins[coininc], tostring(denomV))
		end	
		if coininc < #coins then
			n = math.floor(n / 100)
		else
			n = 0
		end
		coininc = coininc + 1
	until(n == 0)
	
	return table.concat(ret, " ")
end

function loops.bossAttacks(frame)
	local frameArgs = frame.args
	local attackList = explode(frameArgs.attackList,",")
	local damageList = explode(frameArgs.damageList,",")
	
	local ret = ""
	for i = 1, #attackList do
		ret = ret .. "<dt>" .. attackList[i]
		if(damageList[i])
    	then
			ret = ret .. "</dt><dd><span class='simple-tooltip simple-tooltip-inline tooltipstered' data-simple-tooltip='&lt;span class=&apos;text-only&apos;&gt;"..damageList[i] .. "&lt;/span&gt;'>" .. numFormater(damageList[i]) .. "</span></dd>"
		else
			ret = ret .. "</dt><dd>N.A.</dd>"
		end
	end

	return ret
end

function loops.bossAttacksInfoBox(frame)
	local defenseCalc = require("Module:DefenseCalc")
	local frameArgs = frame.args
	local attackList = explode(frameArgs.attackList,",")
	local damageList = explode(frameArgs.damageList,",")
	
	local ret = ""
	for i = 1, #attackList do
		ret = ret .. "<div class='pi-item pi-data pi-item-spacing pi-border-color' data-source=''><h3 class='pi-data-label pi-secondary-font' style='width: 80px;'>" .. attackList[i] .. "</h3><div class='pi-data-value pi-font'>"
		if(damageList[i]) 
        then 
        	local atkDamage = tonumber(damageList[i])
			local defZero = defenseCalc.calc({ args = { Attack = atkDamage } })
            ret = ret .. "<span class='simple-tooltip simple-tooltip-inline tooltipstered' data-simple-tooltip='&lt;span class=&apos;text-only&apos;&gt;" .. damageList[i] .. "&lt;/span&gt;'>" .. numFormater(damageList[i]) .. "</span>" .. "<span class='simple-tooltip simple-tooltip-inline tooltipstered' data-simple-tooltip='&lt;span class=&apos;text-only&apos;&gt;Required defense for zero damage: " .. defZero .. "&lt;/span&gt;'> (" .. numFormater(defZero) .. ")</span></div></div>"
        else 
            ret = ret .. "N/A</div></div>"
        end
	end

	return ret
end

function loops.parseLoop(frame)
	local ret = ""
	local frameArgs = frame.args
	local delimiter, list1, list2, list3, list4, returnDelim
	if(frameArgs.delimiter) then delimiter = frameArgs.delimiter else delimiter = "," end
	if(frameArgs.list1) then list1 = explode(frameArgs.list1, delimiter) end
	if(frameArgs.list2) then list2 = explode(frameArgs.list2, delimiter) end
	if(frameArgs.list3) then list3 = explode(frameArgs.list3, delimiter) end
	if(frameArgs.list4) then list4 = explode(frameArgs.list4, delimiter) end
	if(frameArgs.returnDelimiter) then returnDelim = frameArgs.returnDelimiter end
	local replaceString = frameArgs.replaceString
	
	for i = 1, #list1 do
		if(i > 1 and returnDelim) then ret = ret .. returnDelim end
		local tStr = replaceString
		if(list1) then tStr = tStr:gsub("%(1%)", list1[i]) end
		if(list2) then tStr = tStr:gsub("%(2%)", list2[i]) end
		if(list3) then tStr = tStr:gsub("%(3%)", list3[i]) end
		if(list4) then tStr = tStr:gsub("%(4%)", list4[i]) end
		
		ret = ret .. tStr
	end
	return ret
end

function loops.portalRowLoop(frame)
	local ret = ""
	local frameArgs = frame.args
	local reqs = explode(frameArgs.reqs, ",")
	local areas = explode(frameArgs.areas, ",")
	local reqsString = frameArgs.reqsString
	
	for i = 1, #reqs do
		if(i > 1 ) then ret = ret .. "</tr><tr>" end
		local tStr = reqsString
		tStr = tStr:gsub("%(1%)", reqs[i])
		if(areas[i] == "NULL") then 
			tStr = tStr .. "<td>This portal connects to nothing, or returns to a random default location.</td>"
		else
			tStr = tStr .. "<td>[[Worlds#" .. areas[i] .. "|" .. areas[i] .. "]]</td>"
		end
		ret = ret .. tStr
	end
	ret = ret .. "</tr>"
	
	return ret
end

VariablesLua = mw.ext.VariablesLua
function loops.numberNabber(frame)
	local ret = ""
	local frameArgs = frame.args
	local searchText = frameArgs.searchText
	local temp = frameArgs.list
	-- Remove image size and tooltip data
	local list = explode(temp:gsub("%d+px","px"):gsub('data\-simple\-tooltip.+\>"\>', ''), ",")
	local n
	
	for i = 1, #list do
		if(list[i]:find(searchText, 1, true)) then
			-- These are for testing and should be disabled when not in use.
			--local varValue = list[i]:sub(1, 2)
			--VariablesLua.vardefine( "nabberTest", varValue )
			if (list[i]:sub(1, 2):match("%d")) then
				n = tonumber(list[i]:match('%d[%d.,]*'))
			elseif(list[i]:find(": ", 1, true)) then 
				n = tonumber(list[i]:match('.*%f[%d.](%d*%.?%d+)'))
			end
			if (n >= 10^4) then
				ret = "<div class='tooltip'>" .. numFormater(n) .. "<span>" .. n .. "</span></div>"
			else
				ret = n
			end
			if(list[i]:match("[Cc]raft")) then ret = ret .. " (Crafted)"	end
			if(list[i]:match("[Bb]uy")) then ret = ret .. " (Bought)"	end
			return ret
		end
	end
	
	return ret
end

function loops.oneVariableTemplateParser(frame)
	local ret = ""
	local frameArgs = frame.args
	local delimiter = frameArgs.delimiter
	local list = explode(frameArgs.list, delimiter)
	local cols
	local template = frameArgs.template
	if(frameArgs.colCount) then cols = frameArgs.colCount else cols = 3 end
	if(frameArgs.divClass) then ret = '<div class="' .. frameArgs.divClass .. '">' else ret = '<div class="DetailboxGrid">' end
	for i = 1, #list do
		ret = ret .. frame:expandTemplate{title = template, args = { list[i] } };
	end
	ret = ret .. '</div>'
	return ret
end

return loops
Retrieved from "https://idleon.wiki/wiki/index.php?title=Module:Loops&oldid=74844"