local p = {}  function p.monument(frame)   local markergroup = {['Q46169'] = 'see', ["Q728904"] = 'see', ['Q16653233'] = 'do', ['Q7212557'] = 'go', ['Q23790'] = 'buy', ['Q167346'] = 'eat', ['Q272231'] = 'sleep', ['Q179049'] = 'vicinity'}   local pArgs = frame:getParent().args   local lang = pArgs['lang'] or 'ru'    local country = pArgs['country']    local translations = mw.loadData("Module:Natural monument wikidata/translation")    local llanguage = 'en'   local campaign = ''   local noupload = 'yes'   local dcat = ''    function list_check(t, x)     for _, y in ipairs(t) do       if x == y then         return true       end     end     return false   end    function find_by_wdid(t, wd)     for a, b in ipairs(t) do        if b.wdid == wd then           return a        end     end     return nil   end    local countriesinfo = mw.ext.data.get("Sandbox/Bok/config.tab")   for i, v in ipairs(countriesinfo.data) do     if v[1] == country then       llanguage = v[2]       campaign = v[3]       noupload = v[5]       dcat = v[4]       end   end      local mwl = mw.language.new( lang )   local sort = pArgs['sort'] or 'no'   local sections = pArgs['sections'] or ''       local wdids = pArgs['wdid']   wdids = mw.text.split( wdids, ",", true)   local wdids_for_map = ""      values = {}      for i, wdid in ipairs(wdids) do     wdids_for_map = wdids_for_map .. "wd:" .. wdid .. " "     values[i] = {}     local parts =  mw.wikibase.getBestStatements(wdid, 'P361')     values[i]['complex'] = ''     values[i]['main_complex'] = ''     for j, complex in ipairs(parts) do       if list_check(wdids, complex['mainsnak']['datavalue']['value']['id']) then         values[i]['complex'] = complex['mainsnak']['datavalue']['value']['id']       end     end 	values[i]['wdid'] = wdid     values[i]['name'] = mw.wikibase.getLabelByLang(wdid, lang) or mw.wikibase.getLabelByLang(wdid, "ru") or mw.wikibase.getLabelByLang(wdid, "en") or mw.wikibase.getLabelByLang(wdid, llanguage) or ''     values[i]['wiki'] = mw.wikibase.getSitelink(wdid, lang .. 'wiki') or ''     values[i]['wikivoyage'] = mw.wikibase.getSitelink(wdid, 'ruwikivoyage') or '' -- не переведен     values[i]['wdpa'] = mw.wikibase.getBestStatements(wdid, 'P809')     values[i]['wdpa'] = (values[i]['wdpa'][1] and values[i]['wdpa'][1]['mainsnak']['datavalue']['value']) or ''     values[i]['image'] = mw.wikibase.getBestStatements(wdid, 'P18')     values[i]['image'] = (values[i]['image'][1] and values[i]['image'][1]['mainsnak']['datavalue']['value']) or ''     values[i]['commonscat'] = mw.wikibase.getBestStatements(wdid, 'P373')     values[i]['commonscat'] = (values[i]['commonscat'][1] and values[i]['commonscat'][1]['mainsnak']['datavalue']['value']) or ''      local coords = mw.wikibase.getBestStatements(wdid, 'P625')     values[i]['lat'] = (coords[1] and coords[1]['mainsnak']['datavalue']['value'].latitude) or ''     values[i]['long'] = (coords[1] and coords[1]['mainsnak']['datavalue']['value'].longitude) or ''     values[i]['area'] = mw.wikibase.getBestStatements(wdid, 'P2046') 	if values[i]['area'][1] then 	  local area_n = mwl:formatNum(tonumber(values[i]['area'][1]['mainsnak']['datavalue']['value']['amount'])) 	  local p5061 = mw.wikibase.getBestStatements(string.gsub(values[i]['area'][1]['mainsnak']['datavalue']['value']['unit'], "http://www.wikidata.org/entity/", ""), 'P5061') 	  local area_u = '' 	  for k, v in ipairs(p5061) do 	    if (v['mainsnak']['datavalue']['value']['language'] == lang or (area_u == '' and v['mainsnak']['datavalue']['value']['language'] == 'en')) then 		  area_u = v['mainsnak']['datavalue']['value']['text'] 		end       end       values[i]['area'] = area_n .. ' ' .. area_u	   	else 	  values[i]['area'] = '' 	end     values[i]['iucntype'] = mw.wikibase.getBestStatements(wdid, 'P814')     values[i]['iucntype'] = (values[i]['iucntype'][1] and values[i]['iucntype'][1]['mainsnak']['datavalue'] and mw.wikibase.getLabelByLang(values[i]['iucntype'][1]['mainsnak']['datavalue']['value']['id'], lang)) or ''	     local p17 = mw.wikibase.getBestStatements(wdid, 'P17')     p17 = (p17[1] and p17[1]['mainsnak']['datavalue']['value']['id']) or ''     values[i]['municipality'] = mw.wikibase.getBestStatements(wdid, 'P131') or ''     if values[i]['municipality'] and values[i]['municipality'] ~= '' then       values[i]['municipality'] = (values[i]['municipality'][1] and mw.wikibase.getLabelByLang(values[i]['municipality'][1]['mainsnak']['datavalue']['value']['id'], lang)) or ''       values[i]['first_level'] = values[i]['municipality'] or ''       local x = mw.wikibase.getBestStatements(wdid, 'P131') or ''       x = x[1] and mw.wikibase.getBestStatements(x[1]['mainsnak']['datavalue']['value']['id'], 'P131')       while x and next(x) and x[1]['mainsnak']['datavalue']['value']['id'] ~= p17 do 	    values[i]['first_level'] = mw.wikibase.getLabelByLang(x[1]['mainsnak']['datavalue']['value']['id'], lang) or ''         values[i]['municipality'] =  values[i]['first_level'] .. ", " .. values[i]['municipality'] or ''         x = mw.wikibase.getBestStatements(x[1]['mainsnak']['datavalue']['value']['id'], 'P131')       end     end     values[i]['website'] = mw.wikibase.getBestStatements(wdid, 'P856')     values[i]['website'] = (values[i]['website'][1] and values[i]['website'][1]['mainsnak']['datavalue']['value']) or ''      local p31 = mw.wikibase.getBestStatements(wdid, 'P31')     values[i]['m_type'] = ''     for k, v in ipairs(p31) do       local x = v.mainsnak.datavalue.value.id 	  if x == 'Q46169' or x == 'Q16653233' or x == 'Q7212557' or x == 'Q23790' or x == 'Q167346' or x == 'Q272231' or x == 'Q179049' or x == 'Q728904' then 	    values[i]['m_type'] = x 	  end     end     if values[i]['m_type'] ~= '' then        values[i]['markergroup'] = markergroup[values[i]['m_type']] or 'other'       values[i]['m_type'] = mw.wikibase.getLabelByLang(values[i]['m_type'], lang) or ''     end        if values[i]['markergroup'] == '' then        values[i]['markergroup'] = 'other'     end 	local p1435 = mw.wikibase.getBestStatements(wdid, 'P1435') 	values[i]['unesco'] = ''     values[i]['unesco_actual'] = '' 	values[i]['ramsar'] = '' 	for k, v in ipairs(p1435) do 	    local x = v.mainsnak.datavalue.value.id 	  	if x == 'Q19683138' then 		  values[i]['ramsar'] = mw.wikibase.getLabelByLang(x, lang) or '' 		end 		if x == 'Q9259' or x == 'Q43113623' or x == 'Q1459900' then           if x == 'Q9259' or x =='Q43113623' then             values[i]['unesco_actual'] = 'true'           end 		  values[i]['unesco'] = mw.wikibase.getLabelByLang(x, lang) or '' 		  if x == 'Q43113623' and v['qualifiers']['P361'] then 		    values[i]['unesco'] = values[i]['unesco'] .. ' «' .. (mw.wikibase.getLabelByLang(v['qualifiers']['P361'][1]['datavalue']['value']['id'], lang) or '') .. '»' 		  end  		end 	end     values[i]['first_level_sort'] = values[i]['first_level']     values[i]['name_sort'] = values[i]['name']   end    local t = frame:extensionTag{ name = 'maplink', content = [=[ {   "type": "ExternalData",   "service": "geoshape",   "query": "SELECT ?id (?idLabel as ?title) (sample(?image) as ?image) ('#88ff88' as ?fill) ('' as ?description) WHERE {VALUES ?id {]=] .. wdids_for_map .. [=[} OPTIONAL { ?id wdt:P18 ?image. } SERVICE wikibase:label { bd:serviceParam wikibase:language ']=] .. lang .. [=[' . ?id rdfs:label ?idLabel.} } GROUP BY ?id ?idLabel" }]=], args = { ["class"] = "no-icon", ["text"] = "", ["group"] = "other" } } .. '\n'    for i, m in ipairs(values) do     if m.complex and m.complex ~= '' then       local cm = find_by_wdid(values, m.complex)       if cm and cm ~= '' then         values[i].first_level_sort = values[cm].first_level_sort         values[i].name_sort = values[cm].name_sort .. '#' .. m.name_sort         values[cm].main_complex = 'true'       end     end   end       local csection = ''   if sort and sort == "yes" then     function comp(a, b) 	  if a.first_level_sort < b.first_level_sort or (a.first_level_sort == b.first_level_sort and a.name_sort < b.name_sort) then 	    return true 	  else 	    return false 	  end 	end     table.sort( values, comp )   end      for i, m in ipairs(values) do     if sections and sections == 'yes' and m['first_level_sort'] ~= csection then       t = t .. "\n== " .. m['first_level_sort'] .. " ==" 	  csection = m['first_level_sort'] 	end -- Шапка    t = t .. "\n" .. [[{| id=]] .. m.wdid .. [[ class="monument" border=0 style="font-size:97%;width:100%;"  |- valign="top" ]]   -- Изображение     local imagelink = '[[File:Natural landmark without photo.svg|border|150x150px|center|' .. translations['nophotoLabel'][lang] ..']]'     if m.image and m.image ~= '' then       imagelink = string.format('[[File:%s|150x150px|center|%s]]', m.image, m.name or translations['photoLabel'][lang])      end      t = t .. '\n| width="160px" | ' .. imagelink     -- Название     local background_color = ''     if m.main_complex and m.main_complex == 'true' then       background_color = "#BAFFC1;"     elseif m.complex and m.complex ~= '' then       background_color = "#E1FFE4;"     else       background_color = "#F8F8F8;"     end     t = t .. '\n| style=" background-color:' .. background_color.. ' padding-left:10px;" valign="middle" | '     if m.unesco_actual and m.unesco_actual == 'true' then       t = t .. "[[File:Swedish world heritage sign.PNG|18px|link=]] "     end     if m.main_complex and m.main_complex == 'true' then       t = t .. '[[File:Location dot darkslategray.svg|10px|' .. translations['complexLabel'][lang] .. '|link=]]&nbsp;'     end     t = t .. '<span class="monument-name" style="font-size:115%; font-weight:bold">'     if m.wikivoyage and m.wikivoyage ~= '' then       t = t .. '[[File:Wikivoyage-logo.svg|15px]]&nbsp;[[' .. m.wikivoyage .. '|' .. m.name .. ']]'     else       t = t .. m.name     end     t = t .. '</span><br>'    -- Расположение:     t = t .. "''" .. translations['locationLabel'][lang] .. ":'' " .. (m.municipality or '')    -- Площадь:     if m.area and m.area ~= '' then       t = t.. string.format("&nbsp;&nbsp;&nbsp;&nbsp;''" .. translations['areaLabel'][lang] .. ":'' %s", m.area)     end     t = t .. '<br>'  -- Ссылки     if m.lat and m.long and m.lat~= '' and m.long ~= '' then       t = t .. "''" .. translations['mapLabel'][lang] .. ":''&nbsp;"       t = t .. frame:expandTemplate{ title = 'marker', args = { ["lat"] = m.lat, ["long"] = m.long, ["name"] = mw.text.encode(m.name), ["image"] = m.image, ["type"] = m.markergroup or 'other' } }       t = t .. "&nbsp;&nbsp;&nbsp;&nbsp;"     end      t = t .. "''" .. translations['linksLabel'][lang] .. ":''&nbsp;"     if m.wiki and m.wiki ~= '' then       t = t .. '&nbsp;[[File:Wikipedia-logo-v2.svg|19px|link=//' .. lang .. '.wikipedia.org/wiki/' .. mw.uri.encode(m.wiki, "PATH") .. '|' .. translations['wikipediaLabel'][lang] .. ']]'     end     if m.commonscat and m.commonscat ~= '' then       t = t .. '&nbsp;[[File:Commons-logo.svg|13px|link=//commons.wikimedia.org/wiki/Category:' .. mw.uri.encode(m.commonscat, "PATH") .. '|' .. translations['commonsLabel'][lang] .. ']]'     end     if m.wdid and m.wdid ~= '' then       t = t .. '&nbsp;[[File:Wikidata-logo-without-paddings.svg|18px|link=//www.wikidata.org/wiki/' .. mw.uri.encode(m.wdid, "PATH") .. '|' .. translations['wikidataLabel'][lang] .. ']]'     end     if m.wdpa and m.wdpa ~= '' then       t = t .. '&nbsp;[[File:P geography 3 b.png|22px|link=//protectedplanet.net/' .. mw.uri.encode(m.wdpa, "PATH") .. '|' .. translations['wdpaLabel'][lang] .. ']]'     end     if m.website and m.website ~= '' then       t = t .. '&nbsp;[[File:P geography 3 b.png|22px|link=' .. m.website .. '|' .. translations['siteLabel'][lang] .. ']]'     end     t = t .. "<br>"     -- Описание     t = t .. "''" .. translations['descriptionLabel'][lang] .. ":'' "     if m.iucntype ~= "" then       t = t .. string.gsub(m.iucntype, ": ", " (") .. '). '      elseif m.m_type ~= "" then        t = t .. m.m_type .. '. '	     end     if m.ramsar and m.ramsar ~= "" then       t = t .. mwl:ucfirst(m.ramsar) .. '. '     end       if m.unesco and m.unesco ~= "" then       t = t .. mwl:ucfirst(m.unesco) .. '. '     end    -- Ссылка на загрузку     if noupload ~= 'yes' then       t = t .. '\n| class="plainlinks" style="width:10%; text-align:center; vertical-align:middle; background-color:#FFFACD; padding:0 1em" '       if not m.commonscat or m.commonscat == '' then         m.commonscat = dcat or ''       end       t = t .. "| [//commons.wikimedia.org/w/index.php?title=Special:UploadWizard&campaign=" .. mw.uri.encode(campaign, "PATH")       t = t .. [[&id=]] .. mw.uri.encode(m.wdid or '', "PATH")       t = t .. [[&caption=]] .. mw.uri.encode((m.name .. ": " .. m.municipality), "PATH")       t = t .. [[&description=]] .. mw.uri.encode((m.name .. ": " .. m.municipality), "PATH")       t = t .. [[&categories=]] .. mw.uri.encode(m.commonscat, "PATH")       t = t .. '&uselang=' .. lang .. ' <span class="mw-ui-button">' .. translations['uploadLinkLabel'][lang] .. '</span>]'     end     t = t .. "\n|}<hr>"   end	      return t end  return p;