Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MEmu = MAMEMerge
- MEmuV = v0.163
- MURL = http://www.mame.net/
- MAuthor = djvj,faahrev,brolly,Tomkun
- MVersion = 2.3.6
- MCRC =
- iCRC =
- MID =
- MSystem = "AAE","Aamber Pegasus","Acorn Electron","Amstrad GX4000","APF Imagination Machine","Apple IIGS","Applied Technology MicroBee","Atari 8-bit","Atari 2600","Atari 5200","Atari 7800","Atari Classics","Atari Jaguar","Atari Lynx","Bally Astrocade","Bandai WonderSwan","Bandai WonderSwan Color","Capcom","Capcom Classics","Capcom Play System","Capcom Play System II","Capcom Play System III","Casio PV-1000","Casio PV-2000","Cave","Coleco ADAM","ColecoVision","Creatronic Mega Duck","Data East Classics","Emerson Arcadia 2001","Entex Adventure Vision","Epoch Game Pocket Computer","Epoch Super Cassette Vision","Exidy Sorcerer","Fairchild Channel F","Funtech Super Acan","GCE Vectrex","Hartung Game Master","Interton VC 4000","JungleTac Sport Vii","Konami Classics","LaserDisc","Magnavox Odyssey 2","MAME","Matra & Hachette Alice","Mattel Aquarius","Mattel Intellivision","Midway Classics","Namco Classics","Namco System 22","NEC PC Engine","NEC PC Engine-CD","NEC SuperGrafx","NEC TurboGrafx-16","NEC TurboGrafx-CD","Nintendo 64","Nintendo Arcade Systems","Nintendo Classics","Nintendo Entertainment System","Nintendo Famicom","Nintendo Famicom Disk System","Nintendo Game Boy","Nintendo Game Boy Advance","Nintendo Game Boy Color","Nintendo Super Game Boy","Nintendo Virtual Boy","Philips CD-i","RCA Studio II","Sega 32X","Sega CD","Sega Classics","Sega Game Gear","Sega Genesis","Sega Master System","Sega Mega Drive","Sega Model 1","Sega SG-1000","Sega ST-V","Sinclair ZX81","SNK Classics","SNK Neo Geo","SNK Neo Geo AES","SNK Neo Geo AES","SNK Neo Geo CD","SNK Neo Geo MVS","SNK Neo Geo Pocket","SNK Neo Geo Pocket Color","Sony PlayStation","Sony PocketStation","Sord M5","Super Nintendo Entertainment System","Taito Classics","Tandy TRS-80 Color Computer","Texas Instruments TI 99-4A","Tiger Game.com","Tomy Tutor","VTech CreatiVision","Watara Supervision"
- ;----------------------------------------------------------------------------
- ; Notes:
- ; This module now includes everything from the legacy MAME and MESS modules, but combined to match the merge of the 2 emulators that occured on version 0.162.
- ;
- ; Exit fade will only work correctly if you don't have Esc, the default MAME exit key, as your exit key. If you use Esc, turn off the ExitScreen
- ; This module will set your rom paths on the fly via CLI, but you must make sure the RLUI module setting for this module "MAME_BIOS_Path" is correctly set. It defaults to your roms subfolder where MAME.exe is found.
- ; This module assumes you have bios zip in your MAME "roms" directory, which might be different than your actual roms directory, for each system you need this module for. All tested systems listed below
- ; If MAME has a problem reading the bios zips, try archving them with "no compression"
- ; This site can help a ton with details for the various systems supported: http://www.progettoemma.net/mess/index.html
- ; You may get a black screen or MAME may close w/o notice if you do not have a bios rom for your system when one is needed.
- ; If you use bezel, it is recommended to set the module bezel mode to normal, and go to your MAME.ini file, on your emulator folder, and choose these options: artwork_crop 1, use_backdrops 1, use_overlays 1, use_bezels 0
- ;
- ; Command Line Options - http://easyemu.mameworld.info/mameguide/mameguide-options.html
- ; High Scores DO NOT SAVE when cheats are enabled!
- ; HLSL Documentation: http://mamedev.org/source/docs/hlsl.txt.html
- ; If you use MAME for AAE, create a vector.ini in mame's ini subfolder and paste these HLSL settings in there: http://www.mameworld.info/ubbthreads/showflat.php?Cat=&Number=309968&page=&view=&sb=5&o=&vc=1
- ;
- ; Following systems require a BIOS zip with their roms inside, placed in the "MAME\Roms\" directory:
- ; Amstrad GX4000 - N/A
- ; APF Imagination Machine - apfimag (tape games), apfm1000 (cart games)
- ; Apple IIGS - apple2gs
- ; Atari 800 - a800
- ; Atari 5200 - a5200
- ; Atari 7800 - a7800
- ; Atari Jaguar - jaguar
- ; Atari Lynx - lynx
- ; Bally Astrocade - astrocde
- ; Bandai WonderSwan - N/A
- ; Bandai WonderSwan Color - N/A
- ; Casio PV-2000 - pv2000
- ; Coleco ADAM - adam, adam_ddp, adam_fdc, adam_kb, adam_prn, adam_spi
- ; ColecoVision - coleco
- ; Creatronic Mega Duck - N/A
- ; Emerson Arcadia 2001 - N/A
- ; Entex Adventure Vision - advision
- ; Epoch Game Pocket Computer - gamepock
- ; Epoch Super Cassette Vision - scv
- ; Exidy Sorcerer - sorcerer
- ; Fairchild Channel F - channelf
- ; Funtech Super ACan - supracan
- ; GCE Vectrex - vextrex
- ; Hartung Game Master - gmaster
- ; Interton VC 4000 - vc4000
- ; JungleTac Sport Vii - vii
- ; Magnavox Odyssey 2 - odyssey2
- ; Matra & Hachette Alice - alice32
- ; Mattel Aquarius - aquarius
- ; Mattel Intellivision - intv ("exec.bin" [8,192 bytes] & "grom.bin" [2,048 bytes])
- ; MGT Sam Coupe - samcoupe
- ; NEC PC Engine - N/A
- ; NEC PC Engine-CD - N/A
- ; NEC SuperGrafx - N/A
- ; NEC TurboGrafx-16 - N/A
- ; NEC TurboGrafx-CD - "Super CD-ROM2 System V3.01 (U).pce" [262,144 bytes] (placed in the roms subfolder in the emuPath)
- ; Nintendo 64 - n64
- ; Nintendo Entertainment System - N/A
- ; Nintendo Famicom Disk System - famicom
- ; Nintendo Game Boy - gameboy
- ; Nintendo Game Boy Advance - gba
- ; Nintendo Game Boy Color - gbcolor
- ; Nintendo Super Game Boy Color - supergb
- ; Nintendo Virtual Boy - N/A
- ; Philips CD-i - the cdimono1
- ; RCA Studio II - studio2
- ; Sega 32X - 32x
- ; Sega CD - segacd, megacd, megacd2j (megacd2j seems to be more compatible over megacdj)
- ; Sega Game Gear - gamegear
- ; Sega Genesis - N/A
- ; Sega Master System - sms
- ; Sega Mega Drive - N/A
- ; Sinclair ZX81 - zx81
- ; SNK Neo Geo AES - aes
- ; SNK Neo Geo CD - neocd
- ; SNK Neo Geo Pocket - ngp
- ; SNK Neo Geo Pocket Color - ngpc
- ; Sony PlayStation - psa, pse, psj, psu
- ; Sony PocketStation - pockstat
- ; Sord M5 - m5
- ; Super Nintendo Entertainment System - snes
- ; Tandy TRS-80 Color Computer - coco3
- ; Texas Instruments TI 99-4A - ti99_4a
- ; Tiger Game.com - gamecom
- ; Tomy Tutor - tutor
- ; VTech CreatiVision - crvision
- ; Watara Supervision - N/A
- ;
- ; Custom Configuration Files:
- ; If you want to use custom configuration files (.cfg files) for some games you will need to store them inside your MAME cfg folder using the following structure:
- ; cfg\mame_system_name\HS_XML_rom_name\mame_system_name.cfg
- ; An example of a game that requires specific settings is ICBM Attack for the Bally Astrocade, in this case special cfg file should be:
- ; cfg\astrocde\I.C.B.M. Attack (USA) (Unl)\astrocde.cfg
- ;
- ; Ini Files:
- ; Module will set most settings through command line which will override any settings you might have on your MAME ini files. Everything else will be read from
- ; those. MAME supports a hierarchical ini file structure and will load settings from several ini files following a specific order:
- ;- mame.ini
- ;- <mymame>.ini (i.e. if MAME was renamed mame060.exe, MAME parses mame060.ini here)
- ;- debug.ini (if the debugger is enabled)
- ;- <parent>.ini (for clones only, may be called recursively)
- ;- <gamename>.ini
- ;- vertical.ini (for games with vertical monitor orientation)
- ;- horizont.ini (for games with horizontal monitor orientation)
- ;- vector.ini (for vector games only)
- ;- <driver>.ini (based on the source filename of the driver)
- ;
- ; The settings in the later ini's override those in the earlier ini's.
- ;
- ; It's highly recommended that you set skipchecks to 'Rom Only" for MAME otherwise RocketLauncher won't be able to launch several games due
- ; to the way MAME roms are packaged. This will be even more noticeable for those using merged sets.
- ;
- ; Bally Astrocade:
- ; ICBM requires a soft reset (even on the real hardware) to launch. You can read about it here: http://www.ballyalley.com/ballyalley/articles/Playing_ICBM_Attack_Using_MESS.pdf
- ; A custom build of MAME is needed to play this game if you don't want to press F3 manually each time you play ICBM. The custom build enables DirectInput so it is possible to script a soft reset in.
- ; Also ICBM uses different controls then the rest of the games. Make sure you follow the procedure explained above under "Custom Configuration Files" to create such file.
- ; Rom extensions should be zip,bin,txt
- ; Create a txt file in your rom dir called "Gunfight+Checkmate+Calculator+Scribbling (USA).txt" This game is built into the system and no rom is required to play it.
- ;
- ; GCE Vectrex:
- ; Requires a vectrex.lay and a png overlay for each game. These all need to be placed in the MAME\artwork\vectrex folder.
- ; You can download all these pngs and the lay file in my ftp folder. You need to use the HyperList XML to match the pngs.
- ;
- ; Magnavox Odyssey 2:
- ; Euro games should use the videopac bios instead of the odyssey2 one or you'll get some timing issues.
- ; Use the systemName ini file in the folder with this module for this, example:
- ; [Moto-Crash (France)]
- ; Bios=videopac
- ;
- ; Texas Instruments TI 99/4A:
- ; This system requires full keyboard emulation to work properly
- ; Split cart dumps are not supported since MESS .145 so you'll have to convert them to RPK format or use an earlier version of MESS (and a different module)
- ; You can check how to convert split cart dumps to RPK here:
- ; http://www.ninerpedia.org/index.php/MESS_multicart_system
- ; For floppy games make sure you have a RPK dump of an extended basic rom on your roms folder. It should be named "extended_basic.rpk"
- ; Bezels:
- ; Module settings control whether RocketLauncher or MAME bezels are shown
- ; In the bezel normal mode only RocketLauncher Bezels will be show and the MAME use_bezels option will be forced disbaled
- ; In the bezel layout mode, RocketLauncher Bezels will be drawn only when you do not have a layout file on your MAME folders for the current game
- ;
- ; ServoStik:
- ; The module will automatically control any connected ServoStiks found on the system.
- ; It does this by reading the xml info from MAME. If that XML info has directional info at 4 or less, 4-way mode will be enabled. All others get 8-way mode.
- ;
- ; Per game controller types:
- ; MAME allows you to change the controller type for each game by using slot devices. Slot devices are highly customizable and vary greatly from system to
- ; system so to avoid adding a huge complexity to the module this must be done through the Parameters settings.
- ; Slot devices are stored in the MAME ini file you are using, so the best way to find the command line you need to use is to start your game set the slot devices
- ; through the MAME UI (Press tab while in MAME) exit and then open the MAME ini file and search for a section named SLOT DEVICES.
- ; This is an example for Atari 2600 for a game using wheel controllers on both joy ports:
- ; #
- ; # SLOT DEVICES
- ; #
- ; joyport1 wheel
- ; joyport2 wheel
- ; The suggested method is to set the desired controllers you want to use by default in the Module Global Settings, in this case under the Atari 2600 tab you would
- ; set Parameters=-joyport1 joy -joyport2 joy
- ; And then for specific games do the same under Module Specific Settings for that system, if a game requires the wheel controller you'd set
- ; Parameters=-joyport1 wheel -joyport2 wheel
- ;
- ; Another option is to set the default values in the MAME ini file and make sure you also set writeconfig to 0.
- ; Swapping slot devices wipes out SYSTEM custom configs on the unplugged controllers, so to avoid any customised controls getting erased everytime you change slot devices,
- ; ensure you set your controls in the main MAME config file (MAME.ini), not the system one (ex. Atari 2600.ini).
- ;----------------------------------------------------------------------------
- StartModule()
- BezelGUI()
- FadeInStart()
- ; This object controls how the module reacts to different systems. MAME can play a lot of systems, but needs to know what system you want to run, so this module has to adapt.
- mTypeVar=
- ( LTrim
- Aamber Pegasus|pegasus
- Acorn Electron|electron
- Amstrad GX4000|gx4000
- APF Imagination Machine|apfimag
- Apple IIGS|apple2gs
- Atari 8-bit|a800
- Atari 2600|a2600
- Atari 5200|a5200
- Atari 7800|a7800
- Atari Jaguar|jaguar
- Atari Lynx|lynx
- Bally Astrocade|astrocde
- Bandai WonderSwan|wswan
- Bandai WonderSwan Color|wscolor
- Casio PV-1000|pv1000
- Casio PV-2000|pv2000
- Coleco ADAM|adam
- ColecoVision|coleco
- Creatronic Mega Duck|megaduck
- Emerson Arcadia 2001|arcadia
- Entex Adventure Vision|advision
- Epoch Game Pocket Computer|gamepock
- Epoch Super Cassette Vision|scv
- Exidy Sorcerer|sorcerer
- Fairchild Channel F|channelf
- Funtech Super Acan|supracan
- GCE Vectrex|vectrex
- Hartung Game Master|gmaster
- Interton VC 4000|vc4000
- JungleTac Sport Vii|vii
- Magnavox Odyssey 2|odyssey2
- Matra & Hachette Alice|alice32
- Mattel Aquarius|aquarius
- Mattel Intellivision|intv
- Applied Technology MicroBee|mbeeic
- NEC PC Engine|pce
- NEC PC Engine-CD|pce
- NEC SuperGrafx|sgx
- NEC TurboGrafx-16|tg16
- NEC TurboGrafx-CD|tg16
- Nintendo 64|n64
- Nintendo Entertainment System|nes
- Nintendo Famicom|famicom
- Nintendo Famicom Disk System|fds
- Nintendo Game Boy|gameboy
- Nintendo Game Boy Advance|gba
- Nintendo Game Boy Color|gbcolor
- Nintendo Super Game Boy|supergb
- Nintendo Virtual Boy|vboy
- Philips CD-i|cdimono1
- RCA Studio II|studio2
- Sega 32X|32x
- Sega CD|segacd
- Sega Game Gear|gamegear
- Sega Genesis|genesis
- Sega Master System|sms
- Sega Mega Drive|megadriv
- Sega SG-1000|sg1000
- Sinclair ZX81|zx81
- SNK Neo Geo AES|aes
- SNK Neo Geo CD|neocdz
- SNK Neo Geo Pocket|ngp
- SNK Neo Geo Pocket Color|ngpc
- Sony PlayStation|psx
- Sony PocketStation|pockstat
- Sord M5|m5
- Super Nintendo Entertainment System|snes
- Tandy TRS-80 Color Computer|coco3
- Texas Instruments TI 99-4A|ti99_4a
- Tiger Game.com|gamecom
- Tomy Tutor|tutor
- VTech CreatiVision|crvision
- Watara Supervision|svision
- )
- mType := Object()
- Loop, Parse, mTypeVar, `n, `r
- {
- obj := {}
- Loop, Parse, A_LoopField, |
- If A_Index = 1
- obj.System := A_LoopField
- Else ; 2
- obj.mameID := A_LoopField
- mType.Insert(obj["System"], obj)
- }
- Log("Module - Finished building the " . MEmu . " object",4)
- ; For easier use throughout the module
- mameSystem := mType[systemName].System
- mameID := mType[systemName].mameID
- If !mameSystem {
- Log("Module - """ . systemName . """ is not a known console or computer system. Defaulting to MAME's Arcade mode for the remainder of this " . MEmu . " module.",2)
- mameSystem := systemName
- mameID := "MAME"
- }
- settingsFile := modulePath . "\" . moduleName . ".ini"
- Fullscreen := IniReadCheck(settingsFile, "Settings", "Fullscreen","true",,1) ; Set fullscreen mode
- legacyMode := IniReadCheck(settingsFile, "Settings|" . systemName . "|" . romName, "LegacyMode","false",,1)
- mameBiosPath := IniReadCheck(settingsFile, "Settings", "MAME_BIOS_Path", emuPath . "\roms",,1)
- Videomode := IniReadCheck(settingsFile, "Settings", "Videomode","d3d",,1) ; Choices are gdi,ddraw,d3d. If left blank, MAME uses d3d by default
- pauseMethod := IniReadCheck(settingsFile, "Settings", "PauseMethod",1,,1) ; set the pause method that works better on your machine (preferred methods 1 and 2) 1 = Win7 and Win8 OK - Problems with Win XP, 2 = preferred method for WinXP - Problems in Win7, 3 and 4 = same as 1 and 2, 5 = only use If you have a direct input version of mame, 6 = suspend mame process method, it could crash mame in some computers
- hlsl := IniReadCheck(settingsFile, "Settings|" . mameSystem . "|" . romName, "HLSL","false",,1)
- glsl := IniReadCheck(settingsFile, "Settings|" . mameSystem . "|" . romName, "GLSL","false",,1)
- bezelMode := IniReadCheck(settingsFile, "Settings|" . systemName . "|" . romName, "BezelMode","layout",,1) ; "layout" or "normal"
- verticalRotationMode := IniReadCheck(settingsFile, "Settings|" . mameSystem . "|" . romName, "VerticalRotationMode","none",,1)
- cheatMode := IniReadCheck(settingsFile, "Settings", "CheatMode","false",,1)
- cheatModeKey := IniReadCheck(settingsFile, "Settings", "CheatModeKey",A_Space,,1) ; user defined key to be held down before launching a mame rom.
- UseSoftwareList := IniReadCheck(settingsFile, mameSystem, "UseSoftwareList","false",,1)
- sysStaticParams := IniReadCheck(settingsFile, mameSystem, "StaticParameters", A_Space,,1)
- sysParams := IniReadCheck(settingsFile, mameSystem, "Parameters", A_Space,,1)
- romParams := IniReadCheck(settingsFile, romName, "Parameters", sysParams,,1)
- mameRomName := IniReadCheck(settingsFile, romName, "MameRomName", A_Space,,1)
- autosave := IniReadCheck(settingsFile, systemName . "|" . romName, "Autosave", "false",,1)
- volume := IniReadCheck(settingsFile, "Settings|" . systemName . "|" . romName, "Volume",,,1)
- Artwork_Crop := IniReadCheck(settingsFile, mameSystem . "|" . romName, "Artwork_Crop", "true",,1)
- Use_Bezels := IniReadCheck(settingsFile, mameSystem . "|" . romName, "Use_Bezels", "false",,1)
- Use_Overlays := IniReadCheck(settingsFile, mameSystem . "|" . romName, "Use_Overlays", "true",,1)
- Use_Backdrops := IniReadCheck(settingsFile, mameSystem . "|" . romName, "Use_Backdrops", "true",,1)
- Use_Cpanels := IniReadCheck(settingsFile, mameSystem . "|" . romName, "Use_Cpanels", "false",,1)
- Use_Marquees := IniReadCheck(settingsFile, mameSystem . "|" . romName, "Use_Marquees", "false",,1)
- inipath := IniReadCheck(settingsFile, mameSystem, "IniPath", "",,1)
- mameBiosPath := GetFullName(mameBiosPath)
- ;Read settings from system name ini file
- sysSettingsFile := modulePath . "\" . mameSystem . ".ini"
- IfExist, %sysSettingsFile%
- {
- romParams := IniReadCheck(sysSettingsFile, romName, "Parameters", romParams,,1)
- hlsl := IniReadCheck(sysSettingsFile, romName, "HLSL",hlsl,,1)
- glsl := IniReadCheck(sysSettingsFile, romName, "GLSL",glsl,,1)
- Artwork_Crop := IniReadCheck(sysSettingsFile, romName, "Artwork_Crop", Artwork_Crop,,1)
- Use_Bezels := IniReadCheck(sysSettingsFile, romName, "Use_Bezels", Use_Bezels,,1)
- Use_Overlays := IniReadCheck(sysSettingsFile, romName, "Use_Overlays", Use_Overlays,,1)
- Use_Backdrops := IniReadCheck(sysSettingsFile, romName, "Use_Backdrops", Use_Backdrops,,1)
- Use_Cpanels := IniReadCheck(sysSettingsFile, romName, "Use_Cpanels", Use_Cpanels,,1)
- Use_Marquees := IniReadCheck(sysSettingsFile, romName, "Use_Marquees", Use_Marquees,,1)
- }
- artworkCrop := If (Artwork_Crop = "true") ? " -artwork_crop" : " -noartwork_crop"
- useBezels := If (Use_Bezels = "true") ? " -use_bezels" : " -nouse_bezels"
- useOverlays := If (Use_Overlays = "true") ? " -use_overlays" : " -nouse_overlays"
- useBackdrops := If (Use_Backdrops = "true") ? " -use_backdrops" : " -nouse_backdrops"
- useCpanels := If (Use_Cpanels = "true") ? " -use_cpanels" : " -nouse_cpanels"
- useMarquees := If (Use_Marquees = "true") ? " -use_marquees" : " -nouse_marquees"
- ; Get MAME version from executable, this is needed since some CLI switches are not available in older MAME versions
- exeAtrib := FileGetVersionInfo_AW( EmuPath . "\" . executable, "FileVersion|ProductVersion", "|" )
- Loop, Parse, exeAtrib, |%A_Tab%, %A_Space%
- A_Index & 1 ? ( _ := A_LoopField ) : ( %_% := A_LoopField )
- If (ProductVersion)
- StringRight, MAMEVersion, ProductVersion, StrLen(ProductVersion) - 2
- Log("Module - Detected MAME Product Version from '" . EmuPath . "\" . executable . "' is " . MAMEVersion)
- If inipath
- inipath := AbsoluteFromRelative(EmuPath, inipath)
- If (verticalRotationMode = "none")
- verticalRotationMode := ""
- hideEmuObj := Object(dialogOpen . " ahk_class ConsoleWindowClass",0,"ahk_class MAME",1) ;Hide_Emu will hide these windows. 0 = will never unhide, 1 = will unhide later
- ; Process mame's ListXML for certain features
- If (bezelEnabled = "true" || servoStikEnabled != "false" || verticalRotationMode) {
- ListXMLObject := Object()
- ListXMLObject := ListXMLInfo(romName)
- If (bezelEnabled = "true") {
- If (bezelMode = "layout"){
- BezelStart("layout",ListXMLObject["Parent"].Value,ListXMLObject["Angle"].Value,romName)
- } Else { ;bezel mode = normal
- useBezels := " -nouse_bezels" ; force disabling MAME built-in bezels
- BezelStart(,,ListXMLObject["Angle"].Value)
- }
- }
- If (servoStikEnabled != "false") {
- ServoStik(If ListXMLObject["Ways"].Value <= 4 ? 4 : 8) ; If "ways" in the xml is set to 4 or less, the servo will go into 4-way mode, else 8-way mode will be enabled
- }
- If (verticalRotationMode && ListXMLObject["Angle"].Value) {
- If (verticalRotationMode = "original")
- verticalRotationMode := " -norotate"
- Else If (verticalRotationMode = "right")
- verticalRotationMode := " -ror"
- Else If (verticalRotationMode = "left")
- verticalRotationMode := " -rol"
- Else
- verticalRotationMode := ""
- }
- Else
- verticalRotationMode := ""
- }
- 7z(romPath, romName, romExtension, 7zExtractPath)
- winstate := If (Fullscreen = "true") ? "Hide UseErrorLevel" : "UseErrorLevel"
- fullscreen := If (Fullscreen = "true") ? " -nowindow" : " -window"
- If (Videomode = "opengl")
- {
- hlsl := " -nohlsl_enable"
- If (MAMEVersion > 159)
- glsl := If glsl = "true" ? " -gl_glsl" : (If glsl = "ini" ? "" : " -nogl_glsl")
- Else
- glsl := ""
- }
- Else
- {
- hlsl := If hlsl = "true" ? " -hlsl_enable" : (If hlsl = "ini" ? "" : " -nohlsl_enable")
- If (MAMEVersion > 159)
- glsl := If Videomode = "ini" ? "" : " -nogl_glsl"
- Else
- glsl := ""
- If (Videomode = "ini")
- Videomode := ""
- }
- videomode := If (Videomode != "" ) ? " -video " . videomode : ""
- param1 := " -cart """ . romPath . "\" . romName . romExtension . """" ; default param1 used for launching most systems.
- autosave := If autosave = "true" ? " -autosave" : ""
- volume := If volume != "" ? " -volume " . volume : ""
- inipath := If inipath != "" ? " -inipath """ . inipath . """" : ""
- If romExtension = .txt ; This can be applied to all systems
- param1:=
- If mameID = apfimag ; APF Imagination Machine
- If romExtension != .tap
- mameID = apfm1000 ; cart games for APF Imagination Machine require a different bios to be loaded
- If UseSoftwareList != true
- { ; Now that we know the system we are loading, determine if we use an ini assocated with that system for custom game configs a user might need. Then load the configs associated to that game.
- If mameID in ti99_4a,aes,apple2gs,electron,mbeeic,odyssey2 ; these systems will use an ini to store game specific settings
- { mameSysINI := CheckFileMAME(modulePath . "\" . mameSystem . ".ini") ; create the ini if it does not exist
- If mameID = ti99_4a ; Texas Instruments TI 99-4A
- { mainCart := IniReadCheck(mameSysINI, romName, "Main_Cart",A_Space,,1)
- basicCart := IniReadCheck(mameSysINI, romName, "Basic_Cart","extended_basic.rpk",,1) ; user can specify a rom specific cart instead of the default basic one
- expansionLocation := IniReadCheck(mameSysINI, romName, "Expansion_Location","extended_basic.rpk",,1)
- ; Now set the parameters to send to MAME
- If romExtension = .dsk ; Expansion Disk
- ; If using the mainCart , send expansionLocation to MAME. This will require DirectInput to be enabled on the MAME build! Else we are loading a Disk game
- param1 := " -gromport multi -cart1", param2:=" """ . romPath . "\" . (If mainCart ? (mainCart):(basicCart)) . """", param3:=" -peb:slot2 32kmem -peb:slot3 speech -peb:slot6 tirs232 -peb:slot8 hfdc", param4:=" -flop1", param5:=" """ . romPath . "\" . romName . romExtension . """"
- Else If romExtension = .rpk ; Cart Game (RPK Format)
- param1 := " -gromport single -cart1", param2:=" """ . romPath . "\" . romName . romExtension . """", param3:=" -peb:slot3 speech" ;-cart will also work here
- param6 := " -ui_active" ;Enable partial keyboard mode at startup
- } Else If mameID = aes ; SNK Neo Geo AES
- { biosRegion := IniReadCheck(mameSysINI, romName, "BIOS_Region","asia",,1)
- param1 := " -bios " . biosRegion ; can also be japan, but the asian one has english menus for most games
- param2 := " -cart " . romName
- }Else if mameID = apple2gs ; Apple IIGS
- { externalOS := IniReadCheck(mameSysINI, romName, "External_OS","false",,1)
- 2gsSystemFile := "System6.2mg" ;For games without OS included, always force this name and error out if not found
- multipartTable := CreateRomTable(multipartTable)
- If externalOS = true
- { CheckFile(romPath . "\" . 2gsSystemFile)
- param1 := " -flop3", param2:=" """ . romPath . "\" . 2gsSystemFile . """", param3:=" -flop4", param4:=" """ . romPath . "\" . romName . romExtension . """"
- }Else{
- param1 := " -flop3", param2:=" """ . romPath . "\" . romName . romExtension . """"
- If (multipartTable.MaxIndex() > 1)
- param3:=" -flop4", param4 := " """ . multipartTable[2,1] . """"
- }
- param5 := " -ui_active" ;Enable partial keyboard mode at startup
- }Else If mameID = electron ; Acorn Electron
- { AutoBootDelay := IniReadCheck(mameSysINI, "Settings", "AutoBootDelay","2",,1) ; Read delay from config.
- AutoBootDelay := " -autoboot_delay " . AutoBootDelay
- If romExtension = .bin
- mediaDeviceType := "cart"
- Else ; any other format
- mediaDeviceType := "cass"
- param1 := " -" . mediaDeviceType . " """ . romPath . "\" . romName . romExtension . """ -autoboot_command ""chain""""""""""""\n""" . AutoBootDelay . ""
- }Else If mameID = mbeeic ; Applied Technology MicroBee
- { microbeeModel := IniReadCheck(mameSysINI, romName, "MicroBee_Model","mbeeic",,1)
- If microbeeModel not in mbee,mbeeic,mbeepc,mbeepc85,mbee56
- ScriptError("This is not a known MicroBee model value: " . microbeeModel)
- Else If (microbeeModel != "mbeeic")
- mameID := microbeeModel
- If romExtension in .mwb,.com,.bee
- mediaDeviceType := "quik1"
- Else If romExtension in .wav,.tap
- mediaDeviceType := "cass"
- Else If romExtension in .rom
- mediaDeviceType := "cart"
- Else If romExtension in .dsk
- mediaDeviceType := "flop1"
- Else ; .bin format
- mediaDeviceType := "quik2"
- param1 := " -" . mediaDeviceType . " """ . romPath . "\" . romName . romExtension . """"
- }Else if mameID = odyssey2 ; Magnavox Odyssey 2
- param2 := " -ui_active" ;Enable partial keyboard mode at startup
- ;Use a different bios if needed (This must be done after the above if conditions since the mameID will change)
- iniBios := IniReadCheck(mameSysINI, romName, "Bios",mameID,,1) ; for all games, we use the default bios. Some games might require different bios like Odyssey2's Jopac games use the videopac bios instead, which should be defined in the ini
- If (iniBios != "")
- mameID := iniBios ; need to change the bios name for some games
- }
- ; These systems don't use an ini, but do require parameters to be changed from the default method of launching MAME
- If (mameID = "neocdz" || mameID = "cdimono1" || mameID = "segacd" || mameID = "psx" || (mameID = "tg16" && mameSystem = "NEC TurboGrafx-CD") || (mameID = "pce" && mameSystem = "NEC PC Engine-CD")) ; SNK Neo Geo CD, Philips CD-i, Sega CD, Sony PlayStation, NEC PC Engine-CD or NEC TurboGrafx-CD
- { If romExtension not in .chd,.cue
- ScriptError("MAME only supports " . mameSystem . " games in chd and cue format. It does not support:`n" . romExtension)
- If (mameSystem = "NEC TurboGrafx-CD") { ; NEC TurboGrafx-CD needs an additional bios mounted as a cart to run
- ; tgcdBios := CheckFile(emuPath . "\roms\CD-ROM System V2.01 (U).pce") ; older bios that doesn't seem to work with many games
- tgcdBios := CheckFile(emuPath . "\roms\Super CD-ROM2 System V3.01 (U).pce")
- param2 := " -cart " . """" . tgcdBios . """"
- } Else If (mameSystem = "NEC PC Engine-CD") { ; NEC PC Engine-CD needs an additional bios mounted as a cart to run
- pcecdBios := CheckFile(emuPath . "\roms\Super CD-ROM2 System V3.0 (J).pce")
- param2 := " -cart " . """" . pcecdBios . """"
- } Else If (mameID = "psx") { ; Sony PlayStation
- mameID = psu ; changing mameID sent to MAME to use the USA bios
- ; SelectMemCard() ; future function to swap around memcards
- ; Usage: mc1 "J:\MAME\software\psu\card1.mc"
- } If (mameSystem = "Sega CD") { ;
- If InStr(romName,"(Jap") ; Mega CD Japanese v2
- mameID = megacd2j
- Else If InStr(romName,"(Euro") ; Mega CD European (PAL)
- mameID = megacd
- }
- param1 := " -cdrm """ . romPath . "\" . romName . romExtension . """"
- }Else If mameID = gamecom ; Tiger Game.com
- { If romExtension != .txt
- param1 := " -cart1 """ . romPath . "\" . romName . romExtension . """"
- }Else If mameID = genesis ; Sega Genesis
- { If (InStr(romName, "(Europe") || InStr(romName, "(PAL")) ; if rom is from europe, tell MAME to boot a Mega Drive instead
- mameID = megadriv
- }Else If mameID = megadriv ; Sega Mega Drive
- { If (InStr(romName, "(USA") || InStr(romName, "(NTSC")) ; if rom is from America, tell MAME to boot a Genesis instead
- mameID = genesis
- }Else If mameID = vii ; JungleTac Sport Vii
- { If romName = Built-In Games (China) ; Has some built-in games, gotta launch just BIOS for it.
- param1:=
- }Else If mameID = alice32 ; Matra & Hachette Alice
- { If romExtension != .txt
- param1 := " -cass1 """ . romPath . "\" . romName . romExtension . """"
- }Else If mameID = pockstat ; Sony PocketStation
- { If romExtension != .gme
- param1 := " -cart1 """ . romPath . "\" . romName . romExtension . """"
- }Else If mameID = coco3 ; Tandy TRS-80 Color Computer
- { If romExtension != .txt
- param1 := " -cart """ . romPath . "\" . romName . romExtension . """"
- }Else If mameID = zx81 ; Sinclair ZX81
- { If romExtension != .txt
- param1 := " -cass1 """ . romPath . "\" . romName . romExtension . """"
- }Else If mameID = sorcerer ; Exidy Sorcerer
- { If romExtension = .snp ; Snapshot file
- param1 := " -dump """ . romPath . "\" . romName . romExtension . """"
- Else If romExtension = .bin
- param1 := " -quik """ . romPath . "\" . romName . romExtension . """"
- }Else If (mameID = "a800" || mameID = "fds" || mameID = "samcoupe") ; Atari 8-bit, Nintendo Famicom Disk System, and MGT Sam Coupe
- { If romExtension != .txt
- param1 := " -flop1 """ . romPath . "\" . romName . romExtension . """"
- }Else If mameID = vectrex ; GCE Vectrex
- { If romName = Mine Storm (World) ; MAME dumps an error if you try to launch Mine Storm using a rom instead of just booting vectrex w/o a game in it (Mine Storm is built into vectrex)
- param1:=
- }Else If mameID = apfm1000 ; APF Imagination Machine/APF M1000
- { If romName = Rocket Patrol (USA) ; Rocket Patrol is built into the APF M1000 ROM.
- param1:=
- }Else If mameID = adam ; Coleco ADAM
- param1 := (If romExtension = ".ddp" ? " -cass1" : " -floppydisk") . " """ . romPath . "\" . romName . romExtension . """" ; Decide if disk or ddp game
- Else If mameID = pegasus ; Aamber Pegasus
- { If romExtension != .txt
- param1 := " -cart1 """ . romPath . "\" . romName . romExtension . """"
- }
- }Else{ ; Use Software List
- hashname := mameID
- param1 := " " . romName ; param1 used for launching from software lists
- If mameID = aes ; SNK Neo Geo AES
- { hashname := "neogeo"
- biosRegion := IniReadCheck(mameSysINI, romName, "BIOS_Region","asia",,1)
- param2 := " -bios " . biosRegion ; can also be japan, but the asian one has english menus for most games
- }
- CheckFile(emuPath . "\hash\" . hashname . ".xml","Could not find a software list for the system " . mameID) ;Check if software list for selected system exists
- }
- If mameID = vectrex ; GCE Vectrex
- param2 := " -view " . (If (FileExist(emuPath . "\artwork\Vectrex\" . romName . ".png"))?("""" . romName . """"):"standard") ; need overlays extracted in the artwork\vectres folder. PNGs must match romName
- sysStaticParams := If sysStaticParams != "" ? A_Space . sysStaticParams : "" ; tacking on a space in case user forgot to add one
- romParams := If romParams != "" ? A_Space . romParams : "" ; tacking on a space in case user forgot to add one
- StringReplace,mameRomPaths,romPathFromIni,|,`"`;`",1 ; replace all instances of | to ; in the Rom_Path from RL's Emulators.ini so MAME knows where to find your roms
- mameRomPaths := " -rompath """ . (If mameRomName ? romPath : mameRomPaths) . (If mameBiosPath ? ";" . mameBiosPath : "") . """" ; If using an alt rom, only supply mame with the path to that rom so it doesn't try to use the original rom. If a bios path was supplied, add it into the rom paths sent to MAME
- If InStr(romParams,"-rompath")
- ScriptError("""-rompath"" is defined as a parameter for " . romName . ". The MAME module fills this automatically so please remove this from Params in the module's settings.")
- If InStr(sysStaticParams,"-rompath")
- ScriptError("""-rompath"" is defined as a parameter for " . mameSystem . ". The MAME module fills this automatically so please remove this from Params in the module's settings.")
- If mameRomName {
- FileMove, %romPath%\%romName%%romExtension%, %romPath%\%mameRomName%%romExtension% ; rename rom to match what mame needs
- originalRomName := romName ; store romName from database so we know what to rename it back to later
- romName := mameRomName
- If ErrorLevel
- ScriptError("There was a problem renaming " . romName . " to " . mameRomName . " in " . romPath . ". Please check you have write permission to this folder/file and you don't already have a file named """ . mameRomName . """ in your rom folder.",8)
- Else ; if rename was successful, set var so we know to move it back later
- fileRenamed = 1
- }
- ; use a custom cfg file if it exists and append it to param1
- IfExist, % emuPath . "\cfg\" . mameID . "\" . dbName
- param1 := " -cfg_directory " . """" . emuPath . "\cfg\" . mameID . "\" . dbName . """" . param1
- If cheatMode = true
- { If (!FileExist(emuPath . "\cheat.zip") && !FileExist(emuPath . "\cheat.7z"))
- ScriptError("You have cheats enabled for " . MEmu . " but could not locate a ""cheat.zip"" or ""cheat.7z"" in " . emuPath)
- If cheatModeKey ; if user wants to use a key to enable CheatMode
- cheatEnabled := If XHotkeyAllKeysPressed(cheatModeKey) ? " -cheat" : "" ; only enables cheatMode when key is held down on launch
- Else ; no cheat mode key defined
- cheatEnabled := " -cheat"
- }
- HideEmuStart()
- If legacyMode = true
- { Log("Module - Running MAME in legacy Mmde")
- errLvl := Run(executable . A_Space . (If mameID = "MAME" ? romName : mameID . param1 . param2 . param3 . param4 . param5 . param6) . fullscreen . cheatEnabled . volume . mameRomPaths . sysStaticParams . romParams, emuPath, winstate)
- } Else {
- Log("Module - Running MAME in non-legacy mode")
- errLvl := Run(executable . A_Space . (If mameID = "MAME" ? romName : mameID . param1 . param2 . param3 . param4 . param5 . param6) . mameRomPaths . sysStaticParams . romParams . fullscreen . hlsl . glsl . cheatEnabled . volume . inipath . verticalRotationMode . videomode . artworkCrop . useBezels . useOverlays . useBackdrops . useCpanels . useMarquees . autosave . " -skip_gameinfo", emuPath, winstate)
- }
- If errLvl {
- If (errLvl = 1)
- Error = Failed Validity
- Else If(errLvl = 2)
- Error = Missing Files
- Else If(errLvl = 3)
- Error = Fatal Error
- Else If(errLvl = 4)
- Error = Device Error
- Else If(errLvl = 5)
- Error = Game Does Not Exist
- Else If(errLvl = 6)
- Error = Invalid Config
- Else If errLvl in 7,8,9
- Error = Identification Error
- Else
- Error = MAME Error
- Log("MAME Error - " . Error,3)
- }
- WinWait("ahk_class MAME")
- WinWaitActive("ahk_class MAME")
- BezelDraw()
- If romName = ICBMromName ; for Bally Astrocade only
- { Sleep, 2000 ; increase if you don't see the title screen
- SetKeyDelay(50)
- Send, {F3 down}{F3 up} ; sends a reset to MAME, needed for ICBM to boot
- }
- HideEmuEnd()
- FadeInExit()
- Process("WaitClose", executable)
- 7zCleanUp()
- BezelExit()
- If fileRenamed { ; rename file back to alternate name for next launch
- FileMove, %romPath%\%romName%%romExtension%, %romPath%\%originalRomName%%romExtension%
- If ErrorLevel ; if rename was successful, set var so we know to move it back later
- ScriptError("There was a problem renaming " . romName . " back to " . originalRomName)
- }
- FadeOutExit()
- ExitModule()
- ; This will simply create a new blank ini if one does not exist
- CheckFileMAME(file){
- IfNotExist, %file%
- FileAppend,, %file%
- Return file
- }
- ListXMLInfo(rom){ ; returns MAME info about parent rom, orientation angle, resolution
- Global emuFullPath, emuPath
- ListXMLObject := Object()
- listXMLVarLog :=
- RunWait, % comspec . " /c " . """" . emuFullPath . """" . " -listxml " . rom . " > tempBezel.txt", %emuPath%, Hide
- Fileread, ListxmlContents, %emuPath%\tempBezel.txt
- RegExMatch(ListxmlContents, "s)<game.*name=" . """" . rom . """" . ".*" . "cloneof=" . """" . "[^""""]*", parent)
- RegExMatch(parent,"cloneof=" . """" . ".*", parent)
- RegExMatch(parent,"""" . ".*", parent)
- StringTrimLeft, parent, parent, 1
- RegExMatch(ListxmlContents, "s)<display.*rotate=" . """" . "[0-9]+" . """", angle)
- RegExMatch(angle,"[0-9]+", angle, "-6")
- RegExMatch(ListxmlContents, "s)<display.*width=" . """" . "[0-9]+" . """", width)
- RegExMatch(width,"[0-9]+", width, "-6")
- RegExMatch(ListxmlContents, "s)<display.*height=" . """" . "[0-9]+" . """", Height)
- RegExMatch(Height,"[0-9]+", Height, "-6")
- RegExMatch(ListxmlContents, "s)<control.*ways=" . """" . "[0-9]+" . """", Ways)
- RegExMatch(Ways,"[0-9]+", Ways, "-6")
- logVars := "Parent|Angle|Height|Width|Ways"
- Loop, Parse, logVars, |
- {
- currentobj:={}
- currentobj.Label := A_Loopfield
- currentobj.Value := %A_Loopfield%
- ListXMLObject.Insert(currentobj["Label"], currentobj)
- listXMLLog .= "`r`n`t`t`t`t`t" . currentobj["Label"] . " = " . currentobj["Value"]
- }
- Log("Module - MAME ListXML values: " . listXMLLog,5)
- If (ListXMLObject["Height"].Value > ListXMLObject["Width"].Value) {
- ListXMLObject["Angle"].Value := true
- Log("Module - This game's height is greater than its width, forcing vertical mode",5)
- }
- FileDelete, %emuPath%\tempBezel.txt
- Return ListXMLObject
- }
- BezelLabel:
- WinSet, Transparent, 0, ahk_class ConsoleWindowClass
- Return
- HaltEmu:
- If pauseMethod = 1
- { disableSuspendEmu = true
- disableRestoreEmu = true
- PostMessage,0x211, 1, , , ahk_class MAME
- } Else If pauseMethod = 2
- { disableSuspendEmu = true
- PostMessage,0x211, 1, , , ahk_class MAME
- } Else If pauseMethod = 3
- { disableSuspendEmu = true
- disableRestoreEmu = true
- PostMessage,% 0x0400+6, 1, , , ahk_class MAME
- } Else If pauseMethod = 4
- { disableSuspendEmu = true
- PostMessage,% 0x0400+6, 1, , , ahk_class MAME
- } Else If pauseMethod = 5
- { disableSuspendEmu = true
- Send, {P down}
- Sleep, 1000
- Send, {P up}
- }
- Return
- RestoreEmu:
- If pauseMethod = 1
- { PostMessage,0x212, 1, , , ahk_class MAME
- WinActivate, ahk_class MAME
- } Else If pauseMethod = 2
- { PostMessage,0x212, 1, , , ahk_class MAME
- WinActivate, ahk_class MAME
- } Else If pauseMethod = 3
- { PostMessage,% 0x0400+6, 0, , , ahk_class MAME
- WinActivate, ahk_class MAME
- } Else If pauseMethod = 4
- { PostMessage,% 0x0400+6, 0, , , ahk_class MAME
- WinActivate, ahk_class MAME
- } Else If pauseMethod = 5
- { disableSuspendEmu = true
- Send, {P down}
- Sleep, 1000
- Send, {P up}
- WinActivate, ahk_class MAME
- } Else If pauseMethod = 6
- WinActivate, ahk_class MAME
- Return
- CloseProcess:
- FadeOutStart()
- WinClose("ahk_class MAME")
- Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement