Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- VBApath = %emuPath%\VBA
- SettingsFile = %VBApath%\settings.ini
- iniread, GameN, %SettingsFile%, %romName%, Game
- iniread, ModeN, %SettingsFile%, %romName%, Mode
- iniread, LoadN, %SettingsFile%, %romName%, Load
- If modeN=GGGG
- {
- GBAconf1 = %VBApath%\vba1\VisualBoyAdvance-M.exe
- GBAconf2 = %VBApath%\%GameN%
- DolphinConf = /U "%VBApath%\DolphinConfigs\GGGG"
- Gui -Caption
- Gui, Add, Picture, x0 y0 w1280 h1024 , %VBApath%\GGGG.png
- Gui, Font, S20 CDefault Bold, Impact
- Gui, Add, Button, G1solo x521 y45 w250 h80 , Normal
- Gui, Add, Button, g1GBA x181 y274 w250 h80, 1 GBA
- Gui, Add, Button, g2GBA x849 y274 w250 h80, 2 GBA
- Gui, Add, Button, g3GBA x181 y679 w250 h80 , 3 GBA
- Gui, Add, Button, g4GBA x849 y679 w250 h80 , 4 GBA
- Gui, Show, x0 y0 h1024 w1280
- return
- }Else If modeN=MMGG
- {
- GBAconf2 = %VBApath%\%GameN%
- DolphinConf = /U "%VBApath%\DolphinConfigs\MMGG"
- Gui -Caption
- Gui, Add, Picture, x0 y0 w1280 h1024 , %VBApath%\MMGG.png
- Gui, Font, S20 CDefault Bold, Impact
- Gui, Add, Button, G1solo x515 y92 w250 h80, Normal
- Gui, Add, Button, g2M2G x515 y774 w250 h80, 2 Manettes 2 GBA
- Gui, Show, x0 y0 h1024 w1280
- return
- }Else If modeN=MMMG
- {
- GBAconf2 = %VBApath%\%GameN%
- DolphinConf = /U "%VBApath%\DolphinConfigs\MMMG"
- Gui -Caption
- Gui, Add, Picture, x0 y0 w1280 h1024 , %VBApath%\MMMG.png
- Gui, Font, S20 CDefault Bold, Impact
- Gui, Add, Button, G1solo x515 y92 w250 h80, Normal
- Gui, Add, Button, g3M1G x515 y774 w250 h80, 3 Manettes 1 GBA
- Gui, Show, x0 y0 h1024 w1280
- return
- }Else If modeN=PAC
- {
- GBAconf1 = %VBApath%\vba4\VisualBoyAdvance-M.exe
- GBAconf2 = %VBApath%\%GameN%
- DolphinConf = /U "%VBApath%\DolphinConfigs\MMMG"
- Goto 1GBA
- return
- }Else If modeN=MGGG
- {
- GBAconf1 = %VBApath%\vba2\VisualBoyAdvance-M.exe
- GBAconf2 = %VBApath%\%GameN%
- DolphinConf = /U "%VBApath%\DolphinConfigs\MGGG"
- Gui -Caption
- Gui, Add, Picture, x0 y0 w1280 h1024 , %VBApath%\MGGG.png
- Gui, Font, S20 CDefault Bold, Impact
- Gui, Add, Button, G1solo x515 y92 w250 h80, Normal
- Gui, Add, Button, g1GBA x515 y774 w250 h80, 1 Manette + GBA
- Gui, Show, x0 y0 h1024 w1280
- return
- }Else
- Gui Destroy
- FadeInStart()
- Run, %executable% "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- FadeOutExit()
- Gui Destroy
- Goto SoloClose
- 1solo:
- Gui Destroy
- FadeInStart()
- Run, %executable% "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- FadeOutExit()
- Gui Destroy
- Goto SoloClose
- 1GBA:
- Gui Destroy
- FadeInStart()
- Run, %executable% %DolphinConf% /e "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- WinSet, Style, -0xC40000,a
- WinMove, Dolphin, , 99, 0, 1080, 810
- FadeOutExit()
- Gui Destroy
- Gui -Caption
- GUI, Color, 000000
- Gui, Show, x0 y0 h1024 w1280
- Run, %GBAconf1% %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 480, 790, 320, 235
- sendinput %LoadN%
- Goto SoloClose
- 2GBA:
- Gui Destroy
- FadeInStart()
- Run, %executable% %DolphinConf% /e "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- WinSet, Style, -0xC40000,a
- WinMove, Dolphin, , 99, 0, 1080, 810
- FadeOutExit()
- Gui Destroy
- Gui -Caption
- GUI, Color, 000000
- Gui, Show, x0 y0 h1024 w1280
- Run, %GBAconf1% %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 99, 790, 320, 235
- sendinput %LoadN%
- Run, %VBApath%\vba2\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 858, 790, 320, 235
- sendinput %LoadN%
- Goto SoloClose
- 3GBA:
- Gui Destroy
- FadeInStart()
- Run, %executable% %DolphinConf% /e "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- WinSet, Style, -0xC40000,a
- WinMove, Dolphin, , 99, 0, 1080, 810
- FadeOutExit()
- Gui Destroy
- Gui -Caption
- GUI, Color, 000000
- Gui, Show, x0 y0 h1024 w1280
- Run, %GBAconf1% %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 99, 790, 320, 235
- sendinput %LoadN%
- Run, %VBApath%\vba2\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 480, 790, 320, 235
- sendinput %LoadN%
- Run, %VBApath%\vba3\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 858, 790, 320, 235
- sendinput %LoadN%
- Goto SoloClose
- 4GBA:
- Gui Destroy
- FadeInStart()
- Run, %executable% %DolphinConf% /e "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- WinSet, Style, -0xC40000,a
- WinMove, Dolphin, , 99, 0, 1080, 810
- Run, %GBAconf1% %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 0, 790, 320, 235
- sendinput %LoadN%
- Run, %VBApath%\vba2\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 320, 790, 320, 235
- sendinput %LoadN%
- Run, %VBApath%\vba3\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 640, 790, 320, 235
- sendinput %LoadN%
- Run, %VBApath%\vba4\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 960, 790, 320, 235
- sendinput %LoadN%
- FadeOutExit()
- Gui Destroy
- Gui -Caption
- GUI, Color, 000000
- Gui, Show, x0 y0 h810 w1280
- Goto SoloClose
- 2M2G:
- Gui Destroy
- FadeInStart()
- Run, %executable% %DolphinConf% /e "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- WinSet, Style, -0xC40000,a
- WinMove, Dolphin, , 99, 0, 1080, 810
- FadeOutExit()
- Gui Destroy
- Gui -Caption
- GUI, Color, 000000
- Gui, Show, x0 y0 h1024 w1280
- Run, %VBApath%\vba3\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 99, 790, 320, 235
- Run, %VBApath%\vba4\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 858, 790, 320, 235
- Goto SoloClose
- 3M1G:
- Gui Destroy
- FadeInStart()
- Run, %executable% %DolphinConf% /e "%romPath%%romName%%romExtension%", %emuPath%
- sleep, 4000
- WinSet, Style, -0xC40000,a
- WinMove, Dolphin, , 99, 0, 1080, 810
- FadeOutExit()
- Gui Destroy
- Gui -Caption
- GUI, Color, 000000
- Gui, Show, x0 y0 h1024 w1280
- Run, %VBApath%\vba4\VisualBoyAdvance-M.exe %GBAconf2%
- sleep, 200
- WinSet, Style, -0xC40000,a
- WinMove, VisualBoyAdvance-M, , 480, 790, 320, 235
- Goto SoloClose
- SoloClose:
- WinActivate, Dolphin
- Process, WaitClose, %executable%
- ExitApp
- CloseProcess:
- FadeOutStart()
- Process, Close, VisualBoyAdvance-M.exe
- sleep, 100
- Process, Close, VisualBoyAdvance-M.exe
- sleep, 100
- Process, Close, VisualBoyAdvance-M.exe
- sleep, 100
- Process, Close, VisualBoyAdvance-M.exe
- WinClose, FPS ahk_class wxWindowNR ; this needs to close the window the game is running in otherwise dolphin crashes on exit
- sleep, 200
- Process, Close, Dolphin.exe
- FadeOutExit()
- Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement