Jump to content

Module:Infobox road/color/sandbox

Add links
From Wikipedia, the free encyclopedia
< Module:Infobox road | color
This is an old revision of this page, as edited by Fredddie (talk | contribs) at 21:19, 18 February 2021 (save point). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.
local p = {}

function country(frame)
	local countryAbbr = args.country
	local type = args.type
	
	for i,countryAbbr in pairs({'BEL', 'BGD', 'EUR', 'IND', 'ISL', 'SWE', 'VNM'}) do
    	header = countryAbbr
	end
	
	for i,countryAbbr in pairs({'ARG', 'BOL', 'CHL', 'CHN', 'CRI', 'ECU', 'HKG', 'MEX', 'NZL', 'URY'}) do
    	header = "MUTCDgreen"
	end

	for i,countryAbbr in pairs({'EST', 'JOR'}) do
    	header = "motorway"
	end
	
	if countryAbbr == 'ALB' then
		for i,type in pairs({'A'}) do
    		header = "EUR"
    	end
    else header = countryAbbr
    	end

	if countryAbbr == 'AUS' then
		for i,type in pairs({'freeway', 'highway', 'road', 'street', 'track'}) do
    		header = "AUS-" .. type
		end
		for i,type in pairs({'city highway'}) do
    		header = "AUS-highway"
		end
		for i,type in pairs({'rural road'}) do
    		header = "AUS-road"
    	end
    else header = countryAbbr
    	end
	
	if countryAbbr == 'AUT' then
		for i,type in pairs({'A', 'S', 'B'}) do
    		header = countryAbbr
    	end
    else header = "minor"
    	end


		do -- Bosnia and Herzegovina
			local BIH = Country:new{default = "background:#0B8F4B; color:#fff;"}
			BIH:addTypesAsColor({"M", "B"}, "background:#0066CC; color:#fff;")
			BIH:addTypesAsColor({"R"}, "background:#FFCC33; border:2px solid #000;")
			colors.BIH = BIH
		end -- Bulgaria		
		do -- Bulgaria
			local BGR = Country:new{default = "MUTCDblue"}
			BGR:addTypesAsColor({"A"}, "MUTCDgreen")
			colors.BGR = BGR
		end -- Bulgaria
		do -- Croatia
			local HRV = Country:new{default = "default"}
			HRV:addTypesAsColor({"E", "A"}, "EUR")
			HRV:addTypesAsColor({"D"}, "background:#0066CC; color:#fff;")
			HRV:addTypesAsColor({"Z"}, "background:#FFCC33;")
			colors.HRV = HRV
		end -- Croatia
		do -- Cyprus
			local CYP = Country:new{default = "background:#003F87; color:#FFC000;"}
			CYP:addTypesAsColor({"A"}, "background:#005024; color:#FFC000;")
			colors.CYP = CYP
		end -- Cyprus
		do -- Czech Republic
			local CZE = Country:new{default = "MUTCDblue"}
			CZE:addTypesAsColor({"D", "R"}, "MUTCDgreen")
			colors.CZE = CZE
		end -- Czech Republic
		do -- Denmark
			local DNK = Country:new{default = "background:#039; color:#fff;"}
			DNK:addTypesAsColor({"E", "M"}, "MUTCDgreen")
			DNK:addTypesAsColor({"S"}, "background:#fff; border:2px solid #af1e2d; color:#af1e2d;")
			colors.DNK = DNK
		end -- Denmark
		do -- Finland
			local FIN = Country:new{default = "background:#0091ff; color:#fff;"}
			FIN:addTypesAsColor({"E"}, "background:#00997c; color:#fff;")
			colors.FIN = FIN
		end -- Finland
		do -- France
			local FRA = Country:new{default = "minor"}
			FRA:addTypesAsColor({"A"}, "motorway")
			FRA:addTypesAsColor({"N"}, "MUTCDgreen")
			FRA:addTypesAsColor({"E"}, "background:#28961e; color:#fff;")
			colors.FRA = FRA
			colors.MTQ = FRA
			colors.DZA = FRA
		end -- France
		do -- Georgia
			local GEO = Country:new{default = "default"}
			GEO:addTypesAsColor({"A", "International"}, "background:#039; color:#fff;")
			colors.GEO = GEO
		end -- Georgia
		do -- Germany
			local DEU = Country:new{default = "default"}
			DEU:addTypesAsColor({"A", "Autobahn"}, "background:#003ABD; color:#fff;")
			DEU:addTypesAsColor({"B", "Bundesstraße", "Bundesstrasse"}, "background:#FC3;")
			DEU:addTypesAsColor({"E"}, "EUR")
			DEU:addTypesAsColor({"Scenic"}, "background:#633A34; color:#fff;")
			colors.DEU = DEU
		end -- Germany
                do -- Ghana
			local GHA = Country:new{default = "MUTCDgreen"}
			GHA:addTypesAsColor({"N"}, "motorway")
			colors.GHA = GHA
		end -- Ghana
		do -- Greece
			local GRC = Country:new{default = "motorway"}
			GRC:addTypesAsColor({"A"}, "MUTCDgreen")
			colors.GRC = GRC
		end -- Greece
		do -- Hungary
			local HUN = Country:new{default = "MUTCDgreen"}
			HUN:addTypesAsColor({"M"}, "motorway")
			colors.HUN = HUN
		end -- Hungary
                do -- Iran
			local IRN = Country:new{default = "default"}
			IRN:addTypesAsColor({"freeway"}, "motorway")
			IRN:addTypesAsColor({"expressway", "road"}, "background:#00703C; color:#fff;")
			IRN:addTypesAsColor({"boulevard", "street"}, "background:#fff; color:#000;")
			colors.IRN = IRN
		end -- Iran
		do -- Republic of Ireland
			local IRL = Country:new{default = "default"}
			IRL:addTypesAsColor({"M"}, "motorway")
			IRL:addTypesAsColor({"N"}, "Aprimary")
			IRL:addTypesAsColor({"R"}, "minor")
			colors.IRL = IRL
		end -- Republic of Ireland
		do -- Isle of Man
			local IMN = Country:new{default = "minor"}
			IMN:addTypesAsColor({"A", "Primary"}, "Aprimary")
			colors.IMN = IMN
		end -- Isle of Man
		do -- Israel
			local ISR = Country:new{default = "background:#007E00; color:#fff;"}
			ISR:addTypesAsColor({"Fwy", "Freeway", "Dual"}, "background:#0000FE; color:#fff;")
			colors.ISR = ISR
		end -- Israel
		do -- Italy
			local ITA = Country:new{default = "default"}
			ITA:addTypesAsColor({"A"}, "EUR")
			ITA:addTypesAsColor({"RA"}, "EUR")
			ITA:addTypesAsColor({"SS"}, "MUTCDblue")
			ITA:addTypesAsColor({"E"}, "EUR")
			colors.ITA = ITA
		end -- Italy
        do -- Kosovo
			local KOS = Country:new{default = "background:#0066cc; color:#fff;"}
			KOS:addTypesAsColor({"R"}, "background:#009933; color:#fff;")
			KOS:addTypesAsColor({"E"}, "EUR")
			colors.KOS = KOS
		end -- Kosovo
		do -- Nepal
			local NPL = Country:new{default = "minor"}
			-- NPL:addTypesAsColor({"M", "Motorway", "AM", "MNamed"}, "motorway")
			NPL:addTypesAsColor({"H"}, "background:#00703C; color:#fff;")
			colors.NPL = NPL
		end -- Nepal
		do -- Netherlands
			local NLD = Country:new{default = "motorway"}
			NLD:addTypesAsColor({"E"}, "EUR")
			colors.NLD = NLD
		end -- Netherlands
		do -- Norway
			local NOR = Country:new{default = "background:#F2A900;"}
			NOR:addTypesAsColor({"E"}, "background:#00965E; color:#fff;")
			colors.NOR = NOR
		end -- Norway
		do -- Northern Ireland
			local NIR = Country:new{default = "minor"}
			NIR:addTypesAsColor({"M", "Motorway", "AM", "MNamed"}, "motorway")
			NIR:addTypesAsColor({"A", "Primary"}, "Aprimary")
			colors.NIR = NIR
		end -- Northern Ireland
		do -- Malaysia
			local MYS = Country:new{default = "motorway"}
			MYS:addTypesAsColor({"E"}, "MUTCDgreen")
			colors.MYS = MYS
		end -- Malaysia
		do -- Morocco
			local MAR = Country:new{default = "minor"}
			MAR:addTypesAsColor({"A"}, "motorway")
			MAR:addTypesAsColor({"Motorway"}, "motorway")
			colors.MAR = MAR
		end -- Morocco
        do -- Pakistan
			local PAK = Country:new{default = "background:#0066cc; color:#fff;"}
			PAK:addTypesAsColor({"M"}, "background:#22B14C; color:#fff;")
			PAK:addTypesAsColor({"E"}, "background:#F5C31D; color:#000;")
			colors.PAK = PAK
		end -- Pakistan
		do -- Philippines
            local PHL = Country:new{default = "background:#093; color:#fff;"}
            PHL:addTypesAsColor({"AH", "Asian Highway"}, "background:#1e2c76; color:#fff;")
            colors.PHL = PHL
        end -- Philippines 
		do -- Poland
			local POL = Country:new{default = "MUTCDgreen"}
			POL:addTypesAsColor({"A", "S"}, "motorway")
			colors.POL = POL
		end --Poland 
		do -- Russia
			local RUS = Country:new{default = "background:#0d69e1; color:#fff;"}
			RUS:addTypesAsColor({"E"}, "background:#00a500; color:#fff;")
			RUS:addTypesAsColor({"AH"}, "background:#00004e; color:#fff;")
			colors.RUS = RUS
		end --Russia
		do -- Slovakia
			local SVK = Country:new{default = "motorway"}
			SVK:addTypesAsColor({"D", "R"}, "MUTCDgreen")
			colors.SVK = SVK
		end -- Slovakia
		do -- South Africa
			local ZAF = Country:new{default = "MUTCDgreen"}
			ZAF:addTypesAsColor({"M", "N"}, "motorway")
			colors.ZAF = ZAF
		end -- South Africa
		do -- Spain
			local ESP = Country:new{default = "background:#E8E8E8;"}
			ESP:addTypesAsColor({"E"}, "background:#13926C; color:#fff;")
			ESP:addTypesAsColor({"A", "AP", "R", "Autovia", "Autovía", "Autopista", "autovia", "autovía", "autopista"}, "background:#19408B; color:#fff;")
			ESP:addTypesAsColor({"N", "national", "nacional"}, "background:#bf0411; color:#fff;")
			ESP:addTypesAsColor({"autonomica1", "autonómica1"}, "background:#E96310; color:#000;")
			ESP:addTypesAsColor({"autonomica2", "autonómica2"}, "background:#5D3F0F; color:#fff;")
			ESP:addTypesAsColor({"autonomica3", "autonómica3"}, "background:#F4B70D; color:#000;")
			colors.ESP = ESP
		end -- Spain
		do -- Sri Lanka
			local LKA = Country:new{default = "MUTCDgreen"}
			LKA:addTypesAsColor({"E"}, "motorway")
			LKA:addTypesAsColor({"A"}, "MUTCDgreen")
			colors.LKA = LKA
		end -- Sri Lanka
		do -- Switzerland
			local CHE = Country:new{default = "default"}
			CHE:addTypesAsColor({"E"}, "EUR")
			colors.CHE = CHE
		end -- Switzerland
		do -- Thailand
			local THA = Country:new{default = "MUTCDgreen"}
			THA:addTypesAsColor({"AH", "T"}, "MUTCDblue")
			colors.THA = THA
		end -- Thailand
		do -- Turkey
			local TUR = Country:new{default = "MUTCDgreen"}
			TUR:addTypesAsColor({"state", "D"}, "MUTCDblue")
			TUR:addTypesAsColor({"E"}, "EUR")
			colors.TUR = TUR
		end -- Turkey
		do -- Ukraine
			local UKR = Country:new{default = "background:#0000cc; color:#fff;"}
			UKR:addTypesAsColor({"E"}, "background:#009900; color:#fff;")
			colors.UKR = UKR
		end -- Ukraine
		do -- United Kingdom
			local GBR = Country:new{default = "minor"}
			GBR:addTypesAsColor({"M", "Motorway", "AM", "MNamed"}, "motorway")
			GBR:addTypesAsColor({"A", "Primary"}, "Aprimary")
			colors.GBR = GBR
		end -- United Kingdom
		do -- United States
			local USA = Country:new{default = "MUTCDgreen"}
			USA:addTypesAsColor({"FFH", "FR", "NER", "Rec", "RE", "Park", "Pkwy", "NSB", "NFSB", "FSB", "Scenic", "SB", "Post", "Postal"}, "hist")
			colors.USA = USA
		end -- United States
	end -- Multi-color countries
	


function p._color(args)
	return colors:color(args)
end


return p
Retrieved from "https://en.wikipedia.org/w/index.php?title=Module:Infobox_road/color/sandbox&oldid=1007574512"