function wlarea(query,n)
    whoarea = nil
    wlareaname = nil
    local list = getAreaTable()
    local sorted_keys = {}
    for k in pairs(list) do sorted_keys[#sorted_keys+1] = k end
    table.sort(sorted_keys)
    local i = 1
    local n = n or 1
    for _,k in ipairs(sorted_keys) do
        if string.match(k,query) then
            whoarea = list[k]
            wlareaname = k
            if i==n then break else i = i+1 end
        end
    end
    if whoarea ~= nil then
        cecho("\n<dim_grey>===(<yellow>"..wlareaname.."<dim_grey>)===============================")
        for k,v in pairs(whoList) do
            for i,j in pairs(mmp.searchRoom(v.roomname)) do
                wlistresult = j
                break
            end
            if getRoomArea(wlistresult) == whoarea then
                if #v.names >= 1 then
                    cecho("\n<lime_green>"..v.roomname.."<dim_grey>".."(<red>"..#v.names.."<dim_grey>)")
                end
                for _,name in ipairs(v.names) do
                    cecho("<grey> "..name)
                end
            end
        end
        cecho("\n<dim_grey>=========================================================\n")
    else
        cecho("<orange>No such area.")
    end
end