Advertisement
djvj

snesgt

May 13th, 2016
336
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.84 KB | None | 0 0
  1. MEmu = SNESGT
  2. MEmuV = v0.230 beta 7
  3. MURL = http://gigo.retrogames.com/|http://gigo.retrogames.com/bbs/c-board.cgi?cmd=one;no=2205
  4. MAuthor = djvj
  5. MVersion = 1.0
  6. MCRC = F524CAA1
  7. iCRC = 317C6C8
  8. mId = 635986877402729496
  9. MSystem = "Super Nintendo Entertainment System"
  10. ;----------------------------------------------------------------------------
  11. ; Notes:
  12. ; You can find the beta 7 edition here: http://gigo.retrogames.com/bbs/c-board.cgi?cmd=one;no=2205
  13. ; Pause will lock up the emu. It will be disabled regardless of user selection
  14. ;----------------------------------------------------------------------------
  15. StartModule()
  16. BezelGUI()
  17. FadeInStart()
  18.  
  19. ; pauseEnabled := "false" ; Pause locks up the emu, forcing it off
  20.  
  21. primaryExe := new Process(emuPath . "\" . executable) ; instantiate emulator executable object
  22. ; emuPrimaryWindow := new Window(new WindowTitle("SNESGT","ATL:00501720")) ; instantiate primary emulator window object
  23. emuPrimaryWindow := new Window(new WindowTitle("SNESGT","ATL:004ED808")) ; instantiate primary emulator window object
  24.  
  25. Fullscreen := moduleIni.Read("Settings", "Fullscreen","true","",1)
  26.  
  27. hideEmuObj := Object(emuPrimaryWindow,1)
  28. 7z(romPath, romName, romExtension, sevenZExtractPath)
  29.  
  30. BezelStart()
  31. HideAppStart(hideEmuObj,hideEmu)
  32.  
  33. primaryExe.Run(" """ . romPath . "\" . romName . romExtension . """")
  34.  
  35. emuPrimaryWindow.Wait()
  36. emuPrimaryWindow.WaitActive()
  37.  
  38. If (fullscreen = "true")
  39. emuPrimaryWindow.MenuSelectItem("Options","Display","Switch Screen Mode")
  40.  
  41. BezelDraw()
  42. HideAppEnd(hideEmuObj,hideEmu)
  43. FadeInExit()
  44. primaryExe.Process("WaitClose")
  45. 7zCleanUp()
  46. BezelExit()
  47. FadeOutExit()
  48. ExitModule()
  49.  
  50.  
  51. HaltEmu:
  52. RestoreEmu:
  53. If (fullscreen = "true")
  54. emuPrimaryWindow.MenuSelectItem("Options","Display","Switch Screen Mode")
  55. Return
  56.  
  57. CloseProcess:
  58. FadeOutStart()
  59. emuPrimaryWindow.Close()
  60. Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement