2 --Copyright (C) 2014 sapier
4 --This program is free software; you can redistribute it and/or modify
5 --it under the terms of the GNU Lesser General Public License as published by
6 --the Free Software Foundation; either version 2.1 of the License, or
7 --(at your option) any later version.
9 --This program is distributed in the hope that it will be useful,
10 --but WITHOUT ANY WARRANTY; without even the implied warranty of
11 --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 --GNU Lesser General Public License for more details.
14 --You should have received a copy of the GNU Lesser General Public License along
15 --with this program; if not, write to the Free Software Foundation, Inc.,
16 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17 --------------------------------------------------------------------------------
19 --------------------------------------------------------------------------------
22 --------------------------------------------------------------------------------
23 -- Local cached values
24 --------------------------------------------------------------------------------
25 local min_supp_proto, max_supp_proto
27 function common_update_cached_supp_proto()
28 min_supp_proto = core.get_min_supp_proto()
29 max_supp_proto = core.get_max_supp_proto()
31 common_update_cached_supp_proto()
32 --------------------------------------------------------------------------------
33 -- Menu helper functions
34 --------------------------------------------------------------------------------
36 --------------------------------------------------------------------------------
37 local function render_client_count(n)
38 if n > 99 then return '99+'
39 elseif n >= 0 then return tostring(n)
43 local function configure_selected_world_params(idx)
44 local worldconfig = pkgmgr.get_worldconfig(menudata.worldlist:get_list()[idx].path)
45 if worldconfig.creative_mode then
46 core.settings:set("creative_mode", worldconfig.creative_mode)
48 if worldconfig.enable_damage then
49 core.settings:set("enable_damage", worldconfig.enable_damage)
53 --------------------------------------------------------------------------------
54 function image_column(tooltip, flagname)
55 return "image,tooltip=" .. core.formspec_escape(tooltip) .. "," ..
56 "0=" .. core.formspec_escape(defaulttexturedir .. "blank.png") .. "," ..
57 "1=" .. core.formspec_escape(defaulttexturedir ..
58 (flagname and "server_flags_" .. flagname .. ".png" or "blank.png")) .. "," ..
59 "2=" .. core.formspec_escape(defaulttexturedir .. "server_ping_4.png") .. "," ..
60 "3=" .. core.formspec_escape(defaulttexturedir .. "server_ping_3.png") .. "," ..
61 "4=" .. core.formspec_escape(defaulttexturedir .. "server_ping_2.png") .. "," ..
62 "5=" .. core.formspec_escape(defaulttexturedir .. "server_ping_1.png")
65 --------------------------------------------------------------------------------
66 function order_favorite_list(list)
68 --orders the favorite list after support
71 if is_server_protocol_compat(fav.proto_min, fav.proto_max) then
77 if not is_server_protocol_compat(fav.proto_min, fav.proto_max) then
84 --------------------------------------------------------------------------------
85 function render_serverlist_row(spec, is_favorite)
88 text = text .. core.formspec_escape(spec.name:trim())
89 elseif spec.address then
90 text = text .. spec.address:trim()
92 text = text .. ":" .. spec.port
96 local grey_out = not is_server_protocol_compat(spec.proto_min, spec.proto_max)
106 local ping = spec.ping * 1000
108 details = details .. "2,"
109 elseif ping <= 100 then
110 details = details .. "3,"
111 elseif ping <= 250 then
112 details = details .. "4,"
114 details = details .. "5,"
117 details = details .. "0,"
120 if spec.clients and spec.clients_max then
121 local clients_percent = 100 * spec.clients / spec.clients_max
123 -- Choose a color depending on how many clients are connected
124 -- (relatively to clients_max)
126 if grey_out then clients_color = '#aaaaaa'
127 elseif spec.clients == 0 then clients_color = '' -- 0 players: default/white
128 elseif clients_percent <= 60 then clients_color = '#a1e587' -- 0-60%: green
129 elseif clients_percent <= 90 then clients_color = '#ffdc97' -- 60-90%: yellow
130 elseif clients_percent == 100 then clients_color = '#dd5b5b' -- full server: red (darker)
131 else clients_color = '#ffba97' -- 90-100%: orange
134 details = details .. clients_color .. ',' ..
135 render_client_count(spec.clients) .. ',/,' ..
136 render_client_count(spec.clients_max) .. ','
139 details = details .. '#aaaaaa,?,/,?,'
141 details = details .. ',?,/,?,'
144 if spec.creative then
145 details = details .. "1,"
147 details = details .. "0,"
151 details = details .. "1,"
153 details = details .. "0,"
157 details = details .. "1,"
159 details = details .. "0,"
162 return details .. (grey_out and '#aaaaaa,' or ',') .. text
165 --------------------------------------------------------------------------------
166 os.tempfolder = function()
167 if core.settings:get("TMPFolder") then
168 return core.settings:get("TMPFolder") .. DIR_DELIM .. "MT_" .. math.random(0,10000)
171 local filetocheck = os.tmpname()
172 os.remove(filetocheck)
175 -- https://blogs.msdn.microsoft.com/vcblog/2014/06/18/c-runtime-crt-features-fixes-and-breaking-changes-in-visual-studio-14-ctp1/
176 -- The C runtime (CRT) function called by os.tmpname is tmpnam.
177 -- Microsofts tmpnam implementation in older CRT / MSVC releases is defective.
178 -- tmpnam return values starting with a backslash characterize this behavior.
179 -- https://sourceforge.net/p/mingw-w64/bugs/555/
180 -- MinGW tmpnam implementation is forwarded to the CRT directly.
181 -- https://sourceforge.net/p/mingw-w64/discussion/723797/thread/55520785/
182 -- MinGW links to an older CRT release (msvcrt.dll).
183 -- Due to legal concerns MinGW will never use a newer CRT.
185 -- Make use of TEMP to compose the temporary filename if an old
186 -- style tmpnam return value is detected.
187 if filetocheck:sub(1, 1) == "\\" then
188 local tempfolder = os.getenv("TEMP")
189 return tempfolder .. filetocheck
192 local randname = "MTTempModFolder_" .. math.random(0,10000)
193 local backstring = filetocheck:reverse()
194 return filetocheck:sub(0, filetocheck:len() - backstring:find(DIR_DELIM) + 1) ..
198 --------------------------------------------------------------------------------
199 function menu_render_worldlist()
201 local current_worldlist = menudata.worldlist:get_list()
203 for i, v in ipairs(current_worldlist) do
204 if retval ~= "" then retval = retval .. "," end
205 retval = retval .. core.formspec_escape(v.name) ..
206 " \\[" .. core.formspec_escape(v.gameid) .. "\\]"
212 --------------------------------------------------------------------------------
213 function menu_handle_key_up_down(fields, textlist, settingname)
214 local oldidx, newidx = core.get_textlist_index(textlist), 1
215 if fields.key_up or fields.key_down then
216 if fields.key_up and oldidx and oldidx > 1 then
218 elseif fields.key_down and oldidx and
219 oldidx < menudata.worldlist:size() then
222 core.settings:set(settingname, menudata.worldlist:get_raw_index(newidx))
223 configure_selected_world_params(newidx)
229 --------------------------------------------------------------------------------
230 function asyncOnlineFavourites()
231 if not menudata.public_known then
232 menudata.public_known = {{
233 name = fgettext("Loading..."),
234 description = fgettext_ne("Try reenabling public serverlist and check your internet connection.")
237 menudata.favorites = menudata.public_known
238 menudata.favorites_is_public = true
240 if not menudata.public_downloading then
241 menudata.public_downloading = true
248 return core.get_favorites("online")
252 menudata.public_downloading = nil
253 local favs = order_favorite_list(result)
255 menudata.public_known = favs
256 menudata.favorites = menudata.public_known
257 menudata.favorites_is_public = true
259 core.event_handler("Refresh")
264 --------------------------------------------------------------------------------
265 function text2textlist(xpos, ypos, width, height, tl_name, textlen, text, transparency)
266 local textlines = core.wrap_text(text, textlen, true)
267 local retval = "textlist[" .. xpos .. "," .. ypos .. ";" .. width ..
268 "," .. height .. ";" .. tl_name .. ";"
270 for i = 1, #textlines do
271 textlines[i] = textlines[i]:gsub("\r", "")
272 retval = retval .. core.formspec_escape(textlines[i]) .. ","
275 retval = retval .. ";0;"
276 if transparency then retval = retval .. "true" end
277 retval = retval .. "]"
282 --------------------------------------------------------------------------------
283 function is_server_protocol_compat(server_proto_min, server_proto_max)
284 if (not server_proto_min) or (not server_proto_max) then
285 -- There is no info. Assume the best and act as if we would be compatible.
288 return min_supp_proto <= server_proto_max and max_supp_proto >= server_proto_min
290 --------------------------------------------------------------------------------
291 function is_server_protocol_compat_or_error(server_proto_min, server_proto_max)
292 if not is_server_protocol_compat(server_proto_min, server_proto_max) then
293 local server_prot_ver_info, client_prot_ver_info
294 local s_p_min = server_proto_min
295 local s_p_max = server_proto_max
297 if s_p_min ~= s_p_max then
298 server_prot_ver_info = fgettext_ne("Server supports protocol versions between $1 and $2. ",
301 server_prot_ver_info = fgettext_ne("Server enforces protocol version $1. ",
304 if min_supp_proto ~= max_supp_proto then
305 client_prot_ver_info= fgettext_ne("We support protocol versions between version $1 and $2.",
306 min_supp_proto, max_supp_proto)
308 client_prot_ver_info = fgettext_ne("We only support protocol version $1.", min_supp_proto)
310 gamedata.errormessage = fgettext_ne("Protocol version mismatch. ")
311 .. server_prot_ver_info
312 .. client_prot_ver_info
318 --------------------------------------------------------------------------------
319 function menu_worldmt(selected, setting, value)
320 local world = menudata.worldlist:get_list()[selected]
322 local filename = world.path .. DIR_DELIM .. "world.mt"
323 local world_conf = Settings(filename)
326 if not world_conf:write() then
327 core.log("error", "Failed to write world config file")
329 world_conf:set(setting, value)
332 return world_conf:get(setting)
339 function menu_worldmt_legacy(selected)
340 local modes_names = {"creative_mode", "enable_damage", "server_announce"}
341 for _, mode_name in pairs(modes_names) do
342 local mode_val = menu_worldmt(selected, mode_name)
344 core.settings:set(mode_name, mode_val)
346 menu_worldmt(selected, mode_name, core.settings:get(mode_name))