djvj stella

;----------------------------------------------------------------------------
; Atari 2600
; Stella v3.4.1
; by djvj
; 1.1
;
; Notes:
; To set fullscreen, hit Tab then goto Video Settings and set Fullscreen to On.
;----------------------------------------------------------------------------

LoadingScreen = true
ExitScreen = true
loadingPic = Splash.jpg
loadingPicW = 800
loadingPicH = 600
loadingColor = Black
DiskSwapKey = F9					; swaps disk


; This gets rid of the emu window that pops up on launch
If ( LoadingScreen = "true" ) {
		Gui +LastFound
		WinGet GUI_ID, ID
		Gui +AlwaysOnTop -Caption +ToolWindow
		Gui, Color, %loadingColor%
		loadXPos := ( A_ScreenWidth / 2 ) - ( loadingPicW / 2 )
		loadYPos := ( A_ScreenHeight / 2 ) - ( loadingPicH / 2 )
		Gui, Add, Picture,x%loadXPos% y%loadYPos%, %A_ScriptDir%\Modules\%systemName%\%loadingPic%
		Gui Show, x0 y0 h%A_ScreenHeight% w%A_ScreenWidth% Hide
		DllCall("AnimateWindow","UInt",GUI_ID,"Int",500,"UInt","0xa0000") ; animate in loading GUI
	}

Hotkey, %DiskSwapKey%, DiskSwap

Run, %executable% "%romPath%%romName%%romExtension%", %emuPath%

WinWait, ahk_class SDL_app
WinWaitActive, ahk_class SDL_app
Sleep, 700 ; Necessary otherwise the HyperSpin window flashes back into view

DllCall("AnimateWindow",UInt,GUI_ID,UInt,750,UInt,0x90000) ; animate out loading GUI
Gui Destroy

Process, WaitClose, %executable%

DllCall("AnimateWindow",UInt,GUI_ID2,UInt,750,UInt,0x90000) ; animate out exit GUI

WinActivate, Hyperspin

ExitApp


DiskSwap:
	Send !r
Return

CloseProcess:
	If ( exitScreen = "true" ) {
			Gui +LastFound
			WinGet GUI_ID2, ID
			Gui +AlwaysOnTop -Caption +ToolWindow
			Gui Color, Black
			Gui Show, x0 y0 h%A_ScreenHeight% w%A_ScreenWidth% Hide
			DllCall("AnimateWindow","UInt",GUI_ID2,"Int",500,"UInt","0xa0000") ; animate in exit GUI
		}
	WinClose, ahk_class SDL_app
Return