if args.type == "Roman" then
return "***Roman roads in Britannia**"
else
return "***Roads in the United Kingdom**\n\n*Motorways\n*A and B road zones"
end  
elseif country(args) == 'GEO' then
return "***Roads in Georgia**\n\n*International Routes\n*National Routes"  
elseif country(args) == 'GHA' then
return "***Ghana Road Network**"  
elseif country(args) == 'GIB' then
return "***Streets in Gibraltar**"  
elseif country(args) == 'GRC' then
return "***Highways in Greece**\n\n*Motorways\n*National Roads"  
elseif country(args) == 'HKG' then
return "***Transport in Hong Kong**\n\n*Routes\n*Roads and Streets"  
elseif country(args) == 'HUN' then
return "***Roads in Hungary**\n\n*Highways\n*Main roads\n*Local roads"  
elseif country(args) == 'IND' then
local state = args.state or ''
local stateName = ISO.name({"IND-" .. state})
local links = "***Roads in India**\n\n*Expressways\n*National\n*State\n*Asian"
if state ~= '' then
return string.format("%s \n\n**State Highways in %s**", links, stateName, stateName)
else
return links
end  
elseif country(args) == 'IRL' then
return "***Roads in Ireland**\n\n*Motorways\n*Primary\n*Secondary\n*Regional"  
elseif country(args) == 'IRN' then
return "***Highways in Iran**\n\n*Freeways"  
elseif country(args) == 'ISR' then
return "***Roads in Israel**\n\n*Highways"  
elseif country(args) == 'ITA' then
return "***Roads in Italy**\n\n**Autostrade*\n*State\n*Regional\n*Provincial"  
elseif country(args) == 'JPN' then
return "***National highways of Japan**\n\n*Expressways of Japan"  
elseif country(args) == 'KOR' then
return "***Highway systems of South Korea**\n\n*Expressways\n*National\n*Local"  
elseif country(args) == 'KOS' then -- this is not an official ISO code
return "***Roads in Kosovo**"  
elseif country(args) == 'LKA' then
return "***Roads in Sri Lanka**\n\n*Expressways\n*A-Grade\n*B-Grade"  
elseif country(args) == 'LUX' then
return "***Motorways in Luxembourg**"  
elseif country(args) == 'LVA' then
return "***National Roads in Latvia**"  
elseif country(args) == 'MEX' then
local state = args.state or ''
local stateName = ISO.name({"MEX-" .. state})
local links = "***Mexican Federal Highways**\n\n*List\n**Autopistas*"
if state == 'SON' then
return string.format("%s \n\n**State Highways in %s**", links, stateName, stateName)
elseif state == 'DUR' then
return string.format("%s \n\n**State Highways in %s**", links, stateName, stateName)
else
return links
end  
elseif country(args) == 'MWI' then
return "***Transport in Malawi**\n\n*Roads"  
elseif country(args) == 'MYS' then
return "***Highways in Malaysia**\n\n*Expressways\n*Federal\n*State"  
elseif country(args) == 'NIR' then
return "***Roads in Northern Ireland**\n\n*Motorways\n*A roads in Northern Ireland"  
elseif country(args) == 'NLD' then
if args.type == "E" then
return europe(args)
else
return "***Roads in the Netherlands**\n\n*Motorways\n*E-roads\n*Provincial\n*City routes"
end  
elseif country(args) == 'NOR' then
if args.type == "E" then
return europe(args)
else
return "***Roads in Norway**\n\n*National Roads\n*County Roads"
end  
elseif country(args) == 'NZL' then
return "***New Zealand state highways**\n\n*Motorways and expressways\n*List"  
elseif country(args) == 'PHL' then
if args.type == "AH" then
return asia(args)
else
return "***Roads in the Philippines**\n\n*Highways\n*Expressways\n**List"
end  
elseif country(args) == 'POL' then
return "***National roads in Poland**\n\n*Voivodeship roads"  
elseif country(args) == 'ROU' then
return "***Roads in Romania**\n\n*Highways"  
elseif country(args) == 'RUS' then
return "***Russian Federal Highways**"  
elseif country(args) == 'SGP' then
return "***Expressways of Singapore**"  
elseif country(args) == 'SRB' then
return "***Roads in Serbia**\n\n*Motorways"  
elseif country(args) == 'SWE' then
if args.type == "E" then
return europe(args)
else
return "***Roads in Sweden**\n\n*National Roads\n*County Roads"
end  
elseif country(args) == 'THA' then
return "***Highways in Thailand**\n\n*Motorways\n*Asian Highways"  
elseif country(args) == 'TUR' then
return "***Highways in Turkey**\n\n*Motorways\n**List\n*State Highways\n**List"  
elseif country(args) == 'TWN' then
return "***Highway system in Taiwan**"  
elseif country(args) == 'UKR' then
return "***Roads in Ukraine**\n\n*State Highways"  
elseif country(args) == 'URY' then
return "***National Routes of Uruguay**"  
elseif country(args) == 'USA' then
local state = args.state or ''
local stateName = ISO.name({"USA-" .. state})  
local national
if args.type == nil then
national = ''
elseif args.type == 'ADHS' then
national = "***Appalachian Development Highway System**"
elseif args.type == 'FFH' or args.type == 'FH' or args.type == 'FR' or args.type == 'FH-named' then
national = "***Forest Highway System**"
elseif args.type == 'ISTEA' then
national = "***High-Priority Corridors**"
elseif args.type == 'NER' then
national = "***New England road marking system**"
elseif args.type == 'NHS' then
national = "***National Highway System**\n\n*Interstate\n*STRAHNET"
elseif args.type == 'NSB' or args.type == 'NFSB' or args.type == 'FSB' or args.type == 'Byway' or args.type == 'Npkwy' or args.type == 'GRR' or args.type == 'NTP' or args.type == 'BRP' or args.type == 'BCB' or args.type == 'Back Country' then
national = "***Scenic Byways**\n\n*National\n*National Forest\n*BLM\n*NPS"
elseif args.type == 'Post' or args.type == 'Postal' then
national = "***Post Roads in the United States**"
elseif args.type == 'Trail' or args.type == 'Albert Pike' or args.type == 'Arrowhead Trail' or args.type == 'Dixie' or args.type == 'Jackson' or args.type == 'Jefferson' or args.type == 'Jefferson Davis' or args.type == 'LCT' or args.type == 'Lincoln' or args.type == 'National' or args.type == 'Roosevelt' or args.type == 'Spanish' or args.type == 'National Old Trails Road' then
national = "***Auto trails**"
elseif args.type == 'Tour' then
national = "***Great Lakes Circle Tour**"
elseif args.type == 'USBR' then
national = "***United States Bicycle Route System**\n\n*List"
elseif string.match( args.type, "^US" ) == 'US' then
national = "***United States Numbered Highway System**\n\n*List\n*Special\n*Divided"
elseif args.type == 'I' or args.type == 'Interstate' or args.type == 'I-named' or args.type == 'I' .. state or args.type == 'BL' or string.match( args.type, "^BL" ) == 'BL' or string.match( args.type, "^Fut" ) == 'Fut' or string.match( args.type, "^IS" ) == 'IS' or string.match( args.type, "^I %d" ) == 'I 1' or (state == 'OH' and args.type == 'Turnpike') then
national = "***Interstate Highway System**\n\n*Main\n*Auxiliary\n*Suffixed\n*Business\n*Future"
else
national = ''
end  
local function routes(args)
local routes
if state == 'AL' or state == 'AZ' or state == 'CT' or state == 'IL' or state == 'ME' or state == 'NV' or state == 'NH' or state == 'NY' or state == 'OH' or state == 'PA' or state == 'TN' or state == 'WA' or state == 'WV' then
routes = "state routes"
elseif state == 'FL' or state == 'IN' or state == 'NM' then
routes = "state roads"
elseif state == 'KY' or state == 'VA' then
routes = "primary state highways"
elseif state == 'MI' then
routes = "state trunkline highways"
elseif state == 'WI' then
routes = "state trunk highways"
else
routes = "state highways"
end  
return routes
end  
local function whoCallsThemRoutes(args)
local routes
if state == 'CA' or state == 'MS' or state == 'MO' or state == 'NV' or state == 'NH' or state == 'NJ' or state == 'NM' or state == 'NY' or state == 'OH' or state == 'PA' or state == 'WA' then
routes = "Routes"
else
routes = "Highways"
end  
return routes
end  
local function three(args)
return string.format("Interstate\n*US\n*State", stateName, whoCallsThemRoutes(args), stateName, routes(args), stateName )
end  
local function shs(args)
return string.format("***%s State Highway System**\n\n*%s", stateName, three(args))
end  
local function shsLinked(args)
return string.format("***%s State Highway System**\n\n*%s", stateName, three(args))