GalaxieGames's Content - Page 10

Under messui, go to the Options, Directories... tab, under Show directories; ROMs, add by clicking on Insert the folder containing your games and bios, the detection is carried out Put the studio2.zip and the studio2.xml from the ROMs subfolder studio2 in the hash folder Once in game activate scroll lock (Fn and K) then press the TAB key, go to Input (this machine) and reassign the keys necessary for the smooth running of the game

:

MEmu := "MESS"
MEmuV := "0.195"
MURL := ["http://www.mess.org/"]
MAuthor := ["djvj","faahrev","brolly","Tomkun"]
MVersion := ""
MCRC := ""
iCRC := ""
MID := ""
MSystem := ["RCA Studio II"]
RCA Studio II - studio2
StartModule()
BezelGUI()
FadeInStart()
; This object controls how the module reacts to different systems. MESS can play a lot of systems, but needs to know what system you want to run, so this module has to adapt.
mTypeVar=
RCA Studio II|studio2
)
mType := Object()
Loop, Parse, mTypeVar, `n, `r
{
   obj := {}
   Loop, Parse, A_LoopField, |
       If A_Index = 1
           obj.System := A_LoopField
       Else   ; 2
           obj.MessID := A_LoopField
   mType.Insert(obj["System"], obj)
}
Log("Module - Finished building the " . MEmu . " object",4)
; For easier use throughout the module
messSystem := mType[systemName].System
messID := mType[systemName].MessID
If !messSystem
   ScriptError("Your systemName is: " . systemName . "`nIt is not one of the known supported systems for this " . MEmu . " module.")
settingsFile := modulePath . "\" . moduleName . ".ini"
Fullscreen := IniReadCheck(settingsFile, "Settings", "Fullscreen","true",,1)       ; Set fullscreen mode
messBiosPath := IniReadCheck(settingsFile, "Settings", "MESS_BIOS_Path", emuPath . "\roms",,1)
Videomode := IniReadCheck(settingsFile, "Settings", "Videomode","d3d",,1)   ; Choices are gdi,ddraw,d3d. If left blank, mess uses d3d by default
hlsl := IniReadCheck(settingsFile, "Settings|" . messSystem . "|" . romName, "HLSL","false",,1)
glsl := IniReadCheck(settingsFile, "Settings|" . messSystem . "|" . romName, "GLSL","false",,1)
bezelMode := IniReadCheck(settingsFile, "Settings", "BezelMode","normal",,1)   ; "layout" or "normal"
UseSoftwareList := IniReadCheck(settingsFile, messSystem, "UseSoftwareList","false",,1)
sysStaticParams := IniReadCheck(settingsFile, messSystem, "StaticParameters", A_Space,,1)
sysParams := IniReadCheck(settingsFile, messSystem, "Parameters", A_Space,,1)
romParams := IniReadCheck(settingsFile, romName, "Parameters", sysParams,,1)
Artwork_Crop := IniReadCheck(settingsFile, messSystem . "|" . romName, "Artwork_Crop", "true",,1)
Use_Bezels := IniReadCheck(settingsFile, messSystem . "|" . romName, "Use_Bezels", "true",,1)
Use_Overlays := IniReadCheck(settingsFile, messSystem . "|" . romName, "Use_Overlays", "true",,1)
Use_Backdrops := IniReadCheck(settingsFile, messSystem . "|" . romName, "Use_Backdrops", "true",,1)
messBiosPath := GetFullName(messBiosPath)
;Read settings from system name ini file
sysSettingsFile := modulePath . "\" . messSystem . ".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)
}
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"
; Get MESS version from executable, this is needed since some CLI switches are not available in older MESS 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, MESSVersion, ProductVersion, StrLen(ProductVersion) - 2
Log("Detected MESS Product Version from '" . EmuPath . "\" . executable . "' is " . MESSVersion)
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
If bezelEnabled = true
BezelStart()
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 (MESSVersion > 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 (MESSVersion > 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.
If romExtension = .txt   ; This can be applied to all systems
   param1:=
param1 := " -cdrm """ . romPath . "\" . romName . romExtension . """"
   }Else If messID = studio2 ; RCA Studio II
   {   If romExtension != .asm
           param1 := " -cart1 """ . romPath . "\" . romName . romExtension . """"
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,messRomPaths,romPathFromIni,|,`"`;`",1   ; replace all instances of | to ; in the Rom_Path from RL's Emulators.ini so mess knows where to find your roms
messRomPaths := " -rompath """ . messRomPaths . (If messBiosPath ? ";" . messBiosPath : "") . """"   ; if a bios path was supplied, add it into the rom paths sent to mess
If InStr(romParams,"-rompath")
   ScriptError("""-rompath"" is defined as a parameter for " . romName . ". The MESS 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 " . messSystem . ". The MESS module fills this automatically so please remove this from Params in the module's settings.")
; use a custom cfg file if it exists and append it to param1
IfExist, % emuPath . "\cfg\" . messID . "\" . dbName
   param1 := " -cfg_directory " . """" . emuPath . "\cfg\" . messID . "\" . dbName . """" . param1
HideEmuStart()
errLvl := Run(executable . A_Space . messID . param1 . param2 . param3 . param4 . param5 . param6 . messRomPaths . sysStaticParams . romParams . fullscreen . hlsl . glsl . videomode . artworkCrop . useBezels . useOverlays . useBackdrops . " -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 = MESS Error
   Log("MESS 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 MESS, needed for ICBM to boot
}
HideEmuEnd()
FadeInExit()
Process("WaitClose", executable)
7zCleanUp()
BezelExit()
FadeOutExit()
ExitModule()

; This will simply create a new blank ini if one does not exist
CheckFileMESS(file){
   IfNotExist, %file%
       FileAppend,, %file%
   Return file
}
ListXMLInfo(rom){ ; returns MAME/MESS info about parent rom, orientation angle, resolution
   Global emuFullPath, emuPath
   ListXMLtable := []
   Log("Module - RunWait`, " . comspec . " /c " . """" . emuFullPath . """" . " -listxml " . rom . " > tempBezel.txt`, " . emuPath . "`, Hide")
   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")
   ListXMLtable[1] := parent
   ListXMLtable[2] := angle
   ListXMLtable[3] := height
   ListXMLtable[4] := width
   If (ListXMLtable[3] > ListXMLtable[4])
       ListXMLtable[2] := true
   FileDelete, %emuPath%\tempBezel.txt
   Return ListXMLtable
}
BezelLabel:
   WinSet, Transparent, 0, ahk_class ConsoleWindowClass
Return
CloseProcess:
   FadeOutStart()
   WinClose("ahk_class MAME")
Return

Letters.zip

Forums

Events

Downloads

Store

Development Tracking

HyperCL

Files posted by GalaxieGames