BlockColor-Engine/builtin/mainmenu/tab_singleplayer.lua

--multicraft
--Copyright (C) 2014 sapier
--
--This program is free software; you can redistribute it and/or modify
--it under the terms of the GNU Lesser General Public License as published by
--the Free Software Foundation; either version 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.

local function current_game()
	local last_game_id = core.setting_get("menu_last_game")
	local game, index = gamemgr.find_by_gameid(last_game_id)

	return game
end

local function singleplayer_refresh_gamebar()

	local old_bar = ui.find_by_name("game_button_bar")

	if old_bar ~= nil then
		old_bar:delete()
	end

	local function game_buttonbar_button_handler(fields)
	for key,value in pairs(fields) do
		for j=1,#gamemgr.games,1 do
			if ("game_btnbar_" .. gamemgr.games[j].id == key) then
				mm_texture.update("singleplayer", gamemgr.games[j])
				core.set_topleft_text(gamemgr.games[j].name)
				core.setting_set("menu_last_game",gamemgr.games[j].id)
				menudata.worldlist:set_filtercriteria(gamemgr.games[j].id)
				return true
			end
		end
	end
end

	local btnbar = buttonbar_create("game_button_bar",
		game_buttonbar_button_handler,
		{x=-0.3,y=5.65}, "horizontal", {x=12.4,y=1.15})

	for i=1,#gamemgr.games,1 do
		local btn_name = "game_btnbar_" .. gamemgr.games[i].id

		local image = nil
		local text = nil
		local tooltip = core.formspec_escape(gamemgr.games[i].name)

		if gamemgr.games[i].menuicon_path ~= nil and
			gamemgr.games[i].menuicon_path ~= "" then
			image = core.formspec_escape(gamemgr.games[i].menuicon_path)
		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)

			text = part1 .. "\n" .. part2
			if part3 ~= nil and
				part3 ~= "" then
				text = text .. "\n" .. part3
			end
		end
		btnbar:add_button(btn_name, text, image, tooltip)
	end
end

local function get_formspec(tabview, name, tabdata)
	local retval = ""

	local index = filterlist.get_current_index(menudata.worldlist,
				tonumber(core.setting_get("mainmenu_last_selected_world"))
				)

	retval = retval ..
			"image_button[4,4.15;2.6,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete;".. fgettext("Delete") .. "]" ..
			"image_button[6.5,4.15;2.8,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create;".. fgettext("New") .. "]" ..
			"image_button[9.2,4.15;2.55,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_configure;".. fgettext("Configure") .. "]" ..
			"image_button[8.5,4.95;3.25,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;play;".. fgettext("Play") .. "]" ..
			"label[4,-0.25;".. fgettext("Select World:") .. "]"..
			"checkbox[0.25,0.15;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
			dump(core.setting_getbool("creative_mode")) .. "]"..
			"checkbox[0.25,0.6;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
			dump(core.setting_getbool("enable_damage")) .. "]"..
			"image[0.25,1.3;0.58,0.55;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_checkf.png]"..
			"image_button[0.8,1.3;3,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_trans.png;btn_server;Local Server;false;false]"..
			"textlist[4,0.25;7.5,3.7;sp_worlds;" ..
			menu_render_worldlist() ..
			";" .. index .. "]"
	return 'size[12,5.4;false]'..retval
end

local function main_button_handler(this, fields, name, tabdata)

	name = "singleplayer"

	local world_doubleclick = false

	if fields["btn_server"]~=nil then
		local single = create_tab_server(true)
		single:set_parent(this.parent)
		single:show()
		this:hide()
		return true
	end

	if fields["sp_worlds"] ~= nil then
		local event = core.explode_textlist_event(fields["sp_worlds"])

		local selected = core.get_textlist_index("sp_worlds")
		if selected ~= nil then
			local filename = menudata.worldlist:get_list()[selected].path
			local worldconfig = modmgr.get_worldconfig(filename)
			filename = filename .. DIR_DELIM .. "world.mt"

			if worldconfig.creative_mode ~= nil then
				core.setting_set("creative_mode", worldconfig.creative_mode)
			else
				local worldfile = Settings(filename)
				worldfile:set("creative_mode", core.setting_get("creative_mode"))
				if not worldfile:write() then
					core.log("error", "Failed to write world config file")
				end
			end
			if worldconfig.enable_damage ~= nil then
				core.setting_set("enable_damage", worldconfig.enable_damage)
			else
				local worldfile = Settings(filename)
				worldfile:set("enable_damage", core.setting_get("enable_damage"))
				if not worldfile:write() then
					core.log("error", "Failed to write world config file")
				end
			end
		end

		if event.type == "DCL" then
			world_doubleclick = true
		end

		if event.type == "CHG" and selected ~= nil then
			core.setting_set("mainmenu_last_selected_world",
				menudata.worldlist:get_raw_index(selected))
			return true
		end
	end

	if menu_handle_key_up_down(fields,"sp_worlds","mainmenu_last_selected_world") then
		return true
	end

	if fields["cb_creative_mode"] then
		core.setting_set("creative_mode", fields["cb_creative_mode"])
		local selected = core.get_textlist_index("sp_worlds")
		if selected then
			local filename = menudata.worldlist:get_list()[selected].path ..
					DIR_DELIM .. "world.mt"

			local test = io.open(filename)
			if test then
		               io.close(test)
				local worldfile = Settings(filename)
				worldfile:set("creative_mode", fields["cb_creative_mode"])
				--  if not worldfile:write() then
				--      core.log("error", "Failed to write world config file")
				--  end
			end
		end
		return true
	end

	if fields["cb_enable_damage"] then
		core.setting_set("enable_damage", fields["cb_enable_damage"])
		local selected = core.get_textlist_index("sp_worlds")
		if selected then
			local filename = menudata.worldlist:get_list()[selected].path ..
			DIR_DELIM .. "world.mt"
			local test = io.open(filename)
			if test then
				local worldfile = Settings(filename)
				worldfile:set("enable_damage", fields["cb_enable_damage"])
				--if not worldfile:write() then
				--core.log("error", "Failed to write world config file")
				--end
			end
		end
		return true
	end

	if fields["play"] ~= nil or
		world_doubleclick or
		fields["key_enter"] then
		local selected = core.get_textlist_index("sp_worlds")

		if selected ~= nil then
			gamedata.selected_world = menudata.worldlist:get_raw_index(selected)
			gamedata.singleplayer   = true

			core.start()
		end
		return true
	end

	if fields["world_create"] ~= nil then
		local create_world_dlg = create_create_world_dlg(true)
		create_world_dlg:set_parent(this)
		this:hide()
		create_world_dlg:show()
		mm_texture.update("singleplayer",current_game())
		return true
	end

	if fields["world_delete"] ~= nil then
		local selected = core.get_textlist_index("sp_worlds")
		if selected ~= nil and
			selected <= menudata.worldlist:size() then
			local world = menudata.worldlist:get_list()[selected]
			if world ~= nil and
				world.name ~= nil and
				world.name ~= "" then
				local index = menudata.worldlist:get_raw_index(selected)
				local delete_world_dlg = create_delete_world_dlg(world.name,index)
				delete_world_dlg:set_parent(this)
				this:hide()
				delete_world_dlg:show()
				mm_texture.update("singleplayer",current_game())
			end
		end

		return true
	end

	if fields["world_configure"] ~= nil then
		local selected = core.get_textlist_index("sp_worlds")
		if selected ~= nil then
			local configdialog =
				create_configure_world_dlg(
						menudata.worldlist:get_raw_index(selected))

			if (configdialog ~= nil) then
				configdialog:set_parent(this)
				this:hide()
				configdialog:show()
				mm_texture.update("singleplayer",current_game())
			end
		end

		return true
	end
end

local function on_change(type, old_tab, new_tab)
	local buttonbar = ui.find_by_name("game_button_bar")

	if ( buttonbar == nil ) then
		singleplayer_refresh_gamebar()
		buttonbar = ui.find_by_name("game_button_bar")
	end

	if (type == "ENTER") then
		local game = current_game()

		if game then
			menudata.worldlist:set_filtercriteria(game.id)
			core.set_topleft_text(game.name)
			mm_texture.update("singleplayer",game)
		end
		buttonbar:show()
	else
		menudata.worldlist:set_filtercriteria(nil)
		buttonbar:hide()
		core.set_topleft_text("")
		mm_texture.update(new_tab,nil)
	end
end

--------------------------------------------------------------------------------
tab_singleplayer = {
	name = "singleplayer",
	caption = fgettext("Singleplayer"),
	cbf_formspec = get_formspec,
	cbf_button_handler = main_button_handler,
	on_change = on_change
	}

function create_tab_single()
		local retval = dialog_create("singleplayer",
										get_formspec,
										main_button_handler,
										nil)
		return retval
end