aboutsummaryrefslogtreecommitdiff
path: root/builtin
diff options
context:
space:
mode:
Diffstat (limited to 'builtin')
-rw-r--r--builtin/gamemgr.lua309
-rw-r--r--builtin/mainmenu.lua1190
-rw-r--r--builtin/mainmenu_helper.lua105
-rw-r--r--builtin/modmgr.lua881
-rw-r--r--builtin/modstore.lua275
5 files changed, 2760 insertions, 0 deletions
diff --git a/builtin/gamemgr.lua b/builtin/gamemgr.lua
new file mode 100644
index 000000000..bbff51305
--- /dev/null
+++ b/builtin/gamemgr.lua
@@ -0,0 +1,309 @@
+--Minetest
+--Copyright (C) 2013 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.
+
+gamemgr = {}
+
+--------------------------------------------------------------------------------
+function gamemgr.dialog_new_game()
+ local retval =
+ "label[2,2;Game Name]"..
+ "field[4.5,2.4;6,0.5;te_game_name;;]" ..
+ "button[5,4.2;2.6,0.5;new_game_confirm;Create]" ..
+ "button[7.5,4.2;2.8,0.5;new_game_cancel;Cancel]"
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.handle_games_buttons(fields)
+ if fields["gamelist"] ~= nil then
+ local event = explode_textlist_event(fields["gamelist"])
+ gamemgr.selected_game = event.index
+ end
+
+ if fields["btn_game_mgr_edit_game"] ~= nil then
+ return {
+ is_dialog = true,
+ show_buttons = false,
+ current_tab = "dialog_edit_game"
+ }
+ end
+
+ if fields["btn_game_mgr_new_game"] ~= nil then
+ return {
+ is_dialog = true,
+ show_buttons = false,
+ current_tab = "dialog_new_game"
+ }
+ end
+
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.handle_new_game_buttons(fields)
+
+ if fields["new_game_confirm"] and
+ fields["te_game_name"] ~= nil and
+ fields["te_game_name"] ~= "" then
+ local gamepath = engine.get_gamepath()
+
+ if gamepath ~= nil and
+ gamepath ~= "" then
+ local gamefolder = cleanup_path(fields["te_game_name"])
+
+ --TODO check for already existing first
+ engine.create_dir(gamepath .. DIR_DELIM .. gamefolder)
+ engine.create_dir(gamepath .. DIR_DELIM .. gamefolder .. DIR_DELIM .. "mods")
+ engine.create_dir(gamepath .. DIR_DELIM .. gamefolder .. DIR_DELIM .. "menu")
+
+ local gameconf =
+ io.open(gamepath .. DIR_DELIM .. gamefolder .. DIR_DELIM .. "game.conf","w")
+
+ if gameconf then
+ gameconf:write("name = " .. fields["te_game_name"])
+ gameconf:close()
+ end
+ end
+ end
+
+ return {
+ is_dialog = false,
+ show_buttons = true,
+ current_tab = engine.setting_get("main_menu_tab")
+ }
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.handle_edit_game_buttons(fields)
+ local current_game = gamemgr.get_game(gamemgr.selected_game)
+
+ if fields["btn_close_edit_game"] ~= nil or
+ current_game == nil then
+ return {
+ is_dialog = false,
+ show_buttons = true,
+ current_tab = engine.setting_get("main_menu_tab")
+ }
+ end
+
+ if fields["btn_remove_mod_from_game"] ~= nil then
+ gamemgr.delete_mod(current_game,engine.get_textlist_index("mods_current"))
+ end
+
+ if fields["btn_add_mod_to_game"] ~= nil then
+ local modindex = engine.get_textlist_index("mods_available")
+
+ if modindex > 0 and
+ modindex <= #modmgr.global_mods then
+
+ local sourcepath =
+ engine.get_modpath() .. DIR_DELIM .. modmgr.global_mods[modindex]
+
+ gamemgr.add_mod(current_game,sourcepath)
+ end
+ end
+
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.add_mod(gamespec,sourcepath)
+ if gamespec.gamemods_path ~= nil and
+ gamespec.gamemods_path ~= "" then
+
+ local modname = get_last_folder(sourcepath)
+
+ engine.copy_dir(sourcepath,gamespec.gamemods_path .. DIR_DELIM .. modname);
+ end
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.delete_mod(gamespec,modindex)
+ if gamespec.gamemods_path ~= nil and
+ gamespec.gamemods_path ~= "" then
+ local game_mods = {}
+ get_mods(gamespec.gamemods_path,game_mods)
+
+ if modindex > 0 and
+ #game_mods >= modindex then
+
+ local modname = game_mods[modindex]
+
+ if modname:find("<MODPACK>") ~= nil then
+ modname = modname:sub(0,modname:find("<") -2)
+ end
+
+ local modpath = gamespec.gamemods_path .. DIR_DELIM .. modname
+ if modpath:sub(0,gamespec.gamemods_path:len()) == gamespec.gamemods_path then
+ engine.delete_dir(modpath)
+ end
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.get_game_mods(gamespec)
+
+ local retval = ""
+
+ if gamespec.gamemods_path ~= nil and
+ gamespec.gamemods_path ~= "" then
+ local game_mods = {}
+ get_mods(gamespec.gamemods_path,game_mods)
+
+ for i=1,#game_mods,1 do
+ if retval ~= "" then
+ retval = retval..","
+ end
+ retval = retval .. game_mods[i]
+ end
+ end
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.gettab(name)
+ local retval = ""
+
+ if name == "dialog_edit_game" then
+ retval = retval .. gamemgr.dialog_edit_game()
+ end
+
+ if name == "dialog_new_game" then
+ retval = retval .. gamemgr.dialog_new_game()
+ end
+
+ if name == "game_mgr" then
+ retval = retval .. gamemgr.tab()
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.tab()
+ if gamemgr.selected_game == nil then
+ gamemgr.selected_game = 1
+ end
+
+ local retval =
+ "vertlabel[0,-0.25;GAMES]" ..
+ "label[1,-0.25;Games:]" ..
+ "textlist[1,0.25;4.5,4.4;gamelist;" ..
+ gamemgr.gamelist() ..
+ ";" .. gamemgr.selected_game .. "]"
+
+ local current_game = gamemgr.get_game(gamemgr.selected_game)
+
+ if current_game ~= nil then
+ if current_game.menuicon_path ~= nil and
+ current_game.menuicon_path ~= "" then
+ retval = retval ..
+ "image[5.8,-0.25;2,2;" .. current_game.menuicon_path .. "]"
+ end
+
+ retval = retval ..
+ "field[8,-0.25;6,2;;" .. current_game.name .. ";]"..
+ "label[6,1.4;Mods:]" ..
+ "button[9.7,1.5;2,0.2;btn_game_mgr_edit_game;edit game]" ..
+ "textlist[6,2;5.5,3.3;game_mgr_modlist;"
+ .. gamemgr.get_game_mods(current_game) ..";0]" ..
+ "button[1,4.75;3.2,0.5;btn_game_mgr_new_game;new game]"
+ end
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.dialog_edit_game()
+ local current_game = gamemgr.get_game(gamemgr.selected_game)
+ if current_game ~= nil then
+ local retval =
+ "vertlabel[0,-0.25;EDIT GAME]" ..
+ "label[0,-0.25;" .. current_game.name .. "]" ..
+ "button[11.55,-0.2;0.75,0.5;btn_close_edit_game;x]"
+
+ if current_game.menuicon_path ~= nil and
+ current_game.menuicon_path ~= "" then
+ retval = retval ..
+ "image[5.25,0;2,2;" .. current_game.menuicon_path .. "]"
+ end
+
+ retval = retval ..
+ "textlist[0.5,0.5;4.5,4.3;mods_current;"
+ .. gamemgr.get_game_mods(current_game) ..";0]"
+
+
+ retval = retval ..
+ "textlist[7,0.5;4.5,4.3;mods_available;"
+ .. modmgr.get_mods_list() .. ";0]"
+
+ retval = retval ..
+ "button[0.55,4.95;4.7,0.5;btn_remove_mod_from_game;Remove selected mod]"
+
+ retval = retval ..
+ "button[7.05,4.95;4.7,0.5;btn_add_mod_to_game;<<-- Add mod]"
+
+ return retval
+ end
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.handle_buttons(tab,fields)
+ local retval = nil
+
+ if tab == "dialog_edit_game" then
+ retval = gamemgr.handle_edit_game_buttons(fields)
+ end
+
+ if tab == "dialog_new_game" then
+ retval = gamemgr.handle_new_game_buttons(fields)
+ end
+
+ if tab == "game_mgr" then
+ retval = gamemgr.handle_games_buttons(fields)
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.get_game(index)
+ if index > 0 and index <= #gamemgr.games then
+ return gamemgr.games[index]
+ end
+
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.update_gamelist()
+ gamemgr.games = engine.get_games()
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.gamelist()
+ local retval = ""
+ if #gamemgr.games > 0 then
+ retval = retval .. gamemgr.games[1].id
+
+ for i=2,#gamemgr.games,1 do
+ retval = retval .. "," .. gamemgr.games[i].name
+ end
+ end
+ return retval
+end
diff --git a/builtin/mainmenu.lua b/builtin/mainmenu.lua
new file mode 100644
index 000000000..ef0ba7226
--- /dev/null
+++ b/builtin/mainmenu.lua
@@ -0,0 +1,1190 @@
+local scriptpath = engine.get_scriptdir()
+
+dofile(scriptpath .. DIR_DELIM .. "modmgr.lua")
+dofile(scriptpath .. DIR_DELIM .. "modstore.lua")
+dofile(scriptpath .. DIR_DELIM .. "gamemgr.lua")
+
+local menu = {}
+local tabbuilder = {}
+local menubar = {}
+
+--------------------------------------------------------------------------------
+function render_favourite(spec)
+ local text = ""
+
+ if spec.name ~= nil then
+ text = text .. spec.name:trim()
+
+ if spec.description ~= nil then
+ --TODO make sure there's no invalid chat in spec.description
+ text = text .. " (" .. fs_escape_string(spec.description) .. ")"
+ end
+ else
+ if spec.address ~= nil then
+ text = text .. spec.address:trim()
+ end
+ end
+
+ local details = ""
+ if spec.password == true then
+ details = " *"
+ else
+ details = " "
+ end
+
+ if spec.creative then
+ details = details .. "C"
+ else
+ details = details .. " "
+ end
+
+ if spec.damage then
+ details = details .. "D"
+ else
+ details = details .. " "
+ end
+
+ if spec.pvp then
+ details = details .. "P"
+ else
+ details = details .. " "
+ end
+
+ text = text .. ":" .. spec.port:trim()
+
+ return text
+end
+
+--------------------------------------------------------------------------------
+os.tempfolder = function()
+ local filetocheck = os.tmpname()
+ os.remove(filetocheck)
+
+ local randname = "MTTempModFolder_" .. math.random(0,10000)
+ if DIR_DELIM == "\\" then
+ local tempfolder = os.getenv("TEMP")
+ return tempfolder .. filetocheck
+ else
+ local backstring = filetocheck:reverse()
+ return filetocheck:sub(0,filetocheck:len()-backstring:find(DIR_DELIM)+1) ..randname
+ end
+
+end
+
+--------------------------------------------------------------------------------
+function cleanup_path(temppath)
+
+ local parts = temppath:split("-")
+ temppath = ""
+ for i=1,#parts,1 do
+ if temppath ~= "" then
+ temppath = temppath .. "_"
+ end
+ temppath = temppath .. parts[i]
+ end
+
+ parts = temppath:split(".")
+ temppath = ""
+ for i=1,#parts,1 do
+ if temppath ~= "" then
+ temppath = temppath .. "_"
+ end
+ temppath = temppath .. parts[i]
+ end
+
+ parts = temppath:split("'")
+ temppath = ""
+ for i=1,#parts,1 do
+ if temppath ~= "" then
+ temppath = temppath .. ""
+ end
+ temppath = temppath .. parts[i]
+ end
+
+ parts = temppath:split(" ")
+ temppath = ""
+ for i=1,#parts,1 do
+ if temppath ~= "" then
+ temppath = temppath
+ end
+ temppath = temppath .. parts[i]
+ end
+
+ return temppath
+end
+
+--------------------------------------------------------------------------------
+function menu.update_gametype()
+ if (menu.game_last_check == nil or
+ menu.game_last_check ~= menu.last_game) and
+ tabbuilder.current_tab == "singleplayer" then
+
+ local gamedetails = menu.lastgame()
+ engine.set_topleft_text(gamedetails.name)
+
+ --background
+ local path_background_texture = gamedetails.path .. DIR_DELIM .."menu" ..
+ DIR_DELIM .. "background.png"
+ if engine.set_background("background",path_background_texture) then
+ engine.set_clouds(false)
+ else
+ engine.set_clouds(true)
+ end
+
+ --overlay
+ local path_overlay_texture = gamedetails.path .. DIR_DELIM .."menu" ..
+ DIR_DELIM .. "overlay.png"
+ engine.set_background("overlay",path_overlay_texture)
+
+ --header
+ local path_overlay_texture = gamedetails.path .. DIR_DELIM .."menu" ..
+ DIR_DELIM .. "header.png"
+ engine.set_background("header",path_overlay_texture)
+
+ --footer
+ local path_overlay_texture = gamedetails.path .. DIR_DELIM .."menu" ..
+ DIR_DELIM .. "footer.png"
+ engine.set_background("footer",path_overlay_texture)
+
+ menu.game_last_check = menu.last_game
+ else
+ if menu.game_last_check ~= menu.last_game then
+ menu.game_last_check = menu.last_game
+ menu.reset_gametype()
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+function menu.reset_gametype()
+ menu.game_last_check = nil
+ engine.set_clouds(true)
+ engine.set_background("background","")
+ engine.set_background("overlay",menu.basetexturedir .. "menu_overlay.png")
+ engine.set_background("header",menu.basetexturedir .. "menu_header.png")
+ engine.set_background("footer",menu.basetexturedir .. "menu_footer.png")
+ engine.set_topleft_text("")
+end
+
+--------------------------------------------------------------------------------
+function get_last_folder(text,count)
+ local parts = text:split(DIR_DELIM)
+
+ if count == nil then
+ return parts[#parts]
+ end
+
+ local retval = ""
+ for i=1,count,1 do
+ retval = retval .. parts[#parts - (count-i)] .. DIR_DELIM
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function init_globals()
+ --init gamedata
+ gamedata.worldindex = 0
+end
+
+--------------------------------------------------------------------------------
+function identify_filetype(name)
+
+ if name:sub(-3):lower() == "zip" then
+ return {
+ name = name,
+ type = "zip"
+ }
+ end
+
+ if name:sub(-6):lower() == "tar.gz" or
+ name:sub(-3):lower() == "tgz"then
+ return {
+ name = name,
+ type = "tgz"
+ }
+ end
+
+ if name:sub(-6):lower() == "tar.bz2" then
+ return {
+ name = name,
+ type = "tbz"
+ }
+ end
+
+ if name:sub(-2):lower() == "7z" then
+ return {
+ name = name,
+ type = "7z"
+ }
+ end
+
+ return {
+ name = name,
+ type = "ukn"
+ }
+end
+
+--------------------------------------------------------------------------------
+function update_menu()
+
+ local formspec = "size[12,5.2]"
+
+ -- handle errors
+ if gamedata.errormessage ~= nil then
+ formspec = formspec ..
+ "field[1,2;10,2;;ERROR: " ..
+ gamedata.errormessage ..
+ ";]"..
+ "button[4.5,4.2;3,0.5;btn_error_confirm;Ok]"
+ else
+ formspec = formspec .. tabbuilder.gettab()
+ end
+
+ engine.update_formspec(formspec)
+end
+
+--------------------------------------------------------------------------------
+function menu.filtered_game_list()
+ local retval = ""
+
+ local current_game = menu.lastgame()
+
+ for i=1,#menu.worldlist,1 do
+ if menu.worldlist[i].gameid == current_game.id then
+ if retval ~= "" then
+ retval = retval ..","
+ end
+
+ retval = retval .. menu.worldlist[i].name ..
+ " [[" .. menu.worldlist[i].gameid .. "]]"
+ end
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function menu.filtered_game_list_raw()
+ local retval = {}
+
+ local current_game = menu.lastgame()
+
+ for i=1,#menu.worldlist,1 do
+ if menu.worldlist[i].gameid == current_game.id then
+ table.insert(retval,menu.worldlist[i])
+ end
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function menu.filtered_index_to_plain(filtered_index)
+
+ local current_game = menu.lastgame()
+
+ local temp_idx = 0
+
+ for i=1,#menu.worldlist,1 do
+ if menu.worldlist[i].gameid == current_game.id then
+ temp_idx = temp_idx +1
+ end
+
+ if temp_idx == filtered_index then
+ return i
+ end
+ end
+ return -1
+end
+
+--------------------------------------------------------------------------------
+function menu.init()
+ --init menu data
+ gamemgr.update_gamelist()
+
+ menu.worldlist = engine.get_worlds()
+
+ menu.last_world = tonumber(engine.setting_get("main_menu_last_world_idx"))
+ menu.last_game = tonumber(engine.setting_get("main_menu_last_game_idx"))
+
+ if type(menu.last_world) ~= "number" then
+ menu.last_world = 1
+ end
+
+ if type(menu.last_game) ~= "number" then
+ menu.last_game = 1
+ end
+
+ if engine.setting_getbool("public_serverlist") then
+ menu.favorites = engine.get_favorites("online")
+ else
+ menu.favorites = engine.get_favorites("local")
+ end
+
+
+ menu.basetexturedir = engine.get_gamepath() .. DIR_DELIM .. ".." ..
+ DIR_DELIM .. "textures" .. DIR_DELIM .. "base" ..
+ DIR_DELIM .. "pack" .. DIR_DELIM
+end
+
+--------------------------------------------------------------------------------
+function menu.lastgame()
+ if menu.last_game > 0 and menu.last_game <= #gamemgr.games then
+ return gamemgr.games[menu.last_game]
+ end
+
+ if #gamemgr.games >= 1 then
+ menu.last_game = 1
+ return gamemgr.games[menu.last_game]
+ end
+
+ --error case!!
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function menu.lastworld()
+ if menu.last_world ~= nil and
+ menu.last_world > 0 and
+ menu.last_world <= #menu.worldlist then
+ return menu.worldlist[menu.last_world]
+ end
+
+ if #menu.worldlist >= 1 then
+ menu.last_world = 1
+ return menu.worldlist[menu.last_world]
+ end
+
+ --error case!!
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function menu.update_last_game(world_idx)
+ if gamedata.selected_world <= #menu.worldlist then
+ local world = menu.worldlist[gamedata.selected_world]
+
+ for i=1,#gamemgr.games,1 do
+ if gamemgr.games[i].id == world.gameid then
+ menu.last_game = i
+ engine.setting_set("main_menu_last_game_idx",menu.last_game)
+ break
+ end
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+function menubar.handle_buttons(fields)
+ for i=1,#menubar.buttons,1 do
+ if fields[menubar.buttons[i].btn_name] ~= nil then
+ menu.last_game = menubar.buttons[i].index
+ engine.setting_set("main_menu_last_game_idx",menu.last_game)
+ menu.update_gametype()
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+function menubar.refresh()
+ menubar.formspec = "box[-2,7.625;15.75,1.75;BLK]"
+ menubar.buttons = {}
+
+ local button_base = -1.8
+
+ local maxbuttons = #gamemgr.games
+
+ if maxbuttons > 12 then
+ maxbuttons = 12
+ end
+
+ for i=1,maxbuttons,1 do
+
+ local btn_name = "menubar_btn_" .. gamemgr.games[i].id
+ local buttonpos = button_base + (i-1) * 1.3
+ if gamemgr.games[i].menuicon_path ~= nil and
+ gamemgr.games[i].menuicon_path ~= "" then
+
+ menubar.formspec = menubar.formspec ..
+ "image_button[" .. buttonpos .. ",7.9;1.3,1.3;" ..
+ gamemgr.games[i].menuicon_path .. ";" .. btn_name .. ";;true;false]"
+ else
+
+ local part1 = gamemgr.games[i].id:sub(1,5)
+ local part2 = gamemgr.games[i].id:sub(6,10)
+ local part3 = gamemgr.games[i].id:sub(11)
+
+ local text = part1 .. "\n" .. part2
+ if part3 ~= nil and
+ part3 ~= "" then
+ text = text .. "\n" .. part3
+ end
+ menubar.formspec = menubar.formspec ..
+ "image_button[" .. buttonpos .. ",7.9;1.3,1.3;;" ..btn_name ..
+ ";" .. text .. ";true;true]"
+ end
+
+ local toadd = {
+ btn_name = btn_name,
+ index = i,
+ }
+
+ table.insert(menubar.buttons,toadd)
+ end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.dialog_create_world()
+ local retval =
+ "label[2,0;World name]"..
+ "label[2,1;Mapgen]"..
+ "field[4.5,0.4;6,0.5;te_world_name;;]" ..
+ "label[2,2;Game]"..
+ "button[5,4.5;2.6,0.5;world_create_confirm;Create]" ..
+ "button[7.5,4.5;2.8,0.5;world_create_cancel;Cancel]" ..
+ "dropdown[4.2,1;6.3;dd_mapgen;v6,v7,indev,singlenode,math;1]" .. --TODO read from minetest
+ "textlist[4.2,1.9;5.8,2.3;games;" ..
+ gamemgr.gamelist() ..
+ ";" .. menu.last_game .. ";true]"
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.dialog_delete_world()
+ return "label[2,2;Delete World \"" .. menu.lastworld().name .. "\"?]"..
+ "button[3.5,4.2;2.6,0.5;world_delete_confirm;Yes]" ..
+ "button[6,4.2;2.8,0.5;world_delete_cancel;No]"
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.gettab()
+ local retval = ""
+
+ if tabbuilder.show_buttons then
+ retval = retval .. tabbuilder.tab_header()
+ end
+
+ if tabbuilder.current_tab == "singleplayer" then
+ retval = retval .. tabbuilder.tab_singleplayer()
+ end
+
+ if tabbuilder.current_tab == "multiplayer" then
+ retval = retval .. tabbuilder.tab_multiplayer()
+ end
+
+ if tabbuilder.current_tab == "server" then
+ retval = retval .. tabbuilder.tab_server()
+ end
+
+ if tabbuilder.current_tab == "settings" then
+ retval = retval .. tabbuilder.tab_settings()
+ end
+
+ if tabbuilder.current_tab == "credits" then
+ retval = retval .. tabbuilder.tab_credits()
+ end
+
+ if tabbuilder.current_tab == "dialog_create_world" then
+ retval = retval .. tabbuilder.dialog_create_world()
+ end
+
+ if tabbuilder.current_tab == "dialog_delete_world" then
+ retval = retval .. tabbuilder.dialog_delete_world()
+ end
+
+ retval = retval .. modmgr.gettab(tabbuilder.current_tab)
+ retval = retval .. gamemgr.gettab(tabbuilder.current_tab)
+ retval = retval .. modstore.gettab(tabbuilder.current_tab)
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_create_world_buttons(fields)
+
+ if fields["world_create_confirm"] then
+
+ local worldname = fields["te_world_name"]
+ local gameindex = engine.get_textlist_index("games")
+
+ if gameindex > 0 and
+ worldname ~= "" then
+ engine.setting_set("mg_name",fields["dd_mapgen"])
+ local message = engine.create_world(worldname,gameindex)
+
+ menu.last_game = gameindex
+ engine.setting_set("main_menu_last_game_idx",gameindex)
+
+ if message ~= nil then
+ gamedata.errormessage = message
+ else
+ menu.worldlist = engine.get_worlds()
+
+ local worldlist = menu.worldlist
+
+ if tabbuilder.current_tab == "singleplayer" then
+ worldlist = menu.filtered_game_list_raw()
+ end
+
+ local index = 0
+
+ for i=1,#worldlist,1 do
+ if worldlist[i].name == worldname then
+ index = i
+ print("found new world index: " .. index)
+ break
+ end
+ end
+
+ if tabbuilder.current_tab == "singleplayer" then
+ engine.setting_set("main_menu_singleplayer_world_idx",index)
+ else
+ menu.last_world = index
+ end
+ end
+ else
+ gamedata.errormessage = "No worldname given or no game selected"
+ end
+ end
+
+ if fields["games"] then
+ tabbuilder.skipformupdate = true
+ return
+ end
+
+ tabbuilder.is_dialog = false
+ tabbuilder.show_buttons = true
+ tabbuilder.current_tab = engine.setting_get("main_menu_tab")
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_delete_world_buttons(fields)
+
+ if fields["world_delete_confirm"] then
+ if menu.last_world > 0 and
+ menu.last_world < #menu.worldlist then
+ engine.delete_world(menu.last_world)
+ menu.worldlist = engine.get_worlds()
+ menu.last_world = 1
+ end
+ end
+
+ tabbuilder.is_dialog = false
+ tabbuilder.show_buttons = true
+ tabbuilder.current_tab = engine.setting_get("main_menu_tab")
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_multiplayer_buttons(fields)
+ if fields["favourites"] ~= nil then
+ local event = explode_textlist_event(fields["favourites"])
+ if event.typ == "DCL" then
+ gamedata.address = menu.favorites[event.index].name
+ if gamedata.address == nil then
+ gamedata.address = menu.favorites[event.index].address
+ end
+ gamedata.port = menu.favorites[event.index].port
+ gamedata.playername = fields["te_name"]
+ gamedata.password = fields["te_pwd"]
+ gamedata.selected_world = 0
+
+ if gamedata.address ~= nil and
+ gamedata.port ~= nil then
+
+ engine.start()
+ end
+ end
+
+ if event.typ == "CHG" then
+ local address = menu.favorites[event.index].name
+ if address == nil then
+ address = menu.favorites[event.index].address
+ end
+ local port = menu.favorites[event.index].port
+
+ if address ~= nil and
+ port ~= nil then
+ engine.setting_set("address",address)
+ engine.setting_set("port",port)
+ end
+ end
+ return
+ end
+
+ if fields["cb_public_serverlist"] ~= nil then
+ engine.setting_setbool("public_serverlist",
+ tabbuilder.tobool(fields["cb_public_serverlist"]))
+
+ if engine.setting_getbool("public_serverlist") then
+ menu.favorites = engine.get_favorites("online")
+ else
+ menu.favorites = engine.get_favorites("local")
+ end
+ end
+
+ if fields["btn_delete_favorite"] ~= nil then
+ local current_favourite = engine.get_textlist_index("favourites")
+ engine.delete_favorite(current_favourite)
+ menu.favorites = engine.get_favorites()
+
+ engine.setting_set("address","")
+ engine.setting_get("port","")
+
+ return
+ end
+
+ if fields["btn_mp_connect"] ~= nil then
+ gamedata.playername = fields["te_name"]
+ gamedata.password = fields["te_pwd"]
+ gamedata.address = fields["te_address"]
+ gamedata.port = fields["te_port"]
+ gamedata.selected_world = 0
+
+ engine.start()
+ return
+ end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_server_buttons(fields)
+
+ local world_doubleclick = false
+
+ if fields["worlds"] ~= nil then
+ local event = explode_textlist_event(fields["worlds"])
+
+ if event.typ == "DBL" then
+ world_doubleclick = true
+ end
+ end
+
+ if fields["cb_creative_mode"] then
+ engine.setting_setbool("creative_mode",tabbuilder.tobool(fields["cb_creative_mode"]))
+ end
+
+ if fields["cb_enable_damage"] then
+ engine.setting_setbool("enable_damage",tabbuilder.tobool(fields["cb_enable_damage"]))
+ end
+
+ if fields["start_server"] ~= nil or
+ world_doubleclick then
+ local selected = engine.get_textlist_index("srv_worlds")
+ if selected > 0 then
+ gamedata.playername = fields["te_playername"]
+ gamedata.password = fields["te_pwd"]
+ gamedata.address = ""
+ gamedata.port = fields["te_serverport"]
+ gamedata.selected_world = selected
+
+ engine.setting_set("main_menu_tab",tabbuilder.current_tab)
+ engine.setting_set("main_menu_last_world_idx",gamedata.selected_world)
+
+ menu.update_last_game(gamedata.selected_world)
+ engine.start()
+ end
+ end
+
+ if fields["world_create"] ~= nil then
+ tabbuilder.current_tab = "dialog_create_world"
+ tabbuilder.is_dialog = true
+ tabbuilder.show_buttons = false
+ end
+
+ if fields["world_delete"] ~= nil then
+ local selected = engine.get_textlist_index("srv_worlds")
+ if selected > 0 then
+ menu.last_world = engine.get_textlist_index("worlds")
+ if menu.lastworld() ~= nil and
+ menu.lastworld().name ~= nil and
+ menu.lastworld().name ~= "" then
+ tabbuilder.current_tab = "dialog_delete_world"
+ tabbuilder.is_dialog = true
+ tabbuilder.show_buttons = false
+ else
+ menu.last_world = 0
+ end
+ end
+ end
+
+ if fields["world_configure"] ~= nil then
+ selected = engine.get_textlist_index("srv_worlds")
+ if selected > 0 then
+ modmgr.world_config_selected_world = selected
+ if modmgr.init_worldconfig() then
+ tabbuilder.current_tab = "dialog_configure_world"
+ tabbuilder.is_dialog = true
+ tabbuilder.show_buttons = false
+ end
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tobool(text)
+ if text == "true" then
+ return true
+ else
+ return false
+ end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_settings_buttons(fields)
+ if fields["cb_fancy_trees"] then
+ engine.setting_setbool("new_style_leaves",tabbuilder.tobool(fields["cb_fancy_trees"]))
+ end
+
+ if fields["cb_smooth_lighting"] then
+ engine.setting_setbool("smooth_lighting",tabbuilder.tobool(fields["cb_smooth_lighting"]))
+ end
+ if fields["cb_3d_clouds"] then
+ engine.setting_setbool("enable_3d_clouds",tabbuilder.tobool(fields["cb_3d_clouds"]))
+ end
+ if fields["cb_opaque_water"] then
+ engine.setting_setbool("opaque_water",tabbuilder.tobool(fields["cb_opaque_water"]))
+ end
+
+ if fields["cb_mipmapping"] then
+ engine.setting_setbool("mip_map",tabbuilder.tobool(fields["cb_mipmapping"]))
+ end
+ if fields["cb_anisotrophic"] then
+ engine.setting_setbool("anisotropic_filter",tabbuilder.tobool(fields["cb_anisotrophic"]))
+ end
+ if fields["cb_bilinear"] then
+ engine.setting_setbool("bilinear_filter",tabbuilder.tobool(fields["cb_bilinear"]))
+ end
+ if fields["cb_trilinear"] then
+ engine.setting_setbool("trilinear_filter",tabbuilder.tobool(fields["cb_trilinear"]))
+ end
+
+ if fields["cb_shaders"] then
+ engine.setting_setbool("enable_shaders",tabbuilder.tobool(fields["cb_shaders"]))
+ end
+ if fields["cb_pre_ivis"] then
+ engine.setting_setbool("preload_item_visuals",tabbuilder.tobool(fields["cb_pre_ivis"]))
+ end
+ if fields["cb_particles"] then
+ engine.setting_setbool("enable_particles",tabbuilder.tobool(fields["cb_particles"]))
+ end
+ if fields["cb_finite_liquid"] then
+ engine.setting_setbool("liquid_finite",tabbuilder.tobool(fields["cb_finite_liquid"]))
+ end
+
+ if fields["btn_change_keys"] ~= nil then
+ engine.show_keys_menu()
+ end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_singleplayer_buttons(fields)
+
+ local world_doubleclick = false
+
+ if fields["sp_worlds"] ~= nil then
+ local event = explode_textlist_event(fields["sp_worlds"])
+
+ if event.typ == "DCL" then
+ world_doubleclick = true
+ end
+ end
+
+ if fields["cb_creative_mode"] then
+ engine.setting_setbool("creative_mode",tabbuilder.tobool(fields["cb_creative_mode"]))
+ end
+
+ if fields["cb_enable_damage"] then
+ engine.setting_setbool("enable_damage",tabbuilder.tobool(fields["cb_enable_damage"]))
+ end
+
+ if fields["play"] ~= nil or
+ world_doubleclick then
+ local selected = engine.get_textlist_index("sp_worlds")
+ if selected > 0 then
+ gamedata.selected_world = menu.filtered_index_to_plain(selected)
+ gamedata.singleplayer = true
+
+ engine.setting_set("main_menu_tab",tabbuilder.current_tab)
+ engine.setting_set("main_menu_singleplayer_world_idx",selected)
+
+ menu.update_last_game(gamedata.selected_world)
+
+ engine.start()
+ end
+ end
+
+ if fields["world_create"] ~= nil then
+ tabbuilder.current_tab = "dialog_create_world"
+ tabbuilder.is_dialog = true
+ tabbuilder.show_buttons = false
+ end
+
+ if fields["world_delete"] ~= nil then
+ local selected = engine.get_textlist_index("sp_worlds")
+ if selected > 0 then
+ menu.last_world = menu.filtered_index_to_plain(selected)
+ if menu.lastworld() ~= nil and
+ menu.lastworld().name ~= nil and
+ menu.lastworld().name ~= "" then
+ tabbuilder.current_tab = "dialog_delete_world"
+ tabbuilder.is_dialog = true
+ tabbuilder.show_buttons = false
+ else
+ menu.last_world = 0
+ end
+ end
+ end
+
+ if fields["world_configure"] ~= nil then
+ selected = engine.get_textlist_index("sp_worlds")
+ if selected > 0 then
+ modmgr.world_config_selected_world = menu.filtered_index_to_plain(selected)
+ if modmgr.init_worldconfig() then
+ tabbuilder.current_tab = "dialog_configure_world"
+ tabbuilder.is_dialog = true
+ tabbuilder.show_buttons = false
+ end
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_header()
+
+ if tabbuilder.last_tab_index == nil then
+ tabbuilder.last_tab_index = 1
+ end
+
+ local toadd = ""
+
+ for i=1,#tabbuilder.current_buttons,1 do
+
+ if toadd ~= "" then
+ toadd = toadd .. ","
+ end
+
+ toadd = toadd .. tabbuilder.current_buttons[i].caption
+ end
+ return "tabheader[-0.3,-0.99;main_tab;" .. toadd ..";" .. tabbuilder.last_tab_index .. ";true;false]"
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_tab_buttons(fields)
+
+ if fields["main_tab"] then
+ local index = tonumber(fields["main_tab"])
+ tabbuilder.last_tab_index = index
+ tabbuilder.current_tab = tabbuilder.current_buttons[index].name
+
+ engine.setting_set("main_menu_tab",tabbuilder.current_tab)
+ end
+
+ --handle tab changes
+ if tabbuilder.current_tab ~= tabbuilder.old_tab then
+ if tabbuilder.current_tab ~= "singleplayer" then
+ menu.reset_gametype()
+ end
+ end
+
+ if tabbuilder.current_tab == "singleplayer" then
+ menu.update_gametype()
+ end
+
+ tabbuilder.old_tab = tabbuilder.current_tab
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.init()
+ tabbuilder.current_tab = engine.setting_get("main_menu_tab")
+
+ if tabbuilder.current_tab == nil or
+ tabbuilder.current_tab == "" then
+ tabbuilder.current_tab = "singleplayer"
+ engine.setting_set("main_menu_tab",tabbuilder.current_tab)
+ end
+
+
+ --initialize tab buttons
+ tabbuilder.last_tab = nil
+ tabbuilder.show_buttons = true
+
+ tabbuilder.current_buttons = {}
+ table.insert(tabbuilder.current_buttons,{name="singleplayer", caption="Singleplayer"})
+ table.insert(tabbuilder.current_buttons,{name="multiplayer", caption="Client"})
+ table.insert(tabbuilder.current_buttons,{name="server", caption="Server"})
+ table.insert(tabbuilder.current_buttons,{name="settings", caption="Settings"})
+
+ if engine.setting_getbool("main_menu_game_mgr") then
+ table.insert(tabbuilder.current_buttons,{name="game_mgr", caption="Games"})
+ end
+
+ if engine.setting_getbool("main_menu_mod_mgr") then
+ table.insert(tabbuilder.current_buttons,{name="mod_mgr", caption="Mods"})
+ end
+ table.insert(tabbuilder.current_buttons,{name="credits", caption="Credits"})
+
+
+ for i=1,#tabbuilder.current_buttons,1 do
+ if tabbuilder.current_buttons[i].name == tabbuilder.current_tab then
+ tabbuilder.last_tab_index = i
+ end
+ end
+
+ menu.update_gametype()
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_multiplayer()
+ local retval =
+ "vertlabel[0,-0.25;CLIENT]" ..
+ "label[1,-0.25;Favorites:]"..
+ "label[1,4.25;Address/Port]"..
+ "label[9,0;Name/Password]" ..
+ "field[1.25,5.25;5.5,0.5;te_address;;" ..engine.setting_get("address") .."]" ..
+ "field[6.75,5.25;2.25,0.5;te_port;;" ..engine.setting_get("port") .."]" ..
+ "button[6.45,3.95;2.25,0.5;btn_delete_favorite;Delete]" ..
+ "button[9,4.95;2.5,0.5;btn_mp_connect;Connect]" ..
+ "field[9.25,1;2.5,0.5;te_name;;" ..engine.setting_get("name") .."]" ..
+ "pwdfield[9.25,1.75;2.5,0.5;te_pwd;]" ..
+ "checkbox[1,3.6;cb_public_serverlist;Public Serverlist;" ..
+ dump(engine.setting_getbool("public_serverlist")) .. "]" ..
+ "textlist[1,0.35;7.5,3.35;favourites;"
+
+ if #menu.favorites > 0 then
+ retval = retval .. render_favourite(menu.favorites[1])
+
+ for i=2,#menu.favorites,1 do
+ retval = retval .. "," .. render_favourite(menu.favorites[i])
+ end
+ end
+
+ retval = retval .. ";1]"
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_server()
+ local retval =
+ "button[4,4.15;2.6,0.5;world_delete;Delete]" ..
+ "button[6.5,4.15;2.8,0.5;world_create;New]" ..
+ "button[9.2,4.15;2.55,0.5;world_configure;Configure]" ..
+ "button[8.5,4.9;3.25,0.5;start_server;Start Game]" ..
+ "label[4,-0.25;Select World:]"..
+ "vertlabel[0,-0.25;START SERVER]" ..
+ "checkbox[0.5,0.25;cb_creative_mode;Creative Mode;" ..
+ dump(engine.setting_getbool("creative_mode")) .. "]"..
+ "checkbox[0.5,0.7;cb_enable_damage;Enable Damage;" ..
+ dump(engine.setting_getbool("enable_damage")) .. "]"..
+ "field[0.8,2.2;3,0.5;te_playername;Name;" ..
+ engine.setting_get("name") .. "]" ..
+ "pwdfield[0.8,3.2;3,0.5;te_passwd;Password]" ..
+ "field[0.8,5.2;3,0.5;te_serverport;Server Port;30000]" ..
+ "textlist[4,0.25;7.5,3.7;srv_worlds;"
+
+ if #menu.worldlist > 0 then
+ retval = retval .. menu.worldlist[1].name ..
+ " [[" .. menu.worldlist[1].gameid .. "]]"
+
+ for i=2,#menu.worldlist,1 do
+ retval = retval .. "," .. menu.worldlist[i].name ..
+ " [[" .. menu.worldlist[i].gameid .. "]]"
+ end
+ end
+
+ retval = retval .. ";" .. menu.last_world .. "]"
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_settings()
+ return "vertlabel[0,0;SETTINGS]" ..
+ "checkbox[1,0.75;cb_fancy_trees;Fancy trees;" .. dump(engine.setting_getbool("new_style_leaves")) .. "]"..
+ "checkbox[1,1.25;cb_smooth_lighting;Smooth Lighting;".. dump(engine.setting_getbool("smooth_lighting")) .. "]"..
+ "checkbox[1,1.75;cb_3d_clouds;3D Clouds;" .. dump(engine.setting_getbool("enable_3d_clouds")) .. "]"..
+ "checkbox[1,2.25;cb_opaque_water;Opaque Water;" .. dump(engine.setting_getbool("opaque_water")) .. "]"..
+
+ "checkbox[4,0.75;cb_mipmapping;Mip-Mapping;" .. dump(engine.setting_getbool("mip_map")) .. "]"..
+ "checkbox[4,1.25;cb_anisotrophic;Anisotropic Filtering;".. dump(engine.setting_getbool("anisotropic_filter")) .. "]"..
+ "checkbox[4,1.75;cb_bilinear;Bi-Linear Filtering;" .. dump(engine.setting_getbool("bilinear_filter")) .. "]"..
+ "checkbox[4,2.25;cb_trilinear;Tri-Linear Filtering;" .. dump(engine.setting_getbool("trilinear_filter")) .. "]"..
+
+ "checkbox[7.5,0.75;cb_shaders;Shaders;" .. dump(engine.setting_getbool("enable_shaders")) .. "]"..
+ "checkbox[7.5,1.25;cb_pre_ivis;Preload item visuals;".. dump(engine.setting_getbool("preload_item_visuals")) .. "]"..
+ "checkbox[7.5,1.75;cb_particles;Enable Particles;" .. dump(engine.setting_getbool("enable_particles")) .. "]"..
+ "checkbox[7.5,2.25;cb_finite_liquid;Finite Liquid;" .. dump(engine.setting_getbool("liquid_finite")) .. "]"..
+
+ "button[1,3.75;2.25,0.5;btn_change_keys;Change keys]"
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_singleplayer()
+ local index = engine.setting_get("main_menu_singleplayer_world_idx")
+
+ if index == nil then
+ index = 0
+ end
+
+ return "button[4,4.15;2.6,0.5;world_delete;Delete]" ..
+ "button[6.5,4.15;2.8,0.5;world_create;New]" ..
+ "button[9.2,4.15;2.55,0.5;world_configure;Configure]" ..
+ "button[8.5,4.95;3.25,0.5;play;Play]" ..
+ "label[4,-0.25;Select World:]"..
+ "vertlabel[0,-0.25;SINGLE PLAYER]" ..
+ "checkbox[0.5,0.25;cb_creative_mode;Creative Mode;" ..
+ dump(engine.setting_getbool("creative_mode")) .. "]"..
+ "checkbox[0.5,0.7;cb_enable_damage;Enable Damage;" ..
+ dump(engine.setting_getbool("enable_damage")) .. "]"..
+ "textlist[4,0.25;7.5,3.7;sp_worlds;" ..
+ menu.filtered_game_list() ..
+ ";" .. index .. "]" ..
+ menubar.formspec
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_credits()
+ return "vertlabel[0,-0.5;CREDITS]" ..
+ "label[0.5,3;Minetest " .. engine.get_version() .. "]" ..
+ "label[0.5,3.3;http://minetest.net]" ..
+ "image[0.5,1;" .. menu.basetexturedir .. "logo.png]" ..
+ "textlist[3.5,-0.25;8.5,5.8;list_credits;" ..
+ "#YLWCore Developers," ..
+ "Perttu Ahola (celeron55) <celeron55@gmail.com>,"..
+ "Ryan Kwolek (kwolekr) <kwolekr@minetest.net>,"..
+ "PilzAdam <pilzadam@minetest.net>," ..
+ "IIya Zhuravlev (thexyz) <xyz@minetest.net>,"..
+ "Lisa Milne (darkrose) <lisa@ltmnet.com>,"..
+ "Maciej Kasatkin (RealBadAngel) <mk@realbadangel.pl>,"..
+ "proller <proler@gmail.com>,"..
+ "sfan5 <sfan5@live.de>,"..
+ "kahrl <kahrl@gmx.net>,"..
+ ","..
+ "#YLWActive Contributors," ..
+ "sapier,"..
+ "Vanessa Ezekowitz (VanessaE) <vanessaezekowitz@gmail.com>,"..
+ "Jurgen Doser (doserj) <jurgen.doser@gmail.com>,"..
+ "Jeija <jeija@mesecons.net>,"..
+ "MirceaKitsune <mirceakitsune@gmail.com>,"..
+ "ShadowNinja"..
+ "dannydark <the_skeleton_of_a_child@yahoo.co.uk>"..
+ "0gb.us <0gb.us@0gb.us>,"..
+ "," ..
+ "#YLWPrevious Contributors," ..
+ "Guiseppe Bilotta (Oblomov) <guiseppe.bilotta@gmail.com>,"..
+ "Jonathan Neuschafer <j.neuschaefer@gmx.net>,"..
+ "Nils Dagsson Moskopp (erlehmann) <nils@dieweltistgarnichtso.net>,"..
+ "Constantin Wenger (SpeedProg) <constantin.wenger@googlemail.com>,"..
+ "matttpt <matttpt@gmail.com>,"..
+ "JacobF <queatz@gmail.com>,"..
+ ";0;true]"
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.checkretval(retval)
+
+ if retval ~= nil then
+ if retval.current_tab ~= nil then
+ tabbuilder.current_tab = retval.current_tab
+ end
+
+ if retval.is_dialog ~= nil then
+ tabbuilder.is_dialog = retval.is_dialog
+ end
+
+ if retval.show_buttons ~= nil then
+ tabbuilder.show_buttons = retval.show_buttons
+ end
+
+ if retval.skipformupdate ~= nil then
+ tabbuilder.skipformupdate = retval.skipformupdate
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+-- initialize callbacks
+--------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+engine.button_handler = function(fields)
+ --print("Buttonhandler: tab: " .. tabbuilder.current_tab .. " fields: " .. dump(fields))
+
+ if fields["btn_error_confirm"] then
+ gamedata.errormessage = nil
+ end
+
+ local retval = modmgr.handle_buttons(tabbuilder.current_tab,fields)
+ tabbuilder.checkretval(retval)
+
+ retval = gamemgr.handle_buttons(tabbuilder.current_tab,fields)
+ tabbuilder.checkretval(retval)
+
+ retval = modstore.handle_buttons(tabbuilder.current_tab,fields)
+ tabbuilder.checkretval(retval)
+
+ if tabbuilder.current_tab == "dialog_create_world" then
+ tabbuilder.handle_create_world_buttons(fields)
+ end
+
+ if tabbuilder.current_tab == "dialog_delete_world" then
+ tabbuilder.handle_delete_world_buttons(fields)
+ end
+
+ if tabbuilder.current_tab == "singleplayer" then
+ tabbuilder.handle_singleplayer_buttons(fields)
+ end
+
+ if tabbuilder.current_tab == "multiplayer" then
+ tabbuilder.handle_multiplayer_buttons(fields)
+ end
+
+ if tabbuilder.current_tab == "settings" then
+ tabbuilder.handle_settings_buttons(fields)
+ end
+
+ if tabbuilder.current_tab == "server" then
+ tabbuilder.handle_server_buttons(fields)
+ end
+
+ --tab buttons
+ tabbuilder.handle_tab_buttons(fields)
+
+ --menubar buttons
+ menubar.handle_buttons(fields)
+
+ if not tabbuilder.skipformupdate then
+ --update menu
+ update_menu()
+ else
+ tabbuilder.skipformupdate = false
+ end
+end
+
+--------------------------------------------------------------------------------
+engine.event_handler = function(event)
+ if event == "MenuQuit" then
+ if tabbuilder.is_dialog then
+ tabbuilder.is_dialog = false
+ tabbuilder.show_buttons = true
+ tabbuilder.current_tab = engine.setting_get("main_menu_tab")
+ update_menu()
+ else
+ engine.close()
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+-- menu startup
+--------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+init_globals()
+menu.init()
+tabbuilder.init()
+menubar.refresh()
+modstore.init()
+update_menu()
diff --git a/builtin/mainmenu_helper.lua b/builtin/mainmenu_helper.lua
new file mode 100644
index 000000000..f5a470b72
--- /dev/null
+++ b/builtin/mainmenu_helper.lua
@@ -0,0 +1,105 @@
+--------------------------------------------------------------------------------
+function dump(o, dumped)
+ dumped = dumped or {}
+ if type(o) == "number" then
+ return tostring(o)
+ elseif type(o) == "string" then
+ return string.format("%q", o)
+ elseif type(o) == "table" then
+ if dumped[o] then
+ return "<circular reference>"
+ end
+ dumped[o] = true
+ local t = {}
+ for k,v in pairs(o) do
+ t[#t+1] = "" .. k .. " = " .. dump(v, dumped)
+ end
+ return "{" .. table.concat(t, ", ") .. "}"
+ elseif type(o) == "boolean" then
+ return tostring(o)
+ elseif type(o) == "function" then
+ return "<function>"
+ elseif type(o) == "userdata" then
+ return "<userdata>"
+ elseif type(o) == "nil" then
+ return "nil"
+ else
+ error("cannot dump a " .. type(o))
+ return nil
+ end
+end
+
+--------------------------------------------------------------------------------
+function string:split(sep)
+ local sep, fields = sep or ",", {}
+ local pattern = string.format("([^%s]+)", sep)
+ self:gsub(pattern, function(c) fields[#fields+1] = c end)
+ return fields
+end
+
+--------------------------------------------------------------------------------
+function string:trim()
+ return (self:gsub("^%s*(.-)%s*$", "%1"))
+end
+
+--------------------------------------------------------------------------------
+engine.get_game = function(index)
+ local games = game.get_games()
+
+ if index > 0 and index <= #games then
+ return games[index]
+ end
+
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function fs_escape_string(text)
+ if text ~= nil then
+ while (text:find("\r\n") ~= nil) do
+ local newtext = text:sub(1,text:find("\r\n")-1)
+ newtext = newtext .. " " .. text:sub(text:find("\r\n")+3)
+
+ text = newtext
+ end
+
+ while (text:find("\n") ~= nil) do
+ local newtext = text:sub(1,text:find("\n")-1)
+ newtext = newtext .. " " .. text:sub(text:find("\n")+1)
+
+ text = newtext
+ end
+
+ while (text:find("\r") ~= nil) do
+ local newtext = text:sub(1,text:find("\r")-1)
+ newtext = newtext .. " " .. text:sub(text:find("\r")+1)
+
+ text = newtext
+ end
+
+ text = text:gsub("%[","%[%[")
+ text = text:gsub("]","]]")
+ text = text:gsub(";"," ")
+ end
+ return text
+end
+
+--------------------------------------------------------------------------------
+function explode_textlist_event(text)
+
+ local retval = {}
+ retval.typ = "INV"
+
+ local parts = text:split(":")
+
+ if #parts == 2 then
+ retval.typ = parts[1]:trim()
+ retval.index= tonumber(parts[2]:trim())
+
+ if type(retval.index) ~= "number" then
+ retval.typ = "INV"
+ end
+ end
+
+ return retval
+end
diff --git a/builtin/modmgr.lua b/builtin/modmgr.lua
new file mode 100644
index 000000000..1cb4b3922
--- /dev/null
+++ b/builtin/modmgr.lua
@@ -0,0 +1,881 @@
+--Minetest
+--Copyright (C) 2013 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.
+
+--------------------------------------------------------------------------------
+function get_mods(path,retval,basefolder)
+
+ local mods = engine.get_dirlist(path,true)
+
+ for i=1,#mods,1 do
+ local filename = path .. DIR_DELIM .. mods[i] .. DIR_DELIM .. "modpack.txt"
+ local modpackfile,error = io.open(filename,"r")
+
+ local name = mods[i]
+ if basefolder ~= nil and
+ basefolder ~= "" then
+ name = basefolder .. DIR_DELIM .. mods[i]
+ end
+
+ if modpackfile ~= nil then
+ modpackfile:close()
+ table.insert(retval,name .. " <MODPACK>")
+ get_mods(path .. DIR_DELIM .. name,retval,name)
+ else
+
+ table.insert(retval,name)
+ end
+ end
+end
+
+--modmanager implementation
+modmgr = {}
+
+--------------------------------------------------------------------------------
+function modmgr.extract(modfile)
+ if modfile.type == "zip" then
+ local tempfolder = os.tempfolder()
+
+ if tempfolder ~= nil and
+ tempfodler ~= "" then
+ engine.create_dir(tempfolder)
+ engine.extract_zip(modfile.name,tempfolder)
+ return tempfolder
+ end
+ end
+end
+
+-------------------------------------------------------------------------------
+function modmgr.getbasefolder(temppath)
+
+ if temppath == nil then
+ return {
+ type = "invalid",
+ path = ""
+ }
+ end
+
+ local testfile = io.open(temppath .. DIR_DELIM .. "init.lua","r")
+ if testfile ~= nil then
+ testfile:close()
+ return {
+ type="mod",
+ path=temppath
+ }
+ end
+
+ testfile = io.open(temppath .. DIR_DELIM .. "modpack.txt","r")
+ if testfile ~= nil then
+ testfile:close()
+ return {
+ type="modpack",
+ path=temppath
+ }
+ end
+
+ local subdirs = engine.get_dirlist(temppath,true)
+
+ --only single mod or modpack allowed
+ if #subdirs ~= 1 then
+ return {
+ type = "invalid",
+ path = ""
+ }
+ end
+
+ testfile =
+ io.open(temppath .. DIR_DELIM .. subdirs[1] ..DIR_DELIM .."init.lua","r")
+ if testfile ~= nil then
+ testfile:close()
+ return {
+ type="mod",
+ path= temppath .. DIR_DELIM .. subdirs[1]
+ }
+ end
+
+ testfile =
+ io.open(temppath .. DIR_DELIM .. subdirs[1] ..DIR_DELIM .."modpack.txt","r")
+ if testfile ~= nil then
+ testfile:close()
+ return {
+ type="modpack",
+ path=temppath .. DIR_DELIM .. subdirs[1]
+ }
+ end
+
+ return {
+ type = "invalid",
+ path = ""
+ }
+end
+
+--------------------------------------------------------------------------------
+function modmgr.isValidModname(modpath)
+ if modpath:find("-") ~= nil then
+ return false
+ end
+
+ return true
+end
+
+--------------------------------------------------------------------------------
+function modmgr.parse_register_line(line)
+ local pos1 = line:find("\"")
+ local pos2 = nil
+ if pos1 ~= nil then
+ pos2 = line:find("\"",pos1+1)
+ end
+
+ if pos1 ~= nil and pos2 ~= nil then
+ local item = line:sub(pos1+1,pos2-1)
+
+ if item ~= nil and
+ item ~= "" then
+ local pos3 = item:find(":")
+
+ if pos3 ~= nil then
+ return item:sub(1,pos3-1)
+ end
+ end
+ end
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function modmgr.parse_dofile_line(modpath,line)
+ local pos1 = line:find("\"")
+ local pos2 = nil
+ if pos1 ~= nil then
+ pos2 = line:find("\"",pos1+1)
+ end
+
+ if pos1 ~= nil and pos2 ~= nil then
+ local filename = line:sub(pos1+1,pos2-1)
+
+ if filename ~= nil and
+ filename ~= "" and
+ filename:find(".lua") then
+ return modmgr.identify_modname(modpath,filename)
+ end
+ end
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function modmgr.update_global_mods()
+ local modpath = engine.get_modpath()
+ modmgr.global_mods = {}
+ if modpath ~= nil and
+ modpath ~= "" then
+ get_mods(modpath,modmgr.global_mods)
+ end
+end
+
+--------------------------------------------------------------------------------
+function modmgr.get_mods_list()
+ local toadd = ""
+
+ modmgr.update_global_mods()
+
+ if modmgr.global_mods ~= nil then
+ for i=1,#modmgr.global_mods,1 do
+ if toadd ~= "" then
+ toadd = toadd..","
+ end
+ toadd = toadd .. modmgr.global_mods[i]
+ end
+ end
+
+ return toadd
+end
+
+--------------------------------------------------------------------------------
+function modmgr.mod_exists(basename)
+ modmgr.update_global_mods()
+
+ if modmgr.global_mods ~= nil then
+ for i=1,#modmgr.global_mods,1 do
+ if modmgr.global_mods[i] == basename then
+ return true
+ end
+ end
+ end
+
+ return false
+end
+
+--------------------------------------------------------------------------------
+function modmgr.identify_modname(modpath,filename)
+ local testfile = io.open(modpath .. DIR_DELIM .. filename,"r")
+ if testfile ~= nil then
+ local line = testfile:read()
+
+ while line~= nil do
+ local modname = nil
+
+ if line:find("minetest.register_tool") then
+ modname = modmgr.parse_register_line(line)
+ end
+
+ if line:find("minetest.register_craftitem") then
+ modname = modmgr.parse_register_line(line)
+ end
+
+
+ if line:find("minetest.register_node") then
+ modname = modmgr.parse_register_line(line)
+ end
+
+ if line:find("dofile") then
+ modname = modmgr.parse_dofile_line(modpath,line)
+ end
+
+ if modname ~= nil then
+ testfile:close()
+ return modname
+ end
+
+ line = testfile:read()
+ end
+ testfile:close()
+ end
+
+ return nil
+end
+
+--------------------------------------------------------------------------------
+function modmgr.tab()
+ if modmgr.selected_mod == nil then
+ modmgr.selected_mod = 1
+ end
+
+ local retval =
+ "vertlabel[0,-0.25;MODS]" ..
+ "label[0.8,-0.25;Installed Mods:]" ..
+ "textlist[0.75,0.25;4.5,4.3;modlist;" ..
+ modmgr.get_mods_list() ..
+ ";" .. modmgr.selected_mod .. "]"
+
+ retval = retval ..
+ "button[1,4.85;2,0.5;btn_mod_mgr_install_local;Install]" ..
+ "button[3,4.85;2,0.5;btn_mod_mgr_download;Download]"
+
+ if #modmgr.global_mods >= modmgr.selected_mod and
+ modmgr.global_mods[modmgr.selected_mod]:find("<MODPACK>") then
+ retval = retval .. "button[10,4.85;2,0.5;btn_mod_mgr_rename_modpack;Rename]"
+ end
+
+ if #modmgr.global_mods >= modmgr.selected_mod then
+ local modpath = engine.get_modpath()
+ --show dependencys
+ if modmgr.global_mods[modmgr.selected_mod]:find("<MODPACK>") == nil then
+ retval = retval ..
+ "label[6,1.9;Depends:]" ..
+ "textlist[6,2.4;5.7,2;deplist;"
+
+ toadd = modmgr.get_dependencys(modpath .. DIR_DELIM ..
+ modmgr.global_mods[modmgr.selected_mod])
+
+ retval = retval .. toadd .. ";0;true,false]"
+
+ --TODO read modinfo
+ end
+ --show delete button
+ retval = retval .. "button[8,4.85;2,0.5;btn_mod_mgr_delete_mod;Delete]"
+ end
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.dialog_rename_modpack()
+
+ local modname = modmgr.global_mods[modmgr.selected_mod]
+ modname = modname:sub(0,modname:find("<") -2)
+
+ local retval =
+ "label[1.75,1;Rename Modpack:]"..
+ "field[4.5,1.4;6,0.5;te_modpack_name;;" ..
+ modname ..
+ "]" ..
+ "button[5,4.2;2.6,0.5;dlg_rename_modpack_confirm;Accept]" ..
+ "button[7.5,4.2;2.8,0.5;dlg_rename_modpack_cancel;Cancel]"
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.precheck()
+ if modmgr.global_mods == nil then
+ modmgr.update_global_mods()
+ end
+
+ if modmgr.world_config_selected_world == nil then
+ modmgr.world_config_selected_world = 1
+ end
+
+ if modmgr.world_config_selected_mod == nil then
+ modmgr.world_config_selected_mod = 1
+ end
+
+ if modmgr.hide_gamemods == nil then
+ modmgr.hide_gamemods = true
+ end
+end
+
+--------------------------------------------------------------------------------
+function modmgr.get_worldmod_idx()
+ if not modmgr.hide_gamemods then
+ return modmgr.world_config_selected_mod - #modmgr.worldconfig.game_mods
+ else
+ return modmgr.world_config_selected_mod
+ end
+end
+
+--------------------------------------------------------------------------------
+function modmgr.is_gamemod()
+ if not modmgr.hide_gamemods then
+ if modmgr.world_config_selected_mod <= #modmgr.worldconfig.game_mods then
+ return true
+ else
+ return false
+ end
+ else
+ return false
+ end
+end
+
+--------------------------------------------------------------------------------
+function modmgr.render_worldmodlist()
+ local retval = ""
+
+ for i=1,#modmgr.global_mods,1 do
+ local parts = modmgr.global_mods[i]:split(DIR_DELIM)
+ local shortname = parts[#parts]
+ if modmgr.worldconfig.global_mods[shortname] then
+ retval = retval .. "#GRN" .. modmgr.global_mods[i] .. ","
+ else
+ retval = retval .. modmgr.global_mods[i] .. ","
+ end
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.render_gamemodlist()
+ local retval = ""
+ for i=1,#modmgr.worldconfig.game_mods,1 do
+ retval = retval ..
+ "#BLU" .. modmgr.worldconfig.game_mods[i] .. ","
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.dialog_configure_world()
+ modmgr.precheck()
+
+ local modpack_selected = false
+ local gamemod_selected = modmgr.is_gamemod()
+ local modname = ""
+ local modfolder = ""
+ local shortname = ""
+
+ if not gamemod_selected then
+ local worldmodidx = modmgr.get_worldmod_idx()
+ modname = modmgr.global_mods[worldmodidx]
+
+ if modname:find("<MODPACK>") ~= nil then
+ modname = modname:sub(0,modname:find("<") -2)
+ modpack_selected = true
+ end
+
+ local parts = modmgr.global_mods[worldmodidx]:split(DIR_DELIM)
+ shortname = parts[#parts]
+
+ modfolder = engine.get_modpath() .. DIR_DELIM .. modname
+ end
+
+ local worldspec = engine.get_worlds()[modmgr.world_config_selected_world]
+
+ local retval =
+ "size[11,6.5]" ..
+ "label[1.5,-0.25;World: " .. worldspec.name .. "]"
+
+ if modmgr.hide_gamemods then
+ retval = retval .. "checkbox[5.5,6.15;cb_hide_gamemods;Hide Game;true]"
+ else
+ retval = retval .. "checkbox[5.5,6.15;cb_hide_gamemods;Hide Game;false]"
+ end
+ retval = retval ..
+ "button[9.25,6.35;2,0.5;btn_config_world_save;Save]" ..
+ "button[7.4,6.35;2,0.5;btn_config_world_cancel;Cancel]" ..
+ "textlist[5.5,-0.25;5.5,6.5;world_config_modlist;"
+
+
+ if not modmgr.hide_gamemods then
+ retval = retval .. modmgr.render_gamemodlist()
+ end
+
+ retval = retval .. modmgr.render_worldmodlist()
+
+ retval = retval .. ";" .. modmgr.world_config_selected_mod .."]"
+
+ if not gamemod_selected then
+ retval = retval ..
+ "label[0,0.45;Mod:]" ..
+ "label[0.75,0.45;" .. modname .. "]" ..
+ "label[0,1.5;depends on:]" ..
+ "textlist[0,2;5,2;world_config_depends;" ..
+ modmgr.get_dependencys(modfolder) .. ";0]" ..
+ "label[0,4;depends on:]" ..
+ "textlist[0,4.5;5,2;world_config_is_required;;0]"
+
+ if modpack_selected then
+ retval = retval ..
+ "button[-0.05,1.05;2,0.5;btn_cfgw_enable_all;Enable All]" ..
+ "button[3.25,1.05;2,0.5;btn_cfgw_disable_all;Disable All]"
+ else
+ retval = retval ..
+ "checkbox[0,0.8;cb_mod_enabled;enabled;"
+
+ if modmgr.worldconfig.global_mods[shortname] then
+ print("checkbox " .. shortname .. " enabled")
+ retval = retval .. "true"
+ else
+ print("checkbox " .. shortname .. " disabled")
+ retval = retval .. "false"
+ end
+
+ retval = retval .. "]"
+ end
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.handle_buttons(tab,fields)
+
+ local retval = nil
+
+ if tab == "mod_mgr" then
+ retval = modmgr.handle_modmgr_buttons(fields)
+ end
+
+ if tab == "dialog_rename_modpack" then
+ retval = modmgr.handle_rename_modpack_buttons(fields)
+ end
+
+ if tab == "dialog_delete_mod" then
+ retval = modmgr.handle_delete_mod_buttons(fields)
+ end
+
+ if tab == "dialog_configure_world" then
+ retval = modmgr.handle_configure_world_buttons(fields)
+ end
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.get_dependencys(modfolder)
+ local filename = modfolder ..
+ DIR_DELIM .. "depends.txt"
+
+ local dependencyfile = io.open(filename,"r")
+
+ local toadd = ""
+ if dependencyfile then
+ local dependency = dependencyfile:read("*l")
+ while dependency do
+ if toadd ~= "" then
+ toadd = toadd .. ","
+ end
+ toadd = toadd .. dependency
+ dependency = dependencyfile:read()
+ end
+ dependencyfile:close()
+ else
+ print(filename .. " not found")
+ end
+
+ return toadd
+end
+
+
+--------------------------------------------------------------------------------
+function modmgr.get_worldconfig(worldpath)
+ local filename = worldpath ..
+ DIR_DELIM .. "world.mt"
+
+ local worldfile = io.open(filename,"r")
+
+ local worldconfig = {}
+ worldconfig.global_mods = {}
+ worldconfig.game_mods = {}
+
+ if worldfile then
+ local dependency = worldfile:read("*l")
+ while dependency do
+ local parts = dependency:split("=")
+
+ local key = parts[1]:trim()
+
+ if key == "gameid" then
+ worldconfig.id = parts[2]:trim()
+ else
+ local key = parts[1]:trim():sub(10)
+ if parts[2]:trim() == "true" then
+ print("found enabled mod: >" .. key .. "<")
+ worldconfig.global_mods[key] = true
+ else
+ print("found disabled mod: >" .. key .. "<")
+ worldconfig.global_mods[key] = false
+ end
+ end
+ dependency = worldfile:read("*l")
+ end
+ worldfile:close()
+ else
+ print(filename .. " not found")
+ end
+
+ --read gamemods
+ local gamemodpath = engine.get_gamepath() .. DIR_DELIM .. worldconfig.id .. DIR_DELIM .. "mods"
+
+ print("reading game mods from: " .. dump(gamemodpath))
+ get_mods(gamemodpath,worldconfig.game_mods)
+
+ return worldconfig
+end
+--------------------------------------------------------------------------------
+function modmgr.handle_modmgr_buttons(fields)
+ local retval = {
+ tab = nil,
+ is_dialog = nil,
+ show_buttons = nil,
+ }
+
+ if fields["modlist"] ~= nil then
+ local event = explode_textlist_event(fields["modlist"])
+ modmgr.selected_mod = event.index
+ end
+
+ if fields["btn_mod_mgr_install_local"] ~= nil then
+ engine.show_file_open_dialog("mod_mgt_open_dlg","Select Mod File:")
+ end
+
+ if fields["btn_mod_mgr_download"] ~= nil then
+ retval.current_tab = "dialog_modstore_unsorted"
+ retval.is_dialog = true
+ retval.show_buttons = false
+ return retval
+ end
+
+ if fields["btn_mod_mgr_rename_modpack"] ~= nil then
+ retval.current_tab = "dialog_rename_modpack"
+ retval.is_dialog = true
+ retval.show_buttons = false
+ return retval
+ end
+
+ if fields["btn_mod_mgr_delete_mod"] ~= nil then
+ retval.current_tab = "dialog_delete_mod"
+ retval.is_dialog = true
+ retval.show_buttons = false
+ return retval
+ end
+
+ if fields["mod_mgt_open_dlg_accepted"] ~= nil and
+ fields["mod_mgt_open_dlg_accepted"] ~= "" then
+ modmgr.installmod(fields["mod_mgt_open_dlg_accepted"],nil)
+ end
+
+ return nil;
+end
+
+--------------------------------------------------------------------------------
+function modmgr.installmod(modfilename,basename)
+ local modfile = identify_filetype(modfilename)
+
+ local modpath = modmgr.extract(modfile)
+
+ if modpath == nil then
+ gamedata.errormessage = "Install Mod: file: " .. modfile.name ..
+ "\nInstall Mod: unsupported filetype \"" .. modfile.type .. "\""
+ return
+ end
+
+
+ local basefolder = modmgr.getbasefolder(modpath)
+
+ if basefolder.type == "modpack" then
+ local clean_path = nil
+
+ if basename ~= nil then
+ clean_path = "mp_" .. basename
+ end
+
+ if clean_path == nil then
+ clean_path = get_last_folder(cleanup_path(basefolder.path))
+ end
+
+ if clean_path ~= nil then
+ local targetpath = engine.get_modpath() .. DIR_DELIM .. clean_path
+ engine.copy_dir(basefolder.path,targetpath)
+ else
+ gamedata.errormessage = "Install Mod: unable to find suitable foldername for modpack "
+ .. modfilename
+ end
+ end
+
+ if basefolder.type == "mod" then
+ local targetfolder = basename
+
+ if targetfolder == nil then
+ targetfolder = modmgr.identify_modname(basefolder.path,"init.lua")
+ end
+
+ --if heuristic failed try to use current foldername
+ if targetfolder == nil then
+ targetfolder = get_last_folder(basefolder.path)
+ end
+
+ if targetfolder ~= nil and modmgr.isValidModname(targetfolder) then
+ local targetpath = engine.get_modpath() .. DIR_DELIM .. targetfolder
+ engine.copy_dir(basefolder.path,targetpath)
+ else
+ gamedata.errormessage = "Install Mod: unable to find real modname for: "
+ .. modfilename
+ end
+ end
+
+ engine.delete_dir(modpath)
+end
+
+--------------------------------------------------------------------------------
+function modmgr.handle_rename_modpack_buttons(fields)
+ local oldname = modmgr.global_mods[modmgr.selected_mod]
+ oldname = oldname:sub(0,oldname:find("<") -2)
+
+ if fields["dlg_rename_modpack_confirm"] ~= nil then
+ local oldpath = engine.get_modpath() .. DIR_DELIM .. oldname
+ local targetpath = engine.get_modpath() .. DIR_DELIM .. fields["te_modpack_name"]
+ engine.copy_dir(oldpath,targetpath,false)
+ end
+
+ return {
+ is_dialog = false,
+ show_buttons = true,
+ current_tab = engine.setting_get("main_menu_tab")
+ }
+end
+--------------------------------------------------------------------------------
+function modmgr.handle_configure_world_buttons(fields)
+ if fields["world_config_modlist"] ~= nil then
+ local event = explode_textlist_event(fields["world_config_modlist"])
+ modmgr.world_config_selected_mod = event.index
+ end
+
+ if fields["cb_mod_enabled"] ~= nil then
+ local index = modmgr.get_worldmod_idx()
+ local modname = modmgr.global_mods[index]
+
+ local parts = modmgr.global_mods[index]:split(DIR_DELIM)
+ local shortname = parts[#parts]
+
+ if fields["cb_mod_enabled"] == "true" then
+ modmgr.worldconfig.global_mods[shortname] = true
+ else
+ modmgr.worldconfig.global_mods[shortname] = false
+ end
+ end
+
+ if fields["cb_hide_gamemods"] ~= nil then
+ if fields["cb_hide_gamemods"] == "true" then
+ modmgr.hide_gamemods = true
+ else
+ modmgr.hide_gamemods = false
+ end
+ end
+
+ if fields["btn_config_world_save"] then
+ local worldspec = engine.get_worlds()[modmgr.world_config_selected_world]
+
+ local filename = worldspec.path ..
+ DIR_DELIM .. "world.mt"
+
+ local worldfile = io.open(filename,"w")
+
+ if worldfile then
+ worldfile:write("gameid = " .. modmgr.worldconfig.id .. "\n")
+ for key,value in pairs(modmgr.worldconfig.global_mods) do
+ if value then
+ worldfile:write("load_mod_" .. key .. " = true" .. "\n")
+ else
+ worldfile:write("load_mod_" .. key .. " = false" .. "\n")
+ end
+ end
+
+ worldfile:close()
+ end
+
+ modmgr.worldconfig = nil
+
+ return {
+ is_dialog = false,
+ show_buttons = true,
+ current_tab = engine.setting_get("main_menu_tab")
+ }
+ end
+
+ if fields["btn_config_world_cancel"] then
+
+ modmgr.worldconfig = nil
+
+ return {
+ is_dialog = false,
+ show_buttons = true,
+ current_tab = engine.setting_get("main_menu_tab")
+ }
+ end
+
+ if fields["btn_cfgw_enable_all"] then
+ local worldmodidx = modmgr.get_worldmod_idx()
+ modname = modmgr.global_mods[worldmodidx]
+
+ modname = modname:sub(0,modname:find("<") -2)
+
+ for i=1,#modmgr.global_mods,1 do
+
+ if modmgr.global_mods[i]:find("<MODPACK>") == nil then
+ local modpackpart = modmgr.global_mods[i]:sub(0,modname:len())
+
+ if modpackpart == modname then
+ local parts = modmgr.global_mods[i]:split(DIR_DELIM)
+ local shortname = parts[#parts]
+ modmgr.worldconfig.global_mods[shortname] = true
+ end
+ end
+ end
+ end
+
+ if fields["btn_cfgw_disable_all"] then
+ local worldmodidx = modmgr.get_worldmod_idx()
+ modname = modmgr.global_mods[worldmodidx]
+
+ modname = modname:sub(0,modname:find("<") -2)
+
+ for i=1,#modmgr.global_mods,1 do
+ local modpackpart = modmgr.global_mods[i]:sub(0,modname:len())
+
+ if modpackpart == modname then
+ local parts = modmgr.global_mods[i]:split(DIR_DELIM)
+ local shortname = parts[#parts]
+ modmgr.worldconfig.global_mods[shortname] = nil
+ end
+ end
+ end
+
+ return nil
+end
+--------------------------------------------------------------------------------
+function modmgr.handle_delete_mod_buttons(fields)
+ local modname = modmgr.global_mods[modmgr.selected_mod]
+
+ if modname:find("<MODPACK>") ~= nil then
+ modname = modname:sub(0,modname:find("<") -2)
+ end
+
+ if fields["dlg_delete_mod_confirm"] ~= nil then
+ local oldpath = engine.get_modpath() .. DIR_DELIM .. modname
+
+ if oldpath ~= nil and
+ oldpath ~= "" and
+ oldpath ~= engine.get_modpath() then
+ engine.delete_dir(oldpath)
+ end
+ end
+
+ return {
+ is_dialog = false,
+ show_buttons = true,
+ current_tab = engine.setting_get("main_menu_tab")
+ }
+end
+
+--------------------------------------------------------------------------------
+function modmgr.dialog_delete_mod()
+
+ local modname = modmgr.global_mods[modmgr.selected_mod]
+
+ if modname:find("<MODPACK>") ~= nil then
+ modname = modname:sub(0,modname:find("<") -2)
+ end
+
+ local retval =
+ "field[1.75,1;10,3;;Are you sure you want to delete ".. modname .. "?;]"..
+ "button[4,4.2;1,0.5;dlg_delete_mod_confirm;Yes]" ..
+ "button[6.5,4.2;3,0.5;dlg_delete_mod_cancel;No of course not!]"
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.init_worldconfig()
+
+ local worldspec = engine.get_worlds()[modmgr.world_config_selected_world]
+
+ if worldspec ~= nil then
+ --read worldconfig
+ modmgr.worldconfig = modmgr.get_worldconfig(worldspec.path)
+
+ if modmgr.worldconfig.id == nil or
+ modmgr.worldconfig.id == "" then
+ modmgr.worldconfig = nil
+ return false
+ end
+
+ return true
+ end
+
+ return false
+end
+
+--------------------------------------------------------------------------------
+function modmgr.gettab(name)
+ local retval = ""
+
+ if name == "mod_mgr" then
+ retval = retval .. modmgr.tab()
+ end
+
+ if name == "dialog_rename_modpack" then
+ retval = retval .. modmgr.dialog_rename_modpack()
+ end
+
+ if name == "dialog_delete_mod" then
+ retval = retval .. modmgr.dialog_delete_mod()
+ end
+
+ if name == "dialog_configure_world" then
+ retval = retval .. modmgr.dialog_configure_world()
+ end
+
+ return retval
+end
diff --git a/builtin/modstore.lua b/builtin/modstore.lua
new file mode 100644
index 000000000..73afc3899
--- /dev/null
+++ b/builtin/modstore.lua
@@ -0,0 +1,275 @@
+--Minetest
+--Copyright (C) 2013 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.
+
+--------------------------------------------------------------------------------
+
+--modstore implementation
+modstore = {}
+
+--------------------------------------------------------------------------------
+function modstore.init()
+ modstore.tabnames = {}
+
+ table.insert(modstore.tabnames,"dialog_modstore_unsorted")
+ table.insert(modstore.tabnames,"dialog_modstore_search")
+
+ modstore.modsperpage = 5
+
+ modstore.basetexturedir = engine.get_gamepath() .. DIR_DELIM .. ".." ..
+ DIR_DELIM .. "textures" .. DIR_DELIM .. "base" ..
+ DIR_DELIM .. "pack" .. DIR_DELIM
+ modstore.update_modlist()
+
+ modstore.current_list = nil
+
+ modstore.details_cache = {}
+end
+--------------------------------------------------------------------------------
+function modstore.nametoindex(name)
+
+ for i=1,#modstore.tabnames,1 do
+ if modstore.tabnames[i] == name then
+ return i
+ end
+ end
+
+ return 1
+end
+
+--------------------------------------------------------------------------------
+function modstore.gettab(tabname)
+ local retval = ""
+
+ local is_modstore_tab = false
+
+ if tabname == "dialog_modstore_unsorted" then
+ retval = modstore.getmodlist(modstore.modlist_unsorted)
+ is_modstore_tab = true
+ end
+
+ if tabname == "dialog_modstore_search" then
+
+
+ is_modstore_tab = true
+ end
+
+ if is_modstore_tab then
+ return modstore.tabheader(tabname) .. retval
+ end
+
+ if tabname == "modstore_mod_installed" then
+ return "size[6,2]label[0.25,0.25;Mod: " .. modstore.lastmodtitle ..
+ " installed successfully]" ..
+ "button[2.5,1.5;1,0.5;btn_confirm_mod_successfull;ok]"
+ end
+
+ return ""
+end
+
+--------------------------------------------------------------------------------
+function modstore.tabheader(tabname)
+ local retval = "size[12,9.25]"
+ retval = retval .. "tabheader[-0.3,-0.99;modstore_tab;" ..
+ "Unsorted,Search;" ..
+ modstore.nametoindex(tabname) .. ";true;false]"
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modstore.handle_buttons(current_tab,fields)
+
+ modstore.lastmodtitle = ""
+
+ if fields["modstore_tab"] then
+ local index = tonumber(fields["modstore_tab"])
+
+ if index > 0 and
+ index <= #modstore.tabnames then
+ return {
+ current_tab = modstore.tabnames[index],
+ is_dialog = true,
+ show_buttons = false
+ }
+ end
+
+ modstore.modlist_page = 0
+ end
+
+ if fields["btn_modstore_page_up"] then
+ if modstore.current_list ~= nil and modstore.current_list.page > 0 then
+ modstore.current_list.page = modstore.current_list.page - 1
+ end
+ end
+
+ if fields["btn_modstore_page_down"] then
+ if modstore.current_list ~= nil and
+ modstore.current_list.page <modstore.current_list.pagecount then
+ modstore.current_list.page = modstore.current_list.page +1
+ end
+ end
+
+ if fields["btn_confirm_mod_successfull"] then
+ return {
+ current_tab = modstore.tabnames[1],
+ is_dialog = true,
+ show_buttons = false
+ }
+ end
+
+ for i=1, modstore.modsperpage, 1 do
+ local installbtn = "btn_install_mod_" .. i
+
+ if fields[installbtn] then
+ local modlistentry =
+ modstore.current_list.page * modstore.modsperpage + i
+
+ local moddetails = modstore.get_details(modstore.current_list.data[modlistentry].id)
+
+ local fullurl = engine.setting_get("modstore_download_url") ..
+ moddetails.download_url
+ local modfilename = os.tempfolder() .. ".zip"
+ print("Downloading mod from: " .. fullurl .. " to ".. modfilename)
+
+ if engine.download_file(fullurl,modfilename) then
+
+ modmgr.installmod(modfilename,moddetails.basename)
+
+ os.remove(modfilename)
+ modstore.lastmodtitle = modstore.current_list.data[modlistentry].title
+
+ return {
+ current_tab = "modstore_mod_installed",
+ is_dialog = true,
+ show_buttons = false
+ }
+ else
+ gamedata.errormessage = "Unable to download " ..
+ moddetails.download_url .. " (internet connection?)"
+ end
+ end
+ end
+end
+
+--------------------------------------------------------------------------------
+function modstore.update_modlist()
+ modstore.modlist_unsorted = {}
+ modstore.modlist_unsorted.data = engine.get_modstore_list()
+
+ if modstore.modlist_unsorted.data ~= nil then
+ modstore.modlist_unsorted.pagecount =
+ math.floor((#modstore.modlist_unsorted.data / modstore.modsperpage))
+ else
+ modstore.modlist_unsorted.data = {}
+ modstore.modlist_unsorted.pagecount = 0
+ end
+ modstore.modlist_unsorted.page = 0
+end
+
+--------------------------------------------------------------------------------
+function modstore.getmodlist(list)
+ local retval = ""
+ retval = retval .. "label[10,-0.4;Page " .. (list.page +1) ..
+ " of " .. (list.pagecount +1) .. "]"
+
+ retval = retval .. "button[11.6,-0.1;0.5,0.5;btn_modstore_page_up;^]"
+ retval = retval .. "box[11.6,0.35;0.28,8.6;BLK]"
+ local scrollbarpos = 0.35 + (8.1/list.pagecount) * list.page
+ retval = retval .. "box[11.6," ..scrollbarpos .. ";0.28,0.5;LIM]"
+ retval = retval .. "button[11.6,9.0;0.5,0.5;btn_modstore_page_down;v]"
+
+
+ if #list.data < (list.page * modstore.modsperpage) then
+ return retval
+ end
+
+ local endmod = (list.page * modstore.modsperpage) + modstore.modsperpage
+
+ if (endmod > #list.data) then
+ endmod = #list.data
+ end
+
+ for i=(list.page * modstore.modsperpage) +1, endmod, 1 do
+ --getmoddetails
+ local details = modstore.get_details(list.data[i].id)
+
+ if details ~= nil then
+ local screenshot_ypos = (i-1 - (list.page * modstore.modsperpage))*1.9 +0.2
+
+ retval = retval .. "box[0," .. screenshot_ypos .. ";11.4,1.75;WHT]"
+
+ --screenshot
+ if details.screenshot_url ~= nil and
+ details.screenshot_url ~= "" then
+ if list.data[i].texturename == nil then
+ print("downloading screenshot: " .. details.screenshot_url)
+ local filename = os.tempfolder()
+
+ if engine.download_file(details.screenshot_url,filename) then
+ list.data[i].texturename = filename
+ end
+ end
+ end
+
+ if list.data[i].texturename == nil then
+ list.data[i].texturename = modstore.basetexturedir .. "no_screenshot.png"
+ end
+
+ retval = retval .. "image[0,".. screenshot_ypos .. ";3,2;" ..
+ list.data[i].texturename .. "]"
+
+ --title + author
+ retval = retval .."label[2.75," .. screenshot_ypos .. ";" ..
+ fs_escape_string(details.title) .. " (" .. details.author .. ")]"
+
+ --description
+ local descriptiony = screenshot_ypos + 0.5
+ retval = retval .. "textarea[3," .. descriptiony .. ";6.5,1.6;;" ..
+ fs_escape_string(details.description) .. ";]"
+ --rating
+ local ratingy = screenshot_ypos + 0.6
+ retval = retval .."label[10.1," .. ratingy .. ";Rating: " .. details.rating .."]"
+
+ --install button
+ local buttony = screenshot_ypos + 1.2
+ local buttonnumber = (i - (list.page * modstore.modsperpage))
+ retval = retval .."button[9.6," .. buttony .. ";2,0.5;btn_install_mod_" .. buttonnumber .. ";"
+
+ if modmgr.mod_exists(details.basename) then
+ retval = retval .. "re-Install]"
+ else
+ retval = retval .. "Install]"
+ end
+ end
+ end
+
+ modstore.current_list = list
+
+ return retval
+end
+
+--------------------------------------------------------------------------------
+function modstore.get_details(modid)
+
+ if modstore.details_cache[modid] ~= nil then
+ return modstore.details_cache[modid]
+ end
+
+ local retval = engine.get_modstore_details(tostring(modid))
+ modstore.details_cache[modid] = retval
+ return retval
+end \ No newline at end of file