123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349 |
- --Minetest
- --Copyright (C) 2014 sapier
- --
- --This program is free software; you can redistribute it and/or modify
- --it under the terms of the GNU Lesser General Public License as published by
- --the Free Software Foundation; either version 2.1 of the License, or
- --(at your option) any later version.
- --
- --This program is distributed in the hope that it will be useful,
- --but WITHOUT ANY WARRANTY; without even the implied warranty of
- --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- --GNU Lesser General Public License for more details.
- --
- --You should have received a copy of the GNU Lesser General Public License along
- --with this program; if not, write to the Free Software Foundation, Inc.,
- --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- --------------------------------------------------------------------------------
- -- Global menu data
- --------------------------------------------------------------------------------
- menudata = {}
- --------------------------------------------------------------------------------
- -- Local cached values
- --------------------------------------------------------------------------------
- local min_supp_proto, max_supp_proto
- function common_update_cached_supp_proto()
- min_supp_proto = core.get_min_supp_proto()
- max_supp_proto = core.get_max_supp_proto()
- end
- common_update_cached_supp_proto()
- --------------------------------------------------------------------------------
- -- Menu helper functions
- --------------------------------------------------------------------------------
- --------------------------------------------------------------------------------
- local function render_client_count(n)
- if n > 99 then return '99+'
- elseif n >= 0 then return tostring(n)
- else return '?' end
- end
- local function configure_selected_world_params(idx)
- local worldconfig = pkgmgr.get_worldconfig(menudata.worldlist:get_list()[idx].path)
- if worldconfig.creative_mode then
- core.settings:set("creative_mode", worldconfig.creative_mode)
- end
- if worldconfig.enable_damage then
- core.settings:set("enable_damage", worldconfig.enable_damage)
- end
- end
- --------------------------------------------------------------------------------
- function image_column(tooltip, flagname)
- return "image,tooltip=" .. core.formspec_escape(tooltip) .. "," ..
- "0=" .. core.formspec_escape(defaulttexturedir .. "blank.png") .. "," ..
- "1=" .. core.formspec_escape(defaulttexturedir ..
- (flagname and "server_flags_" .. flagname .. ".png" or "blank.png")) .. "," ..
- "2=" .. core.formspec_escape(defaulttexturedir .. "server_ping_4.png") .. "," ..
- "3=" .. core.formspec_escape(defaulttexturedir .. "server_ping_3.png") .. "," ..
- "4=" .. core.formspec_escape(defaulttexturedir .. "server_ping_2.png") .. "," ..
- "5=" .. core.formspec_escape(defaulttexturedir .. "server_ping_1.png")
- end
- --------------------------------------------------------------------------------
- function order_favorite_list(list)
- local res = {}
- --orders the favorite list after support
- for i = 1, #list do
- local fav = list[i]
- if is_server_protocol_compat(fav.proto_min, fav.proto_max) then
- res[#res + 1] = fav
- end
- end
- for i = 1, #list do
- local fav = list[i]
- if not is_server_protocol_compat(fav.proto_min, fav.proto_max) then
- res[#res + 1] = fav
- end
- end
- return res
- end
- --------------------------------------------------------------------------------
- function render_serverlist_row(spec, is_favorite)
- local text = ""
- if spec.name then
- text = text .. core.formspec_escape(spec.name:trim())
- elseif spec.address then
- text = text .. spec.address:trim()
- if spec.port then
- text = text .. ":" .. spec.port
- end
- end
- local grey_out = not is_server_protocol_compat(spec.proto_min, spec.proto_max)
- local details
- if is_favorite then
- details = "1,"
- else
- details = "0,"
- end
- if spec.ping then
- local ping = spec.ping * 1000
- if ping <= 50 then
- details = details .. "2,"
- elseif ping <= 100 then
- details = details .. "3,"
- elseif ping <= 250 then
- details = details .. "4,"
- else
- details = details .. "5,"
- end
- else
- details = details .. "0,"
- end
- if spec.clients and spec.clients_max then
- local clients_percent = 100 * spec.clients / spec.clients_max
- -- Choose a color depending on how many clients are connected
- -- (relatively to clients_max)
- local clients_color
- if grey_out then clients_color = '#aaaaaa'
- elseif spec.clients == 0 then clients_color = '' -- 0 players: default/white
- elseif clients_percent <= 60 then clients_color = '#a1e587' -- 0-60%: green
- elseif clients_percent <= 90 then clients_color = '#ffdc97' -- 60-90%: yellow
- elseif clients_percent == 100 then clients_color = '#dd5b5b' -- full server: red (darker)
- else clients_color = '#ffba97' -- 90-100%: orange
- end
- details = details .. clients_color .. ',' ..
- render_client_count(spec.clients) .. ',/,' ..
- render_client_count(spec.clients_max) .. ','
- elseif grey_out then
- details = details .. '#aaaaaa,?,/,?,'
- else
- details = details .. ',?,/,?,'
- end
- if spec.creative then
- details = details .. "1,"
- else
- details = details .. "0,"
- end
- if spec.damage then
- details = details .. "1,"
- else
- details = details .. "0,"
- end
- if spec.pvp then
- details = details .. "1,"
- else
- details = details .. "0,"
- end
- return details .. (grey_out and '#aaaaaa,' or ',') .. text
- end
- --------------------------------------------------------------------------------
- os.tempfolder = function()
- if core.settings:get("TMPFolder") then
- return core.settings:get("TMPFolder") .. DIR_DELIM .. "MT_" .. math.random(0,10000)
- end
- local filetocheck = os.tmpname()
- os.remove(filetocheck)
- -- luacheck: ignore
- -- https://blogs.msdn.microsoft.com/vcblog/2014/06/18/c-runtime-crt-features-fixes-and-breaking-changes-in-visual-studio-14-ctp1/
- -- The C runtime (CRT) function called by os.tmpname is tmpnam.
- -- Microsofts tmpnam implementation in older CRT / MSVC releases is defective.
- -- tmpnam return values starting with a backslash characterize this behavior.
- -- https://sourceforge.net/p/mingw-w64/bugs/555/
- -- MinGW tmpnam implementation is forwarded to the CRT directly.
- -- https://sourceforge.net/p/mingw-w64/discussion/723797/thread/55520785/
- -- MinGW links to an older CRT release (msvcrt.dll).
- -- Due to legal concerns MinGW will never use a newer CRT.
- --
- -- Make use of TEMP to compose the temporary filename if an old
- -- style tmpnam return value is detected.
- if filetocheck:sub(1, 1) == "\\" then
- local tempfolder = os.getenv("TEMP")
- return tempfolder .. filetocheck
- end
- local randname = "MTTempModFolder_" .. math.random(0,10000)
- local backstring = filetocheck:reverse()
- return filetocheck:sub(0, filetocheck:len() - backstring:find(DIR_DELIM) + 1) ..
- randname
- end
- --------------------------------------------------------------------------------
- function menu_render_worldlist()
- local retval = ""
- local current_worldlist = menudata.worldlist:get_list()
- for i, v in ipairs(current_worldlist) do
- if retval ~= "" then retval = retval .. "," end
- retval = retval .. core.formspec_escape(v.name) ..
- " \\[" .. core.formspec_escape(v.gameid) .. "\\]"
- end
- return retval
- end
- --------------------------------------------------------------------------------
- function menu_handle_key_up_down(fields, textlist, settingname)
- local oldidx, newidx = core.get_textlist_index(textlist), 1
- if fields.key_up or fields.key_down then
- if fields.key_up and oldidx and oldidx > 1 then
- newidx = oldidx - 1
- elseif fields.key_down and oldidx and
- oldidx < menudata.worldlist:size() then
- newidx = oldidx + 1
- end
- core.settings:set(settingname, menudata.worldlist:get_raw_index(newidx))
- configure_selected_world_params(newidx)
- return true
- end
- return false
- end
- --------------------------------------------------------------------------------
- function asyncOnlineFavourites()
- if not menudata.public_known then
- menudata.public_known = {{
- name = fgettext("Loading..."),
- description = fgettext_ne("Try reenabling public serverlist and check your internet connection.")
- }}
- end
- menudata.favorites = menudata.public_known
- menudata.favorites_is_public = true
- if not menudata.public_downloading then
- menudata.public_downloading = true
- else
- return
- end
- core.handle_async(
- function(param)
- return core.get_favorites("online")
- end,
- nil,
- function(result)
- menudata.public_downloading = nil
- local favs = order_favorite_list(result)
- if favs[1] then
- menudata.public_known = favs
- menudata.favorites = menudata.public_known
- menudata.favorites_is_public = true
- end
- core.event_handler("Refresh")
- end
- )
- end
- --------------------------------------------------------------------------------
- function text2textlist(xpos, ypos, width, height, tl_name, textlen, text, transparency)
- local textlines = core.wrap_text(text, textlen, true)
- local retval = "textlist[" .. xpos .. "," .. ypos .. ";" .. width ..
- "," .. height .. ";" .. tl_name .. ";"
- for i = 1, #textlines do
- textlines[i] = textlines[i]:gsub("\r", "")
- retval = retval .. core.formspec_escape(textlines[i]) .. ","
- end
- retval = retval .. ";0;"
- if transparency then retval = retval .. "true" end
- retval = retval .. "]"
- return retval
- end
- --------------------------------------------------------------------------------
- function is_server_protocol_compat(server_proto_min, server_proto_max)
- if (not server_proto_min) or (not server_proto_max) then
- -- There is no info. Assume the best and act as if we would be compatible.
- return true
- end
- return min_supp_proto <= server_proto_max and max_supp_proto >= server_proto_min
- end
- --------------------------------------------------------------------------------
- function is_server_protocol_compat_or_error(server_proto_min, server_proto_max)
- if not is_server_protocol_compat(server_proto_min, server_proto_max) then
- local server_prot_ver_info, client_prot_ver_info
- local s_p_min = server_proto_min
- local s_p_max = server_proto_max
- if s_p_min ~= s_p_max then
- server_prot_ver_info = fgettext_ne("Server supports protocol versions between $1 and $2. ",
- s_p_min, s_p_max)
- else
- server_prot_ver_info = fgettext_ne("Server enforces protocol version $1. ",
- s_p_min)
- end
- if min_supp_proto ~= max_supp_proto then
- client_prot_ver_info= fgettext_ne("We support protocol versions between version $1 and $2.",
- min_supp_proto, max_supp_proto)
- else
- client_prot_ver_info = fgettext_ne("We only support protocol version $1.", min_supp_proto)
- end
- gamedata.errormessage = fgettext_ne("Protocol version mismatch. ")
- .. server_prot_ver_info
- .. client_prot_ver_info
- return false
- end
- return true
- end
- --------------------------------------------------------------------------------
- function menu_worldmt(selected, setting, value)
- local world = menudata.worldlist:get_list()[selected]
- if world then
- local filename = world.path .. DIR_DELIM .. "world.mt"
- local world_conf = Settings(filename)
- if value then
- if not world_conf:write() then
- core.log("error", "Failed to write world config file")
- end
- world_conf:set(setting, value)
- world_conf:write()
- else
- return world_conf:get(setting)
- end
- else
- return nil
- end
- end
- function menu_worldmt_legacy(selected)
- local modes_names = {"creative_mode", "enable_damage", "server_announce"}
- for _, mode_name in pairs(modes_names) do
- local mode_val = menu_worldmt(selected, mode_name)
- if mode_val then
- core.settings:set(mode_name, mode_val)
- else
- menu_worldmt(selected, mode_name, core.settings:get(mode_name))
- end
- end
- end
|