JKmbGRuC

1MEmu := "RetroArch"
2MEmuV := "v1.3.6"
3MURL := ["http://themaister.net/retroarch.html"]
4MAuthor := ["djvj","zerojay","SweatyPickle"]
5MVersion := "2.4.3"
6MCRC := "97CC5CB6"
7iCRC := "FB2DB971"
8MID := "635038268922229162"
9MSystem := ["Acorn BBC Micro","AAE","Amstrad CPC","Amstrad GX4000","APF Imagination Machine","Applied Technology MicroBee","Apple IIGS","Atari 2600","Atari 5200","Atari 7800","Atari 8-Bit","Atari Classics","Atari Jaguar","Atari Lynx","Atari ST","Atari XEGS","Bally Astrocade","Bandai Gundam RX-78","Bandai Super Vision 8000","Bandai Wonderswan","Bandai Wonderswan Color","Canon X07","Capcom Classics","Capcom Play System","Capcom Play System II","Capcom Play System III","Casio PV-1000","Casio PV-2000","Cave","Coleco ADAM","ColecoVision","Commodore MAX Machine","Commodore Amiga","Creatronic Mega Duck","Data East Classics","Dragon Data Dragon","Emerson Arcadia 2001","Entex Adventure Vision","Elektronika BK","Epoch Game Pocket Computer","Epoch Super Cassette Vision","Exidy Sorcerer","Fairchild Channel F","Final Burn Alpha","Funtech Super Acan","GamePark 32","GCE Vectrex","Hartung Game Master","Interton VC 4000","Irem Classics","JungleTac Sport Vii","Konami Classics","MAME","Magnavox Odyssey 2","Microsoft MSX","Microsoft MSX2","Matra & Hachette Alice","Mattel Aquarius","Mattel Intellivision","Midway Classics","Namco Classics","Namco System 22","NEC PC Engine","NEC PC Engine-CD","NEC PC-FX","NEC TurboGrafx-16","NEC SuperGrafx","NEC TurboGrafx-CD","Nintendo 64","Nintendo 64DD","Nintendo Arcade Systems","Nintendo Classics","Nintendo DS","Nintendo Entertainment System","Nintendo Famicom","Nintendo Famicom Disk System","Nintendo Game Boy","Nintendo Game Boy Color","Nintendo Game Boy Japan","Nintendo Game Boy Advance","Nintendo Game & Watch","Nintendo Super Game Boy","Nintendo Pokemon Mini","Nintendo Virtual Boy","Nintendo Super Famicom","Nintendo Satellaview","Nintendo SuFami Turbo","Panasonic 3DO","Elektronska Industrija Pecom 64","Philips CD-i","Philips Videopac","RCA Studio II","ScummVM","Sega 32X","Sega Classics","Sega Mega Drive 32X","Sega Mark III","Sega SC-3000","Sega SG-1000","Sega CD","Sega Dreamcast","Sega Game Gear","Sega Genesis","Sega Master System","Sega Mega Drive","Sega Meganet","Sega Nomad","Sega Pico","Sega Saturn","Sega Saturn Japan","Sega VMU","Sega ST-V","Sharp X1","Sharp X68000","Sinclair ZX Spectrum","Sinclair ZX81","Sony PlayStation","Sony PlayStation Minis","Sony PocketStation","Sony PSP","Sony PSP Minis","Sord M5","SNK Classics","SNK Neo Geo","SNK Neo Geo AES","SNK Neo Geo MVS","SNK Neo Geo Pocket","SNK Neo Geo CD","SNK Neo Geo Pocket Color","Spectravideo","Super Nintendo Entertainment System","Taito Classics","Tandy TRS-80 Color Computer","Technos","Texas Instruments TI 99-4A","Thomson MO5","Thomson TO7","Tiger Game.com","Tiki-100","Tomy Tutor","VTech CreatiVision","Watara Supervision","Williams Classics"]
10;----------------------------------------------------------------------------
11; Notes:
12; If the emu doesn't load and you get no error, usually this means the LibRetro DLL is not working!
13; Devs stated they will never add support for mounted images (like via DT)
14; Fullscreen is controlled via the module setting in RocketLauncherUI
15; This module uses the CLI version of RetroArch (retroarch.exe), not the GUI (retroarch-phoenix.exe).
16; The emu may make a mouse cursor appear momentarily during launch, MouseMove and hide_cursor seem to have no effect
17; Enable 7z support for archived roms
18; Available CLI options: https://github.com/PyroFilmsFX/iOS/blob/master/docs/retroarch.1
19;
20; LibRetro DLLs:
21; LibRetro DLLs come with the emu, but here is another source for them: http://forum.themaister.net/
22; Whatever cores you decide to use, make sure they are extracted anywhere in your Emu_Path\cores folder. The module will find and load the default core unless you choose a custom one for each system.
23; You can find supported cores that Retroarch supports simply by downloading them from the "retroarch-phoenix.exe" or by visiting here: https://github.com/libretro/libretro.github.com/wiki/Supported-cores
24; Some good discussion on cores and filters: http://forum.themaister.net/viewtopic.php?id=270
25;
26; SRM files:
27; The srm files location is determined by the configuration file used (savefile_directory = ":\whatever") The default RetroArch srm directory is ":\saves" You can select to sort into core folders (ie: :/saves/Mednafen PSX) by changing sort_savefiles_enable = "true" in the configuration file.
28;
29; Save states:
30; The save state files location is determined by the configuration file used (savestate_directory = ":\whatever") The default RetroArch savestate directory is ":\states" You can select to sort into core folders (ie: :/states/Mednafen PSX) by changing sort_savestates_enable = "true" in the configuration file.
31;
32; Config files:
33; By default, the module looks for config files in a folder called config in the RetroArch folder. Example: C:\emus\RetroArch\config. You can change this folder to anything you like by changing the module's ConfigFolder setting in RocketLauncherUI.  This will be the config folder for the module and will NOT change the location of RetroArch's own /config directory.
34; RetroArch's global config file is called "retroarch.cfg". RetroArch will use a system cfg file named to match your System Name (example: Nintendo Entertainment System.cfg).
35; RetroArch will also load core config files named after the core name. Example: nestopia_libretro.cfg
36; This allows different settings globally, for each system, and for each core. If you want all systems to use the same retroarch.cfg, do not have any system or core cfg files, only have the retroarch.cfg.
37; If a core config exists, it takes precedence over the global config. And if a system config exists, it takes precedence over the core config.
38;
39; Core Options:
40; By default, RetroArch creates a retroarch-core-options.cfg in it's root directory.  Example: C:\emus\RetroArch\retroarch-core-options.cfg.  This will always be used if the default RetroArch.cfg is loaded.  If a configuration file from any other location is used, RetroArch will create a retroarch-core-options.cfg file in the root of that directory.  The module has an option to have RetroArch use only the default retroarch-core-options.cfg file no matter the path of the config directory or location of the configuiration file being used.  To enable this option set Single_Core_Options to true.
41
42; MultiGame:
43; MultiGame support is currently only available for the Mednafen PSX core. Retroarch uses the same method as Mednafen to load multi-disc games. This method involves m3u playlists which are commonly used for music. The m3u files needed to load multi-disc games are generated for you by the module when you launch a multi-disc game and are saved to your corresponding rom directory. Due to m3u limitations, your multi-disc roms/images cannot be archived -- they must be unzipped. All single disc games can remain archived and you can still enable 7z under system settings. If you do not wish to use MultiGame support you can archive your roms/images and m3u generation will be skipped on launch. 
44; The m3u files generated by the module contain a list of paths to all roms/images in the multi-disc set. Retroarch automatically loads the first path in the m3u so the first path will always be the disc you are loading. For example, Final Fantasy VII has 3 discs and if you load Disc 2 first, the order of the paths in the m3u will be disc 2, disc 3, disc 1. If you load Disc 3 first, the order will be disc 3, disc 1, disc 2. The module anticipates this and will load the correct disk, selected from the Pause/MultiDisk menus. However if you choose to manually use Retroarch's UI or disk swap keys to change discs, you will need to keep this in mind.
45; In order for RocketLauncher's MultiGame UI to swap discs, you must define Eject_Toggle_Key, Next_Disk_Key, and Previous_Disk_Key under global settings for the emulator in RocketLauncher. Because AHK and Retroarch use different naming conventions for some keyboard keys, it is best to use a letter, a number, or F1-F12.
46;
47; MAME:
48; MAME BIOS roms should be placed in Rom Path's directory. Some systems require the BIOS roms be placed in the MAME internal name directory. (Example: :\Rom Folder\a5200). The MAME BIOS_Roms_Folder option will have no effect unless you are using an older version of the mess core. 
49;
50; System Specific Notes:
51; Microsoft MSX/MSX2: Launch an MSX game and in the core options, set the console to be an MSX2 and it will play both just fine.
52; Nintendo Famicom Disk System - Requires disksys.rom be placed in the folder you define as system_directory in the RetroArch's cfg.
53; Sega CD - Requires "bios_CD_E.bin", "bios_CD_J.bin", "bios_CD_U.bin" all be placed in the folder you define as system_directory in the RetroArch's cfg.
54; Super Nintendo Entertainment System - requires split all 10 dsp# & st### roms all be placed in the folder you define as system_directory in the RetroArch's cfg. Many games, like Super Mario Kart require these.
55; NEC TurboGrafx-CD (using pce fast core) - Requires "syscard3.pce" be placed in the folder you define as system_directory in the RetroArch's cfg.
56; NEC TurboGrafx-CD (using MAME core)
57;   - You'll need to update a couple mame specific options in the Retroarch core options file to get it to boot from the cli. These should probably be updated automagically by the module. Turning softlists off, but might not need to.
58;       mame_boot_from_cli = "enabled"
59;       mame_softlists_enable = "disabled"
60;       mame_softlists_auto_media = "disabled"
61;	- Requires hash folder from MAME/MESS/UME, either from the source or release package. Save this in the system_directory you've defined for RetroArch. Something like \RetroArch\system\mame\hash\
62;	- Requires the CD bios file(s) saved in the mame bios folder you've defined. Usually \RetroArch\system\mame\bios\
63;		For PC Engine-CD you'll need the file "[cd] cd-rom system (japan) (v2.1).pce" zipped as cdsys.zip and saved in a pce subfolder in your bios path, so \RetroArch\system\mame\bios\pce\cdsys.zip
64;		For PC Engine SuperGrafx-CD you'll need the file "[cd] super cd-rom system (japan) (v3.0).pce" zipped as scdsys.zip and saved in a pce subfolder in your bios path, so \RetroArch\system\mame\bios\pce\scdsys.zip
65;		For TurboGrafx-CD you'll need the file "[cd] turbografx cd system card (usa) (v2.0).pce" zipped as cdsys.zip and saved in a tg16 subfolder in your bios path, so \RetroArch\system\mame\bios\tg16\cdsys.zip
66;		For TurboDuo you'll need the file "[cd] turbografx cd super system card (usa) (v3.0).pce" zipped as scdsys.zip and saved in a tg16 subfolder in your bios path, so \RetroArch\system\mame\bios\tg16\scdsys.zip
67; Nintendo Super Game Boy - Set the Module setting in RocketLauncherUI SuperGameBoy to true to enable a system or only a rom to use SGB mode. This is not needed if your systemName is set to the official name of "Nintendo Super Game Boy". Requires "sgb.boot.rom" and "Super Game Boy (World).sfc" to be placed in the folder you define as system_directory in the RetroArch's cfg. This is needed if you want to use Super game boy mode and color palettes. Also requires using the latest bsnes core. Not all games support SGB mode.
68; Sony PSP/PlayStation Minis: To avoid the dialog box complaining about ppge_atlas.zim, download it from https://github.com/libretro/libretro-ppsspp/blob/master/assets/ppge_atlas.zim and place it in your Retroarch/system/PPSSPP/ directory.
69;----------------------------------------------------------------------------
70StartModule()
71BezelGUI()
72FadeInStart()
73
74primaryExe := new Emulator(emuPath . "\" . executable)	; instantiate emulator executable object
75emuPrimaryWindow := new Window(new WindowTitle("RetroArch","RetroArch"))	; instantiate primary emulator window object
76emuConsoleWindow := new Window(new WindowTitle("","ConsoleWindowClass"))	; instantiate emulator console window object
77
78; Here we define all supported systems for this module. This object controls how the module reacts to different systems. RetroArch can play a lot of systems, but needs to know what system you want to run, so this module has to adapt.
79; 1 - Official System Name in RocketLauncher
80; 2 - Short name used only for easy referencing within module
81; 3 - Default core
82; 4 - The system ID MAME core recognizes
83RLLog.Debug("Module - Started building the " . MEmu . " object")
84mTypeVar:="
85	( LTrim
86	AAE|LibRetro_AAE|mame_libretro
87	Acorn BBC Micro|LibRetro_BBCB|mame_libretro|bbcb
88	Amstrad CPC|LibRetro_CPC|mame_libretro|cpc464
89	Amstrad GX4000|LibRetro_GX4K|mame_libretro|gx4000
90	APF Imagination Machine|LibRetro_APF|mame_libretro|apfimag
91	Apple IIGS|LibRetro_AIIGS|mame_libretro|apple2gs
92	Applied Technology MicroBee|LibRetro_MBEE|mame_libretro|mbeeic
93	Atari 2600|LibRetro_2600|stella_libretro|a2600
94	Atari 5200|LibRetro_5200|mame_libretro|a5200
95	Atari 7800|LibRetro_7800|prosystem_libretro|a7800
96	Atari 8-Bit|LibRetro_ATARI8|mame_libretro|a800
97	Atari Classics|LibRetro_ACLS|mame_libretro
98	Atari Jaguar|LibRetro_JAG|virtualjaguar_libretro|jaguar
99	Atari Lynx|LibRetro_LYNX|handy_libretro|lynx
100	Atari ST|LibRetro_ST|hatari_libretro
101	Atari XEGS|LibRetro_XEGS|mame_libretro|xegs
102	Bally Astrocade|LibRetro_BAST|mame_libretro|astrocde
103	Bandai Gundam RX-78|LibRetro_BGRX|mame_libretro|rx78
104	Bandai Super Vision 8000|LibRetro_SV8K|mame_libretro|sv8000
105	Bandai Wonderswan|LibRetro_WSAN|mednafen_wswan_libretro|wswan
106	Bandai Wonderswan Color|LibRetro_WSANC|mednafen_wswan_libretro|wscolor
107	Canon X07|LibRetro_CX07|mame_libretro|x07
108	Capcom Classics|LibRetro_CAPC|mame_libretro
109	Capcom Play System|LibRetro_CPS1|fbalpha_libretro
110	Capcom Play System II|LibRetro_CPS2|fbalpha_libretro
111	Capcom Play System III|LibRetro_CPS3|mame_libretro
112	Casio PV-1000|LibRetro_CAS1K|mame_libretro|pv1000
113	Casio PV-2000|LibRetro_CAS2K|mame_libretro|pv2000
114	Cave|LibRetro_CAVE|mame_libretro
115	Coleco ADAM|LibRetro_ADAM|mame_libretro|adam
116	ColecoVision|LibRetro_COLEC|mame_libretro|coleco
117	Commodore Amiga|LibRetro_PUAE|puae_libretro
118	Commodore Max Machine|LibRetro_CMAX|mame_libretro|vic10
119	Creatronic Mega Duck|LibRetro_DUCK|mame_libretro|megaduck
120	Data East Classics|LibRetro_DATA|mame_libretro
121	Dragon Data Dragon|LibRetro_DRAG64|mame_libretro|dragon64
122	Elektronika BK|LibRetro_EBK|mame_libretro|bk0010
123	Elektronska Industrija Pecom 64|LibRetro_P64|mame_libretro|pecom64
124	Emerson Arcadia 2001|LibRetro_A2001|mame_libretro|arcadia
125	Entex Adventure Vision|LibRetro_AVISION|mame_libretro|advision
126	Epoch Game Pocket Computer|LibRetro_GPCKET|mame_libretro|gamepock
127	Epoch Super Cassette Vision|LibRetro_SCV|mame_libretro|scv
128	Exidy Sorcerer|LibRetro_SORCR|mame_libretro|sorcerer
129	Fairchild Channel F|LibRetro_CHANF|mame_libretro|channelf
130	Final Burn Alpha|LibRetro_FBA|fbalpha_libretro
131	Funtech Super Acan|LibRetro_SACAN|mame_libretro|supracan
132	GamePark 32|LibRetro_GP32|mame_libretro|gp32
133	GCE Vectrex|LibRetro_VECTX|mame_libretro|vectrex
134	Hartung Game Master|LibRetro_GMASTR|mame_libretro|gmaster
135	Interton VC 4000|LibRetro_VC4K|mame_libretro|vc4000
136	Irem Classics|LibRetro_IREM|mame_libretro
137	JungleTac Sport Vii|LibRetro_SPORTV|mame_libretro|vii
138	Konami Classics|LibRetro_KONC|mame_libretro
139	Magnavox Odyssey 2|LibRetro_ODYS2|mame_libretro|odyssey2
140	MAME|LibRetro_MAME|mame_libretro|mame
141	Matra & Hachette Alice|LibRetro_ALICE|mame_libretro|alice32
142	Mattel Aquarius|LibRetro_AQUA|mame_libretro|aquarius
143	Mattel Intellivision|LibRetro_INTV|mame_libretro|intv
144	MGT Sam Coupe|LibRetro_SAMCP|mame_libretro|
145	Microsoft MS-DOS|LibRetro_MSDOS|dosbox_libretro
146	Microsoft MSX|LibRetro_MSX|bluemsx_libretro
147	Microsoft MSX2|LibRetro_MSX2|bluemsx_libretro
148	Microsoft Windows 3.x|LibRetro_WIN3X|dosbox_libretro
149	Midway Classics|LibRetro_MIDC|mame_libretro
150	Namco Classics|LibRetro_NAMC|mame_libretro
151	Namco System 22|LibRetro_NAM2|mame_libretro
152	NEC PC Engine|LibRetro_PCE|mednafen_pce_fast_libretro|pce,cart
153	NEC PC Engine-CD|LibRetro_PCECD|mednafen_pce_fast_libretro|pce,cdrom
154	NEC PC-FX|LibRetro_PCFX|mednafen_pcfx_libretro
155	NEC SuperGrafx|LibRetro_SGFX|mednafen_supergrafx_libretro|sgx,cart
156	NEC TurboGrafx-16|LibRetro_TG16|mednafen_pce_fast_libretro|tg16,cart
157	NEC TurboGrafx-CD|LibRetro_TGCD|mednafen_pce_fast_libretro|tg16,cdrom
158	Nintendo 64|LibRetro_N64|mupen64plus_libretro|n64
159	Nintendo 64DD|LibRetro_N64|mupen64plus_libretro
160	Nintendo Arcade Systems|LibRetro_NINARC|mame_libretro
161	Nintendo Classics|LibRetro_NINC|mame_libretro
162	Nintendo DS|LibRetro_DS|desmume_libretro
163	Nintendo Entertainment System|LibRetro_NES|nestopia_libretro|nes
164	Nintendo Famicom|LibRetro_NFAM|nestopia_libretro
165	Nintendo Famicom Disk System|LibRetro_NFDS|nestopia_libretro|famicom
166	Nintendo Game Boy|LibRetro_GB|gambatte_libretro|gameboy
167	Nintendo Game Boy Advance|LibRetro_GBA|vba_next_libretro|gba
168	Nintendo Game Boy Color|LibRetro_GBC|gambatte_libretro|gbcolor
169	Nintendo Game Boy Japan|LibRetro_GBJ|gambatte_libretro|gameboy
170	Nintendo Game & Watch|LibRetro_GW|gw_libretro
171	Nintendo Pokemon Mini|LibRetro_POKE|mame_libretro|pokemini
172	Nintendo Satellaview|LibRetro_NSFS|snes9x_libretro
173	Nintendo SuFami Turbo|LibRetro_NSFST|snes9x_libretro
174	Nintendo Super Famicom|LibRetro_NSF|bsnes_balanced_libretro
175	Nintendo Super Game Boy|LibRetro_SGB|bsnes_balanced_libretro
176	Nintendo Virtual Boy|LibRetro_NVB|mednafen_vb_libretro|vboy
177	Othello Multivision|LibRetro_OTHO|genesis_plus_gx_libretro
178	Panasonic 3DO|LibRetro_3DO|4do_libretro
179	Philips CD-i|LibRetro_CDI|mame_libretro|cdimono1
180	Philips Videopac|LibRetro_PVID|mame_libretro|videopac
181	RCA Studio II|LibRetro_STUD2|mame_libretro|studio2
182	SCUMMVM|LibRetro_SCUMM|scummvm_libretro
183	Sega 32X|LibRetro_32X|picodrive_libretro|32x
184	Sega CD|LibRetro_SCD|genesis_plus_gx_libretro|segacd
185	Sega Classics|LibRetro_SEGC|mame_libretro
186	Sega Dreamcast|LibRetro_DCAST|reicast_libretro
187	Sega Game Gear|LibRetro_GG|genesis_plus_gx_libretro|gamegear
188	Sega Genesis|LibRetro_GEN|genesis_plus_gx_libretro|genesis
189	Sega Mark III|Libretro_SM3|genesis_plus_gx_libretro
190	Sega Master System|LibRetro_SMS|genesis_plus_gx_libretro|sms
191	Sega Mega Drive|LibRetro_GEN|genesis_plus_gx_libretro|megadriv
192	Sega Mega Drive 32X|LibRetro_MD32X|picodrive_libretro
193	Sega Meganet|LibRetro_GEN|genesis_plus_gx_libretro|genesis
194	Sega Nomad|LibRetro_GEN|genesis_plus_gx_libretro|genesis
195	Sega Pico|LibRetro_PICO|picodrive_libretro
196	Sega Saturn|LibRetro_SAT|yabause_libretro|saturn
197	Sega Saturn Japan|LibRetro_SAT|yabause_libretro|saturnjp
198	Sega SC-3000|LibRetro_SC3K|mame_libretro|sc3000
199	Sega SG-1000|LibRetro_SG1K|genesis_plus_gx_libretro
200	Sega ST-V|LibRetro_STV|mame_libretro
201	Sega VMU|LibRetro_SVMU|mame_libretro|svmu
202	Sharp X1|LibRetro_SX1|mame_libretro|x1
203	Sharp X68000|LibRetro_SX68000|mame_libretro|x68000
204	Sinclair ZX Spectrum|LibRetro_SPECZX|mame_libretro|spectrum
205	Sinclair ZX81|LibRetro_ZX81|81_libretro|zx81
206	SNK Classics|LibRetro_SNKC|mame_libretro
207	SNK Neo Geo|LibRetro_NEO|fbalpha_libretro
208	SNK Neo Geo AES|LibRetro_NEOAES|mame_libretro|aes
209	SNK Neo Geo CD|LibRetro_NEOCD|mame_libretro|neocdz
210	SNK Neo Geo MVS|LibRetro_NEOMVS|mame_libretro
211	SNK Neo Geo Pocket|LibRetro_NGP|mednafen_ngp_libretro|ngp
212	SNK Neo Geo Pocket Color|LibRetro_NGPC|mednafen_ngp_libretro|ngpc
213	Sony PlayStation|LibRetro_PSX|mednafen_psx_libretro|mednafen_psx_hw_libretro|psu
214	Sony PlayStation Minis|LibRetro_PSXMIN|ppsspp_libretro
215	Sony PocketStation|LibRetro_POCKS|mame_libretro|pockstat
216	Sony PSP|LibRetro_PSP|ppsspp_libretro
217	Sony PSP Minis|LibRetro_PSP|ppsspp_libretro
218	Sord M5|LibRetro_SORD|mame_libretro|m5
219	Spectravideo|LibRetro_SV328|mame_libretro|svi328n
220	Super Nintendo Entertainment System|LibRetro_SNES|bsnes_balanced_libretro|snes
221	Taito Classics|LibRetro_TAIC|mame_libretro
222	Tandy TRS-80 Color Computer|LibRetro_TRS80|mame_libretro|coco3
223	Technos|LibRetro_TECHN|mame_libretro
224	Texas Instruments TI 99-4A|LibRetro_TI99|mame_libretro|ti99_4a
225	Thomson MO5|LibRetro_MO5|mame_libretro|mo5
226	Thomson TO7|LibRetro_TO7|mame_libretro|to7
227	Tiger Game.com|LibRetro_TCOM|mame_libretro|gamecom
228	Tiki-100|LibRetro_TIKI|mame_libretro|kontiki
229	Tomy Tutor|LibRetro_TOMY|mame_libretro|tutor
230	VTech CreatiVision|LibRetro_VTECH|mame_libretro|crvision
231	Watara Supervision|LibRetro_SUPRV|mame_libretro|svision
232	Williams Classics|LibRetro_WILLS|mame_libretro
233	)"
234mType := Object()
235Loop, Parse, mTypeVar, `n, `r
236{
237	obj := {}
238	Loop, Parse, A_LoopField, |
239	{
240		If (A_Index = 1)
241			obj.System := A_LoopField
242		Else If (A_Index = 2)
243			obj.ID := A_LoopField
244		Else If (A_Index = 3)
245			obj.Core := A_LoopField
246		Else {	; 4
247			StringSplit, tmp, A_LoopField, `,
248			obj.MAMEID := tmp1
249			obj.MAMEMedia := tmp2
250		}
251	}
252	mType.Insert(obj["System"], obj)
253}
254RLLog.Debug("Module - Finished building the " . MEmu . " object")
255; For easier use throughout the module
256retroSystem := mType[systemName].System
257retroID := mType[systemName].ID
258retroCore := mType[systemName].Core
259retroMAMEID := mType[systemName].MAMEID
260retroMAMEMedia := mType[systemName].MAMEMedia
261RLLog.Info("Module - Using these system variables:")
262RLLog.Info("Module - retroSystem: " . retroSystem)
263RLLog.Info("Module - retroID: " . retroID)
264RLLog.Info("Module - retroCore: " . retroCore)
265RLLog.Info("Module - retroMAMEID: " . retroMAMEID)
266RLLog.Info("Module - retroMAMEMedia: " . retroMAMEMedia)
267If !retroSystem
268	ScriptError("Your systemName is: " . systemName . "`nIt is not one of the known supported systems for this " . MEmu . " module: " . moduleName)
269If !retroCore
270	ScriptError("Your Core ID is: " . retroID . "`nCould not find a default core to use. Please update the module with a default core.")
271
272Fullscreen := moduleIni.Read("Settings", "Fullscreen","true",,1)
273configFolder := moduleIni.Read("Settings", "ConfigFolder",emuPath . "\config",,1)
274singlecoreoptions := moduleIni.Read("Settings", "single_core_options","false",,1) = "true" ? ":\retroarch-core-options.cfg" : """"
275mameRomPath := moduleIni.Read("MAME", "BIOS_Roms_Folder",,,1)
276mameHideNag := If moduleIni.Read("MAME", "Hide_Nag_Screen","false",,1) = "true" ? "enabled" : "disabled"
277mameHideInfo := If moduleIni.Read("MAME", "Hide_Info_Screen","false",,1) = "true" ? "enabled" : "disabled"
278mameHideWarn := If moduleIni.Read("MAME", "Hide_Warning_Screen","false",,1) = "true" ? "enabled" : "disabled"
279hideConsole := moduleIni.Read("Settings", "HideConsole","true",,1)
280ejectToggleKey := moduleIni.Read("Settings", "Eject_Toggle_Key",,,1)
281nextDiskKey := moduleIni.Read("Settings", "Next_Disk_Key",,,1)
282prevDiskKey := moduleIni.Read("Settings", "Previous_Disk_Key",,,1)
283core := moduleIni.Read(romName . "|" . systemName, "LibRetro_Core",retroCore,,1)
284superGB := moduleIni.Read(romName . "|" . systemName, "SuperGameBoy","false",,1)
285enableNetworkPlay := moduleIni.Read(romName . "|Network", "Enable_Network_Play","false",,1)
286overlay := moduleIni.Read(romName . "|" . systemName, "Overlay",,,1)
287videoShader := moduleIni.Read(romName . "|" . systemName, "VideoShader",,,1)
288videoDriver := moduleIni.Read(romName . "|" . systemName, "VideoDriver",,,1)
289aspectRatioIndex := moduleIni.Read(romName . "|" . systemName, "AspectRatioIndex",,,1)
290customViewportWidth := moduleIni.Read(romName . "|" . systemName, "CustomViewportWidth",,,1)
291customViewportHeight := moduleIni.Read(romName . "|" . systemName, "CustomViewportHeight",,,1)
292customViewportX := moduleIni.Read(romName . "|" . systemName, "CustomViewportX",,,1)
293customViewportY := moduleIni.Read(romName . "|" . systemName, "CustomViewportY",,,1)
294stretchToFillBezel := moduleIni.Read(romName . "|" . systemName, "StretchToFillBezel","false",,1)
295rotation := moduleIni.Read(romName . "|" . systemName, "Rotation",0,,1)
296cropOverscan := moduleIni.Read(romName . "|" . systemName, "CropOverscan",,,1)
297threadedVideo := moduleIni.Read(romName . "|" . systemName, "ThreadedVideo",,,1)
298vSync := moduleIni.Read(romName . "|" . systemName, "VSync",,,1)
299integerScale := moduleIni.Read(romName . "|" . systemName, "IntegerScale",,,1)
300configurationPerCore := moduleIni.Read(romName . "|" . systemName, "ConfigurationPerCore","false",,1)
301
302If (StringUtils.Contains(core, "^(mame|mess|ume)") && !retroMAMEID) {
303	retroMAMEID := "mame"	; set all systems that use a mame core to the default mame ID so any system name is supported
304	RLLog.Warning("Module - Setting MAMEID to default ""mame"" for """ . retroSystem . """")
305}
306
307configFolder := RLObject.getFullPathFromRelative(rlPath,configFolder)
308mameRomPath := If mameRomPath ? RLObject.getFullPathFromRelative(rlPath,mameRomPath) : romPath
309overlay := RLObject.getFullPathFromRelative(rlPath,overlay)
310videoShader := RLObject.getFullPathFromRelative(rlPath,videoShader)
311rotateBezel := false
312
313configFolder := new Folder(configFolder)
314
315If (retroID = "LibRetro_SGB" || superGB = "true")	; if system or rom is set to use Super Game Boy
316{	superGB := "true"	; setting this just in case it's false and the system is Nintendo Super Game Boy
317	sgbRomPath := CheckFile(emuPath . "\system\Super Game Boy (World).sfc","Could not find the rom required for Super Game Boy support. Make sure the rom ""Super Game Boy (World).sfc"" is located in: " . emuPath . "\system")
318	CheckFile(emuPath . "\system\sgb.boot.rom","Could not find the bios required for Super Game Boy support. Make sure the bios ""sgb.boot.rom"" is located in: " . emuPath . "\system")
319	retroID := "LibRetro_SGB"	; switching to Super Game Boy mode
320	retroSystem := "Nintendo Super Game Boy"
321}
322
323; Find the dll for this system
324libDll := CheckFile(emuPath . "\cores\" . core . ".dll", "Your " . retroID . " dll is set to " . core . " but could not locate this file:`n" . emuPath . "\cores\" . core . ".dll")
325
326; Find the cfg file to use
327If !configFolder.Exist()
328	ScriptError("You need to make sure ""ConfigFolder"" is pointing to your RetroArch config folder. By default it is looking here: """ . configFolder.FilePath . """")
329globalRetroCfg := emuPath . "\retroarch.cfg"
330systemRetroCfg := configFolder.FilePath . "\" . retroSystem . ".cfg"
331coreRetroCfg := configFolder.FilePath . "\" . core . ".cfg"
332RLLog.Info("Module - Global cfg should be: " . globalRetroCfg)
333RLLog.Info("Module - System cfg should be: " . systemRetroCfg)
334RLLog.Info("Module - Core cfg should be: " . coreRetroCfg)
335foundCfg := ""
336
337systemRetroCfg := new File(systemRetroCfg)
338coreRetroCfg := new File(coreRetroCfg)
339globalRetroCfg := new File(globalRetroCfg)
340
341If systemRetroCfg.Exist() {	; check for system cfg first
342	retroCFGFile := systemRetroCfg
343	foundCfg := 1
344	RLLog.Info("Module - Found a System cfg!")
345} Else If coreRetroCfg.Exist() {	; 2nd option is a core config
346	retroCFGFile := coreRetroCfg
347	foundCfg := 1
348	RLLog.Info("Module - Found a Core cfg!")
349} Else If globalRetroCfg.Exist() {	; 3rd is global cfg
350	retroCFGFile := globalRetroCfg
351	foundCfg := 1
352	RLLog.Info("Module - Found a Global cfg!")
353}
354If foundCfg {
355	RLLog.Info("Module - " . MEmu . " is using " . retroCFGFile.FileFullPath . " as its config file.")
356	retroCFG := LoadProperties(retroCFGFile.FileFullPath)
357} Else
358	RLLog.Warning("Module - Could not find a cfg file to update settings. RetroArch will make one for you.")
359
360If StringUtils.Contains(rotation,"1|3") ; use vertical bezel if RA rotation is set to 90 or 270 degrees
361	rotateBezel := true
362
363If StringUtils.Contains(retroID, "LibRetro_NFDS|LibRetro_SCD|LibRetro_TGCD|LibRetro_PCECD|LibRetro_PCFX") {		; these systems require the retroarch settings to be read
364	retroSysDir := ReadProperty(retroCFG,"system_directory")	; read value
365	retroSysDir := ConvertRetroCFGKey(retroSysDir)	; remove dbl quotes
366	retroSysDirLeft := StringUtils.Left(retroSysDir, 2)
367	If (retroSysDirLeft = ":\") {	; if retroarch is set to use a default folder
368		retroSysDir := StringUtils.TrimLeft(retroSysDir, 1)
369		RLLog.Info("Module - RetroArch is using a relative system path: """ . retroSysDir . """")
370		retroSysDir := emuPath . retroSysDir
371	}
372	If !retroSysDir
373		ScriptError("RetroArch requires you to set your system_directory and place bios rom(s) in there for """ . retroSystem . """ to function. Please do this first by running ""retroarch-phoenix.exe"" manually.")
374	checkForSlash := StringUtils.Right(retroSysDir, 1)
375	If (checkForSlash = "\")	; check if a backslash is the last character. If it is, remove it, as this is non-standard method to define folders
376		retroSysDir := StringUtils.TrimRight(retroSysDir, 1)
377}
378
379If (StringUtils.Contains(core, "^(mame|mess|ume)")) || (StringUtils.Contains(retroID, "LibRetro_N64|LibRetro_NES|LibRetro_LYNX|LibRetro_PSX")) || (StringUtils.Contains(retroID, "LibRetro_NES") && (StringUtils.Contains(core, "nestopia_libretro"))) {	; these systems will use an ini to store game specific settings
380	RLLog.Info("Module - Reading / creating system ini for specific settings.")
381	If !StringUtils.Contains(core, "^(mame|mess|ume)") {
382		If !SystemModuleIni.Exist()
383			SystemModuleIni.Append		; create a new blank ini file if one does not exist
384	}
385
386	coreOptionsCFG := LoadProperties(coreOptionsCFGFile.FileFullPath)
387	
388	If StringUtils.Contains(core, "^(mame|mess|ume)") {	; Set some MAME/MESS/UME core options.
389		tmpCore := If StringUtils.Contains(core, "mame") ? "mame" : "mess"
390		WriteProperty(coreOptionsCFG, tmpCore . "_read_config", """enabled""", 1)
391		WriteProperty(coreOptionsCFG, tmpCore . "_boot_from_cli", """enabled""", 1)				; This needs to be enabled in order to run games with RLauncher
392		WriteProperty(coreOptionsCFG, tmpCore . "_hide_nagscreen", "" . mameHideNag . "", 1)
393		WriteProperty(coreOptionsCFG, tmpCore . "_hide_infoscreen", "" . mameHideInfo . "", 1)
394		WriteProperty(coreOptionsCFG, tmpCore . "_hide_warnings", "" . mameHideWarn . "", 1)
395	} Else If StringUtils.Contains(retroID, "LibRetro_N64") {	; Nintendo 64
396		mupenGfx := moduleIni.Read(romName . "|" . systemName, "Mupen_Gfx_Plugin", "auto",,1)
397		mupenRsp := moduleIni.Read(romName . "|" . systemName, "Mupen_RSP_Plugin", "auto",,1)
398		mupenCpu := moduleIni.Read(romName . "|" . systemName, "Mupen_CPU_Core", "dynamic_recompiler",,1)
399		mupenPak1 := moduleIni.Read(romName . "|" . systemName, "Mupen_Pak_1", "memory",,1)
400		mupenPak2 := moduleIni.Read(romName . "|" . systemName, "Mupen_Pak_2", "memory",,1)
401		mupenPak3 := moduleIni.Read(romName . "|" . systemName, "Mupen_Pak_3", "memory",,1)
402		mupenPak4 := moduleIni.Read(romName . "|" . systemName, "Mupen_Pak_4", "memory",,1)
403		mupenGfxAccur := moduleIni.Read(romName . "|" . systemName, "Mupen_Gfx_Accuracy", "high",,1)
404		mupenExpMem := moduleIni.Read(romName . "|" . systemName, "Mupen_Disable_Exp_Memory", "no",,1)
405		mupenTexturFilt := moduleIni.Read(romName . "|" . systemName, "Mupen_Texture_Filtering", "nearest",,1)
406		mupenViRefresh := moduleIni.Read(romName . "|" . systemName, "Mupen_VI_Refresh", "2200",,1)
407		mupenFramerate := moduleIni.Read(romName . "|" . systemName, "Mupen_Framerate", "fullspeed",,1)
408		mupenResolution := moduleIni.Read(romName . "|" . systemName, "Mupen_Resolution", "640x480",,1)
409		mupenPolyOffstFctr := moduleIni.Read(romName . "|" . systemName, "Mupen_Polygon_Offset_Factor", "-3.0",,1)
410		mupenPolyOffstUnts := moduleIni.Read(romName . "|" . systemName, "Mupen_Polygon_Offset_Units", "-3.0",,1)
411		mupenViOverlay := moduleIni.Read(romName . "|" . systemName, "Mupen_VI_Overlay", "disabled",,1)
412		mupenAnalogDzone := moduleIni.Read(romName . "|" . systemName, "Mupen_Analog_Deadzone", "15",,1)
413
414		WriteProperty(coreOptionsCFG, "mupen64-gfxplugin", mupenGfx, 1)
415		WriteProperty(coreOptionsCFG, "mupen64-rspplugin", mupenRsp, 1)
416		WriteProperty(coreOptionsCFG, "mupen64-cpucore", mupenCpu, 1)
417		WriteProperty(coreOptionsCFG, "mupen64-pak1", mupenPak1, 1)
418		WriteProperty(coreOptionsCFG, "mupen64-pak2", mupenPak2, 1)
419		WriteProperty(coreOptionsCFG, "mupen64-pak3", mupenPak3, 1)
420		WriteProperty(coreOptionsCFG, "mupen64-pak4", mupenPak4, 1)
421		WriteProperty(coreOptionsCFG, "mupen64-gfxplugin-accuracy", mupenGfxAccur, 1)
422		WriteProperty(coreOptionsCFG, "mupen64-disableexpmem", mupenExpMem, 1)
423		WriteProperty(coreOptionsCFG, "mupen64-filtering", mupenTexturFilt, 1)
424		WriteProperty(coreOptionsCFG, "mupen64-virefresh", mupenViRefresh, 1)
425		WriteProperty(coreOptionsCFG, "mupen64-framerate", mupenFramerate, 1)
426		WriteProperty(coreOptionsCFG, "mupen64-screensize", mupenResolution, 1)
427		WriteProperty(coreOptionsCFG, "mupen64-polyoffset-factor", mupenPolyOffstFctr, 1)
428		WriteProperty(coreOptionsCFG, "mupen64-polyoffset-units", mupenPolyOffstUnts, 1)
429		WriteProperty(coreOptionsCFG, "mupen64-angrylion-vioverlay", mupenViOverlay, 1)
430		WriteProperty(coreOptionsCFG, "mupen64-astick-deadzone", mupenAnalogDzone, 1)
431	} Else If StringUtils.Contains(retroID, "LibRetro_NES") {		; these systems will use an ini to store game specific settings
432		If StringUtils.Contains(core, "nestopia_libretro") {	; Nestopia
433			nestopiaBlargg := moduleIni.Read(romName . "|Nestopia", "Nestopia_Blargg_NTSC_Filter", "disabled",,1)
434			nestopiaPalette := moduleIni.Read(romName . "|Nestopia", "Nestopia_Palette", "canonical",,1)
435			nestopiaNoSprteLimit := moduleIni.Read(romName . "|Nestopia", "Nestopia_Remove_Sprites_Limit", "disabled",,1)
436			
437			WriteProperty(coreOptionsCFG, "nestopia_blargg_ntsc_filter", nestopiaBlargg, 1)
438			WriteProperty(coreOptionsCFG, "nestopia_palette", nestopiaPalette, 1)
439			WriteProperty(coreOptionsCFG, "nestopia_nospritelimit", nestopiaNoSprteLimit, 1)
440		}
441	} Else If StringUtils.Contains(retroID, "LibRetro_LYNX") {	; Atari Lynx
442		If StringUtils.Contains(core, "handy_libretro") {   ; Handy
443			handyRotate := moduleIni.Read(romName . "|" . systemName, "Handy_Rotation", "None",,1)
444			If StringUtils.Contains(handyRotate, "240") or StringUtils.Contains(handyRotate, "90")
445				rotateBezel := true
446			WriteProperty(coreOptionsCFG, "handy_rot", handyRotate, 1)
447		}
448	} Else If StringUtils.Contains(retroID, "LibRetro_PSX") {	; Sony PlayStation
449		psxCdImageCache := moduleIni.Read(romName . "|" . systemName, "PSX_CD_Image_Cache", """enabled""",,1)
450		psxMemcardHandling := moduleIni.Read(romName . "|" . systemName, "PSX_Memcard_Handling", """libretro""",,1)
451		psxDualshockAnalogToggle := moduleIni.Read(romName . "|" . systemName, "PSX_Dualshock_Analog_Toggle", """enabled""",,1)
452		
453		WriteProperty(coreOptionsCFG, "beetle_psx_cdimagecache", psxCdImageCache, 1)
454		WriteProperty(coreOptionsCFG, "beetle_psx_use_mednafen_memcard0_method", psxMemcardHandling, 1)
455		WriteProperty(coreOptionsCFG, "beetle_psx_analog_toggle", psxDualshockAnalogToggle, 1)
456	}
457	SaveProperties(coreOptionsCFGFile.FileFullPath, coreOptionsCFG)
458}
459
460hideEmuObj := Object(emuConsoleWindow,0,emuPrimaryWindow,1)
4617z(romPath, romName, romExtension, sevenZExtractPath)
462
463mgM3UFile := new File(romPath . "\" . romTable[1,4] . ".m3u")
464
465mgRomExtensions := "cue|iso|ccd"
466mgValidExtension := false
467
468Loop, Parse, mgRomExtensions, |
469	If (romExtension = "." . A_LoopField)
470		mgValidExtension := true
471
472If (StringUtils.Contains(retroID, "LibRetro_PSX") && romTable.MaxIndex() && mgValidExtension) { ; See if MultiGame table is populated	
473	m3uRomIndex := Object()
474	mgType := romTable[1,6] . " "
475	mgMaxIndex := romTable.MaxIndex()
476	mgRomIndex := 0
477
478	If mgM3UFile.Exist()
479		mgM3UFile.Delete()
480
481	Loop % mgMaxIndex
482	{
483		If (romTable[A_Index, 3] = romName) {
484			tempType := romTable[A_Index, 5]
485			mgRomIndex := StringUtils.TrimLeft(tempType, StringUtils.StringLength(mgType))
486			RLLog.Info("Found rom index in rom set in romTable: " . mgRomIndex)
487			Break
488		}
489	}
490
491	If (mgRomIndex > 0) {
492		tempRomIndex := mgRomIndex
493		Loop % mgMaxIndex
494		{
495			mgTypeIndex := mgType . tempRomIndex
496			m3uRomIndex.Insert(tempRomIndex)
497
498			Loop % mgMaxIndex
499			{
500				If (romTable[A_Index, 5] = mgTypeIndex) {
501					tempRomPath := romTable[A_Index, 1]
502					mgM3UFile.Append(tempRomPath . "`n")
503					RLLog.Info("Module - Appending rom path to m3u: " . tempRomPath)
504					Break
505				}
506			}
507
508			If (tempRomIndex < mgMaxIndex)
509				tempRomIndex++
510			Else
511				tempRomIndex := 1
512		}
513	}
514}
515
516; MAME/MESS/UME core options
517MAMEParam1 := ""
518MAMEParam2 := ""
519MAMEParam3 := ""
520If StringUtils.Contains(core, "^(mame|mess|ume)") {	; if a MAME/MESS/UME core is used
521	If !retroMAMEID
522		ScriptError("Your systemName is: " . systemName . "`nIt is not one of the known supported systems for the MAME/MESS/UME LibRetro core")
523	Else
524		RLLog.Info("Module - MAME/MESS/UME mode using a known ident: " . retroMAMEID)
525
526	If !mameRomPath
527		ScriptError("Please set the RetroArch module setting ""BIOS_Roms_Folder"" to the folder that contains your MAME/MESS/UME BIOS roms to use with RetroArch.")
528	
529	If (retroMAMEID = "mame") {		; want this for arcade mame only
530		RLLog.Info("Module - Retroarch MAME/MESS/UME Arcade mode enabled")
531		fullRomPath := " """ . romPath . "\" . romName . romExtension . """"
532	} Else {
533		RLLog.Info("Module - Retroarch MAME/MESS/UME Console/PC mode enabled")
534		MAMEParam1 := ""
535		MAMEParam2 := " -rompath \""" . mameRomPath . "\"""
536
537		; If we already have a media type, then use it.
538		If (StringUtils.Contains(retroMAMEID, "tg16|pce") && retroMAMEMedia = "cart") {
539			;MAMEParam3 := " -cart \" . """" . romPath . "\" . romName . romExtension . "\" . """"
540			MAMEParam3 := " -cart \""" . romPath . "\" . romName . romExtension . "\"""""
541		; TODO: This needs a better way to handle the cdrom bios files, in my opinion. As it is, there's no clean way to pick between the v2.00 or v3.00 bios.
542		;       Defaulting to the TurboDuo cdrom bios since it will play 2.00 or 3.00 games.
543		} Else If (StringUtils.Contains(retroMAMEID, "tg16|pce") && retroMAMEMedia = "cdrom") {
544			;MAMEParam3 := " -cart cdsys -cdrm \" . """" . romPath . "\" . romName . romExtension . "\" . """"
545			MAMEParam3 := " -cart scdsys -cdrm \""" . romPath . "\" . romName . romExtension . "\"""""
546		} Else {
547			; Build a key/value object containing the different MAMEParam3 choices
548			MAMEP3 := Object("alice32","cass1","gp32","memc","cpc464","cass","spectrum","cass","dragon64","cass","cdimono1","cdrom","bk0010","cass","neocd","cdrom","neocdz","cdrom","saturn","cdrm","saturnjp","cdrm","svi328n","cass","pecom64","cass","psu","cdrm","svmu","quik","gamecom","cart1","mbeeic","quik1")
549			MAMEParam3 := MAMEP3[retroMAMEID]	; search object for the retroMAMEID pair
550			MAMEParam3 := " -" . (If MAMEParam3 ? MAMEParam3 : "cart") . " \" . """" . romPath . "\" . romName . romExtension . "\" . """"
551		}
552
553		If (retroMAMEID = "mbeeic") ; Applied Technology MicroBee
554		{	microbeeModel := IniReadCheck(MAMESysINI, romName, "MicroBee_Model","mbeeic",,1)
555			If microbeeModel not in mbee,mbeeic,mbeepc,mbeepc85,mbee56
556				ScriptError("This is not a known MicroBee model value: " . microbeeModel)
557			Else If (microbeeModel != "mbeeic")
558				retroMAMEID := microbeeModel
559			If romExtension in .mwb,.com,.bee
560				mediaDeviceType := "quik1"
561			Else If romExtension in .wav,.tap
562				mediaDeviceType := "cass"
563			Else If romExtension in .rom
564				mediaDeviceType := "cart"
565			Else If romExtension in .dsk
566				mediaDeviceType := "flop1"
567			Else	; .bin format
568				mediaDeviceType := "quik2"
569			MAMEParam3 := " -" . mediaDeviceType . " \" . """" . romPath . "\" . romName . romExtension . "\" . """"
570		}
571		
572		If (retroMAMEID = "x68000") ; Sharp X68000
573		{	
574			If romExtension in .xdf,.hdm,.2hd,.dim,.d77,.d88,.1dd,.dfi,.imd,.ipf,.mfi,.mfm,.td0,.cqm,.cqi,.dsk
575				mediaDeviceType := "flop1"
576			Else	; .bin format
577				mediaDeviceType := "sasi"
578			MAMEParam3 := " -" . mediaDeviceType . " \" . """" . romPath . "\" . romName . romExtension . "\" . """"
579		}
580		
581		fullRomPath := MAMEParam1 . MAMEParam2 . MAMEParam3
582	}
583} Else If (superGB = "true") {
584	RLLog.Info("Module - Retroarch Super Game Boy mode enabled")
585	fullRomPath := " """ . sgbRomPath . """ --subsystem sgb """ . romPath . "\" . romName . romExtension . """"
586} Else {
587	RLLog.Info("Module - Retroarch standard mode enabled")
588	fullRomPath := " """ . romPath . "\" . romName . romExtension . """"
589}
590
591If (retroID = "LibRetro_NFDS")	; Nintendo Famicom Disk System
592{	disksysRom := new File(retroSysDir . "\disksys.rom")
593	If !disksysRom.Exist()
594		ScriptError("RetroArch requires ""disksys.rom"" for " . retroSystem . " but could not find it in your system_directory: """ . retroSysDir . """")
595} Else If (retroID = "LibRetro_SCD")	; Sega CD
596{	If !StringUtils.Contains(romExtension, "\.bin|\.cue|\.iso")
597		ScriptError("RetroArch only supports Sega CD games in bin|cue|iso format. It does not support:`n" . romExtension)
598	biosCDEBin := new File(retroSysDir . "\bios_CD_E.bin")
599	biosCDUBin := new File(retroSysDir . "\bios_CD_U.bin")
600	biosCDJBin := new File(retroSysDir . "\bios_CD_J.bin")
601	If !biosCDEBin.Exist()
602		ScriptError("RetroArch requires ""bios_CD_E.bin"" for " . retroSystem . " but could not find it in your system_directory: """ . retroSysDir . """")
603	If !biosCDUBin.Exist()
604		ScriptError("RetroArch requires ""bios_CD_U.bin"" for " . retroSystem . " but could not find it in your system_directory: """ . retroSysDir . """")
605	If !biosCDJBin.Exist()
606		ScriptError("RetroArch requires ""bios_CD_J.bin"" for " . retroSystem . " but could not find it in your system_directory: """ . retroSysDir . """")
607} Else If StringUtils.Contains(retroID,"LibRetro_PCECD|LibRetro_TGCD")	; NEC PC Engine-CD and NEC TurboGrafx-CD
608{	If !StringUtils.Contains(romExtension,"\.ccd|\.cue")
609		ScriptError("RetroArch only supports " . retroSystem . " games in ccd or cue format. It does not support:`n" . romExtension)
610	sysCard3Pce := new File(retroSysDir . "\syscard3.pce")
611	If !sysCard3Pce.Exist()
612		ScriptError("RetroArch requires ""syscard3.pce"" for " . retroSystem . " but could not find it in your system_directory: """ . retroSysDir . """")
613} Else If (retroID = "LibRetro_PCFX")
614{	If !StringUtils.Contains(romExtension,"\.ccd|\.cue")
615		ScriptError("RetroArch only supports " . retroSystem . " games in ccd or cue format. It does not support:`n" . romExtension)
616	pcfxBios := new File(retroSysDir . "\pcfx.bios")
617	If !pcfxBios.Exist()
618		ScriptError("RetroArch requires ""pcfx.bios"" for " . retroSystem . " but could not find it in your system_directory: """ . retroSysDir . """")
619} Else If (retroID = "LibRetro_SCUMM")
620{
621	scummFile := new File(romPath . "\" . romName . ".scummvm")
622	If !scummFile.Exist()
623		scummFile.Append("""" . romName . """")
624}
625
626networkSession := ""
627If (enableNetworkPlay = "true") {
628	RLLog.Info("Module - Network Multi-Player is an available option for " . dbName)
629
630	netplayNickname := moduleIni.Read("Network", "NetPlay_Nickname","Player",,1)
631	getWANIP := moduleIni.Read("Network", "Get_WAN_IP","false",,1)
632
633	If (getWANIP = "true")
634		myPublicIP := GetPublicIP()
635
636	RLLog.Warning("Module - CAREFUL WHEN POSTING THIS LOG PUBLICLY AS IT CONTAINS YOUR IP ON THE NEXT LINE")
637	defaultServerIP := moduleIni.Read("Network", "Default_Server_IP", myPublicIP,,1)
638	defaultServerPort := moduleIni.Read("Network", "Default_Server_Port",,,1)
639	lastIP := moduleIni.Read("Network", "Last_IP", defaultServerIP,,1)	; does not need to be on the ISD
640	lastPort := moduleIni.Read("Network", "Last_Port", defaultServerPort,,1)	; does not need to be on the ISD
641
642	mpMenuStatus := MultiPlayerMenu(lastIP,lastPort,networkType,,0)
643	If (mpMenuStatus = -1) {	; if user exited menu early
644		RLLog.Warning("Module - Cancelled MultiPlayer Menu. Exiting module.")
645		ExitModule()
646	}
647	If networkSession {
648		RLLog.Info("Module - Using a Network for " . dbName)
649		moduleIni.Write(networkPort, "GlobalModuleIni", "Network", "Last_Port")
650		; msgbox lastIP: %lastIP%`nlastPort: %lastPort%`nnetworkIP: %networkIP%`nnetworkPort: %networkPort%
651		If (networkType = "client") {
652			moduleIni.Write(networkIP, "GlobalModuleIni", "Network", "Last_IP")	; Save last used IP and Port for quicker launching next time
653			netCommand := " -C " . networkIP . " --port " . networkPort . " --nick """ . netplayNickname . """"	; -C = connect as client
654		} Else {	; server
655			netCommand := " -H --port " . networkPort . " --nick """ . netplayNickname . """"	; -H = host as server
656		}
657		RLLog.Warning("Module - CAREFUL WHEN POSTING THIS LOG PUBLICLY AS IT CONTAINS YOUR IP ON THE NEXT LINE")
658		RLLog.Info("Module - Starting a network session using the IP """ . networkIP . """ and PORT """ . networkPort . """")
659	} Else
660		RLLog.Info("Module - User chose Single Player mode for this session")
661}
662
663BezelStart(,,(If rotateBezel ? 1:""))
664
665If foundCfg {
666	If (stretchToFillBezel = "true" and bezelEnabled = "true" and bezelPath)
667	{
668		customViewportWidth := bezelScreenWidth
669		customViewportHeight := bezelScreenHeight
670		customViewportX := 0
671		customViewportY := 0
672		aspectRatioIndex := 22
673		RLLog.Info("Stretching viewport to fit bezel")
674	}
675
676	raCfgHasChanges := ""
677	WriteRetroProperty("core_options_path", singlecoreoptions)
678	WriteRetroProperty("input_overlay", overlay)
679	WriteRetroProperty("video_shader", videoShader)
680        WriteRetroProperty("video_driver", videoDriver)
681	WriteRetroProperty("aspect_ratio_index", aspectRatioIndex)
682	WriteRetroProperty("custom_viewport_width", customViewportWidth)
683	WriteRetroProperty("custom_viewport_height", customViewportHeight)
684	WriteRetroProperty("custom_viewport_x", customViewportX)
685	WriteRetroProperty("custom_viewport_y", customViewportY)
686	WriteRetroProperty("video_rotation", rotation)
687	WriteRetroProperty("video_crop_overscan", cropOverscan)
688	WriteRetroProperty("video_threaded", threadedVideo)
689	WriteRetroProperty("video_vsync", vSync)
690	WriteRetroProperty("video_scale_integer", integerScale)
691	WriteRetroProperty("input_disk_eject_toggle", ejectToggleKey)
692	WriteRetroProperty("input_disk_next", nextDiskKey)
693	WriteRetroProperty("input_disk_prev", prevDiskKey)
694	If StringUtils.Contains(retroID, "LibRetro_PSX") {
695		Loop, 8	; Loop 8 times for 8 controllers
696		{	p%A_Index%ControllerType := moduleIni.Read(romName . "|" . systemName, "P" . A_Index . "_Controller_Type", 517,,1)
697			WriteRetroProperty("input_libretro_device_p" . A_Index, p%A_Index%ControllerType)
698		}
699	}
700
701	If raCfgHasChanges {
702		RLLog.Info("Module - Saving changed settings to: """ . retroCFGFile.FileFullPath . """")
703		SaveProperties(retroCFGFile.FileFullPath, retroCFG)
704	}
705}
706
707fullscreen := If fullscreen = "true" ? " -f" : ""
708retroCFGFileCLI := If foundCfg ? " -c """ . retroCFGFile.FileFullPath . """" : ""
709
710
711
712HideAppStart(hideEmuObj,hideEmu)
713
714If (StringUtils.Contains(core, "^(mame|mess|ume)") && (retroMAMEID != "mame")) {    ; if a MAME/MESS/UME core is used
715	primaryExe.Run(" """ . (retroMAMEID ? retroMAMEID : "") . fullRomPath . """ " . fullscreen . retroCFGFileCLI . " -L """ . libDll . netCommand, "Hide")
716} Else If (retroID = "LibRetro_SCUMM") {
717	primaryExe.Run(" """ . scummFile . """" . fullscreen . retroCFGFileCLI . " -L """ . libDll . "" . netCommand, "Hide")
718} Else If (retroID = "LibRetro_SGB" || If superGB = "true") { ; For some reason, the order of our command line matters in this particular case.
719	primaryExe.Run(fullscreen . retroCFGFileCLI . " -L """ . libDll . fullRomPath . netCommand, "Hide")
720} Else If mgM3UFile.Exist() {
721	primaryExe.Run(" """ . mgM3UFile.FileFullPath . """" . fullscreen . retroCFGFileCLI . " -L """ . libDll . netCommand, "Hide")
722} Else {
723	primaryExe.Run(" " . fullRomPath . fullscreen . retroCFGFileCLI . " -L """ . libDll . netCommand, "Hide")
724}
725
726mpMenuStatus := ""
727If networkSession {
728	canceledServerWait := false
729	multiplayerMenuExit := false
730	TimerUtils.SetTimer("NetworkConnectedCheck", 500)
731
732	If (networkType = "server") {
733		RLLog.Info("Module - Waiting for a client to connect to your server")
734		mpMenuStatus := MultiPlayerMenu(,,,,,,,,"You are the server. Please wait for your client to connect.")
735	} Else {	; client
736		RLLog.Info("Module - Trying to contact the server to establish a connection.")
737		mpMenuStatus := MultiPlayerMenu(,,,,,,,,"Attempting to connect to the server...")
738	}
739
740	If (mpMenuStatus = -1) {	; if user exited menu early before a client connected
741		RLLog.Warning("Module - Cancelled waiting for the " . If (networkType = "server") ? "client to connect" : "server to respond" . ". Exiting module.")
742		If primaryExe.Process("Exist")
743			primaryExe.Process("Close")	; must close process as the exe is waiting for a client to connect and no window was drawn yet
744		ExitModule()
745	} Else {	; blank response from MultiPlayerMenu, exited properly
746		RLLog.Info("Module - " . If (networkType = "server") ? "Client has connected" : "Connected to the server")
747		emuPrimaryWindow.Wait()
748		emuPrimaryWindow.WaitActive()
749	}
750	TimerUtils.SetTimer("NetworkConnectedCheck", "Off")
751} Else {	; single player
752	emuPrimaryWindow.Wait()
753	emuPrimaryWindow.WaitActive()
754}
755
756If (hideConsole = "true")
757	emuConsoleWindow.Set("Transparent", "On")	; makes the console window transparent so you don't see it on exit
758
759BezelDraw()
760HideAppEnd(hideEmuObj,hideEmu)
761FadeInExit()
762primaryExe.Process("WaitClose")
7637zCleanUp()
764BezelExit()
765FadeOutExit()
766ExitModule()
767
768
769; Writes new properties into the retroCFG if defined by user
770WriteRetroProperty(key,value="") {
771	If (value != "") {
772		Global retroCFG,raCfgHasChanges
773		WriteProperty(retroCFG, key, value,1,1)
774		raCfgHasChanges := 1
775	}
776}
777
778; Used to convert between RetroArch keys and usable data
779ConvertRetroCFGKey(txt,direction="read"){
780	Global emuPath,RLLog
781	If (direction = "read")
782	{	newtxt := StringUtils.TrimLeft(txt,1,0)	; removes the " from the left of the txt
783		newtxt := StringUtils.TrimRight(newtxt,1,0)	; removes the " from the right of the txt
784		relativeCheck := StringUtils.SubStr(newtxt,1,1,0)
785		If StringUtils.Contains(relativeCheck,":",0) {	; if the path contains a ":" then it is a relative path
786			RLLog.Debug("ConvertRetroCFGKey - " . newtxt . " is a relative path")
787			newtxt := StringUtils.TrimLeft(newtxt,1,0)	; removes the : from the left of the txt
788			newtxt := AbsoluteFromRelative(emuPath, "." . newtxt)	; convert relative to absolute
789		}
790		If StringUtils.Contains(newtxt,"/",0)
791			newtxt := StringUtils.Replace(newtxt,"/","\",1,,0)	; replaces all forward slashes with backslashes
792	} Else If (direction = "write")
793	{	newtxt := """" . txt . """"	; wraps the txt with ""
794		If StringUtils.Contains(newtxt,"\\",0)
795			newtxt := StringUtils.Replace(newtxt,"\","/",1,,0)	; replaces all backslashes with forward slashes
796	} Else
797		ScriptError("Not a valid use of ConvertRetroCFGKey. Only ""read"" or ""write"" are supported.")
798	RLLog.Debug("ConvertRetroCFGKey - Converted " . txt . " to " . newtxt)
799	Return newtxt
800}
801
802MultiGame:
803	KeyUtils.SetKeyDelay(100)
804	emuPrimaryWindow.Activate()
805	KeyUtils.Send("{" . ejectToggleKey . " down}{" . ejectToggleKey . " up}")	; eject disc in Retroarch
806	If (!mgLastRomIndex) {
807		mgLastRomIndex := mgRomIndex
808	}
809	selectedRomIndex := 0
810	selectedRomIndex := StringUtils.TrimLeft(selectedRomNum, StringUtils.StringLength(mgType,0))
811	
812	Loop % mgMaxIndex
813	{
814		If (m3uRomIndex[A_index] = mgLastRomIndex) {
815			tempLastRomIndex := A_index
816			RLLog.Debug("Module - Last index: " . tempLastRomIndex)
817		}
818		If (m3uRomIndex[A_index] = selectedRomIndex) {
819			tempSelectedRomIndex := A_index
820			RLLog.Debug("Module - Selected index: " . tempSelectedRomIndex)
821		}
822	}
823	
824	mgNewIndex := tempLastRomIndex - tempSelectedRomIndex
825	
826	If (mgNewIndex < 0) {
827		mgNewIndex := mgNewIndex * -1
828		Loop % mgNewIndex
829		{
830			RLLog.Debug("Module - Sending the next disk key: " . nextDiskKey)
831			KeyUtils.Send("{" . nextDiskKey . " down}{" . nextDiskKey . " up}")
832		}
833	} Else If (mgNewIndex > 0) {
834		Loop % mgNewIndex
835		{
836			RLLog.Debug("Module - Sending the previous disk key: " . mgNewIndex)
837			KeyUtils.Send("{" . prevDiskKey . " down}{" . prevDiskKey . " up}")
838		}
839	}
840	
841	KeyUtils.Send("{" . ejectToggleKey . " down}{" . ejectToggleKey . " up}")	; close disc in Retroarch
842	mgLastRomIndex := selectedRomIndex
843Return
844
845NetworkConnectedCheck:
846	If clientConnected
847		multiplayerMenuExit := true
848	Else If emuPrimaryWindow.Exist() {
849		RLLog.Info("Module - RetroArch session started, closing the MultiPlayer menu")
850		multiplayerMenuExit := true
851	}
852Return
853
854CloseProcess:
855	FadeOutStart()
856	emuPrimaryWindow.Close()
857Return