Ceci est une ancienne révision du document !
Auteur : micaelo14 le 28 avril 2016
Utiliser l'émulateur “DcAlice” en version v2014.01.23, laissez l'émulateur en français et cochez la case “alice90+disk”.
Utiliser ce module :
Emu = DCAlice MEmuV = v2014.01.23 MURL = http://alice32.free.fr/ MAuthor = brolly MVersion = 2.0.2 MCRC = AEB19034 iCRC = 96B57889 mId = 635535810894136267 MSystem = "Matra & Hachette Alice" ;------------------------------------------------------------------------ ; Notes: ; The emu will be in french until you click Options -> Parametres -> Langue -> Anglais, then hit OK. ; Roms must be unzipped ;------------------------------------------------------------------------ StartModule() BezelGUI() FadeInStart() dialogOpen := i18n("dialog.open") ; Looking up local translation primaryExe := new Emulator(emuPath . "\" . executable) ; instantiate emulator executable object emuPrimaryWindow := new Window(new WindowTitle("","DCAlice")) ; instantiate primary emulator window object emuOpenWindow := new Window(new WindowTitle(dialogOpen,"#32770")) Fullscreen := moduleIni.Read("settings", "Fullscreen","true","",1) RestoreTaskbar := moduleIni.Read("settings", "RestoreTaskbar","true","",1) Model := moduleIni.Read(romName . "|Settings", "Model", "alice32","",1) Command := moduleIni.Read(romName, "Command", "CLOAD+RUN","",1) DefaultAliceModelIni := emuPath . "\dcalice.ini" AliceModelIni := new File(emuPath . "\dcalice_" . Model . ".ini") If AliceModelIni.Exist() AliceModelIni.Copy(DefaultAliceModelIni,1) Else RLLog.Info("Module - Couldn't find file : " . AliceModelIni . " using dcalice.ini instead") BezelStart() hideEmuObj := Object(emuOpenWindow,0,emuPrimaryWindow,1) 7z(romPath, romName, romExtension, sevenZExtractPath) HideAppStart(hideEmuObj,hideEmu) primaryExe.Run() emuPrimaryWindow.Wait() emuPrimaryWindow.WaitActive() TimerUtils.Sleep(100) emuPrimaryWindow.PostMessage("0x111","9001") ; Opens Load Tape window emuOpenWindow.OpenROM(romPath . "\" . romName . romExtension) emuPrimaryWindow.WaitActive() TimerUtils.Sleep(500) ; increase If CLOAD is not appearing in the emu window or some just some letters If (Model = "mc10") StartCommand := If Command = "CLOAD+RUN" ? "cload{Enter}{Wait:1500}run{Enter}" : "cloadm{Enter}{Wait:1500}exec{Enter}" Else StartCommand := If Command = "CLOAD+RUN" ? "cload{Enter}{Wait:1500}run{Enter}" : "cload{vkC0sc027}{Enter}{Wait:1500}exec{Enter}" KeyUtils.SetKeyDelay(50) KeyUtils.SendCommand(StartCommand) ; This will type CLOAD in the screen (french systems are AZERTY so q=a) If (Fullscreen = "true") KeyUtils.Send("{PGUP}") BezelDraw() HideAppEnd(hideEmuObj,hideEmu) FadeInExit() primaryExe.Process("WaitClose") 7zCleanUp() BezelExit() FadeOutExit() If (RestoreTaskbar = "true") MiscUtils.TaskBar("on") ExitModule() HaltEmu: KeyUtils.Send("{Alt down}{Alt up}") Return RestoreEmu: emuPrimaryWindow.Restore() emuPrimaryWindow.Activate() If (Fullscreen = "true") KeyUtils.Send("{PGUP}") ; PgDown gets back to windowed mode Return CloseProcess: FadeOutStart() KeyUtils.Send("{Alt down}{Alt up}") emuPrimaryWindow.Close() Return
Paramétrer RL ainsi :
Lien vers le sujet : http://forum.hfsplay.fr/tutos-pour-rocketlauncher-f26/alice-besoin-aide-t10265.html