builtin/mainmenu/tab_server.lua

   1 --Minetest
   2 --Copyright (C) 2014 sapier
   3 --
   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.
   8 --
   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.
  13 --
  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
  18 --------------------------------------------------------------------------------
  19 local function get_formspec(tabview, name, tabdata)
  20
  21         local index = menudata.worldlist:get_current_index(
  22                                 tonumber(core.setting_get("mainmenu_last_selected_world"))
  23                                 )
  24
  25         local retval =
  26                 "button[4,4.15;2.6,0.5;world_delete;" .. fgettext("Delete") .. "]" ..
  27                 "button[6.5,4.15;2.8,0.5;world_create;" .. fgettext("New") .. "]" ..
  28                 "button[9.2,4.15;2.55,0.5;world_configure;" .. fgettext("Configure") .. "]" ..
  29                 "button[8.5,4.95;3.25,0.5;start_server;" .. fgettext("Start Game") .. "]" ..
  30                 "label[4,-0.25;" .. fgettext("Select World:") .. "]" ..
  31                 "checkbox[0.25,0.25;cb_creative_mode;" .. fgettext("Creative Mode") .. ";" ..
  32                 dump(core.setting_getbool("creative_mode")) .. "]" ..
  33                 "checkbox[0.25,0.7;cb_enable_damage;" .. fgettext("Enable Damage") .. ";" ..
  34                 dump(core.setting_getbool("enable_damage")) .. "]" ..
  35                 "checkbox[0.25,1.15;cb_server_announce;" .. fgettext("Public") .. ";" ..
  36                 dump(core.setting_getbool("server_announce")) .. "]" ..
  37                 "label[0.25,2.2;" .. fgettext("Name/Password") .. "]" ..
  38                 "field[0.55,3.2;3.5,0.5;te_playername;;" ..
  39                 core.formspec_escape(core.setting_get("name")) .. "]" ..
  40                 "pwdfield[0.55,4;3.5,0.5;te_passwd;]"
  41
  42         local bind_addr = core.setting_get("bind_address")
  43         if bind_addr ~= nil and bind_addr ~= "" then
  44                 retval = retval ..
  45                         "field[0.55,5.2;2.25,0.5;te_serveraddr;" .. fgettext("Bind Address") .. ";" ..
  46                         core.formspec_escape(core.setting_get("bind_address")) .. "]" ..
  47                         "field[2.8,5.2;1.25,0.5;te_serverport;" .. fgettext("Port") .. ";" ..
  48                         core.formspec_escape(core.setting_get("port")) .. "]"
  49         else
  50                 retval = retval ..
  51                         "field[0.55,5.2;3.5,0.5;te_serverport;" .. fgettext("Server Port") .. ";" ..
  52                         core.formspec_escape(core.setting_get("port")) .. "]"
  53         end
  54
  55         retval = retval ..
  56                 "textlist[4,0.25;7.5,3.7;srv_worlds;" ..
  57                 menu_render_worldlist() ..
  58                 ";" .. index .. "]"
  59
  60         return retval
  61 end
  62
  63 --------------------------------------------------------------------------------
  64 local function main_button_handler(this, fields, name, tabdata)
  65
  66         local world_doubleclick = false
  67
  68         if fields["srv_worlds"] ~= nil then
  69                 local event = core.explode_textlist_event(fields["srv_worlds"])
  70
  71                 local selected = core.get_textlist_index("srv_worlds")
  72                 if selected ~= nil then
  73                         local filename = menudata.worldlist:get_list()[selected].path
  74                         local worldconfig = modmgr.get_worldconfig(filename)
  75                         filename = filename .. DIR_DELIM .. "world.mt"
  76
  77                         if worldconfig.creative_mode ~= nil then
  78                                 core.setting_set("creative_mode", worldconfig.creative_mode)
  79                         else
  80                                 local worldfile = Settings(filename)
  81                                 worldfile:set("creative_mode", core.setting_get("creative_mode"))
  82                                 if not worldfile:write() then
  83                                         core.log("error", "Failed to write world config file")
  84                                 end
  85                         end
  86                         if worldconfig.enable_damage ~= nil then
  87                                 core.setting_set("enable_damage", worldconfig.enable_damage)
  88                         else
  89                                 local worldfile = Settings(filename)
  90                                 worldfile:set("enable_damage", core.setting_get("enable_damage"))
  91                                 if not worldfile:write() then
  92                                         core.log("error", "Failed to write world config file")
  93                                 end
  94                         end
  95                 end
  96
  97                 if event.type == "DCL" then
  98                         world_doubleclick = true
  99                 end
 100                 if event.type == "CHG" then
 101                         core.setting_set("mainmenu_last_selected_world",
 102                                 menudata.worldlist:get_raw_index(core.get_textlist_index("srv_worlds")))
 103                         return true
 104                 end
 105         end
 106
 107         if menu_handle_key_up_down(fields,"srv_worlds","mainmenu_last_selected_world") then
 108                 return true
 109         end
 110
 111         if fields["cb_creative_mode"] then
 112                 core.setting_set("creative_mode", fields["cb_creative_mode"])
 113                 local selected = core.get_textlist_index("srv_worlds")
 114                 local filename = menudata.worldlist:get_list()[selected].path ..
 115                                 DIR_DELIM .. "world.mt"
 116
 117                 local worldfile = Settings(filename)
 118                 worldfile:set("creative_mode", fields["cb_creative_mode"])
 119                 if not worldfile:write() then
 120                         core.log("error", "Failed to write world config file")
 121                 end
 122                 return true
 123         end
 124
 125         if fields["cb_enable_damage"] then
 126                 core.setting_set("enable_damage", fields["cb_enable_damage"])
 127                 local selected = core.get_textlist_index("srv_worlds")
 128                 local filename = menudata.worldlist:get_list()[selected].path ..
 129                                 DIR_DELIM .. "world.mt"
 130
 131                 local worldfile = Settings(filename)
 132                 worldfile:set("enable_damage", fields["cb_enable_damage"])
 133                 if not worldfile:write() then
 134                         core.log("error", "Failed to write world config file")
 135                 end
 136                 return true
 137         end
 138
 139         if fields["cb_server_announce"] then
 140                 core.setting_set("server_announce", fields["cb_server_announce"])
 141                 return true
 142         end
 143
 144         if fields["start_server"] ~= nil or
 145                 world_doubleclick or
 146                 fields["key_enter"] then
 147                 local selected = core.get_textlist_index("srv_worlds")
 148                 if selected ~= nil then
 149                         gamedata.playername     = fields["te_playername"]
 150                         gamedata.password       = fields["te_passwd"]
 151                         gamedata.port           = fields["te_serverport"]
 152                         gamedata.address        = ""
 153                         gamedata.selected_world = menudata.worldlist:get_raw_index(selected)
 154
 155                         core.setting_set("port",gamedata.port)
 156                         if fields["te_serveraddr"] ~= nil then
 157                                 core.setting_set("bind_address",fields["te_serveraddr"])
 158                         end
 159
 160                         --update last game
 161                         local world = menudata.worldlist:get_raw_element(gamedata.selected_world)
 162
 163                         local game,index = gamemgr.find_by_gameid(world.gameid)
 164                         core.setting_set("menu_last_game",game.id)
 165                         core.start()
 166                         return true
 167                 end
 168         end
 169
 170         if fields["world_create"] ~= nil then
 171                 local create_world_dlg = create_create_world_dlg(true)
 172                 create_world_dlg:set_parent(this)
 173                 create_world_dlg:show()
 174                 this:hide()
 175                 return true
 176         end
 177
 178         if fields["world_delete"] ~= nil then
 179                 local selected = core.get_textlist_index("srv_worlds")
 180                 if selected ~= nil and
 181                         selected <= menudata.worldlist:size() then
 182                         local world = menudata.worldlist:get_list()[selected]
 183                         if world ~= nil and
 184                                 world.name ~= nil and
 185                                 world.name ~= "" then
 186                                 local index = menudata.worldlist:get_raw_index(selected)
 187                                 local delete_world_dlg = create_delete_world_dlg(world.name,index)
 188                                 delete_world_dlg:set_parent(this)
 189                                 delete_world_dlg:show()
 190                                 this:hide()
 191                         end
 192                 end
 193
 194                 return true
 195         end
 196
 197         if fields["world_configure"] ~= nil then
 198                 local selected = core.get_textlist_index("srv_worlds")
 199                 if selected ~= nil then
 200                         local configdialog =
 201                                 create_configure_world_dlg(
 202                                                 menudata.worldlist:get_raw_index(selected))
 203
 204                         if (configdialog ~= nil) then
 205                                 configdialog:set_parent(this)
 206                                 configdialog:show()
 207                                 this:hide()
 208                         end
 209                 end
 210                 return true
 211         end
 212         return false
 213 end
 214
 215 --------------------------------------------------------------------------------
 216 tab_server = {
 217         name = "server",
 218         caption = fgettext("Server"),
 219         cbf_formspec = get_formspec,
 220         cbf_button_handler = main_button_handler,
 221         on_change = nil
 222         }