Module:High-use
local p = {}
 
 -- _fetch looks at the &quot;demo&quot; argument.
 local _fetch = require('Module:Transclusion_count').fetch
 local yesno = require('Module:Yesno')
 
 function p.num(frame, count)
 	if count == nil then
 		if yesno(frame.args['fetch']) == false then
 			if (frame.args[1] or '') ~= '' then count = tonumber(frame.args[1]) end
 		else
 			count = _fetch(frame)
 		end
 	end
 	
 	-- Build output string
 	local return_value = &quot;&quot;
 	if count == nil then
 		if frame.args[1] == &quot;risk&quot; then
 			return_value = &quot;a very large number of&quot;
 		else
 			return_value = &quot;many&quot;
 		end
 	else
 		-- Use 2 significant figures for smaller numbers and 3 for larger ones
 		local sigfig = 2
 		if count &gt;= 100000 then
 			sigfig = 3
 		end
 		
 		-- Prepare to round to appropriate number of sigfigs
 		local f = math.floor(math.log10(count)) - sigfig + 1
 		
 		-- Round and insert &quot;approximately&quot; or &quot;+&quot; when appropriate
 		if (frame.args[2] == &quot;yes&quot;) or (mw.ustring.sub(frame.args[1],-1) == &quot;+&quot;) then
 			-- Round down
 			return_value = string.format(&quot;%s+&quot;, mw.getContentLanguage():formatNum(math.floor( (count / 10^(f)) ) * (10^(f))) )
 		else
 			-- Round to nearest
 			return_value = string.format(&quot;approximately&amp;#x20;%s&quot;, mw.getContentLanguage():formatNum(math.floor( (count / 10^(f)) + 0.5) * (10^(f))) )
 		end
 
 		-- Insert percentage of pages if that is likely to be &gt;= 1% and when |no-percent= not set to yes
 		if count and count &gt; 250000 and not yesno (frame:getParent().args['no-percent']) then
 			local percent = math.floor( ( (count/frame:callParserFunction('NUMBEROFPAGES', 'R') ) * 100) + 0.5)
 			if percent &gt;= 1 then
 				return_value = string.format(&quot;%s&amp;#x20;pages, or roughly %s%% of all&quot;, return_value, percent)
 			end
 		end	
 	end
 	
 	return return_value
 end
 
 -- Actions if there is a large (greater than or equal to 100,000) transclusion count
 function p.risk(frame)
 	local return_value = &quot;&quot;
 	if frame.args[1] == &quot;risk&quot; then
 		return_value = &quot;risk&quot;
 	else
 		local count = _fetch(frame)
 		if count and count &gt;= 100000 then return_value = &quot;risk&quot; end
 	end
 	return return_value
 end
 
 function p.text(frame, count)
 	-- Only show the information about how this template gets updated if someone
 	-- is actually editing the page and maybe trying to update the count.
 	local bot_text = (frame:preprocess(&quot;{{REVISIONID}}&quot;) == &quot;&quot;) and &quot;\n\n----\n'''Preview message''': Transclusion count updated automatically ([[Template:High-use/doc#Technical details|see documentation]]).&quot; or ''
 	
 	if count == nil then
 		if yesno(frame.args['fetch']) == false then
 			if (frame.args[1] or '') ~= '' then count = tonumber(frame.args[1]) end
 		else
 			count = _fetch(frame)
 		end
 	end
 	local title = mw.title.getCurrentTitle()
 	if title.subpageText == &quot;doc&quot; or title.subpageText == &quot;sandbox&quot; then
 		title = title.basePageTitle
 	end
 	
 	local systemMessages = frame.args['system']
 	if frame.args['system'] == '' then
 		systemMessages = nil
 	end
 	
 	-- This retrieves the project URL automatically to simplify localiation.
 	local templateCount = ('on [https://linkcount.toolforge.org/index.php?project=%s&amp;page=%s %s pages]'):format(
 		mw.title.getCurrentTitle():fullUrl():gsub('//(.-)/.*', '%1'),
 		mw.uri.encode(title.fullText), p.num(frame, count))
 	local used_on_text = &quot;'''This &quot; .. (mw.title.getCurrentTitle().namespace == 828 and &quot;Lua module&quot; or &quot;template&quot;) .. ' is used ';
 	if systemMessages then
 		used_on_text = used_on_text .. systemMessages ..
 			((count and count &gt; 2000) and (&quot;''', and &quot; .. templateCount) or (&quot;'''&quot;))
 	else
 		used_on_text = used_on_text .. templateCount .. &quot;'''&quot;
 	end
 	
 	
 	local sandbox_text =  (&quot;%s's [[%s/sandbox|/sandbox]] or [[%s/testcases|/testcases]] subpages, or in your own [[%s]]. &quot;):format(
 		(mw.title.getCurrentTitle().namespace == 828 and &quot;module&quot; or &quot;template&quot;),
 		title.fullText, title.fullText,
 		mw.title.getCurrentTitle().namespace == 828 and &quot;Module:Sandbox|module sandbox&quot; or &quot;Wikipedia:User pages#SUB|user subpage&quot;
 	)
 	
 	local infoArg = frame.args[&quot;info&quot;] ~= &quot;&quot; and frame.args[&quot;info&quot;]
 	if (systemMessages or frame.args[1] == &quot;risk&quot; or (count and count &gt;= 100000) ) then
 		local info = systemMessages and '.&lt;br/&gt;Changes to it can cause immediate changes to the Wikipedia user interface.' or '.'
 		if infoArg then
 			info = info .. &quot;&lt;br /&gt;&quot; .. infoArg
 		end
 		sandbox_text = info .. '&lt;br /&gt; To avoid major disruption' ..
 			(count and count &gt;= 100000 and ' and server load' or '') ..
 			', any changes should be tested in the ' .. sandbox_text ..
 			'The tested changes can be added to this page in a single edit. '
 	else
 		sandbox_text = (infoArg and ('.&lt;br /&gt;' .. infoArg .. ' C') or ' and c') ..
 			'hanges may be widely noticed. Test changes in the ' .. sandbox_text
 	end
 
 	
 	local discussion_text = systemMessages and 'Please discuss changes ' or 'Consider discussing changes '
 	if frame.args[&quot;2&quot;] and frame.args[&quot;2&quot;] ~= &quot;&quot; and frame.args[&quot;2&quot;] ~= &quot;yes&quot; then
 		discussion_text = string.format(&quot;%sat [[%s]]&quot;, discussion_text, frame.args[&quot;2&quot;])
 	else
 		discussion_text = string.format(&quot;%son the [[%s|talk page]]&quot;, discussion_text, title.talkPageTitle.fullText )
 	end
 	
 	return used_on_text .. sandbox_text .. discussion_text .. &quot; before implementing them.&quot; .. bot_text
 end
 
 function p.main(frame)
 	local count = nil
 	if yesno(frame.args['fetch']) == false then
 		if (frame.args[1] or '') ~= '' then count = tonumber(frame.args[1]) end
 	else
 		count = _fetch(frame)
 	end
 	local image = &quot;[[File:Ambox warning yellow.svg|40px|alt=Warning|link=]]&quot;
 	local type_param = &quot;style&quot;
 	local epilogue = ''
 	if frame.args['system'] and frame.args['system'] ~= '' then
 		image = &quot;[[File:Ambox important.svg|40px|alt=Warning|link=]]&quot;
 		type_param = &quot;content&quot;
 		local nocat = frame:getParent().args['nocat'] or frame.args['nocat']
 		local categorise = (nocat == '' or not yesno(nocat))
 		if categorise then
 			epilogue = frame:preprocess('{{Sandbox other||{{#switch:{{#invoke:Effective protection level|{{#switch:{{NAMESPACE}}|File=upload|#default=edit}}|{{FULLPAGENAME}}}}|sysop|templateeditor|interfaceadmin=|#default=[[Category:Pages used in system messages needing protection]]}}}}')
 		end
 	elseif (frame.args[1] == &quot;risk&quot; or (count and count &gt;= 100000)) then
 		image = &quot;[[File:Ambox warning orange.svg|40px|alt=Warning|link=]]&quot;
 		type_param = &quot;content&quot;
 	end
 	
 	if frame.args[&quot;form&quot;] == &quot;editnotice&quot; then
 		return frame:expandTemplate{
 				title = 'editnotice',
 				args = {
 						[&quot;image&quot;] = image,
 						[&quot;text&quot;] = p.text(frame, count),
 						[&quot;expiry&quot;] = (frame.args[&quot;expiry&quot;] or &quot;&quot;)
 				}
 		} .. epilogue
 	else
 		return require('Module:Message box').main('ombox', {
 			type = type_param,
 			image = image,
 			text = p.text(frame, count),
 			expiry = (frame.args[&quot;expiry&quot;] or &quot;&quot;)
 		}) .. epilogue
 	end
 end