Auteur : micaelo14 le 28 avril 2016

L’émulateur “Universal Emulator” en V1 est nécessaire.

Utiliser ce module :

MEmu = Universal Emulator
MEmuV =
MURL =
MAuthor = craiganderson
MVersion = 1.0
MCRC =
iCRC =
MID =
MSystem = "Alf"

;----------------------------------------------------------------------------
;----------------------------------------------------------------------------

StartModule()
BezelGUI()
FadeInStart()

7z(romPath, romName, romExtension, 7zExtractPath)

settingsFile := modulePath . "\" . moduleName . ".ini"
configFile := emuPath . "\EMU.ini"
configIni := LoadProperties(configFile) ; load the config into memory
fullromnamepath := romPath . "\" . romName romExtension
WriteProperty(configIni,"Alf.ext.path", fullromnamepath)
WriteProperty(configIni,"main.selected", 2)
SaveProperties(configFile,configIni) ; save changes to Preferences.cfg

SetTitleMatchMode, RegEx
SetTitleMatchMode, Fast

Fullscreen := IniReadCheck(settingsFile, "Settings", "Fullscreen","true",,1)
disableHideTitleBar := true
disableHideToggleMenu := true
disableHideBorder := true
BezelStart("")

Run(executable, emuPath)

WinWait("New configuration ahk_class #32770")
WinWaitActive("New configuration ahk_class #32770")

; click send after alf selected by moduleName
Sleep, 100
ControlSend, Button1, {Enter}, New configuration ahk_class #32770

WinWait("ahk_class Afx:400000:b:10003:6")
WinWaitActive("ahk_class Afx:400000:b:10003:6")

; Sleep, 2000
; WinMenuSelectItem, A, , View, Size 2:1

BezelDraw()
FadeInExit()
Process("WaitClose", executable)
7zCleanUp()
BezelExit()
FadeOutExit()
ExitModule()

CloseProcess:
FadeOutStart()
Process, Close, EMU.exe
WinShow, ahk_class Shell_TrayWnd
Return

Paramétrer RL ainsi :

Mettre le Fade In en false

Lien du sujet : http://forum.hfsplay.fr/tutos-pour-rocketlauncher-f26/alf-game-t10264.html