New MainMenu, update WversionManager, Makefile change

New MainMenu by 4aiman
WVersionManager - 1.3
Makefile - rename output apk

build/android/Makefile

@@ -693,8 +693,8 @@ apk: $(PATHCFGFILE) assets $(IRRLICHT_LIB) $(CURL_LIB) $(LEVELDB_TARGET)       \
 	TARGET_CXXFLAGS+="${TARGET_CXXFLAGS_ADDON}" &&                             \
 	ant $$BUILD_TYPE &&                                                        \
 	echo "++ Success!" &&                                                      \
-	echo "APK: bin/Minetest-$$BUILD_TYPE.apk" &&                               \
+	echo "APK: bin/MultiCraft-$$BUILD_TYPE.apk" &&                              \
-	echo "You can install it with \`adb install -r bin/Minetest-$$BUILD_TYPE.apk\`"
+	echo "You can install it with \`adb install -r bin/MultiCraft-$$BUILD_TYPE.apk\`"
 	
 prep_srcdir :
 	@rm ${ROOT}/jni/src;                                                       \
@@ -704,14 +704,14 @@ clean_apk : manifest
 	@export PATH=$$PATH:${SDKFOLDER}platform-tools:${ANDROID_NDK};             \
 	export ANDROID_HOME=${SDKFOLDER};                                          \
 	ant clean
-	
+
 install_debug : 
 	@export PATH=$$PATH:${SDKFOLDER}platform-tools:${ANDROID_NDK};             \
-	adb install -r ${ROOT}/bin/Minetest-debug.apk
+	adb install -r ${ROOT}/bin/MultiCraft-debug.apk
 	
 install :
 	@export PATH=$$PATH:${SDKFOLDER}platform-tools:${ANDROID_NDK};             \
-	adb install -r ${ROOT}/bin/Minetest-release.apk
+	adb install -r ${ROOT}/bin/MultiCraft-release.apk
 	
 envpaths :
 	@echo "export PATH=$$PATH:${SDKFOLDER}platform-tools:${ANDROID_NDK}" > and_env;\

builtin/ProFi.lua

@@ -0,0 +1,463 @@
+--[[
+	ProFi v1.3, by Luke Perkin 2012. MIT Licence http://www.opensource.org/licenses/mit-license.php.
+	
+	Example:
+		ProFi = require 'ProFi'
+		ProFi:start()
+		some_function()
+		another_function()
+		coroutine.resume( some_coroutine )
+		ProFi:stop()
+		ProFi:writeReport( 'MyProfilingReport.txt' )
+
+	API:
+	*Arguments are specified as: type/name/default.
+		ProFi:start( string/once/nil )
+		ProFi:stop()
+		ProFi:checkMemory( number/interval/0, string/note/'' )
+		ProFi:writeReport( string/filename/'ProFi.txt' )
+		ProFi:reset()
+		ProFi:setHookCount( number/hookCount/0 )
+		ProFi:setGetTimeMethod( function/getTimeMethod/os.clock )
+		ProFi:setInspect( string/methodName, number/levels/1 )
+]]
+
+-----------------------
+-- Locals:
+-----------------------
+
+local ProFi = {}
+local onDebugHook, sortByDurationDesc, sortByCallCount, getTime
+local DEFAULT_DEBUG_HOOK_COUNT = 0
+local FORMAT_HEADER_LINE       = "| %-50s: %-40s: %-20s: %-12s: %-12s: %-12s|\n"
+local FORMAT_OUTPUT_LINE       = "| %s: %-12s: %-12s: %-12s|\n"
+local FORMAT_INSPECTION_LINE   = "> %s: %-12s\n"
+local FORMAT_TOTALTIME_LINE    = "| TOTAL TIME = %f\n"
+local FORMAT_MEMORY_LINE 	   = "| %-20s: %-16s: %-16s| %s\n"
+local FORMAT_HIGH_MEMORY_LINE  = "H %-20s: %-16s: %-16sH %s\n"
+local FORMAT_LOW_MEMORY_LINE   = "L %-20s: %-16s: %-16sL %s\n"
+local FORMAT_TITLE             = "%-50.50s: %-40.40s: %-20s"
+local FORMAT_LINENUM           = "%4i"
+local FORMAT_TIME              = "%04.3f"
+local FORMAT_RELATIVE          = "%03.2f%%"
+local FORMAT_COUNT             = "%7i"
+local FORMAT_KBYTES  		   = "%7i Kbytes"
+local FORMAT_MBYTES  		   = "%7.1f Mbytes"
+local FORMAT_MEMORY_HEADER1    = "\n=== HIGH & LOW MEMORY USAGE ===============================\n"
+local FORMAT_MEMORY_HEADER2    = "=== MEMORY USAGE ==========================================\n"
+local FORMAT_BANNER 		   = [[
+###############################################################################################################
+#####  ProFi, a lua profiler. This profile was generated on: %s
+#####  ProFi is created by Luke Perkin 2012 under the MIT Licence, www.locofilm.co.uk
+#####  Version 1.3. Get the most recent version at this gist: https://gist.github.com/2838755
+###############################################################################################################
+
+]]
+
+-----------------------
+-- Public Methods:
+-----------------------
+
+--[[
+	Starts profiling any method that is called between this and ProFi:stop().
+	Pass the parameter 'once' to so that this methodis only run once.
+	Example: 
+		ProFi:start( 'once' )
+]]
+function ProFi:start( param )
+	if param == 'once' then
+		if self:shouldReturn() then
+			return
+		else
+			self.should_run_once = true
+		end
+	end
+	self.has_started  = true
+	self.has_finished = false
+	self:resetReports( self.reports )
+	self:startHooks()
+	self.startTime = getTime()
+end
+
+--[[
+	Stops profiling.
+]]
+function ProFi:stop()
+	if self:shouldReturn() then 
+		return
+	end
+	self.stopTime = getTime()
+	self:stopHooks()
+	self.has_finished = true
+end
+
+function ProFi:checkMemory( interval, note )
+	local time = getTime()
+	local interval = interval or 0
+	if self.lastCheckMemoryTime and time < self.lastCheckMemoryTime + interval then
+		return
+	end
+	self.lastCheckMemoryTime = time
+	local memoryReport = {
+		['time']   = time;
+		['memory'] = collectgarbage('count');
+		['note']   = note or '';
+	}
+	table.insert( self.memoryReports, memoryReport )
+	self:setHighestMemoryReport( memoryReport )
+	self:setLowestMemoryReport( memoryReport )
+end
+
+--[[
+	Writes the profile report to a file.
+	Param: [filename:string:optional] defaults to 'ProFi.txt' if not specified.
+]]
+function ProFi:writeReport( filename )
+	if #self.reports > 0 or #self.memoryReports > 0 then
+		filename = filename or 'ProFi.txt'
+		self:sortReportsWithSortMethod( self.reports, self.sortMethod )
+		self:writeReportsToFilename( filename )
+		print( string.format("[ProFi]\t Report written to %s", filename) )
+	end
+end
+
+--[[
+	Resets any profile information stored.
+]]
+function ProFi:reset()
+	self.reports = {}
+	self.reportsByTitle = {}
+	self.memoryReports  = {}
+	self.highestMemoryReport = nil
+	self.lowestMemoryReport  = nil
+	self.has_started  = false
+	self.has_finished = false
+	self.should_run_once = false
+	self.lastCheckMemoryTime = nil
+	self.hookCount = self.hookCount or DEFAULT_DEBUG_HOOK_COUNT
+	self.sortMethod = self.sortMethod or sortByDurationDesc
+	self.inspect = nil
+end
+
+--[[
+	Set how often a hook is called.
+	See http://pgl.yoyo.org/luai/i/debug.sethook for information.
+	Param: [hookCount:number] if 0 ProFi counts every time a function is called.
+	if 2 ProFi counts every other 2 function calls.
+]]
+function ProFi:setHookCount( hookCount )
+	self.hookCount = hookCount
+end
+
+--[[
+	Set how the report is sorted when written to file.
+	Param: [sortType:string] either 'duration' or 'count'.
+	'duration' sorts by the time a method took to run.
+	'count' sorts by the number of times a method was called.
+]]
+function ProFi:setSortMethod( sortType )
+	if sortType == 'duration' then
+		self.sortMethod = sortByDurationDesc
+	elseif sortType == 'count' then
+		self.sortMethod = sortByCallCount
+	end
+end
+
+--[[
+	By default the getTime method is os.clock (CPU time),
+	If you wish to use other time methods pass it to this function.
+	Param: [getTimeMethod:function]
+]]
+function ProFi:setGetTimeMethod( getTimeMethod )
+	getTime = getTimeMethod
+end
+
+--[[
+	Allows you to inspect a specific method.
+	Will write to the report a list of methods that
+	call this method you're inspecting, you can optionally
+	provide a levels parameter to traceback a number of levels.
+	Params: [methodName:string] the name of the method you wish to inspect.
+	        [levels:number:optional] the amount of levels you wish to traceback, defaults to 1.
+]]
+function ProFi:setInspect( methodName, levels )
+	if self.inspect then
+		self.inspect.methodName = methodName
+		self.inspect.levels = levels or 1
+	else
+		self.inspect = {
+			['methodName'] = methodName;
+			['levels'] = levels or 1;
+		}
+	end
+end
+
+-----------------------
+-- Implementations methods:
+-----------------------
+
+function ProFi:shouldReturn( )
+	return self.should_run_once and self.has_finished
+end
+
+function ProFi:getFuncReport( funcInfo )
+	local title = self:getTitleFromFuncInfo( funcInfo )
+	local funcReport = self.reportsByTitle[ title ]
+	if not funcReport then
+		funcReport = self:createFuncReport( funcInfo )
+		self.reportsByTitle[ title ] = funcReport
+		table.insert( self.reports, funcReport )
+	end
+	return funcReport
+end
+
+function ProFi:getTitleFromFuncInfo( funcInfo )
+	local name        = funcInfo.name or 'anonymous'
+	-- TODO (freeminer): remove common path, i.e. /home/xyz/freeminer/games/default/, from the source
+	local source      = funcInfo.source:sub(-50) or 'C_FUNC'
+	local linedefined = funcInfo.linedefined or 0
+	linedefined = string.format( FORMAT_LINENUM, linedefined )
+	return string.format(FORMAT_TITLE, source, name, linedefined)
+end
+
+function ProFi:createFuncReport( funcInfo )
+	local name = funcInfo.name or 'anonymous'
+	local source = funcInfo.source or 'C Func'
+	local linedefined = funcInfo.linedefined or 0
+	local funcReport = {
+		['title']         = self:getTitleFromFuncInfo( funcInfo );
+		['count'] = 0;
+		['timer']         = 0;
+	}
+	return funcReport
+end
+
+function ProFi:startHooks()
+	debug.sethook( onDebugHook, 'cr', self.hookCount )
+end
+
+function ProFi:stopHooks()
+	debug.sethook()
+end
+
+function ProFi:sortReportsWithSortMethod( reports, sortMethod )
+	if reports then
+		table.sort( reports, sortMethod )
+	end
+end
+
+function ProFi:writeReportsToFilename( filename )
+	local file, err = io.open( filename, 'w' )
+	assert( file, err )
+	self:writeBannerToFile( file )
+	if #self.reports > 0 then
+		self:writeProfilingReportsToFile( self.reports, file )
+	end
+	if #self.memoryReports > 0 then
+		self:writeMemoryReportsToFile( self.memoryReports, file )
+	end
+	file:close()
+end
+
+function ProFi:writeProfilingReportsToFile( reports, file )
+	local totalTime = self.stopTime - self.startTime
+	local totalTimeOutput =  string.format(FORMAT_TOTALTIME_LINE, totalTime)
+	file:write( totalTimeOutput )
+	local header = string.format( FORMAT_HEADER_LINE, "FILE", "FUNCTION", "LINE", "TIME", "RELATIVE", "CALLED" )
+	file:write( header )
+ 	for i, funcReport in ipairs( reports ) do
+		local timer         = string.format(FORMAT_TIME, funcReport.timer)
+		local count         = string.format(FORMAT_COUNT, funcReport.count)
+		local relTime 		= string.format(FORMAT_RELATIVE, (funcReport.timer / totalTime) * 100 )
+		local outputLine    = string.format(FORMAT_OUTPUT_LINE, funcReport.title, timer, relTime, count )
+		file:write( outputLine )
+		if funcReport.inspections then
+			self:writeInpsectionsToFile( funcReport.inspections, file )
+		end
+	end
+end
+
+function ProFi:writeMemoryReportsToFile( reports, file )
+	file:write( FORMAT_MEMORY_HEADER1 )
+	self:writeHighestMemoryReportToFile( file )
+	self:writeLowestMemoryReportToFile( file )
+	file:write( FORMAT_MEMORY_HEADER2 )
+	for i, memoryReport in ipairs( reports ) do
+		local outputLine = self:formatMemoryReportWithFormatter( memoryReport, FORMAT_MEMORY_LINE )
+		file:write( outputLine )
+	end
+end
+
+function ProFi:writeHighestMemoryReportToFile( file )
+	local memoryReport = self.highestMemoryReport
+	local outputLine   = self:formatMemoryReportWithFormatter( memoryReport, FORMAT_HIGH_MEMORY_LINE )
+	file:write( outputLine )
+end
+
+function ProFi:writeLowestMemoryReportToFile( file )
+	local memoryReport = self.lowestMemoryReport
+	local outputLine   = self:formatMemoryReportWithFormatter( memoryReport, FORMAT_LOW_MEMORY_LINE )
+	file:write( outputLine )
+end
+
+function ProFi:formatMemoryReportWithFormatter( memoryReport, formatter )
+	local time       = string.format(FORMAT_TIME, memoryReport.time)
+	local kbytes     = string.format(FORMAT_KBYTES, memoryReport.memory)
+	local mbytes     = string.format(FORMAT_MBYTES, memoryReport.memory/1024)
+	local outputLine = string.format(formatter, time, kbytes, mbytes, memoryReport.note)
+	return outputLine
+end
+
+function ProFi:writeBannerToFile( file )
+	local banner = string.format(FORMAT_BANNER, os.date())
+	file:write( banner )
+end
+
+function ProFi:writeInpsectionsToFile( inspections, file )
+	local inspectionsList = self:sortInspectionsIntoList( inspections )
+	file:write('\n==^ INSPECT ^======================================================================================================== COUNT ===\n')
+	for i, inspection in ipairs( inspectionsList ) do
+		local line 			= string.format(FORMAT_LINENUM, inspection.line)
+		local title 		= string.format(FORMAT_TITLE, inspection.source, inspection.name, line)
+		local count 		= string.format(FORMAT_COUNT, inspection.count)
+		local outputLine    = string.format(FORMAT_INSPECTION_LINE, title, count )
+		file:write( outputLine )
+	end
+	file:write('===============================================================================================================================\n\n')
+end
+
+function ProFi:sortInspectionsIntoList( inspections )
+	local inspectionsList = {}
+	for k, inspection in pairs(inspections) do
+		inspectionsList[#inspectionsList+1] = inspection
+	end
+	table.sort( inspectionsList, sortByCallCount )
+	return inspectionsList
+end
+
+function ProFi:resetReports( reports )
+	for i, report in ipairs( reports ) do
+		report.timer = 0
+		report.count = 0
+		report.inspections = nil
+	end
+end
+
+function ProFi:shouldInspect( funcInfo )
+	return self.inspect and self.inspect.methodName == funcInfo.name
+end
+
+function ProFi:getInspectionsFromReport( funcReport )
+	local inspections = funcReport.inspections
+	if not inspections then
+		inspections = {}
+		funcReport.inspections = inspections
+	end
+	return inspections
+end
+
+function ProFi:getInspectionWithKeyFromInspections( key, inspections )
+	local inspection = inspections[key]
+	if not inspection then
+		inspection = {
+			['count']  = 0;
+		}
+		inspections[key] = inspection
+	end
+	return inspection
+end
+
+function ProFi:doInspection( inspect, funcReport )
+	local inspections = self:getInspectionsFromReport( funcReport )
+	local levels = 5 + inspect.levels
+	local currentLevel = 5
+	while currentLevel < levels do
+		local funcInfo = debug.getinfo( currentLevel, 'nS' )
+		if funcInfo then
+			local source = funcInfo.short_src or '[C]'
+			local name = funcInfo.name or 'anonymous'
+			local line = funcInfo.linedefined
+			local key = source..name..line
+			local inspection = self:getInspectionWithKeyFromInspections( key, inspections )
+			inspection.source = source
+			inspection.name = name
+			inspection.line = line
+			inspection.count = inspection.count + 1
+			currentLevel = currentLevel + 1
+		else
+			break
+		end
+	end
+end
+
+function ProFi:onFunctionCall( funcInfo )
+	local funcReport = ProFi:getFuncReport( funcInfo )
+	funcReport.callTime = getTime()
+	funcReport.count = funcReport.count + 1
+	if self:shouldInspect( funcInfo ) then
+		self:doInspection( self.inspect, funcReport )
+	end
+end
+
+function ProFi:onFunctionReturn( funcInfo )
+	local funcReport = ProFi:getFuncReport( funcInfo )
+	if funcReport.callTime then
+		local time = getTime() - funcReport.callTime
+		-- handle overflow for unsigned 32-bit time
+		-- if for some reason `unsigned int` is 64-bit then overflows don't happen!
+		if time < 0 then
+			time = 4294967296 / 1000000 + time
+		end
+		funcReport.timer = funcReport.timer + time
+	end
+end
+
+function ProFi:setHighestMemoryReport( memoryReport )
+	if not self.highestMemoryReport then
+		self.highestMemoryReport = memoryReport
+	else
+		if memoryReport.memory > self.highestMemoryReport.memory then
+			self.highestMemoryReport = memoryReport
+		end
+	end
+end
+
+function ProFi:setLowestMemoryReport( memoryReport )
+	if not self.lowestMemoryReport then
+		self.lowestMemoryReport = memoryReport
+	else
+		if memoryReport.memory < self.lowestMemoryReport.memory then
+			self.lowestMemoryReport = memoryReport
+		end
+	end
+end
+
+-----------------------
+-- Local Functions:
+-----------------------
+
+getTime = os.clock
+
+onDebugHook = function( hookType )
+	local funcInfo = debug.getinfo( 2, 'nS' )
+	if hookType == "call" then
+		ProFi:onFunctionCall( funcInfo )
+	elseif hookType == "return" then
+		ProFi:onFunctionReturn( funcInfo )
+	end
+end
+
+sortByDurationDesc = function( a, b )
+	return a.timer > b.timer
+end
+
+sortByCallCount = function( a, b )
+	return a.count > b.count
+end
+
+-----------------------
+-- Return Module:
+-----------------------
+
+ProFi:reset()
+return ProFi

builtin/common/filterlist.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify

builtin/common/misc_helpers.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/misc_helpers.lua
+-- Minetest: builtin/misc_helpers.lua
 
 --------------------------------------------------------------------------------
 function basic_dump(o)
@@ -441,6 +441,114 @@ if INIT == "game" then
 	end
 
 
+--------------------------------------------------------------------------------
+--Wrapper for rotate_and_place() to check for sneak and assume Creative mode
+--implies infinite stacks when performing a 6d rotation.
+--------------------------------------------------------------------------------
+
+	minetest.rotate_node = function(itemstack, placer, pointed_thing)
+		minetest.rotate_and_place(itemstack, placer, pointed_thing,
+		minetest.setting_getbool("creative_mode"), 
+		{invert_wall = placer:get_player_control().sneak})
+		return itemstack
+	end
+
+--------------------------------------------------------------------------------
+-- Function to make a copy of an existing node definition, to be used
+-- by mods that need to redefine some aspect of a node, but without
+-- them having to copy&paste the entire node definition.
+--------------------------------------------------------------------------------
+
+	function minetest.clone_node(name)
+		node2={}
+		node=minetest.registered_nodes[name]
+		for k,v in pairs(node) do
+			node2[k]=v
+		end
+		return node2
+	end
+
+end
+
+--------------------------------------------------------------------------------
+
+if minetest then
+	local dirs1 = { 9, 18, 7, 12 }
+	local dirs2 = { 20, 23, 22, 21 }
+
+	function minetest.rotate_and_place(itemstack, placer, pointed_thing, infinitestacks, orient_flags)
+		orient_flags = orient_flags or {}
+
+		local node = minetest.get_node(pointed_thing.under)
+		if not minetest.registered_nodes[node.name]
+		   or not minetest.registered_nodes[node.name].on_rightclick then
+
+			local above = pointed_thing.above
+			local under = pointed_thing.under
+			local pitch = placer:get_look_pitch()
+			local pname = minetest.get_node(under).name
+			local node = minetest.get_node(above)
+			local fdir = minetest.dir_to_facedir(placer:get_look_dir())
+			local wield_name = itemstack:get_name()
+			local reg_node = minetest.registered_nodes[pname]
+
+			if not reg_node or not reg_node.on_rightclick then
+
+				local iswall = (above.x ~= under.x) or (above.z ~= under.z)
+				local isceiling = (above.x == under.x) and (above.z == under.z)
+								  and (pitch > 0)
+				local pos1 = above
+
+				if reg_node and reg_node.buildable_to then
+					pos1 = under
+					iswall = false
+				end
+
+				reg_node = minetest.registered_nodes[minetest.get_node(pos1).name]
+				if not reg_node or not reg_node.buildable_to then
+					return
+				end
+
+				if orient_flags.force_floor then
+					iswall = false
+					isceiling = false
+				elseif orient_flags.force_ceiling then 
+					iswall = false
+					isceiling = true
+				elseif orient_flags.force_wall then					
+					iswall = true
+					isceiling = false
+				elseif orient_flags.invert_wall then
+					iswall = not iswall
+				end
+
+				if iswall then
+					minetest.add_node(pos1, {name = wield_name, param2 = dirs1[fdir+1] })
+				elseif isceiling then
+					if orient_flags.force_facedir then
+						minetest.add_node(pos1, {name = wield_name, param2 = 20 })
+					else
+						minetest.add_node(pos1, {name = wield_name, param2 = dirs2[fdir+1] })
+					end
+				else -- place right side up
+					if orient_flags.force_facedir then
+						minetest.add_node(pos1, {name = wield_name, param2 = 0 })
+					else
+						minetest.add_node(pos1, {name = wield_name, param2 = fdir })
+					end
+				end
+
+				if not infinitestacks then
+					itemstack:take_item()
+					return itemstack
+				end
+			end
+		else
+			minetest.registered_nodes[node.name].on_rightclick(pointed_thing.under, node, placer, itemstack)
+		end
+	end
+
+
 --------------------------------------------------------------------------------
 --Wrapper for rotate_and_place() to check for sneak and assume Creative mode
 --implies infinite stacks when performing a 6d rotation.
@@ -593,4 +701,3 @@ if INIT == "mainmenu" then
 		return core.formspec_escape(fgettext_ne(text, ...))
 	end
 end
-

builtin/common/serialize.lua

@@ -115,20 +115,11 @@ function core.serialize(x)
 	function dump_val(x)
 		local  tp = type(x)
 		if     x  == nil        then return "nil"
+		elseif tp == "number"   then return string.format("%d", x)
 		elseif tp == "string"   then return string.format("%q", x)
 		elseif tp == "boolean"  then return x and "true" or "false"
 		elseif tp == "function" then
 			return string.format("loadstring(%q)", string.dump(x))
-		elseif tp == "number"   then
-			-- Serialize integers with string.format to prevent
-			-- scientific notation, which doesn't preserve
-			-- precision and breaks things like node position
-			-- hashes.  Serialize floats normally.
-			if math.floor(x) == x then
-				return string.format("%d", x)
-			else
-				return tostring(x)
-			end
 		elseif tp == "table" then
 			local vals = {}
 			local idx_dumped = {}

builtin/common/strict.lua

@@ -4,11 +4,6 @@
 local WARN_INIT = false
 
 
-function core.global_exists(name)
-	return rawget(_G, name) ~= nil
-end
-
-
 local function warn(message)
 	print(os.date("%H:%M:%S: WARNING: ")..message)
 end

builtin/fstk/buttonbar.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --self program is free software; you can redistribute it and/or modify

builtin/fstk/dialog.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --self program is free software; you can redistribute it and/or modify

builtin/fstk/tabview.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --self program is free software; you can redistribute it and/or modify
@@ -214,60 +214,60 @@ end
 
 --------------------------------------------------------------------------------
 local function show_tabview(self)
-    self.hidden=false
+	self.hidden=false
-
+	
-    -- call for tab to enter
+	-- call for tab to enter
-    if self.tablist[self.last_tab_index].on_change ~= nil then
+	if self.tablist[self.last_tab_index].on_change ~= nil then
-        self.tablist[self.last_tab_index].on_change("ENTER",
+		self.tablist[self.last_tab_index].on_change("ENTER",
-                nil,self.current_tab)
+				nil,self.current_tab)
-    end
+	end
 end
 
 local tabview_metatable = {
-    add                       = add_tab,
+	add                       = add_tab,
-    handle_buttons            = handle_buttons,
+	handle_buttons            = handle_buttons,
-    handle_events             = handle_events,
+	handle_events             = handle_events,
-    get_formspec              = get_formspec,
+	get_formspec              = get_formspec,
-    show                      = show_tabview,
+	show                      = show_tabview,
-    hide                      = hide_tabview,
+	hide                      = hide_tabview,
-    delete                    = function(self) ui.delete(self) end,
+	delete                    = function(self) ui.delete(self) end,
-    set_parent                = function(self,parent) self.parent = parent end,
+	set_parent                = function(self,parent) self.parent = parent end,
-    set_autosave_tab          =
+	set_autosave_tab          =
-            function(self,value) self.autosave_tab = value end,
+			function(self,value) self.autosave_tab = value end,
-    set_tab                   = set_tab_by_name,
+	set_tab                   = set_tab_by_name,
-    set_global_button_handler =
+	set_global_button_handler =
-            function(self,handler) self.glb_btn_handler = handler end,
+			function(self,handler) self.glb_btn_handler = handler end,
-    set_global_event_handler =
+	set_global_event_handler =
-            function(self,handler) self.glb_evt_handler = handler end,
+			function(self,handler) self.glb_evt_handler = handler end,
-    set_fixed_size =
+	set_fixed_size =
-            function(self,state) self.fixed_size = state end,
+			function(self,state) self.fixed_size = state end,
-    tab_header = tab_header,
+	tab_header = tab_header,
-    handle_tab_buttons = handle_tab_buttons
+	handle_tab_buttons = handle_tab_buttons
 }
 
 tabview_metatable.__index = tabview_metatable
 
 --------------------------------------------------------------------------------
 function tabview_create(name, size, tabheaderpos)
-    local self = {}
+	local self = {}
 
-    self.name     = name
+	self.name     = name
-    self.type     = "toplevel"
+	self.type     = "toplevel"
-    self.width    = size.x
+	self.width    = size.x
-    self.height   = size.y
+	self.height   = size.y
-    self.header_x = tabheaderpos.x
+	self.header_x = tabheaderpos.x
-    self.header_y = tabheaderpos.y
+	self.header_y = tabheaderpos.y
 
-    setmetatable(self, tabview_metatable)
+	setmetatable(self, tabview_metatable)
 
-    self.fixed_size     = true
+	self.fixed_size     = true
-    self.hidden         = true
+	self.hidden         = true
-    self.current_tab    = nil
+	self.current_tab    = nil
-    self.last_tab_index = 1
+	self.last_tab_index = 1
-    self.tablist        = {}
+	self.tablist        = {}
+	
+	self.autosave_tab   = false
 
-    self.autosave_tab   = false
+	ui.add(self)
-
+	return self
-    ui.add(self)
-    return self
 end

builtin/fstk/ui.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --self program is free software; you can redistribute it and/or modify
@@ -109,7 +109,7 @@ function ui.handle_buttons(fields)
 
 	if fields["btn_error_confirm"] then
 		gamedata.errormessage = nil
-		update_menu()
+		menu.update()
 		return
 	end
 

builtin/game/auth.lua

@@ -1,11 +1,11 @@
--- multicraft: builtin/auth.lua
+-- Minetest: builtin/auth.lua
 
 --
 -- Authentication handler
 --
 
 function core.string_to_privs(str, delim)
-	assert(type(str) == "string")
+	if type(str) ~= "string" then return end
 	delim = delim or ','
 	local privs = {}
 	for _, priv in pairs(string.split(str, delim)) do
@@ -32,6 +32,23 @@ assert(core.privs_to_string({a=true,b=true}) == "a,b")
 core.auth_file_path = core.get_worldpath().."/auth.txt"
 core.auth_table = {}
 
+local hex={}
+for i=0,255 do
+    hex[string.format("%0x",i)]=string.char(i)
+    hex[string.format("%0X",i)]=string.char(i)
+end
+
+local function uri_decode(str)
+	str = string.gsub (str, "+", " ")
+	return (str:gsub('%%(%x%x)',hex))
+end
+
+function uri_encode (str)
+	str = string.gsub (str, "([^0-9a-zA-Z_ -])", function (c) return string.format ("%%%02X", string.byte(c)) end)
+	str = string.gsub (str, " ", "+")
+	return str
+end
+
 local function read_auth_file()
 	local newtable = {}
 	local file, errmsg = io.open(core.auth_file_path, 'rb')
@@ -48,7 +65,7 @@ local function read_auth_file()
 				error("Invalid line in auth.txt: "..dump(line))
 			end
 			local privileges = core.string_to_privs(privilege_string)
-			newtable[name] = {password=password, privileges=privileges, last_login=last_login}
+			newtable[uri_decode(name)] = {password=password, privileges=privileges, last_login=last_login}
 		end
 	end
 	io.close(file)
@@ -73,7 +90,7 @@ local function save_auth_file()
 	end
 	for name, stuff in pairs(core.auth_table) do
 		local priv_string = core.privs_to_string(stuff.privileges)
-		local parts = {name, stuff.password, priv_string, stuff.last_login or ""}
+		local parts = {uri_encode(name), stuff.password, priv_string, stuff.last_login or ""}
 		file:write(table.concat(parts, ":").."\n")
 	end
 	io.close(file)
@@ -123,9 +140,13 @@ core.builtin_auth_handler = {
 		assert(type(name) == "string")
 		assert(type(password) == "string")
 		core.log('info', "Built-in authentication handler adding player '"..name.."'")
+		local privs = core.setting_get("default_privs")
+		if core.setting_getbool("creative_mode") and core.setting_get("default_privs_creative") then
+			privs = core.setting_get("default_privs_creative")
+		end
 		core.auth_table[name] = {
 			password = password,
-			privileges = core.string_to_privs(core.setting_get("default_privs")),
+			privileges = core.string_to_privs(privs),
 			last_login = os.time(),
 		}
 		save_auth_file()

builtin/game/chatcommands.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/chatcommands.lua
+-- Minetest: builtin/chatcommands.lua
 
 --
 -- Chat command handler
@@ -67,9 +67,10 @@ core.register_chatcommand("help", {
 	description = "Get help for commands or list privileges",
 	func = function(name, param)
 		local function format_help_line(cmd, def)
+			local msg = freeminer.colorize("00ffff", "/"..cmd)
 			local msg = "/"..cmd
 			if def.params and def.params ~= "" then
-				msg = msg .. " " .. def.params
+				msg = msg .. " " .. freeminer.colorize("eeeeee", def.params)
 			end
 			if def.description and def.description ~= "" then
 				msg = msg .. ": " .. def.description
@@ -229,28 +230,21 @@ core.register_chatcommand("setpassword", {
 		if not toname then
 			return false, "Name field required"
 		end
-		local act_str_past = "?"
+		local actstr = "?"
-		local act_str_pres = "?"
 		if not raw_password then
 			core.set_player_password(toname, "")
-			act_str_past = "cleared"
+			actstr = "cleared"
-			act_str_pres = "clears"
 		else
 			core.set_player_password(toname,
 					core.get_password_hash(toname,
 							raw_password))
-			act_str_past = "set"
+			actstr = "set"
-			act_str_pres = "sets"
 		end
 		if toname ~= name then
 			core.chat_send_player(toname, "Your password was "
-					.. act_str_past .. " by " .. name)
+					.. actstr .. " by " .. name)
 		end
-
+		return true, "Password of player \"" .. toname .. "\" " .. actstr
-		core.log("action", name .. " " .. act_str_pres
-		.. " password of " .. toname .. ".")
-
-		return true, "Password of player \"" .. toname .. "\" " .. act_str_past
 	end,
 })
 
@@ -264,9 +258,6 @@ core.register_chatcommand("clearpassword", {
 			return false, "Name field required"
 		end
 		core.set_player_password(toname, '')
-
-		core.log("action", name .. " clears password of " .. toname .. ".")
-
 		return true, "Password of player \"" .. toname .. "\" cleared"
 	end,
 })
@@ -414,14 +405,13 @@ core.register_chatcommand("set", {
 })
 
 core.register_chatcommand("deleteblocks", {
-	params = "(here [radius]) | (<pos1> <pos2>)",
+	params = "[here] [<pos1> <pos2>]",
 	description = "delete map blocks contained in area pos1 to pos2",
 	privs = {server=true},
 	func = function(name, param)
 		local p1 = {}
 		local p2 = {}
-		local args = param:split(" ")
+		if param == "here" then
-		if args[1] == "here" then
 			local player = core.get_player_by_name(name)
 			if player == nil then
 				core.log("error", "player is nil")
@@ -429,12 +419,6 @@ core.register_chatcommand("deleteblocks", {
 			end
 			p1 = player:getpos()
 			p2 = p1
-
-			if #args >= 2 then
-				local radius = tonumber(args[2]) or 0
-				p1 = vector.add(p1, radius)
-				p2 = vector.subtract(p2, radius)
-			end
 		else
 			local pos1, pos2 = unpack(param:split(") ("))
 			if pos1 == nil or pos2 == nil then
@@ -525,6 +509,7 @@ core.register_chatcommand("giveme", {
 		if not itemstring then
 			return false, "ItemString required"
 		end
+		core.stat_add("giveme", name)
 		return handle_give_command("/giveme", name, name, itemstring)
 	end,
 })
@@ -749,11 +734,7 @@ core.register_chatcommand("kick", {
 		if not core.kick_player(tokick, reason) then
 			return false, "Failed to kick player " .. tokick
 		end
-		local log_reason = ""
+		core.log("action", name .. " kicked " .. tokick)
-		if reason then
-			log_reason = " with reason \"" .. reason .. "\""
-		end
-		core.log("action", name .. " kicks " .. tokick .. log_reason)
 		return true, "Kicked " .. tokick
 	end,
 })
@@ -793,6 +774,19 @@ core.register_chatcommand("msg", {
 	end,
 })
 
+core.register_chatcommand("die", {
+	params = "",
+	description = "Kills yourself.",
+	func = function(name, param)
+		local player = core.get_player_by_name(name)
+		if not player then
+			return
+		end
+		player:set_hp(0)
+		core.stat_add("suicide", name)
+	end,
+})
+
 core.register_chatcommand("last-login", {
 	params = "[name]",
 	description = "Get the last login time of a player",
@@ -810,3 +804,16 @@ core.register_chatcommand("last-login", {
 	end,
 })
 
+core.register_chatcommand( "stat", {
+	params = "[name]",
+	description = "show in-game action statistics",
+	func = function(name, param)
+		if param == "" then
+			param = name
+		elseif not core.get_player_by_name(param) then
+			return false, "No such player."
+		end
+		local formspec = core.stat_formspec(param)
+		core.show_formspec(name, 'stat', formspec)
+	end
+})

builtin/game/deprecated.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/deprecated.lua
+-- Minetest: builtin/deprecated.lua
 
 --
 -- Default material types

builtin/game/detached_inventory.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/detached_inventory.lua
+-- Minetest: builtin/detached_inventory.lua
 
 core.detached_inventories = {}
 

builtin/game/falling.lua

@@ -1,9 +1,34 @@
--- multicraft: builtin/item.lua
+-- Minetest: builtin/item.lua
 
 --
 -- Falling stuff
 --
 
+function node_drop(np, remove_fast)
+			local n2 = minetest.get_node(np)
+			-- If it's not air or liquid, remove node and replace it with
+			-- it's drops
+			if n2.name ~= "air" and (not core.registered_nodes[n2.name] or
+					core.registered_nodes[n2.name].liquidtype == "none") then
+				core.remove_node(np, remove_fast)
+				if core.registered_nodes[n2.name].buildable_to == false then
+					-- Add dropped items
+					local drops = core.get_node_drops(n2.name, "")
+					local _, dropped_item
+					for _, dropped_item in ipairs(drops) do
+						core.add_item(np, dropped_item)
+					end
+				end
+				-- Run script hook
+				local _, callback
+				for _, callback in ipairs(core.registered_on_dignodes) do
+					callback(np, n2, nil)
+				end
+			end
+end
+
+local remove_fast = 0
+
 core.register_entity(":__builtin:falling_node", {
 	initial_properties = {
 		physical = true,
@@ -47,6 +72,7 @@ core.register_entity(":__builtin:falling_node", {
 	end,
 
 	on_step = function(self, dtime)
+		if dtime > 0.2 then remove_fast = 2 else remove_fast = 0 end
 		-- Set gravity
 		self.object:setacceleration({x=0, y=-10, z=0})
 		-- Turn to actual sand when collides to ground or just move
@@ -59,7 +85,7 @@ core.register_entity(":__builtin:falling_node", {
 				(bcd.walkable or
 				(core.get_item_group(self.node.name, "float") ~= 0 and
 				bcd.liquidtype ~= "none")) then
-			if bcd and bcd.leveled and
+			if bcd and bcd.leveled and bcd.leveled > 0 and
 					bcn.name == self.node.name then
 				local addlevel = self.node.level
 				if addlevel == nil or addlevel <= 0 then
@@ -72,31 +98,14 @@ core.register_entity(":__builtin:falling_node", {
 			elseif bcd and bcd.buildable_to and
 					(core.get_item_group(self.node.name, "float") == 0 or
 					bcd.liquidtype == "none") then
-				core.remove_node(bcp)
+				core.remove_node(bcp, remove_fast)
 				return
 			end
 			local np = {x=bcp.x, y=bcp.y+1, z=bcp.z}
 			-- Check what's here
 			local n2 = core.get_node(np)
-			-- If it's not air or liquid, remove node and replace it with
+		-- remove node and replace it with it's drops
-			-- it's drops
+				node_drop(np, remove_fast)
-			if n2.name ~= "air" and (not core.registered_nodes[n2.name] or
-					core.registered_nodes[n2.name].liquidtype == "none") then
-				core.remove_node(np)
-				if core.registered_nodes[n2.name].buildable_to == false then
-					-- Add dropped items
-					local drops = core.get_node_drops(n2.name, "")
-					local _, dropped_item
-					for _, dropped_item in ipairs(drops) do
-						core.add_item(np, dropped_item)
-					end
-				end
-				-- Run script hook
-				local _, callback
-				for _, callback in ipairs(core.registered_on_dignodes) do
-					callback(np, n2, nil)
-				end
-			end
 			-- Create node and remove entity
 			core.add_node(np, self.node)
 			self.object:remove()
@@ -113,12 +122,13 @@ core.register_entity(":__builtin:falling_node", {
 
 function spawn_falling_node(p, node)
 	local obj = core.add_entity(p, "__builtin:falling_node")
+	if not obj then return end
 	obj:get_luaentity():set_node(node)
 end
 
 function drop_attached_node(p)
 	local nn = core.get_node(p).name
-	core.remove_node(p)
+	core.remove_node(p, remove_fast)
 	for _,item in ipairs(core.get_node_drops(nn, "")) do
 		local pos = {
 			x = p.x + math.random()/2 - 0.25,
@@ -179,7 +189,7 @@ function nodeupdate_single(p, delay)
 				core.after(0.1, nodeupdate_single, {x=p.x, y=p.y, z=p.z}, false)
 			else
 				n.level = core.get_node_level(p)
-				core.remove_node(p)
+				core.remove_node(p, remove_fast)
 				spawn_falling_node(p, n)
 				nodeupdate(p)
 			end

builtin/game/features.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/features.lua
+-- Minetest: builtin/features.lua
 
 core.features = {
 	glasslike_framed = true,

builtin/game/init.lua

@@ -1,5 +1,5 @@
 
-local scriptpath = multicraft.get_builtin_path()..DIR_DELIM
+local scriptpath = minetest.get_builtin_path()..DIR_DELIM
 local commonpath = scriptpath.."common"..DIR_DELIM
 local gamepath = scriptpath.."game"..DIR_DELIM
 
@@ -17,6 +17,7 @@ dofile(gamepath.."deprecated.lua")
 dofile(gamepath.."misc.lua")
 dofile(gamepath.."privileges.lua")
 dofile(gamepath.."auth.lua")
+dofile(gamepath.."stat.lua")
 dofile(gamepath.."chatcommands.lua")
 dofile(gamepath.."static_spawn.lua")
 dofile(gamepath.."detached_inventory.lua")
@@ -26,3 +27,6 @@ dofile(gamepath.."voxelarea.lua")
 dofile(gamepath.."forceloading.lua")
 dofile(gamepath.."statbars.lua")
 
+if core.setting_getbool("mod_debugging") then
+	dofile(gamepath.."mod_debugging.lua")
+end

builtin/game/item.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/item.lua
+-- Minetest: builtin/item.lua
 
 local function copy_pointed_thing(pointed_thing)
 	return {
@@ -106,7 +106,7 @@ function core.facedir_to_dir(facedir)
 					{x=0, y=1, z=0}})
 
 					--indexed into by a table of correlating facedirs
-					[({[0]=1, 2, 3, 4,
+					[({[0]=1, 2, 3, 4, 
 						5, 2, 6, 4,
 						6, 2, 5, 4,
 						1, 5, 3, 6,
@@ -238,7 +238,7 @@ function core.item_place_node(itemstack, placer, pointed_thing, param2)
 
 	core.log("action", placer:get_player_name() .. " places node "
 		.. def.name .. " at " .. core.pos_to_string(place_to))
-
+	
 	local oldnode = core.get_node(place_to)
 	local newnode = {name = def.name, param1 = 0, param2 = param2}
 
@@ -273,7 +273,13 @@ function core.item_place_node(itemstack, placer, pointed_thing, param2)
 	end
 
 	-- Add node and update
-	core.add_node(place_to, newnode)
+	local olddef = core.registered_nodes[oldnode.name]
+	if olddef.leveled and olddef.leveled>0 and olddef.liquidtype ~= "none" and
+			(newnode.name == oldnode.name or newnode.name == olddef.liquid_alternative_flowing or newnode.name == olddef.liquid_alternative_source) then
+		core.add_node_level(place_to, olddef.leveled)
+	else
+		core.add_node(place_to, newnode)
+	end
 
 	local take_item = true
 
@@ -357,37 +363,19 @@ function core.item_drop(itemstack, dropper, pos)
 	return itemstack
 end
 
-function core.do_item_eat(hp_change, replace_with_item, itemstack, user, pointed_thing)
-	for _, callback in pairs(core.registered_on_item_eats) do
-		local result = callback(hp_change, replace_with_item, itemstack, user, pointed_thing)
-		if result then
-			return result
-		end
-	end
-	if itemstack:take_item() ~= nil then
-		user:set_hp(user:get_hp() + hp_change)
-
-		if replace_with_item then
-			if itemstack:is_empty() then
-				itemstack:add_item(replace_with_item)
-			else
-				local inv = user:get_inventory()
-				if inv:room_for_item("main", {name=replace_with_item}) then
-					inv:add_item("main", replace_with_item)
-				else
-					local pos = user:getpos()
-					pos.y = math.floor(pos.y + 0.5)
-					core.add_item(pos, replace_with_item)
-				end
-			end
-		end
-	end
-	return itemstack
-end
-
 function core.item_eat(hp_change, replace_with_item)
 	return function(itemstack, user, pointed_thing)  -- closure
-		return core.do_item_eat(hp_change, replace_with_item, itemstack, user, pointed_thing)
+		for _, callback in pairs(core.registered_on_item_eats) do
+			local result = callback(hp_change, replace_with_item, itemstack, user, pointed_thing)
+			if result then
+				return result
+			end
+		end
+		if itemstack:take_item() ~= nil then
+			user:set_hp(user:get_hp() + hp_change)
+			itemstack:add_item(replace_with_item) -- note: replace_with_item is optional
+		end
+		return itemstack
 	end
 end
 
@@ -443,7 +431,7 @@ function core.node_dig(pos, node, digger)
 
 	local wielded = digger:get_wielded_item()
 	local drops = core.get_node_drops(node.name, wielded:get_name())
-
+	
 	local wdef = wielded:get_definition()
 	local tp = wielded:get_tool_capabilities()
 	local dp = core.get_dig_params(def.groups, tp)
@@ -456,7 +444,7 @@ function core.node_dig(pos, node, digger)
 		end
 	end
 	digger:set_wielded_item(wielded)
-
+	
 	-- Handle drops
 	core.handle_node_drops(pos, drops, digger)
 
@@ -467,7 +455,7 @@ function core.node_dig(pos, node, digger)
 
 	-- Remove node and update
 	core.remove_node(pos)
-
+	
 	-- Run callback
 	if def.after_dig_node then
 		-- Copy pos and node because callback can modify them
@@ -525,7 +513,7 @@ core.nodedef_default = {
 	on_dig = redef_wrapper(core, 'node_dig'), -- core.node_dig
 
 	on_receive_fields = nil,
-
+	
 	on_metadata_inventory_move = core.node_metadata_inventory_move_allow_all,
 	on_metadata_inventory_offer = core.node_metadata_inventory_offer_allow_all,
 	on_metadata_inventory_take = core.node_metadata_inventory_take_allow_all,

builtin/game/item_entity.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/item_entity.lua
+-- Minetest: builtin/item_entity.lua
 
 function core.spawn_item(pos, item)
 	-- Take item in any format
@@ -13,7 +13,7 @@ end
 
 local time_to_live = tonumber(core.setting_get("item_entity_ttl"))
 if not time_to_live then
-	time_to_live = 900
+	time_to_live = -1
 end
 
 core.register_entity(":__builtin:item", {
@@ -108,7 +108,7 @@ core.register_entity(":__builtin:item", {
 		local nn = core.get_node(p).name
 		-- If node is not registered or node is walkably solid and resting on nodebox
 		local v = self.object:getvelocity()
-		if not core.registered_nodes[nn] or core.registered_nodes[nn].walkable and v.y == 0 then
+		if not core.registered_nodes[nn] or (core.registered_nodes[nn].walkable and core.get_item_group(nn, "slippery")==0) and v.y == 0 then
 			if self.physical_state then
 				local own_stack = ItemStack(self.object:get_luaentity().itemstring)
 				for _,object in ipairs(core.get_objects_inside_radius(p, 0.8)) do
@@ -171,6 +171,17 @@ core.register_entity(":__builtin:item", {
 				self.object:setacceleration({x = 0, y = -10, z = 0})
 				self.physical_state = true
 				self.object:set_properties({physical = true})
+			elseif core.get_item_group(nn, "slippery") ~= 0 then
+				if math.abs(v.x) < .2 and math.abs(v.z) < .2 then
+					self.object:setvelocity({x=0,y=0,z=0})
+					self.object:setacceleration({x=0, y=0, z=0})
+					self.physical_state = false
+					self.object:set_properties({
+						physical = false
+					})
+				else
+					self.object:setacceleration({x=-v.x, y=-10, z=-v.z})
+				end
 			end
 		end
 	end,

builtin/game/misc.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/misc.lua
+-- Minetest: builtin/misc.lua
 
 --
 -- Misc. API functions
@@ -11,6 +11,7 @@ core.register_globalstep(function(dtime)
 		table.insert(core.timers, timer)
 	end
 	core.timers_to_add = {}
+	local end_ms = os.clock() * 1000 + 50
 	local index = 1
 	while index <= #core.timers do
 		local timer = core.timers[index]
@@ -21,6 +22,7 @@ core.register_globalstep(function(dtime)
 		else
 			index = index + 1
 		end
+		if os.clock() * 1000 > end_ms then return end
 	end
 end)
 
@@ -60,8 +62,8 @@ function core.get_connected_players()
 	local temp_table = {}
 	for index, value in pairs(player_list) do
 		if value:is_player_connected() then
-			table.insert(temp_table, value)
+		table.insert(temp_table, value)
-		end
+	end
 	end
 	return temp_table
 end
@@ -112,3 +114,11 @@ function core.record_protection_violation(pos, name)
 	end
 end
 
+function freeminer.color(color)
+	assert(#color == 6, "Color must be six characters in length.")
+	return "\v" .. color
+end
+
+function freeminer.colorize(color, message)
+	return freeminer.color(color) .. message .. freeminer.color("ffffff")
+end

builtin/game/mod_debugging.lua

@@ -0,0 +1,126 @@
+-- Freeminer: builtin/game/mod_debugging.lua
+-- by rubenwardy
+
+local mod = {}
+mod.recipes = {}
+mod.aliases = {}
+
+core.log("action", 'Mod debugging enabled')
+-- Sees if there is a node with this group/these groups
+-- Supports AND view group:name, name
+local function group_exists(groupname)
+	local flags = groupname:split(",")
+	for name, def in pairs(core.registered_items) do
+		local flag = true
+		for k, v in pairs(flags) do
+			local g = def.groups and def.groups[v:gsub('%group:', '')] or 0
+			if not g or g <= 0 then
+				flag = false
+				break
+			end
+		end
+		if flag then
+			return true
+		end
+	end
+	return false
+end
+
+-- Check that the item exists
+function mod.assert(recipe, _name, output)
+	local name = mod.strip_name(_name)
+	if name == nil then
+		core.log('error', 'nil in recipe for '..mod.strip_name(output))
+		print(recipe.from)
+		return
+	end
+
+	if mod.aliases[name] ~= nil then
+		name = mod.aliases[name]
+	end
+
+	if core.registered_items[name] == nil and not group_exists(name) then
+		core.log( 'error', 'missing item '..name.." in recipe for "..mod.strip_name(output) )
+		print(recipe.from)
+	end
+end
+
+-- Turns a itemstack name into just its item name
+-- For example: "mod:item 99" -> "mod:item"
+function mod.strip_name(name)
+	if name == nil then
+		return
+	end
+
+	res = name:gsub('%"', '')
+
+	if res:sub(1, 1) == ":" then
+    	res = table.concat{res:sub(1, 1-1), "", res:sub(1+1)}
+	end
+
+	for str in string.gmatch(res, "([^ ]+)") do
+		if str ~= " " and str ~= nil then
+			res=str
+			break
+		end
+	end
+
+	if res == nil then
+		res=""
+	end
+
+	return res
+end
+
+-- Cycles through the recipe table, checking the items.
+-- Recursive
+function mod.check_recipe(recipe, table, output)
+	if type(table) == "table" then
+		for i=1,# table do
+			mod.check_recipe(recipe, table[i], output)
+		end
+	else
+		mod.assert(recipe, table,output)
+	end
+end
+
+-- Check recipes once the game has loaded
+core.after(0, function()
+for i=1, #mod.recipes do
+	if mod.recipes[i] and mod.recipes[i].output then
+		mod.assert(mod.recipes[i], mod.recipes[i].output, mod.recipes[i].output)
+
+		if type(mod.recipes[i].recipe) == "table" then
+			for a=1,# mod.recipes[i].recipe do
+				mod.check_recipe(mod.recipes[i], mod.recipes[i].recipe[a], mod.recipes[i].output)
+			end
+		else
+			mod.assert(mod.recipes[i], mod.recipes[i].recipe, mod.recipes[i].output)
+		end
+	end
+end
+end)
+
+-- Override register_craft to catch craft recipes
+local register_craft = core.register_craft
+core.register_craft = function(recipe)
+	register_craft(recipe)
+
+	local name = mod.strip_name(recipe.output)
+	recipe.from = debug.traceback()
+	if name~=nil then
+		table.insert(mod.recipes, recipe)
+	end
+end
+
+-- Override register_alias to catch aliases
+local register_alias = core.register_alias
+core.register_alias = function(new, old)
+	register_alias(new, old)
+
+	local name = mod.strip_name(new)
+	local name2 = mod.strip_name(old)
+	if name~=nil and name2~=nil then
+		mod.aliases[new] = old
+	end
+end

builtin/game/mod_profiling.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/game/mod_profiling.lua
+-- Minetest: builtin/game/mod_profiling.lua
 
 local mod_statistics = {}
 mod_statistics.step_total = 0

builtin/game/privileges.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/privileges.lua
+-- Minetest: builtin/privileges.lua
 
 --
 -- Privileges

builtin/game/register.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/misc_register.lua
+-- Minetest: builtin/misc_register.lua
 
 --
 -- Make raw registration functions inaccessible to anyone except this file
@@ -25,9 +25,9 @@ core.registered_aliases = {}
 -- For tables that are indexed by item name:
 -- If table[X] does not exist, default to table[core.registered_aliases[X]]
 local alias_metatable = {
-	__index = function(t, name)
+        __index = function(t, name)
-		return rawget(t, core.registered_aliases[name])
+                return rawget(t, core.registered_aliases[name])
-	end
+        end
 }
 setmetatable(core.registered_items, alias_metatable)
 setmetatable(core.registered_nodes, alias_metatable)
@@ -37,215 +37,215 @@ setmetatable(core.registered_tools, alias_metatable)
 -- These item names may not be used because they would interfere
 -- with legacy itemstrings
 local forbidden_item_names = {
-	MaterialItem = true,
+        MaterialItem = true,
-	MaterialItem2 = true,
+        MaterialItem2 = true,
-	MaterialItem3 = true,
+        MaterialItem3 = true,
-	NodeItem = true,
+        NodeItem = true,
-	node = true,
+        node = true,
-	CraftItem = true,
+        CraftItem = true,
-	craft = true,
+        craft = true,
-	MBOItem = true,
+        MBOItem = true,
-	ToolItem = true,
+        ToolItem = true,
-	tool = true,
+        tool = true,
 }
 
 local function check_modname_prefix(name)
-	if name:sub(1,1) == ":" then
+        if name:sub(1,1) == ":" then
-		-- Escape the modname prefix enforcement mechanism
+                -- Escape the modname prefix enforcement mechanism
-		return name:sub(2)
+                return name:sub(2)
-	else
+        else
-		-- Modname prefix enforcement
+                -- Modname prefix enforcement
-		local expected_prefix = core.get_current_modname() .. ":"
+                local expected_prefix = core.get_current_modname() .. ":"
-		if name:sub(1, #expected_prefix) ~= expected_prefix then
+                if name:sub(1, #expected_prefix) ~= expected_prefix then
-			error("Name " .. name .. " does not follow naming conventions: " ..
+                        error("Name " .. name .. " does not follow naming conventions: " ..
-				"\"modname:\" or \":\" prefix required")
+                                "\"modname:\" or \":\" prefix required")
-		end
+                end
-		local subname = name:sub(#expected_prefix+1)
+                local subname = name:sub(#expected_prefix+1)
-		if subname:find("[^abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_]") then
+                if subname:find("[^abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_]") then
-			error("Name " .. name .. " does not follow naming conventions: " ..
+                        error("Name " .. name .. " does not follow naming conventions: " ..
-				"contains unallowed characters")
+                                "contains unallowed characters")
-		end
+                end
-		return name
+                return name
-	end
+        end
 end
 
 function core.register_abm(spec)
-	-- Add to core.registered_abms
+        -- Add to core.registered_abms
-	core.registered_abms[#core.registered_abms+1] = spec
+        core.registered_abms[#core.registered_abms+1] = spec
 end
 
 function core.register_entity(name, prototype)
-	-- Check name
+        -- Check name
-	if name == nil then
+        if name == nil then
-		error("Unable to register entity: Name is nil")
+                error("Unable to register entity: Name is nil")
-	end
+        end
-	name = check_modname_prefix(tostring(name))
+        name = check_modname_prefix(tostring(name))
 
-	prototype.name = name
+        prototype.name = name
-	prototype.__index = prototype  -- so that it can be used as a metatable
+        prototype.__index = prototype  -- so that it can be used as a metatable
 
-	-- Add to core.registered_entities
+        -- Add to core.registered_entities
-	core.registered_entities[name] = prototype
+        core.registered_entities[name] = prototype
 end
 
 function core.register_item(name, itemdef)
-	-- Check name
+        -- Check name
-	if name == nil then
+        if name == nil then
-		error("Unable to register item: Name is nil")
+                error("Unable to register item: Name is nil")
-	end
+        end
-	name = check_modname_prefix(tostring(name))
+        name = check_modname_prefix(tostring(name))
-	if forbidden_item_names[name] then
+        if forbidden_item_names[name] then
-		error("Unable to register item: Name is forbidden: " .. name)
+                error("Unable to register item: Name is forbidden: " .. name)
-	end
+        end
-	itemdef.name = name
+        itemdef.name = name
 
-	-- Apply defaults and add to registered_* table
+        -- Apply defaults and add to registered_* table
-	if itemdef.type == "node" then
+        if itemdef.type == "node" then
-		-- Use the nodebox as selection box if it's not set manually
+                -- Use the nodebox as selection box if it's not set manually
-		if itemdef.drawtype == "nodebox" and not itemdef.selection_box then
+                if itemdef.drawtype == "nodebox" and not itemdef.selection_box then
-			itemdef.selection_box = itemdef.node_box
+                        itemdef.selection_box = itemdef.node_box
-		elseif itemdef.drawtype == "fencelike" and not itemdef.selection_box then
+                elseif itemdef.drawtype == "fencelike" and not itemdef.selection_box then
-			itemdef.selection_box = {
+                        itemdef.selection_box = {
-				type = "fixed",
+                                type = "fixed",
-				fixed = {-1/8, -1/2, -1/8, 1/8, 1/2, 1/8},
+                                fixed = {-1/8, -1/2, -1/8, 1/8, 1/2, 1/8},
-			}
+                        }
-		end
+                end
-		setmetatable(itemdef, {__index = core.nodedef_default})
+                setmetatable(itemdef, {__index = core.nodedef_default})
-		core.registered_nodes[itemdef.name] = itemdef
+                core.registered_nodes[itemdef.name] = itemdef
-	elseif itemdef.type == "craft" then
+        elseif itemdef.type == "craft" then
-		setmetatable(itemdef, {__index = core.craftitemdef_default})
+                setmetatable(itemdef, {__index = core.craftitemdef_default})
-		core.registered_craftitems[itemdef.name] = itemdef
+                core.registered_craftitems[itemdef.name] = itemdef
-	elseif itemdef.type == "tool" then
+        elseif itemdef.type == "tool" then
-		setmetatable(itemdef, {__index = core.tooldef_default})
+                setmetatable(itemdef, {__index = core.tooldef_default})
-		core.registered_tools[itemdef.name] = itemdef
+                core.registered_tools[itemdef.name] = itemdef
-	elseif itemdef.type == "none" then
+        elseif itemdef.type == "none" then
-		setmetatable(itemdef, {__index = core.noneitemdef_default})
+                setmetatable(itemdef, {__index = core.noneitemdef_default})
-	else
+        else
-		error("Unable to register item: Type is invalid: " .. dump(itemdef))
+                error("Unable to register item: Type is invalid: " .. dump(itemdef))
-	end
+        end
 
-	-- Flowing liquid uses param2
+        -- Flowing liquid uses param2
-	if itemdef.type == "node" and itemdef.liquidtype == "flowing" then
+        if itemdef.type == "node" and itemdef.liquidtype == "flowing" and itemdef.paramtype2 == nil then
-		itemdef.paramtype2 = "flowingliquid"
+                itemdef.paramtype2 = "flowingliquid"
-	end
+        end
 
-	-- BEGIN Legacy stuff
+        -- BEGIN Legacy stuff
-	if itemdef.cookresult_itemstring ~= nil and itemdef.cookresult_itemstring ~= "" then
+        if itemdef.cookresult_itemstring ~= nil and itemdef.cookresult_itemstring ~= "" then
-		core.register_craft({
+                core.register_craft({
-			type="cooking",
+                        type="cooking",
-			output=itemdef.cookresult_itemstring,
+                        output=itemdef.cookresult_itemstring,
-			recipe=itemdef.name,
+                        recipe=itemdef.name,
-			cooktime=itemdef.furnace_cooktime
+                        cooktime=itemdef.furnace_cooktime
-		})
+                })
-	end
+        end
-	if itemdef.furnace_burntime ~= nil and itemdef.furnace_burntime >= 0 then
+        if itemdef.furnace_burntime ~= nil and itemdef.furnace_burntime >= 0 then
-		core.register_craft({
+                core.register_craft({
-			type="fuel",
+                        type="fuel",
-			recipe=itemdef.name,
+                        recipe=itemdef.name,
-			burntime=itemdef.furnace_burntime
+                        burntime=itemdef.furnace_burntime
-		})
+                })
-	end
+        end
-	-- END Legacy stuff
+        -- END Legacy stuff
 
-	-- Disable all further modifications
+        -- Disable all further modifications
-	getmetatable(itemdef).__newindex = {}
+        getmetatable(itemdef).__newindex = {}
 
-	--core.log("Registering item: " .. itemdef.name)
+        --core.log("Registering item: " .. itemdef.name)
-	core.registered_items[itemdef.name] = itemdef
+        core.registered_items[itemdef.name] = itemdef
-	core.registered_aliases[itemdef.name] = nil
+        core.registered_aliases[itemdef.name] = nil
-	register_item_raw(itemdef)
+        register_item_raw(itemdef)
 end
 
 function core.register_node(name, nodedef)
-	nodedef.type = "node"
+        nodedef.type = "node"
-	core.register_item(name, nodedef)
+        core.register_item(name, nodedef)
 end
 
 function core.register_craftitem(name, craftitemdef)
-	craftitemdef.type = "craft"
+        craftitemdef.type = "craft"
 
-	-- BEGIN Legacy stuff
+        -- BEGIN Legacy stuff
-	if craftitemdef.inventory_image == nil and craftitemdef.image ~= nil then
+        if craftitemdef.inventory_image == nil and craftitemdef.image ~= nil then
-		craftitemdef.inventory_image = craftitemdef.image
+                craftitemdef.inventory_image = craftitemdef.image
-	end
+        end
-	-- END Legacy stuff
+        -- END Legacy stuff
 
-	core.register_item(name, craftitemdef)
+        core.register_item(name, craftitemdef)
 end
 
 function core.register_tool(name, tooldef)
-	tooldef.type = "tool"
+        tooldef.type = "tool"
-	tooldef.stack_max = 1
+        tooldef.stack_max = 1
 
-	-- BEGIN Legacy stuff
+        -- BEGIN Legacy stuff
-	if tooldef.inventory_image == nil and tooldef.image ~= nil then
+        if tooldef.inventory_image == nil and tooldef.image ~= nil then
-		tooldef.inventory_image = tooldef.image
+                tooldef.inventory_image = tooldef.image
-	end
+        end
-	if tooldef.tool_capabilities == nil and
+        if tooldef.tool_capabilities == nil and
-	   (tooldef.full_punch_interval ~= nil or
+           (tooldef.full_punch_interval ~= nil or
-	    tooldef.basetime ~= nil or
+            tooldef.basetime ~= nil or
-	    tooldef.dt_weight ~= nil or
+            tooldef.dt_weight ~= nil or
-	    tooldef.dt_crackiness ~= nil or
+            tooldef.dt_crackiness ~= nil or
-	    tooldef.dt_crumbliness ~= nil or
+            tooldef.dt_crumbliness ~= nil or
-	    tooldef.dt_cuttability ~= nil or
+            tooldef.dt_cuttability ~= nil or
-	    tooldef.basedurability ~= nil or
+            tooldef.basedurability ~= nil or
-	    tooldef.dd_weight ~= nil or
+            tooldef.dd_weight ~= nil or
-	    tooldef.dd_crackiness ~= nil or
+            tooldef.dd_crackiness ~= nil or
-	    tooldef.dd_crumbliness ~= nil or
+            tooldef.dd_crumbliness ~= nil or
-	    tooldef.dd_cuttability ~= nil) then
+            tooldef.dd_cuttability ~= nil) then
-		tooldef.tool_capabilities = {
+                tooldef.tool_capabilities = {
-			full_punch_interval = tooldef.full_punch_interval,
+                        full_punch_interval = tooldef.full_punch_interval,
-			basetime = tooldef.basetime,
+                        basetime = tooldef.basetime,
-			dt_weight = tooldef.dt_weight,
+                        dt_weight = tooldef.dt_weight,
-			dt_crackiness = tooldef.dt_crackiness,
+                        dt_crackiness = tooldef.dt_crackiness,
-			dt_crumbliness = tooldef.dt_crumbliness,
+                        dt_crumbliness = tooldef.dt_crumbliness,
-			dt_cuttability = tooldef.dt_cuttability,
+                        dt_cuttability = tooldef.dt_cuttability,
-			basedurability = tooldef.basedurability,
+                        basedurability = tooldef.basedurability,
-			dd_weight = tooldef.dd_weight,
+                        dd_weight = tooldef.dd_weight,
-			dd_crackiness = tooldef.dd_crackiness,
+                        dd_crackiness = tooldef.dd_crackiness,
-			dd_crumbliness = tooldef.dd_crumbliness,
+                        dd_crumbliness = tooldef.dd_crumbliness,
-			dd_cuttability = tooldef.dd_cuttability,
+                        dd_cuttability = tooldef.dd_cuttability,
-		}
+                }
-	end
+        end
-	-- END Legacy stuff
+        -- END Legacy stuff
 
-	core.register_item(name, tooldef)
+        core.register_item(name, tooldef)
 end
 
 function core.register_alias(name, convert_to)
-	if forbidden_item_names[name] then
+        if forbidden_item_names[name] then
-		error("Unable to register alias: Name is forbidden: " .. name)
+                error("Unable to register alias: Name is forbidden: " .. name)
-	end
+        end
-	if core.registered_items[name] ~= nil then
+        if core.registered_items[name] ~= nil then
-		core.log("WARNING: Not registering alias, item with same name" ..
+                core.log("WARNING: Not registering alias, item with same name" ..
-			" is already defined: " .. name .. " -> " .. convert_to)
+                        " is already defined: " .. name .. " -> " .. convert_to)
-	else
+        else
-		--core.log("Registering alias: " .. name .. " -> " .. convert_to)
+                --core.log("Registering alias: " .. name .. " -> " .. convert_to)
-		core.registered_aliases[name] = convert_to
+                core.registered_aliases[name] = convert_to
-		register_alias_raw(name, convert_to)
+                register_alias_raw(name, convert_to)
-	end
+        end
 end
 
 function core.on_craft(itemstack, player, old_craft_list, craft_inv)
-	for _, func in ipairs(core.registered_on_crafts) do
+        for _, func in ipairs(core.registered_on_crafts) do
-		itemstack = func(itemstack, player, old_craft_list, craft_inv) or itemstack
+                itemstack = func(itemstack, player, old_craft_list, craft_inv) or itemstack
-	end
+        end
-	return itemstack
+        return itemstack
 end
 
 function core.craft_predict(itemstack, player, old_craft_list, craft_inv)
-	for _, func in ipairs(core.registered_craft_predicts) do
+        for _, func in ipairs(core.registered_craft_predicts) do
-		itemstack = func(itemstack, player, old_craft_list, craft_inv) or itemstack
+                itemstack = func(itemstack, player, old_craft_list, craft_inv) or itemstack
-	end
+        end
-	return itemstack
+        return itemstack
 end
 
 -- Alias the forbidden item names to "" so they can't be
 -- created via itemstrings (e.g. /give)
 local name
 for name in pairs(forbidden_item_names) do
-	core.registered_aliases[name] = ""
+        core.registered_aliases[name] = ""
-	register_alias_raw(name, "")
+        register_alias_raw(name, "")
 end
 
 
@@ -260,108 +260,111 @@ end
 --
 
 core.register_item(":unknown", {
-	type = "none",
+        type = "none",
-	description = "Unknown Item",
+        walkable = true,
-	inventory_image = "unknown_item.png",
+        description = "Unknown Item",
-	on_place = core.item_place,
+        tiles = {"trans.png"},
-	on_drop = core.item_drop,
+        inventory_image = "unknown_item.png",
-	groups = {not_in_creative_inventory=1},
+        on_place = core.item_place,
-	diggable = true,
+        on_drop = core.item_drop,
+        groups = {not_in_creative_inventory=1},
+        diggable = true,
+        pointable = false,
 })
 
 core.register_node(":air", {
-	description = "Air (you hacker you!)",
+        description = "Air (you hacker you!)",
-	inventory_image = "unknown_node.png",
+        inventory_image = "unknown_node.png",
-	wield_image = "unknown_node.png",
+        wield_image = "unknown_node.png",
-	drawtype = "airlike",
+        drawtype = "airlike",
-	paramtype = "light",
+        paramtype = "light",
-	sunlight_propagates = true,
+        sunlight_propagates = true,
-	walkable = false,
+        walkable = false,
-	pointable = false,
+        pointable = false,
-	diggable = false,
+        diggable = false,
-	buildable_to = true,
+        buildable_to = true,
-	air_equivalent = true,
+        air_equivalent = true,
-	drop = "",
+        drop = "",
-	groups = {not_in_creative_inventory=1},
+        groups = {not_in_creative_inventory=1},
 })
 
 core.register_node(":ignore", {
-	description = "Ignore (you hacker you!)",
+        description = "Ignore (you hacker you!)",
-	inventory_image = "unknown_node.png",
+        inventory_image = "unknown_node.png",
-	wield_image = "unknown_node.png",
+        wield_image = "unknown_node.png",
-	drawtype = "airlike",
+        drawtype = "airlike",
-	paramtype = "none",
+        paramtype = "none",
-	sunlight_propagates = false,
+        sunlight_propagates = false,
-	walkable = false,
+        walkable = false,
-	pointable = false,
+        pointable = false,
-	diggable = false,
+        diggable = false,
-	buildable_to = true, -- A way to remove accidentally placed ignores
+        buildable_to = true, -- A way to remove accidentally placed ignores
-	air_equivalent = true,
+        air_equivalent = true,
-	drop = "",
+        drop = "",
-	groups = {not_in_creative_inventory=1},
+        groups = {not_in_creative_inventory=1},
 })
 
 -- The hand (bare definition)
 core.register_item(":", {
-	type = "none",
+        type = "none",
-	groups = {not_in_creative_inventory=1},
+        groups = {not_in_creative_inventory=1},
 })
 
 
 function core.override_item(name, redefinition)
-	if redefinition.name ~= nil then
+        if redefinition.name ~= nil then
-		error("Attempt to redefine name of "..name.." to "..dump(redefinition.name), 2)
+                error("Attempt to redefine name of "..name.." to "..dump(redefinition.name), 2)
-	end
+        end
-	if redefinition.type ~= nil then
+        if redefinition.type ~= nil then
-		error("Attempt to redefine type of "..name.." to "..dump(redefinition.type), 2)
+                error("Attempt to redefine type of "..name.." to "..dump(redefinition.type), 2)
-	end
+        end
-	local item = core.registered_items[name]
+        local item = core.registered_items[name]
-	if not item then
+        if not item then
-		error("Attempt to override non-existent item "..name, 2)
+                error("Attempt to override non-existent item "..name, 2)
-	end
+        end
-	for k, v in pairs(redefinition) do
+        for k, v in pairs(redefinition) do
-		rawset(item, k, v)
+                rawset(item, k, v)
-	end
+        end
-	register_item_raw(item)
+        register_item_raw(item)
 end
 
 
 function core.run_callbacks(callbacks, mode, ...)
-	assert(type(callbacks) == "table")
+        assert(type(callbacks) == "table")
-	local cb_len = #callbacks
+        local cb_len = #callbacks
-	if cb_len == 0 then
+        if cb_len == 0 then
-		if mode == 2 or mode == 3 then
+                if mode == 2 or mode == 3 then
-			return true
+                        return true
-		elseif mode == 4 or mode == 5 then
+                elseif mode == 4 or mode == 5 then
-			return false
+                        return false
-		end
+                end
-	end
+        end
-	local ret = nil
+        local ret = nil
-	for i = 1, cb_len do
+        for i = 1, cb_len do
-		local cb_ret = callbacks[i](...)
+                local cb_ret = callbacks[i](...)
 
-		if mode == 0 and i == 1 then
+                if mode == 0 and i == 1 then
-			ret = cb_ret
+                        ret = cb_ret
-		elseif mode == 1 and i == cb_len then
+                elseif mode == 1 and i == cb_len then
-			ret = cb_ret
+                        ret = cb_ret
-		elseif mode == 2 then
+                elseif mode == 2 then
-			if not cb_ret or i == 1 then
+                        if not cb_ret or i == 1 then
-				ret = cb_ret
+                                ret = cb_ret
-			end
+                        end
-		elseif mode == 3 then
+                elseif mode == 3 then
-			if cb_ret then
+                        if cb_ret then
-				return cb_ret
+                                return cb_ret
-			end
+                        end
-			ret = cb_ret
+                        ret = cb_ret
-		elseif mode == 4 then
+                elseif mode == 4 then
-			if (cb_ret and not ret) or i == 1 then
+                        if (cb_ret and not ret) or i == 1 then
-				ret = cb_ret
+                                ret = cb_ret
-			end
+                        end
-		elseif mode == 5 and cb_ret then
+                elseif mode == 5 and cb_ret then
-			return cb_ret
+                        return cb_ret
-		end
+                end
-	end
+        end
-	return ret
+        return ret
 end
 
 --
@@ -369,42 +372,40 @@ end
 --
 
 local function make_registration()
-	local t = {}
+        local t = {}
-	local registerfunc = function(func) table.insert(t, func) end
+        local registerfunc = function(func) table.insert(t, func) end
-	return t, registerfunc
+        return t, registerfunc
 end
 
 local function make_registration_reverse()
-	local t = {}
+        local t = {}
-	local registerfunc = function(func) table.insert(t, 1, func) end
+        local registerfunc = function(func) table.insert(t, 1, func) end
-	return t, registerfunc
+        return t, registerfunc
 end
 
 local function make_registration_wrap(reg_fn_name, clear_fn_name)
-	local list = {}
+        local list = {}
 
-	local orig_reg_fn = core[reg_fn_name]
+        local orig_reg_fn = core[reg_fn_name]
-	core[reg_fn_name] = function(def)
+        core[reg_fn_name] = function(def)
-		local retval = orig_reg_fn(def)
+                local retval = orig_reg_fn(def)
-		if retval ~= nil then
+                if retval ~= nil then
-			if def.name ~= nil then
+                        if def.name ~= nil then
-				list[def.name] = def
+                                list[def.name] = def
-			else
+                        else
-				list[retval] = def
+                                list[retval] = def
-			end
+                        end
-		end
+                end
-		return retval
+                return retval
-	end
+        end
 
-	local orig_clear_fn = core[clear_fn_name]
+        local orig_clear_fn = core[clear_fn_name]
-	core[clear_fn_name] = function()
+        core[clear_fn_name] = function()
-		for k in pairs(list) do
+                list = {}
-			list[k] = nil
+                return orig_clear_fn()
-		end
+        end
-		return orig_clear_fn()
-	end
 
-	return list
+        return list
 end
 
 core.registered_biomes      = make_registration_wrap("register_biome",      "clear_registered_biomes")
@@ -420,6 +421,7 @@ core.registered_on_placenodes, core.register_on_placenode = make_registration()
 core.registered_on_dignodes, core.register_on_dignode = make_registration()
 core.registered_on_generateds, core.register_on_generated = make_registration()
 core.registered_on_newplayers, core.register_on_newplayer = make_registration()
+core.registered_on_open_inventories, core.register_on_open_inventory = make_registration()
 core.registered_on_dieplayers, core.register_on_dieplayer = make_registration()
 core.registered_on_respawnplayers, core.register_on_respawnplayer = make_registration()
 core.registered_on_prejoinplayers, core.register_on_prejoinplayer = make_registration()
@@ -432,6 +434,38 @@ core.registered_craft_predicts, core.register_craft_predict = make_registration(
 core.registered_on_protection_violation, core.register_on_protection_violation = make_registration()
 core.registered_on_item_eats, core.register_on_item_eat = make_registration()
 
+minetest.register_on_joinplayer(function(player)
+        if minetest.is_singleplayer() then
+                return
+        end
+        local player_name =  player:get_player_name()
+        minetest.chat_send_all("*** " .. player_name .. " joined the game.")
+end)
+
+minetest.register_on_dieplayer(function(player)
+        local player_name =  player:get_player_name()
+        if minetest.is_singleplayer() then
+                player_name = "You"
+        end
+
+        -- Idea from https://github.com/4Evergreen4/death_messages
+        -- Death by lava
+        local nodename = minetest.get_node(player:getpos()).name
+        if nodename == "default:lava_source" or nodename == "default:lava_flowing" then
+                minetest.chat_send_all(player_name .. " melted into a ball of fire.")
+        -- Death by drowning
+        elseif nodename == "default:water_source" or nodename == "default:water_flowing" then
+                minetest.chat_send_all(player_name .. " ran out of air.")
+        --Death by fire
+        elseif nodename == "fire:basic_flame" then
+                minetest.chat_send_all(player_name .. " burned up.")
+        --Death by something else
+        else
+                minetest.chat_send_all(player_name .. " \vbb0000died.")
+        end
+
+end)
+
 --
 -- Compatibility for on_mapgen_init()
 --

builtin/game/stat.lua

@@ -0,0 +1,75 @@
+-- TODO: move this function to builtin/common/misc_helpers.lua
+--
+-- Formats numbers according to SI multiplies and
+-- appends a correspending prefix symbol (e.g. 1234000 -> 1.234 M)
+function string.number_to_si(value, precision)
+	precision = precision or 3
+	local symbol = { "Y", "Z", "E", "P", "T", "G", "M", "k" }
+	local multiplies = { 10^24, 10^21, 10^18, 10^15, 10^12, 10^9, 10^6, 10^3 }
+
+	local abs_value = math.abs(value)
+	for k,v in ipairs(multiplies) do
+		if abs_value >= v then
+			return string.format("%."..precision.."f "..symbol[k], value / v)
+		end
+	end
+	return math.ceil(value)
+end
+
+-- returns formspec with table of stats
+function core.stat_formspec(name)
+	local stat_table = {
+		chat = "Messages",
+		craft = "Crafted",
+		damage = "Damage",
+		die = "Deaths",
+		dig = "Digged",
+		drop = "Dropped",
+		join = "Join",
+		move = "Traveled",
+		place = "Placed",
+		punch = "Punches",
+		use = "Uses",
+	}
+
+	local formspec
+	local y = -.1
+
+	if core.is_singleplayer() then
+		-- collumns
+		local x = { .25, 1.8 }
+		formspec = "size[3.2,4.6]"
+			.."label["..x[1]..","..y..";Stat]"
+			.."label["..x[2]..","..y..";Value]"
+			.."label[-.25,"..(y+0.1)..";"..string.rep("_", 45).."]"
+		y = y + 0.2
+		for key, eng_name in pairs(stat_table) do
+			-- leading
+			y = y + 0.4
+			formspec = formspec
+				.."label["..x[1]..","..y..";"..eng_name.."]"
+				.."label["..x[2]..","..y..";"
+				..string.number_to_si(core.stat_get("player|"..key.."|"..name)).."]"
+		end
+	else
+		-- collumns
+		local x = { .25, 1.8, 3.5 }
+		formspec = "size[4.9,4.6]"
+			.."label["..x[1]..","..y..";Stat]"
+			.."label["..x[2]..","..y..";Player]"
+			.."label["..x[3]..","..y..";Total]"
+			.."label[-.25,"..(y+0.1)..";"..string.rep("_", 60).."]"
+		y = y + 0.2
+		for key, eng_name in pairs(stat_table) do
+			-- leading
+			y = y + 0.4
+			formspec = formspec
+				.."label["..x[1]..","..y..";"..eng_name.."]"
+				.."label["..x[2]..","..y..";"
+				..string.number_to_si(core.stat_get("player|"..key.."|"..name)).."]"
+				.."label["..x[3]..","..y..";"
+				..string.number_to_si(core.stat_get("total|"..key), 4).."]"
+		end
+	end
+	return formspec
+end

builtin/game/static_spawn.lua

@@ -1,4 +1,4 @@
--- multicraft: builtin/static_spawn.lua
+-- Minetest: builtin/static_spawn.lua
 
 local function warn_invalid_static_spawnpoint()
 	if core.setting_get("static_spawnpoint") and

builtin/init.lua

@@ -1,5 +1,5 @@
 --
--- This file contains built-in stuff in multicraft implemented in Lua.
+-- This file contains built-in stuff in Minetest implemented in Lua.
 --
 -- It is always loaded and executed after registration of the C API,
 -- before loading and running any mods.
@@ -9,7 +9,9 @@
 print = core.debug
 math.randomseed(os.time())
 os.setlocale("C", "numeric")
-multicraft = core
+minetest = core
+freeminer = core
+magichet = core
 
 -- Load other files
 local scriptdir = core.get_builtin_path()..DIR_DELIM
@@ -17,10 +19,15 @@ local gamepath = scriptdir.."game"..DIR_DELIM
 local commonpath = scriptdir.."common"..DIR_DELIM
 local asyncpath = scriptdir.."async"..DIR_DELIM
 
+--dofile(scriptdir.."profiler.lua") --TODO: repair me
+--[[ too buggy
 dofile(commonpath.."strict.lua")
+]]
 dofile(commonpath.."serialize.lua")
 dofile(commonpath.."misc_helpers.lua")
 
+dofile(scriptdir.."key_value_storage.lua")
+
 if INIT == "game" then
 	dofile(gamepath.."init.lua")
 elseif INIT == "mainmenu" then
@@ -28,7 +35,7 @@ elseif INIT == "mainmenu" then
 	if mainmenuscript ~= nil and mainmenuscript ~= "" then
 		dofile(mainmenuscript)
 	else
-		dofile(core.get_mainmenu_path()..DIR_DELIM.."init.lua")
+		dofile(core.get_mainmenu_path()..DIR_DELIM.."fm_init.lua")
 	end
 elseif INIT == "async" then
 	dofile(asyncpath.."init.lua")

builtin/key_value_storage.lua

@@ -0,0 +1,26 @@
+--
+-- Key-value storage stuff
+--
+
+function core.kv_put(key, data)
+    local json = core.write_json(data)
+    if not json then
+        core.log("error", "kv_put: Error in json serialize key=".. key .. " luaized_data=" .. core.serialize(data))
+        return
+    end
+    return core.kv_put_string(key, json)
+end
+
+function core.kv_get(key)
+    local data = core.kv_get_string(key)
+    if data ~= nil then
+        data = core.parse_json(data)
+    end
+    return data
+end
+
+function core.kv_rename(key1, key2)
+    local data = core.kv_get_string(key1)
+    core.kv_delete(key1)
+    core.kv_put_string(key2, data)
+end

builtin/mainmenu/common.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -16,278 +16,206 @@
 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 --------------------------------------------------------------------------------
 -- Global menu data
---------------------------------------------------------------------------------
+---------------------------------------------------------------------------------
 menudata = {}
 
---------------------------------------------------------------------------------
--- Local cached values
---------------------------------------------------------------------------------
-local min_supp_proto = core.get_min_supp_proto()
-local max_supp_proto = core.get_max_supp_proto()
-
 --------------------------------------------------------------------------------
 -- Menu helper functions
 --------------------------------------------------------------------------------
 
 --------------------------------------------------------------------------------
 local function render_client_count(n)
-	n = tonumber(n)	
+        if tonumber(n) > 99 then
-	if n > 99 then
+                return '99+'
-		return '99+'
+        elseif tonumber(n) >= 0 then
-	elseif n >= 0 then
+                return tostring(n)
-		return tostring(n)
+        else
-	else
+                return '?'
-		return '?'
+        end
-	end
-end
-
-local function configure_selected_world_params(idx)
-	local worldconfig = modmgr.get_worldconfig(
-		menudata.worldlist:get_list()[idx].path)
-
-	if worldconfig.creative_mode ~= nil then
-		core.setting_set("creative_mode", worldconfig.creative_mode)
-	end
-	if worldconfig.enable_damage ~= nil then
-		core.setting_set("enable_damage", worldconfig.enable_damage)
-	end
-end
-
---------------------------------------------------------------------------------
-function image_column(tooltip, flagname)
-	return "image," ..
-		"tooltip=" .. core.formspec_escape(tooltip) .. "," ..
-		"0=" .. core.formspec_escape(defaulttexturedir .. "blank.png") .. "," ..
-		"1=" .. core.formspec_escape(defaulttexturedir .. "server_flags_" .. flagname .. ".png")
-end
-
---------------------------------------------------------------------------------
-function order_favorite_list(list)
-	local res = {}
-	--orders the favorite list after support
-	for i=1,#list,1 do
-		local fav = list[i]
-		if is_server_protocol_compat(tonumber(fav.proto_min), tonumber(fav.proto_max)) then
-			table.insert(res, fav)
-		end
-	end
-	for i=1,#list,1 do
-		local fav = list[i]
-		if not is_server_protocol_compat(tonumber(fav.proto_min), tonumber(fav.proto_max)) then
-			table.insert(res, fav)
-		end
-	end
-	return res
 end
 
 --------------------------------------------------------------------------------
 function render_favorite(spec,render_details)
-	local text = ""
+        local text = ""
 
-	if spec.name ~= nil then
+        if spec.name ~= nil then
-		text = text .. core.formspec_escape(spec.name:trim())
+                text = text .. core.formspec_escape(spec.name:trim())
 
---		if spec.description ~= nil and
+--              if spec.description ~= nil and
---			core.formspec_escape(spec.description):trim() ~= "" then
+--                      core.formspec_escape(spec.description):trim() ~= "" then
---			text = text .. " (" .. core.formspec_escape(spec.description) .. ")"
+--                      text = text .. " (" .. core.formspec_escape(spec.description) .. ")"
---		end
+--              end
-	else
+        else
-		if spec.address ~= nil then
+                if spec.address ~= nil then
-			text = text .. spec.address:trim()
+                        text = text .. spec.address:trim()
 
-			if spec.port ~= nil then
+                        if spec.port ~= nil then
-				text = text .. ":" .. spec.port
+                                text = text .. ":" .. spec.port
-			end
+                        end
-		end
+                end
-	end
+        end
 
-	if not render_details then
+        local details = ""
-		return text
-	end
 
-	local details = ""
+        if spec.clients ~= nil and spec.clients_max ~= nil then
-	local grey_out = not is_server_protocol_compat(tonumber(spec.proto_max), tonumber(spec.proto_min))
+                local clients_color = ''
+                local clients_percent = 100 * spec.clients / spec.clients_max
 
-	if spec.clients ~= nil and spec.clients_max ~= nil then
+                -- Choose a color depending on how many clients are connected
-		local clients_color = ''
+                -- (relatively to clients_max)
-		local clients_percent = 100 * spec.clients / spec.clients_max
+                if spec.clients == 0 then
+                        clients_color = ''        -- 0 players: default/white
+                elseif spec.clients == spec.clients_max then
+                        clients_color = '#dd5b5b' -- full server: red (darker)
+                elseif clients_percent <= 60 then
+                        clients_color = '#a1e587' -- 0-60%: green
+                elseif clients_percent <= 90 then
+                        clients_color = '#ffdc97' -- 60-90%: yellow
+                else
+                        clients_color = '#ffba97' -- 90-100%: orange
+                end
 
-		-- Choose a color depending on how many clients are connected
+                details = details ..
-		-- (relatively to clients_max)
+                                clients_color .. ',' ..
-		if spec.clients == 0 then
+                                render_client_count(spec.clients) .. ',' ..
-			clients_color = ''        -- 0 players: default/white
+                                '/,' ..
-		elseif spec.clients == spec.clients_max then
+                                render_client_count(spec.clients_max) .. ','
-			clients_color = '#dd5b5b' -- full server: red (darker)
+        else
-		elseif clients_percent <= 60 then
+                details = details .. ',?,/,?,'
-			clients_color = '#a1e587' -- 0-60%: green
+        end
-		elseif clients_percent <= 90 then
-			clients_color = '#ffdc97' -- 60-90%: yellow
-		else
-			clients_color = '#ffba97' -- 90-100%: orange
-		end
 
-		if grey_out then
+        if spec.creative then
-			clients_color = '#aaaaaa'
+                details = details .. "1,"
-		end
+        else
+                details = details .. "0,"
+        end
 
-		details = details ..
+        if spec.damage then
-				clients_color .. ',' ..
+                details = details .. "1,"
-				render_client_count(spec.clients) .. ',' ..
+        else
-				'/,' ..
+                details = details .. "0,"
-				render_client_count(spec.clients_max) .. ','
+        end
-	elseif grey_out then
-		details = details .. '#aaaaaa,?,/,?,'
-	else
-		details = details .. ',?,/,?,'
-	end
 
-	if spec.creative then
+        if spec.pvp then
-		details = details .. "1,"
+                details = details .. "1,"
-	else
+        else
-		details = details .. "0,"
+                details = details .. "0,"
-	end
+        end
 
-	if spec.damage then
+        details = details .. text
-		details = details .. "1,"
+    return details
-	else
-		details = details .. "0,"
-	end
-
-	if spec.pvp then
-		details = details .. "1,"
-	else
-		details = details .. "0,"
-	end
-
-	return details .. (grey_out and '#aaaaaa,' or ',') .. text
 end
 
 --------------------------------------------------------------------------------
 os.tempfolder = function()
-	if core.setting_get("TMPFolder") then
+        if core.setting_get("TMPFolder") then
-		return core.setting_get("TMPFolder") .. DIR_DELIM .. "MT_" .. math.random(0,10000)
+                return core.setting_get("TMPFolder") .. DIR_DELIM .. "MT_" .. math.random(0,10000)
-	end
+        end
 
-	local filetocheck = os.tmpname()
+        local filetocheck = os.tmpname()
-	os.remove(filetocheck)
+        os.remove(filetocheck)
 
-	local randname = "MTTempModFolder_" .. math.random(0,10000)
+        local randname = "MTTempModFolder_" .. math.random(0,10000)
-	if DIR_DELIM == "\\" then
+        if DIR_DELIM == "\\" then
-		local tempfolder = os.getenv("TEMP")
+                local tempfolder = os.getenv("TEMP")
-		return tempfolder .. filetocheck
+                return tempfolder .. filetocheck
-	else
+        else
-		local backstring = filetocheck:reverse()
+                local backstring = filetocheck:reverse()
-		return filetocheck:sub(0,filetocheck:len()-backstring:find(DIR_DELIM)+1) ..randname
+                return filetocheck:sub(0,filetocheck:len()-backstring:find(DIR_DELIM)+1) ..randname
-	end
+        end
 
 end
 
 --------------------------------------------------------------------------------
 function menu_render_worldlist()
-	local retval = ""
+        local retval = ""
 
-	local current_worldlist = menudata.worldlist:get_list()
+        local current_worldlist = menudata.worldlist:get_list()
 
-	for i,v in ipairs(current_worldlist) do
+        for i,v in ipairs(current_worldlist) do
-		if retval ~= "" then
+                if retval ~= "" then
-			retval = retval ..","
+                        retval = retval ..","
-		end
+                end
 
-		retval = retval .. core.formspec_escape(v.name) ..
+                retval = retval .. core.formspec_escape(v.name) ..
-					" \\[" .. core.formspec_escape(v.gameid) .. "\\]"
+                                        " \\[" .. core.formspec_escape(v.gameid) .. "\\]"
-	end
+        end
 
-	return retval
+        return retval
 end
 
 --------------------------------------------------------------------------------
 function menu_handle_key_up_down(fields,textlist,settingname)
-	if fields["key_up"] then
-		local oldidx = core.get_textlist_index(textlist)
 
-		if oldidx ~= nil and oldidx > 1 then
+        if fields["key_up"] then
-			local newidx = oldidx -1
+                local oldidx = core.get_textlist_index(textlist)
-			core.setting_set(settingname,
-				menudata.worldlist:get_raw_index(newidx))
 
-			configure_selected_world_params(newidx)
+                if oldidx ~= nil and oldidx > 1 then
-		end
+                        local newidx = oldidx -1
-		return true
+                        core.setting_set(settingname,
-	end
+                                menudata.worldlist:get_raw_index(newidx))
+                end
+                return true
+        end
 
-	if fields["key_down"] then
+        if fields["key_down"] then
-		local oldidx = core.get_textlist_index(textlist)
+                local oldidx = core.get_textlist_index(textlist)
 
-		if oldidx ~= nil and oldidx < menudata.worldlist:size() then
+                if oldidx ~= nil and oldidx < menudata.worldlist:size() then
-			local newidx = oldidx + 1
+                        local newidx = oldidx + 1
-			core.setting_set(settingname,
+                        core.setting_set(settingname,
-				menudata.worldlist:get_raw_index(newidx))
+                                menudata.worldlist:get_raw_index(newidx))
+                end
 
-			configure_selected_world_params(newidx)
+                return true
-		end
+        end
-		
+
-		return true
+        return false
-	end
-	
-	return false
 end
 
 --------------------------------------------------------------------------------
 function asyncOnlineFavourites()
 
-    menudata.favorites = {}
+        menudata.favorites = {}
-    core.handle_async(
+        core.handle_async(
-        function(param)
+                function(param)
-            return core.get_favorites("online")
+                      local ret = core.get_favorites("online")
-        end,
+                      local num = core.get_favorites("local")
-        nil,
+                      local cou = 0
-        function(result)
+                      for k,v in ipairs(core.get_favorites("local")) do
-            if core.setting_getbool("public_serverlist") then
+                          cou = cou+1
-                menudata.favorites = order_favorite_list(result)
+                          table.insert(ret,cou,v)
-                core.event_handler("Refresh")
+                      end
-            end
+                      return ret
-        end
+                end,
-        )
+                nil,
+                function(result)
+                   menudata.favorites = result
+                   core.event_handler("Refresh")
+                end
+                )
 end
 
 --------------------------------------------------------------------------------
 function text2textlist(xpos,ypos,width,height,tl_name,textlen,text,transparency)
-    local textlines = core.splittext(text,textlen)
+        local textlines = core.splittext(text,textlen)
 
-    local retval = "textlist[" .. xpos .. "," .. ypos .. ";"
+        local retval = "textlist[" .. xpos .. "," .. ypos .. ";"
-                                .. width .. "," .. height .. ";"
+                                                                .. width .. "," .. height .. ";"
-                                .. tl_name .. ";"
+                                                                .. tl_name .. ";"
 
-    for i=1, #textlines, 1 do
+        for i=1, #textlines, 1 do
-        textlines[i] = textlines[i]:gsub("\r","")
+                textlines[i] = textlines[i]:gsub("\r","")
-        retval = retval .. core.formspec_escape(textlines[i]) .. ","
+                retval = retval .. core.formspec_escape(textlines[i]) .. ","
-    end
+        end
 
-    retval = retval .. ";0;"
+        retval = retval .. ";0;"
 
-    if transparency then
+        if transparency then
-        retval = retval .. "true"
+                retval = retval .. "true"
-    end
+        end
 
-    retval = retval .. "]"
+        retval = retval .. "]"
 
-    return retval
+        return retval
-end
-
---------------------------------------------------------------------------------
-function is_server_protocol_compat(proto_min, proto_max)
-    return not ((min_supp_proto > (proto_max or 24)) or (max_supp_proto < (proto_min or 13)))
-end
---------------------------------------------------------------------------------
-function is_server_protocol_compat_or_error(proto_min, proto_max)
-    if not is_server_protocol_compat(proto_min, proto_max) then
-        gamedata.errormessage = fgettext_ne("Protocol version mismatch, server " ..
-            ((proto_min ~= proto_max) and "supports protocols between $1 and $2" or "enforces protocol version $1") ..
-            ", we " ..
-            ((min_supp_proto ~= max_supp_proto) and "support protocols between version $3 and $4." or "only support protocol version $3"),
-            proto_min or 13, proto_max or 24, min_supp_proto, max_supp_proto)
-        return false
-    end
-
-    return true
 end

builtin/mainmenu/dlg_add_server.lua

@@ -0,0 +1,111 @@
+--Minetest
+--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 add_server_formspec(dialogdata)
+        local retval =
+                "size[16,11]"..
+                "bgcolor[#00000070;true]"..
+                "box[-100,8.5;200,10;#999999]" ..
+                "box[-100,-10;200,12;#999999]" ..
+
+                "label[4,3;" .. fgettext("Name") .. "]"..
+                "field[6.5,3.4;6,0.5;servername;;]" ..
+
+                "label[4,4;" .. fgettext("Address") .. "]"..
+                "field[6.5,4.4;6,0.5;address;;]" ..
+
+                "label[4,5;" .. fgettext("Port") .. "]"..
+                "field[6.5,5.4;6,0.5;port;;30000]" ..
+
+                "label[4,6;" .. fgettext("Description") .. "]"..
+                "field[6.5,6.4;6,0.5;desc;;Added on ".. os.date() .."]" ..
+
+
+        "image_button[8,9.54;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;server_add_confirm;".. fgettext("Add") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+        "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;server_add_cancel;".. fgettext("Cancel") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+
+        return retval
+end
+
+local function add_server_buttonhandler(this, fields)
+
+        if fields["server_add_cancel"] then
+                this:delete()
+                return true
+        end
+
+        if fields["server_add_confirm"]
+        or fields["key_enter"] then
+           if fields["address"] and fields["port"] then
+
+----------------------
+           local path = core.get_modpath('')..'/../client/'..core.formspec_escape(core.setting_get("serverlist_file"))
+           local favourites
+           if path then
+              local input = io.open(path, "r")
+              if input then
+                 favourites = input:read("*all")
+                 io.close(input)
+              --else
+                 --gamedata.errormessage = fgettext("Can't find serverlist_file! ("..path..')')
+              end
+           if favourites then
+              favourites = minetest.parse_json(favourites)
+           else
+               favourites = {["list"]={},}
+           end
+
+              table.insert(favourites.list,{
+                                            ["address"] = fields["te_address"],
+                                            ["description"] = "Saved at ".. os.date(),
+                                            ["name"] = fields["te_address"],
+                                            ["playername"] = fields["te_name"],
+                                            ["playerpassword"] = fields["te_pwd"],
+                                            ["port"] = fields["te_port"],
+                                           }
+                          )
+
+              favourites = minetest.write_json(favourites)
+
+              --print(path)
+              local output = io.open(path, "w")
+              if output then
+                 output:write(favourites or '')
+                 io.close(output)
+              else
+                 gamedata.errormessage = err..' ('..errcode..')'
+              end
+           end
+----------------------
+
+              asyncOnlineFavourites()
+              this:delete()
+           end
+           return true
+        end
+
+        return false
+end
+
+
+function create_add_server_dlg(update_worldlistfilter)
+        local retval = dialog_create("add_server_dlg",
+                                        add_server_formspec,
+                                        add_server_buttonhandler,
+                                        nil)
+        return retval
+end

builtin/mainmenu/dlg_config_world.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -16,296 +16,296 @@
 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 --------------------------------------------------------------------------------
-local function modname_valid(name)
-	return not name:find("[^a-z0-9_]")
-end
 
 local function get_formspec(data)
 
-	local mod = data.list:get_list()[data.selected_mod]
+        local mod = data.list:get_list()[data.selected_mod]
 
-	local retval =
+        local retval =
-		"size[11,6.5,false]" ..
+                "size[16,11]"..
-		"label[0.5,-0.25;" .. fgettext("World:") .. "]" ..
+                "bgcolor[#00000070;true]"..
-		"label[1.75,-0.25;" .. data.worldspec.name .. "]"
+                "box[-100,8.5;200,10;#999999]" ..
+                "box[-100,-10;200,12;#999999]" ..
 
-	if data.hide_gamemods then
+                "label[1, 2.5;" .. fgettext("World:") .. "]" ..
-		retval = retval .. "checkbox[0,5.75;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";true]"
+                "label[2.75,2.5;" .. data.worldspec.name .. "]"
-	else
-		retval = retval .. "checkbox[0,5.75;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";false]"
-	end
 
-	if data.hide_modpackcontents then
+        if data.hide_gamemods then
-		retval = retval .. "checkbox[2,5.75;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";true]"
+                retval = retval .. "checkbox[1,7.55;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";true]"
-	else
+        else
-		retval = retval .. "checkbox[2,5.75;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";false]"
+                retval = retval .. "checkbox[1,7.55;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";false]"
-	end
+        end
 
-	if mod == nil then
+        if data.hide_modpackcontents then
-		mod = {name=""}
+                retval = retval .. "checkbox[4,7.55;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";true]"
-	end
+        else
+                retval = retval .. "checkbox[4,7.55;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";false]"
+        end
 
-    retval = retval ..
+        if mod == nil then
-        "label[0,0.45;" .. fgettext("Mod:") .. "]" ..
+                mod = {name=""}
-        "label[0.75,0.45;" .. mod.name .. "]" ..
+        end
-        "label[0,1;" .. fgettext("Depends:") .. "]" ..
-        "textlist[0,1.5;5,4.25;world_config_depends;" ..
-        modmgr.get_dependencies(mod.path) .. ";0]" ..
-        "image_button[9.25,6.35;2,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_config_world_save;" .. fgettext("Save") .. "]" ..
-        "image_button[7.4,6.35;2,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_config_world_cancel;" .. fgettext("Cancel") .. "]"
 
-	if mod ~= nil and mod.name ~= "" and mod.typ ~= "game_mod" then
+        retval = retval ..
-		if mod.is_modpack then
+                "label[1,3;" .. fgettext("Mod:") .. "]" ..
-			local rawlist = data.list:get_raw_list()
+                "label[2.75,3;" .. mod.name .. "]" ..
+                "label[8,3;" .. fgettext("Depends:") .. "]" ..
+                "textlist[8,3.5;7,4.0;world_config_depends;" ..
+                modmgr.get_dependencies(mod.path) .. ";0]" ..
+                "image_button[8,9.55;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_config_world_save;" .. fgettext("Save") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+                "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_config_world_cancel;".. fgettext("Cancel") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
 
-			local all_enabled = true
+        if mod ~= nil and mod.name ~= "" and mod.typ ~= "game_mod" then
-			for j=1,#rawlist,1 do
+                if mod.is_modpack then
-				if rawlist[j].modpack == mod.name and
+                        local rawlist = data.list:get_raw_list()
-					rawlist[j].enabled ~= true then
-						all_enabled = false
-						break
-				end
-			end
 
-			if all_enabled == false then
+                        local all_enabled = true
-				retval = retval .. "image_button[5.5,-0.125;2,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_enable;" .. fgettext("Enable MP") .. "]"
+                        for j=1,#rawlist,1 do
-			else
+                                if rawlist[j].modpack == mod.name and
-				retval = retval .. "image_button[5.5,-0.125;2,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_disable;" .. fgettext("Disable MP") .. "]"
+                                        rawlist[j].enabled ~= true then
-			end
+                                                all_enabled = false
-		else
+                                                break
-			if mod.enabled then
+                                end
-				retval = retval .. "checkbox[5.5,-0.375;cb_mod_enable;" .. fgettext("enabled") .. ";true]"
+                        end
-			else
-				retval = retval .. "checkbox[5.5,-0.375;cb_mod_enable;" .. fgettext("enabled") .. ";false]"
-			end
-		end
-	end
 
-	retval = retval ..
+                        if all_enabled == false then
-		"image_button[8.5,-0.125;2.5,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_all_mods;" .. fgettext("Enable all") .. "]" ..
+                                retval = retval .. "image_button[8,7.55;3.5,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_enable;" .. fgettext("Enable MP") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-		"textlist[5.5,0.5;5.5,5.75;world_config_modlist;"
+                        else
+                                retval = retval .. "image_button[8,7.85;3.5,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_disable;" .. fgettext("Disable MP") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+                        end
+                else
+                        if mod.enabled then
+                                retval = retval .. "checkbox[8.25,7.55;cb_mod_enable;" .. fgettext("enabled") .. ";true]"
+                        else
+                                retval = retval .. "checkbox[8.25,7.55;cb_mod_enable;" .. fgettext("enabled") .. ";false]"
+                        end
+                end
+        end
 
-	retval = retval .. modmgr.render_modlist(data.list)
+        retval = retval ..
-	retval = retval .. ";" .. data.selected_mod .."]"
+                "image_button[11.75,7.55;3.5,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_all_mods;" .. fgettext("Enable all") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+                "textlist[1,3.5;6,4.0;world_config_modlist;"
+                --"textlist[5.5,0.5;5.5,5.75;world_config_modlist;"
 
-	return retval
+        retval = retval .. modmgr.render_modlist(data.list)
+        retval = retval .. ";" .. data.selected_mod .."]"
+
+        return retval
 end
 
 local function enable_mod(this, toset)
-	local mod = this.data.list:get_list()[this.data.selected_mod]
+        local mod = this.data.list:get_list()[this.data.selected_mod]
 
-	if mod.typ == "game_mod" then
+        if mod.typ == "game_mod" then
-		-- game mods can't be enabled or disabled
+                -- game mods can't be enabled or disabled
-	elseif not mod.is_modpack then
+        elseif not mod.is_modpack then
-		if toset == nil then
+                if toset == nil then
-			mod.enabled = not mod.enabled
+                        mod.enabled = not mod.enabled
-		else
+                else
-			mod.enabled = toset
+                        mod.enabled = toset
-		end
+                end
-	else
+        else
-		local list = this.data.list:get_raw_list()
+                local list = this.data.list:get_raw_list()
-		for i=1,#list,1 do
+                for i=1,#list,1 do
-			if list[i].modpack == mod.name then
+                        if list[i].modpack == mod.name then
-				if toset == nil then
+                                if toset == nil then
-					toset = not list[i].enabled
+                                        toset = not list[i].enabled
-				end
+                                end
-				list[i].enabled = toset
+                                list[i].enabled = toset
-			end
+                        end
-		end
+                end
-	end
+        end
 end
 
 
 local function handle_buttons(this, fields)
 
-	if fields["world_config_modlist"] ~= nil then
+        if fields["world_config_modlist"] ~= nil then
-		local event = core.explode_textlist_event(fields["world_config_modlist"])
+                local event = core.explode_textlist_event(fields["world_config_modlist"])
-		this.data.selected_mod = event.index
+                this.data.selected_mod = event.index
-		core.setting_set("world_config_selected_mod", event.index)
+                core.setting_set("world_config_selected_mod", event.index)
 
-		if event.type == "DCL" then
+                if event.type == "DCL" then
-			enable_mod(this)
+                        enable_mod(this)
-		end
+                end
 
-		return true
+                return true
-	end
+        end
 
-	if fields["key_enter"] ~= nil then
+        if fields["key_enter"] ~= nil then
-		enable_mod(this)
+                enable_mod(this)
-		return true
+                return true
-	end
+        end
 
-	if fields["cb_mod_enable"] ~= nil then
+        if fields["cb_mod_enable"] ~= nil then
-		local toset = core.is_yes(fields["cb_mod_enable"])
+                local toset = core.is_yes(fields["cb_mod_enable"])
-		enable_mod(this,toset)
+                enable_mod(this,toset)
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_mp_enable"] ~= nil or
+        if fields["btn_mp_enable"] ~= nil or
-		fields["btn_mp_disable"] then
+                fields["btn_mp_disable"] then
-		local toset = (fields["btn_mp_enable"] ~= nil)
+                local toset = (fields["btn_mp_enable"] ~= nil)
-		enable_mod(this,toset)
+                enable_mod(this,toset)
-		return true
+                return true
-	end
+        end
 
-	if fields["cb_hide_gamemods"] ~= nil or
+        if fields["cb_hide_gamemods"] ~= nil or
-		fields["cb_hide_mpcontent"] ~= nil then
+                fields["cb_hide_mpcontent"] ~= nil then
-		local current = this.data.list:get_filtercriteria()
+                local current = this.data.list:get_filtercriteria()
 
-		if current == nil then
+                if current == nil then
-			current = {}
+                        current = {}
-		end
+                end
 
-		if fields["cb_hide_gamemods"] ~= nil then
+                if fields["cb_hide_gamemods"] ~= nil then
-			if core.is_yes(fields["cb_hide_gamemods"]) then
+                        if core.is_yes(fields["cb_hide_gamemods"]) then
-				current.hide_game = true
+                                current.hide_game = true
-				this.data.hide_gamemods = true
+                                this.data.hide_gamemods = true
-				core.setting_set("world_config_hide_gamemods", "true")
+                                core.setting_set("world_config_hide_gamemods", "true")
-			else
+                        else
-				current.hide_game = false
+                                current.hide_game = false
-				this.data.hide_gamemods = false
+                                this.data.hide_gamemods = false
-				core.setting_set("world_config_hide_gamemods", "false")
+                                core.setting_set("world_config_hide_gamemods", "false")
-			end
+                        end
-		end
+                end
 
-		if fields["cb_hide_mpcontent"] ~= nil then
+                if fields["cb_hide_mpcontent"] ~= nil then
-			if core.is_yes(fields["cb_hide_mpcontent"]) then
+                        if core.is_yes(fields["cb_hide_mpcontent"]) then
-				current.hide_modpackcontents = true
+                                current.hide_modpackcontents = true
-				this.data.hide_modpackcontents = true
+                                this.data.hide_modpackcontents = true
-				core.setting_set("world_config_hide_modpackcontents", "true")
+                                core.setting_set("world_config_hide_modpackcontents", "true")
-			else
+                        else
-				current.hide_modpackcontents = false
+                                current.hide_modpackcontents = false
-				this.data.hide_modpackcontents = false
+                                this.data.hide_modpackcontents = false
-				core.setting_set("world_config_hide_modpackcontents", "false")
+                                core.setting_set("world_config_hide_modpackcontents", "false")
-			end
+                        end
-		end
+                end
 
-		this.data.list:set_filtercriteria(current)
+                this.data.list:set_filtercriteria(current)
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_config_world_save"] then
+        if fields["btn_config_world_save"] then
 
-		local filename = this.data.worldspec.path ..
+                local filename = this.data.worldspec.path ..
-				DIR_DELIM .. "world.mt"
+                                DIR_DELIM .. "world.mt"
 
-		local worldfile = Settings(filename)
+                local worldfile = Settings(filename)
-		local mods = worldfile:to_table()
+                local mods = worldfile:to_table()
 
-		local rawlist = this.data.list:get_raw_list()
+                local rawlist = this.data.list:get_raw_list()
 
-		local i,mod
+                local i,mod
-		for i,mod in ipairs(rawlist) do
+                for i,mod in ipairs(rawlist) do
-			if not mod.is_modpack and
+                        if not mod.is_modpack and
-					mod.typ ~= "game_mod" then
+                                        mod.typ ~= "game_mod" then
-				if modname_valid(mod.name) then
+                                if mod.enabled then
-					worldfile:set("load_mod_"..mod.name, tostring(mod.enabled))
+                                        worldfile:set("load_mod_"..mod.name, "true")
-				else
+                                else
-					if mod.enabled then
+                                        worldfile:set("load_mod_"..mod.name, "false")
-						gamedata.errormessage = fgettext_ne("Failed to enable mod \"$1\" as it contains disallowed characters. Only chararacters [a-z0-9_] are allowed.", mod.name)
+                                end
-					end
+                                mods["load_mod_"..mod.name] = nil
-				end
+                        end
-				mods["load_mod_"..mod.name] = nil
+                end
-			end
-		end
 
-		-- Remove mods that are not present anymore
+                -- Remove mods that are not present anymore
-		for key,value in pairs(mods) do
+                for key,value in pairs(mods) do
-			if key:sub(1,9) == "load_mod_" then
+                        if key:sub(1,9) == "load_mod_" then
-				worldfile:remove(key)
+                                worldfile:remove(key)
-			end
+                        end
-		end
+                end
 
-		if not worldfile:write() then
+                if not worldfile:write() then
-			core.log("error", "Failed to write world config file")
+                        core.log("error", "Failed to write world config file")
-		end
+                end
 
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_config_world_cancel"] then
+        if fields["btn_config_world_cancel"] then
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_all_mods"] then
+        if fields["btn_all_mods"] then
-		local list = this.data.list:get_raw_list()
+                local list = this.data.list:get_raw_list()
 
-		for i=1,#list,1 do
+                for i=1,#list,1 do
-			if list[i].typ ~= "game_mod" and
+                        if list[i].typ ~= "game_mod" and
-				not list[i].is_modpack then
+                                not list[i].is_modpack then
-				list[i].enabled = true
+                                list[i].enabled = true
-			end
+                        end
-		end
+                end
-		return true
+                return true
-	end
+        end
 
-	return false
+        return false
 end
 
 function create_configure_world_dlg(worldidx)
 
-	local dlg = dialog_create("sp_config_world",
+        local dlg = dialog_create("sp_config_world",
-					get_formspec,
+                                        get_formspec,
-					handle_buttons,
+                                        handle_buttons,
-					nil)
+                                        nil)
 
-	dlg.data.hide_gamemods = core.setting_getbool("world_config_hide_gamemods")
+        dlg.data.hide_gamemods = core.setting_getbool("world_config_hide_gamemods")
-	dlg.data.hide_modpackcontents = core.setting_getbool("world_config_hide_modpackcontents")
+        dlg.data.hide_modpackcontents = core.setting_getbool("world_config_hide_modpackcontents")
-	dlg.data.selected_mod = tonumber(core.setting_get("world_config_selected_mod"))
+        dlg.data.selected_mod = tonumber(core.setting_get("world_config_selected_mod"))
-	if dlg.data.selected_mod == nil then
+        if dlg.data.selected_mod == nil then
-		dlg.data.selected_mod = 0
+                dlg.data.selected_mod = 0
-	end
+        end
 
-	dlg.data.worldspec = core.get_worlds()[worldidx]
+        dlg.data.worldspec = core.get_worlds()[worldidx]
-	if dlg.data.worldspec == nil then dlg:delete() return nil end
+        if dlg.data.worldspec == nil then dlg:delete() return nil end
 
-	dlg.data.worldconfig = modmgr.get_worldconfig(dlg.data.worldspec.path)
+        dlg.data.worldconfig = modmgr.get_worldconfig(dlg.data.worldspec.path)
 
-	if dlg.data.worldconfig == nil or dlg.data.worldconfig.id == nil or
+        if dlg.data.worldconfig == nil or dlg.data.worldconfig.id == nil or
-			dlg.data.worldconfig.id == "" then
+                        dlg.data.worldconfig.id == "" then
 
-		dlg:delete()
+                dlg:delete()
-		return nil
+                return nil
-	end
+        end
 
-	dlg.data.list = filterlist.create(
+        dlg.data.list = filterlist.create(
-			modmgr.preparemodlist, --refresh
+                        modmgr.preparemodlist, --refresh
-			modmgr.comparemod, --compare
+                        modmgr.comparemod, --compare
-			function(element,uid) --uid match
+                        function(element,uid) --uid match
-					if element.name == uid then
+                                        if element.name == uid then
-						return true
+                                                return true
-					end
+                                        end
-				end,
+                                end,
-				function(element,criteria)
+                                function(element,criteria)
-					if criteria.hide_game and
+                                        if criteria.hide_game and
-						element.typ == "game_mod" then
+                                                element.typ == "game_mod" then
-							return false
+                                                        return false
-					end
+                                        end
 
-					if criteria.hide_modpackcontents and
+                                        if criteria.hide_modpackcontents and
-						element.modpack ~= nil then
+                                                element.modpack ~= nil then
-							return false
+                                                        return false
-						end
+                                                end
-					return true
+                                        return true
-				end, --filter
+                                end, --filter
-				{ worldpath= dlg.data.worldspec.path,
+                                { worldpath= dlg.data.worldspec.path,
-				  gameid = dlg.data.worldspec.gameid }
+                                  gameid = dlg.data.worldspec.gameid }
-			)
+                        )
 
 
-	if dlg.data.selected_mod > dlg.data.list:size() then
+        if dlg.data.selected_mod > dlg.data.list:size() then
-		dlg.data.selected_mod = 0
+                dlg.data.selected_mod = 0
-	end
+        end
 
-	dlg.data.list:set_filtercriteria(
+        dlg.data.list:set_filtercriteria(
-		{
+                {
-			hide_game=dlg.data.hide_gamemods,
+                        hide_game=dlg.data.hide_gamemods,
-			hide_modpackcontents= dlg.data.hide_modpackcontents
+                        hide_modpackcontents= dlg.data.hide_modpackcontents
-		})
+                })
-	dlg.data.list:add_sort_mechanism("alphabetic", sort_mod_list)
+        dlg.data.list:add_sort_mechanism("alphabetic", sort_mod_list)
-	dlg.data.list:set_sortmode("alphabetic")
+        dlg.data.list:set_sortmode("alphabetic")
 
-	return dlg
+        return dlg
 end

builtin/mainmenu/dlg_create_world.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -16,128 +16,137 @@
 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 local function create_world_formspec(dialogdata)
-	local mapgens = core.get_mapgen_names()
+        local mapgens = core.get_mapgen_names()
 
-	local current_seed = core.setting_get("fixed_map_seed") or ""
+        local current_seed = core.setting_get("fixed_map_seed") or ""
-	local current_mg   = core.setting_get("mg_name")
+        local current_mg   = core.setting_get("mg_name")
 
-	local mglist = ""
+        local mglist = ""
-	local selindex = 1
+        local selindex = 1
-	local i = 1
+        local i = 1
-	for k,v in pairs(mapgens) do
+        for k,v in pairs(mapgens) do
-		if current_mg == v then
+                if current_mg == v then
-			selindex = i
+                        selindex = i
-		end
+                end
-		i = i + 1
+                i = i + 1
-		mglist = mglist .. v .. ","
+                mglist = mglist .. v .. ","
-	end
+        end
-	mglist = mglist:sub(1, -2)
+        mglist = mglist:sub(1, -2)
 
-	local gameid = core.setting_get("menu_last_game")
+        local gameid = core.setting_get("menu_last_game")
 
-	local game, gameidx = nil , 0
+        local game, gameidx = nil , 0
-	if gameid ~= nil then
+        if gameid ~= nil then
-		game, gameidx = gamemgr.find_by_gameid(gameid)
+                game, gameidx = gamemgr.find_by_gameid(gameid)
 
-		if gameidx == nil then
+                if gameidx == nil then
-			gameidx = 0
+                        gameidx = 1
-		end
+                end
-	end
+        end
 
-	current_seed = core.formspec_escape(current_seed)
+        current_seed = core.formspec_escape(current_seed)
-	local retval =
+        local retval =
-		"size[12,6,false]" ..
+                "size[16,11]"..
-		"label[2,0;" .. fgettext("World name") .. "]"..
+                "bgcolor[#00000070;true]"..
-		"field[4.5,0.4;6,0.5;te_world_name;;]" ..
+                "box[-100,8.5;200,10;#999999]" ..
+                "box[-100,-10;200,12;#999999]" ..
 
-		"label[2,1;" .. fgettext("Seed") .. "]"..
+                "label[4,3;" .. fgettext("World name") .. "]"..
-		"field[4.5,1.4;6,0.5;te_seed;;".. current_seed .. "]" ..
+                "field[6.5,3.4;6,0.5;te_world_name;;]" ..
 
-		"label[2,2;" .. fgettext("Mapgen") .. "]"..
+                "label[4,4;" .. fgettext("Seed") .. "]"..
-		"dropdown[4.2,2;6.3;dd_mapgen;" .. mglist .. ";" .. selindex .. "]" ..
+                "field[6.5,4.4;6,0.5;te_seed;;".. current_seed .. "]" ..
 
-		"label[2,3;" .. fgettext("Game") .. "]"..
+                "label[4,5;" .. fgettext("Mapgen") .. "]"..
-		"textlist[4.2,3;5.8,2.3;games;" .. gamemgr.gamelist() ..
+                "dropdown[6.2,5;6.3;dd_mapgen;" .. mglist .. ";" .. selindex .. "]" ..
-		";" .. gameidx .. ";true]" ..
 
-		"image_button[5,5.5;2.6,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create_confirm;" .. fgettext("Create") .. "]" ..
+                "label[4,6;" .. fgettext("Game") .. "]"..
-		"image_button[7.5,5.5;2.8,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create_cancel;" .. fgettext("Cancel") .. "]"
+                "dropdown[6.2,6;6.3;games;" .. gamemgr.gamelist() ..
+                ";" .. gameidx .. "]" ..
 
-	if #gamemgr.games == 0 then
-		retval = retval .. "box[2,4;8,1;#ff8800]label[2.25,4;" ..
-				fgettext("You have no subgames installed.") .. "]label[2.25,4.4;" ..
-				fgettext("Download one from multicraft.net") .. "]"
-	elseif #gamemgr.games == 1 and gamemgr.games[1].id == "minimal" then
-		retval = retval .. "box[1.75,4;8.7,1;#ff8800]label[2,4;" ..
-				fgettext("Warning: The minimal development test is meant for developers.") .. "]label[2,4.4;" ..
-				fgettext("Download a subgame, such as multicraft_game, from multicraft.net") .. "]"
-	end
 
-	return retval
+        "image_button[8,9.55;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create_confirm;".. fgettext("Create") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+        "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create_cancel;".. fgettext("Cancel") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+
+        if #gamemgr.games == 0 then
+                retval = retval .. "box[4,7;8,1;#ff8800]label[4.25,7;" ..
+                                fgettext("You have no subgames installed.") .. "]label[4.25,7.4;" ..
+                                fgettext("Download one from minetest.net") .. "]"
+        elseif #gamemgr.games == 1 and gamemgr.games[1].id == "minimal" then
+                retval = retval .. "box[3.50,7;9,1;#ff8800]label[3.75,7;" ..
+                                fgettext("Warning: The minimal development test is meant for developers.") .. "]label[3.75,7.4;" ..
+                                fgettext("Download a subgame, such as minetest_game, from minetest.net") .. "]"
+        end
+
+        return retval
 
 end
 
 local function create_world_buttonhandler(this, fields)
 
-	if fields["world_create_confirm"] or
+        if fields["world_create_cancel"] then
-		fields["key_enter"] then
+                this:delete()
+                return true
+        end
 
-		local worldname = fields["te_world_name"]
+        if fields["world_create_confirm"] or
-		local gameindex = core.get_textlist_index("games")
+                fields["key_enter"] then
 
-		if gameindex ~= nil and
+                local worldname = fields["te_world_name"]
-			worldname ~= "" then
+                local gameindex
+                for i,item in ipairs(gamemgr.games) do
+                    if item.name == fields["games"] then
+                       gameindex = i
+                    end
+                end
+                if gameindex ~= nil and
+                        worldname ~= "" then
 
-			local message = nil
+                        local message = nil
 
-			core.setting_set("fixed_map_seed", fields["te_seed"])
+                        if not menudata.worldlist:uid_exists_raw(worldname) then
+                                core.setting_set("mg_name",fields["dd_mapgen"])
+                                message = core.create_world(worldname,gameindex)
+                        else
+                                message = fgettext("A world named \"$1\" already exists", worldname)
+                        end
 
-			if not menudata.worldlist:uid_exists_raw(worldname) then
+                        core.setting_set("fixed_map_seed", fields["te_seed"])
-				core.setting_set("mg_name",fields["dd_mapgen"])
-				message = core.create_world(worldname,gameindex)
-			else
-				message = fgettext("A world named \"$1\" already exists", worldname)
-			end
 
-			if message ~= nil then
+                        if message ~= nil then
-				gamedata.errormessage = message
+                                gamedata.errormessage = message
-			else
+                        else
-				core.setting_set("menu_last_game",gamemgr.games[gameindex].id)
+                                core.setting_set("menu_last_game",gamemgr.games[gameindex].id)
-				if this.data.update_worldlist_filter then
+                                if this.data.update_worldlist_filter then
-					menudata.worldlist:set_filtercriteria(gamemgr.games[gameindex].id)
+                                        menudata.worldlist:set_filtercriteria(gamemgr.games[gameindex].id)
-					mm_texture.update("singleplayer", gamemgr.games[gameindex].id)
+                                    --    mm_texture.update("singleplayer", gamemgr.games[gameindex].id)
-				end
+                                end
-				menudata.worldlist:refresh()
+                                menudata.worldlist:refresh()
-				core.setting_set("mainmenu_last_selected_world",
+                                core.setting_set("mainmenu_last_selected_world",
-									menudata.worldlist:raw_index_by_uid(worldname))
+                                                                        menudata.worldlist:raw_index_by_uid(worldname))
-			end
+                        end
-		else
+                else
-			gamedata.errormessage =
+                        gamedata.errormessage =
-				fgettext("No worldname given or no game selected")
+                                fgettext("No worldname given or no game selected")
-		end
+                end
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	if fields["games"] then
+        if fields["games"] then
-		return true
+                return true
-	end
+        end
 
-	if fields["world_create_cancel"] then
+        return false
-		this:delete()
-		return true
-	end
-
-	return false
 end
 
 
 function create_create_world_dlg(update_worldlistfilter)
-	local retval = dialog_create("sp_create_world",
+        local retval = dialog_create("sp_create_world",
-					create_world_formspec,
+                                        create_world_formspec,
-					create_world_buttonhandler,
+                                        create_world_buttonhandler,
-					nil)
+                                        nil)
-	retval.update_worldlist_filter = update_worldlistfilter
+        retval.update_worldlist_filter = update_worldlistfilter
 
-	return retval
+        return retval
 end

builtin/mainmenu/dlg_delete_mod.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -19,50 +19,53 @@
 
 local function delete_mod_formspec(dialogdata)
 
-	dialogdata.mod = modmgr.global_mods:get_list()[dialogdata.selected]
+        dialogdata.mod = modmgr.global_mods:get_list()[dialogdata.selected]
 
-	local retval =
+        local retval =
-		"size[12.4,5,false]" ..
+                "size[16,11]"..
-		"field[1.75,1;10,3;;" .. fgettext("Are you sure you want to delete \"$1\"?", dialogdata.mod.name) ..  ";]"..
+                "bgcolor[#00000070;true]"..
-		"image_button[4,4.2;1,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_delete_mod_confirm;" .. fgettext("Yes") .. "]" ..
+                "box[-100,8.5;200,10;#999999]" ..
-		"image_button[6.5,4.2;3,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_delete_mod_cancel;" .. fgettext("No of course not!") .. "]"
+                "box[-100,-10;200,12;#999999]" ..
-
+                "label[6.5,4.5;" ..
-	return retval
+                fgettext("Are you sure you want to delete \"$1\"?", dialogdata.mod.name) ..  ";]"..
+                "image_button[4,5.7;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_delete_mod_confirm;" .. fgettext("Yes").. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+                "image_button[8,5.7;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_delete_mod_cancel;" .. fgettext("No") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+        return retval
 end
 
 --------------------------------------------------------------------------------
 local function delete_mod_buttonhandler(this, fields)
-	if fields["dlg_delete_mod_confirm"] ~= nil then
+        if fields["dlg_delete_mod_confirm"] ~= nil then
 
-		if this.data.mod.path ~= nil and
+                if this.data.mod.path ~= nil and
-			this.data.mod.path ~= "" and
+                        this.data.mod.path ~= "" and
-			this.data.mod.path ~= core.get_modpath() then
+                        this.data.mod.path ~= core.get_modpath() then
-			if not core.delete_dir(this.data.mod.path) then
+                        if not core.delete_dir(this.data.mod.path) then
-				gamedata.errormessage = fgettext("Modmgr: failed to delete \"$1\"", this.data.mod.path)
+                                gamedata.errormessage = fgettext("Modmgr: failed to delete \"$1\"", this.data.mod.path)
-			end
+                        end
-			modmgr.refresh_globals()
+                        modmgr.refresh_globals()
-		else
+                else
-			gamedata.errormessage = fgettext("Modmgr: invalid modpath \"$1\"", this.data.mod.path)
+                        gamedata.errormessage = fgettext("Modmgr: invalid modpath \"$1\"", this.data.mod.path)
-		end
+                end
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	if fields["dlg_delete_mod_cancel"] then
+        if fields["dlg_delete_mod_cancel"] then
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	return false
+        return false
 end
 
 --------------------------------------------------------------------------------
 function create_delete_mod_dlg(selected_index)
 
-	local retval = dialog_create("dlg_delete_mod",
+        local retval = dialog_create("dlg_delete_mod",
-					delete_mod_formspec,
+                                        delete_mod_formspec,
-					delete_mod_buttonhandler,
+                                        delete_mod_buttonhandler,
-					nil)
+                                        nil)
-	retval.data.selected = selected_index
+        retval.data.selected = selected_index
-	return retval
+        return retval
 end

builtin/mainmenu/dlg_delete_world.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -18,47 +18,50 @@
 
 local function delete_world_formspec(dialogdata)
 
-	local retval =
+        local retval =
-		"size[12,6,false]" ..
+                "size[16,11]"..
-		"label[2,2;" ..
+                "bgcolor[#00000070;true]"..
-		fgettext("Delete World \"$1\"?", dialogdata.delete_name) .. "]"..
+                "box[-100,8.5;200,10;#999999]" ..
-		"image_button[3.5,4.2;2.6,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete_confirm;" .. fgettext("Yes").. "]" ..
+                "box[-100,-10;200,12;#999999]" ..
-		"image_button[6,4.2;2.8,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete_cancel;" .. fgettext("No") .. "]"
+                "label[6.5,4.5;" ..
-	return retval
+                fgettext("Delete World \"$1\"?", dialogdata.delete_name) .. "]"..
+                "image_button[4,5.7;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete_confirm;" .. fgettext("Yes").. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+                "image_button[8,5.7;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete_cancel;" .. fgettext("No") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+        return retval
 end
 
 local function delete_world_buttonhandler(this, fields)
-	if fields["world_delete_confirm"] then
+        if fields["world_delete_confirm"] then
 
-		if this.data.delete_index > 0 and
+                if this.data.delete_index > 0 and
-			this.data.delete_index <= #menudata.worldlist:get_raw_list() then
+                        this.data.delete_index <= #menudata.worldlist:get_raw_list() then
-			core.delete_world(this.data.delete_index)
+                        core.delete_world(this.data.delete_index)
-			menudata.worldlist:refresh()
+                        menudata.worldlist:refresh()
-		end
+                end
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	if fields["world_delete_cancel"] then
+        if fields["world_delete_cancel"] then
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	return false
+        return false
 end
 
 
 function create_delete_world_dlg(name_to_del,index_to_del)
 
-	assert(name_to_del ~= nil and type(name_to_del) == "string" and name_to_del ~= "")
+        assert(name_to_del ~= nil and type(name_to_del) == "string" and name_to_del ~= "")
-	assert(index_to_del ~= nil and type(index_to_del) == "number")
+        assert(index_to_del ~= nil and type(index_to_del) == "number")
 
-	local retval = dialog_create("delete_world",
+        local retval = dialog_create("delete_world",
-					delete_world_formspec,
+                                        delete_world_formspec,
-					delete_world_buttonhandler,
+                                        delete_world_buttonhandler,
-					nil)
+                                        nil)
-	retval.data.delete_name  = name_to_del
+        retval.data.delete_name  = name_to_del
-	retval.data.delete_index = index_to_del
+        retval.data.delete_index = index_to_del
 
-	return retval
+        return retval
 end

builtin/mainmenu/dlg_rename_modpack.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -19,51 +19,51 @@
 
 local function rename_modpack_formspec(dialogdata)
 
-	dialogdata.mod = modmgr.global_mods:get_list()[dialogdata.selected]
+        dialogdata.mod = modmgr.global_mods:get_list()[dialogdata.selected]
 
-	local retval =
+        local retval =
-		"size[12.4,5,false]" ..
+                "size[12.4,5,true]" ..
-		"label[1.75,1;".. fgettext("Rename Modpack:") .. "]"..
+                "label[1.75,1;".. fgettext("Rename Modpack:") .. "]"..
-		"field[4.5,1.4;6,0.5;te_modpack_name;;" ..
+                "field[4.5,1.4;6,0.5;te_modpack_name;;" ..
-		dialogdata.mod.name ..
+                dialogdata.mod.name ..
-		"]" ..
+                "]" ..
-		"image_button[5,4.2;2.6,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_rename_modpack_confirm;"..
+                "image_button[5,4.2;2.6,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_rename_modpack_confirm;"..
-				fgettext("Accept") .. "]" ..
+                                fgettext("Accept") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-		"image_button[7.5,4.2;2.8,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_rename_modpack_cancel;"..
+                "image_button[7.5,4.2;2.8,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_rename_modpack_cancel;"..
-				fgettext("Cancel") .. "]"
+                                fgettext("Cancel") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
 
-	return retval
+        return retval
 end
 
 --------------------------------------------------------------------------------
 local function rename_modpack_buttonhandler(this, fields)
-	if fields["dlg_rename_modpack_confirm"] ~= nil then
+        if fields["dlg_rename_modpack_confirm"] ~= nil then
-		local oldpath = core.get_modpath() .. DIR_DELIM .. this.data.mod.name
+                local oldpath = core.get_modpath() .. DIR_DELIM .. this.data.mod.name
-		local targetpath = core.get_modpath() .. DIR_DELIM .. fields["te_modpack_name"]
+                local targetpath = core.get_modpath() .. DIR_DELIM .. fields["te_modpack_name"]
-		core.copy_dir(oldpath,targetpath,false)
+                core.copy_dir(oldpath,targetpath,false)
-		modmgr.refresh_globals()
+                modmgr.refresh_globals()
-		modmgr.selected_mod = modmgr.global_mods:get_current_index(
+                modmgr.selected_mod = modmgr.global_mods:get_current_index(
-			modmgr.global_mods:raw_index_by_uid(fields["te_modpack_name"]))
+                        modmgr.global_mods:raw_index_by_uid(fields["te_modpack_name"]))
 
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	if fields["dlg_rename_modpack_cancel"] then
+        if fields["dlg_rename_modpack_cancel"] then
-		this:delete()
+                this:delete()
-		return true
+                return true
-	end
+        end
 
-	return false
+        return false
 end
 
 --------------------------------------------------------------------------------
 function create_rename_modpack_dlg(selected_index)
 
-	local retval = dialog_create("dlg_delete_mod",
+        local retval = dialog_create("dlg_delete_mod",
-					rename_modpack_formspec,
+                                        rename_modpack_formspec,
-					rename_modpack_buttonhandler,
+                                        rename_modpack_buttonhandler,
-					nil)
+                                        nil)
-	retval.data.selected = selected_index
+        retval.data.selected = selected_index
-	return retval
+        return retval
 end

builtin/mainmenu/fm_gamemgr.lua

@@ -0,0 +1,321 @@
+--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 = core.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 = core.get_gamepath()
+		
+		if gamepath ~= nil and
+			gamepath ~= "" then
+			local gamefolder = cleanup_path(fields["te_game_name"])
+			
+			--TODO check for already existing first
+			core.create_dir(gamepath .. DIR_DELIM .. gamefolder)
+			core.create_dir(gamepath .. DIR_DELIM .. gamefolder .. DIR_DELIM .. "mods")
+			core.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 = core.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 = core.setting_get("main_menu_tab")
+			}
+	end
+
+	if fields["btn_remove_mod_from_game"] ~= nil then
+		gamemgr.delete_mod(current_game,core.get_textlist_index("mods_current"))
+	end
+	
+	if fields["btn_add_mod_to_game"] ~= nil then
+		local modindex = core.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 core.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
+				core.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 = 
+		"label[6.5,-0.25;" .. fgettext("Games") .. ":]" ..
+		"textlist[6.5,0.25;8,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[6.5,5.5;2,2;" ..
+				core.formspec_escape(current_game.menuicon_path) .. "]"
+		end
+		
+		retval = retval ..
+			"field[9,5.5;6,2;;" .. current_game.name .. ";]"..
+			"label[6.5,7.2;" .. fgettext("Mods:") .."]" ..
+			"button[6.5,11.4;3.2,0.2;btn_game_mgr_edit_game;" .. fgettext("edit game") .. "]" ..
+			"textlist[6.5,7.7;8,3.3;game_mgr_modlist;"
+			.. gamemgr.get_game_modlist(current_game) ..";0]" ..
+			"button[6.5,4.9;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;" ..
+				core.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 = core.get_games()
+end
+
+--------------------------------------------------------------------------------
+function gamemgr.gamelist()
+	local retval = ""
+	if #gamemgr.games > 0 then
+		retval = retval .. gamemgr.games[1].name
+
+		for i=2,#gamemgr.games,1 do
+			retval = retval .. "," .. gamemgr.games[i].name
+		end
+	end
+	return retval
+end

builtin/mainmenu/fm_init.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -25,7 +25,7 @@ mt_color_dark_green = "#003300"
 local menupath = core.get_mainmenu_path()
 local basepath = core.get_builtin_path()
 defaulttexturedir = core.get_texturepath_share() .. DIR_DELIM .. "base" ..
-					DIR_DELIM .. "pack" .. DIR_DELIM
+                    DIR_DELIM .. "pack" .. DIR_DELIM
 
 dofile(basepath .. DIR_DELIM .. "common" .. DIR_DELIM .. "async_event.lua")
 dofile(basepath .. DIR_DELIM .. "common" .. DIR_DELIM .. "filterlist.lua")
@@ -41,57 +41,55 @@ dofile(menupath .. DIR_DELIM .. "dlg_config_world.lua")
 dofile(menupath .. DIR_DELIM .. "tab_credits.lua")
 dofile(menupath .. DIR_DELIM .. "tab_mods.lua")
 dofile(menupath .. DIR_DELIM .. "tab_settings.lua")
-	dofile(menupath .. DIR_DELIM .. "dlg_create_world.lua")
+dofile(menupath .. DIR_DELIM .. "tab_help.lua")
-	dofile(menupath .. DIR_DELIM .. "dlg_delete_mod.lua")
+    dofile(menupath .. DIR_DELIM .. "dlg_create_world.lua")
-	dofile(menupath .. DIR_DELIM .. "dlg_delete_world.lua")
+    dofile(menupath .. DIR_DELIM .. "dlg_delete_mod.lua")
-	dofile(menupath .. DIR_DELIM .. "dlg_rename_modpack.lua")
+    dofile(menupath .. DIR_DELIM .. "dlg_delete_world.lua")
-	dofile(menupath .. DIR_DELIM .. "tab_multiplayer.lua")
+    dofile(menupath .. DIR_DELIM .. "dlg_rename_modpack.lua")
-	dofile(menupath .. DIR_DELIM .. "tab_server.lua")
+    dofile(menupath .. DIR_DELIM .. "dlg_add_server.lua")
-	dofile(menupath .. DIR_DELIM .. "tab_singleplayer.lua")
+    dofile(menupath .. DIR_DELIM .. "tab_multiplayer.lua")
-	dofile(menupath .. DIR_DELIM .. "tab_texturepacks.lua")
+    dofile(menupath .. DIR_DELIM .. "tab_server.lua")
-	dofile(menupath .. DIR_DELIM .. "textures.lua")
+    dofile(menupath .. DIR_DELIM .. "tab_singleplayer.lua")
+    dofile(menupath .. DIR_DELIM .. "tab_texturepacks.lua")
+    dofile(menupath .. DIR_DELIM .. "textures.lua")
 
 --------------------------------------------------------------------------------
 local function main_event_handler(tabview, event)
-	if event == "MenuQuit" then
+    if event == "MenuQuit" then
-		core.close()
+        core.close()
-	end
+    end
-	return true
+
+    return true
 end
 
 --------------------------------------------------------------------------------
 local function get_formspec2(tabview, name, tabdata)
-    local retval = 'size[12,5.2,false]'
+    local retval = ""
-    retval = retval .. "bgcolor[#00000000;true]"
+    retval = retval .. "bgcolor[#00000000;false]"
-    retval = retval .. "image_button[2.5,3.4;7,1;"..multicraft.formspec_escape(mm_texture.basetexturedir) .. "menu_button.png;btn_show_multiplayer;" .. fgettext("Multiplayer") .. ";true;true;" .. multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+    retval = retval .. "image_button[2.5,3.4;7,1;"..minetest.formspec_escape(mm_texture.basetexturedir) .. "menu_button.png;btn_show_multiplayer;" .. fgettext("Multiplayer") .. ";true;true;" .. minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-    retval = retval .. "image_button[2.5,4.8;7,1;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_options;"..      fgettext("Options") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+    retval = retval .. "image_button[2.5,4.8;6,1;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_options;"..      fgettext("Options") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-    --retval = retval .. "image_button[8.5,4.8;1,1;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_help;?;true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+    retval = retval .. "image_button[8.5,4.8;1,1;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_help;?;true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-    retval = retval .. "image_button[2.5,6.2;7,1;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_exit;".. fgettext("Exit") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+    retval = retval .. "image_button[2.5,6.2;7,1;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_exit;".. fgettext("Exit") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-    retval = retval .. "image_button[2.5,2.0;7,1;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_singleplayer;".. fgettext("Singleplayer") .. ";true;true;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+    retval = retval .. "image_button[2.5,2.0;7,1;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_singleplayer;".. fgettext("Singleplayer") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
 
     local si = core.get_screen_info()
 
     local ydiv = si.window_height/5.2
     local xdiv = si.window_width/12.5
     local ratio = xdiv/ydiv
-    print('Width: '..si.window_width)
+    --print(xdiv..' x '..ydiv..' = '..ratio)
-    print('Height: '..si.window_height)
+
-    print(xdiv..' x '..ydiv..' = '..ratio)
+    math.randomseed(os.time())
-    --math.randomseed(os.time())
+    local rnd = 'image['.. 12*ratio ..','.. 1 .. ';6,0.5;'..minetest.formspec_escape(mm_texture.basetexturedir)..'ad_label'..tostring(math.random(1,14))..'.png]'
-    print('Chosen font size: '.. math.floor(si.window_width/53.33)+0.5)
+
-    core.setting_set('font_size', tostring(math.floor(si.window_width/53.33)+0.5))
+    return retval .. rnd
-    --local rnd = 'image['.. 12*ratio ..','.. 1 .. ';6,0.5;'..multicraft.formspec_escape(mm_texture.basetexturedir)..'ad_label'..tostring(math.random(1,14))..'.png]'
-    print('----')
-    print(retval)
-    print('----')
-    return retval --.. rnd
 end
 
 --------------------------------------------------------------------------------
 
 local function main_button_handler2(tabview, fields, name, tabdata)
     local index = ''
-    if fields["btn_show_singleplayer"] then  index = "singleplayer" end
+    if fields["btn_show_singleplayer"] then  index = "server"       end
     if fields["btn_show_multiplayer"]  then  index = "multiplayer"  end
     if fields["btn_show_options"]      then  index = "settings"     end
     if fields["btn_show_help"]         then  index = "help"         end
@@ -99,19 +97,17 @@ local function main_button_handler2(tabview, fields, name, tabdata)
 
     if index == '' then return end
     for name,def in pairs(tabview.tablist) do
-       local fs
+       if index == def.name then
-       if index == 'singleplayer' then
+        local get_fs = function()
-          fs = create_tab_single(true)
+           local retval = def.get_formspec(tabview, name, tabdata)
-       elseif index == 'multiplayer' then
+           retval = 'size[12,5.2]'..retval
-          fs = create_tab_multiplayer()
+           return retval
-       elseif index == 'settings' then
+        end
-          fs = create_tab_settings(true)
+        local dlg = dialog_create(def.name, get_fs, def.button_handler, def.on_change)
-       end
+        dlg:set_parent(tabview)
-       if fs then
+        tabview:hide()
-          fs:set_parent(tabview.parent or tabview)
+        dlg:show()
-          tabview:hide()
+        return dlg
-          fs:show()
-       return true
        end
     end
    return false
@@ -130,8 +126,8 @@ local function on_activate2(type,old_tab,new_tab)
     mm_texture.clear("header")
     mm_texture.clear("footer")
     core.set_clouds(false)
-    core.set_background("background",multicraft.formspec_escape(mm_texture.basetexturedir)..'background.png')
+    core.set_background("background",minetest.formspec_escape(mm_texture.basetexturedir)..'background.png')
-    core.set_background("header",multicraft.formspec_escape(mm_texture.basetexturedir)..'header.png')
+    core.set_background("header",minetest.formspec_escape(mm_texture.basetexturedir)..'header.png')
 
 
 end
@@ -174,32 +170,37 @@ local function init_globals()
     mm_texture.init()
 
 
-	-- Create main tabview
+    -- Create main tabview
-	local tv_main = tabview_create("maintab",{x=12,y=5.2},{x=-1,y=0})
+    local tv_main = tabview_create("maintab",{x=12,y=5.2},{x=0,y=0})
-	tv_main:set_autosave_tab(false)
-	tv_main:add(tab_main)
-	tv_main:add(tab_singleplayer)
-	tv_main:add(tab_multiplayer)
-	tv_main:add(tab_server)
-	tv_main:add(tab_settings)
-	tv_main:add(tab_texturepacks)
-	tv_main:add(tab_mods)
-	tv_main:add(tab_credits)
-	tv_main:set_global_event_handler(main_event_handler)
-	tv_main:set_fixed_size(false)
-	ui.set_default("main")
-	tv_main:show()
 
-	-- Create modstore ui
+    tv_main:set_autosave_tab(false)
-	if PLATFORM == "Android" then
+    --tv_main:add(tab_simple_main)
-		modstore.init({x=12, y=6}, 3, 2)
+    tv_main:add(tab_main)
-	else
+    tv_main:add(tab_singleplayer)
-		modstore.init({x=12, y=8}, 4, 3)
+    tv_main:add(tab_multiplayer)
-	end
+    tv_main:add(tab_server)
+    tv_main:add(tab_settings)
+    tv_main:add(tab_texturepacks)
+    tv_main:add(tab_mods)
+    tv_main:add(tab_help)
+    tv_main:add(tab_credits)
 
-	ui.update()
+    tv_main:set_global_event_handler(main_event_handler)
+    tv_main:set_fixed_size(false)
+    ui.set_default("main")
 
-	core.sound_play("main_menu", true)
+    tv_main:show()
+
+    -- Create modstore ui
+    if PLATFORM == "Android" then
+        modstore.init({x=12, y=6}, 3, 2)
+    else
+        modstore.init({x=12, y=8}, 4, 3)
+    end
+
+    ui.update()
+
+    core.sound_play("main_menu", true)
 
 end
 

builtin/mainmenu/gamemgr.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify

builtin/mainmenu/init_old.lua

@@ -1,164 +0,0 @@
---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.
-
-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!
-
-local menupath = core.get_mainmenu_path()
-local basepath = core.get_builtin_path()
-defaulttexturedir = core.get_texturepath_share() .. DIR_DELIM .. "base" ..
-                    DIR_DELIM .. "pack" .. DIR_DELIM
-
-dofile(basepath .. DIR_DELIM .. "common" .. DIR_DELIM .. "async_event.lua")
-dofile(basepath .. DIR_DELIM .. "common" .. DIR_DELIM .. "filterlist.lua")
-dofile(basepath .. DIR_DELIM .. "fstk" .. DIR_DELIM .. "buttonbar.lua")
-dofile(basepath .. DIR_DELIM .. "fstk" .. DIR_DELIM .. "dialog.lua")
-dofile(basepath .. DIR_DELIM .. "fstk" .. DIR_DELIM .. "tabview.lua")
-dofile(basepath .. DIR_DELIM .. "fstk" .. DIR_DELIM .. "ui.lua")
-dofile(menupath .. DIR_DELIM .. "common.lua")
-dofile(menupath .. DIR_DELIM .. "gamemgr.lua")
-dofile(menupath .. DIR_DELIM .. "modmgr.lua")
-dofile(menupath .. DIR_DELIM .. "store.lua")
-dofile(menupath .. DIR_DELIM .. "dlg_config_world.lua")
-dofile(menupath .. DIR_DELIM .. "tab_credits.lua")
-dofile(menupath .. DIR_DELIM .. "tab_mods.lua")
-dofile(menupath .. DIR_DELIM .. "tab_settings.lua")
---if PLATFORM ~= "Android" then
-    dofile(menupath .. DIR_DELIM .. "dlg_create_world.lua")
-    dofile(menupath .. DIR_DELIM .. "dlg_delete_mod.lua")
-    dofile(menupath .. DIR_DELIM .. "dlg_delete_world.lua")
-    dofile(menupath .. DIR_DELIM .. "dlg_rename_modpack.lua")
-    dofile(menupath .. DIR_DELIM .. "tab_multiplayer.lua")
-    dofile(menupath .. DIR_DELIM .. "tab_server.lua")
-    dofile(menupath .. DIR_DELIM .. "tab_singleplayer.lua")
-    dofile(menupath .. DIR_DELIM .. "tab_texturepacks.lua")
-    dofile(menupath .. DIR_DELIM .. "textures.lua")
---else
---  dofile(menupath .. DIR_DELIM .. "tab_simple_main.lua")
---end
-
---------------------------------------------------------------------------------
-local function main_event_handler(tabview, event)
-    if event == "MenuQuit" then
-        core.close()
-    end
-    return true
-end
-
---------------------------------------------------------------------------------
-local function init_globals()
-    -- Init gamedata
-    gamedata.worldindex = 0
-
-
-    if PLATFORM ~= "Android" then
-        menudata.worldlist = filterlist.create(
-            core.get_worlds,
-            compare_worlds,
-            -- Unique id comparison function
-            function(element, uid)
-                return element.name == uid
-            end,
-            -- Filter function
-            function(element, gameid)
-                return element.gameid == gameid
-            end
-        )
-
-        menudata.worldlist:add_sort_mechanism("alphabetic", sort_worlds_alphabetic)
-        menudata.worldlist:set_sortmode("alphabetic")
-
-        if not core.setting_get("menu_last_game") then
-            local default_game = core.setting_get("default_game") or "multicraft"
-            core.setting_set("menu_last_game", default_game )
-        end
-
-        mm_texture.init()
-    else
-        local world_list = core.get_worlds()
-
-        local found_singleplayerworld = false
-
-        for i,world in pairs(world_list) do
-            if world.name == "singleplayerworld" then
-                found_singleplayerworld = true
-                gamedata.worldindex = i
-                break
-            end
-        end
-
-        if not found_singleplayerworld then
-            core.create_world("singleplayerworld", 1)
-
-            local world_list = core.get_worlds()
-
-            for i,world in pairs(world_list) do
-                if world.name == "singleplayerworld" then
-                    gamedata.worldindex = i
-                    break
-                end
-            end
-        end
-    end
-
-    -- Create main tabview
-    local tv_main = tabview_create("maintab",{x=12,y=5.2},{x=0,y=0})
-    if PLATFORM ~= "Android" then
-        tv_main:set_autosave_tab(true)
-    end
-    if PLATFORM ~= "Android" then
-        tv_main:add(tab_singleplayer)
-        tv_main:add(tab_multiplayer)
-        tv_main:add(tab_server)
-    else
-        tv_main:add(tab_simple_main)
-    end
-    tv_main:add(tab_settings)
-    if PLATFORM ~= "Android" then
-        tv_main:add(tab_texturepacks)
-    end
-    tv_main:add(tab_mods)
-    tv_main:add(tab_credits)
-
-    tv_main:set_global_event_handler(main_event_handler)
-
-    tv_main:set_fixed_size(false)
-
-    if not (PLATFORM == "Android") then
-        tv_main:set_tab(core.setting_get("maintab_LAST"))
-    end
-    ui.set_default("maintab")
-    tv_main:show()
-
-    -- Create modstore ui
-    if PLATFORM == "Android" then
-        modstore.init({x=12, y=6}, 3, 2)
-    else
-        modstore.init({x=12, y=8}, 4, 3)
-    end
-
-    ui.update()
-
-    core.sound_play("main_menu", true)
-end
-
-init_globals()
-

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
+			core.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 ..  ",11.2;1.165,1.175;"  ..
+				core.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

builtin/mainmenu/modmgr.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -195,16 +195,16 @@ function modmgr.identify_modname(modpath,filename)
 		while line~= nil do
 			local modname = nil
 
-			if line:find("multicraft.register_tool") then
+			if line:find("minetest.register_tool") then
 				modname = modmgr.parse_register_line(line)
 			end
 
-			if line:find("multicraft.register_craftitem") then
+			if line:find("minetest.register_craftitem") then
 				modname = modmgr.parse_register_line(line)
 			end
 
 
-			if line:find("multicraft.register_node") then
+			if line:find("minetest.register_node") then
 				modname = modmgr.parse_register_line(line)
 			end
 
@@ -321,10 +321,8 @@ function modmgr.get_worldconfig(worldpath)
 	for key,value in pairs(worldfile:to_table()) do
 		if key == "gameid" then
 			worldconfig.id = value
-		elseif key:sub(0, 9) == "load_mod_" then
-			worldconfig.global_mods[key] = core.is_yes(value)
 		else
-			worldconfig[key] = value
+			worldconfig.global_mods[key] = core.is_yes(value)
 		end
 	end
 

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 = core.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;" .. core.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 = core.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
+	
+					core.handle_async(
+						function(param)
+						
+							local fullurl = core.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 = core.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 core.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
+								core.button_handler({btn_hidden_close_download=result})
+							else
+								core.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
+
+	core.handle_async(
+		function(param)
+			return core.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()
+				core.event_handler("Refresh")
+			end
+		end
+	)
+end
+
+--------------------------------------------------------------------------------
+-- @function [parent=#modstore] fetchdetails
+function modstore.fetchdetails()
+
+	for i=1,#modstore.modlist_unsorted.data,1 do
+		core.handle_async(
+		function(param)
+			param.details = core.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
+				core.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;" ..
+			core.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 = core.setting_get("modstore_download_url") ..
+					listentry.details.screenshot_url
+		local filename = os.tempfolder() .. "_MID_" .. listentry.id
+		
+		--trigger download
+		core.handle_async(
+			--first param is downloadfct
+			function(param)
+				param.successfull = core.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
+						core.event_handler("Refresh")
+					else
+						core.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;" ..
+			core.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 .. ";" ..
+		core.formspec_escape(details.title) .. " (" .. details.author .. ")]"
+
+	--description
+	local descriptiony = ypos + 0.5
+	retval = retval .. "textarea[3," .. descriptiony .. ";6.5,1.55;;" ..
+		core.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
+

builtin/mainmenu/tab_credits.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -18,53 +18,63 @@
 --------------------------------------------------------------------------------
 
 tab_credits = {
-	name = "credits",
+        name = "credits",
-	caption = fgettext("Credits"),
+        caption = fgettext("Credits"),
-	cbf_formspec = function (tabview, name, tabdata)
+        cbf_formspec = function (tabview, name, tabdata)
-			local logofile = defaulttexturedir .. "logo.png"
+                        local logofile = defaulttexturedir .. "logo.png"
-			return "label[0.5,3.2;multicraft " .. core.get_version() .. "]" ..
+                        return  "size[16,11]"..
-				"label[0.5,3.5;http://multicraft.net]" ..
+                                "bgcolor[#00000070;true]"..
-				"image[0.5,1;" .. core.formspec_escape(logofile) .. "]" ..
+                                "box[-100,8.5;200,10;#999999]" ..
-				"textlist[3.5,-0.25;8.5,5.8;list_credits;" ..
+                                "box[-100,-10;200,12;#999999]" ..
-				"#FFFF00" .. fgettext("Core Developers") .."," ..
+
-				"Perttu Ahola (celeron55) <celeron55@gmail.com>,"..
+                                "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_cancel;".. fgettext("OK") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-				"Ryan Kwolek (kwolekr) <kwolekr@multicraft.net>,"..
+                                "label[3.5,9.75;Magichet 1.0 (based on FM " .. core.get_version() .. ")]" ..
-				"PilzAdam <pilzadam@multicraft.net>," ..
+                                "image[0.25,9;2,2;"..core.formspec_escape(logofile).."]"..
-				"Lisa Milne (darkrose) <lisa@ltmnet.com>,"..
+                                "textlist[0,2.0;15.8,6.25;list_credits;" ..
-				"Maciej Kasatkin (RealBadAngel) <mk@realbadangel.pl>,"..
+                                "#FFFF00" .. fgettext("Core Developers") .."," ..
-				"sfan5 <sfan5@live.de>,"..
+                                "       Perttu Ahola (celeron55) <celeron55@gmail.com>,"..
-				"kahrl <kahrl@gmx.net>,"..
+                                "       Ryan Kwolek (kwolekr) <kwolekr@minetest.net>,"..
-				"sapier,"..
+                                "       kahrl <kahrl@gmx.net>,"..
-				"ShadowNinja <shadowninja@multicraft.net>,"..
+                                "       proller <proler@gmail.com>,"..
-				"Nathanael Courant (Nore/Novatux) <nore@mesecons.net>,"..
+                                "       PilzAdam <pilzadam@minetest.net>," ..
-				"BlockMen,"..
+                                "       ShadowNinja <shadowninja@minetest.net>,"..
-				"Craig Robbins (Zeno),"..
+                                "       sfan5 <sfan5@live.de>,"..
-				"Loic Blot (nerzhul/nrz),"..
+                                "       ...,"..
-				"paramat,"..
+                                ","..
-				","..
+                                "#FFFF00" .. fgettext("Active Contributors") .. "," ..
-				"#FFFF00" .. fgettext("Active Contributors") .. "," ..
+                                "       sapier,"..
-				"SmallJoker <mk939@ymail.com>," ..
+                                "       Craig Robbins (Zeno) <craig.d.robbins@gmail.com>,"..
-				"est31 <MTest31@outlook.com>," ..
+                                "       kilbith,"..
-				"gregorycu,"..
+                                "       paramat,"..
-				"Andrew Ward (rubenwardy) <rubenwardy@gmail.com>," ..
+                                "       ...,"..
-				"TriBlade9 <triblade9@mail.com>,"..
+                                ","..
-				"Zefram <zefram@fysh.org>,"..
+                                "#FFFF00" .. fgettext("Magichet Developers") .. "," ..
-				"," ..
+                                "       4aiman Konsorumaniakku <4aiman@inbox.ru>,"..
-				"#FFFF00" .. fgettext("Previous Contributors") .. "," ..
+                                "       ...,"..
-				"Vanessa Ezekowitz (VanessaE) <vanessaezekowitz@gmail.com>,"..
+                                "," ..
-				"Jurgen Doser (doserj) <jurgen.doser@gmail.com>,"..
+                                "#FFFF00" .. fgettext("Previous Contributors") .. "," ..
-				"Jeija <jeija@mesecons.net>,"..
+                                "       Vanessa Ezekowitz (VanessaE) <vanessaezekowitz@gmail.com>,"..
-				"MirceaKitsune <mirceakitsune@gmail.com>,"..
+                                "       Jurgen Doser (doserj) <jurgen.doser@gmail.com>,"..
-				"dannydark <the_skeleton_of_a_child@yahoo.co.uk>,"..
+                                "       Jeija <jeija@mesecons.net>,"..
-				"0gb.us <0gb.us@0gb.us>,"..
+                                "       MirceaKitsune <mirceakitsune@gmail.com>,"..
-				"proller <proler@gmail.com>,"..
+                                "       dannydark <the_skeleton_of_a_child@yahoo.co.uk>,"..
-				"Ilya Zhuravlev (xyz) <xyz@multicraft.net>,"..
+                                "       0gb.us <0gb.us@0gb.us>,"..
-				"Guiseppe Bilotta (Oblomov) <guiseppe.bilotta@gmail.com>,"..
+                                "       Ilya Zhuravlev (xyz) <xyz@minetest.net>,"..
-				"Jonathan Neuschafer <j.neuschaefer@gmx.net>,"..
+                                "       Guiseppe Bilotta (Oblomov) <guiseppe.bilotta@gmail.com>,"..
-				"Nils Dagsson Moskopp (erlehmann) <nils@dieweltistgarnichtso.net>,"..
+                                "       Jonathan Neuschafer <j.neuschaefer@gmx.net>,"..
-				"Constantin Wenger (SpeedProg) <constantin.wenger@googlemail.com>,"..
+                                "       Nils Dagsson Moskopp (erlehmann) <nils@dieweltistgarnichtso.net>,"..
-				"matttpt <matttpt@gmail.com>,"..
+                                "       Constantin Wenger (SpeedProg) <constantin.wenger@googlemail.com>,"..
-				"JacobF <queatz@gmail.com>,"..
+                                "       matttpt <matttpt@gmail.com>,"..
-				";0;true]"
+                                "       JacobF <queatz@gmail.com>,"..
-			end
+                                "       ...,"..
-	}
+                                ";0;true]"
+                        end,
+        cbf_button_handler = function(tabview, fields, name, tabdata)
+               if fields["btn_cancel"] ~= nil then
+                  tabview:hide()
+                  tabview.parent:show()
+                  return true
+               end
+        return false
+        end
+        }

builtin/mainmenu/tab_help.lua

@@ -0,0 +1,59 @@
+--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.
+
+--------------------------------------------------------------------------------
+
+tab_help = {
+        name = "help",
+        caption = fgettext("Help"),
+        cbf_formspec = function (tabview, name, tabdata)
+                        local logofile = defaulttexturedir .. "logo.png"
+                        return  "size[16,11]"..
+                                "bgcolor[#00000070;true]"..
+                                "box[-100,8.5;200,10;#999999]" ..
+                                "box[-100,-10;200,12;#999999]" ..
+
+                                "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_cancel;".. fgettext("OK") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+                                "label[3.5,9.75;Magichet 1.0 (based on FM " .. core.get_version() .. ")]" ..
+                                "image[0.25,9;2,2;"..core.formspec_escape(logofile).."]"..
+
+                                "textlist[0,2;15.8,6.25;list_help;" ..
+                                "#FFFF00How to begin to play (ENG)," ..
+                                "       - Press and hold to dig a block,"..
+                                "       - Doubletap to place a block,"..
+                                "       - To split a stack 'long pess' on it and,"..
+                                "         w/o releasing it tap a separate inventory cell,"..
+                                ","..
+                                ","..
+                                "#FFFF00Как начать играть (RUS)," ..
+                                "       - Долгое нажатие = сломать блок,"..
+                                "       - Двойное нажатие = поставить блок,"..
+                                "       - Для разделения стака на части,"..
+                                "         нажмите на стак и удерживая его,"..
+                                "         нажмите вторым пальцем на свободной,"..
+                                "         ячейке интвентаря"..
+                                ";0;true]"
+                        end,
+        cbf_button_handler = function(tabview, fields, name, tabdata)
+               if fields["btn_cancel"] ~= nil then
+                  tabview:hide()
+                  tabview.parent:show()
+                  return true
+               end
+        return false
+        end
+        }

builtin/mainmenu/tab_mods.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -18,152 +18,152 @@
 --------------------------------------------------------------------------------
 local function get_formspec(tabview, name, tabdata)
 
-	if modmgr.global_mods == nil then
+        if modmgr.global_mods == nil then
-		modmgr.refresh_globals()
+                modmgr.refresh_globals()
-	end
+        end
 
-	if tabdata.selected_mod == nil then
+        if tabdata.selected_mod == nil then
-		tabdata.selected_mod = 1
+                tabdata.selected_mod = 1
-	end
+        end
 
-	local retval =
+        local retval =
-		"label[0.05,-0.25;".. fgettext("Installed Mods:") .. "]" ..
+                "label[0.05,-0.25;".. fgettext("Installed Mods:") .. "]" ..
-		"textlist[0,0.25;5.1,4.35;modlist;" ..
+                "textlist[0,0.25;5.1,4.35;modlist;" ..
-		modmgr.render_modlist(modmgr.global_mods) ..
+                modmgr.render_modlist(modmgr.global_mods) ..
-		";" .. tabdata.selected_mod .. "]"
+                ";" .. tabdata.selected_mod .. "]"
 
-	retval = retval ..
+        retval = retval ..
---		"label[0.8,4.2;" .. fgettext("Add mod:") .. "]" ..
+--              "label[0.8,4.2;" .. fgettext("Add mod:") .. "]" ..
---		TODO Disabled due to upcoming release 0.4.8 and irrlicht messing up localization
+--              TODO Disabled due to upcoming release 0.4.8 and irrlicht messing up localization
---		"image_button[0.75,4.85;1.8,0.5;btn_mod_mgr_install_local;".. fgettext("Local install") .. "]" ..
+--              "button[0.75,4.85;1.8,0.5;btn_mod_mgr_install_local;".. fgettext("Local install") .. "]" ..
-		"image_button[0,4.85;5.25,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_modstore;".. fgettext("Online mod repository") .. "]"
+                "image_button[0,4.85;5.25,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_modstore;".. fgettext("Online mod repository") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
 
-	local selected_mod = nil
+        local selected_mod = nil
 
-	if filterlist.size(modmgr.global_mods) >= tabdata.selected_mod then
+        if filterlist.size(modmgr.global_mods) >= tabdata.selected_mod then
-		selected_mod = modmgr.global_mods:get_list()[tabdata.selected_mod]
+                selected_mod = modmgr.global_mods:get_list()[tabdata.selected_mod]
-	end
+        end
 
-	if selected_mod ~= nil then
+        if selected_mod ~= nil then
-		local modscreenshot = nil
+                local modscreenshot = nil
 
-		--check for screenshot beeing available
+                --check for screenshot beeing available
-		local screenshotfilename = selected_mod.path .. DIR_DELIM .. "screenshot.png"
+                local screenshotfilename = selected_mod.path .. DIR_DELIM .. "screenshot.png"
-		local error = nil
+                local error = nil
-		local screenshotfile,error = io.open(screenshotfilename,"r")
+                local screenshotfile,error = io.open(screenshotfilename,"r")
-		if error == nil then
+                if error == nil then
-			screenshotfile:close()
+                        screenshotfile:close()
-			modscreenshot = screenshotfilename
+                        modscreenshot = screenshotfilename
-		end
+                end
 
-		if modscreenshot == nil then
+                if modscreenshot == nil then
-				modscreenshot = defaulttexturedir .. "no_screenshot.png"
+                                modscreenshot = modstore.basetexturedir .. "no_screenshot.png"
-		end
+                end
 
-		retval = retval
+                retval = retval
-				.. "image[5.5,0;3,2;" .. core.formspec_escape(modscreenshot) .. "]"
+                                .. "image[5.5,0;3,2;" .. core.formspec_escape(modscreenshot) .. "]"
-				.. "label[8.25,0.6;" .. selected_mod.name .. "]"
+                                .. "label[8.25,0.6;" .. selected_mod.name .. "]"
 
-		local descriptionlines = nil
+                local descriptionlines = nil
-		error = nil
+                error = nil
-		local descriptionfilename = selected_mod.path .. "description.txt"
+                local descriptionfilename = selected_mod.path .. "description.txt"
-		local descriptionfile,error = io.open(descriptionfilename,"r")
+                local descriptionfile,error = io.open(descriptionfilename,"r")
-		if error == nil then
+                if error == nil then
-			local descriptiontext = descriptionfile:read("*all")
+                        local descriptiontext = descriptionfile:read("*all")
 
-			descriptionlines = core.splittext(descriptiontext,42)
+                        descriptionlines = core.splittext(descriptiontext,42)
-			descriptionfile:close()
+                        descriptionfile:close()
-		else
+                else
-			descriptionlines = {}
+                        descriptionlines = {}
-			table.insert(descriptionlines,fgettext("No mod description available"))
+                        table.insert(descriptionlines,fgettext("No mod description available"))
-		end
+                end
 
-		retval = retval ..
+                retval = retval ..
-			"label[5.5,1.7;".. fgettext("Mod information:") .. "]" ..
+                        "label[5.5,1.7;".. fgettext("Mod information:") .. "]" ..
-			"textlist[5.5,2.2;6.2,2.4;description;"
+                        "textlist[5.5,2.2;6.2,2.4;description;"
 
-		for i=1,#descriptionlines,1 do
+                for i=1,#descriptionlines,1 do
-			retval = retval .. core.formspec_escape(descriptionlines[i]) .. ","
+                        retval = retval .. core.formspec_escape(descriptionlines[i]) .. ","
-		end
+                end
 
 
-		if selected_mod.is_modpack then
+                if selected_mod.is_modpack then
-			retval = retval .. ";0]" ..
+                        retval = retval .. ";0]" ..
-				"image_button[10,4.85;2,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mod_mgr_rename_modpack;" ..
+                                "image_button[10,4.85;2,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mod_mgr_rename_modpack;" ..
-				fgettext("Rename") .. "]"
+                                fgettext("Rename") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-			retval = retval .. "image_button[5.5,4.85;4.5,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mod_mgr_delete_mod;"
+                        retval = retval .. "image_button[5.5,4.85;4.5,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mod_mgr_delete_mod;"
-				.. fgettext("Uninstall selected modpack") .. "]"
+                                .. fgettext("Uninstall selected modpack") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-		else
+                else
-			--show dependencies
+                        --show dependencies
 
-			retval = retval .. "," .. fgettext("Depends:") .. ","
+                        retval = retval .. ",Depends:,"
 
-			local toadd = modmgr.get_dependencies(selected_mod.path)
+                        local toadd = modmgr.get_dependencies(selected_mod.path)
 
-			retval = retval .. toadd .. ";0]"
+                        retval = retval .. toadd .. ";0]"
 
-			retval = retval .. "image_button[5.5,4.85;4.5,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mod_mgr_delete_mod;"
+                        retval = retval .. "image_button[5.5,4.85;4.5,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mod_mgr_delete_mod;"
-				.. fgettext("Uninstall selected mod") .. "]"
+                                .. fgettext("Uninstall selected mod") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-		end
+                end
-	end
+        end
-	return retval
+        return retval
 end
 
 --------------------------------------------------------------------------------
 local function handle_buttons(tabview, fields, tabname, tabdata)
-	if fields["modlist"] ~= nil then
+        if fields["modlist"] ~= nil then
-		local event = core.explode_textlist_event(fields["modlist"])
+                local event = core.explode_textlist_event(fields["modlist"])
-		tabdata.selected_mod = event.index
+                tabdata.selected_mod = event.index
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_mod_mgr_install_local"] ~= nil then
+        if fields["btn_mod_mgr_install_local"] ~= nil then
-		core.show_file_open_dialog("mod_mgt_open_dlg",fgettext("Select Mod File:"))
+                core.show_file_open_dialog("mod_mgt_open_dlg",fgettext("Select Mod File:"))
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_modstore"] ~= nil then
+        if fields["btn_modstore"] ~= nil then
-		local modstore_ui = ui.find_by_name("modstore")
+                local modstore_ui = ui.find_by_name("modstore")
-		if modstore_ui ~= nil then
+                if modstore_ui ~= nil then
-			tabview:hide()
+                        tabview:hide()
-			modstore.update_modlist()
+                        modstore.update_modlist()
-			modstore_ui:show()
+                        modstore_ui:show()
-		else
+                else
-			print("modstore ui element not found")
+                        print("modstore ui element not found")
-		end
+                end
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_mod_mgr_rename_modpack"] ~= nil then
+        if fields["btn_mod_mgr_rename_modpack"] ~= nil then
-		local dlg_renamemp = create_rename_modpack_dlg(tabdata.selected_mod)
+                local dlg_renamemp = create_rename_modpack_dlg(tabdata.selected_mod)
-		dlg_renamemp:set_parent(tabview)
+                dlg_renamemp:set_parent(tabview)
-		tabview:hide()
+                tabview:hide()
-		dlg_renamemp:show()
+                dlg_renamemp:show()
-		return true
+                return true
-	end
+        end
 
-	if fields["btn_mod_mgr_delete_mod"] ~= nil then
+        if fields["btn_mod_mgr_delete_mod"] ~= nil then
-		local dlg_delmod = create_delete_mod_dlg(tabdata.selected_mod)
+                local dlg_delmod = create_delete_mod_dlg(tabdata.selected_mod)
-		dlg_delmod:set_parent(tabview)
+                dlg_delmod:set_parent(tabview)
-		tabview:hide()
+                tabview:hide()
-		dlg_delmod:show()
+                dlg_delmod:show()
-		return true
+                return true
-	end
+        end
 
-	if fields["mod_mgt_open_dlg_accepted"] ~= nil and
+        if fields["mod_mgt_open_dlg_accepted"] ~= nil and
-		fields["mod_mgt_open_dlg_accepted"] ~= "" then
+                fields["mod_mgt_open_dlg_accepted"] ~= "" then
-		modmgr.installmod(fields["mod_mgt_open_dlg_accepted"],nil)
+                modmgr.installmod(fields["mod_mgt_open_dlg_accepted"],nil)
-		return true
+                return true
-	end
+        end
 
-	return false
+        return false
 end
 
 --------------------------------------------------------------------------------
 tab_mods = {
-	name = "mods",
+        name = "mods",
-	caption = fgettext("Mods"),
+        caption = fgettext("Mods"),
-	cbf_formspec = get_formspec,
+        cbf_formspec = get_formspec,
-	cbf_button_handler = handle_buttons,
+        cbf_button_handler = handle_buttons,
-	on_change = gamemgr.update_gamelist
+        on_change = gamemgr.update_gamelist
 }

builtin/mainmenu/tab_multiplayer.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -17,259 +17,309 @@
 
 --------------------------------------------------------------------------------
 local function get_formspec(tabview, name, tabdata)
-if not tabdata then tabdata = {} end
+        local retval =
-	local render_details = core.is_yes(core.setting_getbool("public_serverlist"))
+                "size[16,11]"..
+                "box[-100,8.5;200,10;#999999]" ..
+                "box[-100,-10;200,12;#999999]" ..
+                "bgcolor[#00000070;true]"..
 
-	local retval =
+                "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;cancel;".. fgettext("Cancel") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-		"label[7.75,-0.15;" .. fgettext("Address / Port :") .. "]" ..
+                --"label[0,1.25;" .. fgettext("Address/Port") .. "]" ..
-		"label[7.75,1.05;" .. fgettext("Name / Password :") .. "]" ..
+                "field[1000.25,5.25;5.5,0.5;te_address;;" ..
-		"field[8,0.75;3.4,0.5;te_address;;" ..
+                core.formspec_escape(core.setting_get("address")) .. "]" ..
-		core.formspec_escape(core.setting_get("address")) .. "]" ..
+                "field[1005.75,5.25;2.25,0.5;te_port;;" ..
-		"field[11.25,0.75;1.3,0.5;te_port;;" ..
+                core.formspec_escape(core.setting_get("remote_port")) .. "]" ..
-		core.formspec_escape(core.setting_get("remote_port")) .. "]" ..
+                "checkbox[1000,3.6;cb_public_serverlist;" .. fgettext("Public Serverlist") .. ";" ..
-		"checkbox[0,4.85;cb_public_serverlist;" .. fgettext("Public Serverlist") .. ";" ..
+                dump(core.setting_getbool("public_serverlist")) .. "]"..
-		dump(core.setting_getbool("public_serverlist")) .. "]"
 
-	if not core.setting_getbool("public_serverlist") then
+                "label[7,1.5;" .. fgettext("Select Server:") .. "]" ..
-		retval = retval ..
+                "label[0,0.25;Address: "..core.formspec_escape(core.setting_get("address")) .. "]" ..
-		"image_button[8,4.9;2,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_delete_favorite;" .. fgettext("Delete") .. "]"
+                "label[0,0.75;Port: "..core.formspec_escape(core.setting_get("remote_port")) .. "]"
-	end
 
-	retval = retval ..
-		"image_button[10,4.9;2,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_connect;" .. fgettext("Connect") .. "]" ..
-		"field[8,1.95;2.95,0.5;te_name;;" ..
-		core.formspec_escape(core.setting_get("name")) .. "]" ..
-		"pwdfield[10.78,1.95;1.77,0.5;te_pwd;]" ..
-		"box[7.73,2.35;4.3,2.28;#999999]" ..
-		"textarea[8.1,2.4;4.26,2.6;;"
 
-	if tabdata.fav_selected ~= nil and
+        --if not core.setting_getbool("public_serverlist") then
-		menudata.favorites[tabdata.fav_selected] ~= nil and
+        if (core.get_table_index("favourites") or 10000) <= #core.get_favorites("local") then
-		menudata.favorites[tabdata.fav_selected].description ~= nil then
+                retval = retval ..
-		retval = retval ..
+                "image_button[4,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_delete_favorite;" .. fgettext("Delete") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-			core.formspec_escape(menudata.favorites[tabdata.fav_selected].description,true)
+        else
-	end
+                retval = retval ..
+                "image_button[4,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;add_server;" .. fgettext("Add") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+        end
 
-	retval = retval ..
+        retval = retval ..
-		";]"
+                "image_button[8,9.55;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_connect;" .. fgettext("Connect") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+                "image_button[3.2,9.55;0.8,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."server_flags_favourite.png;btn_mp_favour;;true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
 
-	--favourites
+                "label[8,8;" .. fgettext("Name") .. ":]" ..
-	if render_details then
+                "field[8.3,9;3.95,0.8;te_name;;" ..
-		retval = retval .. "tablecolumns[" ..
+                core.formspec_escape(core.setting_get("name")) .. "]" ..
-			"color,span=3;" ..
+                "label[12,8;" .. fgettext("Password") .. ":]" ..
-			"text,align=right;" ..                -- clients
+                "pwdfield[12.3,9;4,0.8;te_pwd;]" ..
-			"text,align=center,padding=0.25;" ..  -- "/"
+                "textarea[9.3,0;2.5,3.0;;"
-			"text,align=right,padding=0.25;" ..   -- clients_max
-			image_column(fgettext("Creative mode"), "creative") .. ",padding=1;" ..
-			image_column(fgettext("Damage enabled"), "damage") .. ",padding=0.25;" ..
-			image_column(fgettext("PvP enabled"), "pvp") .. ",padding=0.25;" ..
-			"color,span=1;" ..
-			"text,padding=1]"                               -- name
-	else
-		retval = retval .. "tablecolumns[text]"
-	end
-	retval = retval ..
-		"table[-0.15,-0.1;7.75,5;favourites;"
 
-	if #menudata.favorites > 0 then
-		retval = retval .. render_favorite(menudata.favorites[1],render_details)
 
-		for i=2,#menudata.favorites,1 do
+        if tabdata.fav_selected ~= nil and
-			retval = retval .. "," .. render_favorite(menudata.favorites[i],render_details)
+                menudata.favorites[tabdata.fav_selected] ~= nil and
-		end
+                menudata.favorites[tabdata.fav_selected].description ~= nil then
-	end
+                retval = retval ..
+                        core.formspec_escape(menudata.favorites[tabdata.fav_selected].description,true)
+        end
 
-	if tabdata.fav_selected ~= nil then
+        retval = retval ..
-		retval = retval .. ";" .. tabdata.fav_selected .. "]"
+                ";]"
-	else
-		retval = retval .. ";0]"
-	end
 
-	return 'size[12,5.4;false]'..retval
+        --favourites
+        local function image_column(tooltip, flagname)
+                local ret = "image," ..
+                        "tooltip=" .. core.formspec_escape(tooltip) .. ","
+                        if flagname ~= 'favourite' then
+                           ret = ret .. "0=" .. core.formspec_escape(defaulttexturedir .. "blank.png") .. ","
+                        else
+                           ret = ret .. "0=" .. core.formspec_escape(defaulttexturedir .. "server_flags_" .. flagname .. "_off.png") .. ","
+                        end
+                        ret = ret .. "1=" .. core.formspec_escape(defaulttexturedir .. "server_flags_" .. flagname .. ".png")
+                return ret
+        end
+        retval = retval .. "tablecolumns[" ..
+                        "color,span=3;" ..
+                        "text,align=right;" ..                -- clients
+                        "text,align=center,padding=0.25;" ..  -- "/"
+                        "text,align=right,padding=0.25;" ..   -- clients_max
+                        image_column("Creative mode", "creative") .. ",padding=1;" ..
+                        image_column("Damage enabled", "damage") .. ",padding=0.25;" ..
+                        image_column("PvP enabled", "pvp") .. ",padding=0.25;" ..
+                        "text,padding=1]"--..
+                        --image_column("Favourite", "favourite") .. ",align=right]"
+
+        retval = retval ..
+                 "tableoptions[background=#00000000;border=false]"..
+                 "table[0,2.2;16,6.25;favourites;"
+
+        if #menudata.favorites == 0 then
+           asyncOnlineFavourites()
+        end
+
+        if #menudata.favorites > 0 then
+                retval = retval .. render_favorite(menudata.favorites[1])
+
+                for i=2,#menudata.favorites,1 do
+                        retval = retval .. "," .. render_favorite(menudata.favorites[i])
+                end
+        end
+
+        if tabdata.fav_selected ~= nil then
+                retval = retval .. ";" .. tabdata.fav_selected .. "]"
+        else
+                retval = retval .. ";0]"
+        end
+--print(retval)
+        return retval
 end
 
 --------------------------------------------------------------------------------
 local function main_button_handler(tabview, fields, name, tabdata)
-if not tabdata then tabdata = {} end
+        if not tabdata then tabdata = {} end
-	if fields["te_name"] ~= nil then
-		gamedata.playername = fields["te_name"]
-		core.setting_set("name", fields["te_name"])
-	end
 
-	if fields["favourites"] ~= nil then
+        if fields["add_server"] ~= nil then
-		local event = core.explode_table_event(fields["favourites"])
+                local add_server_dlg = create_add_server_dlg(true)
-		if event.type == "DCL" then
+                add_server_dlg:set_parent(tabview)
-			if event.row <= #menudata.favorites then
+                add_server_dlg:show()
-				if not is_server_protocol_compat_or_error(menudata.favorites[event.row].proto_min,
+                tabview:hide()
-						menudata.favorites[event.row].proto_max) then
+                return true
-					return true
+        end
-				end
-				gamedata.address    = menudata.favorites[event.row].address
-				gamedata.port       = menudata.favorites[event.row].port
-				gamedata.playername = fields["te_name"]
-				if fields["te_pwd"] ~= nil then
-					gamedata.password		= fields["te_pwd"]
-				end
-				gamedata.selected_world = 0
 
-				if menudata.favorites ~= nil then
+        if fields["te_name"] ~= nil then
-					gamedata.servername        = menudata.favorites[event.row].name
+                gamedata.playername = fields["te_name"]
-					gamedata.serverdescription = menudata.favorites[event.row].description
+                core.setting_set("name", fields["te_name"])
-				end
+        end
 
-				if gamedata.address ~= nil and
+        if fields["favourites"] ~= nil then
-					gamedata.port ~= nil then
+                local event = core.explode_table_event(fields["favourites"])
-					core.setting_set("address",gamedata.address)
+                if event.type == "DCL" then
-					core.setting_set("remote_port",gamedata.port)
+                        if event.row <= #menudata.favorites then
-					core.start()
+                                gamedata.address    = menudata.favorites[event.row].address
-				end
+                                gamedata.port       = menudata.favorites[event.row].port
-			end
+                                gamedata.playername = fields["te_name"]
-			return true
+                                if fields["te_pwd"] ~= nil then
-		end
+                                        gamedata.password               = fields["te_pwd"]
+                                end
+                                gamedata.selected_world = 0
 
-		if event.type == "CHG" then
+                                if menudata.favorites ~= nil then
-			if event.row <= #menudata.favorites then
+                                        gamedata.servername        = menudata.favorites[event.row].name
-				local address = menudata.favorites[event.row].address
+                                        gamedata.serverdescription = menudata.favorites[event.row].description
-				local port    = menudata.favorites[event.row].port
+                                end
 
-				if address ~= nil and
+                                if gamedata.address ~= nil and
-					port ~= nil then
+                                        gamedata.port ~= nil then
-					core.setting_set("address",address)
+                                        core.setting_set("address",gamedata.address)
-					core.setting_set("remote_port",port)
+                                        core.setting_set("remote_port",gamedata.port)
-				end
+                                        core.start()
+                                end
+                        end
+                        return true
+                end
 
-				tabdata.fav_selected = event.row
+                if event.type == "CHG" then
-			end
+                        if event.row <= #menudata.favorites then
+                                local address = menudata.favorites[event.row].address
+                                local port    = menudata.favorites[event.row].port
 
-			return true
+                                if address ~= nil and
-		end
+                                        port ~= nil then
-	end
+                                        core.setting_set("address",address)
+                                        core.setting_set("remote_port",port)
+                                end
 
-	if fields["key_up"] ~= nil or
+                                tabdata.fav_selected = event.row
-		fields["key_down"] ~= nil then
+                        end
+                        return true
+                end
+        end
 
-		local fav_idx = core.get_table_index("favourites")
+        if fields["key_up"] ~= nil or
+                fields["key_down"] ~= nil then
 
-		if fav_idx ~= nil then
+                local fav_idx = core.get_table_index("favourites")
-			if fields["key_up"] ~= nil and fav_idx > 1 then
-				fav_idx = fav_idx -1
-			else if fields["key_down"] and fav_idx < #menudata.favorites then
-				fav_idx = fav_idx +1
-			end end
-		else
-			fav_idx = 1
-		end
 
-		if menudata.favorites == nil or
+                if fav_idx ~= nil then
-			menudata.favorites[fav_idx] == nil then
+                        if fields["key_up"] ~= nil and fav_idx > 1 then
-			tabdata.fav_selected = 0
+                                fav_idx = fav_idx -1
-			return true
+                        else if fields["key_down"] and fav_idx < #menudata.favorites then
-		end
+                                fav_idx = fav_idx +1
+                        end end
+                else
+                        fav_idx = 1
+                end
 
-		local address = menudata.favorites[fav_idx].address
+                if menudata.favorites == nil or
-		local port    = menudata.favorites[fav_idx].port
+                        menudata.favorites[fav_idx] == nil then
+                        tabdata.fav_selected = 0
+                        return true
+                end
 
-		if address ~= nil and
+                local address = menudata.favorites[fav_idx].address
-			port ~= nil then
+                local port    = menudata.favorites[fav_idx].port
-			core.setting_set("address",address)
-			core.setting_set("remote_port",port)
-		end
 
-		tabdata.fav_selected = fav_idx
+                if address ~= nil and
-		return true
+                        port ~= nil then
-	end
+                        core.setting_set("address",address)
+                        core.setting_set("remote_port",port)
+                end
 
-	if fields["cb_public_serverlist"] ~= nil then
+                tabdata.fav_selected = fav_idx
-		core.setting_set("public_serverlist", fields["cb_public_serverlist"])
+                return true
+        end
 
-		if core.setting_getbool("public_serverlist") then
+        if fields["cb_public_serverlist"] ~= nil then
-			asyncOnlineFavourites()
+                core.setting_set("public_serverlist", fields["cb_public_serverlist"])
-		else
+                asyncOnlineFavourites()
-			menudata.favorites = core.get_favorites("local")
+                tabdata.fav_selected = nil
-		end
+                return true
-		tabdata.fav_selected = nil
+        end
-		return true
-	end
 
-	if fields["btn_delete_favorite"] ~= nil then
+        if fields["btn_mp_favour"] ~= nil then
-		local current_favourite = core.get_table_index("favourites")
+           local current_favourite = core.get_table_index("favourites")
-		if current_favourite == nil then return end
+           local path = core.get_modpath('')..'/../client/'..core.formspec_escape(core.setting_get("serverlist_file"))
-		core.delete_favorite(current_favourite)
+           local favourites
-		menudata.favorites = order_favorite_list(core.get_favorites())
+           if path then
-		tabdata.fav_selected = nil
+              local input,err,errcode = io.open(path, "r")
+              if input then
+                 favourites = input:read("*all")
+                 io.close(input)
+              --else
+                 --gamedata.errormessage = err..' ('..errcode..')'
+              end
+           if favourites then
+              favourites = minetest.parse_json(favourites)
+           else
+               favourites = {["list"]={},}
+           end
+              table.insert(favourites.list,{
+                                            ["address"] = fields["te_address"],
+                                            ["description"] = "Saved at ".. os.date(),
+                                            ["name"] = fields["te_address"],
+                                            ["playername"] = fields["te_name"],
+                                            ["playerpassword"] = fields["te_pwd"],
+                                            ["port"] = fields["te_port"],
+                                           }
+                          )
 
-		core.setting_set("address","")
+                          favourites = minetest.write_json(favourites)
-		core.setting_set("remote_port","30000")
 
-		return true
+              local output,err,errcode = io.open(path, "w")
-	end
+              if output then
+                 output:write(favourites or '')
+                 io.close(output)
+              else
+                 --gamedata.errormessage = fgettext("Can't write to serverlist_file! ("..path..')')
+                 gamedata.errormessage = err..' ('..errcode..')'
+              end
+           end
+           asyncOnlineFavourites()
+        end
 
-	if (fields["btn_mp_connect"] ~= nil or
+        if fields["btn_delete_favorite"] ~= nil then
-		fields["key_enter"] ~= nil) and fields["te_address"] ~= nil and
+                local current_favourite = core.get_table_index("favourites")
-		fields["te_port"] ~= nil then
+                if current_favourite == nil then return end
+                if current_favourite > #core.get_favorites('offline') then return end
+                core.delete_favorite(current_favourite)
+                tabdata.fav_selected = nil
+                asyncOnlineFavourites()
 
-		gamedata.playername     = fields["te_name"]
-		gamedata.password       = fields["te_pwd"]
-		gamedata.address        = fields["te_address"]
-		gamedata.port           = fields["te_port"]
 
-		local fav_idx = core.get_table_index("favourites")
+                core.setting_set("address","")
+                core.setting_set("remote_port","30000")
 
-		if fav_idx ~= nil and fav_idx <= #menudata.favorites and
+                return true
-			menudata.favorites[fav_idx].address == fields["te_address"] and
+        end
-			menudata.favorites[fav_idx].port    == fields["te_port"] then
 
-			gamedata.servername        = menudata.favorites[fav_idx].name
+        if fields["btn_mp_connect"] ~= nil or
-			gamedata.serverdescription = menudata.favorites[fav_idx].description
+                fields["key_enter"] ~= nil then
 
-			if not is_server_protocol_compat_or_error(menudata.favorites[fav_idx].proto_min,
+                gamedata.playername     = fields["te_name"]
-					menudata.favorites[fav_idx].proto_max)then
+                gamedata.password       = fields["te_pwd"]
-				return true
+                gamedata.address        = fields["te_address"]
-			end
+                gamedata.port           = fields["te_port"]
-		else
-			gamedata.servername        = ""
-			gamedata.serverdescription = ""
-		end
 
-		gamedata.selected_world = 0
+                local fav_idx = core.get_table_index("favourites")
+                if fav_idx ~= nil and fav_idx <= #menudata.favorites and
+                        menudata.favorites[fav_idx].address == fields["te_address"] and
+                        menudata.favorites[fav_idx].port    == fields["te_port"] then
+                else
+                        gamedata.servername        = ""
+                        gamedata.serverdescription = ""
+                end
 
-		core.setting_set("address",    fields["te_address"])
+                gamedata.selected_world = 0
-		core.setting_set("remote_port",fields["te_port"])
 
-		core.start()
+                core.setting_set("address",    fields["te_address"])
-		return true
+                core.setting_set("remote_port",fields["te_port"])
-	end
+
-	return false
+                core.start()
+                return true
+        end
+
+        if fields["cancel"] ~= nil then
+           tabview:hide()
+           tabview.parent:show()
+           return true
+        end
+
+        return false
 end
 
 local function on_change(type,old_tab,new_tab)
-	if type == "LEAVE" then
+   if type == "LEAVE" then
-		return
+      return
-	end
+   end
-	if core.setting_getbool("public_serverlist") then
-		asyncOnlineFavourites()
-	else
-		menudata.favorites = core.get_favorites("local")
-	end
-		if type == "MenuQuit" then
-			return true
-		end
 end
 
 --------------------------------------------------------------------------------
 tab_multiplayer = {
-	name = "multiplayer",
+        name = "multiplayer",
-	caption = fgettext("Client"),
+        caption = fgettext("Client"),
-	cbf_formspec = get_formspec,
+        cbf_formspec = get_formspec,
-	cbf_button_handler = main_button_handler,
+        cbf_button_handler = main_button_handler,
-	--on_change = on_change
+       -- on_change = on_change
-	}
+        }
-
-function create_tab_multiplayer()
-		local retval = dialog_create("multiplayer",
-										get_formspec,
-										main_button_handler
-										--on_change
-										)
-	return retval
-end

builtin/mainmenu/tab_server.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -18,224 +18,187 @@
 --------------------------------------------------------------------------------
 local function get_formspec(tabview, name, tabdata)
 
-	local index = menudata.worldlist:get_current_index(
+        local index = menudata.worldlist:get_current_index(
-				tonumber(core.setting_get("mainmenu_last_selected_world"))
+                                tonumber(core.setting_get("mainmenu_last_selected_world"))
-				)
+                                )
 
-	local retval =
+        local retval =
-		"image_button[4,4.15;2.6,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete;" .. fgettext("Delete") .. "]" ..
+            "size[16,11]"..
-		"image_button[6.5,4.15;2.8,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create;" .. fgettext("New") .. "]" ..
+            "box[-100,8.5;200,10;#999999]" ..
-		"image_button[9.2,4.15;2.55,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_configure;" .. fgettext("Configure") .. "]" ..
+            "box[-100,-10;200,12;#999999]" ..
-		"image_button[8.5,4.95;3.25,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;start_server;" .. fgettext("Start Game") .. "]" ..
+            "bgcolor[#00000070;true]"..
-		"label[4,-0.25;" .. fgettext("Select World:") .. "]" ..
+            "image_button[4,8.7;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;start_server;".. fgettext("Play") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-		"checkbox[0.25,0.15;cb_creative_mode;" .. fgettext("Creative Mode") .. ";" ..
+            "image_button[7.8,8.7;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create;".. fgettext("New") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-		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[0.25,1.3;0.58,0.55;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_check.png]"..
-		"image_button[0.8,1.3;3,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_trans.png;btn_single;Local Server;false;false]"..
-		"checkbox[0.25,1.6;cb_server_announce;" .. fgettext("Public") .. ";" ..
-		dump(core.setting_getbool("server_announce")) .. "]" ..
-		"label[0.25,2.2;" .. fgettext("Name/Password") .. "]" ..
-		"field[0.55,3.2;3.5,0.5;te_playername;;" ..
-		core.formspec_escape(core.setting_get("name")) .. "]" ..
-		"pwdfield[0.55,4;3.5,0.5;te_passwd;]"
 
-	local bind_addr = core.setting_get("bind_address")
+            "image_button[4,9.55;2.68,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete;".. fgettext("Delete") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-	if bind_addr ~= nil and bind_addr ~= "" then
+            "image_button[6.53,9.55;2.68,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_configure;".. fgettext("Configure") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-		retval = retval ..
+            "image_button[9.07,9.55;2.68,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;cancel;".. fgettext("Cancel") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-			"field[0.55,5.2;2.25,0.5;te_serveraddr;" .. fgettext("Bind Address") .. ";" ..
+            "label[7,1.5;" .. fgettext("Select World:") .. "]" ..
-			core.formspec_escape(core.setting_get("bind_address")) .. "]" ..
-			"field[2.8,5.2;1.25,0.5;te_serverport;" .. fgettext("Port") .. ";" ..
-			core.formspec_escape(core.setting_get("port")) .. "]"
-	else
-		retval = retval ..
-			"field[0.55,5.2;3.5,0.5;te_serverport;" .. fgettext("Server Port") .. ";" ..
-			core.formspec_escape(core.setting_get("port")) .. "]"
-	end
 
-	retval = retval ..
+            "checkbox[12,8.70;cb_creative_mode;" .. fgettext("Creative Mode") .. ";" .. dump(core.setting_getbool("creative_mode")) .. "]" ..
-		"textlist[4,0.25;7.5,3.7;srv_worlds;" ..
+            --"checkbox[1000,9.20;cb_enable_damage;" .. fgettext("Enable Damage") .. ";" .. dump(core.setting_getbool("enable_damage")) .. "]" ..
-		menu_render_worldlist() ..
+            "checkbox[12,9.50;cb_server_announce;" .. fgettext("Public") .. ";" .. dump(core.setting_getbool("server_announce")) .. "]" ..
-		";" .. index .. "]"
+            "label[0.2,8.55;" .. fgettext("Name/Password") .. "]" ..
+            "field[0.5,9.45;3.5,0.5;te_playername;;"
 
-	return 'size[12,5.4;false]'..retval
+        local nm = core.formspec_escape(core.setting_get("name"))
+        if nm=='' then
+           nm='Wanderer'
+        end
+        retval = retval ..
+                 nm .. "]" ..
+                "pwdfield[0.5,10.15;3.5,0.5;te_passwd;]"
+
+        local bind_addr = core.setting_get("bind_address")
+
+        if not PLATFORM=="android" and bind_addr ~= nil and bind_addr ~= "" then
+                retval = retval ..
+                        "field[300,0;2.25,0.5;te_serveraddr;" .. fgettext("Bind Address") .. ";" ..
+                        core.formspec_escape(core.setting_get("bind_address")) .. "]"..
+                        "field[300,1;1.25,0.5;te_serverport;" .. fgettext("Port") .. ";" ..
+                        core.formspec_escape(core.setting_get("port")) .. "]"
+        else
+                retval = retval ..
+                        "field[300,1;3.5,0.5;te_serverport;" .. fgettext("Server Port") .. ";" ..
+                        core.formspec_escape(core.setting_get("port")) .. "]"
+        end
+
+        retval = retval ..
+                "textlist[0,2.2;16,6.5;srv_worlds;" ..
+                menu_render_worldlist() ..
+                ";" .. (index or 1) .. ";true]"
+
+        return retval
 end
 
 --------------------------------------------------------------------------------
 local function main_button_handler(this, fields, name, tabdata)
 
-	local world_doubleclick = false
+        local world_doubleclick = false
 
-	if fields["btn_single"]~=nil then
+        if fields["srv_worlds"] ~= nil then
-		local single = create_tab_single(true)
+                local event = core.explode_textlist_event(fields["srv_worlds"])
-		single:set_parent(this.parent)
-		single:show()
-		this:hide()
-		return true
-	end
 
-	if fields["srv_worlds"] ~= nil then
+                if event.type == "DCL" then
-		local event = core.explode_textlist_event(fields["srv_worlds"])
+                        world_doubleclick = true
+                end
+                if event.type == "CHG" then
+                        core.setting_set("mainmenu_last_selected_world",
+                                menudata.worldlist:get_raw_index(core.get_textlist_index("srv_worlds")))
+                        return true
+                end
+        end
 
-		local selected = core.get_textlist_index("srv_worlds")
+        if menu_handle_key_up_down(fields,"srv_worlds","mainmenu_last_selected_world") then
-		if selected ~= nil then
+                return true
-			local filename = menudata.worldlist:get_list()[selected].path
+        end
-			local worldconfig = modmgr.get_worldconfig(filename)
-			filename = filename .. DIR_DELIM .. "world.mt"
 
-			if worldconfig.creative_mode ~= nil then
+        if fields["cb_creative_mode"] then
-				core.setting_set("creative_mode", worldconfig.creative_mode)
+                core.setting_set("creative_mode", fields["cb_creative_mode"])
-			else
+                local bool = fields["cb_creative_mode"]
-				local worldfile = Settings(filename)
+                if bool == 'true' then
-				worldfile:set("creative_mode", core.setting_get("creative_mode"))
+                   bool = 'false'
-				if not worldfile:write() then
+                else
-					core.log("error", "Failed to write world config file")
+                   bool = 'true'
-				end
+                end
-			end
+                core.setting_set("enable_damage", bool)
-			if worldconfig.enable_damage ~= nil then
+                print(bool)
-				core.setting_set("enable_damage", worldconfig.enable_damage)
+                return true
-			else
+        end
-				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
+        if fields["cb_enable_damage"] then
-			world_doubleclick = true
+                core.setting_set("enable_damage", fields["cb_enable_damage"])
-		end
+                return true
-		if event.type == "CHG" then
+        end
-			core.setting_set("mainmenu_last_selected_world",
-				menudata.worldlist:get_raw_index(core.get_textlist_index("srv_worlds")))
-			return true
-		end
-	end
 
-	if menu_handle_key_up_down(fields,"srv_worlds","mainmenu_last_selected_world") then
+        if fields["cb_server_announce"] then
-		return true
+                core.setting_set("server_announce", fields["cb_server_announce"])
-	end
+                return true
+        end
 
-	if fields["cb_creative_mode"] then
+        if fields["start_server"] ~= nil or
-		core.setting_set("creative_mode", fields["cb_creative_mode"])
+                world_doubleclick or
-		local selected = core.get_textlist_index("srv_worlds")
+                fields["key_enter"] then
-		local filename = menudata.worldlist:get_list()[selected].path ..
+                local selected = core.get_textlist_index("srv_worlds")
-				DIR_DELIM .. "world.mt"
+                if selected ~= nil then
+                        gamedata.playername     = fields["te_playername"]
+                        gamedata.password       = fields["te_passwd"]
+                        gamedata.port           = fields["te_serverport"]
+                        gamedata.address        = ""
+                        gamedata.selected_world = menudata.worldlist:get_raw_index(selected)
 
-		local worldfile = Settings(filename)
+                        core.setting_set("port",gamedata.port)
-		worldfile:set("creative_mode", fields["cb_creative_mode"])
+                        if fields["te_serveraddr"] ~= nil then
-		if not worldfile:write() then
+                                core.setting_set("bind_address",fields["te_serveraddr"])
-			core.log("error", "Failed to write world config file")
+                        end
-		end
-		return true
-	end
 
-	if fields["cb_enable_damage"] then
+                        --update last game
-		core.setting_set("enable_damage", fields["cb_enable_damage"])
+                        local world = menudata.worldlist:get_raw_element(gamedata.selected_world)
-		local selected = core.get_textlist_index("srv_worlds")
-		local filename = menudata.worldlist:get_list()[selected].path ..
-				DIR_DELIM .. "world.mt"
 
-		local worldfile = Settings(filename)
+                        local game,index = gamemgr.find_by_gameid(world.gameid)
-		worldfile:set("enable_damage", fields["cb_enable_damage"])
+                        core.setting_set("menu_last_game",game.id)
-		if not worldfile:write() then
+                        core.start()
-			core.log("error", "Failed to write world config file")
+                        return true
-		end
+                end
-		return true
+        end
-	end
 
-	if fields["cb_server_announce"] then
+        if fields["world_create"] ~= nil then
-		core.setting_set("server_announce", fields["cb_server_announce"])
+                local create_world_dlg = create_create_world_dlg(true)
-		return true
+                create_world_dlg:set_parent(this)
-	end
+                create_world_dlg:show()
+                this:hide()
+                return true
+        end
 
-	if fields["start_server"] ~= nil or
+        if fields["world_delete"] ~= nil then
-		world_doubleclick or
+                local selected = core.get_textlist_index("srv_worlds")
-		fields["key_enter"] then
+                if selected ~= nil and
-		local selected = core.get_textlist_index("srv_worlds")
+                        selected <= menudata.worldlist:size() then
-		if selected ~= nil then
+                        local world = menudata.worldlist:get_list()[selected]
-			gamedata.playername     = fields["te_playername"]
+                        if world ~= nil and
-			gamedata.password       = fields["te_passwd"]
+                                world.name ~= nil and
-			gamedata.port           = fields["te_serverport"]
+                                world.name ~= "" then
-			gamedata.address        = ""
+                                local index = menudata.worldlist:get_raw_index(selected)
-			gamedata.selected_world = menudata.worldlist:get_raw_index(selected)
+                                local delete_world_dlg = create_delete_world_dlg(world.name,index)
+                                delete_world_dlg:set_parent(this)
+                                delete_world_dlg:show()
+                                this:hide()
+                        end
+                end
 
-			core.setting_set("port",gamedata.port)
+                return true
-			if fields["te_serveraddr"] ~= nil then
+        end
-				core.setting_set("bind_address",fields["te_serveraddr"])
-			end
 
-			--update last game
+        if fields["world_configure"] ~= nil then
-			local world = menudata.worldlist:get_raw_element(gamedata.selected_world)
+                local selected = core.get_textlist_index("srv_worlds")
+                if selected ~= nil then
+                        local configdialog =
+                                create_configure_world_dlg(
+                                                menudata.worldlist:get_raw_index(selected))
 
-			local game,index = gamemgr.find_by_gameid(world.gameid)
+                        if (configdialog ~= nil) then
-			core.setting_set("menu_last_game",game.id)
+                                configdialog:set_parent(this)
-			core.start()
+                                configdialog:show()
-			return true
+                                this:hide()
-		end
+                        end
-	end
+                end
+                return true
+        end
 
-	if fields["world_create"] ~= nil then
+    if fields["cancel"] ~= nil then
-		local create_world_dlg = create_create_world_dlg(true)
+       this:hide()
-		create_world_dlg:set_parent(this)
+       this.parent:show()
-		create_world_dlg:show()
+       return true
-		this:hide()
+    end
-		return true
-	end
 
-	if fields["world_delete"] ~= nil then
+        return false
-		local selected = core.get_textlist_index("srv_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)
-				delete_world_dlg:show()
-				this:hide()
-			end
-		end
-
-		return true
-	end
-
-	if fields["world_configure"] ~= nil then
-		local selected = core.get_textlist_index("srv_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)
-				configdialog:show()
-				this:hide()
-			end
-		end
-		return true
-	end
-	return false
 end
 
 --------------------------------------------------------------------------------
 tab_server = {
-	name = "server",
+        name = "server",
-	caption = fgettext("Server"),
+        caption = fgettext("Server"),
-	cbf_formspec = get_formspec,
+        cbf_formspec = get_formspec,
-	cbf_button_handler = main_button_handler,
+        cbf_button_handler = main_button_handler,
-	on_change = nil
+        on_change = nil
-	}
+        }
-
-function create_tab_server()
-		local retval = dialog_create("server",
-										get_formspec,
-										main_button_handler,
-										nil)
-	return retval
-end

builtin/mainmenu/tab_settings.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -16,368 +16,450 @@
 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 --------------------------------------------------------------------------------
-
 local dd_filter_labels = {
-	fgettext("No Filter"),
+        fgettext("No Filter"),
-	fgettext("Bilinear Filter"),
+        fgettext("Bilinear Filter"),
-	fgettext("Trilinear Filter")
+        fgettext("Trilinear Filter")
 }
 
 local filters = {
-	{dd_filter_labels[1]..","..dd_filter_labels[2]..","..dd_filter_labels[3]},
+        {dd_filter_labels[1]..","..dd_filter_labels[2]..","..dd_filter_labels[3]},
-	{"", "bilinear_filter", "trilinear_filter"},
+        {"", "bilinear_filter", "trilinear_filter"},
 }
 
 local dd_mipmap_labels = {
-	fgettext("No Mipmap"),
+        fgettext("No Mipmap"),
-	fgettext("Mipmap"),
+        fgettext("Mipmap"),
-	fgettext("Mipmap + Aniso. Filter")
+        fgettext("Mipmap + Aniso. Filter")
 }
 
 local mipmap = {
-	{dd_mipmap_labels[1]..","..dd_mipmap_labels[2]..","..dd_mipmap_labels[3]},
+        {dd_mipmap_labels[1]..","..dd_mipmap_labels[2]..","..dd_mipmap_labels[3]},
-	{"", "mip_map", "anisotropic_filter"},
+        {"", "mip_map", "anisotropic_filter"},
 }
 
 local function getFilterSettingIndex()
-	if (core.setting_get(filters[2][3]) == "true") then
+        if (core.setting_get(filters[2][3]) == "true") then
-		return 3
+                return 3
-	end
+        end
-	if (core.setting_get(filters[2][3]) == "false" and core.setting_get(filters[2][2]) == "true") then
+        if (core.setting_get(filters[2][3]) == "false" and core.setting_get(filters[2][2]) == "true") then
-		return 2
+                return 2
-	end
+        end
-	return 1
+        return 1
 end
 
 local function getMipmapSettingIndex()
-	if (core.setting_get(mipmap[2][3]) == "true") then
+        if (core.setting_get(mipmap[2][3]) == "true") then
-		return 3
+                return 3
-	end
+        end
-	if (core.setting_get(mipmap[2][3]) == "false" and core.setting_get(mipmap[2][2]) == "true") then
+        if (core.setting_get(mipmap[2][3]) == "false" and core.setting_get(mipmap[2][2]) == "true") then
-		return 2
+                return 2
-	end
+        end
-	return 1
+        return 1
 end
 
 local function video_driver_fname_to_name(selected_driver)
-	local video_drivers = core.get_video_drivers()
+        local video_drivers = core.get_video_drivers()
 
-	for i=1, #video_drivers do
+        for i=1, #video_drivers do
-		if selected_driver == video_drivers[i].friendly_name then
+                if selected_driver == video_drivers[i].friendly_name then
-			return video_drivers[i].name:lower()
+                        return video_drivers[i].name:lower()
-		end
+                end
-	end
+        end
 
-	return ""
+        return ""
 end
-
 local function dlg_confirm_reset_formspec(data)
-	local retval =
+        local retval =
-		"size[8,3]" ..
+                "size[8,3]" ..
-		"label[1,1;".. fgettext("Are you sure to reset your singleplayer world?") .. "]"..
+                "label[1,1;".. fgettext("Are you sure to reset your singleplayer world?") .. "]"..
-		"image_button[1,2;2.6,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_reset_singleplayer_confirm;"..
+                "image_button[1,2;2.6,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_reset_singleplayer_confirm;"..
-				fgettext("Yes") .. "]" ..
+                                fgettext("Yes") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-		"image_button[4,2;2.8,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_reset_singleplayer_cancel;"..
+                "image_button[4,2;2.8,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;dlg_reset_singleplayer_cancel;"..
-				fgettext("No!!!") .. "]"
+                                fgettext("No!!!") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
-	return retval
+        return retval
 end
 
 local function dlg_confirm_reset_btnhandler(this, fields, dialogdata)
 
-	if fields["dlg_reset_singleplayer_confirm"] ~= nil then
+        if fields["dlg_reset_singleplayer_confirm"] ~= nil then
-		local worldlist = core.get_worlds()
+                local worldlist = core.get_worlds()
-		local found_singleplayerworld = false
+                local found_singleplayerworld = false
 
-		for i=1,#worldlist,1 do
+                for i=1,#worldlist,1 do
-			if worldlist[i].name == "singleplayerworld" then
+                        if worldlist[i].name == "singleplayerworld" then
-				found_singleplayerworld = true
+                                found_singleplayerworld = true
-				gamedata.worldindex = i
+                                gamedata.worldindex = i
-			end
+                        end
-		end
+                end
 
-		if found_singleplayerworld then
+                if found_singleplayerworld then
-			core.delete_world(gamedata.worldindex)
+                        core.delete_world(gamedata.worldindex)
-		end
+                end
 
-		core.create_world("singleplayerworld", 1)
+                core.create_world("singleplayerworld", 1)
 
-		worldlist = core.get_worlds()
+                worldlist = core.get_worlds()
 
-		found_singleplayerworld = false
+                found_singleplayerworld = false
 
-		for i=1,#worldlist,1 do
+                for i=1,#worldlist,1 do
-			if worldlist[i].name == "singleplayerworld" then
+                        if worldlist[i].name == "singleplayerworld" then
-				found_singleplayerworld = true
+                                found_singleplayerworld = true
-				gamedata.worldindex = i
+                                gamedata.worldindex = i
-			end
+                        end
-		end
+                end
-	end
+        end
 
-	this.parent:show()
+        this.parent:show()
-	this:hide()
+        this:hide()
-	this:delete()
+        this:delete()
-	return true
+        return true
 end
 
 local function showconfirm_reset(tabview)
-	local new_dlg = dialog_create("reset_spworld",
+        local new_dlg = dialog_create("reset_spworld",
-		dlg_confirm_reset_formspec,
+                dlg_confirm_reset_formspec,
-		dlg_confirm_reset_btnhandler,
+                dlg_confirm_reset_btnhandler,
-		nil)
+                nil)
-	new_dlg:set_parent(tabview)
+        new_dlg:set_parent(tabview)
-	tabview:hide()
+        tabview:hide()
-	new_dlg:show()
+        new_dlg:show()
 end
 
 local function gui_scale_to_scrollbar()
-	local current_value = tonumber(core.setting_get("gui_scaling"))
 
-	if (current_value == nil) or current_value < 0.25 then
+        local current_value = tonumber(core.setting_get("gui_scaling"))
-		return 0
-	end
-	if current_value <= 1.25 then
-		return ((current_value - 0.25)/ 1.0) * 700
-	end
-	if current_value <= 6 then
-		return ((current_value -1.25) * 100) + 700
-	end
 
-	return 1000
+        if (current_value == nil) or current_value < 0.25 then
+                return 0
+        end
+
+        if current_value <= 1.25 then
+                return ((current_value - 0.25)/ 1.0) * 700
+        end
+
+        if current_value <= 6 then
+                return ((current_value -1.25) * 100) + 700
+        end
+
+        return 1000
 end
 
 local function scrollbar_to_gui_scale(value)
-	value = tonumber(value)
 
-	if (value <= 700) then
+        value = tonumber(value)
-		return ((value / 700) * 1.0) + 0.25
-	end
-	if (value <=1000) then
-		return ((value - 700) / 100) + 1.25
-	end
 
-	return 1
+        if (value <= 700) then
+                return ((value / 700) * 1.0) + 0.25
+        end
+
+        if (value <=1000) then
+                return ((value - 700) / 100) + 1.25
+        end
+
+        return 1
 end
 
 local function formspec(tabview, name, tabdata)
-	local video_drivers = core.get_video_drivers()
+        local video_drivers = core.get_video_drivers()
-	local current_video_driver = core.setting_get("video_driver"):lower()
+        local current_video_driver = core.setting_get("video_driver"):lower()
 
-	local driver_formspec_string = ""
+        local driver_formspec_string = ""
-	local driver_current_idx = 0
+        local driver_current_idx = 0
 
-	for i=2, #video_drivers do
+        for i=2, #video_drivers do
-		driver_formspec_string = driver_formspec_string .. video_drivers[i].friendly_name
+                driver_formspec_string = driver_formspec_string .. video_drivers[i].friendly_name
-		if i ~= #video_drivers then
+                if i ~= #video_drivers then
-			driver_formspec_string = driver_formspec_string .. ","
+                        driver_formspec_string = driver_formspec_string .. ","
-		end
+                end
 
-		if current_video_driver == video_drivers[i].name:lower() then
+                if current_video_driver == video_drivers[i].name:lower() then
-			driver_current_idx = i - 1
+                        driver_current_idx = i - 1
-		end
+                end
-	end
+        end
 
-	local tab_string =
-		"box[0,0;3.5,3.9;#999999]" ..
-		"checkbox[0.25,0;cb_smooth_lighting;".. fgettext("Smooth Lighting")
-				.. ";".. dump(core.setting_getbool("smooth_lighting")) .. "]"..
-		"checkbox[0.25,0.5;cb_particles;".. fgettext("Enable Particles") .. ";"
-				.. dump(core.setting_getbool("enable_particles"))	.. "]"..
-		"checkbox[0.25,1;cb_3d_clouds;".. fgettext("3D Clouds") .. ";"
-				.. dump(core.setting_getbool("enable_3d_clouds")) .. "]"..
-		"checkbox[0.25,1.5;cb_fancy_trees;".. fgettext("Fancy Trees") .. ";"
-				.. dump(core.setting_getbool("new_style_leaves")) .. "]"..
-		"checkbox[0.25,2.0;cb_opaque_water;".. fgettext("Opaque Water") .. ";"
-				.. dump(core.setting_getbool("opaque_water")) .. "]"..
-		"checkbox[0.25,2.5;cb_connected_glass;".. fgettext("Connected Glass") .. ";"
-				.. dump(core.setting_getbool("connected_glass"))	.. "]"..
-		"checkbox[0.25,3.0;cb_node_highlighting;".. fgettext("Node Highlighting") .. ";"
-				.. dump(core.setting_getbool("enable_node_highlighting")) .. "]"..
-		"box[3.75,0;3.75,3.45;#999999]" ..
-		"label[3.85,0.1;".. fgettext("Texturing:") .. "]"..
-		"dropdown[3.85,0.55;3.85;dd_filters;" .. filters[1][1] .. ";"
-				.. getFilterSettingIndex() .. "]" ..
-		"dropdown[3.85,1.35;3.85;dd_mipmap;" .. mipmap[1][1] .. ";"
-				.. getMipmapSettingIndex() .. "]" ..
-		"label[3.85,2.15;".. fgettext("Rendering:") .. "]"..
-		"dropdown[3.85,2.6;3.85;dd_video_driver;"
-				.. driver_formspec_string .. ";" .. driver_current_idx .. "]" ..
-		"tooltip[dd_video_driver;" ..
-				fgettext("Restart MultiCraft for driver change to take effect") .. "]"
 
-	if PLATFORM ~= "Android" then
+        local tab_string =
-		tab_string = tab_string ..
+                "size[16,11]"..
-		"image_button[8,4.75;3.75,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_change_keys;".. fgettext("Change keys") .. "]"
+                "bgcolor[#00000070;true]"..
-	else
+                "box[-100,8.5;200,10;#999999]" ..
-		tab_string = tab_string ..
+                "box[-100,-10;200,12;#999999]" ..
-		"image_button[3.75,5.5;3.95,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_reset_singleplayer;".. fgettext("Reset singleplayer world") .. "]"
-	end
-	tab_string = tab_string ..
-		"box[0,4.25;3.5,1.1;#999999]" ..
-		"label[0.25,4.25;" .. fgettext("GUI scale factor") .. "]" ..
-		"scrollbar[0.25,4.75;3,0.4;sb_gui_scaling;horizontal;" ..
-		 gui_scale_to_scrollbar() .. "]" ..
-		"tooltip[sb_gui_scaling;" ..
-			fgettext("Scaling factor applied to menu elements: ") ..
-			dump(core.setting_get("gui_scaling")) .. "]"
 
-	if PLATFORM == "Android" then
+                "box[0.75,2.5;4.5,3.9;#999999]" ..
-		tab_string = tab_string ..
+                "checkbox[1.0,2.5;cb_smooth_lighting;".. fgettext("Smooth Lighting")
-		"box[3.75,3.55;3.75,1.8;#999999]" ..
+                                .. ";".. dump(core.setting_getbool("smooth_lighting")) .. "]"..
-		"checkbox[3.9,3.45;cb_touchscreen_target;".. fgettext("Touch free target") .. ";"
+                "checkbox[1.0,3.0;cb_particles;".. fgettext("Enable Particles") .. ";"
-				.. dump(core.setting_getbool("touchtarget")) .. "]"
+                                .. dump(core.setting_getbool("enable_particles"))       .. "]"..
-	end
+                "checkbox[1.0,3.5;cb_3d_clouds;".. fgettext("3D Clouds") .. ";"
+                                .. dump(core.setting_getbool("enable_3d_clouds")) .. "]"..
+                "checkbox[1.0,4.0;cb_fancy_trees;".. fgettext("Fancy Trees") .. ";"
+                                .. dump(core.setting_getbool("new_style_leaves")) .. "]"..
+                "checkbox[1.0,4.5;cb_opaque_water;".. fgettext("Opaque Water") .. ";"
+                                .. dump(core.setting_getbool("opaque_water")) .. "]"..
+                "checkbox[1.0,5.0;cb_connected_glass;".. fgettext("Connected Glass") .. ";"
+                                .. dump(core.setting_getbool("connected_glass"))        .. "]"..
+                "checkbox[1.0,5.5;cb_node_highlighting;".. fgettext("Node Highlighting") .. ";"
+                                .. dump(core.setting_getbool("enable_node_highlighting")) .. "]"..
 
-	if core.setting_get("touchscreen_threshold") ~= nil then
-		tab_string = tab_string ..
-				"label[4.3,4.1;" .. fgettext("Touchthreshold (px)") .. "]" ..
-				"dropdown[3.85,4.55;3.85;dd_touchthreshold;0,10,20,30,40,50;" ..
-				((tonumber(core.setting_get("touchscreen_threshold"))/10)+1) .. "]"
-	end
 
-	return 'size[7.70,6.2,false]'..tab_string
+        "box[5.5,2.5;4,3.45;#999999]" ..
+        "label[5.85,2.5;".. fgettext("Texturing:") .. "]"..
+        "dropdown[5.85,3.05;3.85;dd_filters;" .. filters[1][1] .. ";"
+                .. getFilterSettingIndex() .. "]" ..
+        "dropdown[5.85,3.85;3.85;dd_mipmap;" .. mipmap[1][1] .. ";"
+                .. getMipmapSettingIndex() .. "]" ..
+        "label[5.85,4.65;".. fgettext("Rendering:") .. "]"..
+        "dropdown[5.85,5.1;3.85;dd_video_driver;"
+                                .. driver_formspec_string .. ";" .. driver_current_idx .. "]" ..
+        "tooltip[dd_video_driver;" ..
+                fgettext("Restart minetest for driver change to take effect") .. "]"
+
+
+
+
+        if PLATFORM ~= "Android" then
+                tab_string = tab_string ..
+                "box[9.75,2.5;5.25,4;#999999]"..
+                "checkbox[10,2.5;cb_shaders;".. fgettext("Shaders") .. ";"
+                .. dump(core.setting_getbool("enable_shaders")) .. "]"..
+                "image_button[0,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_change_keys;".. fgettext("Change keys") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"--..
+--                "image_button[3.75,5;3.88,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_reset_singleplayer;".. fgettext("Reset singleplayer world") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+        else
+                --tab_string = tab_string ..
+--                "image_button[3.75,5;3.88,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_reset_singleplayer;".. fgettext("Reset singleplayer world") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+        end
+
+        tab_string = tab_string ..
+        "image_button[4,9.55;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_textures;".. fgettext("Texturepacks") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir)..
+        "menu_button_b.png]"..
+        "image_button[8,9.55;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_show_credits;".. fgettext("Credits") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+        "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_cancel;".. fgettext("OK") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"
+
+
+        if PLATFORM == "Android" then
+                tab_string = tab_string ..
+                "box[9.75,2.5;5.25,2.5;#999999]" ..
+                "checkbox[10,2.75;cb_touchscreen_target;".. fgettext("Touch free target") .. ";" .. dump(core.setting_getbool("touchtarget")) .. "]"..
+
+                "box[0.75,6.8;14.25,1.35;#999999]" ..
+                "label[1.5,6.8;" .. fgettext("GUI scale factor") .. "]"..
+                "scrollbar[1.0,7.2;13.75,0.7;sb_gui_scaling;horizontal;" .. gui_scale_to_scrollbar() .. "]" ..
+                "tooltip[sb_gui_scaling;" .. fgettext("Scaling factor applied to menu elements: ") .. dump(core.setting_get("gui_scaling")) .. "]"
+
+              --  if core.setting_get("touchscreen_threshold") ~= nil then
+                   tab_string = tab_string ..
+                                "label[10,3.5;" .. fgettext("Touchthreshold (px)") .. "]" ..
+                                "dropdown[10,4.0;5.18;dd_touchthreshold;0,10,20,30,40,50;" .. ((tonumber(core.setting_get("touchscreen_threshold") or 20)/10)+1) .. "]"
+              --  end
+
+        else
+            tab_string = tab_string ..
+                "box[0.75,6.8;14.25,1.35;#999999]" ..
+                "label[1.5,6.8;" .. fgettext("GUI scale factor") .. "]"..
+                "scrollbar[1.0,7.5;13.75,0.4;sb_gui_scaling;horizontal;" .. gui_scale_to_scrollbar() .. "]" ..
+                "tooltip[sb_gui_scaling;" .. fgettext("Scaling factor applied to menu elements: ") .. dump(core.setting_get("gui_scaling")) .. "]"
+        end
+
+        if PLATFORM ~= "Android" then
+           if core.setting_getbool("enable_shaders") then
+                tab_string = tab_string ..
+                                "checkbox[10,3.0;cb_bumpmapping;".. fgettext("Bumpmapping") .. ";"
+                                                .. dump(core.setting_getbool("enable_bumpmapping")) .. "]"..
+                                "checkbox[10,3.5;cb_generate_normalmaps;".. fgettext("Generate Normalmaps") .. ";"
+                                                .. dump(core.setting_getbool("generate_normalmaps")) .. "]"..
+                                "checkbox[10,4.0;cb_parallax;".. fgettext("Parallax Occlusion") .. ";"
+                                                .. dump(core.setting_getbool("enable_parallax_occlusion")) .. "]"..
+                                "checkbox[10,4.5;cb_waving_water;".. fgettext("Waving Water") .. ";"
+                                                .. dump(core.setting_getbool("enable_waving_water")) .. "]"..
+                                "checkbox[10,5.0;cb_waving_leaves;".. fgettext("Waving Leaves") .. ";"
+                                                .. dump(core.setting_getbool("enable_waving_leaves")) .. "]"..
+                                "checkbox[10,5.5;cb_waving_plants;".. fgettext("Waving Plants") .. ";"
+                                                .. dump(core.setting_getbool("enable_waving_plants")) .. "]"
+           else
+                tab_string = tab_string ..
+                                "textlist[10.3,3.2;4,1;;#888888" .. fgettext("Bumpmapping") .. ";0;true]" ..
+                                "textlist[10.3,3.7;4,1;;#888888" .. fgettext("Generate Normalmaps") .. ";0;true]" ..
+                                "textlist[10.3,4.2;4,1;;#888888" .. fgettext("Parallax Occlusion") .. ";0;true]" ..
+                                "textlist[10.3,4.7;4,1;;#888888" .. fgettext("Waving Water") .. ";0;true]" ..
+                                "textlist[10.3,5.2;4,1;;#888888" .. fgettext("Waving Leaves") .. ";0;true]" ..
+                                "textlist[10.3,5.7;4,1;;#888888" .. fgettext("Waving Plants") .. ";0;true]"
+           end
+        end
+        return tab_string
 end
 
 --------------------------------------------------------------------------------
 local function handle_settings_buttons(this, fields, tabname, tabdata)
-	if fields["cb_fancy_trees"] then
+        if fields["cb_fancy_trees"] then
-		core.setting_set("new_style_leaves", fields["cb_fancy_trees"])
+                core.setting_set("new_style_leaves", fields["cb_fancy_trees"])
-		return true
+                return true
-	end
+        end
-	if fields["cb_smooth_lighting"] then
+        if fields["cb_smooth_lighting"] then
-		core.setting_set("smooth_lighting", fields["cb_smooth_lighting"])
+                core.setting_set("smooth_lighting", fields["cb_smooth_lighting"])
-		return true
+                return true
-	end
+        end
-	if fields["cb_3d_clouds"] then
+        if fields["cb_3d_clouds"] then
-		core.setting_set("enable_3d_clouds", fields["cb_3d_clouds"])
+                core.setting_set("enable_3d_clouds", fields["cb_3d_clouds"])
-		return true
+                return true
-	end
+        end
-	if fields["cb_opaque_water"] then
+        if fields["cb_opaque_water"] then
-		core.setting_set("opaque_water", fields["cb_opaque_water"])
+                core.setting_set("opaque_water", fields["cb_opaque_water"])
-		return true
+                return true
-	end
+        end
-	if fields["cb_shaders"] then
+        if fields["cb_mipmapping"] then
-		if (core.setting_get("video_driver") == "direct3d8" or core.setting_get("video_driver") == "direct3d9") then
+                core.setting_set("mip_map", fields["cb_mipmapping"])
-			core.setting_set("enable_shaders", "false")
+                return true
-			gamedata.errormessage = fgettext("To enable shaders the OpenGL driver needs to be used.")
+        end
-		else
+        if fields["cb_anisotrophic"] then
-			core.setting_set("enable_shaders", fields["cb_shaders"])
+                core.setting_set("anisotropic_filter", fields["cb_anisotrophic"])
-		end
+                return true
-		return true
+        end
-	end
+        if fields["cb_bilinear"] then
-	if fields["cb_connected_glass"] then
+                core.setting_set("bilinear_filter", fields["cb_bilinear"])
-		core.setting_set("connected_glass", fields["cb_connected_glass"])
+                return true
-		return true
+        end
-	end
+        if fields["cb_trilinear"] then
-	if fields["cb_node_highlighting"] then
+                core.setting_set("trilinear_filter", fields["cb_trilinear"])
-		core.setting_set("enable_node_highlighting", fields["cb_node_highlighting"])
+                return true
-		return true
+        end
-	end
+        if fields["cb_shaders"] then
-	if fields["cb_particles"] then
+                if (core.setting_get("video_driver") == "direct3d8" or core.setting_get("video_driver") == "direct3d9") then
-		core.setting_set("enable_particles", fields["cb_particles"])
+                        core.setting_set("enable_shaders", "false")
-		return true
+                        gamedata.errormessage = fgettext("To enable shaders the OpenGL driver needs to be used.")
-	end
+                else
-	if fields["cb_bumpmapping"] then
+                        core.setting_set("enable_shaders", fields["cb_shaders"])
-		core.setting_set("enable_bumpmapping", fields["cb_bumpmapping"])
+                end
-	end
+                return true
-	if fields["cb_generate_normalmaps"] then
+        end
-		core.setting_set("generate_normalmaps", fields["cb_generate_normalmaps"])
+        if fields["cb_connected_glass"] then
-	end
+                core.setting_set("connected_glass", fields["cb_connected_glass"])
-	if fields["cb_parallax"] then
+                return true
-		core.setting_set("enable_parallax_occlusion", fields["cb_parallax"])
+        end
-		return true
+        if fields["cb_particles"] then
-	end
+                core.setting_set("enable_particles", fields["cb_particles"])
-	if fields["cb_waving_water"] then
+                return true
-		core.setting_set("enable_waving_water", fields["cb_waving_water"])
+        end
-		return true
+        if fields["cb_bumpmapping"] then
-	end
+                core.setting_set("enable_bumpmapping", fields["cb_bumpmapping"])
-	if fields["cb_waving_leaves"] then
+        end
-		core.setting_set("enable_waving_leaves", fields["cb_waving_leaves"])
+        if fields["cb_generate_normalmaps"] then
-	end
+                core.setting_set("generate_normalmaps", fields["cb_generate_normalmaps"])
-	if fields["cb_waving_plants"] then
+        end
-		core.setting_set("enable_waving_plants", fields["cb_waving_plants"])
+        if fields["cb_parallax"] then
-		return true
+                core.setting_set("enable_parallax_occlusion", fields["cb_parallax"])
-	end
+                return true
-	if fields["btn_change_keys"] ~= nil then
+        end
-		core.show_keys_menu()
+        if fields["cb_waving_water"] then
-		return true
+                core.setting_set("enable_waving_water", fields["cb_waving_water"])
-	end
+                return true
+        end
+        if fields["cb_waving_leaves"] then
+                core.setting_set("enable_waving_leaves", fields["cb_waving_leaves"])
+        end
+        if fields["cb_waving_plants"] then
+                core.setting_set("enable_waving_plants", fields["cb_waving_plants"])
+                return true
+        end
+        if fields["btn_change_keys"] ~= nil then
+                core.show_keys_menu()
+                return true
+        end
 
-	if fields["sb_gui_scaling"] then
+        if fields["sb_gui_scaling"] then
-		local event = core.explode_scrollbar_event(fields["sb_gui_scaling"])
+                local event = core.explode_scrollbar_event(fields["sb_gui_scaling"])
 
-		if event.type == "CHG" then
+                if event.type == "CHG" then
-			local tosave = string.format("%.2f",scrollbar_to_gui_scale(event.value))
+                        local tosave = string.format("%.2f",scrollbar_to_gui_scale(event.value))
-			core.setting_set("gui_scaling",tosave)
+                        core.setting_set("gui_scaling",tosave)
-			return true
+                        return true
-		end
+                end
-	end
+        end
-	if fields["cb_touchscreen_target"] then
+        if fields["cb_touchscreen_target"] then
-		core.setting_set("touchtarget", fields["cb_touchscreen_target"])
+                core.setting_set("touchtarget", fields["cb_touchscreen_target"])
-		return true
+                return true
-	end
+        end
-	if fields["btn_reset_singleplayer"] then
+        if fields["btn_reset_singleplayer"] then
-		showconfirm_reset(this)
+                showconfirm_reset(this)
-		return true
+                return true
-	end
+        end
 
-	--Note dropdowns have to be handled LAST!
+    if fields["btn_cancel"] ~= nil then
-	local ddhandled = false
+    this:hide()
+    this.parent:show()
+       return true
+    end
 
-	if fields["dd_touchthreshold"] then
-		core.setting_set("touchscreen_threshold",fields["dd_touchthreshold"])
-		ddhandled = true
-	end
 
-	if fields["dd_video_driver"] then
+    local index = ''
-		core.setting_set("video_driver",
+    if fields["btn_show_textures"] then  index = "texturepacks" end
-			video_driver_fname_to_name(fields["dd_video_driver"]))
+    if fields["btn_show_credits"]  then  index = "credits"      end
-		ddhandled = true
-	end
-	if fields["dd_filters"] == dd_filter_labels[1] then
-		core.setting_set("bilinear_filter", "false")
-		core.setting_set("trilinear_filter", "false")
-		ddhandled = true
-	end
-	if fields["dd_filters"] == dd_filter_labels[2] then
-		core.setting_set("bilinear_filter", "true")
-		core.setting_set("trilinear_filter", "false")
-		ddhandled = true
-	end
-	if fields["dd_filters"] == dd_filter_labels[3] then
-		core.setting_set("bilinear_filter", "false")
-		core.setting_set("trilinear_filter", "true")
-		ddhandled = true
-	end
-	if fields["dd_mipmap"] == dd_mipmap_labels[1] then
-		core.setting_set("mip_map", "false")
-		core.setting_set("anisotropic_filter", "false")
-		ddhandled = true
-	end
-	if fields["dd_mipmap"] == dd_mipmap_labels[2] then
-		core.setting_set("mip_map", "true")
-		core.setting_set("anisotropic_filter", "false")
-		ddhandled = true
-	end
-	if fields["dd_mipmap"] == dd_mipmap_labels[3] then
-		core.setting_set("mip_map", "true")
-		core.setting_set("anisotropic_filter", "true")
-		ddhandled = true
-	end
 
-	return ddhandled
+    for name,def in pairs(this.parent.tablist) do
+       if index == def.name then
+        local get_fs = function()
+           local retval = def.get_formspec(this.parent, name, tabdata)
+           retval = 'size[12,5.2]'..retval
+           return retval
+        end
+        local dlg = dialog_create(def.name, get_fs, def.button_handler, def.on_change)
+        dlg:set_parent(this)
+        this:hide()
+        dlg:show()
+        return dlg
+       end
+    end
+
+    --Note dropdowns have to be handled LAST!
+    local ddhandled = false
+
+    if fields["dd_touchthreshold"] then
+        core.setting_set("touchscreen_threshold",fields["dd_touchthreshold"])
+        ddhandled = true
+    end
+
+    if fields["dd_video_driver"] then
+        core.setting_set("video_driver",
+            video_driver_fname_to_name(fields["dd_video_driver"]))
+        ddhandled = true
+    end
+    if fields["dd_filters"] == dd_filter_labels[1] then
+        core.setting_set("bilinear_filter", "false")
+        core.setting_set("trilinear_filter", "false")
+        ddhandled = true
+    end
+    if fields["dd_filters"] == dd_filter_labels[2] then
+        core.setting_set("bilinear_filter", "true")
+        core.setting_set("trilinear_filter", "false")
+        ddhandled = true
+    end
+    if fields["dd_filters"] == dd_filter_labels[3] then
+        core.setting_set("bilinear_filter", "false")
+        core.setting_set("trilinear_filter", "true")
+        ddhandled = true
+    end
+    if fields["dd_mipmap"] == dd_mipmap_labels[1] then
+        core.setting_set("mip_map", "false")
+        core.setting_set("anisotropic_filter", "false")
+        ddhandled = true
+    end
+    if fields["dd_mipmap"] == dd_mipmap_labels[2] then
+        core.setting_set("mip_map", "true")
+        core.setting_set("anisotropic_filter", "false")
+        ddhandled = true
+    end
+    if fields["dd_mipmap"] == dd_mipmap_labels[3] then
+        core.setting_set("mip_map", "true")
+        core.setting_set("anisotropic_filter", "true")
+        ddhandled = true
+    end
+
+    return ddhandled
 end
 
 tab_settings = {
-	name = "settings",
+        name = "settings",
-	caption = fgettext("Settings"),
+        caption = fgettext("Settings"),
-	cbf_formspec = formspec,
+        cbf_formspec = formspec,
-	cbf_button_handler = handle_settings_buttons
+        cbf_button_handler = handle_settings_buttons
-}
+        }
-
-function create_tab_settings()
-		local retval = dialog_create("settings",
-										formspec,
-										handle_settings_buttons,
-										nil)
-	return retval
-end

builtin/mainmenu/tab_simple_main.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -16,190 +16,54 @@
 --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 --------------------------------------------------------------------------------
+    --favourites
+local function image_column(tooltip, flagname)
+      return "image," ..
+             "tooltip=" .. core.formspec_escape(tooltip) .. "," ..
+             "0=" .. core.formspec_escape(defaulttexturedir .. "blank.png") .. "," ..
+             "1=" .. core.formspec_escape(defaulttexturedir .. "server_flags_" .. flagname .. ".png")
+end
+
 local function get_formspec(tabview, name, tabdata)
-	local retval = ""
+    local retval = ""
-
+    retval = retval .. "bgcolor[#00000000;false]"
-	local render_details = dump(core.setting_getbool("public_serverlist"))
+    retval = retval .. "image_button[2.5,1.0;7,1;multicraftbutton.png;btn_show_singleplayer;".. fgettext("Singleplayer") .. ";true;true;multicraftbutton.png]"
-
+    retval = retval .. "image_button[2.5,2.4;7,1;multicraftbutton.png;btn_show_multiplayer;" .. fgettext("Multiplayer") .. ";true;true;multicraftbutton.png]"
-	retval = retval ..
+    retval = retval .. "image_button[2.5,3.8;7,1;multicraftbutton.png;btn_show_options;"..      fgettext("Options") .. ";true;true;multicraftbutton.png]"
-		"label[8,0.8;".. fgettext("Name/Password") .. "]" ..
+    retval = retval .. "image_button[2.5,5.2;7,1;multicraftbutton.png;btn_exit;".. fgettext("Exit") .. ";true;true;multicraftbutton.png]"
-		"field[0.25,3.25;5.5,0.5;te_address;;" ..
+    return retval
-		core.formspec_escape(core.setting_get("address")) .."]" ..
-		"field[5.75,3.25;2.25,0.5;te_port;;" ..
-		core.formspec_escape(core.setting_get("remote_port")) .."]" ..
-		"checkbox[8,-0.25;cb_public_serverlist;".. fgettext("Public Serverlist") .. ";" ..
-		render_details .. "]"
-
-	retval = retval ..
-		"image_button[8,2.5;4,1.5;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_mp_connect;".. fgettext("Connect") .. "]" ..
-		"field[8.75,1.5;3.5,0.5;te_name;;" ..
-		core.formspec_escape(core.setting_get("name")) .."]" ..
-		"pwdfield[8.75,2.3;3.5,0.5;te_pwd;]"
-
-	if render_details then
-		retval = retval .. "tablecolumns[" ..
-			"color,span=3;" ..
-			"text,align=right;" ..                -- clients
-			"text,align=center,padding=0.25;" ..  -- "/"
-			"text,align=right,padding=0.25;" ..   -- clients_max
-			image_column(fgettext("Creative mode"), "creative") .. ",padding=1;" ..
-			image_column(fgettext("Damage enabled"), "damage") .. ",padding=0.25;" ..
-			image_column(fgettext("PvP enabled"), "pvp") .. ",padding=0.25;" ..
-			"color,span=1;" ..
-			"text,padding=1]"                               -- name
-	else
-		retval = retval .. "tablecolumns[text]"
-	end
-	retval = retval ..
-		"table[-0.05,0;7.55,2.75;favourites;"
-
-	if #menudata.favorites > 0 then
-		retval = retval .. render_favorite(menudata.favorites[1],render_details)
-
-		for i=2,#menudata.favorites,1 do
-			retval = retval .. "," .. render_favorite(menudata.favorites[i],render_details)
-		end
-	end
-
-	if tabdata.fav_selected ~= nil then
-		retval = retval .. ";" .. tabdata.fav_selected .. "]"
-	else
-		retval = retval .. ";0]"
-	end
-
-	-- separator
-	retval = retval ..
-		"box[-0.28,3.75;12.4,0.1;#FFFFFF]"
-
-	-- checkboxes
-	retval = retval ..
-		"checkbox[8.0,3.9;cb_creative;".. fgettext("Creative Mode") .. ";" ..
-		dump(core.setting_getbool("creative_mode")) .. "]"..
-		"checkbox[8.0,4.4;cb_damage;".. fgettext("Enable Damage") .. ";" ..
-		dump(core.setting_getbool("enable_damage")) .. "]"
-	-- buttons
-	retval = retval ..
-		"image_button[2.0,4.5;6,1.5;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_start_singleplayer;" .. fgettext("Start Singleplayer") .. "]" ..
-		"image_button[8.25,4.5;2.5,1.5;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_config_sp_world;" .. fgettext("Config mods") .. "]"
-
-	return retval
 end
 
 --------------------------------------------------------------------------------
+
 local function main_button_handler(tabview, fields, name, tabdata)
+    local index = 0
+    if fields["btn_show_singleplayer"] then  index = 1 end
+    if fields["btn_show_multiplayer"]  then  index = 2 end
+    if fields["btn_show_options"]      then  index = 3 end
+    if fields["btn_exit"] then core.close() end
 
-	if fields["btn_start_singleplayer"] then
+    --switch_to_tab(self, index)
-		gamedata.selected_world	= gamedata.worldindex
-		gamedata.singleplayer	= true
-		core.start()
-		return true
-	end
-
-	if fields["favourites"] ~= nil then
-		local event = core.explode_table_event(fields["favourites"])
-
-		if event.type == "CHG" then
-			if event.row <= #menudata.favorites then
-				local address = menudata.favorites[event.row].address
-				local port = menudata.favorites[event.row].port
-
-				if address ~= nil and
-					port ~= nil then
-					core.setting_set("address",address)
-					core.setting_set("remote_port",port)
-				end
-
-				tabdata.fav_selected = event.row
-			end
-		end
-		return true
-	end
-
-	if fields["cb_public_serverlist"] ~= nil then
-		core.setting_set("public_serverlist", fields["cb_public_serverlist"])
-
-		if core.setting_getbool("public_serverlist") then
-			asyncOnlineFavourites()
-		else
-			menudata.favorites = core.get_favorites("local")
-		end
-		return true
-	end
-
-	if fields["cb_creative"] then
-		core.setting_set("creative_mode", fields["cb_creative"])
-		return true
-	end
-
-	if fields["cb_damage"] then
-		core.setting_set("enable_damage", fields["cb_damage"])
-		return true
-	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 = core.get_textlist_index("favourites")
-
-		if fav_idx ~= nil and fav_idx <= #menudata.favorites and
-			menudata.favorites[fav_idx].address == fields["te_address"] and
-			menudata.favorites[fav_idx].port    == fields["te_port"] then
-
-			gamedata.servername			= menudata.favorites[fav_idx].name
-			gamedata.serverdescription	= menudata.favorites[fav_idx].description
-
-			if not is_server_protocol_compat_or_error(menudata.favorites[fav_idx].proto_min,
-					menudata.favorites[fav_idx].proto_max) then
-				return true
-			end
-		else
-			gamedata.servername			= ""
-			gamedata.serverdescription	= ""
-		end
-
-		gamedata.selected_world = 0
-
-		core.setting_set("address",fields["te_address"])
-		core.setting_set("remote_port",fields["te_port"])
-
-		core.start()
-		return true
-	end
-
-	if fields["btn_config_sp_world"] ~= nil then
-		local configdialog = create_configure_world_dlg(1)
-
-		if (configdialog ~= nil) then
-			configdialog:set_parent(tabview)
-			tabview:hide()
-			configdialog:show()
-		end
-		return true
-	end
 end
 
 --------------------------------------------------------------------------------
 local function on_activate(type,old_tab,new_tab)
-	if type == "LEAVE" then
+    if type == "LEAVE" then
-		return
+        return
-	end
+    end
-	if core.setting_getbool("public_serverlist") then
+    core.set_topleft_text('Multicraft II')
-		asyncOnlineFavourites()
+    if core.setting_getbool("public_serverlist") then
-	else
+        asyncOnlineFavourites()
-		menudata.favorites = core.get_favorites("local")
+    else
-	end
+        menudata.favorites = core.get_favorites("local")
+    end
 end
 
 --------------------------------------------------------------------------------
 tab_simple_main = {
-	name = "main",
+    name = "main",
-	caption = fgettext("Main"),
+    caption = fgettext("Main"),
-	cbf_formspec = get_formspec,
+    cbf_formspec = get_formspec,
-	cbf_button_handler = main_button_handler,
+    cbf_button_handler = main_button_handler,
-	on_change = on_activate
+    on_change = on_activate
-	}
+    }

builtin/mainmenu/tab_singleplayer.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -16,285 +16,224 @@
 --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 last_game_id = core.setting_get("menu_last_game")
-	local game, index = gamemgr.find_by_gameid(last_game_id)
+    local game, index = gamemgr.find_by_gameid(last_game_id)
 
-	return game
+    return game
 end
 
 local function singleplayer_refresh_gamebar()
 
-	local old_bar = ui.find_by_name("game_button_bar")
+    local old_bar = ui.find_by_name("game_button_bar")
 
-	if old_bar ~= nil then
+    if old_bar ~= nil then
-		old_bar:delete()
+        old_bar:delete()
-	end
+    end
 
-	local function game_buttonbar_button_handler(fields)
+    local function game_buttonbar_button_handler(fields)
-	for key,value in pairs(fields) do
+        for key,value in pairs(fields) do
-		for j=1,#gamemgr.games,1 do
+            for j=1,#gamemgr.games,1 do
-			if ("game_btnbar_" .. gamemgr.games[j].id == key) then
+                if ("game_btnbar_" .. gamemgr.games[j].id == key) then
-				mm_texture.update("singleplayer", gamemgr.games[j])
+                    mm_texture.update("singleplayer", gamemgr.games[j])
-				core.set_topleft_text(gamemgr.games[j].name)
+                    --core.set_topleft_text(gamemgr.games[j].name)
-				core.setting_set("menu_last_game",gamemgr.games[j].id)
+                    core.setting_set("menu_last_game",gamemgr.games[j].id)
-				menudata.worldlist:set_filtercriteria(gamemgr.games[j].id)
+                    menudata.worldlist:set_filtercriteria(gamemgr.games[j].id)
-				return true
+                    return true
-			end
+                end
-		end
+            end
-	end
+        end
-end
+    end
 
-	local btnbar = buttonbar_create("game_button_bar",
+    local btnbar = buttonbar_create("game_button_bar",
-		game_buttonbar_button_handler,
+        game_buttonbar_button_handler,
-		{x=-0.3,y=5.65}, "horizontal", {x=12.4,y=1.15})
+        {x=-0.3,y=5.65}, "horizontal", {x=12.4,y=1.15})
 
-	for i=1,#gamemgr.games,1 do
+    for i=1,#gamemgr.games,1 do
-		local btn_name = "game_btnbar_" .. gamemgr.games[i].id
+        local btn_name = "game_btnbar_" .. gamemgr.games[i].id
 
-		local image = nil
+        local image = nil
-		local text = nil
+        local text = nil
-		local tooltip = core.formspec_escape(gamemgr.games[i].name)
+        local tooltip = core.formspec_escape(gamemgr.games[i].name)
 
-		if gamemgr.games[i].menuicon_path ~= nil and
+        if gamemgr.games[i].menuicon_path ~= nil and
-			gamemgr.games[i].menuicon_path ~= "" then
+            gamemgr.games[i].menuicon_path ~= "" then
-			image = core.formspec_escape(gamemgr.games[i].menuicon_path)
+            image = core.formspec_escape(gamemgr.games[i].menuicon_path)
-		else
+        else
 
-			local part1 = gamemgr.games[i].id:sub(1,5)
+            local part1 = gamemgr.games[i].id:sub(1,5)
-			local part2 = gamemgr.games[i].id:sub(6,10)
+            local part2 = gamemgr.games[i].id:sub(6,10)
-			local part3 = gamemgr.games[i].id:sub(11)
+            local part3 = gamemgr.games[i].id:sub(11)
 
-			text = part1 .. "\n" .. part2
+            text = part1 .. "\n" .. part2
-			if part3 ~= nil and
+            if part3 ~= nil and
-				part3 ~= "" then
+                part3 ~= "" then
-				text = text .. "\n" .. part3
+                text = text .. "\n" .. part3
-			end
+            end
-		end
+        end
-		btnbar:add_button(btn_name, text, image, tooltip)
+        btnbar:add_button(btn_name, text, image, tooltip)
-	end
+    end
 end
 
 local function get_formspec(tabview, name, tabdata)
-	local retval = ""
+    local retval = ""
 
-	local index = filterlist.get_current_index(menudata.worldlist,
+    local index = filterlist.get_current_index(menudata.worldlist,
-				tonumber(core.setting_get("mainmenu_last_selected_world"))
+                tonumber(core.setting_get("mainmenu_last_selected_world"))
-				)
+                )
 
-	retval = retval ..
+    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[4,4.05;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;play;".. fgettext("Play") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-			"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[7.8,4.05;3.95,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_create;".. fgettext("New") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-			"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") .. "]" ..
+            "image_button[4,4.8;2.68,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_delete;".. fgettext("Delete") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-			"label[4,-0.25;".. fgettext("Select World:") .. "]"..
+            "image_button[6.53,4.8;2.68,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;world_configure;".. fgettext("Configure") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-			"checkbox[0.25,0.15;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
+            "image_button[9.07,4.8;2.68,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;cancel;".. fgettext("Cancel") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
-			dump(core.setting_getbool("creative_mode")) .. "]"..
+
-			"checkbox[0.25,0.6;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
+            "label[4,-0.25;".. fgettext("Select World:") .. "]"..
-			dump(core.setting_getbool("enable_damage")) .. "]"..
+            "checkbox[0.25,0.25;cb_creative_mode;".. fgettext("Creative Mode") .. ";" ..
-			"image[0.25,1.3;0.58,0.55;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_checkf.png]"..
+            dump(core.setting_getbool("creative_mode")) .. "]"..
-			"image_button[0.8,1.3;3,0.8;"..multicraft.formspec_escape(mm_texture.basetexturedir).."menu_trans.png;btn_server;Local Server;false;false]"..
+            "checkbox[0.25,0.7;cb_enable_damage;".. fgettext("Enable Damage") .. ";" ..
-			"textlist[4,0.25;7.5,3.7;sp_worlds;" ..
+            dump(core.setting_getbool("enable_damage")) .. "]"..
-			menu_render_worldlist() ..
+            "textlist[4,0.25;7.5,3.7;sp_worlds;" ..
-			";" .. index .. "]"
+            menu_render_worldlist() ..
-	return 'size[12,5.4;false]'..retval
+            ";" .. index .. "]"
+    return retval
 end
 
 local function main_button_handler(this, fields, name, tabdata)
 
-	name = "singleplayer"
+    --assert(name == "singleplayer")
 
-	local world_doubleclick = false
+    local world_doubleclick = false
 
-	if fields["btn_server"]~=nil then
+    if fields["sp_worlds"] ~= nil then
-		local single = create_tab_server(true)
+        local event = core.explode_textlist_event(fields["sp_worlds"])
-		single:set_parent(this.parent)
-		single:show()
-		this:hide()
-		return true
-	end
 
-	if fields["sp_worlds"] ~= nil then
+        if event.type == "DCL" then
-		local event = core.explode_textlist_event(fields["sp_worlds"])
+            world_doubleclick = true
+        end
 
-		local selected = core.get_textlist_index("sp_worlds")
+        if event.type == "CHG" then
-		if selected ~= nil then
+            core.setting_set("mainmenu_last_selected_world",
-			local filename = menudata.worldlist:get_list()[selected].path
+                menudata.worldlist:get_raw_index(core.get_textlist_index("sp_worlds")))
-			local worldconfig = modmgr.get_worldconfig(filename)
+            return true
-			filename = filename .. DIR_DELIM .. "world.mt"
+        end
+    end
 
-			if worldconfig.creative_mode ~= nil then
+    if menu_handle_key_up_down(fields,"sp_worlds","mainmenu_last_selected_world") then
-				core.setting_set("creative_mode", worldconfig.creative_mode)
+        return true
-			else
+    end
-				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
+    if fields["cb_creative_mode"] then
-			world_doubleclick = true
+        core.setting_set("creative_mode", fields["cb_creative_mode"])
-		end
+        return true
+    end
 
-		if event.type == "CHG" and selected ~= nil then
+    if fields["cb_enable_damage"] then
-			core.setting_set("mainmenu_last_selected_world",
+        core.setting_set("enable_damage", fields["cb_enable_damage"])
-				menudata.worldlist:get_raw_index(selected))
+        return true
-			return true
+    end
-		end
-	end
 
-	if menu_handle_key_up_down(fields,"sp_worlds","mainmenu_last_selected_world") then
+    if fields["play"] ~= nil or
-		return true
+        world_doubleclick or
-	end
+        fields["key_enter"] then
+        local selected = core.get_textlist_index("sp_worlds")
 
-	if fields["cb_creative_mode"] then
+        if selected ~= nil then
-		core.setting_set("creative_mode", fields["cb_creative_mode"])
+            gamedata.selected_world = menudata.worldlist:get_raw_index(selected)
-		local selected = core.get_textlist_index("sp_worlds")
+            gamedata.singleplayer   = true
-		if selected then
-			local filename = menudata.worldlist:get_list()[selected].path ..
-					DIR_DELIM .. "world.mt"
 
-			local test = io.open(filename)
+            core.start()
-			if test then
+        end
-		               io.close(test)
+        return true
-				local worldfile = Settings(filename)
+    end
-				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
+    if fields["world_create"] ~= nil then
-		core.setting_set("enable_damage", fields["cb_enable_damage"])
+        local create_world_dlg = create_create_world_dlg(true)
-		local selected = core.get_textlist_index("sp_worlds")
+        create_world_dlg:set_parent(this)
-		if selected then
+        this:hide()
-			local filename = menudata.worldlist:get_list()[selected].path ..
+        create_world_dlg:show()
-			DIR_DELIM .. "world.mt"
+        mm_texture.update("singleplayer",current_game())
-			local test = io.open(filename)
+        return true
-			if test then
+    end
-				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
+    if fields["world_delete"] ~= nil then
-		world_doubleclick or
+        local selected = core.get_textlist_index("sp_worlds")
-		fields["key_enter"] then
+        if selected ~= nil and
-		local selected = core.get_textlist_index("sp_worlds")
+            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
 
-		if selected ~= nil then
+        return true
-			gamedata.selected_world = menudata.worldlist:get_raw_index(selected)
+    end
-			gamedata.singleplayer   = true
 
-			core.start()
+    if fields["world_configure"] ~= nil then
-		end
+        local selected = core.get_textlist_index("sp_worlds")
-		return true
+        if selected ~= nil then
-	end
+            local configdialog =
+                create_configure_world_dlg(
+                        menudata.worldlist:get_raw_index(selected))
 
-	if fields["world_create"] ~= nil then
+            if (configdialog ~= nil) then
-		local create_world_dlg = create_create_world_dlg(true)
+                configdialog:set_parent(this)
-		create_world_dlg:set_parent(this)
+                this:hide()
-		this:hide()
+                configdialog:show()
-		create_world_dlg:show()
+                mm_texture.update("singleplayer",current_game())
-		mm_texture.update("singleplayer",current_game())
+            end
-		return true
+        end
-	end
 
-	if fields["world_delete"] ~= nil then
+        return true
-		local selected = core.get_textlist_index("sp_worlds")
+    end
-		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
+    if fields["cancel"] ~= nil then
-	end
+       this:hide()
+       this.parent:show()
+       return true
+    end
 
-	if fields["world_configure"] ~= nil then
+    return false
-		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")
+    local buttonbar = ui.find_by_name("game_button_bar")
 
-	if ( buttonbar == nil ) then
+    if ( buttonbar == nil ) then
-		singleplayer_refresh_gamebar()
+        singleplayer_refresh_gamebar()
-		buttonbar = ui.find_by_name("game_button_bar")
+        buttonbar = ui.find_by_name("game_button_bar")
-	end
+    end
 
-	if (type == "ENTER") then
+    if (type == "ENTER") then
-		local game = current_game()
+        local game = current_game()
 
-		if game then
+        if game then
-			menudata.worldlist:set_filtercriteria(game.id)
+            menudata.worldlist:set_filtercriteria(game.id)
-			core.set_topleft_text(game.name)
+            --core.set_topleft_text(game.name)
-			mm_texture.update("singleplayer",game)
+            mm_texture.update("singleplayer",game)
-		end
+        end
-		buttonbar:show()
+        buttonbar:show()
-	else
+    else
-		menudata.worldlist:set_filtercriteria(nil)
+        menudata.worldlist:set_filtercriteria(nil)
-		buttonbar:hide()
+        buttonbar:hide()
-		core.set_topleft_text("")
+        --core.set_topleft_text("")
-		mm_texture.update(new_tab,nil)
+        mm_texture.update(new_tab,nil)
-	end
+    end
 end
 
 --------------------------------------------------------------------------------
 tab_singleplayer = {
-	name = "singleplayer",
+    name = "singleplayer",
-	caption = fgettext("Singleplayer"),
+    caption = fgettext("Singleplayer"),
-	cbf_formspec = get_formspec,
+    cbf_formspec = get_formspec,
-	cbf_button_handler = main_button_handler,
+    cbf_button_handler = main_button_handler,
-	on_change = on_change
+    on_change = on_change
-	}
+    }
-
-function create_tab_single()
-		local retval = dialog_create("singleplayer",
-										get_formspec,
-										main_button_handler,
-										nil)
-		return retval
-end

builtin/mainmenu/tab_texturepacks.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2014 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -17,102 +17,112 @@
 
 --------------------------------------------------------------------------------
 local function filter_texture_pack_list(list)
-	local retval = {"None"}
+        local retval = {"None"}
-	for _, item in ipairs(list) do
+        for _, item in ipairs(list) do
-		if item ~= "base" then
+                if item ~= "base" then
-			table.insert(retval, item)
+                        table.insert(retval, item)
-		end
+                end
-	end
+        end
-	return retval
+        return retval
 end
 
 --------------------------------------------------------------------------------
 local function render_texture_pack_list(list)
-	local retval = ""
+        local retval = ""
 
-	for i, v in ipairs(list) do
+        for i, v in ipairs(list) do
-		if v:sub(1,1) ~= "." then
+                if v:sub(1,1) ~= "." then
-			if retval ~= "" then
+                        if retval ~= "" then
-				retval = retval ..","
+                                retval = retval ..","
-			end
+                        end
 
-			retval = retval .. core.formspec_escape(v)
+                        retval = retval .. core.formspec_escape(v)
-		end
+                end
-	end
+        end
 
-	return retval
+        return retval
 end
 
 --------------------------------------------------------------------------------
 local function get_formspec(tabview, name, tabdata)
-	
-	local retval = "label[4,-0.25;".. fgettext("Select texture pack:") .. "]"..
-			"textlist[4,0.25;7.5,5.0;TPs;"
 
-	local current_texture_path = core.setting_get("texture_path")
+        local retval = "size[16,11]"..
-	local list = filter_texture_pack_list(core.get_dirlist(core.get_texturepath(), true))
+                       "bgcolor[#00000070;true]"..
-	local index = tonumber(core.setting_get("mainmenu_last_selected_TP"))
+                       "box[-100,8.5;200,10;#999999]" ..
+                       "box[-100,-10;200,12;#999999]" ..
+                       "label[4,-0.25;".. fgettext("Select texture pack:") .. "]"..
+                       "image_button[12,9.55;4,0.8;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button.png;btn_cancel;".. fgettext("OK") .. ";true;true;"..minetest.formspec_escape(mm_texture.basetexturedir).."menu_button_b.png]"..
+                       "textlist[0,2.0;15.8,6.25;TPs;"
 
-	if index == nil then index = 1 end
+        local current_texture_path = core.setting_get("texture_path")
+        local list = filter_texture_pack_list(core.get_dirlist(core.get_texturepath(), true))
+        local index = tonumber(core.setting_get("mainmenu_last_selected_TP"))
 
-	if current_texture_path == "" then
+        if index == nil then index = 1 end
-		retval = retval ..
-			render_texture_pack_list(list) ..
-			";" .. index .. "]"
-		return retval
-	end
 
-	local infofile = current_texture_path ..DIR_DELIM.."info.txt"
+        if current_texture_path == "" then
-	local infotext = ""
+                retval = retval ..
-	local f = io.open(infofile, "r")
+                        render_texture_pack_list(list) ..
-	if f==nil then
+                        ";" .. index .. ";true]"
-		infotext = fgettext("No information available")
+                return retval
-	else
+        end
-		infotext = f:read("*all")
-		f:close()
-	end
 
-	local screenfile = current_texture_path..DIR_DELIM.."screenshot.png"
+        local infofile = current_texture_path ..DIR_DELIM.."info.txt"
-	local no_screenshot = nil
+        local infotext = ""
-	if not file_exists(screenfile) then
+        local f = io.open(infofile, "r")
-		screenfile = nil
+        if f==nil then
-		no_screenshot = defaulttexturedir .. "no_screenshot.png"
+                infotext = fgettext("No information available")
-	end
+        else
+                infotext = f:read("*all")
+                f:close()
+        end
 
-	return	retval ..
+        local screenfile = current_texture_path..DIR_DELIM.."screenshot.png"
-			render_texture_pack_list(list) ..
+        local no_screenshot = nil
-			";" .. index .. "]" ..
+        if not file_exists(screenfile) then
-			"image[0.25,0.25;4.0,3.7;"..core.formspec_escape(screenfile or no_screenshot).."]"..
+                screenfile = nil
-			"textarea[0.6,3.25;3.7,1.5;;"..core.formspec_escape(infotext or "")..";]"
+                no_screenshot = defaulttexturedir .. "no_screenshot.png"
+        end
+
+        return  retval ..
+                        render_texture_pack_list(list) ..
+                        ";" .. index .. ";true]" ..
+                        "image[0.25,9.25;4.0,3.7;"..core.formspec_escape(screenfile or no_screenshot).."]"..
+                        "textarea[4.5,9.75;6.7,2.5;;"..core.formspec_escape(infotext or "")..";]"
 end
 
 --------------------------------------------------------------------------------
 local function main_button_handler(tabview, fields, name, tabdata)
-	if fields["TPs"] ~= nil then
+        if fields["TPs"] ~= nil then
-		local event = core.explode_textlist_event(fields["TPs"])
+                local event = core.explode_textlist_event(fields["TPs"])
-		if event.type == "CHG" or event.type == "DCL" then
+                if event.type == "CHG" or event.type == "DCL" then
-			local index = core.get_textlist_index("TPs")
+                        local index = core.get_textlist_index("TPs")
-			core.setting_set("mainmenu_last_selected_TP",
+                        core.setting_set("mainmenu_last_selected_TP",
-				index)
+                                index)
-			local list = filter_texture_pack_list(core.get_dirlist(core.get_texturepath(), true))
+                        local list = filter_texture_pack_list(core.get_dirlist(core.get_texturepath(), true))
-			local current_index = core.get_textlist_index("TPs")
+                        local current_index = core.get_textlist_index("TPs")
-			if current_index ~= nil and #list >= current_index then
+                        if current_index ~= nil and #list >= current_index then
-				local new_path = core.get_texturepath()..DIR_DELIM..list[current_index]
+                                local new_path = core.get_texturepath()..DIR_DELIM..list[current_index]
-				if list[current_index] == "None" then new_path = "" end
+                                if list[current_index] == "None" then new_path = "" end
 
-				core.setting_set("texture_path", new_path)
+                                core.setting_set("texture_path", new_path)
-			end
+                        end
-		end
+                end
-		return true
+                return true
-	end
+        end
-	return false
+        if fields["btn_cancel"] ~= nil then
+           tabview:hide()
+           tabview.parent:show()
+           return true
+        end
+        return false
 end
 
 --------------------------------------------------------------------------------
 tab_texturepacks = {
-	name = "texturepacks",
+        name = "texturepacks",
-	caption = fgettext("Texturepacks"),
+        caption = fgettext("Texturepacks"),
-	cbf_formspec = get_formspec,
+        cbf_formspec = get_formspec,
-	cbf_button_handler = main_button_handler,
+        cbf_button_handler = main_button_handler,
-	on_change = nil
+        on_change = nil
-	}
+        }

builtin/mainmenu/textures.lua

@@ -1,4 +1,4 @@
---multicraft
+--Minetest
 --Copyright (C) 2013 sapier
 --
 --This program is free software; you can redistribute it and/or modify
@@ -20,147 +20,143 @@ mm_texture = {}
 
 --------------------------------------------------------------------------------
 function mm_texture.init()
-	mm_texture.defaulttexturedir = core.get_texturepath() .. DIR_DELIM .. "base" ..
+    mm_texture.defaulttexturedir = core.get_texturepath() .. DIR_DELIM .. "base" ..
-						DIR_DELIM .. "pack" .. DIR_DELIM
+                        DIR_DELIM .. "pack" .. DIR_DELIM
-	mm_texture.basetexturedir = mm_texture.defaulttexturedir
+    mm_texture.basetexturedir = mm_texture.defaulttexturedir
-	
+
-	mm_texture.texturepack = core.setting_get("texture_path")
+    mm_texture.texturepack = core.setting_get("texture_path")
-	
+
-	mm_texture.gameid = nil
+    mm_texture.gameid = nil
 end
 
 --------------------------------------------------------------------------------
 function mm_texture.update(tab,gamedetails)
-	if tab ~= "singleplayer" then
+    if gamedetails == nil then
-		mm_texture.reset()
+        return
-		return
+    end
-	end
 
-	if gamedetails == nil then
+    mm_texture.update_game(gamedetails)
-		return
-	end
-	
-	mm_texture.update_game(gamedetails)
 end
 
 --------------------------------------------------------------------------------
 function mm_texture.reset()
-	mm_texture.gameid = nil
+    mm_texture.gameid = nil
-	local have_bg      = false
+    local have_bg      = false
-	local have_overlay = mm_texture.set_generic("overlay")
+    local have_overlay = mm_texture.set_generic("overlay")
-	
+
-	if not have_overlay then
+    if not have_overlay then
-		have_bg = mm_texture.set_generic("background")
+        have_bg = mm_texture.set_generic("background")
-	end
+    end
-	
+
-	mm_texture.clear("header")
+    mm_texture.clear("header")
-	mm_texture.clear("footer")
+    mm_texture.clear("footer")
-	core.set_clouds(false)
+    core.set_clouds(false)
-	
+
-	mm_texture.set_generic("footer")
+    mm_texture.set_generic("footer")
-	mm_texture.set_generic("header")
+    mm_texture.set_generic("header")
-	
+
-	if not have_bg then
+    if not have_bg then
-		if core.setting_getbool("menu_clouds") then
+        if core.setting_getbool("menu_clouds") then
-			core.set_clouds(true)
+            core.set_clouds(true)
-		else
+        else
-			mm_texture.set_dirt_bg()
+            mm_texture.set_dirt_bg()
-		end
+        end
-	end
+    end
 end
 
 --------------------------------------------------------------------------------
 function mm_texture.update_game(gamedetails)
-	if mm_texture.gameid == gamedetails.id then
+    if mm_texture.gameid == gamedetails.id then
-		return
+        return
-	end
+    end
-	
+
-	local have_bg      = false
+    local have_bg      = false
-	local have_overlay = mm_texture.set_game("overlay",gamedetails)
+    local have_overlay = mm_texture.set_game("overlay",gamedetails)
-	
+
-	if not have_overlay then
+    if not have_overlay then
-		have_bg = mm_texture.set_game("background",gamedetails)
+        have_bg = mm_texture.set_game("background",gamedetails)
-	end
+    end
-	
+
-	mm_texture.clear("header")
+    mm_texture.clear("header")
-	mm_texture.clear("footer")
+    mm_texture.clear("footer")
-	core.set_clouds(false)
+    core.set_clouds(false)
-	
+
-	if not have_bg then
+    if not have_bg then
-		
+
-		if core.setting_getbool("menu_clouds") then
+        if core.setting_getbool("menu_clouds") then
-			core.set_clouds(true)
+            core.set_clouds(true)
-		else
+        else
-			mm_texture.set_dirt_bg()
+            mm_texture.set_dirt_bg()
-		end
+        end
-	end
+    end
-	
+
-	mm_texture.set_game("footer",gamedetails)
+    mm_texture.set_game("footer",gamedetails)
-	mm_texture.set_game("header",gamedetails)
+    --print(dump(gamedetails))
-	
+    mm_texture.set_game("header",gamedetails)
-	mm_texture.gameid = gamedetails.id
+
+    mm_texture.gameid = gamedetails.id
 end
 
 --------------------------------------------------------------------------------
 function mm_texture.clear(identifier)
-	core.set_background(identifier,"")
+    core.set_background(identifier,"")
 end
 
 --------------------------------------------------------------------------------
 function mm_texture.set_generic(identifier)
-	--try texture pack first
+    --try texture pack first
-	if mm_texture.texturepack ~= nil then
+    if mm_texture.texturepack ~= nil then
-		local path = mm_texture.texturepack .. DIR_DELIM .."menu_" ..
+        local path = mm_texture.texturepack .. DIR_DELIM .."menu_" ..
-										identifier .. ".png"
+                                        identifier .. ".png"
-		if core.set_background(identifier,path) then
+        if core.set_background(identifier,path) then
-			return true
+            return true
-		end
+        end
-	end
+    end
-	
+
-	if mm_texture.defaulttexturedir ~= nil then
+    if mm_texture.defaulttexturedir ~= nil then
-		local path = mm_texture.defaulttexturedir .. DIR_DELIM .."menu_" ..
+        local path = mm_texture.defaulttexturedir .. DIR_DELIM .."menu_" ..
-										identifier .. ".png"
+                                        identifier .. ".png"
-		if core.set_background(identifier,path) then
+        if core.set_background(identifier,path) then
-			return true
+            return true
-		end
+        end
-	end
+    end
-	
+
-	return false
+    return false
 end
 
 --------------------------------------------------------------------------------
 function mm_texture.set_game(identifier,gamedetails)
-	
-	if gamedetails == nil then
-		return false
-	end
 
-	if mm_texture.texturepack ~= nil then
+    if gamedetails == nil then
-		local path = mm_texture.texturepack .. DIR_DELIM ..
+        return false
-						gamedetails.id .. "_menu_" .. identifier .. ".png"
+    end
-		if core.set_background(identifier,path) then
+
-			return true
+    if mm_texture.texturepack ~= nil then
-		end
+        local path = mm_texture.texturepack .. DIR_DELIM ..
-	end
+                        gamedetails.id .. "_menu_" .. identifier .. ".png"
-	
+        if core.set_background(identifier,path) then
-	local path = gamedetails.path .. DIR_DELIM .."menu" ..
+            return true
-									 DIR_DELIM .. identifier .. ".png"
+        end
-	if core.set_background(identifier,path) then
+    end
-		return true
+
-	end
+    local path = gamedetails.path .. DIR_DELIM .."menu" ..
-	
+                                     DIR_DELIM .. identifier .. ".png"
-	return false
+    if core.set_background(identifier,path) then
+        return true
+    end
+
+    return false
 end
 
 function mm_texture.set_dirt_bg()
-	if mm_texture.texturepack ~= nil then
+    if mm_texture.texturepack ~= nil then
-		local path = mm_texture.texturepack .. DIR_DELIM .."default_dirt.png"
+        local path = mm_texture.texturepack .. DIR_DELIM .."default_stone.png"
-		if core.set_background("background", path, true, 128) then
+        if core.set_background("background", path, true, 128) then
-			return true
+            return true
-		end
+        end
-	end
+    end
-	
+
-	--use base pack
+    --use base pack
-	local minimalpath = defaulttexturedir .. "dirt_bg.png"
+    local minimalpath = defaulttexturedir .. "dirt_bg.png"
-	core.set_background("background", minimalpath, true, 128)
+    core.set_background("background", minimalpath, true, 128)
 end

builtin/profiler.lua

@@ -0,0 +1,66 @@
+local ffi
+
+-- there's no ffi in Lua, only in LuaJIT
+-- when Freeminer is run with Lua the profiler is not available because we can't access precise timer
+if not pcall(function() ffi = require("ffi") end) then
+    return
+end
+
+ffi.cdef[[
+unsigned int get_time_us();
+]]
+
+local modpath = core.get_builtin_path()..DIR_DELIM
+
+package.path = package.path .. ";" .. modpath .. "/?.lua"
+ProFi = require 'ProFi'
+
+local function get_time_precise()
+    return ffi.C.get_time_us() / 1000000
+end
+
+ProFi:setGetTimeMethod(get_time_precise)
+
+local started = false
+
+local function start_profiler()
+    ProFi:start()
+    started = true
+end
+
+if freeminer.setting_getbool("profiler_autostart") then
+    start_profiler()
+    freeminer.after(3, function()
+        freeminer.chat_send_all("The profiler was started. If you don't want this, set " .. freeminer.colorize("61ad6d", "profiler_autostart")
+            .. " to false in " .. freeminer.colorize("61ad6d", "freeminer.conf"))
+    end)
+end
+
+freeminer.register_chatcommand("profiler_stop", {
+    description = "stop the profiler and write report",
+    privs = {server=true},
+    func = function(name)
+        if not started then
+            freeminer.chat_send_player(name, "Profiler has not been started. You can start it using " .. freeminer.colorize("00ffff", "/profiler_start"))
+            return
+        end
+
+        ProFi:stop()
+        ProFi:writeReport("profile.txt")
+
+        freeminer.chat_send_player(name, "Profiler is stopped.")
+    end,
+})
+
+freeminer.register_chatcommand("profiler_start", {
+    description = "start the profiler",
+    privs = {server=true},
+    func = function(name)
+        if started then
+            freeminer.chat_send_player(name, "Profiler is already running.")
+            return
+        end
+        start_profiler()
+        freeminer.chat_send_player(name, "Profiler is started.")
+    end
+})