WinUAELoader.exe works with fs-uae too ?
BTW if you are using fs-uae, have you a command line to launch game ? A command line with FS-UAE-launcher.exe ?
From my memory no, so if you wana use the "hard way". Some explanation about autoit
- you will find some script in F:\emulateur\mGalaxy\Data\Scripts
- You can edit them with notepad, but better to use the application with it.
- When you have instaled mGalaxy it have also installed autoit, so you don't need more.
- To make *.exe with the script > tools/ compile.
On my side I m using the exe file as executable, but my script have changed since the last one.
Here my last one
Code: Select all
#include <array.au3>
#include <File.au3>
local $fichier = $CmdLineRaw
;clen name
$fichier = StringTrimRight( $fichier, 1 )
$fichier = StringTrimleft( $fichier, 1 )
local $tmp = @ScriptDir & '\WHD_loader\tmp\'
local $app
local $config = @ScriptDir & '\WHD_loader\WHDLoader.uae'
;delete previous archives
DirRemove(@scriptdir & "\WHD_loader\tmp\",1)
DirCreate(@scriptdir & "\WHD_loader\tmp\")
;unzip archive
_Zip_UnzipAll($fichier,$tmp)
;we get the name of the game
Local $search = FileFindFirstFile($tmp & '*.info')
If $search = -1 Then exit 0
Local $file = FileFindNextFile($search)
$file = StringTrimRight( $file, 5 )
FileClose($search)
;file modification
Local $file2 = FileOpen(@ScriptDir & '\WHD_loader\WHD\S\user-startup',2)
If $file2 = -1 Then exit 0
Local $patch = IniRead(@ScriptDir & "\Data.ini", "PATCH", $file, "")
Local $save = IniRead(@ScriptDir & "\Data.ini", "SAVE", $file, "")
;Add save if exist
if $save <> "" Then
local $search2 = FileFindFirstFile(@scriptdir & '\SAVE\' & $file & '\' & $save & '\' & '\*.*' )
If $search2 <> -1 then
local $fileSave = FileFindNextFile($search2)
while $fileSave <> ''
FileCopy (@scriptdir & '\SAVE\' & $file & '\' & $save & '\' & $fileSave, $tmp & $file & '\' & $save & '\' & $fileSave, 1 )
$fileSave = FileFindNextFile($search2)
wend
Endif
FileClose($search2)
$patch = 'NOWRITECACHE ' & $patch
Endif
FileWriteLine($file2, 'echo "";')
FileWriteLine($file2, 'echo "WHD loader";')
FileWriteLine($file2, 'echo "Running: ' & $file & '.Slave";')
FileWriteLine($file2, 'echo "Special command : ' & $patch & '";')
FileWriteLine($file2, 'echo "";')
FileWriteLine($file2, 'echo "Remember to use the quit key instead of closing WinUAE!";')
FileWriteLine($file2, 'echo "";')
FileWriteLine($file2, 'cd dh1:' & $file & ';')
FileWriteLine($file2, 'whdload ' & $file & '.Slave PRELOAD ' & $patch & ';')
FileClose($file2)
#CS
;for WinUAE
$app = @ScriptDir & '\..\WinUAE\WinUAE.exe'
;configuration modification
local $aLines
_FileReadToArray($config, $aLines)
for $i = 0 To $aLines[0]
If StringInStr($aLines[$i], "filesystem2=rw,DH1") Then
_FileWriteToLine($config, $i ,"filesystem2=rw,DH1:DH1:" & $tmp & ",0", 1)
EndIf
If StringInStr($aLines[$i], "uaehf1=dir,rw,DH1:") Then
_FileWriteToLine($config, $i ,"uaehf1=dir,rw,DH1:DH1:" & $tmp & ",0", 1)
EndIf
Next
Runwait('"' & $app & '" -config="' & $config )
#Ce
;#cs
;For FS-UAE
$app = @ScriptDir & '\..\fs-uae\Windows\fs-uae\fs-uae.exe'
$config = @ScriptDir & '\WHD_loader\whd.fs-uae'
Runwait('"' & $app & '" ' & $config )
;#ce
;Sauvegarde
if $save <> "" Then
local $search2 = FileFindFirstFile(@scriptdir & '\SAVE\' & $file & '\' & $save & '\' & '\*.*' )
If $search2 <> -1 then
local $fileSave = FileFindNextFile($search2)
while $fileSave <> ''
FileCopy ($tmp & $file & '\' & $save & '\' & $fileSave, @scriptdir & '\SAVE\' & $file & '\' & $save & '\' & $fileSave, 1 )
$fileSave = FileFindNextFile($search2)
wend
Endif
FileClose($search2)
Endif
exit 0
;==========================================================================
;
; Function Name: _Zip_DllChk()
; Description: Internal error handler.
; Parameter(s): none.
; Requirement(s): none.
; Return Value(s): Failure - @extended = 1
; Author(s): smashley
;
;===============================================================================
Func _Zip_DllChk()
If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
Return 0
EndFunc ;==>_Zip_DllChk
;===============================================================================
;
; Function Name: _Zip_UnzipAll()
; Description: Extract all files contained in a ZIP Archieve.
; Parameter(s): $hZipFile - Complete path to zip file that will be created (or handle if existant)
; $hDestPath - Complete path to where the files will be extracted
; $flag = 1
; - 1 no progress box
; - 0 progress box
; Requirement(s): none.
; Return Value(s): On Success - 0
; On Failure - sets @error 1~3
; @error = 1 no Zip file
; @error = 2 no dll
; @error = 3 dll isn't registered
; Author(s): torels_
; Notes: The return values will be given once the extracting process is ultimated... it takes some time with big files
;
;===============================================================================
Func _Zip_UnzipAll($hZipFile, $hDestPath, $flag = 1)
Local $DLLChk = _Zip_DllChk()
If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll
If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path
If Not FileExists($hZipFile) Then Return SetError(2, 0, 0) ;no zip file
If Not FileExists($hDestPath) Then DirCreate($hDestPath)
Local $aArray[1]
$oApp = ObjCreate("Shell.Application")
$oApp.Namespace($hDestPath).CopyHere($oApp.Namespace($hZipFile).Items)
For $item In $oApp.Namespace($hZipFile).Items
_ArrayAdd($aArray, $item)
Next
While 1
If $flag = 1 then _Hide()
If FileExists($hDestPath & "\" & $aArray[UBound($aArray) - 1]) Then
Return SetError(0, 0, 1)
ExitLoop
EndIf
Sleep(500)
WEnd
EndFunc ;==>_Zip_UnzipAll
;===============================================================================
;
; Function Name: _Hide()
; Description: Internal Function.
; Parameter(s): none
; Requirement(s): none.
; Return Value(s): none.
; Author(s): torels_
;
;===============================================================================
Func _Hide()
If ControlGetHandle("[CLASS:#32770]", "", "[CLASS:SysAnimate32; INSTANCE:1]") <> "" And WinGetState("[CLASS:#32770]") <> @SW_HIDE Then ;The Window Exists
$hWnd = WinGetHandle("[CLASS:#32770]")
WinSetState($hWnd, "", @SW_HIDE)
EndIf
EndFunc
;===============================================================================
;
; Function Name: _IsFullPath()
; Description: Internal Function.
; Parameter(s): $path - a zip path
; Requirement(s): none.
; Return Value(s): success - True.
; failure - False.
; Author(s): torels_
;
;===============================================================================
Func _IsFullPath($path)
if StringInStr($path,":\") then
Return True
Else
Return False
EndIf
Endfunc
And to use it
Code: Select all
<System guid="Commodore Amiga-Zc3nHfED" type="Computer">
<Name ss="75" em="Commodore_Amiga" tgdb="Amiga" gb="1|AMI">Commodore Amiga</Name>
<UserName>Commodore Amiga WHD</UserName>
<AppPath>F:\emulateur\Amiga\MyWHDLoader\WHDloader.exe</AppPath>
<RomPath>F:\emulateur\Amiga\Jeux WHD</RomPath>
<SnapPath>F:\emulateur\mGalaxy\snapsemul\AmigaWHD</SnapPath>
<VidPath>
</VidPath>
<CoverPath>
</CoverPath>
<LogoPath>
</LogoPath>
<ArtPath>
</ArtPath>
<Emu selected="My loader">
<Cmd hidden="false" name="FS-UAE" value="--fullscreen=1 --floppy-drive-0="%path\%file%ext"" extensions=".adf,.adz,.dms,.fdi,.gz,.hdf,.hdz,.ipf,.rdf,.rdz,.vhd,.zip" />
<Cmd hidden="false" name="WinUAE" value="-config=mGalaxy.uae -0 "%path\%file%ext"" extensions=".adf,.adz,.dms,.fdi,.gz,.hdf,.hdz,.ipf,.rdf,.rdz,.vhd,.zip" />
<Cmd hidden="true" name="RetroArch [puae_libretro.dll]" value="-f -L cores\puae_libretro.dll "%path\%file%ext"" extensions=".adf,.adz,.dms,.fdi,.gz,.hdf,.hdz,.ipf,.rdf,.rdz,.vhd,.zip" />
<Cmd hidden="false" name="My loader" value=""%path\%file%ext"" extensions=".adf,.adz,.dms,.fdi,.gz,.hdf,.hdz,.ipf,.rdf,.rdz,.vhd,.zip" />
</Emu>
<Active>True</Active>
<Script>True</Script>
<Database>True</Database>
<Screensaver>False</Screensaver>
<Theme>
</Theme>
<Prelaunch enable="False">
<Data app="" cmd="" state="0" />
</Prelaunch>
</System>
