--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 3.0 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. -------------------------------------------------------------------------------- local function get_formspec(tabview, name, tabdata) local retval = "size[16,11]".. "box[-100,8.5;200,10;#999999]" .. "box[-100,-10;200,12;#999999]" .. "bgcolor[#00000070;true]".. "image_button[12,9.55;4,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;cancel;".. fgettext("Cancel") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]".. --"label[0,1.25;" .. fgettext("Address/Port") .. "]" .. "field[1000.25,5.25;5.5,0.5;te_address;;" .. multicraft.formspec_escape(multicraft.setting_get("address")) .. "]" .. "field[1005.75,5.25;2.25,0.5;te_port;;" .. multicraft.formspec_escape(multicraft.setting_get("remote_port")) .. "]" .. "checkbox[1000,3.6;cb_public_serverlist;" .. fgettext("Public Serverlist") .. ";" .. dump(multicraft.setting_getbool("public_serverlist")) .. "]".. "label[7,1.5;" .. fgettext("Select Server:") .. "]" .. "label[0,0.25;Address: "..multicraft.formspec_escape(multicraft.setting_get("address")) .. "]" .. "label[0,0.75;Port: "..multicraft.formspec_escape(multicraft.setting_get("remote_port")) .. "]" --if not multicraft.setting_getbool("public_serverlist") then if (multicraft.get_table_index("favourites") or 10000) <= #multicraft.get_favorites("local") then retval = retval .. "image_button[4,9.55;4,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_delete_favorite;" .. fgettext("Delete") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]" else retval = retval .. "image_button[4,9.55;4,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;add_server;" .. fgettext("Add") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]" end retval = retval .. "image_button[8,9.55;3.95,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_connect;" .. fgettext("Connect") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]".. "image_button[3.2,9.55;0.8,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."server_flags_favourite.png;btn_mp_favour;;true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]".. "label[8,8;" .. fgettext("Name") .. ":]" .. "field[8.3,9;3.95,0.8;te_name;;" .. multicraft.formspec_escape(multicraft.setting_get("name")) .. "]" .. "label[12,8;" .. fgettext("Password") .. ":]" .. "pwdfield[12.3,9;4,0.8;te_pwd;]" .. "textarea[9.3,0;2.5,3.0;;" if tabdata.fav_selected ~= nil and menudata.favorites[tabdata.fav_selected] ~= nil and menudata.favorites[tabdata.fav_selected].description ~= nil then retval = retval .. multicraft.formspec_escape(menudata.favorites[tabdata.fav_selected].description,true) end retval = retval .. ";]" --favourites local function image_column(tooltip, flagname) local ret = "image," .. "tooltip=" .. multicraft.formspec_escape(tooltip) .. "," if flagname ~= 'favourite' then ret = ret .. "0=" .. multicraft.formspec_escape(defaulttexturedir .. "blank.png") .. "," else ret = ret .. "0=" .. multicraft.formspec_escape(defaulttexturedir .. "server_flags_" .. flagname .. "_off.png") .. "," end ret = ret .. "1=" .. multicraft.formspec_escape(defaulttexturedir .. "server_flags_" .. flagname .. ".png") return ret end retval = retval .. "tablecolumns[" .. "color,span=3;" .. "text,align=right;" .. -- clients "text,align=center,padding=0.25;" .. -- "/" "text,align=right,padding=0.25;" .. -- clients_max image_column("Creative mode", "creative") .. ",padding=1;" .. image_column("Damage enabled", "damage") .. ",padding=0.25;" .. image_column("PvP enabled", "pvp") .. ",padding=0.25;" .. "text,padding=1]"--.. --image_column("Favourite", "favourite") .. ",align=right]" retval = retval .. "tableoptions[background=#00000000;border=false]".. "table[0,2.2;16,6.25;favourites;" if #menudata.favorites == 0 then asyncOnlineFavourites() end if #menudata.favorites > 0 then retval = retval .. render_favorite(menudata.favorites[1]) for i=2,#menudata.favorites,1 do retval = retval .. "," .. render_favorite(menudata.favorites[i]) end end if tabdata.fav_selected ~= nil then retval = retval .. ";" .. tabdata.fav_selected .. "]" else retval = retval .. ";0]" end --print(retval) return retval end -------------------------------------------------------------------------------- local function main_button_handler(tabview, fields, name, tabdata) multicraft.set_clouds(false) if not tabdata then tabdata = {} end if fields["add_server"] ~= nil then local add_server_dlg = create_add_server_dlg(true) add_server_dlg:set_parent(tabview) add_server_dlg:show() tabview:hide() return true end if fields["te_name"] ~= nil then gamedata.playername = fields["te_name"] multicraft.setting_set("name", fields["te_name"]) end if fields["favourites"] ~= nil then local event = multicraft.explode_table_event(fields["favourites"]) if event.type == "DCL" then if event.row <= #menudata.favorites then gamedata.address = menudata.favorites[event.row].address gamedata.port = menudata.favorites[event.row].port gamedata.playername = fields["te_name"] if fields["te_pwd"] ~= nil then gamedata.password = fields["te_pwd"] end gamedata.selected_world = 0 if menudata.favorites ~= nil then gamedata.servername = menudata.favorites[event.row].name gamedata.serverdescription = menudata.favorites[event.row].description end if gamedata.address ~= nil and gamedata.port ~= nil then multicraft.setting_set("address",gamedata.address) multicraft.setting_set("remote_port",gamedata.port) multicraft.start() end end return true end if event.type == "CHG" then if event.row <= #menudata.favorites then local address = menudata.favorites[event.row].address local port = menudata.favorites[event.row].port if address ~= nil and port ~= nil then multicraft.setting_set("address",address) multicraft.setting_set("remote_port",port) end tabdata.fav_selected = event.row end return true end end if fields["key_up"] ~= nil or fields["key_down"] ~= nil then local fav_idx = multicraft.get_table_index("favourites") if fav_idx ~= nil then if fields["key_up"] ~= nil and fav_idx > 1 then fav_idx = fav_idx -1 else if fields["key_down"] and fav_idx < #menudata.favorites then fav_idx = fav_idx +1 end end else fav_idx = 1 end if menudata.favorites == nil or menudata.favorites[fav_idx] == nil then tabdata.fav_selected = 0 return true end local address = menudata.favorites[fav_idx].address local port = menudata.favorites[fav_idx].port if address ~= nil and port ~= nil then multicraft.setting_set("address",address) multicraft.setting_set("remote_port",port) end tabdata.fav_selected = fav_idx return true end if fields["cb_public_serverlist"] ~= nil then multicraft.setting_set("public_serverlist", fields["cb_public_serverlist"]) asyncOnlineFavourites() tabdata.fav_selected = nil return true end if fields["btn_mp_favour"] ~= nil then local current_favourite = multicraft.get_table_index("favourites") local path = multicraft.get_modpath('')..'/../client/'..multicraft.formspec_escape(multicraft.setting_get("serverlist_file")) local favourites if path then local input,err,errcode = io.open(path, "r") if input then favourites = input:read("*all") io.close(input) --else --gamedata.errormessage = err..' ('..errcode..')' end if favourites then favourites = multicraft.parse_json(favourites) else favourites = {["list"]={},} end table.insert(favourites.list,{ ["address"] = fields["te_address"], ["description"] = "Saved at ".. os.date(), ["name"] = fields["te_address"], ["playername"] = fields["te_name"], ["playerpassword"] = fields["te_pwd"], ["port"] = fields["te_port"], } ) favourites = multicraft.write_json(favourites) local output,err,errcode = io.open(path, "w") if output then output:write(favourites or '') io.close(output) else --gamedata.errormessage = fgettext("Can't write to serverlist_file! ("..path..')') gamedata.errormessage = err..' ('..errcode..')' end end asyncOnlineFavourites() end if fields["btn_delete_favorite"] ~= nil then local current_favourite = multicraft.get_table_index("favourites") if current_favourite == nil then return end if current_favourite > #multicraft.get_favorites('offline') then return end multicraft.delete_favorite(current_favourite) tabdata.fav_selected = nil asyncOnlineFavourites() multicraft.setting_set("address","") multicraft.setting_set("remote_port","30000") return true end if fields["btn_mp_connect"] ~= nil or fields["key_enter"] ~= nil then gamedata.playername = fields["te_name"] gamedata.password = fields["te_pwd"] gamedata.address = fields["te_address"] gamedata.port = fields["te_port"] local fav_idx = multicraft.get_table_index("favourites") if fav_idx ~= nil and fav_idx <= #menudata.favorites and menudata.favorites[fav_idx].address == fields["te_address"] and menudata.favorites[fav_idx].port == fields["te_port"] then else gamedata.servername = "" gamedata.serverdescription = "" end gamedata.selected_world = 0 multicraft.setting_set("address", fields["te_address"]) multicraft.setting_set("remote_port",fields["te_port"]) multicraft.start() return true end if fields["cancel"] ~= nil then tabview:hide() tabview.parent:show() return true end return false end local function on_change(type,old_tab,new_tab) if type == "LEAVE" then return end end -------------------------------------------------------------------------------- tab_multiplayer = { name = "multiplayer", caption = fgettext("Client"), cbf_formspec = get_formspec, cbf_button_handler = main_button_handler, -- on_change = on_change }