MAME-Memory-Card-Inserter/init.lua at master · Miss-Inputs/MAME-Memory-Card-Inserter · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
local exports = {}
exports.name = "memory_card_inserter"
exports.version = "0.0.2"
exports.description = "Automatically insert Neo Geo memory card"
exports.license = "MIT"
exports.author = { name = "Megan Leet (Zowayix)" }

local memory_card_inserter = exports

function memory_card_inserter.startplugin()
	local function get_config_path()
		return emu.subst_env(manager.machine.options.entries.homepath:value():match('([^;]+)')) .. '/memory_card_inserter.ini'
	end

	local function get_memory_card_dir()
		local config_path = get_config_path()
		local file = io.open(config_path, 'r')
		if file then
			file:close()
			for line in io.lines(config_path) do
				key, value = string.match(line, '([%w_]+)%s*=%s*(.+)');
				if key == 'memory_card_path' then
					return value
				end
			end
			return nil
		else
			return nil
		end
	end

	local function insert_card(machine, path)
		emu.print_verbose('memory-card-inserter: card path = ' .. path)

		for name, image in pairs(machine.images) do
			if name == ':memcard' or name == 'memcard' then
				if image.exists then
					--We don't want to mess around with this if someone's already inserted a memory card
					emu.print_verbose('memory-card-inserter: Memory card is already inserted')
					return
				end
				if not lfs.attributes(path) then
					--Only create the file if it does not already exists, otherwise it would overwrite what is already there
					emu.print_verbose('memory-card-inserter: Creating new memory card file')
					image:create(path)
				end
				image:load(path)
			end
		end

	end

	local function get_software_familyname(machine, slot_name)
		image = machine.images[slot_name]
		if image == nil then
			return nil
		end
		if not image.exists then
			return nil
		end
		if image.software_list_name == '' then
			return nil
		end

		if image.software_parent == '' then
			return image.filename
		else
			return image.software_parent
		end
	end


	local function auto_insert()
		local machine = manager.machine
		local driver = machine.system
		if driver.source_file:sub(-#'neogeo.cpp') ~= 'neogeo.cpp' then
			return
		end

		local memcard_name = nil
		if driver.name == 'neogeo' or driver.name == 'aes' then
			local softname = get_software_familyname(machine, ':cslot')
			if softname == nil then
				softname = get_software_familyname(machine, ':cslot1')
			end
			if softname == nil then
				return
			end
			memcard_name = softname
		else
			if driver.parent == 'neogeo' or driver.parent == '0' then
				memcard_name = driver.name
			else
				memcard_name = driver.parent
			end
		end

		local base_path = get_memory_card_dir()
		if base_path == nil then
			return
		end
		local path = base_path .. '/' .. memcard_name .. '.neo'

		insert_card(machine, path)
	end

	emu.register_start(auto_insert)
end

return exports