Jump to content
Search In
  • More options...
Find results that contain...
Find results in...


Platinum Member
  • Posts

  • Joined

  • Last visited


About jcm9800

  • Birthday 12/19/1974

Profile Information

  • Location


  • Location

Recent Profile Visitors

3,003 profile views

jcm9800's Achievements


Enthusiast (6/14)

  • Conversation Starter Rare
  • Reacting Well Rare
  • Very Popular Rare
  • First Post Rare
  • Posting Machine Rare

Recent Badges



  1. thats the Module that i have MEmu := "Visual Pinball" MEmuV := "v8.1.1 & v9.12" MURL := ["http://sourceforge.net/projects/vpinball/"] MAuthor := ["djvj"] MVersion := "2.0.1" MCRC := "86821212" iCRC := "5089D1EC" MID := "635038268932497719" MSystem := ["Visual Pinball"] ;---------------------------------------------------------------------------- ; Notes: ; Requires VPinMame v2.4 ; If you want to use a picture while the table is loading, place it on the dir with this module and define the width & height and its filename in the variables below. ; You can also set the color of the background ; If you use Esc as your exit_emulator_key, set EscClose to true. The emu closes faster if you don't use Esc, and this value doesn't seem to matter if you use Win7 ; ; VPinMame uses the registry to store configs @ HKEY_CURRENT_USER\Software\Freeware\Visual PinMame ; Each time a new table is ran, it pulls the default configs into a new folder in the registry ; Visual Pinball stores settings in the registry @ HKEY_USERS\S-1-5-21-440413192-1003725550-97281542-1001\Software\Visual Pinball ;---------------------------------------------------------------------------- StartModule() FadeInStart() settingsFile := modulePath . "\" . moduleName . ".ini" EscClose := IniReadCheck(settingsFile, "Settings", "EscClose","false",,1) ; This fixes VP from crashing (in WinXP) on exit when using Esc as your exit key. showDMD := IniReadCheck(settingsFile, "Settings", "ShowDMD","true",,1) updateDefaultDMD := IniReadCheck(settingsFile, "Settings", "UpdateDefaultDMD","true",,1) ; Set this to true if you want the script to set the default position of the DMD on next run. dmdX := IniReadCheck(settingsFile, "Settings", "DMDX","45",,1) ; Your new default X position of the DMD dmdY := IniReadCheck(settingsFile, "Settings", "DMDY","35",,1) ; Your new default Y position of the DMD dmdWidth := IniReadCheck(settingsFile, "Settings", "DMDWidth","300",,1) ; Your new default DMD Width dmdHeight := IniReadCheck(settingsFile, "Settings", "DMDHeight","75",,1) ; Your new default DMD Height validateDMDLaunch := IniReadCheck(settingsFile, "Settings|" . romName, "ValidateDMDLaunch", "false",,1) 7z(romPath, romName, romExtension, 7zExtractPath) ; Update default DMD position & size so when new tables are ran, they use the new defaults If ( updateDefaultDMD = "true" ) { dmdXcur := ReadReg("dmd_pos_x") dmdYcur := ReadReg("dmd_pos_y") dmdWcur := ReadReg("dmd_width") dmdHcur := ReadReg("dmd_height") If ( dmdXcur != dmdX or dmdYcur != dmdY or dmdWcur != dmdWidth or dmdHcur != dmdHeight ) { WriteReg("dmd_pos_x",dmdX) WriteReg("dmd_pos_y",dmdY) WriteReg("dmd_width",dmdWidth) WriteReg("dmd_height",dmdHeight) } } Run(executable . " /exit /play -""" . romPath . "\" . romName . romExtension . """",emuPath, "Min") ; hide does not work WinWait("Preparing Table AHK_class #32770") WinWaitClose("Preparing Table AHK_class #32770",,4) Sleep, 500 ; script to look for Please answer window, selects Yes I am and hits enter to continue loading table Loop { Sleep 50 IfWinExist, Please ; Nag screen the first time a table is ran { WinActivate, Please IfWinActive, Please { SetControlDelay -1 ControlClick, Button2, Please answer AHK_class #32770 ; Click Yes I am ControlSend, Button1, {Enter}, Please answer AHK_class #32770 ; Click the OK button } } Else ifWinExist, Game Info ; unknown window { WinActivate, Game Info IfWinActive, Game Info { Send {Enter} Send {Enter} } } Else ifWinExist, Notice ; sound not 100% acurate { WinActivate, Notice IfWinActive, Notice { Send {Enter} Send {Enter} } } Else ifWinExist, VBScript ; all msg boxes from vp script (like vb/vpm version not high enough...) { WinActivate, VBScript IfWinActive, VBScript Send {Enter} } ;Else IfWinExist, Error ; serious errors - like z buffer too small and so on ; { ; we have some error and we want to see it so we don't send Enter ; Send {Enter} ; Gui, Destroy ; WinActivate, Error ; WinWaitActive, Error ; WinWaitClose, Error ; WinClose, ahk_class VPinball ; Process, WaitClose, %executable% ; ExitModule() ; } IfWinExist, Visual Pinball Player,, DMD ;Check if visual pinball is Ready IfWinActive, Visual Pinball Player,, DMD ;Check if visual pinball is Ready Break } Sleep, 500 WinWait("ahk_Class VPPlayer") Sleep, 500 Loop { IfWinActive, ahk_class VPPlayer Break WinActivate, ahk_class VPPlayer Sleep, 50 } WinWaitActive("ahk_class VPPlayer") Sleep, 1000 ; Give focus to the dmd so it appears on top of the playfield If showDMD = true { DetectHiddenWindows, off ; don't detect dmd if it is hidden WinActivate, ahk_class MAME If validateDMDLaunch = true WinWaitActive("ahk_class MAME",,2) ControlClick,, ahk_class MAME ; clicking the dmd to set the WS_EX_TOPMOST parameter (AlwaysOnTop) DetectHiddenWindows on WinActivate, ahk_class VPPlayer WinWaitActive("ahk_class VPPlayer") } FadeInExit() Process("WaitClose",executable) 7zCleanUp() FadeOutExit() ExitModule() ReadReg(var1) { RegRead, regValue, HKEY_CURRENT_USER, Software\Freeware\Visual PinMame\default, %var1% Return %regValue% } WriteReg(var1, var2) { RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Freeware\Visual PinMame\default, %var1%, %var2% } CloseProcess: FadeOutStart() If escClose = true { DetectHiddenWindows, On ;Or next line will not work Sleep, 50 ;ControlSend, Button1, q, ahk_class #32770 ControlSend, Button2, r, ahk_class #32770 ; in case q crashes VP, use this } ; If ( exe = vp8tag ) { ; WinClose, ahk_class VPinball ; } Else { Sleep, 150 WinHide, ahk_class VPinball ;This line fixes where the VP Window flashes real quick when closing the window for a cleaner exit WinMinimize, ahk_class VPinball WinClose("ahk_class VPinball") ; } Return
  2. Hallo Guys i want to ask if anyone had made a Visual Pinball x module for Launch with Rockrtlauncher i have one that works but some Tables are not in the frontend and must be take in Front with Alt Tab.
  3. Hello Bro the theme of Mame Player's Edge Plus (XM00005P+XMP00004) Multi-Poker (4:3) 1.0.0 is missing thanks for all your Hard work with this Themes

  4. hello mikty the are great the only problem that i see that the clear part over the carts are to big open it in Gimp and you will see what i mean now the dimensions not right or have i only alone this problem?
  5. hy the transformers 2 zip is missing two times the flv to download

  6. hello publio thanks for all the themes that you make for the handhelds can you upload jurassic park once more because the theme is missing and the update link zip dont work thanks for all your work with this i love them

    1. jcm9800


      thanks bro now its working ?

  7. Version 1.0.0


    Hello Guys this is a complete Famicom Disk System Cartridge Pack most of them from the Pack is from Dubbloseven i have only added the missing ones and the cartridges the have no sticker on it. i hope you enjoy it and have fun
  8. Version 1.0.0


    Hello Guys I have uploaded my complete Famicom Disk System Box Set here. i started with this Project as i see the damned have updated the Videos and the are complete now. first i only search for the missing ones that we not have in the other Famicom Box set from dubbloseven here. but then i see that most of the have really poor quality and i began to redone most of the Boxes we have to. i hope you enjoy it and have fun
  9. Hi JCM, I'm trying to find the videos on the FTP, are they still available?

  • Create New...