mirror of
				https://github.com/luanti-org/luanti.git
				synced 2025-10-30 23:15:32 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			1083 lines
		
	
	
		
			26 KiB
		
	
	
	
		
			Lua
		
	
	
	
	
	
			
		
		
	
	
			1083 lines
		
	
	
		
			26 KiB
		
	
	
	
		
			Lua
		
	
	
	
	
	
| --Minetest
 | |
| --Copyright (C) 2013 sapier
 | |
| --
 | |
| --This program is free software; you can redistribute it and/or modify
 | |
| --it under the terms of the GNU Lesser General Public License as published by
 | |
| --the Free Software Foundation; either version 2.1 of the License, or
 | |
| --(at your option) any later version.
 | |
| --
 | |
| --This program is distributed in the hope that it will be useful,
 | |
| --but WITHOUT ANY WARRANTY; without even the implied warranty of
 | |
| --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | |
| --GNU Lesser General Public License for more details.
 | |
| --
 | |
| --You should have received a copy of the GNU Lesser General Public License along
 | |
| --with this program; if not, write to the Free Software Foundation, Inc.,
 | |
| --51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function get_mods(path,retval,modpack)
 | |
| 
 | |
| 	local mods = engine.get_dirlist(path,true)
 | |
| 	for i=1,#mods,1 do
 | |
| 		local toadd = {}
 | |
| 		local modpackfile = nil
 | |
| 		
 | |
| 		toadd.name		= mods[i]
 | |
| 		toadd.path		= path .. DIR_DELIM .. mods[i] .. DIR_DELIM
 | |
| 		if modpack ~= nil and
 | |
| 			modpack ~= "" then
 | |
| 			toadd.modpack	= modpack
 | |
| 		else
 | |
| 			local filename = path .. DIR_DELIM .. mods[i] .. DIR_DELIM .. "modpack.txt"
 | |
| 			local error = nil
 | |
| 			modpackfile,error = io.open(filename,"r")
 | |
| 		end
 | |
| 			
 | |
| 		if modpackfile ~= nil then
 | |
| 			modpackfile:close()
 | |
| 			toadd.is_modpack = true
 | |
| 			table.insert(retval,toadd)
 | |
| 			get_mods(path .. DIR_DELIM .. mods[i],retval,mods[i])
 | |
| 		else
 | |
| 			table.insert(retval,toadd)
 | |
| 		end
 | |
| 	end
 | |
| end
 | |
| 
 | |
| --modmanager implementation
 | |
| modmgr = {}
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.extract(modfile)
 | |
| 	if modfile.type == "zip" then
 | |
| 		local tempfolder = os.tempfolder()
 | |
| 		
 | |
| 		if tempfolder ~= nil and
 | |
| 			tempfodler ~= "" then
 | |
| 			engine.create_dir(tempfolder)
 | |
| 			engine.extract_zip(modfile.name,tempfolder)
 | |
| 			return tempfolder
 | |
| 		end
 | |
| 	end
 | |
| end
 | |
| 
 | |
| -------------------------------------------------------------------------------
 | |
| function modmgr.getbasefolder(temppath)
 | |
| 
 | |
| 	if temppath == nil then
 | |
| 		return {
 | |
| 		type = "invalid",
 | |
| 		path = ""
 | |
| 		}
 | |
| 	end
 | |
| 
 | |
| 	local testfile = io.open(temppath .. DIR_DELIM .. "init.lua","r")
 | |
| 	if testfile ~= nil then
 | |
| 		testfile:close()
 | |
| 		return {
 | |
| 				type="mod",
 | |
| 				path=temppath
 | |
| 				}
 | |
| 	end
 | |
| 	
 | |
| 	testfile = io.open(temppath .. DIR_DELIM .. "modpack.txt","r")
 | |
| 	if testfile ~= nil then
 | |
| 		testfile:close()
 | |
| 		return {
 | |
| 				type="modpack",
 | |
| 				path=temppath
 | |
| 				}
 | |
| 	end
 | |
| 	
 | |
| 	local subdirs = engine.get_dirlist(temppath,true)
 | |
| 	
 | |
| 	--only single mod or modpack allowed
 | |
| 	if #subdirs ~= 1 then
 | |
| 		return {
 | |
| 			type = "invalid",
 | |
| 			path = ""
 | |
| 			}
 | |
| 	end
 | |
| 
 | |
| 	testfile = 
 | |
| 	io.open(temppath .. DIR_DELIM .. subdirs[1] ..DIR_DELIM .."init.lua","r")
 | |
| 	if testfile ~= nil then
 | |
| 		testfile:close()
 | |
| 		return {
 | |
| 			type="mod",
 | |
| 			path= temppath .. DIR_DELIM .. subdirs[1]
 | |
| 			}
 | |
| 	end
 | |
| 	
 | |
| 	testfile = 
 | |
| 	io.open(temppath .. DIR_DELIM .. subdirs[1] ..DIR_DELIM .."modpack.txt","r")
 | |
| 	if testfile ~= nil then
 | |
| 		testfile:close()
 | |
| 		return {
 | |
| 			type="modpack",
 | |
| 			path=temppath ..  DIR_DELIM .. subdirs[1]
 | |
| 			}
 | |
| 	end
 | |
| 
 | |
| 	return {
 | |
| 		type = "invalid",
 | |
| 		path = ""
 | |
| 		}
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.isValidModname(modpath)
 | |
| 	if modpath:find("-") ~= nil then
 | |
| 		return false
 | |
| 	end
 | |
| 	
 | |
| 	return true
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.parse_register_line(line)
 | |
| 	local pos1 = line:find("\"")
 | |
| 	local pos2 = nil
 | |
| 	if pos1 ~= nil then
 | |
| 		pos2 = line:find("\"",pos1+1)
 | |
| 	end
 | |
| 	
 | |
| 	if pos1 ~= nil and pos2 ~= nil then
 | |
| 		local item = line:sub(pos1+1,pos2-1)
 | |
| 		
 | |
| 		if item ~= nil and
 | |
| 			item ~= "" then
 | |
| 			local pos3 = item:find(":")
 | |
| 			
 | |
| 			if pos3 ~= nil then
 | |
| 				local retval = item:sub(1,pos3-1)
 | |
| 				if retval ~= nil and
 | |
| 					retval ~= "" then
 | |
| 					return retval
 | |
| 				end 
 | |
| 			end
 | |
| 		end
 | |
| 	end
 | |
| 	return nil
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.parse_dofile_line(modpath,line)
 | |
| 	local pos1 = line:find("\"")
 | |
| 	local pos2 = nil
 | |
| 	if pos1 ~= nil then
 | |
| 		pos2 = line:find("\"",pos1+1)
 | |
| 	end
 | |
| 	
 | |
| 	if pos1 ~= nil and pos2 ~= nil then
 | |
| 		local filename = line:sub(pos1+1,pos2-1)
 | |
| 		
 | |
| 		if filename ~= nil and
 | |
| 			filename ~= "" and
 | |
| 			filename:find(".lua") then
 | |
| 			return modmgr.identify_modname(modpath,filename)
 | |
| 		end
 | |
| 	end
 | |
| 	return nil
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.identify_modname(modpath,filename)
 | |
| 	local testfile = io.open(modpath .. DIR_DELIM .. filename,"r")
 | |
| 	if testfile ~= nil then
 | |
| 		local line = testfile:read()
 | |
| 		
 | |
| 		while line~= nil do
 | |
| 			local modname = nil
 | |
| 		
 | |
| 			if line:find("minetest.register_tool") then
 | |
| 				modname = modmgr.parse_register_line(line)
 | |
| 			end
 | |
| 			
 | |
| 			if line:find("minetest.register_craftitem") then
 | |
| 				modname = modmgr.parse_register_line(line)
 | |
| 			end
 | |
| 			
 | |
| 			
 | |
| 			if line:find("minetest.register_node") then
 | |
| 				modname = modmgr.parse_register_line(line)
 | |
| 			end
 | |
| 			
 | |
| 			if line:find("dofile") then
 | |
| 				modname = modmgr.parse_dofile_line(modpath,line)
 | |
| 			end
 | |
| 		
 | |
| 			if modname ~= nil then
 | |
| 				testfile:close()
 | |
| 				return modname
 | |
| 			end
 | |
| 			
 | |
| 			line = testfile:read()
 | |
| 		end
 | |
| 		testfile:close()
 | |
| 	end
 | |
| 	
 | |
| 	return nil
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.tab()
 | |
| 
 | |
| 	if modmgr.global_mods == nil then
 | |
| 		modmgr.refresh_globals()
 | |
| 	end
 | |
| 
 | |
| 	if modmgr.selected_mod == nil then
 | |
| 		modmgr.selected_mod = 1
 | |
| 	end
 | |
| 	
 | |
| 	local retval = 
 | |
| 		"vertlabel[0,-0.25;".. fgettext("MODS") .. "]" ..
 | |
| 		"label[0.8,-0.25;".. fgettext("Installed Mods:") .. "]" ..
 | |
| 		"textlist[0.75,0.25;4.5,4.3;modlist;" ..
 | |
| 		modmgr.render_modlist(modmgr.global_mods) .. 
 | |
| 		";" .. modmgr.selected_mod .. "]"
 | |
| 
 | |
| 	retval = retval ..
 | |
| 		"button[1,4.85;2,0.5;btn_mod_mgr_install_local;".. fgettext("Install") .. "]" ..
 | |
| 		"button[3,4.85;2,0.5;btn_mod_mgr_download;".. fgettext("Download") .. "]"
 | |
| 		
 | |
| 	local selected_mod = nil
 | |
| 		
 | |
| 	if filterlist.size(modmgr.global_mods) >= modmgr.selected_mod then
 | |
| 		selected_mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
 | |
| 	end
 | |
| 	
 | |
| 	if selected_mod ~= nil then
 | |
| 		if selected_mod.is_modpack then
 | |
| 			retval = retval 
 | |
| 			.. "button[10,4.85;2,0.5;btn_mod_mgr_rename_modpack;" ..
 | |
| 					 fgettext("Rename") .. "]"
 | |
| 		else
 | |
| 		--show dependencies
 | |
| 			retval = retval .. 
 | |
| 				"label[6,1.9;".. fgettext("Depends:") .. "]" ..
 | |
| 				"textlist[6,2.4;5.7,2;deplist;"
 | |
| 				
 | |
| 			toadd = modmgr.get_dependencies(selected_mod.path)
 | |
| 			
 | |
| 			retval = retval .. toadd .. ";0;true,false]"
 | |
| 			
 | |
| 			--TODO read modinfo
 | |
| 		end
 | |
| 		--show delete button
 | |
| 		retval = retval .. "button[8,4.85;2,0.5;btn_mod_mgr_delete_mod;"
 | |
| 				.. fgettext("Delete") .. "]"
 | |
| 	end
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.dialog_rename_modpack()
 | |
| 
 | |
| 	local mod = filterlist.get_list(modmgr.modlist)[modmgr.selected_mod]
 | |
| 	
 | |
| 	local retval = 
 | |
| 		"label[1.75,1;".. fgettext("Rename Modpack:") .. "]"..
 | |
| 		"field[4.5,1.4;6,0.5;te_modpack_name;;" ..
 | |
| 		mod.name ..
 | |
| 		"]" ..
 | |
| 		"button[5,4.2;2.6,0.5;dlg_rename_modpack_confirm;".. 
 | |
| 				fgettext("Accept") .. "]" ..
 | |
| 		"button[7.5,4.2;2.8,0.5;dlg_rename_modpack_cancel;".. 
 | |
| 				fgettext("Cancel") .. "]"
 | |
| 
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.precheck()
 | |
| 
 | |
| 	if modmgr.world_config_selected_world == nil then
 | |
| 		modmgr.world_config_selected_world = 1
 | |
| 	end
 | |
| 	
 | |
| 	if modmgr.world_config_selected_mod == nil then
 | |
| 		modmgr.world_config_selected_mod = 1
 | |
| 	end
 | |
| 	
 | |
| 	if modmgr.hide_gamemods == nil then
 | |
| 		modmgr.hide_gamemods = true
 | |
| 	end
 | |
| 	
 | |
| 	if modmgr.hide_modpackcontents == nil then
 | |
| 		modmgr.hide_modpackcontents = true
 | |
| 	end
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.render_modlist(render_list)
 | |
| 	local retval = ""
 | |
| 	
 | |
| 	if render_list == nil then
 | |
| 		if modmgr.global_mods == nil then
 | |
| 			modmgr.refresh_globals()
 | |
| 		end
 | |
| 		render_list = modmgr.global_mods
 | |
| 	end
 | |
| 	
 | |
| 	local list = filterlist.get_list(render_list)
 | |
| 	local last_modpack = nil
 | |
| 	
 | |
| 	for i,v in ipairs(list) do
 | |
| 		if retval ~= "" then
 | |
| 			retval = retval ..","
 | |
| 		end
 | |
| 
 | |
| 		local color = ""
 | |
| 		
 | |
| 		if v.is_modpack then
 | |
| 			local rawlist = filterlist.get_raw_list(render_list)
 | |
| 			
 | |
| 			local all_enabled = true
 | |
| 			for j=1,#rawlist,1 do
 | |
| 				if rawlist[j].modpack == list[i].name and
 | |
| 					rawlist[j].enabled ~= true then
 | |
| 						all_enabled = false
 | |
| 						break
 | |
| 				end
 | |
| 			end
 | |
| 			
 | |
| 			if all_enabled == false then
 | |
| 				color = mt_color_grey
 | |
| 			else
 | |
| 				color = mt_color_dark_green
 | |
| 			end
 | |
| 		end
 | |
| 		
 | |
| 		if v.typ == "game_mod" then
 | |
| 			color = mt_color_blue
 | |
| 		else
 | |
| 			if v.enabled then
 | |
| 				color = mt_color_green
 | |
| 			end
 | |
| 		end
 | |
| 
 | |
| 		retval = retval .. color
 | |
| 		if v.modpack  ~= nil then
 | |
| 			retval = retval .. "    "
 | |
| 		end
 | |
| 		retval = retval .. v.name
 | |
| 	end
 | |
| 	
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.dialog_configure_world()
 | |
| 	modmgr.precheck()
 | |
| 	
 | |
| 	local worldspec = engine.get_worlds()[modmgr.world_config_selected_world]
 | |
| 	local mod = filterlist.get_list(modmgr.modlist)[modmgr.world_config_selected_mod]
 | |
| 	
 | |
| 	local retval =
 | |
| 		"size[11,6.5]" ..
 | |
| 		"label[0.5,-0.25;" .. fgettext("World:") .. "]" ..
 | |
| 		"label[1.75,-0.25;" .. worldspec.name .. "]"
 | |
| 		
 | |
| 	if modmgr.hide_gamemods then
 | |
| 		retval = retval .. "checkbox[0,5.75;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";true]"
 | |
| 	else
 | |
| 		retval = retval .. "checkbox[0,5.75;cb_hide_gamemods;" .. fgettext("Hide Game") .. ";false]"
 | |
| 	end
 | |
| 	
 | |
| 	if modmgr.hide_modpackcontents then
 | |
| 		retval = retval .. "checkbox[2,5.75;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";true]"
 | |
| 	else
 | |
| 		retval = retval .. "checkbox[2,5.75;cb_hide_mpcontent;" .. fgettext("Hide mp content") .. ";false]"
 | |
| 	end
 | |
| 	
 | |
| 	if mod == nil then
 | |
| 		mod = {name=""}
 | |
| 	end
 | |
| 	retval = retval ..
 | |
| 		"label[0,0.45;" .. fgettext("Mod:") .. "]" ..
 | |
| 		"label[0.75,0.45;" .. mod.name .. "]" ..
 | |
| 		"label[0,1;" .. fgettext("Depends:") .. "]" ..
 | |
| 		"textlist[0,1.5;5,4.25;world_config_depends;" ..
 | |
| 		modmgr.get_dependencies(mod.path) .. ";0]" ..
 | |
| 		"button[9.25,6.35;2,0.5;btn_config_world_save;" .. fgettext("Save") .. "]" ..
 | |
| 		"button[7.4,6.35;2,0.5;btn_config_world_cancel;" .. fgettext("Cancel") .. "]"
 | |
| 	
 | |
| 	if mod ~= nil and mod.name ~= "" and mod.typ ~= "game_mod" then
 | |
| 		if mod.is_modpack then
 | |
| 			local rawlist = filterlist.get_raw_list(modmgr.modlist)
 | |
| 			
 | |
| 			local all_enabled = true
 | |
| 			for j=1,#rawlist,1 do
 | |
| 				if rawlist[j].modpack == mod.name and
 | |
| 					rawlist[j].enabled ~= true then
 | |
| 						all_enabled = false
 | |
| 						break
 | |
| 				end
 | |
| 			end
 | |
| 			
 | |
| 			if all_enabled == false then
 | |
| 				retval = retval .. "button[5.5,-0.125;2,0.5;btn_mp_enable;" .. fgettext("Enable MP") .. "]"
 | |
| 			else
 | |
| 				retval = retval .. "button[5.5,-0.125;2,0.5;btn_mp_disable;" .. fgettext("Disable MP") .. "]"
 | |
| 			end
 | |
| 		else
 | |
| 			if mod.enabled then
 | |
| 				retval = retval .. "checkbox[5.5,-0.375;cb_mod_enable;" .. fgettext("enabled") .. ";true]"
 | |
| 			else
 | |
| 				retval = retval .. "checkbox[5.5,-0.375;cb_mod_enable;" .. fgettext("enabled") .. ";false]"
 | |
| 			end
 | |
| 		end
 | |
| 	end
 | |
| 	
 | |
| 	retval = retval ..
 | |
| 		"button[8.5,-0.125;2.5,0.5;btn_all_mods;" .. fgettext("Enable all") .. "]" ..
 | |
| 		"textlist[5.5,0.5;5.5,5.75;world_config_modlist;"
 | |
| 	
 | |
| 	retval = retval .. modmgr.render_modlist(modmgr.modlist)
 | |
| 	
 | |
| 	retval = retval .. ";" .. modmgr.world_config_selected_mod .."]"
 | |
| 	
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.handle_buttons(tab,fields)
 | |
| 
 | |
| 	local retval = nil
 | |
| 	
 | |
| 	if tab == "mod_mgr" then
 | |
| 		retval = modmgr.handle_modmgr_buttons(fields)
 | |
| 	end
 | |
| 	
 | |
| 	if tab == "dialog_rename_modpack" then
 | |
| 		retval = modmgr.handle_rename_modpack_buttons(fields)
 | |
| 	end
 | |
| 	
 | |
| 	if tab == "dialog_delete_mod" then
 | |
| 		retval = modmgr.handle_delete_mod_buttons(fields)
 | |
| 	end
 | |
| 	
 | |
| 	if tab == "dialog_configure_world" then
 | |
| 		retval = modmgr.handle_configure_world_buttons(fields)
 | |
| 	end
 | |
| 	
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.get_dependencies(modfolder)
 | |
| 	local toadd = ""
 | |
| 	if modfolder ~= nil then
 | |
| 		local filename = modfolder ..
 | |
| 					DIR_DELIM .. "depends.txt"
 | |
| 	
 | |
| 		local dependencyfile = io.open(filename,"r")
 | |
| 		
 | |
| 		if dependencyfile then
 | |
| 			local dependency = dependencyfile:read("*l")
 | |
| 			while dependency do
 | |
| 				if toadd ~= "" then	
 | |
| 					toadd = toadd .. ","
 | |
| 				end
 | |
| 				toadd = toadd .. dependency
 | |
| 				dependency = dependencyfile:read()
 | |
| 			end
 | |
| 			dependencyfile:close()
 | |
| 		end
 | |
| 	end
 | |
| 
 | |
| 	return toadd
 | |
| end
 | |
| 
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.get_worldconfig(worldpath)
 | |
| 	local filename = worldpath ..
 | |
| 				DIR_DELIM .. "world.mt"
 | |
| 
 | |
| 	local worldfile = Settings(filename)
 | |
| 	
 | |
| 	local worldconfig = {}
 | |
| 	worldconfig.global_mods = {}
 | |
| 	worldconfig.game_mods = {}
 | |
| 	
 | |
| 	for key,value in pairs(worldfile:to_table()) do
 | |
| 		if key == "gameid" then
 | |
| 			worldconfig.id = value
 | |
| 		else
 | |
| 			worldconfig.global_mods[key] = engine.is_yes(value)
 | |
| 		end
 | |
| 	end
 | |
| 	
 | |
| 	--read gamemods
 | |
| 	local gamespec = gamemgr.find_by_gameid(worldconfig.id)
 | |
| 	gamemgr.get_game_mods(gamespec, worldconfig.game_mods)
 | |
| 
 | |
| 	return worldconfig
 | |
| end
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.handle_modmgr_buttons(fields)
 | |
| 	local retval = {
 | |
| 			tab = nil,
 | |
| 			is_dialog = nil,
 | |
| 			show_buttons = nil,
 | |
| 		}
 | |
| 
 | |
| 	if fields["modlist"] ~= nil then
 | |
| 		local event = explode_textlist_event(fields["modlist"])
 | |
| 		modmgr.selected_mod = event.index
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_mod_mgr_install_local"] ~= nil then
 | |
| 		engine.show_file_open_dialog("mod_mgt_open_dlg",fgettext("Select Mod File:"))
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_mod_mgr_download"] ~= nil then
 | |
| 		modstore.update_modlist()
 | |
| 		retval.current_tab = "dialog_modstore_unsorted"
 | |
| 		retval.is_dialog = true
 | |
| 		retval.show_buttons = false
 | |
| 		return retval
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_mod_mgr_rename_modpack"] ~= nil then
 | |
| 		retval.current_tab = "dialog_rename_modpack"
 | |
| 		retval.is_dialog = true
 | |
| 		retval.show_buttons = false
 | |
| 		return retval
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_mod_mgr_delete_mod"] ~= nil then
 | |
| 		retval.current_tab = "dialog_delete_mod"
 | |
| 		retval.is_dialog = true
 | |
| 		retval.show_buttons = false
 | |
| 		return retval
 | |
| 	end
 | |
| 	
 | |
| 	if fields["mod_mgt_open_dlg_accepted"] ~= nil and
 | |
| 		fields["mod_mgt_open_dlg_accepted"] ~= "" then
 | |
| 		modmgr.installmod(fields["mod_mgt_open_dlg_accepted"],nil)
 | |
| 	end
 | |
| 	
 | |
| 	return nil;
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.installmod(modfilename,basename)
 | |
| 	local modfile = modmgr.identify_filetype(modfilename)
 | |
| 	local modpath = modmgr.extract(modfile)
 | |
| 	
 | |
| 	if modpath == nil then
 | |
| 		gamedata.errormessage = fgettext("Install Mod: file: \"$1\"", modfile.name) ..
 | |
| 			fgettext("\nInstall Mod: unsupported filetype \"$1\"", modfile.type)
 | |
| 		return
 | |
| 	end
 | |
| 	
 | |
| 	
 | |
| 	local basefolder = modmgr.getbasefolder(modpath)
 | |
| 	
 | |
| 	if basefolder.type == "modpack" then
 | |
| 		local clean_path = nil
 | |
| 		
 | |
| 		if basename ~= nil then
 | |
| 			clean_path = "mp_" .. basename
 | |
| 		end
 | |
| 		
 | |
| 		if clean_path == nil then
 | |
| 			clean_path = get_last_folder(cleanup_path(basefolder.path))
 | |
| 		end
 | |
| 		
 | |
| 		if clean_path ~= nil then
 | |
| 			local targetpath = engine.get_modpath() .. DIR_DELIM .. clean_path
 | |
| 			if not engine.copy_dir(basefolder.path,targetpath) then
 | |
| 				gamedata.errormessage = fgettext("Failed to install $1 to $2", basename, targetpath)
 | |
| 			end
 | |
| 		else
 | |
| 			gamedata.errormessage = fgettext("Install Mod: unable to find suitable foldername for modpack $1", modfilename)
 | |
| 		end
 | |
| 	end
 | |
| 	
 | |
| 	if basefolder.type == "mod" then
 | |
| 		local targetfolder = basename
 | |
| 		
 | |
| 		if targetfolder == nil then
 | |
| 			targetfolder = modmgr.identify_modname(basefolder.path,"init.lua")
 | |
| 		end
 | |
| 		
 | |
| 		--if heuristic failed try to use current foldername
 | |
| 		if targetfolder == nil then
 | |
| 			targetfolder = get_last_folder(basefolder.path)
 | |
| 		end	
 | |
| 		
 | |
| 		if targetfolder ~= nil and modmgr.isValidModname(targetfolder) then
 | |
| 			local targetpath = engine.get_modpath() .. DIR_DELIM .. targetfolder
 | |
| 			engine.copy_dir(basefolder.path,targetpath)
 | |
| 		else
 | |
| 			gamedata.errormessage = fgettext("Install Mod: unable to find real modname for: $1", modfilename)
 | |
| 		end
 | |
| 	end
 | |
| 	
 | |
| 	engine.delete_dir(modpath)
 | |
| 
 | |
| 	modmgr.refresh_globals()
 | |
| 
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.handle_rename_modpack_buttons(fields)
 | |
| 	
 | |
| 	if fields["dlg_rename_modpack_confirm"] ~= nil then
 | |
| 		local mod = filterlist.get_list(modmgr.modlist)[modmgr.selected_mod]
 | |
| 		local oldpath = engine.get_modpath() .. DIR_DELIM .. mod.name
 | |
| 		local targetpath = engine.get_modpath() .. DIR_DELIM .. fields["te_modpack_name"]
 | |
| 		engine.copy_dir(oldpath,targetpath,false)
 | |
| 	end
 | |
| 	
 | |
| 	return {
 | |
| 		is_dialog = false,
 | |
| 		show_buttons = true,
 | |
| 		current_tab = engine.setting_get("main_menu_tab")
 | |
| 		}
 | |
| end
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.handle_configure_world_buttons(fields)
 | |
| 	if fields["world_config_modlist"] ~= nil then
 | |
| 		local event = explode_textlist_event(fields["world_config_modlist"])
 | |
| 		modmgr.world_config_selected_mod = event.index
 | |
| 
 | |
| 		if event.typ == "DCL" then
 | |
| 			modmgr.world_config_enable_mod(nil)
 | |
| 		end
 | |
| 	end
 | |
| 	
 | |
| 	if fields["key_enter"] ~= nil then
 | |
| 		modmgr.world_config_enable_mod(nil)
 | |
| 	end
 | |
| 	
 | |
| 	if fields["cb_mod_enable"] ~= nil then
 | |
| 		local toset = engine.is_yes(fields["cb_mod_enable"])
 | |
| 		modmgr.world_config_enable_mod(toset)
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_mp_enable"] ~= nil or
 | |
| 		fields["btn_mp_disable"] then
 | |
| 		local toset = (fields["btn_mp_enable"] ~= nil)
 | |
| 		modmgr.world_config_enable_mod(toset)
 | |
| 	end
 | |
| 	
 | |
| 	if fields["cb_hide_gamemods"] ~= nil then
 | |
| 		local current = filterlist.get_filtercriteria(modmgr.modlist)
 | |
| 		
 | |
| 		if current == nil then
 | |
| 			current = {}
 | |
| 		end
 | |
| 
 | |
| 		if engine.is_yes(fields["cb_hide_gamemods"]) then
 | |
| 			current.hide_game = true
 | |
| 			modmgr.hide_gamemods = true
 | |
| 		else
 | |
| 			current.hide_game = false
 | |
| 			modmgr.hide_gamemods = false
 | |
| 		end
 | |
| 		
 | |
| 		filterlist.set_filtercriteria(modmgr.modlist,current)
 | |
| 	end
 | |
| 	
 | |
| 		if fields["cb_hide_mpcontent"] ~= nil then
 | |
| 		local current = filterlist.get_filtercriteria(modmgr.modlist)
 | |
| 		
 | |
| 		if current == nil then
 | |
| 			current = {}
 | |
| 		end
 | |
| 
 | |
| 		if engine.is_yes(fields["cb_hide_mpcontent"]) then
 | |
| 			current.hide_modpackcontents = true
 | |
| 			modmgr.hide_modpackcontents = true
 | |
| 		else
 | |
| 			current.hide_modpackcontents = false
 | |
| 			modmgr.hide_modpackcontents = false
 | |
| 		end
 | |
| 		
 | |
| 		filterlist.set_filtercriteria(modmgr.modlist,current)
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_config_world_save"] then
 | |
| 		local worldspec = engine.get_worlds()[modmgr.world_config_selected_world]
 | |
| 		
 | |
| 		local filename = worldspec.path ..
 | |
| 				DIR_DELIM .. "world.mt"
 | |
| 		
 | |
| 		local worldfile = Settings(filename)
 | |
| 		local mods = worldfile:to_table()
 | |
| 		
 | |
| 		local rawlist = filterlist.get_raw_list(modmgr.modlist)
 | |
| 		
 | |
| 		local i,mod
 | |
| 		for i,mod in ipairs(rawlist) do
 | |
| 			if not mod.is_modpack and
 | |
| 					mod.typ ~= "game_mod" then
 | |
| 				if mod.enabled then
 | |
| 					worldfile:set("load_mod_"..mod.name, "true")
 | |
| 				else
 | |
| 					worldfile:set("load_mod_"..mod.name, "false")
 | |
| 				end
 | |
| 				mods["load_mod_"..mod.name] = nil
 | |
| 			end
 | |
| 		end
 | |
| 		
 | |
| 		-- Remove mods that are not present anymore
 | |
| 		for key,value in pairs(mods) do
 | |
| 			if key:sub(1,9) == "load_mod_" then
 | |
| 				worldfile:remove(key)
 | |
| 			end
 | |
| 		end
 | |
| 		
 | |
| 		if not worldfile:write() then
 | |
| 			print("failed to write world config file")
 | |
| 		end
 | |
| 		
 | |
| 		modmgr.modlist = nil
 | |
| 		modmgr.worldconfig = nil
 | |
| 	
 | |
| 		return {
 | |
| 			is_dialog = false,
 | |
| 			show_buttons = true,
 | |
| 			current_tab = engine.setting_get("main_menu_tab")
 | |
| 		}
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_config_world_cancel"] then
 | |
| 	
 | |
| 		modmgr.worldconfig = nil
 | |
| 		
 | |
| 		return {
 | |
| 			is_dialog = false,
 | |
| 			show_buttons = true,
 | |
| 			current_tab = engine.setting_get("main_menu_tab")
 | |
| 		}
 | |
| 	end
 | |
| 	
 | |
| 	if fields["btn_all_mods"] then
 | |
| 		local list = filterlist.get_raw_list(modmgr.modlist)
 | |
| 		
 | |
| 		for i=1,#list,1 do
 | |
| 			if list[i].typ ~= "game_mod" and
 | |
| 				not list[i].is_modpack then
 | |
| 				list[i].enabled = true
 | |
| 			end
 | |
| 		end
 | |
| 	end
 | |
| 	
 | |
| 
 | |
| 	
 | |
| 	return nil
 | |
| end
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.world_config_enable_mod(toset)
 | |
| 	local mod = filterlist.get_list(modmgr.modlist)
 | |
| 		[engine.get_textlist_index("world_config_modlist")]
 | |
| 
 | |
| 	if mod.typ == "game_mod" then
 | |
| 		-- game mods can't be enabled or disabled
 | |
| 	elseif not mod.is_modpack then
 | |
| 		if toset == nil then
 | |
| 			mod.enabled = not mod.enabled
 | |
| 		else
 | |
| 			mod.enabled = toset
 | |
| 		end
 | |
| 	else
 | |
| 		local list = filterlist.get_raw_list(modmgr.modlist)
 | |
| 		for i=1,#list,1 do
 | |
| 			if list[i].modpack == mod.name then
 | |
| 				if toset == nil then
 | |
| 					toset = not list[i].enabled
 | |
| 				end
 | |
| 				list[i].enabled = toset
 | |
| 			end
 | |
| 		end
 | |
| 	end
 | |
| end
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.handle_delete_mod_buttons(fields)
 | |
| 	local mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
 | |
| 	
 | |
| 	if fields["dlg_delete_mod_confirm"] ~= nil then
 | |
| 		
 | |
| 		if mod.path ~= nil and
 | |
| 			mod.path ~= "" and
 | |
| 			mod.path ~= engine.get_modpath() then
 | |
| 			if not engine.delete_dir(mod.path) then
 | |
| 				gamedata.errormessage = fgettext("Modmgr: failed to delete \"$1\"", mod.path)
 | |
| 			end
 | |
| 			modmgr.refresh_globals()
 | |
| 		else
 | |
| 			gamedata.errormessage = fgettext("Modmgr: invalid modpath \"$1\"", mod.path)
 | |
| 		end
 | |
| 	end
 | |
| 	
 | |
| 	return {
 | |
| 		is_dialog = false,
 | |
| 		show_buttons = true,
 | |
| 		current_tab = engine.setting_get("main_menu_tab")
 | |
| 		}
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.dialog_delete_mod()
 | |
| 
 | |
| 	local mod = filterlist.get_list(modmgr.global_mods)[modmgr.selected_mod]
 | |
| 	
 | |
| 	local retval = 
 | |
| 		"field[1.75,1;10,3;;" .. fgettext("Are you sure you want to delete \"$1\"?", mod.name) ..  ";]"..
 | |
| 		"button[4,4.2;1,0.5;dlg_delete_mod_confirm;" .. fgettext("Yes") .. "]" ..
 | |
| 		"button[6.5,4.2;3,0.5;dlg_delete_mod_cancel;" .. fgettext("No of course not!") .. "]"
 | |
| 
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.preparemodlist(data)
 | |
| 	local retval = {}
 | |
| 	
 | |
| 	local global_mods = {}
 | |
| 	local game_mods = {}
 | |
| 	
 | |
| 	--read global mods
 | |
| 	local modpath = engine.get_modpath()
 | |
| 
 | |
| 	if modpath ~= nil and
 | |
| 		modpath ~= "" then
 | |
| 		get_mods(modpath,global_mods)
 | |
| 	end
 | |
| 	
 | |
| 	for i=1,#global_mods,1 do
 | |
| 		global_mods[i].typ = "global_mod"
 | |
| 		table.insert(retval,global_mods[i])
 | |
| 	end
 | |
| 	
 | |
| 	--read game mods
 | |
| 	local gamespec = gamemgr.find_by_gameid(data.gameid)
 | |
| 	gamemgr.get_game_mods(gamespec, game_mods)
 | |
| 	
 | |
| 	for i=1,#game_mods,1 do
 | |
| 		game_mods[i].typ = "game_mod"
 | |
| 		table.insert(retval,game_mods[i])
 | |
| 	end
 | |
| 	
 | |
| 	if data.worldpath == nil then
 | |
| 		return retval
 | |
| 	end
 | |
| 	
 | |
| 	--read world mod configuration
 | |
| 	local filename = data.worldpath ..
 | |
| 				DIR_DELIM .. "world.mt"
 | |
| 
 | |
| 	local worldfile = Settings(filename)
 | |
| 	
 | |
| 	for key,value in pairs(worldfile:to_table()) do
 | |
| 		if key:sub(1, 9) == "load_mod_" then
 | |
| 			key = key:sub(10)
 | |
| 			local element = nil
 | |
| 			for i=1,#retval,1 do
 | |
| 				if retval[i].name == key then
 | |
| 					element = retval[i]
 | |
| 					break
 | |
| 				end
 | |
| 			end
 | |
| 			if element ~= nil then
 | |
| 				element.enabled = engine.is_yes(value)
 | |
| 			else
 | |
| 				print("Mod: " .. key .. " " .. dump(value) .. " but not found")
 | |
| 			end
 | |
| 		end
 | |
| 	end
 | |
| 
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.init_worldconfig()
 | |
| 	modmgr.precheck()
 | |
| 	local worldspec = engine.get_worlds()[modmgr.world_config_selected_world]
 | |
| 	
 | |
| 	if worldspec ~= nil then
 | |
| 		--read worldconfig
 | |
| 		modmgr.worldconfig = modmgr.get_worldconfig(worldspec.path)
 | |
| 		
 | |
| 		if modmgr.worldconfig.id == nil or
 | |
| 			modmgr.worldconfig.id == "" then
 | |
| 			modmgr.worldconfig = nil
 | |
| 			return false
 | |
| 		end
 | |
| 		
 | |
| 		modmgr.modlist = filterlist.create(
 | |
| 						modmgr.preparemodlist, --refresh
 | |
| 						modmgr.comparemod, --compare
 | |
| 						function(element,uid) --uid match
 | |
| 							if element.name == uid then
 | |
| 								return true
 | |
| 							end
 | |
| 						end, 
 | |
| 						function(element,criteria)
 | |
| 							if criteria.hide_game and
 | |
| 								element.typ == "game_mod" then
 | |
| 									return false
 | |
| 							end
 | |
| 							
 | |
| 							if criteria.hide_modpackcontents and
 | |
| 								element.modpack ~= nil then
 | |
| 									return false
 | |
| 								end
 | |
| 							return true
 | |
| 						end, --filter
 | |
| 						{ worldpath= worldspec.path,
 | |
| 						  gameid = worldspec.gameid }
 | |
| 					)
 | |
| 					
 | |
| 		filterlist.set_filtercriteria(modmgr.modlist, {
 | |
| 									hide_game=modmgr.hide_gamemods,
 | |
| 									hide_modpackcontents= modmgr.hide_modpackcontents
 | |
| 									})
 | |
| 		filterlist.add_sort_mechanism(modmgr.modlist, "alphabetic", sort_mod_list)
 | |
| 		filterlist.set_sortmode(modmgr.modlist, "alphabetic")
 | |
| 		
 | |
| 		return true	
 | |
| 	end
 | |
| 
 | |
| 	return false
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.comparemod(elem1,elem2)
 | |
| 	if elem1 == nil or elem2 == nil then
 | |
| 		return false
 | |
| 	end
 | |
| 	if elem1.name ~= elem2.name then
 | |
| 		return false
 | |
| 	end
 | |
| 	if elem1.is_modpack ~= elem2.is_modpack then
 | |
| 		return false
 | |
| 	end
 | |
| 	if elem1.typ ~= elem2.typ then
 | |
| 		return false
 | |
| 	end
 | |
| 	if elem1.modpack ~= elem2.modpack then
 | |
| 		return false
 | |
| 	end
 | |
| 	
 | |
| 	if elem1.path ~= elem2.path then
 | |
| 		return false
 | |
| 	end
 | |
| 	
 | |
| 	return true
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.gettab(name)
 | |
| 	local retval = ""
 | |
| 	
 | |
| 	if name == "mod_mgr" then
 | |
| 		retval = retval .. modmgr.tab()
 | |
| 	end
 | |
| 	
 | |
| 	if name == "dialog_rename_modpack" then
 | |
| 		retval = retval .. modmgr.dialog_rename_modpack()
 | |
| 	end
 | |
| 	
 | |
| 	if name == "dialog_delete_mod" then
 | |
| 		retval = retval .. modmgr.dialog_delete_mod()
 | |
| 	end
 | |
| 	
 | |
| 	if name == "dialog_configure_world" then
 | |
| 		retval = retval .. modmgr.dialog_configure_world()
 | |
| 	end
 | |
| 	
 | |
| 	return retval
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.mod_exists(basename)
 | |
| 
 | |
| 	if modmgr.global_mods == nil then
 | |
| 		modmgr.refresh_globals()
 | |
| 	end
 | |
| 
 | |
| 	if filterlist.raw_index_by_uid(modmgr.global_mods,basename) > 0 then
 | |
| 		return true
 | |
| 	end
 | |
| 	
 | |
| 	return false
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.get_global_mod(idx)
 | |
| 
 | |
| 	if modmgr.global_mods == nil then
 | |
| 		return nil
 | |
| 	end
 | |
| 	
 | |
| 	if idx < 1 or idx > filterlist.size(modmgr.global_mods) then
 | |
| 		return nil
 | |
| 	end
 | |
| 
 | |
| 	return filterlist.get_list(modmgr.global_mods)[idx]
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.refresh_globals()
 | |
| 	modmgr.global_mods = filterlist.create(
 | |
| 					modmgr.preparemodlist, --refresh
 | |
| 					modmgr.comparemod, --compare
 | |
| 					function(element,uid) --uid match
 | |
| 						if element.name == uid then
 | |
| 							return true
 | |
| 						end
 | |
| 					end, 
 | |
| 					nil, --filter
 | |
| 					{}
 | |
| 					)
 | |
| 	filterlist.add_sort_mechanism(modmgr.global_mods, "alphabetic", sort_mod_list)
 | |
| 	filterlist.set_sortmode(modmgr.global_mods, "alphabetic")
 | |
| end
 | |
| 
 | |
| --------------------------------------------------------------------------------
 | |
| function modmgr.identify_filetype(name)
 | |
| 
 | |
| 	if name:sub(-3):lower() == "zip" then
 | |
| 		return {
 | |
| 				name = name,
 | |
| 				type = "zip"
 | |
| 				}
 | |
| 	end
 | |
| 	
 | |
| 	if name:sub(-6):lower() == "tar.gz" or
 | |
| 		name:sub(-3):lower() == "tgz"then
 | |
| 		return {
 | |
| 				name = name,
 | |
| 				type = "tgz"
 | |
| 				}
 | |
| 	end
 | |
| 	
 | |
| 	if name:sub(-6):lower() == "tar.bz2" then
 | |
| 		return {
 | |
| 				name = name,
 | |
| 				type = "tbz"
 | |
| 				}
 | |
| 	end
 | |
| 	
 | |
| 	if name:sub(-2):lower() == "7z" then
 | |
| 		return {
 | |
| 				name = name,
 | |
| 				type = "7z"
 | |
| 				}
 | |
| 	end
 | |
| 
 | |
| 	return {
 | |
| 		name = name,
 | |
| 		type = "ukn"
 | |
| 	}
 | |
| end
 |