tVJSnXtX

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