Organize builtin into subdirectories

7 files changed, 3931 insertions, 0 deletions

diff --git a/builtin/mainmenu/filterlist.lua b/builtin/mainmenu/filterlist.lua
new file mode 100644
index 000000000..379a5cea9
--- /dev/null
+++ b/builtin/mainmenu/filterlist.lua
@@ -0,0 +1,301 @@
+--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.
+
+--------------------------------------------------------------------------------
+-- Generic implementation of a filter/sortable list                           --
+-- Usage:                                                                     --
+-- Filterlist needs to be initialized on creation. To achieve this you need to --
+-- pass following functions:                                                  --
+-- raw_fct() (mandatory):                                                     --
+--     function returning a table containing the elements to be filtered      --
+-- compare_fct(element1,element2) (mandatory):                                --
+--     function returning true/false if element1 is same element as element2  --
+-- uid_match_fct(element1,uid) (optional)                                     --
+--     function telling if uid is attached to element1                        --
+-- filter_fct(element,filtercriteria) (optional)                              --
+--     function returning true/false if filtercriteria met to element         --
+-- fetch_param (optional)                                                     --
+--     parameter passed to raw_fct to aquire correct raw data                 --
+--                                                                            --
+--------------------------------------------------------------------------------
+filterlist = {}
+
+--------------------------------------------------------------------------------
+function filterlist.refresh(this)
+	this.m_raw_list = this.m_raw_list_fct(this.m_fetch_param)
+	filterlist.process(this)
+end
+
+--------------------------------------------------------------------------------
+function filterlist.create(raw_fct,compare_fct,uid_match_fct,filter_fct,fetch_param)
+
+	assert((raw_fct ~= nil) and (type(raw_fct) == "function"))
+	assert((compare_fct ~= nil) and (type(compare_fct) == "function"))
+	
+	local this = {}
+	
+	this.m_raw_list_fct  = raw_fct
+	this.m_compare_fct   = compare_fct
+	this.m_filter_fct    = filter_fct
+	this.m_uid_match_fct = uid_match_fct
+	
+	this.m_filtercriteria = nil
+	this.m_fetch_param = fetch_param
+	
+	this.m_sortmode = "none"
+	this.m_sort_list = {}
+
+	this.m_processed_list = nil
+	this.m_raw_list = this.m_raw_list_fct(this.m_fetch_param)
+
+	filterlist.process(this)
+	
+	return this
+end
+
+--------------------------------------------------------------------------------
+function filterlist.add_sort_mechanism(this,name,fct)
+	this.m_sort_list[name] = fct
+end
+
+--------------------------------------------------------------------------------
+function filterlist.set_filtercriteria(this,criteria)
+	if criteria == this.m_filtercriteria and
+		type(criteria) ~= "table" then
+		return
+	end
+	this.m_filtercriteria = criteria
+	filterlist.process(this)
+end
+
+--------------------------------------------------------------------------------
+function filterlist.get_filtercriteria(this)
+	return this.m_filtercriteria
+end
+
+--------------------------------------------------------------------------------
+--supported sort mode "alphabetic|none"
+function filterlist.set_sortmode(this,mode)
+	if (mode == this.m_sortmode) then
+		return
+	end
+	this.m_sortmode = mode
+	filterlist.process(this)
+end
+
+--------------------------------------------------------------------------------
+function filterlist.get_list(this)
+	return this.m_processed_list
+end
+
+--------------------------------------------------------------------------------
+function filterlist.get_raw_list(this)
+	return this.m_raw_list
+end
+
+--------------------------------------------------------------------------------
+function filterlist.get_raw_element(this,idx)
+	if type(idx) ~= "number" then
+		idx = tonumber(idx)
+	end
+	
+	if idx ~= nil and idx > 0 and idx < #this.m_raw_list then
+		return this.m_raw_list[idx]
+	end
+	
+	return nil
+end
+
+--------------------------------------------------------------------------------
+function filterlist.get_raw_index(this,listindex)
+	assert(this.m_processed_list ~= nil)
+	
+	if listindex ~= nil and listindex > 0 and
+		listindex <= #this.m_processed_list then
+		local entry = this.m_processed_list[listindex]
+		
+		for i,v in ipairs(this.m_raw_list) do
+		
+			if this.m_compare_fct(v,entry) then
+				return i
+			end
+		end
+	end
+	
+	return 0
+end
+
+--------------------------------------------------------------------------------
+function filterlist.get_current_index(this,listindex)
+	assert(this.m_processed_list ~= nil)
+	
+	if listindex ~= nil and listindex > 0 and
+		listindex <= #this.m_raw_list then
+		local entry = this.m_raw_list[listindex]
+		
+		for i,v in ipairs(this.m_processed_list) do
+		
+			if this.m_compare_fct(v,entry) then
+				return i
+			end
+		end
+	end
+	
+	return 0
+end
+
+--------------------------------------------------------------------------------
+function filterlist.process(this)
+	assert(this.m_raw_list ~= nil)
+
+	if this.m_sortmode == "none" and
+		this.m_filtercriteria == nil then
+		this.m_processed_list = this.m_raw_list
+		return
+	end
+	
+	this.m_processed_list = {}
+	
+	for k,v in pairs(this.m_raw_list) do
+		if this.m_filtercriteria == nil or
+			this.m_filter_fct(v,this.m_filtercriteria) then
+			table.insert(this.m_processed_list,v)
+		end
+	end
+	
+	if this.m_sortmode == "none" then
+		return
+	end
+	
+	if this.m_sort_list[this.m_sortmode] ~= nil and
+		type(this.m_sort_list[this.m_sortmode]) == "function" then
+		
+		this.m_sort_list[this.m_sortmode](this)
+	end
+end
+
+--------------------------------------------------------------------------------
+function filterlist.size(this)
+	if this.m_processed_list == nil then
+		return 0
+	end
+	
+	return #this.m_processed_list
+end
+
+--------------------------------------------------------------------------------
+function filterlist.uid_exists_raw(this,uid)
+	for i,v in ipairs(this.m_raw_list) do
+		if this.m_uid_match_fct(v,uid) then
+			return true
+		end
+	end
+	return false
+end
+
+--------------------------------------------------------------------------------
+function filterlist.raw_index_by_uid(this, uid)
+	local elementcount = 0
+	local elementidx = 0
+	for i,v in ipairs(this.m_raw_list) do
+		if this.m_uid_match_fct(v,uid) then
+			elementcount = elementcount +1
+			elementidx = i
+		end
+	end
+	
+	
+	-- If there are more elements than one with same name uid can't decide which
+	-- one is meant. This shouldn't be possible but just for sure.
+	if elementcount > 1 then
+		elementidx=0
+	end
+
+	return elementidx
+end
+
+--------------------------------------------------------------------------------
+-- COMMON helper functions                                                    --
+--------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------
+function compare_worlds(world1,world2)
+
+	if world1.path ~= world2.path then
+		return false
+	end
+	
+	if world1.name ~= world2.name then
+		return false
+	end
+	
+	if world1.gameid ~= world2.gameid then
+		return false
+	end
+
+	return true
+end
+
+--------------------------------------------------------------------------------
+function sort_worlds_alphabetic(this)
+
+	table.sort(this.m_processed_list, function(a, b)
+		--fixes issue #857 (crash due to sorting nil in worldlist)
+		if a == nil or b == nil then
+			if a == nil and b ~= nil then return false end
+			if b == nil and a ~= nil then return true end
+			return false
+		end
+		if a.name:lower() == b.name:lower() then
+			return a.name < b.name
+		end
+		return a.name:lower() < b.name:lower()
+	end)
+end
+
+--------------------------------------------------------------------------------
+function sort_mod_list(this)
+
+	table.sort(this.m_processed_list, function(a, b)
+		-- Show game mods at bottom
+		if a.typ ~= b.typ then
+			return b.typ == "game_mod"
+		end
+		-- If in same or no modpack, sort by name
+		if a.modpack == b.modpack then
+			if a.name:lower() == b.name:lower() then
+				return a.name < b.name
+			end
+			return a.name:lower() < b.name:lower()
+		-- Else compare name to modpack name
+		else
+			-- Always show modpack pseudo-mod on top of modpack mod list
+			if a.name == b.modpack then
+				return true
+			elseif b.name == a.modpack then
+				return false
+			end
+			
+			local name_a = a.modpack or a.name
+			local name_b = b.modpack or b.name
+			if name_a:lower() == name_b:lower() then
+				return  name_a < name_b
+			end
+			return name_a:lower() < name_b:lower()
+		end
+	end)
+end
diff --git a/builtin/mainmenu/gamemgr.lua b/builtin/mainmenu/gamemgr.lua
new file mode 100644
index 000000000..c99c2de21
--- /dev/null
+++ b/builtin/mainmenu/gamemgr.lua
@@ -0,0 +1,322 @@
+--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;" .. fgettext("Game Name") .. "]"..
+		"field[4.5,2.4;6,0.5;te_game_name;;]" ..
+		"button[5,4.2;2.6,0.5;new_game_confirm;" .. fgettext("Create") .. "]" ..
+		"button[7.5,4.2;2.8,0.5;new_game_cancel;" .. fgettext("Cancel") .. "]"
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.handle_games_buttons(fields)
+	if fields["gamelist"] ~= nil then
+		local event = engine.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")
+		
+		local mod = modmgr.get_global_mod(modindex)
+		if mod ~= nil then
+			
+			local sourcepath = mod.path
+			
+			if not gamemgr.add_mod(current_game,sourcepath) then
+				gamedata.errormessage =
+					fgettext("Gamemgr: Unable to copy mod \"$1\" to game \"$2\"", mod.name, current_game.id)
+			end
+		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)
+		
+		return engine.copy_dir(sourcepath,gamespec.gamemods_path .. DIR_DELIM .. modname);
+	end
+	
+	return false
+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
+
+			if game_mods[modindex].path:sub(0,gamespec.gamemods_path:len()) 
+					== gamespec.gamemods_path then
+				engine.delete_dir(game_mods[modindex].path)
+			end
+		end
+	end
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.find_by_gameid(gameid)
+	for i=1,#gamemgr.games,1 do		
+		if gamemgr.games[i].id == gameid then
+			return gamemgr.games[i], i
+		end
+	end
+	return nil, nil
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.get_game_mods(gamespec, retval)
+	if gamespec ~= nil and
+		gamespec.gamemods_path ~= nil and
+		gamespec.gamemods_path ~= "" then
+		get_mods(gamespec.gamemods_path, retval)
+	end
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.get_game_modlist(gamespec)
+	local retval = ""
+	local game_mods = {}
+	gamemgr.get_game_mods(gamespec, game_mods)
+	for i=1,#game_mods,1 do
+		if retval ~= "" then
+			retval = retval..","
+		end
+		retval = retval .. game_mods[i].name
+	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;" .. fgettext("GAMES") .. "]" ..
+		"label[1,-0.25;" .. fgettext("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;" ..
+				engine.formspec_escape(current_game.menuicon_path) .. "]"
+		end
+		
+		retval = retval ..
+			"field[8,-0.25;6,2;;" .. current_game.name .. ";]"..
+			"label[6,1.4;" .. fgettext("Mods:") .."]" ..
+			"button[9.7,1.5;2,0.2;btn_game_mgr_edit_game;" .. fgettext("edit game") .. "]" ..
+			"textlist[6,2;5.5,3.3;game_mgr_modlist;"
+			.. gamemgr.get_game_modlist(current_game) ..";0]" ..
+			"button[1,4.75;3.2,0.5;btn_game_mgr_new_game;" .. fgettext("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;" .. fgettext("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;" ..
+				engine.formspec_escape(current_game.menuicon_path) .. "]"
+		end
+		
+		retval = retval .. 
+			"textlist[0.5,0.5;4.5,4.3;mods_current;"
+			.. gamemgr.get_game_modlist(current_game) ..";0]"
+			
+			
+		retval = retval .. 
+			"textlist[7,0.5;4.5,4.3;mods_available;"
+			.. modmgr.render_modlist() .. ";0]"
+
+		retval = retval ..
+			"button[0.55,4.95;4.7,0.5;btn_remove_mod_from_game;" .. fgettext("Remove selected mod") .."]"
+			
+		retval = retval ..
+			"button[7.05,4.95;4.7,0.5;btn_add_mod_to_game;" .. fgettext("<<-- 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/init.lua b/builtin/mainmenu/init.lua
new file mode 100644
index 000000000..d78a668c5
--- /dev/null
+++ b/builtin/mainmenu/init.lua
@@ -0,0 +1,1337 @@
+
+local menupath = engine.get_mainmenu_path()..DIR_DELIM
+local commonpath = engine.get_builtin_path()..DIR_DELIM.."common"..DIR_DELIM
+
+dofile(menupath.."filterlist.lua")
+dofile(menupath.."modmgr.lua")
+dofile(menupath.."modstore.lua")
+dofile(menupath.."gamemgr.lua")
+dofile(menupath.."textures.lua")
+dofile(menupath.."menubar.lua")
+dofile(commonpath.."async_event.lua")
+
+mt_color_grey  = "#AAAAAA"
+mt_color_blue  = "#0000DD"
+mt_color_green = "#00DD00"
+mt_color_dark_green = "#003300"
+
+--for all other colors ask sfan5 to complete his worK!
+
+menu = {}
+local tabbuilder = {}
+local worldlist = nil
+
+--------------------------------------------------------------------------------
+local function filter_texture_pack_list(list)
+	retval = {"None"}
+	for _,i in ipairs(list) do
+		if i~="base" then
+			table.insert(retval, i)
+		end
+	end
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function menu.render_favorite(spec,render_details)
+	local text = ""
+
+	if spec.name ~= nil then
+		text = text .. engine.formspec_escape(spec.name:trim())
+
+--		if spec.description ~= nil and
+--			engine.formspec_escape(spec.description):trim() ~= "" then
+--			text = text .. " (" .. engine.formspec_escape(spec.description) .. ")"
+--		end
+	else
+		if spec.address ~= nil then
+			text = text .. spec.address:trim()
+
+			if spec.port ~= nil then
+				text = text .. ":" .. spec.port
+			end
+		end
+	end
+
+	if not render_details then
+		return text
+	end
+
+	local details = ""
+	if spec.password == true then
+		details = details .. "*"
+	else
+		details = 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
+	details = details .. " "
+
+	local playercount = ""
+
+	if spec.clients ~= nil and
+		spec.clients_max ~= nil then
+		playercount = string.format("%03d",spec.clients) .. "/" ..
+						string.format("%03d",spec.clients_max) .. " "
+	end
+
+	return playercount .. engine.formspec_escape(details) ..  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 text2textlist(xpos,ypos,width,height,tl_name,textlen,text,transparency)
+	local textlines = engine.splittext(text,textlen)
+	
+	local retval = "textlist[" .. xpos .. "," .. ypos .. ";"
+								.. width .. "," .. height .. ";"
+								.. tl_name .. ";"
+	
+	for i=1, #textlines, 1 do
+		textlines[i] = textlines[i]:gsub("\r","")
+		retval = retval .. engine.formspec_escape(textlines[i]) .. ","
+	end
+	
+	retval = retval .. ";0;"
+	
+	if transparency then
+		retval = retval .. "true"
+	end
+	
+	retval = retval .. "]"
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function init_globals()
+	--init gamedata
+	gamedata.worldindex = 0
+
+	worldlist = filterlist.create(
+					engine.get_worlds,
+					compare_worlds,
+					function(element,uid)
+						if element.name == uid then
+							return true
+						end
+						return false
+					end, --unique id compare fct
+					function(element,gameid)
+						if element.gameid == gameid then
+							return true
+						end
+						return false
+					end --filter fct
+					)
+
+	filterlist.add_sort_mechanism(worldlist,"alphabetic",sort_worlds_alphabetic)
+	filterlist.set_sortmode(worldlist,"alphabetic")
+end
+
+--------------------------------------------------------------------------------
+function update_menu()
+
+	local formspec
+
+	-- handle errors
+	if gamedata.errormessage ~= nil then
+		formspec = "size[12,5.2,true]" ..
+			"textarea[1,2;10,2;;ERROR: " ..
+			engine.formspec_escape(gamedata.errormessage) ..
+			";]"..
+			"button[4.5,4.2;3,0.5;btn_error_confirm;" .. fgettext("Ok") .. "]"
+	else
+		formspec = tabbuilder.gettab()
+	end
+
+	engine.update_formspec(formspec)
+end
+
+--------------------------------------------------------------------------------
+function menu.render_world_list()
+	local retval = ""
+
+	local current_worldlist = filterlist.get_list(worldlist)
+
+	for i,v in ipairs(current_worldlist) do
+		if retval ~= "" then
+			retval = retval ..","
+		end
+
+		retval = retval .. engine.formspec_escape(v.name) ..
+					" \\[" .. engine.formspec_escape(v.gameid) .. "\\]"
+	end
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function menu.render_texture_pack_list(list)
+	local retval = ""
+
+	for i, v in ipairs(list) do
+		if retval ~= "" then
+			retval = retval ..","
+		end
+
+		retval = retval .. engine.formspec_escape(v)
+	end
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function menu.asyncOnlineFavourites()
+	menu.favorites = {}
+	engine.handle_async(
+		function(param)
+			return engine.get_favorites("online")
+		end,
+		nil,
+		function(result)
+			menu.favorites = result
+			engine.event_handler("Refresh")
+		end
+		)
+end
+
+--------------------------------------------------------------------------------
+function menu.init()
+	--init menu data
+	gamemgr.update_gamelist()
+
+	menu.last_game	= tonumber(engine.setting_get("main_menu_last_game_idx"))
+
+	if type(menu.last_game) ~= "number" then
+		menu.last_game = 1
+	end
+
+	if engine.setting_getbool("public_serverlist") then
+		menu.asyncOnlineFavourites()
+	else
+		menu.favorites = engine.get_favorites("local")
+	end
+
+	menu.defaulttexturedir = engine.get_texturepath_share() .. 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.update_last_game()
+
+	local current_world = filterlist.get_raw_element(worldlist,
+							engine.setting_get("mainmenu_last_selected_world")
+							)
+
+	if current_world == nil then
+		return
+	end
+
+	local gamespec, i = gamemgr.find_by_gameid(current_world.gameid)
+	if i ~= nil then
+		menu.last_game = i
+		engine.setting_set("main_menu_last_game_idx",menu.last_game)
+	end
+end
+
+--------------------------------------------------------------------------------
+function menu.handle_key_up_down(fields,textlist,settingname)
+
+	if fields["key_up"] then
+		local oldidx = engine.get_textlist_index(textlist)
+
+		if oldidx ~= nil and oldidx > 1 then
+			local newidx = oldidx -1
+			engine.setting_set(settingname,
+				filterlist.get_raw_index(worldlist,newidx))
+		end
+	end
+
+	if fields["key_down"] then
+		local oldidx = engine.get_textlist_index(textlist)
+
+		if oldidx ~= nil and oldidx < filterlist.size(worldlist) then
+			local newidx = oldidx + 1
+			engine.setting_set(settingname,
+				filterlist.get_raw_index(worldlist,newidx))
+		end
+	end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.dialog_create_world()
+	local mapgens = {"v6", "v7", "indev", "singlenode", "math"}
+
+	local current_seed = engine.setting_get("fixed_map_seed") or ""
+	local current_mg   = engine.setting_get("mg_name")
+
+	local mglist = ""
+	local selindex = 1
+	local i = 1
+	for k,v in pairs(mapgens) do
+		if current_mg == v then
+			selindex = i
+		end
+		i = i + 1
+		mglist = mglist .. v .. ","
+	end
+	mglist = mglist:sub(1, -2)
+
+	local retval =
+		"label[2,0;" .. fgettext("World name") .. "]"..
+		"field[4.5,0.4;6,0.5;te_world_name;;]" ..
+
+		"label[2,1;" .. fgettext("Seed") .. "]"..
+		"field[4.5,1.4;6,0.5;te_seed;;".. current_seed .. "]" ..
+
+		"label[2,2;" .. fgettext("Mapgen") .. "]"..
+		"dropdown[4.2,2;6.3;dd_mapgen;" .. mglist .. ";" .. selindex .. "]" ..
+
+		"label[2,3;" .. fgettext("Game") .. "]"..
+		"textlist[4.2,3;5.8,2.3;games;" .. gamemgr.gamelist() ..
+		";" .. menu.last_game .. ";true]" ..
+
+		"button[5,5.5;2.6,0.5;world_create_confirm;" .. fgettext("Create") .. "]" ..
+		"button[7.5,5.5;2.8,0.5;world_create_cancel;" .. fgettext("Cancel") .. "]"
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.dialog_delete_world()
+	return	"label[2,2;" ..
+			fgettext("Delete World \"$1\"?", filterlist.get_raw_list(worldlist)[menu.world_to_del].name) .. "]"..
+			"button[3.5,4.2;2.6,0.5;world_delete_confirm;" .. fgettext("Yes").. "]" ..
+			"button[6,4.2;2.8,0.5;world_delete_cancel;" .. fgettext("No") .. "]"
+end
+
+--------------------------------------------------------------------------------
+
+function tabbuilder.gettab()
+	local tsize = tabbuilder.tabsizes[tabbuilder.current_tab] or {width=12, height=5.2}
+	local retval = "size[" .. tsize.width .. "," .. tsize.height .. ",true]"
+
+	if tabbuilder.show_buttons then
+		retval = retval .. tabbuilder.tab_header()
+	end
+
+	local buildfunc = tabbuilder.tabfuncs[tabbuilder.current_tab]
+	if buildfunc ~= nil then
+		retval = retval .. buildfunc()
+	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"] or
+		fields["key_enter"] then
+
+		local worldname = fields["te_world_name"]
+		local gameindex = engine.get_textlist_index("games")
+
+		if gameindex ~= nil and
+			worldname ~= "" then
+
+			local message = nil
+
+			if not filterlist.uid_exists_raw(worldlist,worldname) then
+				engine.setting_set("mg_name",fields["dd_mapgen"])
+				message = engine.create_world(worldname,gameindex)
+			else
+				message = fgettext("A world named \"$1\" already exists", worldname)
+			end
+
+			engine.setting_set("fixed_map_seed", fields["te_seed"])
+
+			if message ~= nil then
+				gamedata.errormessage = message
+			else
+				menu.last_game = gameindex
+				engine.setting_set("main_menu_last_game_idx",gameindex)
+
+				filterlist.refresh(worldlist)
+				engine.setting_set("mainmenu_last_selected_world",
+									filterlist.raw_index_by_uid(worldlist,worldname))
+			end
+		else
+			gamedata.errormessage =
+				fgettext("No worldname given or no game selected")
+		end
+	end
+
+	if fields["games"] then
+		tabbuilder.skipformupdate = true
+		return
+	end
+
+	--close dialog
+	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.world_to_del > 0 and
+			menu.world_to_del <= #filterlist.get_raw_list(worldlist) then
+			engine.delete_world(menu.world_to_del)
+			menu.world_to_del = 0
+			filterlist.refresh(worldlist)
+		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["te_name"] ~= nil then
+		gamedata.playername = fields["te_name"]
+		engine.setting_set("name", fields["te_name"])
+	end
+
+	if fields["favourites"] ~= nil then
+		local event = engine.explode_textlist_event(fields["favourites"])
+		if event.type == "DCL" then
+			if event.index <= #menu.favorites then
+				gamedata.address = menu.favorites[event.index].address
+				gamedata.port = menu.favorites[event.index].port
+				gamedata.playername		= fields["te_name"]
+				if fields["te_pwd"] ~= nil then
+					gamedata.password		= fields["te_pwd"]
+				end
+				gamedata.selected_world = 0
+
+				if menu.favorites ~= nil then
+					gamedata.servername = menu.favorites[event.index].name
+					gamedata.serverdescription = menu.favorites[event.index].description
+				end
+
+				if gamedata.address ~= nil and
+					gamedata.port ~= nil then
+					engine.setting_set("address",gamedata.address)
+					engine.setting_set("remote_port",gamedata.port)
+					engine.start()
+				end
+			end
+		end
+
+		if event.type == "CHG" then
+			if event.index <= #menu.favorites then
+				local address = menu.favorites[event.index].address
+				local port = menu.favorites[event.index].port
+
+				if address ~= nil and
+					port ~= nil then
+					engine.setting_set("address",address)
+					engine.setting_set("remote_port",port)
+				end
+
+				menu.fav_selected = event.index
+			end
+		end
+		return
+	end
+
+	if fields["key_up"] ~= nil or
+		fields["key_down"] ~= nil then
+
+		local fav_idx = engine.get_textlist_index("favourites")
+
+		if fav_idx ~= nil then
+			if fields["key_up"] ~= nil and fav_idx > 1 then
+				fav_idx = fav_idx -1
+			else if fields["key_down"] and fav_idx < #menu.favorites then
+				fav_idx = fav_idx +1
+			end end
+		end
+
+		local address = menu.favorites[fav_idx].address
+		local port = menu.favorites[fav_idx].port
+
+		if address ~= nil and
+			port ~= nil then
+			engine.setting_set("address",address)
+			engine.setting_set("remote_port",port)
+		end
+
+		menu.fav_selected = fav_idx
+		return
+	end
+
+	if fields["cb_public_serverlist"] ~= nil then
+		engine.setting_set("public_serverlist", fields["cb_public_serverlist"])
+
+		if engine.setting_getbool("public_serverlist") then
+			menu.asyncOnlineFavourites()
+		else
+			menu.favorites = engine.get_favorites("local")
+		end
+		menu.fav_selected = nil
+		return
+	end
+
+	if fields["btn_delete_favorite"] ~= nil then
+		local current_favourite = engine.get_textlist_index("favourites")
+		if current_favourite == nil then return end
+		engine.delete_favorite(current_favourite)
+		menu.favorites = engine.get_favorites()
+		menu.fav_selected = nil
+
+		engine.setting_set("address","")
+		engine.setting_set("remote_port","30000")
+
+		return
+	end
+
+	if fields["btn_mp_connect"] ~= nil or
+		fields["key_enter"] ~= nil then
+
+		gamedata.playername		= fields["te_name"]
+		gamedata.password		= fields["te_pwd"]
+		gamedata.address		= fields["te_address"]
+		gamedata.port			= fields["te_port"]
+
+		local fav_idx = engine.get_textlist_index("favourites")
+
+		if fav_idx ~= nil and fav_idx <= #menu.favorites and
+			menu.favorites[fav_idx].address == fields["te_address"] and
+			menu.favorites[fav_idx].port    == fields["te_port"] then
+
+			gamedata.servername			= menu.favorites[fav_idx].name
+			gamedata.serverdescription	= menu.favorites[fav_idx].description
+		else
+			gamedata.servername			= ""
+			gamedata.serverdescription	= ""
+		end
+
+		gamedata.selected_world = 0
+
+		engine.setting_set("address",fields["te_address"])
+		engine.setting_set("remote_port",fields["te_port"])
+
+		engine.start()
+		return
+	end
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.handle_server_buttons(fields)
+
+	local world_doubleclick = false
+
+	if fields["srv_worlds"] ~= nil then
+		local event = engine.explode_textlist_event(fields["srv_worlds"])
+
+		if event.type == "DCL" then
+			world_doubleclick = true
+		end
+		if event.type == "CHG" then
+			engine.setting_set("mainmenu_last_selected_world",
+				filterlist.get_raw_index(worldlist,engine.get_textlist_index("srv_worlds")))
+		end
+	end
+
+	menu.handle_key_up_down(fields,"srv_worlds","mainmenu_last_selected_world")
+
+	if fields["cb_creative_mode"] then
+		engine.setting_set("creative_mode", fields["cb_creative_mode"])
+	end
+
+	if fields["cb_enable_damage"] then
+		engine.setting_set("enable_damage", fields["cb_enable_damage"])
+	end
+
+	if fields["cb_server_announce"] then
+		engine.setting_set("server_announce", fields["cb_server_announce"])
+	end
+
+	if fields["start_server"] ~= nil or
+		world_doubleclick or
+		fields["key_enter"] then
+		local selected = engine.get_textlist_index("srv_worlds")
+		if selected ~= nil then
+			gamedata.playername		= fields["te_playername"]
+			gamedata.password		= fields["te_passwd"]
+			gamedata.port			= fields["te_serverport"]
+			gamedata.address		= ""
+			gamedata.selected_world	= filterlist.get_raw_index(worldlist,selected)
+
+			engine.setting_set("port",gamedata.port)
+			if fields["te_serveraddr"] ~= nil then
+				engine.setting_set("bind_address",fields["te_serveraddr"])
+			end
+
+			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 ~= nil and
+			selected <= filterlist.size(worldlist) then
+			local world = filterlist.get_list(worldlist)[selected]
+			if world ~= nil and
+				world.name ~= nil and
+				world.name ~= "" then
+				menu.world_to_del = filterlist.get_raw_index(worldlist,selected)
+				tabbuilder.current_tab = "dialog_delete_world"
+				tabbuilder.is_dialog = true
+				tabbuilder.show_buttons = false
+			else
+				menu.world_to_del = 0
+			end
+		end
+	end
+
+	if fields["world_configure"] ~= nil then
+		selected = engine.get_textlist_index("srv_worlds")
+		if selected ~= nil then
+			modmgr.world_config_selected_world = filterlist.get_raw_index(worldlist,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.handle_settings_buttons(fields)
+	if fields["cb_fancy_trees"] then
+		engine.setting_set("new_style_leaves", fields["cb_fancy_trees"])
+	end
+	if fields["cb_smooth_lighting"] then
+		engine.setting_set("smooth_lighting", fields["cb_smooth_lighting"])
+	end
+	if fields["cb_3d_clouds"] then
+		engine.setting_set("enable_3d_clouds", fields["cb_3d_clouds"])
+	end
+	if fields["cb_opaque_water"] then
+		engine.setting_set("opaque_water", fields["cb_opaque_water"])
+	end
+
+	if fields["cb_mipmapping"] then
+		engine.setting_set("mip_map", fields["cb_mipmapping"])
+	end
+	if fields["cb_anisotrophic"] then
+		engine.setting_set("anisotropic_filter", fields["cb_anisotrophic"])
+	end
+	if fields["cb_bilinear"] then
+		engine.setting_set("bilinear_filter", fields["cb_bilinear"])
+	end
+	if fields["cb_trilinear"] then
+		engine.setting_set("trilinear_filter", fields["cb_trilinear"])
+	end
+
+	if fields["cb_shaders"] then
+		if (engine.setting_get("video_driver") == "direct3d8" or engine.setting_get("video_driver") == "direct3d9") then
+			engine.setting_set("enable_shaders", "false")
+			gamedata.errormessage = fgettext("To enable shaders the OpenGL driver needs to be used.")
+		else
+			engine.setting_set("enable_shaders", fields["cb_shaders"])
+		end
+	end
+	if fields["cb_pre_ivis"] then
+		engine.setting_set("preload_item_visuals", fields["cb_pre_ivis"])
+	end
+	if fields["cb_particles"] then
+		engine.setting_set("enable_particles", fields["cb_particles"])
+	end
+	if fields["cb_bumpmapping"] then
+		engine.setting_set("enable_bumpmapping", fields["cb_bumpmapping"])
+	end
+	if fields["cb_parallax"] then
+		engine.setting_set("enable_parallax_occlusion", fields["cb_parallax"])
+	end
+	if fields["cb_generate_normalmaps"] then
+		engine.setting_set("generate_normalmaps", fields["cb_generate_normalmaps"])
+	end
+	if fields["cb_waving_water"] then
+		engine.setting_set("enable_waving_water", fields["cb_waving_water"])
+	end
+	if fields["cb_waving_leaves"] then
+		engine.setting_set("enable_waving_leaves", fields["cb_waving_leaves"])
+	end
+	if fields["cb_waving_plants"] then
+		engine.setting_set("enable_waving_plants", fields["cb_waving_plants"])
+	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 = engine.explode_textlist_event(fields["sp_worlds"])
+
+		if event.type == "DCL" then
+			world_doubleclick = true
+		end
+
+		if event.type == "CHG" then
+			engine.setting_set("mainmenu_last_selected_world",
+				filterlist.get_raw_index(worldlist,engine.get_textlist_index("sp_worlds")))
+		end
+	end
+
+	menu.handle_key_up_down(fields,"sp_worlds","mainmenu_last_selected_world")
+
+	if fields["cb_creative_mode"] then
+		engine.setting_set("creative_mode", fields["cb_creative_mode"])
+	end
+
+	if fields["cb_enable_damage"] then
+		engine.setting_set("enable_damage", fields["cb_enable_damage"])
+	end
+
+	if fields["play"] ~= nil or
+		world_doubleclick or
+		fields["key_enter"] then
+		local selected = engine.get_textlist_index("sp_worlds")
+		if selected ~= nil then
+			gamedata.selected_world	= filterlist.get_raw_index(worldlist,selected)
+			gamedata.singleplayer	= true
+
+			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 ~= nil and
+			selected <= filterlist.size(worldlist) then
+			local world = filterlist.get_list(worldlist)[selected]
+			if world ~= nil and
+				world.name ~= nil and
+				world.name ~= "" then
+				menu.world_to_del = filterlist.get_raw_index(worldlist,selected)
+				tabbuilder.current_tab = "dialog_delete_world"
+				tabbuilder.is_dialog = true
+				tabbuilder.show_buttons = false
+			else
+				menu.world_to_del = 0
+			end
+		end
+	end
+
+	if fields["world_configure"] ~= nil then
+		selected = engine.get_textlist_index("sp_worlds")
+		if selected ~= nil then
+			modmgr.world_config_selected_world = filterlist.get_raw_index(worldlist,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.handle_texture_pack_buttons(fields)
+	if fields["TPs"] ~= nil then
+		local event = engine.explode_textlist_event(fields["TPs"])
+		if event.type == "CHG" or event.type == "DCL" then
+			local index = engine.get_textlist_index("TPs")
+			engine.setting_set("mainmenu_last_selected_TP",
+				index)
+			local list = filter_texture_pack_list(engine.get_dirlist(engine.get_texturepath(), true))
+			local current_index = engine.get_textlist_index("TPs")
+			if current_index ~= nil and #list >= current_index then
+				local new_path = engine.get_texturepath()..DIR_DELIM..list[current_index]
+				if list[current_index] == "None" then new_path = "" end
+
+				engine.setting_set("texture_path", new_path)
+			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" and not tabbuilder.is_dialog then
+			menu.update_gametype(true)
+		end
+	end
+
+	if tabbuilder.current_tab == "singleplayer" then
+		menu.update_gametype()
+	end
+
+	tabbuilder.old_tab = tabbuilder.current_tab
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_multiplayer()
+
+	local retval =
+		"vertlabel[0,-0.25;".. fgettext("CLIENT") .. "]" ..
+		"label[1,-0.25;".. fgettext("Favorites:") .. "]"..
+		"label[1,4.25;".. fgettext("Address/Port") .. "]"..
+		"label[9,2.75;".. fgettext("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("remote_port") .."]" ..
+		"checkbox[1,3.6;cb_public_serverlist;".. fgettext("Public Serverlist") .. ";" ..
+		dump(engine.setting_getbool("public_serverlist")) .. "]"
+
+	if not engine.setting_getbool("public_serverlist") then
+		retval = retval ..
+		"button[6.45,3.95;2.25,0.5;btn_delete_favorite;".. fgettext("Delete") .. "]"
+	end
+
+	retval = retval ..
+		"button[9,4.95;2.5,0.5;btn_mp_connect;".. fgettext("Connect") .. "]" ..
+		"field[9.3,3.75;2.5,0.5;te_name;;" ..engine.setting_get("name") .."]" ..
+		"pwdfield[9.3,4.5;2.5,0.5;te_pwd;]" ..
+		"textarea[9.3,0.25;2.5,2.75;;"
+	if menu.fav_selected ~= nil and
+		menu.favorites[menu.fav_selected].description ~= nil then
+		retval = retval ..
+			engine.formspec_escape(menu.favorites[menu.fav_selected].description,true)
+	end
+
+	retval = retval ..
+		";]" ..
+		"textlist[1,0.35;7.5,3.35;favourites;"
+
+	local render_details = engine.setting_getbool("public_serverlist")
+
+	if #menu.favorites > 0 then
+		retval = retval .. menu.render_favorite(menu.favorites[1],render_details)
+
+		for i=2,#menu.favorites,1 do
+			retval = retval .. "," .. menu.render_favorite(menu.favorites[i],render_details)
+		end
+	end
+
+	if menu.fav_selected ~= nil then
+		retval = retval .. ";" .. menu.fav_selected .. "]"
+	else
+		retval = retval .. ";0]"
+	end
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_server()
+
+	local index = filterlist.get_current_index(worldlist,
+				tonumber(engine.setting_get("mainmenu_last_selected_world"))
+				)
+
+	local retval =
+		"button[4,4.15;2.6,0.5;world_delete;".. fgettext("Delete") .. "]" ..
+		"button[6.5,4.15;2.8,0.5;world_create;".. fgettext("New") .. "]" ..
+		"button[9.2,4.15;2.55,0.5;world_configure;".. fgettext("Configure") .. "]" ..
+		"button[8.5,4.9;3.25,0.5;start_server;".. fgettext("Start Game") .. "]" ..
+		"label[4,-0.25;".. fgettext("Select World:") .. "]"..
+		"vertlabel[0,-0.25;".. fgettext("START SERVER") .. "]" ..
+		"checkbox[0.5,0.25;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
+		dump(engine.setting_getbool("creative_mode")) .. "]"..
+		"checkbox[0.5,0.7;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
+		dump(engine.setting_getbool("enable_damage")) .. "]"..
+		"checkbox[0.5,1.15;cb_server_announce;".. fgettext("Public") .. ";" ..
+		dump(engine.setting_getbool("server_announce")) .. "]"..
+		"field[0.8,3.2;3.5,0.5;te_playername;".. fgettext("Name") .. ";" ..
+		engine.setting_get("name") .. "]" ..
+		"pwdfield[0.8,4.2;3.5,0.5;te_passwd;".. fgettext("Password") .. "]"
+		
+	local bind_addr = engine.setting_get("bind_address")
+	if bind_addr ~= nil and bind_addr ~= "" then
+		retval = retval ..
+			"field[0.8,5.2;2.25,0.5;te_serveraddr;".. fgettext("Bind Address") .. ";" ..
+			engine.setting_get("bind_address") .."]" ..
+			"field[3.05,5.2;1.25,0.5;te_serverport;".. fgettext("Port") .. ";" ..
+			engine.setting_get("port") .."]"
+	else
+		retval = retval ..
+			"field[0.8,5.2;3.5,0.5;te_serverport;".. fgettext("Server Port") .. ";" ..
+			engine.setting_get("port") .."]"
+	end
+	
+	retval = retval ..
+		"textlist[4,0.25;7.5,3.7;srv_worlds;" ..
+		menu.render_world_list() ..
+		";" .. index .. "]"
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_settings()
+	tab_string =
+			"vertlabel[0,0;" .. fgettext("SETTINGS") .. "]" ..
+			"checkbox[1,0;cb_fancy_trees;".. fgettext("Fancy Trees") .. ";"
+					.. dump(engine.setting_getbool("new_style_leaves")) .. "]"..
+			"checkbox[1,0.5;cb_smooth_lighting;".. fgettext("Smooth Lighting")
+					.. ";".. dump(engine.setting_getbool("smooth_lighting")) .. "]"..
+			"checkbox[1,1;cb_3d_clouds;".. fgettext("3D Clouds") .. ";"
+					.. dump(engine.setting_getbool("enable_3d_clouds")) .. "]"..
+			"checkbox[1,1.5;cb_opaque_water;".. fgettext("Opaque Water") .. ";"
+					.. dump(engine.setting_getbool("opaque_water")) .. "]"..
+			"checkbox[1,2.0;cb_pre_ivis;".. fgettext("Preload item visuals") .. ";"
+					.. dump(engine.setting_getbool("preload_item_visuals"))	.. "]"..
+			"checkbox[1,2.5;cb_particles;".. fgettext("Enable Particles") .. ";"
+					.. dump(engine.setting_getbool("enable_particles"))	.. "]"..
+			"checkbox[4.5,0;cb_mipmapping;".. fgettext("Mip-Mapping") .. ";"
+					.. dump(engine.setting_getbool("mip_map")) .. "]"..
+			"checkbox[4.5,0.5;cb_anisotrophic;".. fgettext("Anisotropic Filtering") .. ";"
+					.. dump(engine.setting_getbool("anisotropic_filter")) .. "]"..
+			"checkbox[4.5,1.0;cb_bilinear;".. fgettext("Bi-Linear Filtering") .. ";"
+					.. dump(engine.setting_getbool("bilinear_filter")) .. "]"..
+			"checkbox[4.5,1.5;cb_trilinear;".. fgettext("Tri-Linear Filtering") .. ";"
+					.. dump(engine.setting_getbool("trilinear_filter")) .. "]"..
+
+			"checkbox[8,0;cb_shaders;".. fgettext("Shaders") .. ";"
+					.. dump(engine.setting_getbool("enable_shaders")) .. "]"..
+			"button[1,4.5;2.25,0.5;btn_change_keys;".. fgettext("Change keys") .. "]"
+
+	if engine.setting_getbool("enable_shaders") then
+		tab_string = tab_string ..
+			"checkbox[8,0.5;cb_bumpmapping;".. fgettext("Bumpmapping") .. ";"
+					.. dump(engine.setting_getbool("enable_bumpmapping")) .. "]"..
+			"checkbox[8,1.0;cb_parallax;".. fgettext("Parallax Occlusion") .. ";"
+					.. dump(engine.setting_getbool("enable_parallax_occlusion")) .. "]"..
+			"checkbox[8,1.5;cb_generate_normalmaps;".. fgettext("Generate Normalmaps") .. ";"
+					.. dump(engine.setting_getbool("generate_normalmaps")) .. "]"..
+			"checkbox[8,2.0;cb_waving_water;".. fgettext("Waving Water") .. ";"
+					.. dump(engine.setting_getbool("enable_waving_water")) .. "]"..
+			"checkbox[8,2.5;cb_waving_leaves;".. fgettext("Waving Leaves") .. ";"
+					.. dump(engine.setting_getbool("enable_waving_leaves")) .. "]"..
+			"checkbox[8,3.0;cb_waving_plants;".. fgettext("Waving Plants") .. ";"
+					.. dump(engine.setting_getbool("enable_waving_plants")) .. "]"
+	else
+		tab_string = tab_string ..
+			"textlist[8.33,0.7;4,1;;#888888" .. fgettext("Bumpmapping") .. ";0;true]" ..
+			"textlist[8.33,1.2;4,1;;#888888" .. fgettext("Parallax Occlusion") .. ";0;true]" ..
+			"textlist[8.33,1.7;4,1;;#888888" .. fgettext("Generate Normalmaps") .. ";0;true]" ..
+			"textlist[8.33,2.2;4,1;;#888888" .. fgettext("Waving Water") .. ";0;true]" ..
+			"textlist[8.33,2.7;4,1;;#888888" .. fgettext("Waving Leaves") .. ";0;true]" ..
+			"textlist[8.33,3.2;4,1;;#888888" .. fgettext("Waving Plants") .. ";0;true]"
+	end
+	return tab_string
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_singleplayer()
+
+	local index = filterlist.get_current_index(worldlist,
+				tonumber(engine.setting_get("mainmenu_last_selected_world"))
+				)
+
+	return	"button[4,4.15;2.6,0.5;world_delete;".. fgettext("Delete") .. "]" ..
+			"button[6.5,4.15;2.8,0.5;world_create;".. fgettext("New") .. "]" ..
+			"button[9.2,4.15;2.55,0.5;world_configure;".. fgettext("Configure") .. "]" ..
+			"button[8.5,4.95;3.25,0.5;play;".. fgettext("Play") .. "]" ..
+			"label[4,-0.25;".. fgettext("Select World:") .. "]"..
+			"vertlabel[0,-0.25;".. fgettext("SINGLE PLAYER") .. "]" ..
+			"checkbox[0.5,0.25;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
+			dump(engine.setting_getbool("creative_mode")) .. "]"..
+			"checkbox[0.5,0.7;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
+			dump(engine.setting_getbool("enable_damage")) .. "]"..
+			"textlist[4,0.25;7.5,3.7;sp_worlds;" ..
+			menu.render_world_list() ..
+			";" .. index .. "]" ..
+			menubar.formspec
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_texture_packs()
+	local retval = "label[4,-0.25;".. fgettext("Select texture pack:") .. "]"..
+			"vertlabel[0,-0.25;".. fgettext("TEXTURE PACKS") .. "]" ..
+			"textlist[4,0.25;7.5,5.0;TPs;"
+
+	local current_texture_path = engine.setting_get("texture_path")
+	local list = filter_texture_pack_list(engine.get_dirlist(engine.get_texturepath(), true))
+	local index = tonumber(engine.setting_get("mainmenu_last_selected_TP"))
+
+	if index == nil then index = 1 end
+
+	if current_texture_path == "" then
+		retval = retval ..
+			menu.render_texture_pack_list(list) ..
+			";" .. index .. "]"
+		return retval
+	end
+
+	local infofile = current_texture_path ..DIR_DELIM.."info.txt"
+	local infotext = ""
+	local f = io.open(infofile, "r")
+	if f==nil then
+		infotext = fgettext("No information available")
+	else
+		infotext = f:read("*all")
+		f:close()
+	end
+
+	local screenfile = current_texture_path..DIR_DELIM.."screenshot.png"
+	local no_screenshot = nil
+	if not file_exists(screenfile) then
+		screenfile = nil
+		no_screenshot = menu.defaulttexturedir .. "no_screenshot.png"
+	end
+
+	return	retval ..
+			menu.render_texture_pack_list(list) ..
+			";" .. index .. "]" ..
+			"image[0.65,0.25;4.0,3.7;"..engine.formspec_escape(screenfile or no_screenshot).."]"..
+			"textarea[1.0,3.25;3.7,1.5;;"..engine.formspec_escape(infotext or "")..";]"
+end
+
+--------------------------------------------------------------------------------
+function tabbuilder.tab_credits()
+	local logofile = menu.defaulttexturedir .. "logo.png"
+	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;" .. engine.formspec_escape(logofile) .. "]" ..
+			"textlist[3.5,-0.25;8.5,5.8;list_credits;" ..
+			"#FFFF00" .. fgettext("Core Developers") .."," ..
+			"Perttu Ahola (celeron55) <celeron55@gmail.com>,"..
+			"Ryan Kwolek (kwolekr) <kwolekr@minetest.net>,"..
+			"PilzAdam <pilzadam@minetest.net>," ..
+			"Ilya Zhuravlev (xyz) <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>,"..
+			"sapier,"..
+			"ShadowNinja <shadowninja@minetest.net>,"..
+			"Nathanael Courant (Nore/Novatux) <nore@mesecons.net>,"..
+			"BlockMen,"..
+			","..
+			"#FFFF00" .. fgettext("Active Contributors") .. "," ..
+			"Vanessa Ezekowitz (VanessaE) <vanessaezekowitz@gmail.com>,"..
+			"Jurgen Doser (doserj) <jurgen.doser@gmail.com>,"..
+			"Jeija <jeija@mesecons.net>,"..
+			"MirceaKitsune <mirceakitsune@gmail.com>,"..
+			"dannydark <the_skeleton_of_a_child@yahoo.co.uk>,"..
+			"0gb.us <0gb.us@0gb.us>,"..
+			"," ..
+			"#FFFF00" .. fgettext("Previous 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.init()
+	tabbuilder.tabfuncs = {
+		singleplayer  = tabbuilder.tab_singleplayer,
+		multiplayer   = tabbuilder.tab_multiplayer,
+		server        = tabbuilder.tab_server,
+		settings      = tabbuilder.tab_settings,
+		texture_packs = tabbuilder.tab_texture_packs,
+		credits       = tabbuilder.tab_credits,
+		dialog_create_world = tabbuilder.dialog_create_world,
+		dialog_delete_world = tabbuilder.dialog_delete_world
+	}
+
+	tabbuilder.tabsizes = {
+		dialog_create_world = {width=12, height=7},
+		dialog_delete_world = {width=12, height=5.2}
+	}
+
+	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=fgettext("Singleplayer")})
+	table.insert(tabbuilder.current_buttons,{name="multiplayer", caption=fgettext("Client")})
+	table.insert(tabbuilder.current_buttons,{name="server", caption=fgettext("Server")})
+	table.insert(tabbuilder.current_buttons,{name="settings", caption=fgettext("Settings")})
+	table.insert(tabbuilder.current_buttons,{name="texture_packs", caption=fgettext("Texture Packs")})
+
+	if engine.setting_getbool("main_menu_game_mgr") then
+		table.insert(tabbuilder.current_buttons,{name="game_mgr", caption=fgettext("Games")})
+	end
+
+	if engine.setting_getbool("main_menu_mod_mgr") then
+		table.insert(tabbuilder.current_buttons,{name="mod_mgr", caption=fgettext("Mods")})
+	end
+	table.insert(tabbuilder.current_buttons,{name="credits", caption=fgettext("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
+
+	if tabbuilder.current_tab ~= "singleplayer" then
+		menu.update_gametype(true)
+	else
+		menu.update_gametype()
+	end
+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
+
+		if retval.ignore_menu_quit == true then
+			tabbuilder.ignore_menu_quit = true
+		else
+			tabbuilder.ignore_menu_quit = false
+		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 == "texture_packs" then
+		tabbuilder.handle_texture_pack_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
+			if tabbuilder.ignore_menu_quit then
+				return
+			end
+
+			tabbuilder.is_dialog = false
+			tabbuilder.show_buttons = true
+			tabbuilder.current_tab = engine.setting_get("main_menu_tab")
+			menu.update_gametype()
+			update_menu()
+		else
+			engine.close()
+		end
+	end
+
+	if event == "Refresh" then
+		update_menu()
+	end
+end
+
+--------------------------------------------------------------------------------
+function menu.update_gametype(reset)
+	local game = menu.lastgame()
+
+	if reset or game == nil then
+		mm_texture.reset()
+		engine.set_topleft_text("")
+		filterlist.set_filtercriteria(worldlist,nil)
+	else
+		mm_texture.update(tabbuilder.current_tab,game)
+		engine.set_topleft_text(game.name)
+		filterlist.set_filtercriteria(worldlist,game.id)
+	end
+end
+
+--------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+-- menu startup
+--------------------------------------------------------------------------------
+--------------------------------------------------------------------------------
+init_globals()
+mm_texture.init()
+menu.init()
+tabbuilder.init()
+menubar.refresh()
+modstore.init()
+
+engine.sound_play("main_menu", true)
+
+update_menu()
diff --git a/builtin/mainmenu/menubar.lua b/builtin/mainmenu/menubar.lua
new file mode 100644
index 000000000..2e4d5f8b8
--- /dev/null
+++ b/builtin/mainmenu/menubar.lua
@@ -0,0 +1,80 @@
+--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.
+
+menubar = {}
+
+--------------------------------------------------------------------------------
+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[-0.3,5.625;12.4,1.2;#000000]" ..
+					   "box[-0.3,5.6;12.4,0.05;#FFFFFF]"
+	menubar.buttons = {}
+
+	local button_base = -0.08
+	
+	local maxbuttons = #gamemgr.games
+	
+	if maxbuttons > 11 then
+		maxbuttons = 11
+	end
+	
+	for i=1,maxbuttons,1 do
+
+		local btn_name = "menubar_btn_" .. gamemgr.games[i].id
+		local buttonpos = button_base + (i-1) * 1.1
+		if gamemgr.games[i].menuicon_path ~= nil and
+			gamemgr.games[i].menuicon_path ~= "" then
+
+			menubar.formspec = menubar.formspec ..
+				"image_button[" .. buttonpos ..  ",5.72;1.165,1.175;"  ..
+				engine.formspec_escape(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 ..  ",5.72;1.165,1.175;;" ..btn_name ..
+				";" .. text .. ";true;true]"
+		end
+		
+		local toadd = {
+			btn_name = btn_name,
+			index = i,
+		}
+		
+		table.insert(menubar.buttons,toadd)
+	end
+end
diff --git a/builtin/mainmenu/modmgr.lua b/builtin/mainmenu/modmgr.lua
new file mode 100644
index 000000000..eeb65add1
--- /dev/null
+++ b/builtin/mainmenu/modmgr.lua
@@ -0,0 +1,1130 @@
+--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,modpack)
+
+	local mods = engine.get_dirlist(path,true)
+	for i=1,#mods,1 do
+		local toadd = {}
+		local modpackfile = nil
+
+		toadd.name		= mods[i]
+		toadd.path		= path .. DIR_DELIM .. mods[i] .. DIR_DELIM
+		if modpack ~= nil and
+			modpack ~= "" then
+			toadd.modpack	= modpack
+		else
+			local filename = path .. DIR_DELIM .. mods[i] .. DIR_DELIM .. "modpack.txt"
+			local error = nil
+			modpackfile,error = io.open(filename,"r")
+		end
+
+		if modpackfile ~= nil then
+			modpackfile:close()
+			toadd.is_modpack = true
+			table.insert(retval,toadd)
+			get_mods(path .. DIR_DELIM .. mods[i],retval,mods[i])
+		else
+			table.insert(retval,toadd)
+		end
+	end
+end
+
+--modmanager implementation
+modmgr = {}
+
+--------------------------------------------------------------------------------
+function modmgr.extract(modfile)
+	if modfile.type == "zip" then
+		local tempfolder = os.tempfolder()
+
+		if tempfolder ~= nil and
+			tempfolder ~= "" then
+			engine.create_dir(tempfolder)
+			if engine.extract_zip(modfile.name,tempfolder) then
+				return tempfolder
+			end
+		end
+	end
+	return nil
+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
+				local retval = item:sub(1,pos3-1)
+				if retval ~= nil and
+					retval ~= "" then
+					return retval
+				end
+			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.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.global_mods == nil then
+		modmgr.refresh_globals()
+	end
+
+	if modmgr.selected_mod == nil then
+		modmgr.selected_mod = 1
+	end
+
+	local retval =
+		"vertlabel[0,-0.25;".. fgettext("MODS") .. "]" ..
+		"label[0.8,-0.25;".. fgettext("Installed Mods:") .. "]" ..
+		"textlist[0.75,0.25;4.5,4;modlist;" ..
+		modmgr.render_modlist(modmgr.global_mods) ..
+		";" .. modmgr.selected_mod .. "]"
+
+	retval = retval ..
+		"label[0.8,4.2;" .. fgettext("Add mod:") .. "]" ..
+--		TODO Disabled due to upcoming release 0.4.8 and irrlicht messing up localization
+--		"button[0.75,4.85;1.8,0.5;btn_mod_mgr_install_local;".. fgettext("Local install") .. "]" ..
+		"button[2.45,4.85;3.05,0.5;btn_mod_mgr_download;".. fgettext("Online mod repository") .. "]"
+
+	local selected_mod = nil
+
+	if filterlist.size(modmgr.global_mods) >= modmgr.selected_mod then
+		selected_mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
+	end
+
+	if selected_mod ~= nil then
+		local modscreenshot = nil
+
+		--check for screenshot beeing available
+		local screenshotfilename = selected_mod.path .. DIR_DELIM .. "screenshot.png"
+		local error = nil
+		screenshotfile,error = io.open(screenshotfilename,"r")
+		if error == nil then
+			screenshotfile:close()
+			modscreenshot = screenshotfilename
+		end
+
+		if modscreenshot == nil then
+				modscreenshot = modstore.basetexturedir .. "no_screenshot.png"
+		end
+
+		retval = retval
+				.. "image[5.5,0;3,2;" .. engine.formspec_escape(modscreenshot) .. "]"
+				.. "label[8.25,0.6;" .. selected_mod.name .. "]"
+
+		local descriptionlines = nil
+		error = nil
+		local descriptionfilename = selected_mod.path .. "description.txt"
+		descriptionfile,error = io.open(descriptionfilename,"r")
+		if error == nil then
+			descriptiontext = descriptionfile:read("*all")
+
+			descriptionlines = engine.splittext(descriptiontext,42)
+			descriptionfile:close()
+		else
+			descriptionlines = {}
+			table.insert(descriptionlines,fgettext("No mod description available"))
+		end
+
+		retval = retval ..
+			"label[5.5,1.7;".. fgettext("Mod information:") .. "]" ..
+			"textlist[5.5,2.2;6.2,2.4;description;"
+
+		for i=1,#descriptionlines,1 do
+			retval = retval .. engine.formspec_escape(descriptionlines[i]) .. ","
+		end
+
+
+		if selected_mod.is_modpack then
+			retval = retval .. ";0]" ..
+				"button[10,4.85;2,0.5;btn_mod_mgr_rename_modpack;" ..
+				fgettext("Rename") .. "]"
+			retval = retval .. "button[5.5,4.85;4.5,0.5;btn_mod_mgr_delete_mod;"
+				.. fgettext("Uninstall selected modpack") .. "]"
+		else
+			--show dependencies
+
+			retval = retval .. ",Depends:,"
+
+			toadd = modmgr.get_dependencies(selected_mod.path)
+
+			retval = retval .. toadd .. ";0]"
+
+			retval = retval .. "button[5.5,4.85;4.5,0.5;btn_mod_mgr_delete_mod;"
+				.. fgettext("Uninstall selected mod") .. "]"
+		end
+	end
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.dialog_rename_modpack()
+
+	local mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
+
+	local retval =
+		"label[1.75,1;".. fgettext("Rename Modpack:") .. "]"..
+		"field[4.5,1.4;6,0.5;te_modpack_name;;" ..
+		mod.name ..
+		"]" ..
+		"button[5,4.2;2.6,0.5;dlg_rename_modpack_confirm;"..
+				fgettext("Accept") .. "]" ..
+		"button[7.5,4.2;2.8,0.5;dlg_rename_modpack_cancel;"..
+				fgettext("Cancel") .. "]"
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.precheck()
+
+	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
+
+	if modmgr.hide_modpackcontents == nil then
+		modmgr.hide_modpackcontents = true
+	end
+end
+
+--------------------------------------------------------------------------------
+function modmgr.render_modlist(render_list)
+	local retval = ""
+
+	if render_list == nil then
+		if modmgr.global_mods == nil then
+			modmgr.refresh_globals()
+		end
+		render_list = modmgr.global_mods
+	end
+
+	local list = filterlist.get_list(render_list)
+	local last_modpack = nil
+
+	for i,v in ipairs(list) do
+		if retval ~= "" then
+			retval = retval ..","
+		end
+
+		local color = ""
+
+		if v.is_modpack then
+			local rawlist = filterlist.get_raw_list(render_list)
+
+			local all_enabled = true
+			for j=1,#rawlist,1 do
+				if rawlist[j].modpack == list[i].name and
+					rawlist[j].enabled ~= true then
+						all_enabled = false
+						break
+				end
+			end
+
+			if all_enabled == false then
+				color = mt_color_grey
+			else
+				color = mt_color_dark_green
+			end
+		end
+
+		if v.typ == "game_mod" then
+			color = mt_color_blue
+		else
+			if v.enabled then
+				color = mt_color_green
+			end
+		end
+
+		retval = retval .. color
+		if v.modpack  ~= nil then
+			retval = retval .. "    "
+		end
+		retval = retval .. v.name
+	end
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.dialog_configure_world()
+	modmgr.precheck()
+
+	local worldspec = engine.get_worlds()[modmgr.world_config_selected_world]
+	local mod = filterlist.get_list(modmgr.modlist)[modmgr.world_config_selected_mod]
+
+	local retval =
+		"size[11,6.5,true]" ..
+		"label[0.5,-0.25;" .. fgettext("World:") .. "]" ..
+		"label[1.75,-0.25;" .. worldspec.name .. "]"
+
+	if modmgr.hide_gamemods then
+		retval = retval .. "checkbox[0,5.75;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";true]"
+	else
+		retval = retval .. "checkbox[0,5.75;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";false]"
+	end
+
+	if modmgr.hide_modpackcontents then
+		retval = retval .. "checkbox[2,5.75;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";true]"
+	else
+		retval = retval .. "checkbox[2,5.75;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";false]"
+	end
+
+	if mod == nil then
+		mod = {name=""}
+	end
+	retval = retval ..
+		"label[0,0.45;" .. fgettext("Mod:") .. "]" ..
+		"label[0.75,0.45;" .. mod.name .. "]" ..
+		"label[0,1;" .. fgettext("Depends:") .. "]" ..
+		"textlist[0,1.5;5,4.25;world_config_depends;" ..
+		modmgr.get_dependencies(mod.path) .. ";0]" ..
+		"button[9.25,6.35;2,0.5;btn_config_world_save;" .. fgettext("Save") .. "]" ..
+		"button[7.4,6.35;2,0.5;btn_config_world_cancel;" .. fgettext("Cancel") .. "]"
+
+	if mod ~= nil and mod.name ~= "" and mod.typ ~= "game_mod" then
+		if mod.is_modpack then
+			local rawlist = filterlist.get_raw_list(modmgr.modlist)
+
+			local all_enabled = true
+			for j=1,#rawlist,1 do
+				if rawlist[j].modpack == mod.name and
+					rawlist[j].enabled ~= true then
+						all_enabled = false
+						break
+				end
+			end
+
+			if all_enabled == false then
+				retval = retval .. "button[5.5,-0.125;2,0.5;btn_mp_enable;" .. fgettext("Enable MP") .. "]"
+			else
+				retval = retval .. "button[5.5,-0.125;2,0.5;btn_mp_disable;" .. fgettext("Disable MP") .. "]"
+			end
+		else
+			if mod.enabled then
+				retval = retval .. "checkbox[5.5,-0.375;cb_mod_enable;" .. fgettext("enabled") .. ";true]"
+			else
+				retval = retval .. "checkbox[5.5,-0.375;cb_mod_enable;" .. fgettext("enabled") .. ";false]"
+			end
+		end
+	end
+
+	retval = retval ..
+		"button[8.5,-0.125;2.5,0.5;btn_all_mods;" .. fgettext("Enable all") .. "]" ..
+		"textlist[5.5,0.5;5.5,5.75;world_config_modlist;"
+
+	retval = retval .. modmgr.render_modlist(modmgr.modlist)
+
+	retval = retval .. ";" .. modmgr.world_config_selected_mod .."]"
+
+	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_dependencies(modfolder)
+	local toadd = ""
+	if modfolder ~= nil then
+		local filename = modfolder ..
+					DIR_DELIM .. "depends.txt"
+
+		local dependencyfile = io.open(filename,"r")
+
+		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()
+		end
+	end
+
+	return toadd
+end
+
+
+--------------------------------------------------------------------------------
+function modmgr.get_worldconfig(worldpath)
+	local filename = worldpath ..
+				DIR_DELIM .. "world.mt"
+
+	local worldfile = Settings(filename)
+
+	local worldconfig = {}
+	worldconfig.global_mods = {}
+	worldconfig.game_mods = {}
+
+	for key,value in pairs(worldfile:to_table()) do
+		if key == "gameid" then
+			worldconfig.id = value
+		else
+			worldconfig.global_mods[key] = engine.is_yes(value)
+		end
+	end
+
+	--read gamemods
+	local gamespec = gamemgr.find_by_gameid(worldconfig.id)
+	gamemgr.get_game_mods(gamespec, 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 = engine.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",fgettext("Select Mod File:"))
+	end
+
+	if fields["btn_mod_mgr_download"] ~= nil then
+		modstore.update_modlist()
+		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 = modmgr.identify_filetype(modfilename)
+	local modpath = modmgr.extract(modfile)
+
+	if modpath == nil then
+		gamedata.errormessage = fgettext("Install Mod: file: \"$1\"", modfile.name) ..
+			fgettext("\nInstall Mod: unsupported filetype \"$1\" or broken archive", 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
+			if not engine.copy_dir(basefolder.path,targetpath) then
+				gamedata.errormessage = fgettext("Failed to install $1 to $2", basename, targetpath)
+			end
+		else
+			gamedata.errormessage = fgettext("Install Mod: unable to find suitable foldername for modpack $1", 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 = fgettext("Install Mod: unable to find real modname for: $1", modfilename)
+		end
+	end
+
+	engine.delete_dir(modpath)
+
+	modmgr.refresh_globals()
+
+end
+
+--------------------------------------------------------------------------------
+function modmgr.handle_rename_modpack_buttons(fields)
+
+	if fields["dlg_rename_modpack_confirm"] ~= nil then
+		local mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
+		local oldpath = engine.get_modpath() .. DIR_DELIM .. mod.name
+		local targetpath = engine.get_modpath() .. DIR_DELIM .. fields["te_modpack_name"]
+		engine.copy_dir(oldpath,targetpath,false)
+		modmgr.refresh_globals()
+		modmgr.selected_mod = filterlist.get_current_index(modmgr.global_mods,
+			filterlist.raw_index_by_uid(modmgr.global_mods, fields["te_modpack_name"]))
+	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 = engine.explode_textlist_event(fields["world_config_modlist"])
+		modmgr.world_config_selected_mod = event.index
+
+		if event.type == "DCL" then
+			modmgr.world_config_enable_mod(nil)
+		end
+	end
+
+	if fields["key_enter"] ~= nil then
+		modmgr.world_config_enable_mod(nil)
+	end
+
+	if fields["cb_mod_enable"] ~= nil then
+		local toset = engine.is_yes(fields["cb_mod_enable"])
+		modmgr.world_config_enable_mod(toset)
+	end
+
+	if fields["btn_mp_enable"] ~= nil or
+		fields["btn_mp_disable"] then
+		local toset = (fields["btn_mp_enable"] ~= nil)
+		modmgr.world_config_enable_mod(toset)
+	end
+
+	if fields["cb_hide_gamemods"] ~= nil then
+		local current = filterlist.get_filtercriteria(modmgr.modlist)
+
+		if current == nil then
+			current = {}
+		end
+
+		if engine.is_yes(fields["cb_hide_gamemods"]) then
+			current.hide_game = true
+			modmgr.hide_gamemods = true
+		else
+			current.hide_game = false
+			modmgr.hide_gamemods = false
+		end
+
+		filterlist.set_filtercriteria(modmgr.modlist,current)
+	end
+
+		if fields["cb_hide_mpcontent"] ~= nil then
+		local current = filterlist.get_filtercriteria(modmgr.modlist)
+
+		if current == nil then
+			current = {}
+		end
+
+		if engine.is_yes(fields["cb_hide_mpcontent"]) then
+			current.hide_modpackcontents = true
+			modmgr.hide_modpackcontents = true
+		else
+			current.hide_modpackcontents = false
+			modmgr.hide_modpackcontents = false
+		end
+
+		filterlist.set_filtercriteria(modmgr.modlist,current)
+	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 = Settings(filename)
+		local mods = worldfile:to_table()
+
+		local rawlist = filterlist.get_raw_list(modmgr.modlist)
+
+		local i,mod
+		for i,mod in ipairs(rawlist) do
+			if not mod.is_modpack and
+					mod.typ ~= "game_mod" then
+				if mod.enabled then
+					worldfile:set("load_mod_"..mod.name, "true")
+				else
+					worldfile:set("load_mod_"..mod.name, "false")
+				end
+				mods["load_mod_"..mod.name] = nil
+			end
+		end
+
+		-- Remove mods that are not present anymore
+		for key,value in pairs(mods) do
+			if key:sub(1,9) == "load_mod_" then
+				worldfile:remove(key)
+			end
+		end
+
+		if not worldfile:write() then
+			engine.log("error", "Failed to write world config file")
+		end
+
+		modmgr.modlist = nil
+		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_all_mods"] then
+		local list = filterlist.get_raw_list(modmgr.modlist)
+
+		for i=1,#list,1 do
+			if list[i].typ ~= "game_mod" and
+				not list[i].is_modpack then
+				list[i].enabled = true
+			end
+		end
+	end
+
+
+
+	return nil
+end
+--------------------------------------------------------------------------------
+function modmgr.world_config_enable_mod(toset)
+	local mod = filterlist.get_list(modmgr.modlist)
+		[engine.get_textlist_index("world_config_modlist")]
+
+	if mod.typ == "game_mod" then
+		-- game mods can't be enabled or disabled
+	elseif not mod.is_modpack then
+		if toset == nil then
+			mod.enabled = not mod.enabled
+		else
+			mod.enabled = toset
+		end
+	else
+		local list = filterlist.get_raw_list(modmgr.modlist)
+		for i=1,#list,1 do
+			if list[i].modpack == mod.name then
+				if toset == nil then
+					toset = not list[i].enabled
+				end
+				list[i].enabled = toset
+			end
+		end
+	end
+end
+--------------------------------------------------------------------------------
+function modmgr.handle_delete_mod_buttons(fields)
+	local mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
+
+	if fields["dlg_delete_mod_confirm"] ~= nil then
+
+		if mod.path ~= nil and
+			mod.path ~= "" and
+			mod.path ~= engine.get_modpath() then
+			if not engine.delete_dir(mod.path) then
+				gamedata.errormessage = fgettext("Modmgr: failed to delete \"$1\"", mod.path)
+			end
+			modmgr.refresh_globals()
+		else
+			gamedata.errormessage = fgettext("Modmgr: invalid modpath \"$1\"", mod.path)
+		end
+	end
+
+	return {
+		is_dialog = false,
+		show_buttons = true,
+		current_tab = engine.setting_get("main_menu_tab")
+		}
+end
+
+--------------------------------------------------------------------------------
+function modmgr.dialog_delete_mod()
+
+	local mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
+
+	local retval =
+		"field[1.75,1;10,3;;" .. fgettext("Are you sure you want to delete \"$1\"?", mod.name) ..  ";]"..
+		"button[4,4.2;1,0.5;dlg_delete_mod_confirm;" .. fgettext("Yes") .. "]" ..
+		"button[6.5,4.2;3,0.5;dlg_delete_mod_cancel;" .. fgettext("No of course not!") .. "]"
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.preparemodlist(data)
+	local retval = {}
+
+	local global_mods = {}
+	local game_mods = {}
+
+	--read global mods
+	local modpath = engine.get_modpath()
+
+	if modpath ~= nil and
+		modpath ~= "" then
+		get_mods(modpath,global_mods)
+	end
+
+	for i=1,#global_mods,1 do
+		global_mods[i].typ = "global_mod"
+		table.insert(retval,global_mods[i])
+	end
+
+	--read game mods
+	local gamespec = gamemgr.find_by_gameid(data.gameid)
+	gamemgr.get_game_mods(gamespec, game_mods)
+
+	for i=1,#game_mods,1 do
+		game_mods[i].typ = "game_mod"
+		table.insert(retval,game_mods[i])
+	end
+
+	if data.worldpath == nil then
+		return retval
+	end
+
+	--read world mod configuration
+	local filename = data.worldpath ..
+				DIR_DELIM .. "world.mt"
+
+	local worldfile = Settings(filename)
+
+	for key,value in pairs(worldfile:to_table()) do
+		if key:sub(1, 9) == "load_mod_" then
+			key = key:sub(10)
+			local element = nil
+			for i=1,#retval,1 do
+				if retval[i].name == key then
+					element = retval[i]
+					break
+				end
+			end
+			if element ~= nil then
+				element.enabled = engine.is_yes(value)
+			else
+				engine.log("info", "Mod: " .. key .. " " .. dump(value) .. " but not found")
+			end
+		end
+	end
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+function modmgr.init_worldconfig()
+	modmgr.precheck()
+	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
+
+		modmgr.modlist = filterlist.create(
+						modmgr.preparemodlist, --refresh
+						modmgr.comparemod, --compare
+						function(element,uid) --uid match
+							if element.name == uid then
+								return true
+							end
+						end,
+						function(element,criteria)
+							if criteria.hide_game and
+								element.typ == "game_mod" then
+									return false
+							end
+
+							if criteria.hide_modpackcontents and
+								element.modpack ~= nil then
+									return false
+								end
+							return true
+						end, --filter
+						{ worldpath= worldspec.path,
+						  gameid = worldspec.gameid }
+					)
+
+		filterlist.set_filtercriteria(modmgr.modlist, {
+									hide_game=modmgr.hide_gamemods,
+									hide_modpackcontents= modmgr.hide_modpackcontents
+									})
+		filterlist.add_sort_mechanism(modmgr.modlist, "alphabetic", sort_mod_list)
+		filterlist.set_sortmode(modmgr.modlist, "alphabetic")
+
+		return true
+	end
+
+	return false
+end
+
+--------------------------------------------------------------------------------
+function modmgr.comparemod(elem1,elem2)
+	if elem1 == nil or elem2 == nil then
+		return false
+	end
+	if elem1.name ~= elem2.name then
+		return false
+	end
+	if elem1.is_modpack ~= elem2.is_modpack then
+		return false
+	end
+	if elem1.typ ~= elem2.typ then
+		return false
+	end
+	if elem1.modpack ~= elem2.modpack then
+		return false
+	end
+
+	if elem1.path ~= elem2.path then
+		return false
+	end
+
+	return true
+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
+
+--------------------------------------------------------------------------------
+function modmgr.mod_exists(basename)
+
+	if modmgr.global_mods == nil then
+		modmgr.refresh_globals()
+	end
+
+	if filterlist.raw_index_by_uid(modmgr.global_mods,basename) > 0 then
+		return true
+	end
+
+	return false
+end
+
+--------------------------------------------------------------------------------
+function modmgr.get_global_mod(idx)
+
+	if modmgr.global_mods == nil then
+		return nil
+	end
+
+	if idx == nil or idx < 1 or idx > filterlist.size(modmgr.global_mods) then
+		return nil
+	end
+
+	return filterlist.get_list(modmgr.global_mods)[idx]
+end
+
+--------------------------------------------------------------------------------
+function modmgr.refresh_globals()
+	modmgr.global_mods = filterlist.create(
+					modmgr.preparemodlist, --refresh
+					modmgr.comparemod, --compare
+					function(element,uid) --uid match
+						if element.name == uid then
+							return true
+						end
+					end,
+					nil, --filter
+					{}
+					)
+	filterlist.add_sort_mechanism(modmgr.global_mods, "alphabetic", sort_mod_list)
+	filterlist.set_sortmode(modmgr.global_mods, "alphabetic")
+end
+
+--------------------------------------------------------------------------------
+function modmgr.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
diff --git a/builtin/mainmenu/modstore.lua b/builtin/mainmenu/modstore.lua
new file mode 100644
index 000000000..ef7fd0165
--- /dev/null
+++ b/builtin/mainmenu/modstore.lua
@@ -0,0 +1,615 @@
+--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 [parent=#modstore] init
+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_texturepath() .. DIR_DELIM .. "base" ..
+						DIR_DELIM .. "pack" .. DIR_DELIM
+
+	modstore.lastmodtitle = ""
+	modstore.last_search = ""
+	
+	modstore.searchlist = filterlist.create(
+		function()
+			if modstore.modlist_unsorted ~= nil and
+				modstore.modlist_unsorted.data ~= nil then
+				return modstore.modlist_unsorted.data
+			end
+			return {}
+		end,
+		function(element,modid)
+			if element.id == modid then
+				return true
+			end
+			return false
+		end, --compare fct
+		nil, --uid match fct
+		function(element,substring)
+			if substring == nil or
+				substring == "" then
+				return false
+			end
+			substring = substring:upper()
+			
+			if element.title ~= nil and
+				element.title:upper():find(substring) ~= nil then
+				return true
+			end
+			
+			if element.details ~= nil and
+				element.details.author ~= nil and
+				element.details.author:upper():find(substring) ~= nil then
+				return true
+			end
+			
+			if element.details ~= nil and
+				element.details.description ~= nil and
+				element.details.description:upper():find(substring) ~= nil then
+				return true
+			end
+			return false
+		end --filter fct
+		)
+
+	modstore.current_list = nil
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] nametoindex
+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 [parent=#modstore] getsuccessfuldialog
+function modstore.getsuccessfuldialog()
+	local retval = ""
+	retval = retval .. "size[6,2,true]"
+	if modstore.lastmodentry ~= nil then
+		retval = retval .. "label[0,0.25;" .. fgettext("Successfully installed:") .. "]"
+		retval = retval .. "label[3,0.25;" .. modstore.lastmodentry.moddetails.title .. "]"
+	
+		
+		retval = retval .. "label[0,0.75;" .. fgettext("Shortname:") .. "]"
+		retval = retval .. "label[3,0.75;" .. engine.formspec_escape(modstore.lastmodentry.moddetails.basename) .. "]"
+
+	end
+	retval = retval .. "button[2.5,1.5;1,0.5;btn_confirm_mod_successfull;" .. fgettext("ok") .. "]"
+				
+				
+	return retval
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] gettab
+function modstore.gettab(tabname)
+	local retval = ""
+
+	local is_modstore_tab = false
+
+	if tabname == "dialog_modstore_unsorted" then
+		modstore.modsperpage = 5
+		retval = modstore.getmodlist(modstore.modlist_unsorted)
+		is_modstore_tab = true
+	end
+
+	if tabname == "dialog_modstore_search" then
+		retval = modstore.getsearchpage()
+		is_modstore_tab = true
+	end
+
+	if is_modstore_tab then
+		return modstore.tabheader(tabname) .. retval
+	end
+
+	if tabname == "modstore_mod_installed" then
+		return modstore.getsuccessfuldialog()
+	end
+
+	if tabname == "modstore_downloading" then
+		return "size[6,2]label[0.25,0.75;" .. fgettext("Downloading") ..
+				" " .. modstore.lastmodtitle .. " " ..
+				fgettext("please wait...") .. "]"
+	end
+
+	return ""
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] tabheader
+function modstore.tabheader(tabname)
+	local retval  = "size[12,10.25,true]"
+	retval = retval .. "tabheader[-0.3,-0.99;modstore_tab;" ..
+				"Unsorted,Search;" ..
+				modstore.nametoindex(tabname) .. ";true;false]" ..
+				"button[4,9.9;4,0.5;btn_modstore_close;" ..
+				fgettext("Close modstore") .. "]"
+
+	return retval
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] handle_buttons
+function modstore.handle_buttons(current_tab,fields)
+
+	if fields["modstore_tab"] then
+		local index = tonumber(fields["modstore_tab"])
+
+		if index > 0 and
+			index <= #modstore.tabnames then
+			if modstore.tabnames[index] == "dialog_modstore_search" then
+				filterlist.set_filtercriteria(modstore.searchlist,modstore.last_search)
+				filterlist.refresh(modstore.searchlist)
+				modstore.modsperpage = 4
+				modstore.currentlist = {
+					page = 0,
+					pagecount =
+						math.ceil(filterlist.size(modstore.searchlist) / modstore.modsperpage),
+					data = filterlist.get_list(modstore.searchlist),
+				}
+			end
+			
+			return {
+					current_tab = modstore.tabnames[index],
+					is_dialog = true,
+					show_buttons = false
+			}
+		end
+		
+	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-1 then
+			modstore.current_list.page = modstore.current_list.page +1
+		end
+	end
+
+	if fields["btn_hidden_close_download"] ~= nil then
+		if fields["btn_hidden_close_download"].successfull then
+			modstore.lastmodentry = fields["btn_hidden_close_download"]
+			return {
+					current_tab = "modstore_mod_installed",
+					is_dialog = true,
+					show_buttons = false
+			}
+		else
+			modstore.lastmodtitle = ""
+			return {
+						current_tab = modstore.tabnames[1],
+						is_dialog = true,
+						show_buttons = false
+				}
+		end
+	end
+
+	if fields["btn_confirm_mod_successfull"] then
+		modstore.lastmodentry = nil
+		modstore.lastmodtitle = ""
+		return {
+					current_tab = modstore.tabnames[1],
+					is_dialog = true,
+					show_buttons = false
+			}
+	end
+
+	if fields["btn_modstore_search"] or
+		(fields["key_enter"] and fields["te_modstore_search"] ~= nil) then
+		modstore.last_search = fields["te_modstore_search"]
+		filterlist.set_filtercriteria(modstore.searchlist,fields["te_modstore_search"])
+		filterlist.refresh(modstore.searchlist)
+		modstore.currentlist = {
+			page = 0,
+			pagecount =  math.ceil(filterlist.size(modstore.searchlist) / modstore.modsperpage),
+			data = filterlist.get_list(modstore.searchlist),
+		}
+	end
+	
+	
+	if fields["btn_modstore_close"] then
+		return {
+			is_dialog = false,
+			show_buttons = true,
+			current_tab = engine.setting_get("main_menu_tab")
+		}
+	end
+	
+	for key,value in pairs(fields) do
+		local foundat = key:find("btn_install_mod_")
+		if ( foundat == 1) then
+			local modid = tonumber(key:sub(17))
+			for i=1,#modstore.modlist_unsorted.data,1 do
+				if modstore.modlist_unsorted.data[i].id == modid then
+					local moddetails = modstore.modlist_unsorted.data[i].details
+
+					if modstore.lastmodtitle ~= "" then
+						modstore.lastmodtitle = modstore.lastmodtitle .. ", "
+					end
+	
+					modstore.lastmodtitle = modstore.lastmodtitle .. moddetails.title
+	
+					engine.handle_async(
+						function(param)
+						
+							local fullurl = engine.setting_get("modstore_download_url") ..
+											param.moddetails.download_url
+											
+							if param.version ~= nil then
+								local found = false
+								for i=1,#param.moddetails.versions, 1 do
+									if param.moddetails.versions[i].date:sub(1,10) == param.version then
+										fullurl = engine.setting_get("modstore_download_url") ..
+														param.moddetails.versions[i].download_url
+										found = true
+									end
+								end
+								
+								if not found then
+									return {
+										moddetails = param.moddetails,
+										successfull = false
+									}
+								end
+							end
+	
+							if engine.download_file(fullurl,param.filename) then
+								return {
+									texturename = param.texturename,
+									moddetails = param.moddetails,
+									filename = param.filename,
+									successfull = true
+								}
+							else
+								return {
+									moddetails = param.moddetails,
+									successfull = false
+								}
+							end
+						end,
+						{
+							moddetails = moddetails,
+							version = fields["dd_version" .. modid],
+							filename = os.tempfolder() .. "_MODNAME_" .. moddetails.basename .. ".zip",
+							texturename = modstore.modlist_unsorted.data[i].texturename
+						},
+						function(result)
+							if result.successfull then
+								modmgr.installmod(result.filename,result.moddetails.basename)
+								os.remove(result.filename)
+							else
+								gamedata.errormessage = "Failed to download " .. result.moddetails.title
+							end
+	
+							if gamedata.errormessage == nil then
+								engine.button_handler({btn_hidden_close_download=result})
+							else
+								engine.button_handler({btn_hidden_close_download={successfull=false}})
+							end
+						end
+					)
+	
+					return {
+						current_tab = "modstore_downloading",
+						is_dialog = true,
+						show_buttons = false,
+						ignore_menu_quit = true
+					}
+				end
+			end
+			break
+		end
+	end
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] update_modlist
+function modstore.update_modlist()
+	modstore.modlist_unsorted = {}
+	modstore.modlist_unsorted.data = {}
+	modstore.modlist_unsorted.pagecount = 1
+	modstore.modlist_unsorted.page = 0
+
+	engine.handle_async(
+		function(param)
+			return engine.get_modstore_list()
+		end,
+		nil,
+		function(result)
+			if result ~= nil then
+				modstore.modlist_unsorted = {}
+				modstore.modlist_unsorted.data = result
+
+				if modstore.modlist_unsorted.data ~= nil then
+					modstore.modlist_unsorted.pagecount =
+						math.ceil((#modstore.modlist_unsorted.data / modstore.modsperpage))
+				else
+					modstore.modlist_unsorted.data = {}
+					modstore.modlist_unsorted.pagecount = 1
+				end
+				modstore.modlist_unsorted.page = 0
+				modstore.fetchdetails()
+				engine.event_handler("Refresh")
+			end
+		end
+	)
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] fetchdetails
+function modstore.fetchdetails()
+
+	for i=1,#modstore.modlist_unsorted.data,1 do
+		engine.handle_async(
+		function(param)
+			param.details = engine.get_modstore_details(tostring(param.modid))
+			return param
+		end,
+		{
+			modid=modstore.modlist_unsorted.data[i].id,
+			listindex=i
+		},
+		function(result)
+			if result ~= nil and
+				modstore.modlist_unsorted ~= nil
+				and modstore.modlist_unsorted.data ~= nil and
+				modstore.modlist_unsorted.data[result.listindex] ~= nil and
+				modstore.modlist_unsorted.data[result.listindex].id ~= nil then
+
+				modstore.modlist_unsorted.data[result.listindex].details = result.details
+				engine.event_handler("Refresh")
+			end
+		end
+		)
+	end
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] getscreenshot
+function modstore.getscreenshot(ypos,listentry)
+
+	if	listentry.details ~= nil and
+		(listentry.details.screenshot_url == nil or
+		listentry.details.screenshot_url == "") then
+		
+		if listentry.texturename == nil then
+			listentry.texturename = modstore.basetexturedir .. "no_screenshot.png"
+		end
+		
+		return "image[0,".. ypos .. ";3,2;" ..
+			engine.formspec_escape(listentry.texturename) .. "]"
+	end
+	
+	if listentry.details ~= nil and
+		listentry.texturename == nil then
+		--make sure we don't download multiple times
+		listentry.texturename = "in progress"
+	
+		--prepare url and filename
+		local fullurl = engine.setting_get("modstore_download_url") ..
+					listentry.details.screenshot_url
+		local filename = os.tempfolder() .. "_MID_" .. listentry.id
+		
+		--trigger download
+		engine.handle_async(
+			--first param is downloadfct
+			function(param)
+				param.successfull = engine.download_file(param.fullurl,param.filename)
+				return param
+			end,
+			--second parameter is data passed to async job
+			{
+				fullurl = fullurl,
+				filename = filename,
+				modid = listentry.id
+			},
+			--integrate result to raw list
+			function(result)
+				if result.successfull then
+					local found = false
+					for i=1,#modstore.modlist_unsorted.data,1 do
+						if modstore.modlist_unsorted.data[i].id == result.modid then
+							found = true
+							modstore.modlist_unsorted.data[i].texturename = result.filename
+							break
+						end
+					end
+					if found then
+						engine.event_handler("Refresh")
+					else
+						engine.log("error","got screenshot but didn't find matching mod: " .. result.modid)
+					end
+				end
+			end
+		)
+	end
+
+	if listentry.texturename ~= nil and
+		listentry.texturename ~= "in progress" then
+		return "image[0,".. ypos .. ";3,2;" ..
+			engine.formspec_escape(listentry.texturename) .. "]"
+	end
+	
+	return ""
+end
+
+--------------------------------------------------------------------------------
+--@function [parent=#modstore] getshortmodinfo
+function modstore.getshortmodinfo(ypos,listentry,details)
+	local retval = ""
+	
+	retval = retval .. "box[0," .. ypos .. ";11.4,1.75;#FFFFFF]"
+
+	--screenshot
+	retval = retval .. modstore.getscreenshot(ypos,listentry)
+
+	--title + author
+	retval = retval .."label[2.75," .. ypos .. ";" ..
+		engine.formspec_escape(details.title) .. " (" .. details.author .. ")]"
+
+	--description
+	local descriptiony = ypos + 0.5
+	retval = retval .. "textarea[3," .. descriptiony .. ";6.5,1.55;;" ..
+		engine.formspec_escape(details.description) .. ";]"
+		
+	--rating
+	local ratingy = ypos
+	retval = retval .."label[7," .. ratingy .. ";" ..
+					fgettext("Rating") .. ":]"
+	retval = retval .. "label[8.7," .. ratingy .. ";" .. details.rating .."]"
+	
+	--versions (IMPORTANT has to be defined AFTER rating)
+	if details.versions ~= nil and
+		#details.versions > 1 then
+		local versiony = ypos + 0.05
+		retval = retval .. "dropdown[9.1," .. versiony .. ";2.48,0.25;dd_version" .. details.id .. ";"
+		local versions = ""
+		for i=1,#details.versions , 1 do
+			if versions ~= "" then
+				versions = versions .. ","
+			end
+			
+			versions = versions .. details.versions[i].date:sub(1,10)
+		end
+		retval = retval .. versions .. ";1]"
+	end
+
+	if details.basename then
+		--install button
+		local buttony = ypos + 1.2
+		retval = retval .."button[9.1," .. buttony .. ";2.5,0.5;btn_install_mod_" .. details.id .. ";"
+
+		if modmgr.mod_exists(details.basename) then
+			retval = retval .. fgettext("re-Install") .."]"
+		else
+			retval = retval .. fgettext("Install") .."]"
+		end
+	end
+	
+	return retval
+end
+
+--------------------------------------------------------------------------------
+--@function [parent=#modstore] getmodlist
+function modstore.getmodlist(list,yoffset)
+
+	modstore.current_list = list
+	
+	if #list.data == 0 then
+		return ""
+	end
+	
+	if yoffset == nil then
+		yoffset = 0
+	end
+
+	local scrollbar = ""
+	scrollbar = scrollbar .. "label[0.1,9.5;"
+				.. fgettext("Page $1 of $2", list.page+1, list.pagecount) .. "]"
+	scrollbar = scrollbar .. "box[11.6," .. (yoffset + 0.35) .. ";0.28,"
+				.. (8.6 - yoffset) .. ";#000000]"
+	local scrollbarpos = (yoffset + 0.75) +
+				((7.7 -yoffset)/(list.pagecount-1)) * list.page
+	scrollbar = scrollbar .. "box[11.6," ..scrollbarpos .. ";0.28,0.5;#32CD32]"
+	scrollbar = scrollbar .. "button[11.6," .. (yoffset + (0.3))
+				.. ";0.5,0.5;btn_modstore_page_up;^]"
+	scrollbar = scrollbar .. "button[11.6," .. 9.0
+				.. ";0.5,0.5;btn_modstore_page_down;v]"
+
+	local retval = ""
+
+	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 = list.data[i].details
+
+		if details == nil then
+			details = {}
+			details.title = list.data[i].title
+			details.author = ""
+			details.rating = -1
+			details.description = ""
+		end
+
+		if details ~= nil then
+			local screenshot_ypos =
+				yoffset +(i-1 - (list.page * modstore.modsperpage))*1.9 +0.2
+				
+			retval = retval .. modstore.getshortmodinfo(screenshot_ypos,
+														list.data[i],
+														details)
+		end
+	end
+	
+	return retval .. scrollbar
+end
+
+--------------------------------------------------------------------------------
+--@function [parent=#modstore] getsearchpage
+function modstore.getsearchpage()
+	local retval = ""
+	local search = ""
+	
+	if modstore.last_search ~= nil then
+		search = modstore.last_search
+	end
+
+	retval = retval ..
+		"button[9.5,0.2;2.5,0.5;btn_modstore_search;".. fgettext("Search") .. "]" ..
+		"field[0.5,0.5;9,0.5;te_modstore_search;;" .. search .. "]"
+
+	
+	--show 4 mods only
+	modstore.modsperpage = 4
+	retval = retval ..
+		modstore.getmodlist(
+			modstore.currentlist,
+			1.75)
+
+	return retval;
+end
+
diff --git a/builtin/mainmenu/textures.lua b/builtin/mainmenu/textures.lua
new file mode 100644
index 000000000..998fc2199
--- /dev/null
+++ b/builtin/mainmenu/textures.lua
@@ -0,0 +1,146 @@
+--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.
+
+
+mm_texture = {}
+
+--------------------------------------------------------------------------------
+function mm_texture.init()
+	mm_texture.defaulttexturedir = engine.get_texturepath() .. DIR_DELIM .. "base" .. 
+						DIR_DELIM .. "pack" .. DIR_DELIM
+	mm_texture.basetexturedir = mm_texture.defaulttexturedir
+	
+	mm_texture.texturepack = engine.setting_get("texture_path")
+	
+	mm_texture.gameid = nil
+end
+
+--------------------------------------------------------------------------------
+function mm_texture.update(tab,gamedetails)
+	if tab ~= "singleplayer" then
+		mm_texture.reset()
+		return
+	end
+
+	if gamedetails == nil then
+		return
+	end
+	
+	mm_texture.update_game(gamedetails)
+end
+
+--------------------------------------------------------------------------------
+function mm_texture.reset()
+	mm_texture.gameid = nil
+	local have_bg      = false
+	local have_overlay = mm_texture.set_generic("overlay")
+	
+	if not have_overlay then
+		have_bg = mm_texture.set_generic("background")
+	end
+	
+	mm_texture.clear("header")
+	mm_texture.clear("footer")
+	engine.set_clouds(false)
+	
+	mm_texture.set_generic("footer")
+	mm_texture.set_generic("header")
+	
+	if not have_bg and
+		engine.setting_getbool("enable_clouds") then
+			engine.set_clouds(true)
+	end
+end
+
+--------------------------------------------------------------------------------
+function mm_texture.update_game(gamedetails)
+	if mm_texture.gameid == gamedetails.id then
+		return
+	end
+	
+	local have_bg      = false 
+	local have_overlay = mm_texture.set_game("overlay",gamedetails)
+	
+	if not have_overlay then
+		have_bg = mm_texture.set_game("background",gamedetails)
+	end
+	
+	mm_texture.clear("header")
+	mm_texture.clear("footer")
+	engine.set_clouds(false)
+	
+	if not have_bg and
+		engine.setting_getbool("enable_clouds") then
+			engine.set_clouds(true)
+	end
+	
+	mm_texture.set_game("footer",gamedetails)
+	mm_texture.set_game("header",gamedetails)
+	
+	mm_texture.gameid = gamedetails.id
+end
+
+--------------------------------------------------------------------------------
+function mm_texture.clear(identifier)
+	engine.set_background(identifier,"")
+end
+
+--------------------------------------------------------------------------------
+function mm_texture.set_generic(identifier)
+	--try texture pack first
+	if mm_texture.texturepack ~= nil then
+		local path = mm_texture.texturepack .. DIR_DELIM .."menu_" .. 
+										identifier .. ".png"
+		if engine.set_background(identifier,path) then
+			return true
+		end
+	end
+	
+	if mm_texture.defaulttexturedir ~= nil then
+		local path = mm_texture.defaulttexturedir .. DIR_DELIM .."menu_" .. 
+										identifier .. ".png"
+		if engine.set_background(identifier,path) then
+			return true
+		end
+	end
+	
+	return false
+end
+
+--------------------------------------------------------------------------------
+function mm_texture.set_game(identifier,gamedetails)
+	
+	if gamedetails == nil then
+		return false
+	end
+
+	if mm_texture.texturepack ~= nil then
+		local path = mm_texture.texturepack .. DIR_DELIM ..
+						gamedetails.id .. "_menu_" .. identifier .. ".png"
+		if engine.set_background(identifier,path) then
+			return true
+		end
+	end
+	
+	local path = gamedetails.path .. DIR_DELIM .."menu" .. 
+									 DIR_DELIM .. identifier .. ".png"
+	if engine.set_background(identifier,path) then
+		return true
+	end
+	
+	return false
+end