;----------------------------------------------------------------------------
; Daphne
; Daphne v1.0.12
; by djvj
; 1.6
;
; Notes:
; Executable should be Daphne.exe NOT Daphneloader.exe
; You need my Settings.ini from my user dir on the FTP @ /Upload Here/djvj/Daphne/
;----------------------------------------------------------------------------


FadeInStart()

settingsFile := CheckFile(A_Scriptdir . "\Modules\" . systemName . "\Settings.ini")

IniRead, globalParams, %settingsFile%, settings, globalParams
IniRead, min_seek_delay, %settingsFile%, %romName%, min_seek_delay, %A_Space%
IniRead, seek_frames_per_ms, %settingsFile%, %romName%, seek_frames_per_ms, %A_Space%
IniRead, homedir, %settingsFile%, %romName%, homedir, %A_Space%
IniRead, bank0, %settingsFile%, %romName%, bank0, %A_Space%
IniRead, bank1, %settingsFile%, %romName%, bank1, %A_Space%
IniRead, bank2, %settingsFile%, %romName%, bank2, %A_Space%
IniRead, bank3, %settingsFile%, %romName%, bank3, %A_Space%
IniRead, sound_buffer, %settingsFile%, %romName%, sound_buffer, %A_Space%
frameFile = %romName% ; storing parent romName to send as the framefile name so we don't send wrong name when using an alternate version of a game

; Emptying variables if they are not set
min_seek_delay := (min_seek_delay ? ("-min_seek_delay " . min_seek_delay) : (""))
seek_frames_per_ms := (seek_frames_per_ms ? ("-seek_frames_per_ms " . seek_frames_per_ms) : (""))
homedir := (homedir ? ("-homedir " . homedir) : (""))
bank0 := (bank0 ? ("-bank 0 " . bank0) : (""))
bank1 := (bank1 ? ("-bank 1 " . bank1) : (""))
bank2 := (bank2 ? ("-bank 2 " . bank2) : (""))
bank3 := (bank3 ? ("-bank 3 " . bank3) : (""))
sound_buffer := (sound_buffer ? ("-sound_buffer " . sound_buffer) : (""))

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

; If launched game is an alternate version of a parent, this will send the parent's name to daphne.
If ( romName in ace_hd )
	romName = ace
Else If ( romName in badlands-r )
	romName = badlands
Else If ( romName in cliff-r,cliff2009 )
	romName = cliff
Else If ( romName in galaxy-r )
	romName = galaxy
Else If ( romName in lair_hd,dle21 )
	romName = lair
Else If ( romName in mach3-r )
	romName = mach3
Else If ( romName in sdq-r,sdq121901 )
	romName = sdq

; This allows us to send variables, that when empty, are not sent to the Run command
RunEmu(executable, romName, globalParams, min_seek_delay, seek_frames_per_ms, homedir, bank0, bank1, bank2, bank3, sound_buffer, "-framefile """ . romPath . frameFile . romExtension . "", emuPath) ;, "Min")

WinWait, ahk_class SDL_app
WinWaitActive, ahk_class SDL_app

FadeInExit()

Process, WaitClose, %executable%

7zCleanUp()

FadeOutExit()

WinActivate, Hyperspin

ExitApp


RunEmu(exe,rom,param1=0,param2=0,param3=0,param4=0,param5=0,param6=0,param7=0,param8=0,param9=0,framefile=0,relativepath=0, option=0) {
		Run, %exe% %rom% %param1% %param2% %param3% %param4% %param5% %param6% %param7% %param8% %param9% %framefile%, %relativepath%, %option%
	}

CloseProcess:
	FadeOutStart()
	WinClose, ahk_class SDL_app
Return