MEmu = MAME
MEmuV = v0.163
MURL = http://www.mame.net/
MAuthor = djvj,faahrev,brolly,Tomkun
MVersion = 2.2.2
MCRC = 99BD11E0
iCRC = BCD207F4
mId = 635746812784197028
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 Super Vision 8000","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","GamePark 32","GCE Vectrex","Hartung Game Master","HBMAME","Interton VC 4000","Irem Classics","JungleTac Sport Vii","Konami Classics","LaserDisc","Magnavox Odyssey 2","MAME","Matra & Hachette Alice","Mattel Aquarius","Mattel Intellivision","MGT Sam Coupe","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 Pokemon Mini","Nintendo Satellaview","Nintendo Super Famicom","Nintendo Super Game Boy","Nintendo Virtual Boy","Othello Multivision","PacMAME","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","Williams Classics"
;----------------------------------------------------------------------------
; 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:
; Aamber Pegasus - pegasus
; Acorn Electron - electron
; Amstrad GX4000 - gx4000
; APF Imagination Machine - apfimag (tape games), apfm1000 (cart games)
; 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 Super Vision 8000 - sv8000
; Bandai WonderSwan - wswan
; Bandai WonderSwan Color - wscolor
; Casio PV-1000 - pv1000
; Casio PV-2000 - pv2000
; Coleco ADAM - adam, adam_ddp, adam_fdc, adam_kb, adam_prn, adam_spi
; 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
; GamePark 32 - gp32
; 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])
; Applied Technology MicroBee - mbeeic
; MGT Sam Coupe - samcoupe
; NEC PC Engine - pce
; NEC PC Engine-CD - pce
; NEC SuperGrafx - sgx
; NEC TurboGrafx-16 - tg16
; 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 - nes
; Nintendo Famicom - famicom
; Nintendo Famicom Disk System - fds
; Nintendo Game Boy - gameboy
; Nintendo Game Boy Advance - gba
; Nintendo Game Boy Color - gbcolor
; Nintendo Pokemon Mini - pokemini
; Nintendo Satellaview - snes
; Nintendo Super Famicom - snes
; Nintendo Super Game Boy - supergb
; Nintendo Virtual Boy - vboy
; Othello Multivision - omv1000
; 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 - 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 - 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 - svision
;
; 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\database_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
; Other games might require this as well, you can enable this in the module's settings so the machine is reset automatically on launch, otherwise you need to press F3 to start the game.
; Also ICBM Attack 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.
;
; 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()
; 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 Super Vision 8000|sv8000
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
GamePark 32|gp32
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
MGT Sam Coupe|samcoupe
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 Pokemon Mini|pokemini
Nintendo Satellaview|snes
Nintendo Super Famicom|snes
Nintendo Super Game Boy|supergb
Nintendo Virtual Boy|vboy
Othello Multivision|omv1000
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
bilinearFilter := IniReadCheck(settingsFile, "Settings|" . mameSystem, "BilinearFilter","false",,1)
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)
; Update Link setting
; linkType := "Slave" ; set to desired link mode
; nvramObj := Object() ; initialize object to store the nvram options
; nvramObj["Name"] := romName
; nvramObj["Link","Position"] := "24"
; nvramObj["Link","None"] := "00"
; nvramObj["Link","Master"] := "01"
; nvramObj["Link","Slave"] := "02"
; nvramObj["Link","Live"] := "03"
; nvramFile := emuPath . "\nvram2\" . romName . "\nvram"
; If FileExist(nvramFile) {
; linkBin := BinRead(nvramFile,nvramData,1,nvramObj.Link["Position"]) ; read current link mode as binary
; Bin2Hex(linkHex,nvramData,linkBin) ; convert current link mode to hex
; If (linkHex != nvramObj.Link[linkType]) {
; Log("Module - Setting nvram to " . linkType . " for " . romName,4)
; Hex2Bin(binData,nvramObj.Link[linkType]),BinWrite(nvramFile,binData,1,nvramObj.Link["Position"])
; } Else
; Log("Module - " . romName . " already set to " . linkType,4)
; }
enableLinkPlay := IniReadCheck(settingsFile, "Link/Network|" . romName, "Enable_Link_Play", "false",,1)
networkSession :=
If (enableLinkPlay != "false") {
Log("Module - Link/Network Multi-Player is an available option for " . romName,4)
getWANIP := IniReadCheck(settingsFile, "Link/Network", "Get_WAN_IP","false",,1)
myIP := If getWANIP = "true" ? GetPublicIP() : "127.0.0.1" ; use local ip by default if user does not want to get the WAN IP as MAME needs this for linked games
networkPlayers := enableLinkPlay ; Max amount of networkable players
localLink := 1 ; Tell Multiplayer menu to enable menu option for local linking
splitScreen2PlayersMode := IniReadCheck(settingsFile, "Link/Network|" . romName, "SplitScreen_2_Players","Vertical",,1) ;horizontal or vertical
splitScreen3PlayersMode := IniReadCheck(settingsFile, "Link/Network|" . romName, "SplitScreen_3_Players","P1top",,1) ; For Player1 screen to be on left: P1left. For Player1 screen to be on top: P1top. For Player1 screen to be on bottom: P1bottom. For Player1 screen to be on right: P1right.
; localHost := IniReadCheck(settingsFile, "Link/Network", "Local_Host","0.0.0.0",,1) ; localhost is always 0.0.0.0 so no need to change
localPort := IniReadCheck(settingsFile, "Link/Network", "Local_Port","15111",,1)
; remoteHost := IniReadCheck(settingsFile, "Link/Network", "Remote_Host","127.0.0.1",,1)
; remotePort := IniReadCheck(settingsFile, "Link/Network", "Remote_Port","15111",,1)
defaultServerIP := IniReadCheck(settingsFile, "Link/Network", "Default_Server_IP", myIP,,1)
defaultServerPort := IniReadCheck(settingsFile, "Link/Network", "Default_Server_Port","15111",,1)
lastIP := IniReadCheck(settingsFile, "Link/Network", "Last_IP", defaultServerIP,,1) ; also known as the Remote IP in mame. Does not need to be on the ISD
lastPort := IniReadCheck(settingsFile, "Link/Network", "Last_Port", defaultServerPort,,1) ; also known as the Remote Port in mame. Does not need to be on the ISD
MultiplayerMenu(lastIP, lastPort, networkType, networkPlayers,,,,,,localLink)
;MultiPlayer Menu Result
; If !(networkType)
; MsgBox, % "Single Player Game"
; Else If (networkType="localLink")
; MsgBox, % "Local Link selected with the number of players equal to: " . networkPlayers
; Else If (networkType="server")
; MsgBox, % "WAN IP Address=" . networkIP . " | LAN IP Address=" . localIP[1,2] . " | Port=" . networkPort . " | networkPlayers=" . networkPlayers . " | networkRequiresSetup=" . networkRequiresSetup
; Else If (networkType="client")
; MsgBox, % "NetworkIP=" . networkIP . " | Port Number=" . networkPort . " | networkRequiresSetup=" . networkRequiresSetup
If networkSession {
Log("Module - Using a Network for " . romName,4)
multiPlayerObj := Object() ; initialize object to store the multiplayer options
If (networkType="localLink") {
Log("Module - Setting remote host to 127.0.0.1 to support local link mode as it is running on this PC.")
If networkPlayers > 1
{ Log("Module - Local link mode was selected and " . networkPlayers . " sessions will be launched.")
linkEnabledGame := 1
; remoteIsLocal := 1 ; this will determine if the module needs to handle multiple copies of mame or not
fullscreen := "false" ; must turn off fullscreen if running multiple MAMEs on the same machine
Loop % networkPlayers {
player := A_Index
multiPlayerObj[A_Index,"Number"] := player
multiPlayerObj[A_Index,"CfgDir"] := " -cfg_directory cfg" . (If A_Index = 1 ? "" : A_Index)
multiPlayerObj[A_Index,"NvramDir"] := " -nvram_directory nvram" . (If A_Index = 1 ? "" : A_Index)
If (A_Index = 1) { ; Player 1
multiPlayerObj[A_Index,"LocalHost"] := " -comm_localhost 0.0.0.0"
multiPlayerObj[A_Index,"LocalPort"] := " -comm_localport " . localPort
} Else { ; Players 2+
multiPlayerObj[A_Index,"RemoteHost"] := " -comm_remotehost 127.0.0.1"
multiPlayerObj[A_Index,"RemotePort"] := " -comm_remoteport " . localPort
}
; msgbox % "Player: " . multiPlayerObj[A_Index]["Number"] . "`nLocalHost: " . multiPlayerObj[A_Index]["LocalHost"] . "`nLocalPort: " . multiPlayerObj[A_Index]["LocalPort"] . "`nRemoteHost: " . multiPlayerObj[A_Index]["RemoteHost"] . "`nRemotePort: " . multiPlayerObj[A_Index]["RemotePort"] . "`nCfgDir: " . multiPlayerObj[A_Index]["CfgDir"] . "`nNvramDir: " . multiPlayerObj[A_Index]["NvramDir"]
}
} Else
Log("Module - Local link mode was selected but user only chose 1 player. Launch will be a normal session.")
} Else If (networkType = "client") {
Log("Module - Remote host is running on another PC, module will use remote link mode.")
IniWrite, %lastIP%, %settingsFile%, Link/Network, Last_IP ; Save last used IP and Port for quicker launching next time
IniWrite, %lastPort%, %settingsFile%, Link/Network, Last_Port
linkType := "Slave"
multiPlayerObj[A_Index,"Number"] := 1
multiPlayerObj[A_Index,"CfgDir"] := " -cfg_directory cfg"
multiPlayerObj[A_Index,"NvramDir"] := " -nvram_directory nvram"
multiPlayerObj[A_Index,"LocalPort"] := " -comm_localport " . localPort
multiPlayerObj[A_Index,"RemoteHost"] := " -comm_remotehost " . lastIP
multiPlayerObj[A_Index,"RemotePort"] := " -comm_remoteport " . lastPort
} Else { ; server
linkType := "Master"
multiPlayerObj[A_Index,"Number"] := 1
multiPlayerObj[A_Index,"CfgDir"] := " -cfg_directory cfg"
multiPlayerObj[A_Index,"NvramDir"] := " -nvram_directory nvram"
multiPlayerObj[A_Index,"LocalHost"] := " -comm_localhost 0.0.0.0"
multiPlayerObj[A_Index,"LocalPort"] := " -comm_localport " . localPort
IniWrite, %lastPort%, %settingsFile%, Link/Network, Last_Port
}
Log("Module - Starting a network session using the IP """ . networkIP . """ and PORT """ . networkPort . """",4)
} Else {
Log("Module - User chose Single Player mode for this session",4)
}
}
FadeInStart()
;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 MAMEDebugWindow",0,"ahk_class MAMEOutput",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 = "auto" || verticalRotationMode) {
ListXMLObject := Object()
ListXMLObject := ListXMLInfo(romName)
If (bezelEnabled = "true") {
If (networkPlayers > 1) {
useBezels := " -nouse_bezels" ; force disabling MAME built-in bezels
BezelStart(networkPlayers)
} Else {
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 = "auto") {
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,astrocde ; 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
}Else if mameID = astrocde ; Bally Astrocade
{
BlueRAMBasicRom := IniReadCheck(mameSysINI, "Settings", "BlueRAMBasicRom","Blue RAM Basic v1.1 (USA).bin",,1) ; Blue RAM Basic rom
RequiresReset := IniReadCheck(mameSysINI, romname, "RequiresReset","false",,1) ; Check if game requires a reset
BlueRAMBasicRomPath := romPath . "\" . BlueRAMBasicRom
If (romExtension = .script) {
;Will require blue ram basic
If !FileExist(BlueRAMBasicRomPath) {
;Blue RAM Basic games might be in their own sub-folders since they have several files, so let's try to find the Blue RAM cart in the parent folder as well
SplitPath,romPath,,romBasePath
BlueRAMBasicRomPath := CheckFile(romBasePath . "\" . BlueRAMBasicRom, "Couldn't find " . BlueRAMBasicRom . " on any of these paths:" . romBasePath . "|" . romPath)
}
scriptFile := romPath . "\" . romName . romExtension
param1 := " -cart """ . BlueRAMBasicRomPath . """"
;Replace rompath variable in script
FileRead, scriptData, %scriptFile%
StringReplace, scriptData, scriptData, {romPath}, %romPath%, all
;Create cmd file to send to MESS
FileDelete, %romPath% . "\" . %romName% . ".cmd"
FileAppend, %scriptData%, %romPath%\%romName%.cmd
param2 := " -exp blue_ram_16k -debug -debugscript """ . romPath . "\" . romName . ".cmd"""
closeDebugWindow := "true"
}
}
;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 If mameID = gp32 ; GamePark 32
{ If romExtension != .txt
param1 := " -memc """ . 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.")
; use a custom rom name, not the one from the db
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 bilinearFilter = true
bilinearEnabled := " -filter"
Else
bilinearEnabled := " -nofilter"
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)
Else
Log("Module - Cheat file found in " . emuPath,4)
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"
}
If (RequiresReset = "true")
{
; Generate a lua script to send a system soft reset
ScriptFileName := GenerateSoftResetScript()
bootscript := " -script """ . ScriptFileName . """ -autoboot_delay 1"
}
HideEmuStart()
If legacyMode = true
{ Log("Module - Running MAME in legacy Mode")
errLvl := Run("""" . executable . """ " . (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")
If (networkPlayers = 1 || !linkEnabledGame) {
errLvl := Run("""" . executable . """ " . (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 . bootscript . bilinearEnabled . " -skip_gameinfo", emuPath, winstate)
} Else { ; multiplayer game run
;screen positions
screenPosMode := If (networkPlayers = 2) ? splitScreen2PlayersMode : If (networkPlayers = 2) ? splitScreen3PlayersMode : ""
screenPos := SplitScreenPos(networkPlayers,screenPosMode)
globalInputs := " -global_inputs" ; tell mame to accept inputs when its window is not focused
Loop, %networkPlayers%
{
;;Run Line for each of the multiplayer MAME instances using the nvramPath and cfgPath variables to the extra mames
errLvl := Run("""" . executable . """ " . (If mameID = "MAME" ? romName : mameID . param1 . param2 . param3 . param4 . param5 . param6) . mameRomPaths . multiPlayerObj[A_Index]["CfgDir"] . multiPlayerObj[A_Index]["NvramDir"] . globalInputs . multiPlayerObj[A_Index]["LocalHost"] . multiPlayerObj[A_Index]["LocalPort"] . multiPlayerObj[A_Index]["RemoteHost"] . multiPlayerObj[A_Index]["RemotePort"] . sysStaticParams . romParams . fullscreen . hlsl . glsl . cheatEnabled . volume . inipath . verticalRotationMode . videomode . artworkCrop . useBezels . useOverlays . useBackdrops . useCpanels . useMarquees . autosave . bootscript . bilinearEnabled . " -skip_gameinfo", emuPath, winstate, Screen%A_Index%PID)
WinWait("ahk_pid " . Screen%A_Index%PID)
}
ignoreWindows := "MAMEOutput" ; ignore the mame debug window
Loop, %networkPlayers%
{
WinGet, Screen%A_Index%ID, ID, % "ahk_pid " . Screen%A_Index%PID,, %ignoreWindows%
WinSet, Style, -0xC00000, % "ahk_id " . Screen%A_Index%ID,, %ignoreWindows%
ToggleMenu(Screen%A_Index%ID)
WinSet, Style, -0xC40000, % "ahk_id " . Screen%A_Index%ID,, %ignoreWindows%
MoveWindow("ahk_id " . Screen%A_Index%ID, screenPos[A_Index].X, screenPos[A_Index].Y, screenPos[A_Index].W, screenPos[A_Index].H,,ignoreWindows)
Sleep, 50
}
}
}
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")
;Close the debugger window if exists
If (closeDebugWindow = "true") {
WinWait("ahk_class MAMEDebugWindow",,2)
WinClose("ahk_class MAMEDebugWindow")
}
BezelDraw()
HideEmuEnd()
If (networkPlayers = 1 || !linkEnabledGame) {
WinShow, ahk_class MAME ; Show the emulator
} Else {
Loop %networkPlayers%
WinShow, % "ahk_id " . Screen%a_index%ID ; Show the emulator
WinActivate, ahk_id %Screen1ID% ; activate first player window so that first player can use keyboard instead of last player
}
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
}
GenerateSoftResetScript(){ ; Generates a lua script to send a soft reset to MAME
Global emuPath
ScriptFileName := emuPath . "\soft_reset.lua"
FileDelete, %ScriptFileName%
FileAppend,
(
local function reset_machine()
if resetcounter == nil then
manager:machine():soft_reset();
resetcounter = 1;
end
end
if resetcounter == nil then
emu.wait(1);
reset_machine();
end
), %ScriptFileName%
Return, ScriptFileName
}
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()
If (networkPlayers > 1) {
Loop % networkPlayers
{ WinClose("ahk_id " . Screen%A_Index%ID)
WinWaitClose("ahk_id " . Screen%A_Index%ID)
}
} Else
WinClose("ahk_class MAME")
Return
Comments