API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 1st, 2017
102
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 15.72 KB | None | 0 0
raw download clone embed print report
  1.  
  2. setRoms()
  3.  
  4. currentName := %RomName%.name
  5. currentControls := %RomName%.controls
  6.  
  7. settingsFile = %emupath%Demul.ini
  8. padFile = %emupath%padDemul.ini
  9.  
  10. ;This part might need some work since I havent familiarized myself with all the control possibilities
  11. if(currentControls = "lightgun" || currentControls = "mouse"){
  12.   IniWrite, 131072, %settingsFile%, PORTB, device
  13.   IniWrite, standard, %padFile%, CONTROL_TYPE, CONTROL_TYPE
  14. }else if(currentControls = "keyboard"){
  15.   IniWrite, 1073741824, %settingsFile%, PORTB, device
  16.   IniWrite, keybaord, %padFile%, CONTROL_TYPE, CONTROL_TYPE
  17. }else{
  18.   IniWrite, 16777216, %settingsFile%, PORTB, device
  19.   IniWrite, currentControls, %padFile%, CONTROL_TYPE, CONTROL_TYPE
  20. }
  21.    
  22. if(currentControls = "standard" || currentControls = "lightgun"){
  23.   WriteStandardControls()
  24. }
  25. else if(currentControls = "ggxstyle"){
  26.   WriteGGXControls()
  27. }
  28. else if(currentControls = "sfstyle"){
  29.   WriteSFStyleControls()
  30. }
  31. else if(currentControls = "lightgun"){
  32.   WriteStandardControls()
  33. }  
  34. else if(currentControls = "driving"){
  35.   WriteDrivingControls()  
  36. }else{
  37.   WriteStandardControls()
  38. }
  39.  
  40. WriteStandardControls(){
  41.   IniWrite, 200, %padFile%, ATOMISWAVE0_0, UP
  42.   IniWrite, 208, %padFile%, ATOMISWAVE0_0, DOWN
  43.   IniWrite, 203, %padFile%, ATOMISWAVE0_0, LEFT
  44.   IniWrite, 205, %padFile%, ATOMISWAVE0_0, RIGHT
  45.   IniWrite, 46,  %padFile%, ATOMISWAVE0_0, SHOT1
  46.   IniWrite, 18,  %padFile%, ATOMISWAVE0_0, SHOT2
  47.   IniWrite, 44,  %padFile%, ATOMISWAVE0_0, SHOT3
  48.   IniWrite, 45,  %padFile%, ATOMISWAVE0_0, SHOT4
  49.   IniWrite, 21,  %padFile%, ATOMISWAVE0_0, SHOT5
  50.   IniWrite, 38,  %padFile%, ATOMISWAVE0_0, START
  51.   IniWrite, 39,  %padFile%, ATOMISWAVE0_0, COIN
  52.  
  53.   IniWrite, 72, %padFile%, ATOMISWAVE0_1, UP
  54.   IniWrite, 76, %padFile%, ATOMISWAVE0_1, DOWN
  55.   IniWrite, 75, %padFile%, ATOMISWAVE0_1, LEFT
  56.   IniWrite, 77, %padFile%, ATOMISWAVE0_1, RIGHT
  57.   IniWrite, 50, %padFile%, ATOMISWAVE0_1, SHOT1
  58.   IniWrite, 47, %padFile%, ATOMISWAVE0_1, SHOT2
  59.   IniWrite, 48, %padFile%, ATOMISWAVE0_1, SHOT3
  60.   IniWrite, 45, %padFile%, ATOMISWAVE0_0, SHOT4
  61.   IniWrite, 25, %padFile%, ATOMISWAVE0_1, SHOT5
  62.   IniWrite, 19, %padFile%, ATOMISWAVE0_1, START
  63.   IniWrite, 51, %padFile%, ATOMISWAVE0_1, COIN
  64. }
  65.  
  66. WriteGGXControls(){
  67.   IniWrite, 18,  %padFile%, ATOMISWAVE0_0, SHOT2
  68.   IniWrite, 44,  %padFile%, ATOMISWAVE0_0, SHOT3
  69.   IniWrite, 20,  %padFile%, ATOMISWAVE0_0, SHOT4
  70.   IniWrite, 21,  %padFile%, ATOMISWAVE0_0, SHOT5
  71.  
  72.   IniWrite, 47, %padFile%, ATOMISWAVE0_1, SHOT2
  73.   IniWrite, 48, %padFile%, ATOMISWAVE0_1, SHOT3
  74.   IniWrite, 24, %padFile%, ATOMISWAVE0_0, SHOT4
  75.   IniWrite, 25, %padFile%, ATOMISWAVE0_1, SHOT5
  76. }
  77.  
  78. WriteSFStyleControls(){
  79.   IniWrite, 45,  %padFile%, ATOMISWAVE0_0, SHOT2
  80.   IniWrite, 21,  %padFile%, ATOMISWAVE0_0, SHOT3
  81.   IniWrite, 18,  %padFile%, ATOMISWAVE0_0, SHOT4
  82.   IniWrite, 44,  %padFile%, ATOMISWAVE0_0, SHOT5
  83.  
  84.   IniWrite, 49, %padFile%, ATOMISWAVE0_1, SHOT2
  85.   IniWrite, 25, %padFile%, ATOMISWAVE0_1, SHOT3
  86.   IniWrite, 47,  %padFile%, ATOMISWAVE0_0, SHOT4
  87.   IniWrite, 48, %padFile%, ATOMISWAVE0_1, SHOT5
  88. }
  89.  
  90. WriteDrivingControls(){
  91.   IniWrite, 45,  %padFile%, ATOMISWAVE0_0, SHOT2
  92.   IniWrite, 21,  %padFile%, ATOMISWAVE0_0, SHOT3
  93.   IniWrite, 18,  %padFile%, ATOMISWAVE0_0, SHOT4
  94.   IniWrite, 44,  %padFile%, ATOMISWAVE0_0, SHOT5
  95.  
  96.   IniWrite, 47, %padFile%, ATOMISWAVE0_1, SHOT2
  97.   IniWrite, 48, %padFile%, ATOMISWAVE0_1, SHOT3
  98.   IniWrite, 24, %padFile%, ATOMISWAVE0_0, SHOT4
  99.   IniWrite, 25, %padFile%, ATOMISWAVE0_1, SHOT5
  100. }
  101.  
  102. IniWrite, %fullscreenWidth%, %emupath%gpuOglv3.ini, resolution, fWidth
  103. IniWrite, %fullscreenHeight%, %emupath%gpuOglv3.ini, resolution, fHeight
  104. Run, "%Emupath%%Executable%" -run=naomi -rom=%RomName%
  105. SetTimer, CheckWin, 2
  106.  
  107. sizeOrg=
  108. CheckWin:
  109. IfWinNotExist, ahk_class window
  110. {
  111.    return
  112. }else{
  113.    WinGetPos,,,W,,ahk_class window
  114.    if(W != sizeOrg && sizeOrg != ""){
  115.       Goto StartGame
  116.    }else{
  117.       sizeOrg = %W%
  118.    }
  119. }
  120. return
  121.  
  122. StartGame:
  123.  SetTimer, CheckWin, Off
  124.   WinActivate ahk_class window
  125.   Send !{ENTER}
  126.   Gui Destroy
  127.   Process, WaitClose, %executable%
  128. return
  129.            
  130. CloseProcess:
  131.  Process, Close, %executable%
  132.   ExitApp  
  133. return
  134.  
  135. setRoms(){
  136.   ;NAOMI
  137.   18wheelr := Object("name", "18 Wheeler - American Pro Trucker", "controls", "driving")
  138.   akatsukibk := Object("name", "Akatsuki Bk Ausf Achse", "controls", "standard")
  139.   alpiltdx := Object("name", "Airline Pilots Deluxe (Rev. B)", "controls", "driving")
  140.   alpilota := Object("name", "Airline Pilots (Rev. A)", "controls", "driving")
  141.   azumanga := Object("name", "Azumanga Daioh Puzzle Bobble", "controls", "standard")
  142.   capsnk := Object("name", "Capcom Vs. SNK Millennium Fight 2000 (904)", "controls", "sfstyle")
  143.   capsnka := Object("name", "Capcom Vs. SNK Millennium Fight 2000 (804)", "controls", "sfstyle")
  144.   crackndj := Object("name", "Crack'n DJ", "controls", "standard")
  145.   crzytaxi := Object("name", "Crazy Taxi", "controls", "driving")
  146.   csmash := Object("name", "Cosmic Smash (rev.A)", "controls", "standard")
  147.   csmasho := Object("name", "Cosmic Smash (original)", "controls", "standard")
  148.   cspike := Object("name", "Gun Spike (Japan)", "controls", "reverse")
  149.   deathcox := Object("name", "Death Crimson OX", "controls", "lightgun")
  150.   derbyoc := Object("name", "Derby Owners Club", "controls", "standard")
  151.   derbyocw := Object("name", "Derby Owners Club World Edition (Rev. C)", "controls", "standard")
  152.   derbyoc2 := Object("name", "Derby Owners Club II", "controls", "standard")
  153.   doa2 := Object("name", "Dead or Alive 2", "controls", "standard")
  154.   doa2m := Object("name", "Dead or Alive 2 Millenium", "controls", "standard")
  155.   dybb99 := Object("name", "Worls Series '99 / Dynamite Baseball '99", "controls", "standard")
  156.   dybbnao := Object("name", "Dynamite Basball naomi (JPN)", "controls", "standard")
  157.   f355 := Object("name", "Ferrari F355 Challenge", "controls", "driving")
  158.   f355twin := Object("name", "Ferrari F355 Challenge (Twin) ", "controls", "driving")
  159.   f355twin2 := Object("name", "Ferrari F355 Challenge 2 (Twin)", "controls", "driving")
  160.   ggram2 := Object("name", "Giant Gram", "controls", "standard")
  161.   ggx := Object("name", "Guilty Gear X (JPN)", "controls", "ggxstyle")
  162.   gram2000 := Object("name", "Giant Gram 2000", "controls", "standard")
  163.   gunsur2 := Object("name", "Gun Survivor 2-Bio Hazard Code Veronica", "controls", "fps")
  164.   gwing2 := Object("name", "Giga Wing 2", "controls", "standard")
  165.   hmgeo := Object("name", "Heavy Metal Geomatrix", "controls", "standard")
  166.   hotd2 := Object("name", "House of the Dead 2", "controls", "lightgun")
  167.   hotd2o := Object("name", "House of the Dead 2 (Original)", "controls", "lightgun")
  168.   jambo := Object("name", "Jambo! Safari (Rev. A)", "controls", "jambodriving")
  169.   kick4csh := Object("name", "Kick '4' Cash", "controls", "standard")
  170.   mvsc2 := Object("name", "Marvel vs. Capcom 2", "controls", "sfstyle")
  171.   otrigger := Object("name", "OutTrigger", "controls", "standard")
  172.   pjustic := Object("name", "Project Justice /Moeru Justice Gakuen", "controls", "sfstyle")
  173.   pstone := Object("name", "Powerstone", "controls", "standard")
  174.   pstone2 := Object("name", "Powerstone 2", "controls", "standard")
  175.   qmegamis := Object("name", "Quiz Ah Megamisama", "controls", "standard")
  176.   samba := Object("name", "Samba De Amigo (Rev. B)", "controls", "samba")
  177.   sgtetris := Object("name", "Sega Tetris", "controls", "standard")
  178.   shangril := Object("name", "Dengen Tenshi Taisen Janshi Shangri-la", "controls", "keyboard")
  179.   shootpl := Object("name", "Shootout Pool / Shootout Pool Prize", "controls", "standard")
  180.   shootopl := Object("name", "Shootout Pool", "controls", "standard")
  181.   shtnglv2k7 := Object("name", "Shooting Love 2007", "controls", "standard")
  182.   slasho := Object("name", "Slashout", "controls", "standard")
  183.   smarinef := Object("name", "Sega Marine Fishing", "controls", "standard")
  184.   smlg99 := Object("name", "Super Major League '99", "controls", "standard")
  185.   spawn := Object("name", "Spawn - In the Demon's Hand", "controls", "standard")
  186.   sstrkfgt := Object("name", "Sega Strike Fighter (Rev. A)", "controls", "standard")
  187.   suchie3 := Object("name", "Idol Janshi Suchie-Pai 3", "controls", "keyboard")
  188.   totd := Object("name", "The Typing of the Dead", "controls", "keyboard")
  189.   toyfight := Object("name", "Toy Fighter", "controls", "standard")
  190.   virnba := Object("name", "Virtua NBA", "controls", "standard")
  191.   virnbao := Object("name", "Virtua NBA (original)", "controls", "standard")
  192.   vs2_2k := Object("name", "Virtua Striker 2 Ver.2000", "controls", "standard")
  193.   vtennis := Object("name", "Virtua Tennis / Power Smash", "controls", "standard")
  194.   vtenis2c := Object("name", "Virtua Tennes 2 / Power Smash", "controls", "standard")
  195.   wwfroyal := Object("name", "WWF Royal Rumble", "controls", "standard")
  196.   zombrvn := Object("name", "Zombie Revenge", "controls", "standard")
  197.  
  198.   ;Naomi GD Rom
  199.   azumanga := Object("name", "Azumanga Daioh Puzzle Bobble (GDL-0018)", "controls", "standard")
  200.   bdrdown := Object("name", "Border Down (Rev A) (GDL-0023-A)", "controls", "standard")
  201.   cfield := Object("name", "Chaos Field (GDL-0025)", "controls", "standard")
  202.   chocomk := Object("name", "Musapey's Choco Maker (Rev. A) (GDL-0014A)", "controls", "standard")
  203.   cleoftp := Object("name", "Cleopatra Fortune Plus (GDL-0012)", "controls", "standard")
  204.   confmiss := Object("name", "Confidential Mission (GDS-0001)", "controls", "lightgun")
  205.   cvs2gd := Object("name", "Capcom vs SNK 2 Millionaire Fighting 2001 (Rev A) (GDL-0007A)", "controls", "sfstyle")
  206.   cvsgd := Object("name", "Capcom vs SNK 2 Millionaire Fighting 2000 Pro (GDL-0004)", "controls", "sfstyle")
  207.   dygolf := Object("name", "Virtua Golf \ Dynamic Golf (GDA-0009)", "controls", "mouse")
  208.   ggxx := Object("name", "Guilty Gear XX (GDL-0011)", "controls", "ggxstyle")
  209.   ggxxac := Object("name", "Guilty Gear Accent Core (GDL-041) ", "controls", "ggxstyle")
  210.   ggxxrl := Object("name", "Guilty Gear XX #Reload (Rev A) (GDL-0019A)", "controls", "ggxstyle")
  211.   ggxxsla := Object("name", "Guilty Gear XX Slash (Rev A) (GDL-0033A)", "controls", "ggxstyle")
  212.   gundmgd := Object("name", "Mobile Suit Gundam: Federation VS Zeon (GDL-001)", "controls", "standard")
  213.   gundmxgd := Object("name", "Mobile Suit Gundam: Federation VS Zeon DX (GDL-0006)", "controls", "standard")
  214.   ikaruga := Object("name", "Ikaruga (GDL-0010)", "controls", "standard")
  215.   jingystm := Object("name", "Jingi Storm - The Arcade (GDL-0037)", "controls", "standard")
  216.   karous := Object("name", "Karous (GDL-0040)", "controls", "standard")
  217.   keyboard := Object("name", "La Keyboard (GDS-0017)", "controls", "keyboard")
  218.   kurucham := Object("name", "Kurukuru Chameleon (GDL-0034)", "controls", "standard")
  219.   lupinsho := Object("name", "Lupin the Third - The Shooting (GDS-0018)", "controls", "lightgun")
  220.   luptype := Object("name", "Lupin the Third - The Typing (Rev A) (GDS-0021A)", "controls", "keyboard")
  221.   mamonoro := Object("name", "Mamonoro", "controls", "standard")
  222.   meltyb := Object("name", "Melty Blood Act Cadenza Ver B (GDL-0039)", "controls", "ggxstyle")
  223.   meltyba := Object("name", "Melty Blood Act Cadenza Ver B (Rev A) (GDL-0039A)", "controls", "ggxstyle")
  224.   meltybld := Object("name", "Melty Blood Act Cadenza Ver B (Rev C) (GDL-0028C)", "controls", "ggxstyle")
  225.   moeru := Object("name", "Burning Casino / Moery Casinyo (GDL-0013)", "controls", "standard")
  226.   mok := Object("name", "The Maze of Kings (GDS-0022)", "controls", "lightgun")
  227.   monkeyba := Object("name", "Monkey Ball (GDS-0008)", "controls", "standard")
  228.   ngdup23a := Object("name", "naomi Dimm Firmware Updater (GDL-0023A)", "controls", "standard")
  229.   ngdup23c := Object("name", "naomi Dimm Firmware Updater (GDL-0023C)", "controls", "standard")
  230.   psyvar2 := Object("name", "Psyvariar 2 - The will to Fabricate (GDL-0024)", "controls", "standard")
  231.   puyofev := Object("name", "Puyo Puyo Fever (GDS-0031)", "controls", "standard")
  232.   quizgd := Object("name", "Quiz Ketai Q mode (GDL-0017)", "controls", "standard")
  233.   radirgy := Object("name", "Radirgy (GDL-0032)", "controls", "standard")
  234.   radirgynoa := Object("name", "Radirgy Noir", "controls", "standard")
  235.   senko := Object("name", "Senko No Ronde New ver. (Rev A) (GDL-0030A)", "controls", "standard")
  236.   senkoo := Object("name", "Senko No Ronde (original) (GDL-0030)", "controls", "standard")
  237.   senkosp := Object("name", "Senko No Ronde Speacial (GDL-0038)", "controls", "standard")
  238.   sfz3ugd := Object("name", "Street Fighter Zero 3 Upper (GDL-0002)", "controls", "sfstyle")
  239.   shikgam2 := Object("name", "Then Castle of Ahikigami II / Shikagami No Shiro II (GDL-0021)", "controls", "standard")
  240.   slashout := Object("name", "Slashout (GDS-0004)", "controls", "standard")
  241.   spkrbtl := Object("name", "Spikers Battle (GDS-0005)", "controls", "standard")
  242.   sprtjam := Object("name", "Sports Jam (GDS-0003)", "controls", "standard")
  243.   ss2005 := Object("name", "Super Shanghai 2005 (GDL-0031)", "controls", "standard")
  244.   ss2005a := Object("name", "Super Shanghai 2005 (Rev. A) (GDL-0031A)", "controls", "standard")
  245.   starseek := Object("name", "Doki Doki Star Seeker (GDL-0005)", "controls", "standard")
  246.   takoron := Object("name", "Noukone Puzzle Takoron (GDL-0042)", "controls", "standard")
  247.   tetkiwam := Object("name", "Tetris Kiwamemichi (GDL-0020)", "controls", "standard")
  248.   trgheart := Object("name", "Trigger Heart Excelica (Rev A) (GDL-0036A)", "controls", "standard")
  249.   trizeal := Object("name", "Trizeal (GDL-0026)", "controls", "standard")
  250.   undefeat := Object("name", "Under Defeat (GDL-0035)", "controls", "standard")
  251.   usagui := Object("name", "Usagi - Yamashiro Mahjong Hen (GDL-0022)", "controls", "keyboard")
  252.   vathlete := Object("name", "Virtua Atheletics / Virtua Athlete (GDS-0019)", "controls", "standard")
  253.   vtennis2 := Object("name", "Virtua Tennis 2 / Power Smash 2 (Rev A) (GDS-0015A)", "controls", "standard")
  254.   vtennisg := Object("name", "Virtua Tennis (GDS-0011)", "controls", "standard")
  255.   wsbbgd := Object("name", "World Series Basball / Super Major League (GDS-0010)", "controls", "standard")
  256.  
  257.   ;Naomi 2
  258.   clubkrte := Object("name", "Club Kart - European Session (Cart)", "controls", "driving")
  259.   vf4cart := Object("name", "Virtua Fighter 4 (Cart)", "controls", "standard")
  260.   vf4evoct := Object("name", "Virtua Fighter 4 Evolution (Cart)", "controls", "standard")
  261.   vstrike3c := Object("name", "Virtua Striker 3 (Cart)", "controls", "standard")
  262.   wldrider := Object("name", "Wild Riders (Cart)", "controls", "driving")
  263.  
  264.   ;Naomi 2 GD Rom
  265.   beachspi := Object("name", "Beach Spikers (gds-0014)", "controls", "standard")
  266.   initd := Object("name", "Initial D Arcade Stage (Rev B) (GDS-0020B)", "controls", "driving")
  267.   initdexp := Object("name", "Initial D Arcade Stage (Export) (GDS-0025)", "controls", "driving")
  268.   initdv2j := Object("name", "Initial D Arcade Stage Ver.2 (GDS-0026)", "controls", "driving")
  269.   initdv3j := Object("name", "Initial D Arcade Stage Ver.3 (GDS-0032B)", "controls", "driving")
  270.   vf4 := Object("name", "Virtua Fighter 4 (GDS-0012)", "controls", "standard")
  271.   vf4b := Object("name", "Virtua Fighter 4 (Rev B) (GDS-0012B)", "controls", "standard")
  272.   vf4c := Object("name", "Virtua Fighter 4 (Rev C) (GDS-0012C)", "controls", "standard")
  273.   vf4evo := Object("name", "Virtua Fighter 4 Evolution (Rev B) (GDS-0024B)", "controls", "standard")
  274.   vf4evoa := Object("name", "Virtua Fighter 4 Evolution (Rev A) (GDS-0024A)", "controls", "standard")
  275.   vf4tuned := Object("name", "Virtua Fighter 4 Final Tuned (Rev B) (GDS-0036F)", "controls", "standard")
  276.   vf4tuneda := Object("name", "Virtua Fighter 4 Final Tuned (Rev A) (GDS-0036A)", "controls", "standard")
  277.   vf4tunedd := Object("name", "Virtua Fighter 4 Final Tuned (Rev D) (GDS-0036D)", "controls", "standard")
  278.   vstrik3 := Object("name", "Virtua Striker 3 (GDS-0006)", "controls", "standard")
  279.   vstrik3c := Object("name", "Virtua Striker 3 (cart)", "controls", "standard")
  280. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!