builtin/mainmenu/tab_singleplayer.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 local function current_game()
  19         local last_game_id = core.setting_get("menu_last_game")
  20         local game, index = gamemgr.find_by_gameid(last_game_id)
  21
  22         return game
  23 end
  24
  25 local function singleplayer_refresh_gamebar()
  26
  27         local old_bar = ui.find_by_name("game_button_bar")
  28
  29         if old_bar ~= nil then
  30                 old_bar:delete()
  31         end
  32
  33         local function game_buttonbar_button_handler(fields)
  34                 for key,value in pairs(fields) do
  35                         for j=1,#gamemgr.games,1 do
  36                                 if ("game_btnbar_" .. gamemgr.games[j].id == key) then
  37                                         mm_texture.update("singleplayer", gamemgr.games[j])
  38                                         core.set_topleft_text(gamemgr.games[j].name)
  39                                         core.setting_set("menu_last_game",gamemgr.games[j].id)
  40                                         menudata.worldlist:set_filtercriteria(gamemgr.games[j].id)
  41                                         return true
  42                                 end
  43                         end
  44                 end
  45         end
  46
  47         local btnbar = buttonbar_create("game_button_bar",
  48                 game_buttonbar_button_handler,
  49                 {x=-0.3,y=5.65}, "horizontal", {x=12.4,y=1.15})
  50
  51         for i=1,#gamemgr.games,1 do
  52                 local btn_name = "game_btnbar_" .. gamemgr.games[i].id
  53
  54                 local image = nil
  55                 local text = nil
  56                 local tooltip = core.formspec_escape(gamemgr.games[i].name)
  57
  58                 if gamemgr.games[i].menuicon_path ~= nil and
  59                         gamemgr.games[i].menuicon_path ~= "" then
  60                         image = core.formspec_escape(gamemgr.games[i].menuicon_path)
  61                 else
  62
  63                         local part1 = gamemgr.games[i].id:sub(1,5)
  64                         local part2 = gamemgr.games[i].id:sub(6,10)
  65                         local part3 = gamemgr.games[i].id:sub(11)
  66
  67                         text = part1 .. "\n" .. part2
  68                         if part3 ~= nil and
  69                                 part3 ~= "" then
  70                                 text = text .. "\n" .. part3
  71                         end
  72                 end
  73                 btnbar:add_button(btn_name, text, image, tooltip)
  74         end
  75 end
  76
  77 local function get_formspec(tabview, name, tabdata)
  78         local retval = ""
  79
  80         local index = filterlist.get_current_index(menudata.worldlist,
  81                                 tonumber(core.setting_get("mainmenu_last_selected_world"))
  82                                 )
  83
  84         retval = retval ..
  85                         "button[4,4.15;2.6,0.5;world_delete;".. fgettext("Delete") .. "]" ..
  86                         "button[6.5,4.15;2.8,0.5;world_create;".. fgettext("New") .. "]" ..
  87                         "button[9.2,4.15;2.55,0.5;world_configure;".. fgettext("Configure") .. "]" ..
  88                         "button[8.5,4.95;3.25,0.5;play;".. fgettext("Play") .. "]" ..
  89                         "label[4,-0.25;".. fgettext("Select World:") .. "]"..
  90                         "checkbox[0.25,0.25;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
  91                         dump(core.setting_getbool("creative_mode")) .. "]"..
  92                         "checkbox[0.25,0.7;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
  93                         dump(core.setting_getbool("enable_damage")) .. "]"..
  94                         "textlist[4,0.25;7.5,3.7;sp_worlds;" ..
  95                         menu_render_worldlist() ..
  96                         ";" .. index .. "]"
  97         return retval
  98 end
  99
 100 local function main_button_handler(this, fields, name, tabdata)
 101
 102         assert(name == "singleplayer")
 103
 104         local world_doubleclick = false
 105
 106         if fields["sp_worlds"] ~= nil then
 107                 local event = core.explode_textlist_event(fields["sp_worlds"])
 108
 109                 local selected = core.get_textlist_index("sp_worlds")
 110                 if selected ~= nil then
 111                         local filename = menudata.worldlist:get_list()[selected].path
 112                         local worldconfig = modmgr.get_worldconfig(filename)
 113                         filename = filename .. DIR_DELIM .. "world.mt"
 114
 115                         if worldconfig.creative_mode ~= nil then
 116                                 core.setting_set("creative_mode", worldconfig.creative_mode)
 117                         else
 118                                 local worldfile = Settings(filename)
 119                                 worldfile:set("creative_mode", core.setting_get("creative_mode"))
 120                                 if not worldfile:write() then
 121                                         core.log("error", "Failed to write world config file")
 122                                 end
 123                         end
 124                         if worldconfig.enable_damage ~= nil then
 125                                 core.setting_set("enable_damage", worldconfig.enable_damage)
 126                         else
 127                                 local worldfile = Settings(filename)
 128                                 worldfile:set("enable_damage", core.setting_get("enable_damage"))
 129                                 if not worldfile:write() then
 130                                         core.log("error", "Failed to write world config file")
 131                                 end
 132                         end
 133                 end
 134
 135                 if event.type == "DCL" then
 136                         world_doubleclick = true
 137                 end
 138
 139                 if event.type == "CHG" and selected ~= nil then
 140                         core.setting_set("mainmenu_last_selected_world",
 141                                 menudata.worldlist:get_raw_index(selected))
 142                         return true
 143                 end
 144         end
 145
 146         if menu_handle_key_up_down(fields,"sp_worlds","mainmenu_last_selected_world") then
 147                 return true
 148         end
 149
 150         if fields["cb_creative_mode"] then
 151                 core.setting_set("creative_mode", fields["cb_creative_mode"])
 152                 local selected = core.get_textlist_index("sp_worlds")
 153                 local filename = menudata.worldlist:get_list()[selected].path ..
 154                                 DIR_DELIM .. "world.mt"
 155
 156                 local worldfile = Settings(filename)
 157                 worldfile:set("creative_mode", fields["cb_creative_mode"])
 158                 if not worldfile:write() then
 159                         core.log("error", "Failed to write world config file")
 160                 end
 161                 return true
 162         end
 163
 164         if fields["cb_enable_damage"] then
 165                 core.setting_set("enable_damage", fields["cb_enable_damage"])
 166                 local selected = core.get_textlist_index("sp_worlds")
 167                 local filename = menudata.worldlist:get_list()[selected].path ..
 168                                 DIR_DELIM .. "world.mt"
 169
 170                 local worldfile = Settings(filename)
 171                 worldfile:set("enable_damage", fields["cb_enable_damage"])
 172                 if not worldfile:write() then
 173                         core.log("error", "Failed to write world config file")
 174                 end
 175                 return true
 176         end
 177
 178         if fields["play"] ~= nil or
 179                 world_doubleclick or
 180                 fields["key_enter"] then
 181                 local selected = core.get_textlist_index("sp_worlds")
 182
 183                 if selected ~= nil then
 184                         gamedata.selected_world = menudata.worldlist:get_raw_index(selected)
 185                         gamedata.singleplayer   = true
 186
 187                         core.start()
 188                 end
 189                 return true
 190         end
 191
 192         if fields["world_create"] ~= nil then
 193                 local create_world_dlg = create_create_world_dlg(true)
 194                 create_world_dlg:set_parent(this)
 195                 this:hide()
 196                 create_world_dlg:show()
 197                 mm_texture.update("singleplayer",current_game())
 198                 return true
 199         end
 200
 201         if fields["world_delete"] ~= nil then
 202                 local selected = core.get_textlist_index("sp_worlds")
 203                 if selected ~= nil and
 204                         selected <= menudata.worldlist:size() then
 205                         local world = menudata.worldlist:get_list()[selected]
 206                         if world ~= nil and
 207                                 world.name ~= nil and
 208                                 world.name ~= "" then
 209                                 local index = menudata.worldlist:get_raw_index(selected)
 210                                 local delete_world_dlg = create_delete_world_dlg(world.name,index)
 211                                 delete_world_dlg:set_parent(this)
 212                                 this:hide()
 213                                 delete_world_dlg:show()
 214                                 mm_texture.update("singleplayer",current_game())
 215                         end
 216                 end
 217
 218                 return true
 219         end
 220
 221         if fields["world_configure"] ~= nil then
 222                 local selected = core.get_textlist_index("sp_worlds")
 223                 if selected ~= nil then
 224                         local configdialog =
 225                                 create_configure_world_dlg(
 226                                                 menudata.worldlist:get_raw_index(selected))
 227
 228                         if (configdialog ~= nil) then
 229                                 configdialog:set_parent(this)
 230                                 this:hide()
 231                                 configdialog:show()
 232                                 mm_texture.update("singleplayer",current_game())
 233                         end
 234                 end
 235
 236                 return true
 237         end
 238 end
 239
 240 local function on_change(type, old_tab, new_tab)
 241         local buttonbar = ui.find_by_name("game_button_bar")
 242
 243         if ( buttonbar == nil ) then
 244                 singleplayer_refresh_gamebar()
 245                 buttonbar = ui.find_by_name("game_button_bar")
 246         end
 247
 248         if (type == "ENTER") then
 249                 local game = current_game()
 250
 251                 if game then
 252                         menudata.worldlist:set_filtercriteria(game.id)
 253                         core.set_topleft_text(game.name)
 254                         mm_texture.update("singleplayer",game)
 255                 end
 256                 buttonbar:show()
 257         else
 258                 menudata.worldlist:set_filtercriteria(nil)
 259                 buttonbar:hide()
 260                 core.set_topleft_text("")
 261                 mm_texture.update(new_tab,nil)
 262         end
 263 end
 264
 265 --------------------------------------------------------------------------------
 266 tab_singleplayer = {
 267         name = "singleplayer",
 268         caption = fgettext("Singleplayer"),
 269         cbf_formspec = get_formspec,
 270         cbf_button_handler = main_button_handler,
 271         on_change = on_change
 272         }