end  
local function shsLinked(args)
return string.format("***%s State Highway System**\n\n*%s", stateName, three(args))
end  
local states
if state == '' then
states = ''
elseif state == 'AL' or state == 'ID' or state == 'ND' or state == 'WY' then
states = shs(args)
elseif state == 'AK' then
states = "***Alaska Routes**\n\n*Interstate\n*Scenic Byways"
elseif state == 'AS' then
states = "***Highways in American Samoa**"
elseif state == 'AZ' then
states = string.format("%s\n*Proposed\n*Former", shs(args))
elseif state == 'AR' then
states = string.format("***Arkansas Highway System**\n\n*%s\n*Business\n*Spurs\n*Suffixed\n*Scenic\n*Heritage", three(args))
elseif state == 'CA' then
if args.type == 'CR' then
states = "***County routes in California**"
else
states = string.format("***State highways in California**\n\n*%s\n*Scenic\n*History\n*Pre&#8209;1964\n*Unconstructed\n*Deleted\n*Freeways", three(args))
end
elseif state == 'CO' then
states = string.format("%s\n*Scenic", shs(args))
elseif state == 'CT' then
states = string.format("%s\n**SSR\n**SR", shs(args))
elseif state == 'DE' then
states = "***Delaware State Route System**\n\n*List\n*Byways"
elseif state == 'DC' then
states = "***Streets and Highways of Washington, DC**\n\n*Interstate\n*US\n*DC\n*State-Named Streets"
elseif state == 'FL' then
local county = args.county or ''
if args.type == 'CR' and county ~= '' then
states = string.format("***County roads in Florida**\n\n*County roads in %s County", county, county)
elseif args.type == 'CR' and county == '' then
states = "***County roads in Florida**"
else
states = string.format("%s\n**Former\n**Pre&#8209;1945\n*Toll\n*Scenic", shsLinked(args))
end
elseif state == 'GA' then
states = "***Georgia State Highway System**\n\n*Interstate\n*US\n*State\n*\n*Special"
elseif state == 'GU' then
states = "***Guam Highways**"
elseif state == 'HI' then
states = "***Routes in Hawaii**"
elseif state == 'IL' then
local county = args.county or ''
if args.type == 'CR' and county ~= '' then
states = string.format("***%s County Roads**", county)
elseif args.type == 'CR' and county == '' then
states = "***County roads in Illinois**"
else
states = string.format("%s\n*Tollways", shsLinked(args))
end
elseif state == 'IN' then
local county = args.county or ''
if args.type == 'CR' and county ~= '' then
states = string.format("***%s County Roads**", county)
elseif args.type == 'CR' and county == '' then
states = "***County roads in Indiana**"
else
states = string.format("%s\n*Scenic", shs(args))
end
elseif state == 'IA' then
states = string.format("***Iowa Primary Highway System**\n\n*%s\n*Secondary\n*Scenic", three(args))
elseif state == 'KS' then
states = string.format("%s\n*Spurs", shs(args))
elseif state == 'KY' then
states = string.format("%s\n*Parkways", shs(args))
elseif state == 'LA' then
local county = args.county or args.parish or ''
if args.type == 'PR' or args.type == 'CR' then
if county ~= '' then
states = string.format("***%s Parish Roads**", county)
else
states = "***Parish roads in Louisiana**"
end
else
states = string.format("%s\n*Scenic", shs(args))
end
elseif state == 'ME' then
states = string.format("%s\n*Auto trails\n*Lettered&nbsp;highways", shsLinked(args))
elseif state == 'MD' then
local county = args.county or ''
if args.type == 'CR' and county ~= '' then
states = string.format("*** County Roads in %s County**", county)
elseif args.type == 'CR' and county == '' then
states = "***County roads in Maryland**"
else
states = string.format("***Maryland highway system**\n\n*%s\n*Scenic Byways", three(args))
end
elseif state == 'MA' or state == 'MS' then
states = string.format("%s", shsLinked(args))
elseif state == 'MI' then
local county = args.county or ''
if args.type == 'CR' and county ~= * or args.type == 'NFSB' and county ~= * then
states = string.format("***%s County Roads**", county)
elseif args.type == 'CR' and county == * or args.type == 'NFSB' and county == * then
states = "***County roads in Michigan**"
elseif args.type == 'CDH' then
states = "***County-Designated Highways**"
else
states = string.format("***Michigan State Trunkline Highway System**\n\n*%s\n*Byways", three(args))
end
elseif state == 'MN' then
local county = args.county or ''
if args.type == 'CR' or args.type == 'CSAH' then
if county ~= '' then
states = string.format("***County roads of Minnesota**\n\n*%s County", county, county)
else
states = "***County roads of Minnesota**"
end
else
states = string.format("***Minnesota Trunk Highway System**\n\n*%s\n*Legislative routes", three(args))
end
elseif state == 'MO' then
states = string.format("%s\n*Supplemental", shsLinked(args))
elseif state == 'MT' then
states = string.format("***Montana Highway System**\n\n*%s\n*Secondary", three(args))
elseif state == 'NE' then
states = string.format("%s\n*Link\n*Spur\n**State Spurs\n*Recreation", shsLinked(args))
elseif state == 'NV' then
states = string.format("%s\n*\n*Pre&#8209;1976\n*Scenic", shs(args))
elseif state == 'NH' then
states = string.format("***New Hampshire Highway System**\n\n*%s\n*Turnpikes", three(args))
elseif state == 'NJ' then
local county = args.county or ''
if args.type == 'CR' then
if county ~= '' then
states = string.format("***County Routes in %s County**\n\n*System\n*500-series routes", county, county)
else
states = "***County routes in New Jersey**\n\n*500-series routes"
end
else
states = string.format("***New Jersey State Highway Routes**\n\n*%s\n*Scenic Byways", three(args))
end
elseif state == 'NM' then
states = string.format("%s\n*Scenic", shs(args))
elseif state == 'NY' then
local county = args.county or ''
if args.type == 'CR' then
if county ~= '' then
states = string.format("***County routes in New York**\n\n*County Routes in %s County", county, county)
else
states = "***County routes in New York**"
end
else
states = string.format("***New York Highways**\n\n*%s\n*Reference\n*Parkways", three(args))
end
elseif state == 'NC' then
states = string.format("***North Carolina Highway System**\n\n*%s\n*Scenic", three(args))
elseif state == 'MP' then
states = "***Northern Mariana Islands Highways**"
elseif state == 'OH' then
if args.type == 'CR' then
states = "***County roads in Ohio**"
else
states = string.format("%s\n*Scenic", shs(args))
end
elseif state == 'OR' then
states = string.format("***Oregon Highways**\n\n*%s\n*Named\n*Scenic", three(args))
elseif state == 'OK' then
states = string.format("%s\n*Turnpikes", shs(args))
elseif state == 'PA' then
states = string.format("***Pennsylvania State Route System**\n\n*%s\n*Scenic Byways\n*Legislative", three(args))
elseif state == 'PR' then
states = "***Roads in Puerto Rico**\n\n*List"
elseif state == 'RI' then
states = "***Rhode Island Routes**"
elseif state == 'SC' then
states = string.format("%s\n*Scenic", shsLinked(args))
elseif state == 'SD' then
states = string.format("***South Dakota State Trunk Highway System**\n\n*%s", three(args))
elseif state == 'TN' then
states = string.format("***Tennessee State Routes**\n\n*%s", three(args))
elseif state == 'TX' then
states = string.format("***Highways in Texas**\n\n*%s\n*Toll\n*Loops\n*Spurs\n*FM/RM\n*Park\n*Rec", three(args))
elseif state == 'UT' then
states = string.format("%s\n*\n*Minor\n*Scenic", shs(args))
elseif state == 'VI' then
states = "***USVI Highways**"
elseif state == 'VT' then
states = "***State highways in Vermont**"
elseif state == 'VA' then
states = "***Virginia Routes**\n\n*Interstate\n*US\n*Primary\n*Secondary\n*Byways\n*History\n*HOT lanes"
elseif state == 'WA' then
states = string.format("***State highways in Washington**\n\n*%s\n*Scenic\n*Pre-1964\n*1964 renumbering\n*Former", three(args))
elseif state == 'WV' then
local county = args.county or ''
if args.type == 'CR' then
if county ~= '' then
states = string.format("***County Routes in West Virginia**\n\n*%s County Routes", county, county)
else
states = "***County Routes in West Virginia**"
end
else
states = string.format("%s", shsLinked(args))
end
elseif state == 'WI' then