SHARE
TWEET

Untitled

djvj May 29th, 2015 445 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. MEmu = Pinball Arcade
  2. MEmuV = v1.37.8
  3. MURL = http://www.pinballarcade.com/
  4. MAuthor = djvj
  5. MVersion = 2.0.3
  6. MCRC = 6DAE500F
  7. iCRC = 7893F2F8
  8. mId = 635589857631115764
  9. MSystem = "Pinball Arcade","Pinball"
  10. ;----------------------------------------------------------------------------
  11. ; Notes:
  12. ; Initial setup:
  13. ; Manually run Pinball Arcade. If you own all the games and they can all be found in the My Tables folder, Simply Enter the My Tables folder and browse to the first table (alphabetically) and exit Pinball Arcade.
  14. ; The module comes default with all the available tables (as of 1/14/2014) alphabetically sorted in the module setting My_Tables.
  15. ; It will parse this setting and assume you own all the games. If you do not own all the games, recreate this setting in RocketLauncherUI with all the games you own, and separate each one with a |
  16. ; The My_Tables names match the names from your FE's database.
  17. ;
  18. ; If launching as a Steam game:
  19. ; When setting this up in RocketLauncherUI under the global emulators tab, make sure to select it as a Virtual Emulator. Also no rom extensions, executable, or rom paths need to be defined.
  20. ; Set Skip Checks to "Rom and Emu" when using this module as roms do not exist.
  21. ;
  22. ; If not launching through Steam:
  23. ; Add this as any other standard emulator and define the PinballArcade.exe as your executable, but still select Virtual Emulator as you do not need rom extensions or rom paths
  24. ; Set Skip Checks to "Rom and Emu" when using this module as roms do not exist.
  25. ;
  26. ; This module requires BlockInput.exe to exist in your Module Extensions folder. It is used to prevent users from messing up the table selection routine.
  27. ; If BlockInput is not actually blocking input, it's due to not having admin credentials, which you will need to set this exe to run as admin.
  28. ; However, this also means RocketLauncher needs to be set to run as admin as well, keep this in mind.
  29. ;
  30. ; If you want bezel support set to the game be played in windowed mode
  31. ;
  32. ; How to run vertical games on a standard monitor:
  33. ; There are 3 methods supported by this module to rotate your desktop. Windows shortcuts, display.exe and irotate.exe. If one method does not work on your computer, try another.
  34. ;
  35. ; If the key sends are not working, make sure your RocketLauncher is set to run as administrator.
  36. ;
  37. ; Pinball Arcade stores some settings in your registry @ HKEY_CURRENT_USER\Software\PinballArcade\PinballArcade
  38. ;----------------------------------------------------------------------------
  39. StartModule()
  40.  
  41. settingsFile := modulePath . "\" . moduleName . ".ini"
  42. rotateMethod := IniReadCheck(settingsFile, "settings", "Rotate_Method",,,1) ; Shortcut, Display, iRotate
  43. rotateDisplay := IniReadCheck(settingsFile, "settings", "Rotate_Display", 0,,1) ; 0, 90, 180, 270
  44. moduleDebugging := IniReadCheck(settingsFile, "settings", "Module_Debugging", "false",,1)
  45.  
  46. If windowsRotate {
  47.         Res := (A_ScreenWidth>A_ScreenWidth) ? A_ScreenWidth : A_ScreenWidth
  48.         Gui 1: Color, 000000
  49.         Gui 1: -Caption +ToolWindow
  50.         Gui 1: Show, x0 y0 W%Res% H%Res%, BlackScreen   ; experimental to hide entire desktop and windows
  51.         If rotateMethod
  52.                 Rotate(rotateMethod, rotateDisplay)
  53. }
  54.  
  55. BezelGUI()
  56. FadeInStart()
  57.  
  58. fullscreen := IniReadCheck(settingsFile, "settings", "Fullscreen", "true",,1) ; 0, Shortcut, Display, iRotate
  59. pinballVersion := IniReadCheck(settingsFile, "settings", "Pinball_Version", "DX11",,1)
  60. sleepLogo := IniReadCheck(settingsFile, "Settings", "Sleep_Until_Logo",7000,,1)
  61. sleepBaseTime := IniReadCheck(settingsFile, "Settings", "Sleep_Base_Time",1,,1)
  62. lastMyTable := "Addams Family, The (Bally)"     ; Mytables always starts on The Addams Family
  63. ; myTables := IniReadCheck(settingsFile, "Settings", "My_Tables","Attack From Mars|Big Shot|Black Hole|Black Knight|Bride of Pin-Bot|Cactus Canyon|Centaur|Central Park|Champion Pub|Cirqus Voltaire|Class of 1812|Creature from the Black Lagoon|Cue Ball Wizard|Dr. Dude|El Dorado - City of Gold|Elvira|Firepower|Fish Tales|Flight 2000|Funhouse|Genie|Goin' Nuts|Gorgar|Harley-Davidson|Haunted House|Medieval Madness|Monster Bash|No Good Gofers|Pin-Bot|Ripley's Believe It or Not|Scared Stiff|Space Shuttle|Star Trek|Tales of the Arabian Nights|Taxi|Tee'd Off|Terminator 2|Theatre of Magic|Twilight Zone|Victory|Whirlwind|White Water",,1) ; | separated list of the tables I own
  64. ; myTables := IniReadCheck(settingsFile, "Settings", "My_Tables","Attack from Mars (Bally)|Big Shot (Gottlieb)|Black Hole (Gottlieb)|Black Knight 2000 (Williams)|Black Knight (Williams)|Black Rose (Bally)|Bram Stoker's Dracula (Williams)|Machine - Bride of Pin Bot, The (Williams)|Cactus Canyon (Bally)|Centaur (Bally)|Central Park (Gottlieb)|Champion Pub, The (Bally)|Cirqus Voltaire (Bally)|Class of 1812 (Gottlieb)|Creature from the Black Lagoon (Bally)|Cue Ball Wizard (Gottlieb)|Diner (Williams)|Dr. Dude & His Excellent Ray (Bally)|El Dorado - City Of Gold (Gottlieb)|Elvira and the Party Monsters (Bally)|Firepower (Williams)|Fish Tales (Williams)|Flight 2000 (Stern)|FunHouse (Williams)|Genie (Gottlieb)|Goin' Nuts (Gottlieb)|Gorgar (Williams)|Harley-Davidson, 3rd Edition (Stern)|Haunted House (Gottlieb)|High Roller Casino (Stern)|High Speed (Williams)|Junk Yard (Williams)|Lights... Camera... Action! (Gottlieb)|Medieval Madness (Williams)|Monster Bash (Williams)|No Good Gofers (Williams)|Phantom of the Opera, The (Stern)|Pin Bot (Williams)|Ripley's Believe It or Not! (Stern)|Scared Stiff (Bally)|Space Shuttle (Williams)|Star Trek - The Next Generation (Williams)|Tales of the Arabian Nights (Williams)|Taxi (Williams)|Tee'd Off (Gottlieb)|Terminator 2 - Judgment Day (Williams)|Theatre of Magic (Bally)|Twilight Zone (Bally)|Victory (Gottlieb)|Whirlwind (Williams)|White Water (Williams)|WHO Dunnit (Bally)",,1)     ; | v1.31.8 separated list of the tables user owns
  65. myTables := IniReadCheck(settingsFile, "Settings", "My_Tables","Addams Family, The (Bally)|Attack from Mars (Bally)|Big Shot (Gottlieb)|Black Hole (Gottlieb)|Black Knight (Williams)|Black Knight 2000 (Williams)|Black Rose (Bally)|Bram Stoker's Dracula (Williams)|Bride of Pin-Bot (Williams)|Cactus Canyon (Bally)|Centaur (Bally)|Central Park (Gottlieb)|Champion Pub, The (Bally)|Cirqus Voltaire (Bally)|Class of 1812 (Gottlieb)|Creature from the Black Lagoon (Bally)|Cue Ball Wizard (Gottlieb)|Cyclone (Williams)|Diner (Williams)|Dr. Dude & His Excellent Ray (Bally)|Earthshaker (Williams)|El Dorado - City Of Gold (Gottlieb)|Elvira and the Party Monsters (Bally)|Firepower (Williams)|Fish Tales (Williams)|Flight 2000 (Stern)|FunHouse (Williams)|Genie (Gottlieb)|Goin' Nuts (Gottlieb)|Gorgar (Williams)|Harley-Davidson, 3rd Edition (Stern)|Haunted House (Gottlieb)|High Roller Casino (Stern)|High Speed (Williams)|Jack-Bot (Williams)|Junk Yard (Williams)|Lights... Camera... Action! (Gottlieb)|Medieval Madness (Williams)|Monster Bash (Williams)|No Good Gofers (Williams)|Party Zone (Bally)|Phantom of the Opera, The (Data East)|Pin-Bot (Williams)|Ripley's Believe It or Not! (Stern)|Scared Stiff (Bally)|Space Shuttle (Williams)|Star Trek - The Next Generation (Williams)|Starship Troopers (Stern)|Tales of the Arabian Nights (Williams)|Taxi (Williams)|Tee'd Off (Gottlieb)|Terminator 2 - Judgment Day (Williams)|Theatre of Magic (Bally)|Twilight Zone (Bally)|Victory (Gottlieb)|Whirlwind (Williams)|White Water (Williams)|WHO Dunnit (Bally)",,1)    ; | v1.37.8 separated list of the tables user owns
  66.  
  67. pinballTitleClass := "Pinball Arcade ahk_class " . (If pinballVersion = "DX11" ? "GameWindowClass" : "Pinball Arcade")
  68.  
  69. BezelStart()
  70.  
  71. ; get user's save path
  72. paUserPath := RegRead("HKCU", "Software\PinballArcade\PinballArcade", "SavePath", "Auto")
  73. pinballArcadeDat := CheckFile(paUserPath . "settings.dat")
  74.  
  75. ; Update fullscreen setting
  76. res := BinRead(pinballArcadeDat,pinballArcadeDatData,1,8)       ; read current fullscreen setting
  77. Bin2Hex(hexData,pinballArcadeDatData,res)
  78. If (fullscreen = "true" && hexData != "02") {
  79.         Hex2Bin(binData,"02")
  80.         res := BinWrite(pinballArcadeDat,binData,1,8)
  81. } Else If (fullscreen != "true" && hexData != "00") {
  82.         Hex2Bin(binData,"00")
  83.         res := BinWrite(pinballArcadeDat,binData,1,8)
  84. }
  85.  
  86. ; Convert myTables into a real array
  87. myTablesArray := []
  88. Loop, Parse, myTables, |
  89. {
  90.         myTablesArray[A_Index] := A_Loopfield
  91.         If (romName = A_Loopfield) {
  92.                 thisTablePos := A_Index ; store the position (in the array) this table was found
  93.                 thisTableArray := "myTablesArray"       ; save the array this table was found in
  94.                 lastTable := lastMyTable        ; store the last table loaded for the same array as this table
  95.                 Log("Module -  Found """ . romName . """ at position " . thisTablePos . " in MyTables")
  96.         }
  97. }
  98.  
  99. CheckFile(moduleExtensionsPath . "\BlockInput.exe")
  100.  
  101. If !thisTableArray
  102.         ScriptError("This table """ . romName . """ was not found in My Tables folder. Please check its name that it matches what the module recognizes.")
  103. Log("Module - Table """ . romName . """ was found in array """ . thisTableArray . """ at position " . thisTablePos)
  104. Log("Module - Last Table of array """ . thisTableArray . """ left off at """ . lastTable . """ which was found at position " . lastTablePos)
  105.  
  106. ; Calculate the shortest distance to this table from the lastTable
  107. max := %thisTableArray%.MaxIndex()
  108. a := 1
  109. b := thisTablePos
  110. If (a > b) {
  111.         moveDown := a - b
  112.         moveUp := (max - a) + b
  113. } Else If (b > a) {
  114.         moveDown := b - a
  115.         moveUp := (max - b) + a
  116. } Else {        ; a=b
  117.         moveDown := 0
  118.         moveUp := 0
  119. }
  120. moveDirection := If moveUp < moveDown ? "moveUp" : "moveDown"
  121. Log("Module - The array """ . thisTableArray . """ has " . max . " tables in it and shortest distance to this table is " . %moveDirection% . " in direction " . moveDirection)
  122.  
  123. hideEmuObj := Object(pinballTitleClass,1)       ; Hide_Emu will hide these windows. 0 = will never unhide, 1 = will unhide later
  124. HideEmuStart()
  125.  
  126. If executable {
  127.         Log("Module - Running Pinball Arcade as a stand alone game and not through Steam as an executable was defined.")
  128.         Run(executable, emuPath)
  129. } Else {
  130.         If !steamPath
  131.                 GetSteamPath()
  132.         Log("Module - Running Pinball Arcade through Steam.")
  133.         Steam(238260)
  134. }
  135.  
  136. WinWait(pinballTitleClass)
  137. WinWaitActive(pinballTitleClass)
  138.  
  139. BezelDraw()
  140. Run("BlockInput.exe 30", moduleExtensionsPath)        ; start the tool that blocks all input so user cannot interrupt the launch process for 30 seconds
  141. If moduleDebugging = true
  142.         Tooltip, waiting %sleepLogo% seconds for logo
  143. SetKeyDelay(80*sleepBaseTime)
  144. Sleep % sleepLogo      ; sleep till Pinball FX2 logo appears
  145.  
  146. If moduleDebugging = true
  147.         Tooltip, sending enter to get to the main menu
  148. ; Send, {Enter Down}{Enter Up}100{Enter Down}{Enter Up}100{Enter Down}{Enter Up}        ; get to the Main menu
  149. Send, {Enter Down}{Enter Up}100{Down Down}{Down Up}100{Enter Down}{Enter Up}        ; get to the Main menu
  150.  
  151. If moduleDebugging = true
  152.         Tooltip, entering MyTable folder
  153. Sleep % 2000*sleepBaseTime     ; wait for folder to load
  154.  
  155. If moduleDebugging = true
  156.         Tooltip, navigating to %romName%
  157. SetKeyDelay(80*sleepBaseTime)
  158. If (moveDirection = "moveUp") {
  159.         Loop % %moveDirection%
  160.         {       If moduleDebugging = true
  161.                         Tooltip % "Index: " . A_Index . " | Game: " . %thisTableArray%[A_Index]
  162.                 Send, {Up Down}{Up Up}
  163.                 Sleep % 100*sleepBaseTime
  164.         }
  165. } Else {        ; moveDown
  166.         Loop % %moveDirection%
  167.         {       If moduleDebugging = true
  168.                         Tooltip % "Index: " . A_Index . " | Game: " . %thisTableArray%[A_Index]
  169.                 Send, {Down Down}{Down Up}
  170.                 Sleep % 100*sleepBaseTime
  171.         }
  172. }
  173. Send, {Enter Down}{Enter Up}    ; select game
  174. Sleep % 500*sleepBaseTime
  175.  
  176. If moduleDebugging = true
  177.         Tooltip, waiting for game to load
  178. Send, {Enter Down}{Enter Up}80{Enter Down}{Enter Up}      ; select game
  179. Sleep % 4800*sleepBaseTime     ; waiting for table to load
  180. Send, {Enter Down}{Enter Up}80{Enter Down}{Enter Up}      ; start game
  181. If moduleDebugging = true
  182.         Tooltip, Finished
  183.  
  184. Process("Close", "BlockInput.exe")    ; end script that blocks all input
  185.  
  186. HideEmuEnd()
  187. FadeInExit()
  188. Process("WaitClose", "PinballArcade.exe")
  189. BezelExit()
  190. FadeOutExit()
  191.  
  192. If windowsRotate {
  193.         Gui 1: Show
  194.         If rotateMethod
  195.                 Rotate(rotateMethod, 0)
  196.         Sleep % 200*sleepBaseTime
  197.         Gui 1: Destroy
  198. }
  199.  
  200. ExitModule()
  201.  
  202.  
  203. HaltEmu:
  204.         disableSuspendEmu := true
  205.         Send, {ESC down}{ESC up}
  206. Return
  207. RestoreEmu:
  208.         Send, {ESC down}{ESC up}
  209. Return
  210.  
  211. CloseProcess:
  212.         FadeOutStart()
  213.         WinClose(pinballTitleClass)
  214. Return
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top