MEmu := "Modeler"
MEmuV := "v0.9.3a"
MURL := [""]
MAuthor := ["bj tgi"]
MVersion := ""
MCRC := ""
iCRC := ""
MID := ""
MSystem := ["Sega Model 1","Sega System 32","Sega System 32 Multi"]
------------------------------------------------------------------------------------------------------------------------------------------------------------------
StartModule()
BezelGui()
FadeInStart()
settingsFile := modulePath . "\" . moduleName . ".ini"
Fullscreen := IniReadCheck(settingsFile, "Settings", "Fullscreen","true",,1)
ControlDelay := IniReadCheck(settingsFile, "Settings", "ControlDelay","40",,1) ; raise this if the module is getting stuck using SelectGameMode 1
KeyDelay := IniReadCheck(settingsFile, "Settings", "KeyDelay","-1",,1) ; raise this if the module is getting stuck using SelectGameMode 2
BezelStart()
hideEmuObj := Object("ROM",0,"download",0,"Modeler 0.9.3a ahk_class #32770",1) ; Hide_Emu will hide these windows. 0 = will never unhide, 1 = will unhide later
7z(romPath, romName, romExtension, 7zExtractPath)
SetControlDelay, %ControlDelay%
SetKeyDelay(KeyDelay)
SetWinDelay, 10
Run(executable,emuPath)
WinWait("Modeler ahk_class #32770")
WinWaitActive("Modeler ahk_class #32770")
If (romExtension = ".zip") {
WinMenuSelectItem, Modeler 0.9.3a ahk_class #32770,, File, Open ROM
HideEmuStart() ; This fully ensures windows are completely hidden even faster than winwait
WindowText := "Open ROM File"
WinWaitActive("Open ROM File ahk_class #32770")
}
OpenROM("Open ahk_class #32770", romPath . "\" . romName . romExtension)
WinWaitActive("Modeler ahk_class Modeler 0.9.3a")
HideEmuEnd()
;Some roms might display download screen
IfWinActive, download
{ ControlClick, Cancel, download
Goto Error
}
If Fullscreen = true
Send, {Esc}
BezelDraw()
FadeInExit()
Process("WaitClose", executable)
7zCleanUp()
BezelExit()
FadeOutExit()
ExitModule()
Error:
Log("There was an error. Try running outside RocketLauncher to see the error.",3)
Goto CloseProcess
Return
HaltEmu:
Send, {Esc}
Sleep, 200
Return
RestoreEmu:
WinActivate, ahk_id %emulatorID%
Send, {Esc}
Return
CloseProcess:
FadeOutStart()
ExitApp
WinClose("Modeler 0.9.3a ahk_class #32770")
Return
| 63.90 Mo | https://1fichier.com/?kspmkgh8dkqht65oq93i |
