Advertisement
trenaryja

Launchbox-Dolphin

Jan 31st, 2019
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; X = Joy1
  2. ; Circle = Joy2
  3. ; Square = Joy3
  4. ; Triangle = Joy4
  5. ; R1 = Joy5
  6. ; L1 = Joy6
  7. ; Select = Joy7
  8. ; Start = Joy8
  9. ; L3 = Joy9
  10. ; R3 = Joy10
  11.  
  12. #SingleInstance force
  13. Toggle := false
  14. SetKeyDelay, 50, 50
  15.  
  16. $`::
  17. if (Toggle = false) {
  18.     Gosub, ShowGui 
  19. } else {
  20.     Gosub, HideGui
  21. }
  22. return
  23.  
  24. $2Joy1::
  25. if (Toggle){
  26.     Gosub, HideGui
  27. }
  28. return
  29.  
  30. $2Joy2::
  31. if (Toggle){
  32.     Gosub, HideGui
  33.     Gosub, LoadState
  34. }
  35. return
  36.  
  37. $2Joy3::
  38. if (Toggle){
  39.     Gosub, HideGui
  40.     Gosub, SaveState
  41. }
  42. return
  43.  
  44. $2Joy4::
  45. if (Toggle){
  46.     Gosub, HideGui
  47.     Gosub, QuitGame
  48. }
  49. return
  50.  
  51. $2Joy7::
  52. Gosub, TogglePause
  53. return
  54.  
  55. ShowGui:
  56. Toggle = true
  57. Gui, -Caption +AlwaysOnTop
  58. Gui, font, s22
  59. Gui, Add, Text,,A: Resume
  60. Gui, Add, Text,,B: Save
  61. Gui, Add, Text,,X: Load
  62. Gui, Add, Text,,Y: Quit
  63. Gui, Show
  64. return
  65.  
  66. HideGui:
  67. Toggle := false
  68. Gui, Destroy
  69. return
  70.  
  71. TogglePause:
  72. Send, {F10}
  73. return
  74.  
  75. SaveState:
  76. Send, {Shift down}{F1}{Shift Up}
  77. return
  78.  
  79. LoadState:
  80. Send, {F1}
  81. return
  82.  
  83. QuitGame:
  84. Send, {Esc}
  85. Send, {Enter}
  86. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement